src/c_tclxtens_7_5/msgstrs.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_MSGSTRS

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

#include "msgstrs.h"

#include <string.h>

#include "vcinfo.h"


//PP constant defining reference baseline with = signs.
#define MSGSTRS_REFHLINEEQ   \
   "============================================================================"

//Reference baseline with = signs.
static const char * MsgstrsRefHlineEq = MSGSTRS_REFHLINEEQ;

#define MSGSTRS_REFLINEHYPHEN  \
   "----------------------------------------------------------------------------"

//Reference baseline populated with hyphens.
static const char *  MsgstrsRefHlineHyphen = MSGSTRS_REFLINEHYPHEN;

#define MSGSTRS_CORPCOPYRIGHTSTRING  \
   "Copyright David T. Ashley, Detroit, Michigan, USA."

//Copyright string.
static const char *MsgstrsCopyrightString = MSGSTRS_CORPCOPYRIGHTSTRING;

//Credits string, giving credit to who produced it.
#define MSGSTRS_CREDITSSTRING_A  \
   "Powered by static embedded Ajuba/Scriptics Tcl 8.3.1"

//Instruction strings.
#define MSGSTRS_INSTRUCTSTRING_A  \
   "Type \"credits\" for credit and contact information; or \"exit\" to end session."


//Returns the length of the standard separator line.  This is taken
//to be the right length for all horizontal lines.

DECMOD_MSGSTRS int MsgstrsGetStdSepLen(void)
{
        return(strlen(MsgstrsRefHlineEq));
}

//Returns the standard horizontal line populated with "=".

DECMOD_MSGSTRS const char *MsgstrsGetRefHlineEq(void)
{
        return(MsgstrsRefHlineEq);
}

//Returns the standard horizontal line populated with "-".

DECMOD_MSGSTRS const char *MsgstrsGetRefHlineHyphen(void)
{
        return(MsgstrsRefHlineHyphen);
}


//Initializes this software module.  The only function to perform is to 
//calculate the CRC-32 of all available version control information and
//stuff it in the string which will be used for the opening message.
DECMOD_MSGSTRS void MsgstrsInit(void)
   {
#if 0
   Tcl_Obj *objptr;
   char *srcptr;
   char *dstptr;
   int i;
   int errflag;
#endif

#if 0
   //First, form the CRC-32 of all available version control information.
   //Get a Tcl object with this information.
   objptr = VcinfoRetrieveVcData(0,NULL,&errflag);

   //If there was an error generating the CRC, don't want to go any
   //further.  Free the returned object.
   if (errflag)
      goto free_obj_exit;

   //Get a pointer to the string represented by the object.
   srcptr = Tcl_GetString(objptr);

   //Go two forward in the string to bypass the "0x".
   if (srcptr)
      {
      if (strlen(srcptr) >= 2)
         {
         srcptr += 2;
         }
      }

   //Loop through the list of opening message strings and substitute
   //in the correct information wherever the string 00000000 is found.
   //It is assumed that there will be only one such occurance in the
   //set of opening strings.  If the strstr() function indicates a match,
   //it is known that there is enough room in the destination to copy
   //in the string, otherwise there would not have been a match.
   if (srcptr)
      {
      for (i=0; i<(sizeof(MsgstrsStartupMsg)/sizeof(MsgstrsStartupMsg[0])); i++)
         {
         if (MsgstrsStartupMsg[i])
            {
            dstptr = strstr(MsgstrsStartupMsg[i], "00000000");
/*
            if (dstptr)
               {
               while (*srcptr && *dstptr)
                  {
                  *dstptr++ = *srcptr++;
                  }
               
               break;
               }
*/
            }
         }
      }

   free_obj_exit:

   //We are done with the Tcl object.  We can free it.
   Tcl_DecrRefCount(objptr);
#endif
   }

