59 open_clpars_h(FILE **ofile)  in open_clpars_h()  argument
61 open_clpars_h(ofile)  in open_clpars_h()
62 FILE **ofile;  in open_clpars_h()
65 	*ofile = fopen("clpars.h","w");
66 	if (*ofile == NULL)
78 write_line(char *obuf, FILE *ofile)  in write_line()  argument
80 write_line(obuf, ofile)  in write_line()
82 FILE *ofile;
85 	if (fputs(obuf, ofile) == EOF)
97 write_header(FILE *ofile)  in write_header()  argument
99 write_header(ofile)  in write_header()
100 FILE *ofile;  in write_header()
103 	write_line("/*\n", ofile);
104 	write_line(" * This file was created by the GENCLP program.\n",ofile);
105 	write_line(" * It should not be edited.  To make changes,\n", ofile);
106 	write_line(" * change the CLPARS.TES file,  then squeeze\n", ofile);
107 	write_line(" * CLPARS.TES to produce the CLPARS.TEC file,\n", ofile);
108 	write_line(" * then run GENCLP to produce this file.\n", ofile);
109 	write_line(" */\n", ofile);
135 close_clpars_h(FILE *ofile)  in close_clpars_h()  argument
137 close_clpars_h(ofile)  in close_clpars_h()
138 FILE *ofile;  in close_clpars_h()
141 	if (fclose(ofile) != 0)
154 	FILE *ofile,  in cnvrt()  argument
157 cnvrt(ifile, ofile, ANSI_style)  in cnvrt()
159 FILE *ofile;
201 				write_line(oline, ofile);
210 	write_line(oline, ofile);
212 	write_line("};\n", ofile);
214 	write_line(oline, ofile);
218 		write_line(oline, ofile);
231 	FILE *ifile, *ofile;  in main()  local
233 	open_clpars_h(&ofile);  in main()
239 	write_header(ofile);  in main()
240 	write_line("#if USE_ANSI_CLPARS\n", ofile);  in main()
241 	write_line("unsigned const char clpars[] = {\n", ofile);  in main()
242 	cnvrt(ifile, ofile, TRUE);  in main()
249 	write_line("#else\n", ofile);  in main()
250 	write_line("char *clpars[] = {\n", ofile);  in main()
251 	cnvrt(ifile, ofile, FALSE);  in main()
254 	write_line("#endif\n", ofile);  in main()
255 	close_clpars_h(ofile);  in main()