[simh.git] / Ibm1130 / ibm1130_fmt.c

/*********************************************************************************************\r
 * ibm1130_fmt.c : interpret tabs in 1130 Assembler or Fortran source\r
 * Bob Flanders\r
 * -------------------------------------------------------------------------------------------\r
 *\r
 * These routines are used by ibm1130_cr.c when the user has indicated\r
 * that the input text is formatted with tabs. Input lines are edited\r
 * into the appropriate column format. Three edit modes are recognized:\r
 *\r
 * Assembler mode:\r
 *		Input lines of the form\r
 *\r
 *			[label]<whitespace>[opcode]<tab>[tag][L]<tab>[argument]\r
 *\r
 *	    are rearranged so that the input fields are placed in the appropriate columns\r
 *\r
 *		The label must start on the first character of the line. If there is no label, \r
 *		the first character(s) before the opcode must be whitespace. Following the opcode, there\r
 *		MUST be a tab character, followed by the format and tag. Following the format and tag \r
 *		may be exactly one whitespace character, and then starts the argument.\r
 *\r
 *	    Input lines with * in column 1 and blank lines are turned into Assembler comments,\r
 *		with the * in the Opcode field.\r
 *\r
 * 		Assembler directive lines at the beginning of the deck must be preceded by\r
 *		! to indicate that they are not comments. For example,\r
 *\r
 *		!*LIST\r
 *		* This is a comment\r
 *\r
 * Fortran mode:\r
 *		Input lines of the form\r
 *\r
 *			[label]<tab>statement\r
 *\r
 *	    or\r
 *\r
 *			[label]<tab>Xcontinuation\r
 *\r
 *		where X is a non alphabetic contination character are rearranged in the\r
 *		appropriate manner:\r
 *\r
 *					 1		   2\r
 *			12345678901234567890...\r
 *			------------------------\r
 *  	    label statement\r
 *  	    labelXcontinuation\r
 *\r
 *		However, you must take care that you don't end up with statement text after column 72.\r
 *\r
 *		Input lines with * or C in column 1 are left alone (comments and directives)\r
 *\r
 *		(The ! escape is not used before Fortran directives as before Assembler directives)\r
 *\r
 * Tab mode:\r
 *		Tabs are replaced with spaces. Tab settings are assumed to be eight characters wide,\r
 *		as is standard for vi, notepad, etc.\r
 *********************************************************************************************/\r
\r
#include <stdio.h>\r
#include <stdlib.h>\r
#include <memory.h>\r
#include <ctype.h>\r
#include <string.h>\r
#include "ibm1130_fmt.h"\r
\r
#define MAXLINE		81									/* maximum output line size */\r
#define WORKSZ		256									/* size for tab work area */\r
#define TAGOFFSET	12									/* offset for tag field */\r
#define	FMTOFFSET	11									/* offset for format field */\r
\r
#define MIN(a,b)	((a < b) ? a : b)\r
#define AMSG		" with Assembler Reformat"\r
#define FMSG		" with FORTRAN Reformat"\r
#define AFORMAT		"%20.20s%-60.60s"," "\r
#define ACOMMENTFMT	"%20.20s%-60.60s"," "\r
#define ABLANKLINE	"%20.20s*"," "\r
#define FFORMAT		"%-5.5s %-74.74s"\r
#define FCONTFMT	"%-5.5s%-75.75s"\r
\r
char 	gszLabel[6];									/* work area for label */\r
char	gszArg[MAXLINE];								/* .. argument */\r
char	gszOutput[MAXLINE];								/* .. output */\r
short	gaiAsmTabs[] = {7,12,15,20,25,30,35,40,45,52,0};/* tab stops for assembler */\r
\r
short	gaiPlainTabs[] = {9, 17, 25, 33, 41, 49, 57, 65, 73, 0};/* tab stops for just plain tabs */\r
\r
/*\r
 * helper routines\r
 */\r
\r
/*************************************************\r
 * ExpandTabs: Expand tabs to spaces\r
 */\r
