texk 1

git-svn-id: svn://tug.org/texlive/trunk@1485 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 77 insertions, 0 deletions

diff --git a/Build/source/texk/web2c/alephdir/comw32.ch b/Build/source/texk/web2c/alephdir/comw32.ch
new file mode 100644
index 00000000000..12afcb2d09e
--- /dev/null
+++ b/Build/source/texk/web2c/alephdir/comw32.ch
@@ -0,0 +1,77 @@
+@x
+@!file_line_error_style_p:boolean; {output error messages with a C style. }
+@y
+@!file_line_error_style_p:boolean; {format error messages as file:line:error}
+@!halt_on_error_p:boolean; {stop at first error.}
+@!quoted_filename : boolean;
+@z
+
+@x l:1927
+   ready_already:=0;
+   if (history <> spotless) and (history <> warning_issued) then
+@y
+   ready_already:=0;
+   texmf_finish_job;
+   if (history <> spotless) and (history <> warning_issued) then
+@z
+
+@x l:10101
+begin area_delimiter:=0; ext_delimiter:=0;
+@y
+begin area_delimiter:=0; ext_delimiter:=0;
+quoted_filename:=false;
+@z
+
+@x l:10111
+begin if c=" " then more_name:=false
+else  begin str_room(1); append_char(c); {contribute |c| to the current string}
+@y
+begin
+if c="""" then begin
+  quoted_filename:=not quoted_filename;
+  more_name:=true;
+end;
+if (c=" ") and (not quoted_filename) then more_name:=false
+else  begin
+  if (c="*") then c:=" "
+  else if (c="?") then c:="~";
+  str_room(1); append_char(c); {contribute |c| to the current string}
+@z
+
+@x l:10175
+begin slow_print(a); slow_print(n); slow_print(e);
+@y
+begin texmf_print_filename (a, n, e);
+@z
+
+@x l:10184
+@d append_to_name(#)==begin c:=#; incr(k);
+  if k<=file_name_size then name_of_file[k]:=xchr[c];
+  end
+@y
+@d append_to_name(#)==begin c:=#; if not (c="""") then begin incr(k);
+  if k<=file_name_size then name_of_file[k]:=xchr[c];
+  end end
+@z
+
+@x l:13060
+  print_nl("Output written on "); slow_print(output_file_name);
+@y
+  print_nl("Output written on "); texmf_print_filename(0, output_file_name, 0);
+@z
+
+@x
+begin @!{|start_here|}
+@y
+begin @!{|start_here|}
+
+  texmf_start_job;
+@z
+
+@x l:24891
+    slow_print(log_name); print_char(".");
+    end;
+@y
+    texmf_print_filename(0, log_name, 0); print_char(".");
+    end;
+@z