405 lines
12 KiB
Plaintext
405 lines
12 KiB
Plaintext
/*++
|
||
|
||
Copyright (c) 1992 Microsoft Corporation
|
||
|
||
Module Name:
|
||
|
||
listmung.c
|
||
|
||
Abstract:
|
||
|
||
This is the main module for a stubfile generation utility
|
||
|
||
Author:
|
||
|
||
Sanford Staab (sanfords) 22-Apr-1992
|
||
11/15/94 Sanofrds: rewrote and expanded - but its not quite right yet.
|
||
since this took me a day to do, I'm leaving it here in case
|
||
anyone has to expand or alter it later - this version is
|
||
easier to maintain.
|
||
|
||
Revision History:
|
||
|
||
--*/
|
||
|
||
#include <assert.h>
|
||
#include <stdio.h>
|
||
#include <stdlib.h>
|
||
#include <string.h>
|
||
#include <ctype.h>
|
||
#include <windef.h>
|
||
|
||
char szIndex[] = "$$INDEX$$";
|
||
char szForAllLPC[] = "$$FOR_ALL_LPC$$";
|
||
char szForAllQLPC[] = "$$FOR_ALL_QLPC$$";
|
||
char szForAll[] = "$$FOR_ALL$$";
|
||
char szForAll45[] = "$$FOR_ALL45$$";
|
||
char szForAllButLast[] = "$$FOR_ALL_BUT_LAST$$";
|
||
char szForLast[] = "$$FOR_LAST$$";
|
||
char szForAllUpper[] = "$$FOR_ALL_UPPER$$";
|
||
char szForAllUpper45[] = "$$FOR_ALL_UPPER45$$";
|
||
char szCheck[] = "$$";
|
||
|
||
char *aKeyStrings[] = {
|
||
szIndex,
|
||
szForAllLPC,
|
||
szForAllQLPC,
|
||
szForAll,
|
||
szForAll45,
|
||
szForAllButLast,
|
||
szForLast,
|
||
szForAllUpper,
|
||
szForAllUpper45,
|
||
NULL
|
||
};
|
||
|
||
#define STRING_BUFFER_SIZE 120
|
||
char ItemBuffer[STRING_BUFFER_SIZE];
|
||
char ItemBufferNext[STRING_BUFFER_SIZE];
|
||
char *ListName, *TemplateName;
|
||
FILE *ListFile, *TemplateFile;
|
||
|
||
char szENDTRANSLATE[] = "EndTranslate";
|
||
char szENDTRANSLATEQLPC[] = "EndTranslateQLPC";
|
||
|
||
BOOL mysubstr(
|
||
char *s,
|
||
char *find,
|
||
char *put)
|
||
{
|
||
char *p;
|
||
BOOL fRet = FALSE;
|
||
|
||
/*
|
||
* assumes strlen(put) < strlen(find) !
|
||
*/
|
||
while (p = strstr(s, find)) {
|
||
strcpy(p, put);
|
||
s = p + strlen(put);
|
||
strcpy(s, p + strlen(find)); // find > put!
|
||
fRet = TRUE;
|
||
}
|
||
return(fRet);
|
||
}
|
||
|
||
|
||
int
|
||
ProcessParameters(
|
||
int argc,
|
||
char *argv[]
|
||
)
|
||
{
|
||
char c, *p;
|
||
|
||
while (*++argv != NULL) {
|
||
|
||
p = *argv;
|
||
|
||
//
|
||
// if we have a delimiter for a parameter, case throught the valid
|
||
// parameter. Otherwise, the rest of the parameters are the list of
|
||
// input files.
|
||
//
|
||
|
||
if (*p == '/' || *p == '-') {
|
||
|
||
//
|
||
// Switch on all the valid delimiters. If we don't get a valid
|
||
// one, return with an error.
|
||
//
|
||
|
||
c = *++p;
|
||
|
||
switch (toupper( c )) {
|
||
case 'p':
|
||
{
|
||
char **ppsz;
|
||
/*
|
||
* alter key strings to use a different delimiter
|
||
* so that multiple passes of listmung are possible.
|
||
*/
|
||
ppsz = aKeyStrings;
|
||
szCheck[0] = *++p;
|
||
szCheck[1] = szCheck[0];
|
||
while (*ppsz != NULL) {
|
||
mysubstr(*ppsz++, "$$", szCheck);
|
||
}
|
||
}
|
||
|
||
|
||
default:
|
||
return 0;
|
||
}
|
||
|
||
} else {
|
||
|
||
ListName = *argv++;
|
||
TemplateName = *argv++;
|
||
|
||
return (ListName && TemplateName);
|
||
}
|
||
}
|
||
|
||
return 0;
|
||
}
|
||
|
||
|
||
void
|
||
ProcessTemplate( void )
|
||
{
|
||
char *pszTemplateLine, *pszTemplateLineNext;
|
||
char szBuf[STRING_BUFFER_SIZE];
|
||
char szTemplateLine[STRING_BUFFER_SIZE];
|
||
char szTemplateLineSave[STRING_BUFFER_SIZE];
|
||
char *pchItem, *pchItemNext;
|
||
char *pchLastItem;
|
||
int index;
|
||
BOOL fLPCZone;
|
||
|
||
pszTemplateLine = fgets(szTemplateLine, STRING_BUFFER_SIZE, TemplateFile);
|
||
while (pszTemplateLine ) {
|
||
/*
|
||
* for each line of the template...
|
||
*/
|
||
if (strstr(pszTemplateLine, szCheck) == NULL) {
|
||
/*
|
||
* This line of the template has no $$ substitution strings
|
||
* so just print it and go to the next.
|
||
*/
|
||
printf(pszTemplateLine);
|
||
pszTemplateLine = fgets(szTemplateLine, STRING_BUFFER_SIZE, TemplateFile);
|
||
continue;
|
||
}
|
||
|
||
/*
|
||
* remember original template line form so we can reuse it for each
|
||
* item in the list.
|
||
*/
|
||
strcpy(szTemplateLineSave, szTemplateLine);
|
||
|
||
rewind(ListFile);
|
||
index = 0;
|
||
fLPCZone = FALSE;
|
||
pchItem = pchItemNext = fgets(ItemBufferNext, STRING_BUFFER_SIZE, ListFile);
|
||
while (pchItem) {
|
||
/*
|
||
* we look ahead by one line so we know which one is the last one.
|
||
*/
|
||
strcpy(ItemBuffer, ItemBufferNext);
|
||
pchItem = pchItemNext;
|
||
pchItemNext = fgets(ItemBufferNext, STRING_BUFFER_SIZE, ListFile);
|
||
|
||
/*
|
||
* restore the original template line.
|
||
*/
|
||
strcpy(szTemplateLine, szTemplateLineSave);
|
||
|
||
/*
|
||
* strip off the '\n'
|
||
*/
|
||
ItemBuffer[strlen(ItemBuffer) - 1] = '\0';
|
||
|
||
/*
|
||
* if this line is a comment, translate and print it as is.
|
||
* Don't increment the index.
|
||
*/
|
||
if (ItemBuffer[0] == ';') {
|
||
if (ItemBuffer[1] != ';') {
|
||
printf("//%s\n", ItemBuffer);
|
||
}
|
||
continue; // on to next template item.
|
||
}
|
||
|
||
/*
|
||
* If this template line contains a $$FOR_ALL_LPC$$ tag,
|
||
* only process it if we are in the LPCZone.
|
||
*/
|
||
if (mysubstr(pszTemplateLine, szForAllLPC, "%s")) {
|
||
if (fLPCZone) {
|
||
/*
|
||
* replace up to 4 instances.
|
||
*/
|
||
sprintf(szBuf, pszTemplateLine, ItemBuffer, ItemBuffer, ItemBuffer, ItemBuffer);
|
||
strcpy(pszTemplateLine, szBuf);
|
||
} else {
|
||
break; // skip this template line and go to the next.
|
||
}
|
||
}
|
||
|
||
/*
|
||
* If this template line contains a $$FOR_ALL_QLPC$$ tag,
|
||
* only process it if we are not in the LPCZone.
|
||
*/
|
||
if (mysubstr(pszTemplateLine, szForAllQLPC, "%s")) {
|
||
if (!fLPCZone) {
|
||
/*
|
||
* replace up to 4 instances.
|
||
*/
|
||
sprintf(szBuf, pszTemplateLine, ItemBuffer, ItemBuffer, ItemBuffer, ItemBuffer);
|
||
strcpy(pszTemplateLine, szBuf);
|
||
} else {
|
||
break; // skip this template line and go to the next.
|
||
}
|
||
}
|
||
|
||
/*
|
||
* replace up to 4 instances of $$INDEX$$ in the template
|
||
* with the current index value.
|
||
*/
|
||
if (mysubstr(pszTemplateLine, szIndex, "%d")) {
|
||
sprintf(szBuf, pszTemplateLine, index, index, index);
|
||
strcpy(pszTemplateLine, szBuf);
|
||
}
|
||
|
||
/*
|
||
* Increment the index value IFF this line does not contain
|
||
* an ENDTRANSLATE. (Which includes ENDTRANSLATEQLPC)
|
||
*/
|
||
if (strnicmp(ItemBuffer, szENDTRANSLATE, sizeof(szENDTRANSLATE)-1) != 0) {
|
||
index++;
|
||
}
|
||
|
||
/*
|
||
* if this is a QLPC marker, note that we are now in the LPC zone
|
||
* of the list. ie items before the QLPC marker are in the QLPC
|
||
* zone, items after the QLPC marker are in the LPC zone.
|
||
*/
|
||
if (strnicmp(ItemBuffer, szENDTRANSLATEQLPC, sizeof(szENDTRANSLATEQLPC)-1) == 0) {
|
||
fLPCZone = TRUE;
|
||
}
|
||
|
||
/*
|
||
* replace up to 4 instances of $$FOR_ALL$$ in the template
|
||
* with the current list item.
|
||
*/
|
||
if (mysubstr(pszTemplateLine, szForAll, "%s")) {
|
||
sprintf(szBuf, pszTemplateLine, ItemBuffer, ItemBuffer, ItemBuffer, ItemBuffer);
|
||
strcpy(pszTemplateLine, szBuf);
|
||
}
|
||
|
||
/*
|
||
* replace up to 4 instances of $$FOR_ALL45$$ in the template
|
||
* with the current list item.
|
||
*/
|
||
if (mysubstr(pszTemplateLine, szForAll45, "%-45s")) {
|
||
sprintf(szBuf, pszTemplateLine, ItemBuffer, ItemBuffer, ItemBuffer, ItemBuffer);
|
||
strcpy(pszTemplateLine, szBuf);
|
||
}
|
||
|
||
if (mysubstr(pszTemplateLine, szForAllButLast, "%s")) {
|
||
if (pchItemNext != NULL) {
|
||
/*
|
||
* replace up to 4 instances of $$FOR_ALL_BUT_LAST$$ in
|
||
* the template with the current list item.
|
||
*/
|
||
sprintf(szBuf, pszTemplateLine, ItemBuffer, ItemBuffer, ItemBuffer, ItemBuffer);
|
||
strcpy(pszTemplateLine, szBuf);
|
||
} else {
|
||
/*
|
||
* This template line does not apply to the last item
|
||
* so go on to the next template line.
|
||
*/
|
||
break;
|
||
}
|
||
}
|
||
|
||
if (mysubstr(pszTemplateLine, szForLast, "%s")) {
|
||
if (pchItemNext == NULL) {
|
||
/*
|
||
* replace up to 4 instances of $$FOR_LAST$$ in
|
||
* the template with the current list item.
|
||
*/
|
||
sprintf(szBuf, pszTemplateLine, ItemBuffer, ItemBuffer, ItemBuffer, ItemBuffer);
|
||
strcpy(pszTemplateLine, szBuf);
|
||
pchItem = NULL;
|
||
} else {
|
||
/*
|
||
* This item does not apply to anything but the last line,
|
||
* so don't output this line, just continue to the next
|
||
* item till we find the last one.
|
||
*/
|
||
continue;
|
||
}
|
||
}
|
||
|
||
/*
|
||
* replace up to 4 instances of $$FOR_ALL_UPPER$$ in the template
|
||
* with the current list item capitalized.
|
||
*/
|
||
if (mysubstr(pszTemplateLine, szForAllUpper, "%s")) {
|
||
strupr(ItemBuffer);
|
||
sprintf(szBuf, pszTemplateLine, ItemBuffer, ItemBuffer, ItemBuffer, ItemBuffer);
|
||
strcpy(pszTemplateLine, szBuf);
|
||
}
|
||
|
||
/*
|
||
* replace up to 4 instances of $$FOR_ALL_UPPER45$$ in the template
|
||
* with the current list item capitalized.
|
||
*/
|
||
if (mysubstr(pszTemplateLine, szForAllUpper45, "%-45s")) {
|
||
strupr(ItemBuffer);
|
||
sprintf(szBuf, pszTemplateLine, ItemBuffer, ItemBuffer, ItemBuffer, ItemBuffer);
|
||
strcpy(pszTemplateLine, szBuf);
|
||
}
|
||
|
||
/*
|
||
* print final form.
|
||
*/
|
||
printf("%s", pszTemplateLine);
|
||
}
|
||
|
||
pszTemplateLine = fgets(szTemplateLine, STRING_BUFFER_SIZE, TemplateFile);
|
||
}
|
||
}
|
||
|
||
|
||
|
||
int
|
||
_CRTAPI1 main( argc, argv )
|
||
int argc;
|
||
char *argv[];
|
||
{
|
||
char **ppsz;
|
||
|
||
if (!ProcessParameters( argc, argv )) {
|
||
|
||
fprintf( stderr, "usage: listmung [-p<char>] <symbol_list_file> <template>\n" );
|
||
fprintf( stderr, " Converts the elements in the list file into an output file\n" );
|
||
fprintf( stderr, " where the template dictates the format. Up to 4 instances of\n");
|
||
fprintf( stderr, " each of the following strings are substituted apropriately:\n");
|
||
ppsz = aKeyStrings;
|
||
while (*ppsz != NULL) {
|
||
fprintf( stderr, " %s\n", *ppsz++);
|
||
}
|
||
fprintf( stderr, " -p<char> substitutes <char> for $ in the previous strings.\n");
|
||
fprintf( stderr, " \"EndTranslate\" marks the end of a section\n");
|
||
fprintf( stderr, " \"EndTranslateQLPC\" marks the QLPC-LPC zone boundary.\n");
|
||
fprintf( stderr, " ; is a list comment and will be prepended by //.\n");
|
||
fprintf( stderr, " ;; is a list comment that will not be output.\n");
|
||
fprintf( stderr, " output is to stdout.\n");
|
||
|
||
return 1;
|
||
|
||
}
|
||
|
||
if ( (ListFile = fopen(ListName,"r")) == 0) {
|
||
fprintf(stderr,"LISTMUNG: Unable to open list file %s.\n", ListName);
|
||
return 1;
|
||
}
|
||
|
||
if ( (TemplateFile = fopen(TemplateName,"r")) == 0) {
|
||
fprintf(stderr,"LISTMUNG: Unable to open template file %s.\n", TemplateName);
|
||
return 1;
|
||
}
|
||
|
||
ProcessTemplate();
|
||
|
||
fclose(ListFile);
|
||
fclose(TemplateFile);
|
||
|
||
return( 0 );
|
||
}
|
||
|
||
|
||
|