diff options
author | Peter Breitenlohner <peb@mppmu.mpg.de> | 2013-12-17 13:03:55 +0000 |
---|---|---|
committer | Peter Breitenlohner <peb@mppmu.mpg.de> | 2013-12-17 13:03:55 +0000 |
commit | 5837565307206d06f408fd7bc573853c5aef0133 (patch) | |
tree | 78f69595ceb2efed05322b6adc3caa0f78f692ef /Build/source/texk/web2c/ptexdir | |
parent | 7f8bb118636cfad97feb21a581b997cfa6f84aab (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/ChangeLog | 5 | ||||
-rw-r--r-- | Build/source/texk/web2c/ptexdir/ppltotf.ch | 28 |
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"'); |