\r
char* ExpandTabs(char*	p_szInbuf,						/* expand tabs .. input buffer */\r
				 char*	p_szOutbuf,						/* .. output buffer */\r
				 short*	p_aiTabs)						/* .. array of tab stops (1 based) -- 0 end of array */\r
{\r
short	iI,													/* input position */\r
		iO,													/* output position */\r
		iT;													/* next tab stop */\r
		\r
char	cX;													/* character to test */\r
\r
	iI = 0;													/* init input position */\r
	iO = 0;													/* init output position */\r
	iT = 0;													/* init tab stop */\r
	\r
	while ((cX = *(p_szInbuf + iI))	!= 0)					/* while there are characters */\r
	{\r
		if (cX == '\t')										/* q. tab character? */\r
		{													/* a. yes .. */\r
			while ((p_aiTabs[iT] <= iO + 1)					/* search for next valid stop .. */\r
					&& (p_aiTabs[iT] != 0))					/* .. or end of table */\r
				iT++;										/* .. go to next tab */\r
				\r
			if (p_aiTabs[iT] != 0)							/* q. end of tab array? */\r
			{												/* a. no ..  */\r
				while (iO < (p_aiTabs[iT] - 1))				/* fill to tab with blanks */\r
						*(p_szOutbuf + iO++) = ' ';			/* .. put in a blank */\r
						\r
			}\r
			else											/* Otherwise ... */\r
				*(p_szOutbuf + iO++) = ' ';					/* .. Translate to blank */\r
		}													\r
		else												/* Otherwise .. not tab */\r
			*(p_szOutbuf + iO++) = cX;						/* .. save the input char */\r
			\r
		iI++;												/* next input character */\r
	}\r
	\r
	*(p_szOutbuf + iO) = 0;									/* end the string.. */\r
	return p_szOutbuf;										/* .. return output area addr */\r
}\r
\r
/*************************************************\r
 * extract next token, modify pointer\r
 */\r
\r
char* GetToken(char* p_szOut,							/* output location */\r
			   int	 p_iLen,							/* max output length */\r
			   char**p_pszToken)						/* pointer to input token */\r
{\r
int		iI;													/* work integer */\r
char*	pszX;												/* work pointer */\r
\r
	pszX = *p_pszToken;										/* get pointer to token */\r
\r
	for (iI = 0; *(pszX + iI) && (!isspace(*(pszX + iI)));)	/* while not whitespace & not end */\r
		iI++;												/* .. count token length */\r
\r
	memset(p_szOut, 0, p_iLen);								/* zero out output area */\r
\r
	if (iI > 0)												/* q. any chars? */\r
		strncpy(p_szOut, *p_pszToken, MIN(iI, p_iLen-1)); 	/* a. yes.. copy max of p_iLen-1 */\r
\r
	*p_pszToken += iI;										/* point beyond token */\r
	return p_szOut;											/* .. return token pointer */\r
}\r
\r
/*************************************************\r
 * EditToAsm - convert tab-formatted text line to 1130 Assembler format\r
 */\r
\r
char *EditToAsm (char* p_pszEdit)						/* convert line to 1130 assembler */\r
{\r
char	pszLine[MAXLINE];									/* source line */\r
char	pszWork[WORKSZ];									/* work buffer */\r
char	acTFWrk[2];											/* tag/format work area */\r
size_t	iI;													/* work integer */\r
\r
	if (p_pszEdit == NULL)									/* q. null request? */\r
		return AMSG;										/* a. yes .. return display message */\r
\r
	if (*p_pszEdit == '!')									/* leave lines starting with ! alone */\r
		return EditToWhitespace(p_pszEdit+1);\r
\r
	if (*p_pszEdit == '*')									/* q. comment line? */\r
	{														/* a. yes..  */\r
		strncpy(pszWork, EditToWhitespace(p_pszEdit), MAXLINE);		/* .. convert any tabs */\r
		sprintf(gszOutput, ACOMMENTFMT, pszWork);			/* .. put the comment out there in the opcode column */\r
		return gszOutput;									/* .. and return it */\r
	}\r
\r
	strncpy(pszLine, p_pszEdit, MAXLINE-1);					/* copy the line local */\r
	\r
	ExpandTabs(pszLine, pszWork, gaiAsmTabs);				/* expand the tabs */\r
	strncpy(pszLine, pszWork, MAXLINE-1);					/* copy the line back */\r
	\r
	for (iI = strlen(pszLine); iI--;)						/* trim trailing whitespace */\r
	{\r
		if (*(pszLine + iI) <= ' ')							/* q. space or less? */\r
			*(pszLine + iI) = 0;							/* a. yes .. remove it */\r
		else												/* otherwise */\r
			break;											/* .. done. Leave loop. */\r
	}\r
\r
	if (strlen(pszLine) == 0)								/* q. blank line? */\r
	{														/* a. yes ..  Assembler abhors these so */\r
		sprintf(gszOutput, ABLANKLINE);						/* format as comment statement */\r
		return gszOutput;									/* .. and return it */\r
	}\r
\r
\r
	/* TODO: Add code to process a strip switch \r
	 * comment?\r
	 */\r
\r
	if (strlen(pszLine) > (TAGOFFSET + 1))					/* q. line long enough? */\r
	{														/* a. yes.. reorder tag/format */\r
		memcpy(acTFWrk, pszLine + FMTOFFSET, 2);			/* get tag/format */\r
		memset((pszLine + FMTOFFSET), ' ', 2);				/* .. blank 'em out */\r
		\r
		for (iI = 0; iI < 2; iI ++)\r
			if (isalpha(acTFWrk[iI]))						/* q. alpha char? */\r
				*(pszLine + FMTOFFSET) = acTFWrk[iI];		/* a. yes .. make it format */\r
			else if (isdigit(acTFWrk[iI]))					/* q. digit? */\r
				*(pszLine + TAGOFFSET) = acTFWrk[iI];		/* a. yes .. make it the tag */\r
	}\r
\r
	sprintf(gszOutput, AFORMAT, pszLine);					/* format the line */\r
		\r
	return gszOutput;										/* return formatted line */\r
}\r
\r
/*************************************************\r
 * EditToFortran - convert tab-formatted input text line to FORTRAN format\r
 * (a la DEC Fortran)\r
 */\r
\r
char *EditToFortran(char* p_pszEdit)					/* convert line to 1130 assembler */\r
{\r
char	pszLine[MAXLINE];									/* source line */\r
char*	pszWork;											/* work pointer */\r
size_t	iI;													/* work integer */\r
int		bContinue;											/* true if continue */\r
\r
	if (p_pszEdit == NULL)									/* q. null request? */\r
		return FMSG;										/* a. yes .. return display message */\r
\r
	if (strchr(p_pszEdit, '\t') == NULL)					/* q. no tab in the line? */\r
		return p_pszEdit;									/* a. nope, return line as is, assume it's formatted correctly */\r
\r
	if (*p_pszEdit == 'C' || *p_pszEdit == '*' || *p_pszEdit == '\0')	/* q. comment or directive or blank line? */\r
	{														/* a. yes.. don't restructure */\r
		return EditToWhitespace(p_pszEdit);\r
	}\r
\r
	strncpy(pszLine, p_pszEdit, MAXLINE-1);					/* copy the line local */\r
\r
	for (iI = strlen(pszLine); iI--;)						/* trim trailing whitespace */\r
	{\r
		if (*(pszLine + iI) <= ' ')							/* q. space or less? */\r
			*(pszLine + iI) = 0;							/* a. yes .. remove it */\r
		else												/* otherwise */\r
			break;											/* .. done. Leave loop. */\r
	}\r
\r
	/*\r
	 * TODO: Add code to process a strip switch \r
	 * comment?\r
	 */\r
\r
	pszWork = (char*) pszLine;								/* set pointer to line */\r
	GetToken(gszLabel, 6, &pszWork);						/* get the line, if any. */\r
\r
	pszWork++;												/* skip tab/whitespace */\r
\r
															/* continuation... */\r
	bContinue = ((isdigit(*pszWork) && (*pszWork != '0'))	/* if first char non-zero digit */\r
			|| (!isspace(*pszWork) && !isalpha(*pszWork))); /* .. or non-alpha non-blank */\r
	\r
	memset(gszArg, 0, MAXLINE);								/* .. and arguments */\r
\r
	strncpy(gszArg, pszWork, 75);							/* copy rest to argument */\r
\r
	sprintf(gszOutput, (bContinue) ? FCONTFMT : FFORMAT,	/* format the line */\r
						gszLabel,							/* .. statement # */\r
						gszArg);							/* .. code */\r
		\r
	return gszOutput;										/* return formatted line */\r
}\r
\r
/*************************************************\r
 * EditToWhitespace - expand tabs at 8 space intervals.\r
 */\r
\r
char*	EditToWhitespace(char *p_pszEdit)\r
{\r
int		iI;													/* work integer	*/\r
char	pszLine[MAXLINE];									/* source line */\r
char	pszWork[WORKSZ];									/* work buffer */\r
\r
	if (p_pszEdit == NULL)									/* q. null request? */\r
		return AMSG;										/* a. yes .. return display message */\r
\r
	strncpy(pszLine, p_pszEdit, MAXLINE-1);					/* copy the line local */\r
	\r
	ExpandTabs(pszLine, pszWork, gaiPlainTabs);				/* expand the tabs */\r
	strncpy(gszOutput, pszWork, MAXLINE-1);					/* copy the line back  */\r
	\r
	for (iI = strlen(gszOutput); iI--;)						/* look at each character */\r
	{\r
		if (*(gszOutput + iI) <= ' ')						/* q. space or less? */\r
			*(gszOutput + iI) = 0;							/* a. yes .. remove it */\r
		else												/* otherwise */\r
			break;											/* .. done. Leave loop. */\r
	}\r
\r
\r
	return gszOutput;										/* ... return buffer */\r
}\r
Commit	Line	Data
196ba1fc PH	1	/*********************************************************************************************\r
	2	* ibm1130_fmt.c : interpret tabs in 1130 Assembler or Fortran source\r
	3	* Bob Flanders\r
	4	* -------------------------------------------------------------------------------------------\r
	5	*\r
	6	* These routines are used by ibm1130_cr.c when the user has indicated\r
	7	* that the input text is formatted with tabs. Input lines are edited\r
	8	* into the appropriate column format. Three edit modes are recognized:\r
	9	*\r
	10	* Assembler mode:\r
	11	* Input lines of the form\r
	12	*\r
	13	* [label]<whitespace>[opcode]<tab>[tag][L]<tab>[argument]\r
	14	*\r
	15	* are rearranged so that the input fields are placed in the appropriate columns\r
	16	*\r
	17	* The label must start on the first character of the line. If there is no label, \r
	18	* the first character(s) before the opcode must be whitespace. Following the opcode, there\r
	19	* MUST be a tab character, followed by the format and tag. Following the format and tag \r
	20	* may be exactly one whitespace character, and then starts the argument.\r
	21	*\r
	22	* Input lines with * in column 1 and blank lines are turned into Assembler comments,\r
	23	* with the * in the Opcode field.\r
	24	*\r
	25	* Assembler directive lines at the beginning of the deck must be preceded by\r
	26	* ! to indicate that they are not comments. For example,\r
	27	*\r
	28	* !*LIST\r
	29	* * This is a comment\r
	30	*\r
	31	* Fortran mode:\r
	32	* Input lines of the form\r
	33	*\r
	34	* [label]<tab>statement\r
	35	*\r
	36	* or\r
	37	*\r
	38	* [label]<tab>Xcontinuation\r
	39	*\r
	40	* where X is a non alphabetic contination character are rearranged in the\r
	41	* appropriate manner:\r
	42	*\r
	43	* 1 2\r
	44	* 12345678901234567890...\r
	45	* ------------------------\r
	46	* label statement\r
	47	* labelXcontinuation\r
	48	*\r
	49	* However, you must take care that you don't end up with statement text after column 72.\r
	50	*\r
	51	* Input lines with * or C in column 1 are left alone (comments and directives)\r
	52	*\r
	53	* (The ! escape is not used before Fortran directives as before Assembler directives)\r
	54	*\r
	55	* Tab mode:\r
	56	* Tabs are replaced with spaces. Tab settings are assumed to be eight characters wide,\r
	57	* as is standard for vi, notepad, etc.\r
	58	*********************************************************************************************/\r
	59	\r
	60	#include <stdio.h>\r
	61	#include <stdlib.h>\r
	62	#include <memory.h>\r
	63	#include <ctype.h>\r
	64	#include <string.h>\r
