shared_source/c_tclxtens_7_5/vcinfo.c

//$Header$
//-------------------------------------------------------------------------------------------------
//This file is part of "David T. Ashley's Shared Source Code", a set of shared components
//integrated into many of David T. Ashley's projects.
//-------------------------------------------------------------------------------------------------
//This source code and any program in which it is compiled/used is provided under the MIT License,
//reproduced below.
//-------------------------------------------------------------------------------------------------
//Permission is hereby granted, free of charge, to any person obtaining a copy of
//this software and associated documentation files(the "Software"), to deal in the
//Software without restriction, including without limitation the rights to use,
//copy, modify, merge, publish, distribute, sublicense, and / or sell copies of the
//Software, and to permit persons to whom the Software is furnished to do so,
//subject to the following conditions :
//
//The above copyright notice and this permission notice shall be included in all
//copies or substantial portions of the Software.
//
//THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
//IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
//FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.IN NO EVENT SHALL THE
//AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
//LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
//OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
//SOFTWARE.
//-------------------------------------------------------------------------------------------------
#define MODULE_VCINFO

#include <string.h>

#include "tcl.h"
#include "tcldecls.h"

#include "vcinfo.h"

#include "build_config.h"


//Module implements the "vcinfo" command, which emits all version
//control information about the build.

int VcinfoCmd(ClientData dummy, 
              Tcl_Interp *interp, 
                   int objc, 
                   Tcl_Obj *objv[]) 
   {
        Tcl_Obj *rv;

   //Break into cases based on the number of arguments.
   if ((objc == 2) && (!strcmp(Tcl_GetString(objv[1]), "-ijutoolsversion")))
      {
      //Create a string object, initialized to the version number.
      rv = Tcl_NewStringObj("v" BUILD_CONFIG_RELEASE_VERSION, -1);

      //We have a cleanly allocated object.  Return it to the caller.
      Tcl_SetObjResult(interp, rv);

      return(TCL_OK);
      }
   else
      {
      Tcl_WrongNumArgs(interp, 
                       1, 
                       objv, 
                       "-ijutoolsversion");

      return TCL_ERROR;
      }
   }


//Performs initial registration to the hash table.
//
void VcinfoInit(Tcl_Interp *interp)
{
   //Register a command named "credits".
   Tcl_CreateObjCommand(interp, 
                            "vcinfo",
                                                (Tcl_ObjCmdProc *)VcinfoCmd,
                                                NULL,
                                                NULL);
}


const char *VcinfoCversion(void)
{   
    return ("$Header$");
}


const char *VcinfoHversion(void)
{   
    return (VCINFO_H_VERSION);
}

/* End of vcinfo.c */
1	dashley	71	//$Header$
2			//-------------------------------------------------------------------------------------------------
3			//This file is part of "David T. Ashley's Shared Source Code", a set of shared components
4			//integrated into many of David T. Ashley's projects.
5			//-------------------------------------------------------------------------------------------------
6			//This source code and any program in which it is compiled/used is provided under the MIT License,
7			//reproduced below.
8			//-------------------------------------------------------------------------------------------------
9			//Permission is hereby granted, free of charge, to any person obtaining a copy of
10			//this software and associated documentation files(the "Software"), to deal in the
11			//Software without restriction, including without limitation the rights to use,
12			//copy, modify, merge, publish, distribute, sublicense, and / or sell copies of the
13			//Software, and to permit persons to whom the Software is furnished to do so,
14			//subject to the following conditions :
15			//
16			//The above copyright notice and this permission notice shall be included in all
17			//copies or substantial portions of the Software.
18			//
19			//THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
20			//IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
21			//FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.IN NO EVENT SHALL THE
22			//AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
23			//LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
24			//OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
25			//SOFTWARE.
26			//-------------------------------------------------------------------------------------------------
27			#define MODULE_VCINFO
28
29			#include <string.h>
30
31			#include "tcl.h"
32			#include "tcldecls.h"
33
34			#include "vcinfo.h"
35
36			#include "build_config.h"
37
38
39			//Module implements the "vcinfo" command, which emits all version
40			//control information about the build.
41
42			int VcinfoCmd(ClientData dummy,
43			Tcl_Interp *interp,
44			int objc,
45			Tcl_Obj *objv[])
46			{
47			Tcl_Obj *rv;
48
49			//Break into cases based on the number of arguments.
50			if ((objc == 2) && (!strcmp(Tcl_GetString(objv[1]), "-ijutoolsversion")))
51			{
52			//Create a string object, initialized to the version number.
53			rv = Tcl_NewStringObj("v" BUILD_CONFIG_RELEASE_VERSION, -1);
54
55			//We have a cleanly allocated object. Return it to the caller.
56			Tcl_SetObjResult(interp, rv);
57
58			return(TCL_OK);
59			}
60			else
61			{
62			Tcl_WrongNumArgs(interp,
63			1,
64			objv,
65			"-ijutoolsversion");
66
67			return TCL_ERROR;
68			}
69			}
70
71
72			//Performs initial registration to the hash table.
73			//
74			void VcinfoInit(Tcl_Interp *interp)
75			{
76			//Register a command named "credits".
77			Tcl_CreateObjCommand(interp,
78			"vcinfo",
79			(Tcl_ObjCmdProc *)VcinfoCmd,
80			NULL,
81			NULL);
82			}
83
84
85			const char *VcinfoCversion(void)
86			{
87			return ("$Header$");
88			}
89
90
91			const char *VcinfoHversion(void)
92			{
93			return (VCINFO_H_VERSION);
94			}
95
96			/* End of vcinfo.c */