diff options
author | Karl Berry <karl@freefriends.org> | 2006-01-17 21:41:51 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-01-17 21:41:51 +0000 |
commit | 487ca4806cc046076293cf6cc5fbba0db282bac7 (patch) | |
tree | 847b412ab5158dd7bdd7ed7e5a4cc3fbca94be32 /Build/source/texk/web2c/mp-supp-w32.ch | |
parent | a3d3111bfe26b8e5f5bc6049dfb2a4ca2edc7881 (diff) |
texk 1
git-svn-id: svn://tug.org/texlive/trunk@1485 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/mp-supp-w32.ch')
-rw-r--r-- | Build/source/texk/web2c/mp-supp-w32.ch | 77 |
1 files changed, 77 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/mp-supp-w32.ch b/Build/source/texk/web2c/mp-supp-w32.ch new file mode 100644 index 00000000000..4f1ab17377c --- /dev/null +++ b/Build/source/texk/web2c/mp-supp-w32.ch @@ -0,0 +1,77 @@ +@x +@!file_line_error_style_p:boolean; {file:line:error style messages.} +@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 +area_delimiter:=-1; ext_delimiter:=-1; +end; +@y +area_delimiter:=-1; ext_delimiter:=-1; +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 print(a); print(n); 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 |