[tex-live] src specials fixes

[Olaf Weber]

As usual, a glitch.  New suggestion (the change for comsrcspec.ch is
the obvious one):

Index: tex.ch
===================================================================
RCS file: /usr/local/cvsroot/texk/texk/web2c/tex.ch,v
retrieving revision 1.43
diff -u -r1.43 tex.ch
--- tex.ch      17 Dec 2001 20:02:24 -0000      1.43
+++ tex.ch      31 May 2002 23:02:58 -0000
@@ -537,6 +537,7 @@
 {Variables for source specials}
 @!special_loc:pointer;
 @!special_token:halfword;
+@!src_specials_p : boolean;{Whether src_specials are enabled at all}
 @!insert_src_special_auto : boolean;
 @!insert_src_special_every_par : boolean;
 @!insert_src_special_every_parend : boolean;
@@ -865,6 +866,9 @@
 wterm(version_string);
 if format_ident>0 then slow_print(format_ident);
 print_ln;
+if src_specials_p then begin
+  wterm_ln('Source specials enabled.')
+end;
 if translate_filename then begin
   wterm('(');
   fputs(translate_filename, stdout);
@@ -1737,9 +1741,15 @@
 months := ' JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC';
 @z
 
-@x [29/536] l.10331 - Print TCX name if one's given.
+% Print whether we're using src-specials.
+% Print TCX name if one's given.
+@x [29/536] l.10331
 end
 @y
+if src_specials_p then begin
+  wlog_cr;
+  wlog('Source specials enabled.')
+end;
 if translate_filename then begin
   wlog_cr;
   wlog('(');
Index: lib/texmfmp.c
===================================================================
RCS file: /usr/local/cvsroot/texk/texk/web2c/lib/texmfmp.c,v
retrieving revision 1.67
diff -u -r1.67 texmfmp.c
--- lib/texmfmp.c       2 Apr 2002 19:18:10 -0000       1.67
+++ lib/texmfmp.c       31 May 2002 23:02:24 -0000
@@ -113,7 +113,7 @@
 /* Needed for --src-specials option. */
 static char *last_source_name;
 static int last_lineno;
-static boolean srcspecialsoption = false;
+static boolean srcspecialsoption;
 static void parse_src_specials_option P1H(const_string);
 
 /* The main body of the WEB is transformed into this procedure.  */
@@ -767,6 +767,7 @@
          insertsrcspecialeverypar = true;
          insertsrcspecialauto = true;
          srcspecialsoption = true;
+         srcspecialsp = true;
        } else {
           parse_src_specials_option(optarg);
        }
@@ -865,6 +866,10 @@
     tok = strtok(0, ", ");
   }
   free(toklist);
+  srcspecialsp=insertsrcspecialauto | insertsrcspecialeverypar |
+    insertsrcspecialeveryparend | insertsrcspecialeverycr |
+    insertsrcspecialeverymath |  insertsrcspecialeveryhbox |
+    insertsrcspecialeveryvbox | insertsrcspecialeverydisplay;
   srcspecialsoption = true;
 }
 #endif

-- 
Olaf Weber

               (This space left blank for technical reasons.)