summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/mp-supp-w32.ch
blob: 4f1ab17377cfec20300f970465be991b04357dd4 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
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