/* End of msgstrs.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_MSGSTRS
28
29			#include "tcl.h"
30			#include "tcldecls.h"
31
32			#include "msgstrs.h"
33
34			#include <string.h>
35
36			#include "vcinfo.h"
37
38
39			//PP constant defining reference baseline with = signs.
40			#define MSGSTRS_REFHLINEEQ \
41			"============================================================================"
42
43			//Reference baseline with = signs.
44			static const char * MsgstrsRefHlineEq = MSGSTRS_REFHLINEEQ;
45
46			#define MSGSTRS_REFLINEHYPHEN \
47			"----------------------------------------------------------------------------"
48
49			//Reference baseline populated with hyphens.
50			static const char * MsgstrsRefHlineHyphen = MSGSTRS_REFLINEHYPHEN;
51
52			#define MSGSTRS_CORPCOPYRIGHTSTRING \
53			"Copyright David T. Ashley, Detroit, Michigan, USA."
54
55			//Copyright string.
56			static const char *MsgstrsCopyrightString = MSGSTRS_CORPCOPYRIGHTSTRING;
57
58			//Credits string, giving credit to who produced it.
59			#define MSGSTRS_CREDITSSTRING_A \
60			"Powered by static embedded Ajuba/Scriptics Tcl 8.3.1"
61
62			//Instruction strings.
63			#define MSGSTRS_INSTRUCTSTRING_A \
64			"Type \"credits\" for credit and contact information; or \"exit\" to end session."
65
66
67			//Returns the length of the standard separator line. This is taken
68			//to be the right length for all horizontal lines.
69
70			DECMOD_MSGSTRS int MsgstrsGetStdSepLen(void)
71			{
72			return(strlen(MsgstrsRefHlineEq));
73			}
74
75			//Returns the standard horizontal line populated with "=".
76
77			DECMOD_MSGSTRS const char *MsgstrsGetRefHlineEq(void)
78			{
79			return(MsgstrsRefHlineEq);
80			}
81
82			//Returns the standard horizontal line populated with "-".
83
84			DECMOD_MSGSTRS const char *MsgstrsGetRefHlineHyphen(void)
85			{
86			return(MsgstrsRefHlineHyphen);
87			}
88
89
90			//Initializes this software module. The only function to perform is to
91			//calculate the CRC-32 of all available version control information and
92			//stuff it in the string which will be used for the opening message.
93			DECMOD_MSGSTRS void MsgstrsInit(void)
94			{
95			#if 0
96			Tcl_Obj *objptr;
97			char *srcptr;
98			char *dstptr;
99			int i;
100			int errflag;
101			#endif
102
103			#if 0
104			//First, form the CRC-32 of all available version control information.
105			//Get a Tcl object with this information.
106			objptr = VcinfoRetrieveVcData(0,NULL,&errflag);
107
108			//If there was an error generating the CRC, don't want to go any
109			//further. Free the returned object.
110			if (errflag)
111			goto free_obj_exit;
112
113			//Get a pointer to the string represented by the object.
114			srcptr = Tcl_GetString(objptr);
115
116			//Go two forward in the string to bypass the "0x".
117			if (srcptr)
118			{
119			if (strlen(srcptr) >= 2)
120			{
121			srcptr += 2;
122			}
123			}
124
125			//Loop through the list of opening message strings and substitute
126			//in the correct information wherever the string 00000000 is found.
127			//It is assumed that there will be only one such occurance in the
128			//set of opening strings. If the strstr() function indicates a match,
129			//it is known that there is enough room in the destination to copy
130			//in the string, otherwise there would not have been a match.
131			if (srcptr)
132			{
133			for (i=0; i<(sizeof(MsgstrsStartupMsg)/sizeof(MsgstrsStartupMsg[0])); i++)
134			{
135			if (MsgstrsStartupMsg[i])
136			{
137			dstptr = strstr(MsgstrsStartupMsg[i], "00000000");
138			/*
139			if (dstptr)
140			{
141			while (srcptr && dstptr)
142			{
143			dstptr++ = srcptr++;
144			}
145
146			break;
147			}
148			*/
149			}
150			}
151			}
152
153			free_obj_exit:
154
155			//We are done with the Tcl object. We can free it.
156			Tcl_DecrRefCount(objptr);
157			#endif
158			}
159
160			/* End of msgstrs.c */