From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 2 Sep 2019 13:46:59 +0900 Subject: Initial commit --- indexing/glo+idxtex/glomiss.c | 145 ++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 145 insertions(+) create mode 100644 indexing/glo+idxtex/glomiss.c (limited to 'indexing/glo+idxtex/glomiss.c') diff --git a/indexing/glo+idxtex/glomiss.c b/indexing/glo+idxtex/glomiss.c new file mode 100644 index 0000000000..a8376d1945 --- /dev/null +++ b/indexing/glo+idxtex/glomiss.c @@ -0,0 +1,145 @@ +/* #module GloMiss "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: GloMiss + * + * Author: R L Aurbach CR&DS MIS Group 22-Aug-1986 + * + * Function: + * Report those labels for which no glossary entry was found. + * + * Modification History: + * + * Version Initials Date Description + * ------------------------------------------------------------------------ + * 1-001 RLA 22-Aug-1986 Original Code + * 2-001 F.H. 17-May-1991 converted to portable C + */ +/* + * Module GloMiss - Module-Wide Data Description Section + * + * Include Files: + */ +#ifdef MSDOS +#include +#include +#define F_OK 0 /* access(): File exists */ +#else +#include +extern char *sprintf(); +#endif +#include +#include +#include "GloDef.h" +/* + * Module Definitions: + */ +/* + * Global Declarations: + */ +#ifdef MSDOS +int Glo_Report_Missing(void); +#else +int Glo_Report_Missing(); +#endif +/* + * Static Declarations: + */ +/* + * External References: + */ +extern STRING_PTR labels; +extern char infile[256]; +/* + * Functions Called: + */ +/* + * Function Glo_Report_Missing - Documentation Section + * + * Discussion: + * Report the labels for which no definition has been found in any + * glossary definition file. The report is made both to SYS$OUTPUT and + * to a glossary log file (.glg file). + * + * Calling Synopsis: + * status = Glo_Report_Missing () + * + * Inputs: + * none + * + * Outputs: + * none + * + * Return Value: + * status -> is a boolean integer. It indicates success or + * failure of the operation. + * + * Global Data: + * none + * + * Files Used: + * none + * + * Assumed Entry State: + * none + * + * Normal Exit State: + * status == TRUE success. + * + * Error Conditions: + * status == FALSE failure + * + * Algorithm: + * A. Open the output file. + * B. For each leaf in the labels list, + * 1. Report the value of the label. + * + * Special Notes: + * none + */ +/* + * Function Glo_Report_Missing - Code Section + */ +int Glo_Report_Missing () +{ +/* + * Local Declarations + */ + STRING_PTR token; + char dna[256]; + FILE *f; +/* + * Module Body + */ + if (labels == 0) return(TRUE); +/* Open the output file */ + (void)sprintf(dna, "%s.glg", infile); + f = fopen(dna, "w"); + (void)fprintf(f,"GloTeX Log File\n\n"); + (void)fprintf(f,"Processing input file \'%s.glo\'\n\n", infile); + token = labels; + while (token != 0) { + if ((strlen(token->desc)) > 0) { + (void)printf("The label \'%s\' ", token->desc); + (void)printf("was not found in any glossary definition file\n"); + (void)fprintf(f,"The label \'%s\' ", token->desc); + (void)fprintf(f,"was not found in any glossary definition file\n"); + } + token = token->next; + } + (void)fclose(f); + return (TRUE); +} -- cgit v1.2.3