diff options
Diffstat (limited to 'Build/source/texk/web2c/alephdir/comw32.ch')
-rw-r--r-- | Build/source/texk/web2c/alephdir/comw32.ch | 77 |
1 files changed, 0 insertions, 77 deletions
diff --git a/Build/source/texk/web2c/alephdir/comw32.ch b/Build/source/texk/web2c/alephdir/comw32.ch deleted file mode 100644 index 12afcb2d09e..00000000000 --- a/Build/source/texk/web2c/alephdir/comw32.ch +++ /dev/null @@ -1,77 +0,0 @@ -@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 |