diff options
author | Hironobu Yamashita <h.y.acetaminophen@gmail.com> | 2018-01-27 02:23:14 +0000 |
---|---|---|
committer | Hironobu Yamashita <h.y.acetaminophen@gmail.com> | 2018-01-27 02:23:14 +0000 |
commit | 5818288af5e420fda055a4d53fb22333a66cd7ad (patch) | |
tree | 7d3eef35c0853a1c06d4dda762ec17e63c24f81a /Build/source/texk/web2c/ptexdir/ptftopl.ch | |
parent | 377d5b6a96e2b1ad97c691da9c9e3f187e51364a (diff) |
ptexdir, uptexdir: introduce a new JFM spec
git-svn-id: svn://tug.org/texlive/trunk@46452 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/ptexdir/ptftopl.ch')
-rw-r--r-- | Build/source/texk/web2c/ptexdir/ptftopl.ch | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/Build/source/texk/web2c/ptexdir/ptftopl.ch b/Build/source/texk/web2c/ptexdir/ptftopl.ch index c9c08c0588a..97e670d78db 100644 --- a/Build/source/texk/web2c/ptexdir/ptftopl.ch +++ b/Build/source/texk/web2c/ptexdir/ptftopl.ch @@ -1,5 +1,6 @@ % This is a change file for TFtoPL % +% (2018-01-27) HY pTFtoPL p2.0 - new JFM spec by texjporg % (07/18/2006) ST TFtoPL p1.7 (3.1, Web2c 7.2) % (03/27/1998) KN TFtoPL p1.4 (3.1, Web2c 7.2) % @@ -14,7 +15,7 @@ @d banner=='This is TFtoPL, Version 3.3' {printed when the program starts} @y @d my_name=='ptftopl' -@d banner=='This is pTFtoPL, Version 3.3-p1.7' +@d banner=='This is pTFtoPL, Version 3.3-p2.0' {printed when the program starts} @z @@ -437,11 +438,12 @@ else end; end -@ list the |char_type| table in a similar way to the type table +@ list the |char_type| table in a similar way to the type table. +The code is based on the new JFM spec by texjporg. @d char_type(#)==4*(type_base+#) {here \#\ is an index, not a character} -@d JIS_code(#)==tfm[char_type(#)+0]*@'400+tfm[char_type(#)+1] {JIS code from |char_type| table} -@d JIS_type(#)==tfm[char_type(#)+2]*@'400+tfm[char_type(#)+3] {JIS type from |char_type| table} +@d JIS_code(#)==tfm[char_type(#)+0]*@'400+tfm[char_type(#)+1]+tfm[char_type(#)+2]*@'400*@'400 {JIS code from |char_type| table} +@d JIS_type(#)==tfm[char_type(#)+3] {JIS type from |char_type| table} @<list |char_type| table@>= this_code:=JIS_code(0); @@ -475,7 +477,7 @@ for type_num:=1 to ec do incr(type_count); out_kanji(index_to_jis(kanji_index)); end; - if type_count=0 then bad('type ', type_num:1, 'has no characters in it!'); + if type_count=0 then bad('type ', type_num:1, ' has no characters in it!'); out_ln; right; end; @@ -491,7 +493,7 @@ for k:=@'40 to 255 do xchr[k]:=k; @ @<declare kanji conversion functions@>= procedure out_kanji(jis_code:integer); { prints a kanji character } var @!cx:integer; {KANJI code} -i:0..4; {index of array} +i:0..3; {index of array} begin@/ if charcode_format=charcode_octal then begin cx:=jis_code; out('J '); {specify jiscode format} |