diff options
author | Peter Breitenlohner <peb@mppmu.mpg.de> | 2010-05-03 17:29:30 +0000 |
---|---|---|
committer | Peter Breitenlohner <peb@mppmu.mpg.de> | 2010-05-03 17:29:30 +0000 |
commit | 2457fb644a0b9adf6984ecf93f0b42e6de78a716 (patch) | |
tree | 114078a9c96b30f398719a9d9e56bb84241ea3a3 /Build/source/texk/web2c/ptexdir | |
parent | 758adce2829dd17adbbc689f4bd4fb890785a220 (diff) |
pDVItype: small fix
git-svn-id: svn://tug.org/texlive/trunk@18094 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/ptexdir')
-rw-r--r-- | Build/source/texk/web2c/ptexdir/ChangeLog | 4 | ||||
-rw-r--r-- | Build/source/texk/web2c/ptexdir/pdvitype.ch | 26 |
2 files changed, 23 insertions, 7 deletions
diff --git a/Build/source/texk/web2c/ptexdir/ChangeLog b/Build/source/texk/web2c/ptexdir/ChangeLog index 311c17752f8..cb2f802cf4e 100644 --- a/Build/source/texk/web2c/ptexdir/ChangeLog +++ b/Build/source/texk/web2c/ptexdir/ChangeLog @@ -1,3 +1,7 @@ +2010-05-03 Peter Breitenlohner <peb@mppmu.mpg.de> + + * pdvitype.ch: Treat kanji chars for put[1-4] as for set[1-4]. + 2010-05-01 Peter Breitenlohner <peb@mppmu.mpg.de> * yokotate.test: Use ptftopl with '-charcode-format octal'. diff --git a/Build/source/texk/web2c/ptexdir/pdvitype.ch b/Build/source/texk/web2c/ptexdir/pdvitype.ch index 2eb49fd6d26..02b245a63b4 100644 --- a/Build/source/texk/web2c/ptexdir/pdvitype.ch +++ b/Build/source/texk/web2c/ptexdir/pdvitype.ch @@ -213,14 +213,22 @@ s:=0; h:=0; v:=0; w:=0; x:=0; y:=0; z:=0; hh:=0; vv:=0; dd:=0; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @x four_cases(set1): begin major('set',o-set1+1:1,' ',p:1); goto fin_set; + end; + four_cases(put1): begin major('put',o-put1+1:1,' ',p:1); goto fin_set; @y - four_cases(set1): + four_cases(set1),four_cases(put1): begin if fnt_jfm_p[cur_font]=true then begin cur_jfm_char_type:=get_jfm_char_type(cur_font,p); out_kanji(p); - minor('set',o-set1+1:1,' ',p:1); + if o<put1 then + begin + minor('set',o-set1+1:1,' ',p:1); + end + else begin + minor('put',o-put1+1:1,' ',p:1); + end; ifdef('HEX_CHAR_CODE') print('('); print_hex_number(p); @@ -230,7 +238,13 @@ endif('HEX_CHAR_CODE') p:=cur_jfm_char_type end else begin - major('set',o-set1+1:1,' ',p:1); + if o<put1 then + begin + major('set',o-set1+1:1,' ',p:1); + end + else begin + major('put',o-put1+1:1,' ',p:1); + end; ifdef('HEX_CHAR_CODE') print('('); print_hex_number(p); @@ -241,13 +255,11 @@ endif('HEX_CHAR_CODE') @z @x - put_rule: begin major('putrule'); goto fin_rule; - end; + @t\4@>@<Cases for commands |nop|, |bop|, \dots, |pop|@>@; @y - put_rule: begin major('putrule'); goto fin_rule; - end; dir: begin major('dir ',p:1); dd:=p; goto done; end; + @t\4@>@<Cases for commands |nop|, |bop|, \dots, |pop|@>@; @z %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |