/* #module GloCmd "2-001" *********************************************************************** * * * The software was developed at the Monsanto Company and is provided * * "as-is". Monsanto Company and the auther disclaim all warranties * * on the software, including without limitation, all implied warran- * * ties of merchantabilitiy and fitness. * * * * This software does not contain any technical data or information * * that is proprietary in nature. It may be copied, modified, and * * distributed on a non-profit basis and with the inclusion of this * * notice. * * * *********************************************************************** */ /* * Module Name: GloCmd * * Author: R L Aurbach CR&DS MIS Group 18-Aug-1986 * * Function: * This routine parses the GloTeX Command Line, and returns the name of * the input file, a flag which specifies the style of treatment for the * output file, and optionally, a list of files for the glossary definition * file. * * Modification History: * * Version Initials Date Description * ------------------------------------------------------------------------ * 1-001 RLA 18-Aug-1986 Original Code * 2-001 F.H. 17-May-1991 converted to portable C */ /* * $Id: glocmd.c 3.0.1.2 1994/04/04 22:42:59 steppler Exp $ * * $Log: glocmd.c $ * Revision 3.0.1.2 1994/04/04 22:42:59 steppler * real official release now * * Revision 3.0.1.1 1994/04/04 18:00:23 steppler * corrected use of prototypes * * Revision 3.0 1994/04/03 22:14:05 steppler * official release * added env var support (GLOOPTS) * * Revision 2.1.2.1 1994/04/03 19:00:28 steppler * upgrade to new revision only * * Revision 2.1.1.2 1994/04/03 18:27:00 steppler * Glo_Command(): free() malloc()ed memory on failure * * Revision 2.1.1.1 1994/04/02 18:59:50 steppler * use complete prototypes only * * */ /* * Module GloCmd - Module-Wide Data Description Section * * Include Files: */ #include #include #include #include #include "GloDef.h" /* * Module Definitions: */ /* * Global Declarations: */ void Glo_Command(int argc, char *argv[]); /* * Static Declarations: */ /* * External References: */ extern STRING_PTR filelist; extern int flag; extern char infile[256]; /* * Functions Called: */ /* * Function Glo_Command - Documentation Section * * Discussion: * This routine uses lib$get_foreign to read the command line. It * prefixes the command line with "GloTeX ", so that the CLI routines * will have the appropriate information on which to operate. It then * parses the command line and returns the appropriate information to the * program. * * Since the routine establishes LIB$SIG_TO_STOP as a condition handler, * syntax errors detected during processing result in program exit. * * Calling Synopsis: * Call Glo_Command () * * Inputs: * none * * Outputs: * none * * Return Value: * none * * Global Data: * infile -> contains the name of the input file as an ASCIZ string. * * flag -> indicates the value of the /STYLE qualifier. * * filelist -> is updated to contain a list of file specifications. * * Files Used: * none * * Assumed Entry State: * GloTeX is invoked as a foreign DCL command. * * Normal Exit State: * The routine returns to the caller. The global variables are set up * appropriately. * * Error Conditions: * For the majority of the processing of the routine, LIB$SIG_TO_STOP * is established as the condition handler. Therefore, any errors cause * an immediate exit. * * Algorithm: * A. Call Lib$Get_Foreign to retrieve the command line. * B. Prefix the command line with the command verb. * C. Call Cli$DCL_Parse to parse the command line. * D. Process the file name. * 1. Get the file name. * 2. Convert it to an ASCIZ string. * E. Process the /STYLE qualifier. * F. Process the /GLOSSARY qualifier. * * Special Notes: * This routine is based on the LIB_PARSE_FOREIGN routine, suitably * modified. */ /* * Function Glo_Command - Code Section */ void Glo_Command(int argc, char *argv[]) { /* * Local Declarations */ int status; STRING_PTR file; STRING_PTR old; int i, j, clen; char dummy[linesz]; char *gloenv = NULL; char gloopts[256]; /* * Module Body */ /* get env variable */ gloenv = getenv("GLOOPTS"); if (gloenv && *gloenv) { char *qual_ptr; int pos; strcpy (gloopts, gloenv); /* Process the /STYLE qualifier */ qual_ptr = strstr(gloopts, "/STYLE="); pos = 7; if (!qual_ptr) { qual_ptr = strstr(gloopts, "-s "); pos = 3; } if (qual_ptr) { if (qual_ptr[pos] == 'A') flag = ARTICLE; else if (qual_ptr[pos] == 'R') flag = REPORT; else flag = NONE; } /* Process the /GLOSSARY qualifier */ qual_ptr = strstr(gloopts, "/GLOSSARY="); pos = 10; if (!qual_ptr) { qual_ptr = strstr(gloopts, "-g "); pos = 3; } if (qual_ptr) { char *space_ptr = strchr(&qual_ptr[pos], ' '); if (space_ptr) *space_ptr = '\0'; clen = strlen(qual_ptr); j = pos; while (TRUE) { file = (STRING_PTR) malloc(sizeof(STRING)); if (file == 0) break; file->next = 0; file->desc = NULL; (void) sscanf(&qual_ptr[j], "%[^, ]", dummy); file->desc = strdup(dummy); status = 0; if (file->desc[0] != '\0') { status = 1; j += (strlen(file->desc) + 1); if (j > (clen + 1)) status = 0; } if (!status) { if (file->desc) free (file->desc); free (file); break; } old = filelist; if (filelist == 0) filelist = file; else { while (old->next != 0) old = old->next; old->next = file; } } } } /* Get the command line */ /* Parse the command line */ /* Get the filename string */ (void) sprintf(infile, "%s", argv[1]); i = 2; /* Process the /STYLE qualifier */ if (argc > i) { int pos = -1; if (strncmp("/STYLE", argv[i], 6) == 0) pos = 7; if (!strcmp("-s", argv[i])) { pos = 0; i++; } if (argc > i) { if (pos > -1) { if (argv[i][pos] == 'A') flag = ARTICLE; else if (argv[i][pos] == 'R') flag = REPORT; else flag = NONE; i++; } } } /* Process the /GLOSSARY qualifier */ if (argc > i) { int pos = -1; if ((strncmp("/GLOSSARY", argv[i], 9)) == 0) pos = 10; if (!strcmp("-g", argv[i])) { pos = 0; i++; } if (pos > -1 && argc > i) { clen = strlen(argv[i]); j = pos; while (TRUE) { file = (STRING_PTR) malloc(sizeof(STRING)); if (file == 0) break; file->next = 0; file->desc = NULL; (void) sscanf(&argv[i][j], "%[^, ]", dummy); file->desc = strdup(dummy); status = 0; if (file->desc[0] != '\0') { status = 1; j += (strlen(file->desc) + 1); if (j > (clen + 1)) status = 0; } if (!status) { if (file->desc) free (file->desc); free (file); return; } old = filelist; if (filelist == 0) filelist = file; else { while (old->next != 0) old = old->next; old->next = file; } } } } }