summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/omegaware
diff options
context:
space:
mode:
authorPeter Breitenlohner <peb@mppmu.mpg.de>2014-01-11 12:21:20 +0000
committerPeter Breitenlohner <peb@mppmu.mpg.de>2014-01-11 12:21:20 +0000
commit7281a389c2ba0012ed7f9fa2492d1f66e7e1ae0b (patch)
treec3f43cb70f9fe081937d5227606bf8a0f5f25ed7 /Build/source/texk/web2c/omegaware
parent757ba356f7d2bd2003c5bc74ecfa928d8bfdcc08 (diff)
web2c/omegaware: Fix glitches in online printing of progress report
git-svn-id: svn://tug.org/texlive/trunk@32636 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/omegaware')
-rw-r--r--Build/source/texk/web2c/omegaware/ChangeLog5
-rw-r--r--Build/source/texk/web2c/omegaware/ofm2opl.ch4
-rw-r--r--Build/source/texk/web2c/omegaware/ofm2opl.web6
-rw-r--r--Build/source/texk/web2c/omegaware/opl2ofm.ch4
-rw-r--r--Build/source/texk/web2c/omegaware/opl2ofm.web6
-rw-r--r--Build/source/texk/web2c/omegaware/ovf2ovp.ch16
-rw-r--r--Build/source/texk/web2c/omegaware/ovf2ovp.web3
-rw-r--r--Build/source/texk/web2c/omegaware/ovp2ovf.ch4
-rw-r--r--Build/source/texk/web2c/omegaware/ovp2ovf.web6
9 files changed, 33 insertions, 21 deletions
diff --git a/Build/source/texk/web2c/omegaware/ChangeLog b/Build/source/texk/web2c/omegaware/ChangeLog
index a49d65479c9..efc74746a40 100644
--- a/Build/source/texk/web2c/omegaware/ChangeLog
+++ b/Build/source/texk/web2c/omegaware/ChangeLog
@@ -1,3 +1,8 @@
+2014-01-11 Peter Breitenlohner <peb@mppmu.mpg.de>
+
+ * {ofm2opl,opl2ofm,ovf2ovp,ovp2ovf}.{ch,web}: Fix glitches in
+ online printing of progress report.
+
2014-01-10 Peter Breitenlohner <peb@mppmu.mpg.de>
* opl2ofm.up, ovp2ovf.up: Update module numbers.
diff --git a/Build/source/texk/web2c/omegaware/ofm2opl.ch b/Build/source/texk/web2c/omegaware/ofm2opl.ch
index e437a5b1464..05a6ace2e8e 100644
--- a/Build/source/texk/web2c/omegaware/ofm2opl.ch
+++ b/Build/source/texk/web2c/omegaware/ofm2opl.ch
@@ -227,7 +227,7 @@ f:=((tfm[k+1] mod 16)*intcast(@'400)+tfm[k+2])*@'400+tfm[k+3];
incr(chars_on_line);
end;
if no_repeats(c)>0 then begin
- print_hex(c); print('-'); print_hex(c+no_repeats(c));
+ print_hex(c); print('-'); print_hex(c+no_repeats(c)); incr(chars_on_line);
left; out('CHARREPEAT'); out_char(c); out_char(no_repeats(c)); out_ln;
end
else begin
@@ -239,7 +239,7 @@ f:=((tfm[k+1] mod 16)*intcast(@'400)+tfm[k+2])*@'400+tfm[k+3];
end;
if no_repeats(c)>0 then begin
if verbose then begin
- print_hex(c); print('-'); print_hex(c+no_repeats(c));
+ print_hex(c); print('-'); print_hex(c+no_repeats(c)); incr(chars_on_line);
end;
left; out('CHARREPEAT'); out_char(c); out_char(no_repeats(c)); out_ln;
end
diff --git a/Build/source/texk/web2c/omegaware/ofm2opl.web b/Build/source/texk/web2c/omegaware/ofm2opl.web
index 6e3f442ca79..0c678907aaf 100644
--- a/Build/source/texk/web2c/omegaware/ofm2opl.web
+++ b/Build/source/texk/web2c/omegaware/ofm2opl.web
@@ -1195,7 +1195,7 @@ to keep track of how many are currently there. We also keep track of
whether or not any errors have had to be corrected.
@<Glob...@>=
-@!chars_on_line:0..8; {the number of characters printed on the current line}
+@!chars_on_line:0..9; {the number of characters printed on the current line}
@!perfect:boolean; {was the file free of errors?}
@ @<Set init...@>=
@@ -1917,14 +1917,14 @@ sort_ptr:=0; {this will suppress `\.{STOP}' lines in ligature comments}
c:=bc;
while (c<=ec) do
begin if width_index(c)>0 then
- begin if chars_on_line=8 then
+ begin if chars_on_line>=8 then
begin print_ln(' '); chars_on_line:=1;
end
else begin if chars_on_line>0 then print(' ');
incr(chars_on_line);
end;
if no_repeats(c)>0 then begin
- print_hex(c); print('-'); print_hex(c+no_repeats(c));
+ print_hex(c); print('-'); print_hex(c+no_repeats(c)); incr(chars_on_line);
left; out('CHARREPEAT'); out_char(c); out_char(no_repeats(c)); out_ln;
end
else begin
diff --git a/Build/source/texk/web2c/omegaware/opl2ofm.ch b/Build/source/texk/web2c/omegaware/opl2ofm.ch
index 1d09ca8ac14..7d512e59a7c 100644
--- a/Build/source/texk/web2c/omegaware/opl2ofm.ch
+++ b/Build/source/texk/web2c/omegaware/opl2ofm.ch
@@ -136,10 +136,10 @@ if verbose then @<Print |c| in hex notation@>;
if verbose then @<Print |c| in hex notation@>;
@z
@x
-print('-'); print_hex(c+crange);
+print('-'); print_hex(c+crange); incr(chars_on_line);
@y
if verbose then begin
- print('-'); print_hex(c+crange);
+ print('-'); print_hex(c+crange); incr(chars_on_line);
end;
@z
diff --git a/Build/source/texk/web2c/omegaware/opl2ofm.web b/Build/source/texk/web2c/omegaware/opl2ofm.web
index 1d18184f58e..7564848daa8 100644
--- a/Build/source/texk/web2c/omegaware/opl2ofm.web
+++ b/Build/source/texk/web2c/omegaware/opl2ofm.web
@@ -599,7 +599,7 @@ code is printed in octal notation. Up to eight such codes appear on a line;
so we have a variable to keep track of how many are currently there.
@<Glob...@>=
-@!chars_on_line:0..8; {the number of characters printed on the current line}
+@!chars_on_line:0..9; {the number of characters printed on the current line}
@ @<Set init...@>=
chars_on_line:=0;
@@ -2233,7 +2233,7 @@ if ((c+crange)>max_char) then begin
err_print('Character range too large');
crange:=0;
end;
-print('-'); print_hex(c+crange);
+print('-'); print_hex(c+crange); incr(chars_on_line);
while level=1 do begin
while cur_char=" " do get_next;
if cur_char="(" then read_character_property
@@ -2420,7 +2420,7 @@ print_digs(j);
end;
@ @<Print |c| in hex...@>=
-begin if chars_on_line=8 then
+begin if chars_on_line>=8 then
begin print_ln(' '); chars_on_line:=1;
end
else begin if chars_on_line>0 then print(' ');
diff --git a/Build/source/texk/web2c/omegaware/ovf2ovp.ch b/Build/source/texk/web2c/omegaware/ovf2ovp.ch
index 1c6259e46aa..a29a2aebbd3 100644
--- a/Build/source/texk/web2c/omegaware/ovf2ovp.ch
+++ b/Build/source/texk/web2c/omegaware/ovf2ovp.ch
@@ -345,15 +345,23 @@ f:=((tfm[k+1] mod 16)*intcast(@'400)+tfm[k+2])*@'400+tfm[k+3];
% [101] No progress reports unless verbose.
@x
+ begin if chars_on_line=8 then
+ begin print_ln(' '); chars_on_line:=1;
+ end
+ else begin if chars_on_line>0 then print(' ');
incr(chars_on_line);
end;
- for cprime:=c to (c+no_repeats(c)) do begin
print_hex(cprime); {progress report}
@y
- if verbose then incr(chars_on_line);
+ begin if verbose then
+ begin if chars_on_line=8 then
+ begin print_ln(' '); chars_on_line:=1;
+ end
+ else begin if chars_on_line>0 then print(' ');
+ incr(chars_on_line);
+ end;
+ print_hex(cprime); {progress report}
end;
- for cprime:=c to (c+no_repeats(c)) do begin
- if verbose then print_hex(cprime); {progress report}
@z
% [112] No nonlocal goto's.
diff --git a/Build/source/texk/web2c/omegaware/ovf2ovp.web b/Build/source/texk/web2c/omegaware/ovf2ovp.web
index d6d9a6f3e79..0c28b572ab2 100644
--- a/Build/source/texk/web2c/omegaware/ovf2ovp.web
+++ b/Build/source/texk/web2c/omegaware/ovf2ovp.web
@@ -2457,13 +2457,13 @@ sort_ptr:=0; {this will suppress `\.{STOP}' lines in ligature comments}
c:=bc;
while (c<=ec) do
begin if width_index(c)>0 then
+ for cprime:=c to (c+no_repeats(c)) do
begin if chars_on_line=8 then
begin print_ln(' '); chars_on_line:=1;
end
else begin if chars_on_line>0 then print(' ');
incr(chars_on_line);
end;
- for cprime:=c to (c+no_repeats(c)) do begin
print_hex(cprime); {progress report}
left; out('CHARACTER'); out_char(cprime); out_ln;
if ofm_on then check_unused(c);
@@ -2506,7 +2506,6 @@ while (c<=ec) do
if not do_map(cprime) then goto final_end;
right;
end;
- end;
c:=c+1+no_repeats(c);
end
diff --git a/Build/source/texk/web2c/omegaware/ovp2ovf.ch b/Build/source/texk/web2c/omegaware/ovp2ovf.ch
index f003e8bf211..80a34d00f28 100644
--- a/Build/source/texk/web2c/omegaware/ovp2ovf.ch
+++ b/Build/source/texk/web2c/omegaware/ovp2ovf.ch
@@ -131,10 +131,10 @@ if verbose then @<Print |c| in hex notation@>;
if verbose then @<Print |c| in hex notation@>;
@z
@x
-print('-'); print_hex(c+crange);
+print('-'); print_hex(c+crange); incr(chars_on_line);
@y
if verbose then begin
- print('-'); print_hex(c+crange);
+ print('-'); print_hex(c+crange); incr(chars_on_line);
end;
@z
diff --git a/Build/source/texk/web2c/omegaware/ovp2ovf.web b/Build/source/texk/web2c/omegaware/ovp2ovf.web
index c09ed23af6b..e10d0faaa7f 100644
--- a/Build/source/texk/web2c/omegaware/ovp2ovf.web
+++ b/Build/source/texk/web2c/omegaware/ovp2ovf.web
@@ -774,7 +774,7 @@ code is printed in octal notation. Up to eight such codes appear on a line;
so we have a variable to keep track of how many are currently there.
@<Glob...@>=
-@!chars_on_line:0..8; {the number of characters printed on the current line}
+@!chars_on_line:0..9; {the number of characters printed on the current line}
@ @<Set init...@>=
chars_on_line:=0;
@@ -2613,7 +2613,7 @@ if ((c+crange)>max_char) then begin
err_print('Character range too large');
crange:=0;
end;
-print('-'); print_hex(c+crange);
+print('-'); print_hex(c+crange); incr(chars_on_line);
while level=1 do begin
while cur_char=" " do get_next;
if cur_char="(" then read_character_property
@@ -2804,7 +2804,7 @@ print_digs(j);
end;
@ @<Print |c| in hex...@>=
-begin if chars_on_line=8 then begin
+begin if chars_on_line>=8 then begin
print_ln(' '); chars_on_line:=1;
end
else begin