summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/mf-supp-w32.ch
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c/mf-supp-w32.ch')
-rw-r--r--Build/source/texk/web2c/mf-supp-w32.ch77
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