From 5837565307206d06f408fd7bc573853c5aef0133 Mon Sep 17 00:00:00 2001 From: Peter Breitenlohner Date: Tue, 17 Dec 2013 13:03:55 +0000 Subject: 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 --- Build/source/texk/web2c/ptexdir/ChangeLog | 5 +++++ Build/source/texk/web2c/ptexdir/ppltotf.ch | 28 ++-------------------------- 2 files changed, 7 insertions(+), 26 deletions(-) (limited to 'Build/source/texk/web2c/ptexdir') 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 + + * 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 * 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; -% 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 @; -% 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). @= 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"'); -- cgit v1.2.3