Leaked source code of windows server 2003
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

337 lines
9.9 KiB

/*++
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
Revision History:
--*/
#include <assert.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
#include <windef.h>
#define STRING_BUFFER_SIZE 120
char StringBuffer[STRING_BUFFER_SIZE];
char ItemBuffer[STRING_BUFFER_SIZE];
char ItemBuffer2[STRING_BUFFER_SIZE];
char *ListName, *TemplateName;
FILE *ListFile, *TemplateFile;
char szBEGINTRANSLATE[] = "BeginTranslate";
char szENDTRANSLATE[] = "EndTranslate";
char szENDTRANSLATEQLPC[] = "EndTranslateQLPC";
BOOL IsTranslateTag(char * pBuffer)
{
return (_strnicmp(pBuffer, szBEGINTRANSLATE, sizeof(szBEGINTRANSLATE)-1) == 0)
|| (_strnicmp(pBuffer, szENDTRANSLATE, sizeof(szENDTRANSLATE)-1) == 0);
}
BOOL IsCommentOrTag(char * pBuffer)
{
return ((*pBuffer == ';') || IsTranslateTag(pBuffer));
}
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 )) {
default:
return 0;
}
} else {
ListName = *argv++;
TemplateName = *argv++;
return (ListName && TemplateName);
}
}
return 0;
}
BOOL mysubstr(
char *s,
char *find,
char *put)
{
char *p;
if (p = strstr(s, find)) {
strcpy(p, put);
strcpy(p + strlen(put), p + strlen(find)); // find > put!
return(TRUE);
}
return(FALSE);
}
VOID myprint(
char *s,
char *item,
int index)
{
if (strstr(s, "%d") || mysubstr(s, "%%INDEX%%", "%d")) {
printf(s, item, index);
} else {
printf(s, item);
}
}
//+---------------------------------------------------------------------------
//
// Function: myfgets
//
// Synopsis: Calls fgets to read a string from a file.
// It ignores empty lines or lines starting with a blank character
//
// This is needed when the input file was generated by the
// compiler preprocessor. Using the preprocessor allows us
// to use #idfdef, #inlcude, etc in the original list file.
//
// Arguments: [pszBuff] -- Buffer to store the string
// [iBuffSize] -- Buffer size
// [pFile] -- Pointer to the file to read
//
// Return [pszRet] -- Pointer to pszBuff if succesful read. NULL otherwise.
//----------------------------------------------------------------------------
char * myfgets(
char * pszBuff,
int iBuffSize,
FILE * pFile)
{
char *pszRet;
while (pszRet = fgets(pszBuff, iBuffSize, pFile)) {
if ((*pszRet == '\n') || (*pszRet == ' ')) {
continue;
} else {
break;
}
}
return pszRet;
}
//+---------------------------------------------------------------------------
//
// Function: SkipCommentsAndTags
//
// Synopsis: Calls myfgets to read a string from a file.
// It ignores lines starting with ; (ie, comments) and lines
// containing the Begin/EndTranslate tags.
//
// Arguments: [pszBuff] -- Buffer to store the string
// [iBuffSize] -- Buffer size
// [pFile] -- Pointer to the file to read
//
// Return [pszRet] -- Pointer to pszBuff if succesful read. NULL otherwise.
//----------------------------------------------------------------------------
char * SkipCommentsAndTags(
char * pszBuff,
int iBuffSize,
FILE * pFile)
{
char *pszRet;
while (pszRet = myfgets(pszBuff, iBuffSize, pFile)) {
if (IsCommentOrTag(pszRet)) {
continue;
} else {
break;
}
}
return pszRet;
}
void
ProcessTemplate( void )
{
char *s;
char *pchItem;
char *pchLastItem;
int index;
s = fgets(StringBuffer,STRING_BUFFER_SIZE,TemplateFile);
while ( s ) {
if (mysubstr(s, "%%FOR_ALL_UPPER%%", "%-45s")) {
rewind(ListFile);
index = 0;
while (pchItem = myfgets(ItemBuffer, STRING_BUFFER_SIZE, ListFile)) {
if (ItemBuffer[0] != ';') {
pchItem[strlen(pchItem) - 1] = '\0'; // strip off \n
pchItem = _strupr(pchItem);
if (IsTranslateTag(ItemBuffer)) {
myprint(s, pchItem, index);
} else {
myprint(s, pchItem, index++);
}
} else {
printf("// %s", ItemBuffer);
}
}
} else if (mysubstr(s, "%%FOR_ALL%%", "%s")) {
rewind(ListFile);
index = 0;
while (pchItem = myfgets(ItemBuffer, STRING_BUFFER_SIZE, ListFile)) {
if (ItemBuffer[0] != ';') {
pchItem[strlen(pchItem) - 1] = '\0'; // strip off \n
myprint(s, pchItem, index++);
}
}
} else if (mysubstr(s, "%%FOR_ALL_QLPC%%", "%s")) {
rewind(ListFile);
index = 0;
while (pchItem = myfgets(ItemBuffer, STRING_BUFFER_SIZE, ListFile)) {
if (ItemBuffer[0] != ';') {
pchItem[strlen(pchItem) - 1] = '\0'; // strip off \n
if (_strnicmp(ItemBuffer, szENDTRANSLATEQLPC, sizeof(szENDTRANSLATEQLPC)-1) == 0)
break;
myprint(s, pchItem, index++);
}
}
} else if (mysubstr(s, "%%FOR_ALL_LPC%%", "%s")) {
rewind(ListFile);
index = 0;
while (pchItem = myfgets(ItemBuffer, STRING_BUFFER_SIZE, ListFile)) {
if (ItemBuffer[0] != ';') {
pchItem[strlen(pchItem) - 1] = '\0'; // strip off \n
if (_strnicmp(ItemBuffer, szENDTRANSLATEQLPC, sizeof(szENDTRANSLATEQLPC)-1) == 0)
break;
}
}
while (pchItem = myfgets(ItemBuffer, STRING_BUFFER_SIZE, ListFile)) {
if (ItemBuffer[0] != ';') {
pchItem[strlen(pchItem) - 1] = '\0'; // strip off \n
myprint(s, pchItem, index++);
}
}
} else if (mysubstr(s, "%%FOR_ALL_BUT_LAST%%", "%s")) {
rewind(ListFile);
index = 0;
pchLastItem = SkipCommentsAndTags(ItemBuffer, STRING_BUFFER_SIZE, ListFile);
if (pchLastItem != NULL) {
pchLastItem[strlen(pchLastItem) - 1] = '\0'; // strip off \n
while (pchItem = myfgets(ItemBuffer2, STRING_BUFFER_SIZE, ListFile)) {
if (!IsCommentOrTag(pchItem)) {
pchItem[strlen(pchItem) - 1] = '\0'; // strip off \n
myprint(s, pchLastItem, index++); // Write previous line
strcpy(pchLastItem, pchItem); // Save current line
}
}
} else {
fprintf(stderr,"LISTMUNG: FOR_ALL_BUT_LAST: no lines found\n");
}
} else if (mysubstr(s, "%%FOR_LAST%%", "%s")) {
rewind(ListFile);
index = 0;
pchLastItem = SkipCommentsAndTags(ItemBuffer, STRING_BUFFER_SIZE, ListFile);
if (pchLastItem != NULL) {
pchLastItem[strlen(pchLastItem) - 1] = '\0'; // strip off \n
while (pchItem = myfgets(ItemBuffer2, STRING_BUFFER_SIZE, ListFile)) {
if (!IsCommentOrTag(pchItem)) {
pchItem[strlen(pchItem) - 1] = '\0'; // strip off \n
strcpy(pchLastItem, pchItem); // Save current line
index++;
}
}
myprint(s, pchLastItem, index); // Write Last line.
} else {
fprintf(stderr,"LISTMUNG: FOR_LAST: no lines found\n");
}
} else {
printf("%s", s);
}
s = fgets(StringBuffer,STRING_BUFFER_SIZE,TemplateFile);
}
}
int
__cdecl main( argc, argv )
int argc;
char *argv[];
{
if (!ProcessParameters( argc, argv )) {
fprintf( stderr, "Stub File Generation Utility. Version: 1.1\n" );
fprintf( stderr, "usage: listmung <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. The following strings\n");
fprintf( stderr, " are substituted apropriately:\n");
fprintf( stderr, " %%FOR_ALL%%\n");
fprintf( stderr, " %%FOR_ALL_UPPER%%\n");
fprintf( stderr, " %%FOR_ALL_BUT_LAST%%\n");
fprintf( stderr, " %%FOR_LAST%%\n");
fprintf( stderr, " %%INDEX%%\n");
fprintf( stderr, " output is to stdout.\n");
return 1;
}
if ( (ListFile = fopen(ListName,"r")) == 0) {
fprintf(stderr,"LISTMUNG: Unable to open list file.\n");
return 1;
}
if ( (TemplateFile = fopen(TemplateName,"r")) == 0) {
fprintf(stderr,"LISTMUNG: Unable to open template file.\n");
return 1;
}
ProcessTemplate();
fclose(ListFile);
fclose(TemplateFile);
return( 0 );
}