65	#include "ibm1130_fmt.h"\r
66	\r
67	#define MAXLINE 81 /* maximum output line size */\r
68	#define WORKSZ 256 /* size for tab work area */\r
69	#define TAGOFFSET 12 /* offset for tag field */\r
70	#define FMTOFFSET 11 /* offset for format field */\r
71	\r
72	#define MIN(a,b) ((a < b) ? a : b)\r
73	#define AMSG " with Assembler Reformat"\r
74	#define FMSG " with FORTRAN Reformat"\r
75	#define AFORMAT "%20.20s%-60.60s"," "\r
76	#define ACOMMENTFMT "%20.20s%-60.60s"," "\r
77	#define ABLANKLINE "%20.20s*"," "\r
78	#define FFORMAT "%-5.5s %-74.74s"\r
79	#define FCONTFMT "%-5.5s%-75.75s"\r
80	\r
81	char gszLabel[6]; /* work area for label */\r
82	char gszArg[MAXLINE]; /* .. argument */\r
83	char gszOutput[MAXLINE]; /* .. output */\r
84	short gaiAsmTabs[] = {7,12,15,20,25,30,35,40,45,52,0};/* tab stops for assembler */\r
85	\r
86	short gaiPlainTabs[] = {9, 17, 25, 33, 41, 49, 57, 65, 73, 0};/* tab stops for just plain tabs */\r
87	\r
88	/*\r
89	* helper routines\r
90	*/\r
91	\r
92	/*************************************************\r
93	* ExpandTabs: Expand tabs to spaces\r
94	*/\r
95	\r
96	char* ExpandTabs(char* p_szInbuf, /* expand tabs .. input buffer */\r
97	char* p_szOutbuf, /* .. output buffer */\r
98	short* p_aiTabs) /* .. array of tab stops (1 based) -- 0 end of array */\r
99	{\r
100	short iI, /* input position */\r
101	iO, /* output position */\r
102	iT; /* next tab stop */\r
103	\r
104	char cX; /* character to test */\r
105	\r
106	iI = 0; /* init input position */\r
107	iO = 0; /* init output position */\r
108	iT = 0; /* init tab stop */\r
109	\r
110	while ((cX = (p_szInbuf + iI)) != 0) / while there are characters */\r
111	{\r
112	if (cX == '\t') /* q. tab character? */\r
113	{ /* a. yes .. */\r
114	while ((p_aiTabs[iT] <= iO + 1) /* search for next valid stop .. */\r
115	&& (p_aiTabs[iT] != 0)) /* .. or end of table */\r
116	iT++; /* .. go to next tab */\r
117	\r
118	if (p_aiTabs[iT] != 0) /* q. end of tab array? */\r
119	{ /* a. no .. */\r
120	while (iO < (p_aiTabs[iT] - 1)) /* fill to tab with blanks */\r
121	(p_szOutbuf + iO++) = ' '; / .. put in a blank */\r
122	\r
123	}\r
124	else /* Otherwise ... */\r
125	(p_szOutbuf + iO++) = ' '; / .. Translate to blank */\r
126	} \r
127	else /* Otherwise .. not tab */\r
128	(p_szOutbuf + iO++) = cX; / .. save the input char */\r
129	\r
130	iI++; /* next input character */\r
131	}\r
132	\r
133	(p_szOutbuf + iO) = 0; / end the string.. */\r
134	return p_szOutbuf; /* .. return output area addr */\r
135	}\r
136	\r
137	/*************************************************\r
138	* extract next token, modify pointer\r
139	*/\r
140	\r
141	char* GetToken(char* p_szOut, /* output location */\r
142	int p_iLen, /* max output length */\r
143	char*p_pszToken) / pointer to input token */\r
144	{\r
145	int iI; /* work integer */\r
146	char* pszX; /* work pointer */\r
147	\r
148	pszX = p_pszToken; / get pointer to token */\r
149	\r
150	for (iI = 0; (pszX + iI) && (!isspace((pszX + iI)));) /* while not whitespace & not end */\r
151	iI++; /* .. count token length */\r
152	\r
153	memset(p_szOut, 0, p_iLen); /* zero out output area */\r
154	\r
155	if (iI > 0) /* q. any chars? */\r
156	strncpy(p_szOut, p_pszToken, MIN(iI, p_iLen-1)); / a. yes.. copy max of p_iLen-1 */\r
157	\r
158	p_pszToken += iI; / point beyond token */\r
159	return p_szOut; /* .. return token pointer */\r
160	}\r
161	\r
162	/*************************************************\r
163	* EditToAsm - convert tab-formatted text line to 1130 Assembler format\r
164	*/\r
165	\r
166	char EditToAsm (char p_pszEdit) /* convert line to 1130 assembler */\r
167	{\r
168	char pszLine[MAXLINE]; /* source line */\r
169	char pszWork[WORKSZ]; /* work buffer */\r
170	char acTFWrk[2]; /* tag/format work area */\r
171	size_t iI; /* work integer */\r
172	\r
173	if (p_pszEdit == NULL) /* q. null request? */\r
174	return AMSG; /* a. yes .. return display message */\r
175	\r
176	if (p_pszEdit == '!') / leave lines starting with ! alone */\r
177	return EditToWhitespace(p_pszEdit+1);\r
178	\r
179	if (p_pszEdit == '') /* q. comment line? */\r
180	{ /* a. yes.. */\r
181	strncpy(pszWork, EditToWhitespace(p_pszEdit), MAXLINE); /* .. convert any tabs */\r
182	sprintf(gszOutput, ACOMMENTFMT, pszWork); /* .. put the comment out there in the opcode column */\r
183	return gszOutput; /* .. and return it */\r
184	}\r
185	\r
186	strncpy(pszLine, p_pszEdit, MAXLINE-1); /* copy the line local */\r
187	\r
188	ExpandTabs(pszLine, pszWork, gaiAsmTabs); /* expand the tabs */\r
189	strncpy(pszLine, pszWork, MAXLINE-1); /* copy the line back */\r
190	\r
191	for (iI = strlen(pszLine); iI--;) /* trim trailing whitespace */\r
192	{\r
193	if ((pszLine + iI) <= ' ') / q. space or less? */\r
194	(pszLine + iI) = 0; / a. yes .. remove it */\r
195	else /* otherwise */\r
196	break; /* .. done. Leave loop. */\r
197	}\r
198	\r
199	if (strlen(pszLine) == 0) /* q. blank line? */\r
200	{ /* a. yes .. Assembler abhors these so */\r
201	sprintf(gszOutput, ABLANKLINE); /* format as comment statement */\r
202	return gszOutput; /* .. and return it */\r
203	}\r
204	\r
205	\r
206	/* TODO: Add code to process a strip switch \r
207	* comment?\r
208	*/\r
209	\r
210	if (strlen(pszLine) > (TAGOFFSET + 1)) /* q. line long enough? */\r
211	{ /* a. yes.. reorder tag/format */\r
212	memcpy(acTFWrk, pszLine + FMTOFFSET, 2); /* get tag/format */\r
213	memset((pszLine + FMTOFFSET), ' ', 2); /* .. blank 'em out */\r
214	\r
215	for (iI = 0; iI < 2; iI ++)\r
216	if (isalpha(acTFWrk[iI])) /* q. alpha char? */\r
217	(pszLine + FMTOFFSET) = acTFWrk[iI]; / a. yes .. make it format */\r
218	else if (isdigit(acTFWrk[iI])) /* q. digit? */\r
219	(pszLine + TAGOFFSET) = acTFWrk[iI]; / a. yes .. make it the tag */\r
220	}\r
221	\r
222	sprintf(gszOutput, AFORMAT, pszLine); /* format the line */\r
223	\r
224	return gszOutput; /* return formatted line */\r
225	}\r
226	\r
227	/*************************************************\r
228	* EditToFortran - convert tab-formatted input text line to FORTRAN format\r
229	* (a la DEC Fortran)\r
230	*/\r
231	\r
232	char EditToFortran(char p_pszEdit) /* convert line to 1130 assembler */\r
233	{\r
234	char pszLine[MAXLINE]; /* source line */\r
235	char* pszWork; /* work pointer */\r
236	size_t iI; /* work integer */\r
237	int bContinue; /* true if continue */\r
238	\r
239	if (p_pszEdit == NULL) /* q. null request? */\r
240	return FMSG; /* a. yes .. return display message */\r
241	\r
242	if (strchr(p_pszEdit, '\t') == NULL) /* q. no tab in the line? */\r
243	return p_pszEdit; /* a. nope, return line as is, assume it's formatted correctly */\r
244	\r
245	if (p_pszEdit == 'C' \|\| p_pszEdit == '' \|\| p_pszEdit == '\0') /* q. comment or directive or blank line? */\r
246	{ /* a. yes.. don't restructure */\r
247	return EditToWhitespace(p_pszEdit);\r
248	}\r
249	\r
250	strncpy(pszLine, p_pszEdit, MAXLINE-1); /* copy the line local */\r
251	\r
252	for (iI = strlen(pszLine); iI--;) /* trim trailing whitespace */\r
253	{\r
254	if ((pszLine + iI) <= ' ') / q. space or less? */\r
255	(pszLine + iI) = 0; / a. yes .. remove it */\r
256	else /* otherwise */\r
257	break; /* .. done. Leave loop. */\r
258	}\r
259	\r
260	/*\r
261	* TODO: Add code to process a strip switch \r
262	* comment?\r
263	*/\r
264	\r
265	pszWork = (char) pszLine; / set pointer to line */\r
266	GetToken(gszLabel, 6, &pszWork); /* get the line, if any. */\r
267	\r
268	pszWork++; /* skip tab/whitespace */\r
269	\r
270	/* continuation... */\r
271	bContinue = ((isdigit(pszWork) && (pszWork != '0')) /* if first char non-zero digit */\r
272	\|\| (!isspace(pszWork) && !isalpha(pszWork))); /* .. or non-alpha non-blank */\r
273	\r
274	memset(gszArg, 0, MAXLINE); /* .. and arguments */\r
275	\r
276	strncpy(gszArg, pszWork, 75); /* copy rest to argument */\r
277	\r
278	sprintf(gszOutput, (bContinue) ? FCONTFMT : FFORMAT, /* format the line */\r
279	gszLabel, /* .. statement # */\r
280	gszArg); /* .. code */\r
281	\r
282	return gszOutput; /* return formatted line */\r
283	}\r
284	\r
285	/*************************************************\r
286	* EditToWhitespace - expand tabs at 8 space intervals.\r
287	*/\r
288	\r
289	char* EditToWhitespace(char *p_pszEdit)\r
290	{\r
291	int iI; /* work integer */\r
292	char pszLine[MAXLINE]; /* source line */\r
293	char pszWork[WORKSZ]; /* work buffer */\r
294	\r
295	if (p_pszEdit == NULL) /* q. null request? */\r
296	return AMSG; /* a. yes .. return display message */\r
297	\r
298	strncpy(pszLine, p_pszEdit, MAXLINE-1); /* copy the line local */\r
299	\r
300	ExpandTabs(pszLine, pszWork, gaiPlainTabs); /* expand the tabs */\r
301	strncpy(gszOutput, pszWork, MAXLINE-1); /* copy the line back */\r
302	\r
303	for (iI = strlen(gszOutput); iI--;) /* look at each character */\r
304	{\r
305	if ((gszOutput + iI) <= ' ') / q. space or less? */\r
306	(gszOutput + iI) = 0; / a. yes .. remove it */\r
307	else /* otherwise */\r
308	break; /* .. done. Leave loop. */\r
309	}\r
310	\r
311	\r
312	return gszOutput; /* ... return buffer */\r
313	}\r