@x
@ This is the third phase.
@a
SRTN phase_three(VOID)
{
if (no_xref)
{
finish_line();
out_str("\\vfill\\end"); @+ finish_line();
}
else
{
phase=3; printf("\nWriting the index...");
if (change_exists)
{
finish_line(); @<Tell about changed modules@>;
}
finish_line();
out_str(w_style.indx.preamble); @+ finish_line();
@.\\Winx@>
@<Do the first pass of sorting@>;
@<Sort and output the index@>;
out_str(w_style.indx.postamble); @+ finish_line();
@.\\Wfin@>
@<Print the command line, etc.@>;
@<Output all the module names@>;
out_str("\\Wcon"); @+ finish_line();
@.\\Wcon@>
}
printf("Done.");
check_complete(); /* Was all of the change file used? */
}
@y
@ This is the third phase.
@a
SRTN phase_three(VOID)
{
if (no_xref) {
finish_line();
out_str("\\vfill\\end"); @+ finish_line();
}
else
{
phase=3; printf("\nWriting the index...");
finish_line();
out_str("\\input INDEX"); finish_line(); finish_line();
out_str("\\input MODULE_NAMES"); finish_line();
out_str("\\bigskip");
@<Print the command line, etc.@>;
out_str("\\Wcon"); @+ finish_line();
@.\\Wcon@>
fclose(tex_file);
if ((tex_file=fopen("INDEX.tex","w"))==NULL)
fatal("! Cannot open ouput file ","INDEX.tex");
if (change_exists) {
@<Tell about changed modules@>;
finish_line(); finish_line(); }
out_str(w_style.indx.preamble); @+ finish_line();
@.\\Winx@>
@<Do the first pass of sorting@>;
@<Sort and output the index@>;
out_str(w_style.indx.postamble); @+ finish_line();
@.\\Wfin@>
fclose(tex_file);
if ((tex_file=fopen("MODULE_NAMES.tex","w"))==NULL)
fatal("! Cannot open ouput file ","MODULE_NAMES.tex");
@<Output all the module names@>;
fclose(tex_file); }
printf("Done. aTm 1.00");
check_complete(); /* Was all of the change file used? */
}
@z
