summaryrefslogtreecommitdiff
path: root/indexing/glo+idxtex/glomiss.c
blob: a8376d19459ce33ee864376e093807a467e8cd14 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
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 <stdlib.h>
#include <io.h>
#define F_OK		0	/* access(): File exists	*/
#else
#include <sys/file.h>
extern char *sprintf();
#endif
#include <string.h>
#include <stdio.h>
#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);
}