summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/omegadir-1.15/comw32.ch
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c/omegadir-1.15/comw32.ch')
-rw-r--r--Build/source/texk/web2c/omegadir-1.15/comw32.ch77
1 files changed, 77 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/omegadir-1.15/comw32.ch b/Build/source/texk/web2c/omegadir-1.15/comw32.ch
new file mode 100644
index 00000000000..12afcb2d09e
--- /dev/null
+++ b/Build/source/texk/web2c/omegadir-1.15/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