summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/ptexdir
diff options
context:
space:
mode:
authorPeter Breitenlohner <peb@mppmu.mpg.de>2013-12-17 13:03:55 +0000
committerPeter Breitenlohner <peb@mppmu.mpg.de>2013-12-17 13:03:55 +0000
commit5837565307206d06f408fd7bc573853c5aef0133 (patch)
tree78f69595ceb2efed05322b6adc3caa0f78f692ef /Build/source/texk/web2c/ptexdir
parent7f8bb118636cfad97feb21a581b997cfa6f84aab (diff)
uptexdir: Add a test for upPLtoTF/upTFtoPL with yoko and tate fonts
git-svn-id: svn://tug.org/texlive/trunk@32429 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/ptexdir')
-rw-r--r--Build/source/texk/web2c/ptexdir/ChangeLog5
-rw-r--r--Build/source/texk/web2c/ptexdir/ppltotf.ch28
2 files changed, 7 insertions, 26 deletions
diff --git a/Build/source/texk/web2c/ptexdir/ChangeLog b/Build/source/texk/web2c/ptexdir/ChangeLog
index c8eeb015152..2d51e373116 100644
--- a/Build/source/texk/web2c/ptexdir/ChangeLog
+++ b/Build/source/texk/web2c/ptexdir/ChangeLog
@@ -1,3 +1,8 @@
+2013-12-17 Peter Breitenlohner <peb@mppmu.mpg.de>
+
+ * ppltotf.ch: Drop one unused change set (is in ../pltotf.ch).
+ Print DIRECTION value with print_ln() instead of err_print().
+
2013-11-18 Peter Breitenlohner <peb@mppmu.mpg.de>
* ptex-base.ch: Simplify a few change sets.
diff --git a/Build/source/texk/web2c/ptexdir/ppltotf.ch b/Build/source/texk/web2c/ptexdir/ppltotf.ch
index 1ca61bdb0e2..1747546668e 100644
--- a/Build/source/texk/web2c/ptexdir/ppltotf.ch
+++ b/Build/source/texk/web2c/ptexdir/ppltotf.ch
@@ -56,30 +56,6 @@ else begin while (limit<buf_size-2)and(not eoln(pl_file)) do
else begin limit:=input_line2(pl_file,ustringcast(buffer),limit+1,buf_size-1)-1;
@z
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% [28] This fixes a bug in the original. If get_byte is reading a
-% number at the end of a line and the next line has a number
-% at the beginning (possibly preceded by some spaces!!) these
-% two numbers are run together.
-% This bug may be found in other routines so...
-% Fix: add some (more?) space at the end of each line, in fill_buffer.
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% @x [28] l.622 - pTeX:
-% buffer[limit+1]:=' '; right_ln:=eoln(pl_file);
-% if left_ln then @<Set |loc| to the number of leading blanks in
-% the buffer, and check the indentation@>;
-% end;
-% end;
-% @y
-% buffer[limit+1]:=' '; right_ln:=eoln(pl_file);
-% if right_ln then begin incr(limit); buffer[limit+1]:=' ';
-% end;
-% if left_ln then @<Set |loc| to the number of leading blanks in
-% the buffer, and check the indentation@>;
-% end;
-% end;
-% @z
-
@x [36] l.754 - pTeX: May have to increase some numbers to fit new commands
@d max_name_index=88 {upper bound on the number of keywords}
@d max_letters=600 {upper bound on the total length of all keywords}
@@ -584,11 +560,11 @@ property (|dir_code| command).
@<Read direction@>=
begin while cur_char=" " do get_next;
if cur_char="T" then
- begin if verbose then err_print('This is tatekumi format');
+ begin if verbose then print_ln('This is tatekumi format');
file_format:=vfm_format;
end
else if cur_char="Y" then
- begin if verbose then err_print('This is yokokumi format');
+ begin if verbose then print_ln('This is yokokumi format');
file_format:=jfm_format;
end
else err_print('The dir value should be "TATE" or "YOKO"');