diff options
Diffstat (limited to 'Build/source/texk/web2c/mf-supp-w32.ch')
-rw-r--r-- | Build/source/texk/web2c/mf-supp-w32.ch | 77 |
1 files changed, 0 insertions, 77 deletions
diff --git a/Build/source/texk/web2c/mf-supp-w32.ch b/Build/source/texk/web2c/mf-supp-w32.ch deleted file mode 100644 index 63793a92134..00000000000 --- a/Build/source/texk/web2c/mf-supp-w32.ch +++ /dev/null @@ -1,77 +0,0 @@ -@x -@!file_line_error_style_p:boolean; {output file:line:error style errors.} -@y -@!file_line_error_style_p:boolean; {output file:line:error style errors.} -@!halt_on_error_p:boolean; {stop at first error.} -@!quoted_filename : boolean; -@z - -@x - 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 -else begin print_char("."); show_context end; -@y -else begin print_char("."); show_context end; -if (halt_on_error_p) then begin - history:=fatal_error_stop; jump_out; -end; -@z - -@x -begin area_delimiter:=0; ext_delimiter:=0; -end; -@y -begin area_delimiter:=0; ext_delimiter:=0; -quoted_filename:=false; -end; -@z - -@x -begin if stop_at_space and ((c=" ")or(c=tab)) then more_name:=false -else begin if IS_DIR_SEP (c) then -@y -begin -if c="""" then begin - quoted_filename:=not quoted_filename; - more_name:=true; -end; -if ((c=" ")or(c=tab)) and stop_at_space and (not quoted_filename) then more_name:=false -else begin - if (c="*") then c:=" " - else if (c="?") then c:="~"; - if IS_DIR_SEP (c) then -@z - -@x -@<Basic printing...@>= -procedure print_file_name(@!n,@!a,@!e:integer); -begin slow_print(a); slow_print(n); slow_print(e); -end; -@y -@d print_file_name==texmf_print_file_name -@z - -@x -@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 -@p begin @!{|start_here|} -@y -@p begin @!{|start_here|} - - texmf_start_job; -@z |