[tex-live] src specials fixes

Olaf Weber olaf@infovore.xs4all.nl
31 May 2002 22:44:00 +0200


Proposed changes (diffs for tex.ch, texmfmp.c).

cvs diff -u tex.ch lib/texmfmp.c 
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 20:39:34 -0000
@@ -537,6 +537,7 @@
 {Variables for source specials}
 @!special_loc:pointer;
 @!special_token:halfword;
+@!src_specials_option : 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_option 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_option 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 18:16:28 -0000
@@ -113,7 +113,6 @@
 /* Needed for --src-specials option. */
 static char *last_source_name;
 static int last_lineno;
-static boolean srcspecialsoption = false;
 static void parse_src_specials_option P1H(const_string);
 
 /* The main body of the WEB is transformed into this procedure.  */



Proposed diff for comsrcspec.ch.  Will do for 1.23, may fit 1.15 as
well.


texk/web2c/omegadir$ diff -u comsrcspec.ch~ comsrcspec.ch
--- comsrcspec.ch~      Sun Nov 11 18:07:06 2001
+++ comsrcspec.ch       Fri May 31 21:18:42 2002
@@ -7,6 +7,7 @@
 
 @!file_line_error_style_p:boolean; {output error messages with a C style. }
 
+@!src_specials_option : boolean;
 @!insert_src_special_auto : boolean;
 @!insert_src_special_every_par : boolean;
 @!insert_src_special_every_parend : boolean;


-- 
Olaf Weber

               (This space left blank for technical reasons.)