diff options
author | Akira Kakuto <kakuto@fuk.kindai.ac.jp> | 2012-01-05 06:47:30 +0000 |
---|---|---|
committer | Akira Kakuto <kakuto@fuk.kindai.ac.jp> | 2012-01-05 06:47:30 +0000 |
commit | 2fa3ace8e2fef6e8c7c4336917808b63a1ccca21 (patch) | |
tree | 16692a214adc35d25b1debb0b4797fca5035bf7a /Build/source/texk/web2c/ptexdir | |
parent | e5c8e95e9c8ff215f00a510e5e4b6d24abd554e7 (diff) |
enable -kanji option in pdvitype and updvitype: patch from TANAKA Takuji-san.
git-svn-id: svn://tug.org/texlive/trunk@25028 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/kanji.h | 2 | ||||
-rw-r--r-- | Build/source/texk/web2c/ptexdir/pdvitype.ch | 8 |
3 files changed, 15 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/ptexdir/ChangeLog b/Build/source/texk/web2c/ptexdir/ChangeLog index 3eb1be48e42..8357f03a578 100644 --- a/Build/source/texk/web2c/ptexdir/ChangeLog +++ b/Build/source/texk/web2c/ptexdir/ChangeLog @@ -1,3 +1,8 @@ +2012-01-05 Akira Kakuto <kakuto@fuk.kindai.ac.jp> + + * kanji.h, pdvitype.ch: enable -kanji option in pdvitype. + (patch from TANAKA Takuji-san). + 2011-12-19 Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp> * ptex-base.ch, ptex.defines, kanji.[ch]: Avoid Segmentation diff --git a/Build/source/texk/web2c/ptexdir/kanji.h b/Build/source/texk/web2c/ptexdir/kanji.h index 1be8729cf3c..c46b712d240 100644 --- a/Build/source/texk/web2c/ptexdir/kanji.h +++ b/Build/source/texk/web2c/ptexdir/kanji.h @@ -37,6 +37,8 @@ extern void init_default_kanji (const_string file_str, const_string internal_str #define initdefaultkanji() init_default_kanji(NULL, "euc") /* for pBibTeX, pDVItype, pPLtoTF, and pTFtoPL */ #define initkanji() init_default_kanji(NULL, "euc") +/* for pDVItype */ +#define setpriorfileenc() set_prior_file_enc() #ifndef PRESERVE_PUTC #undef putc diff --git a/Build/source/texk/web2c/ptexdir/pdvitype.ch b/Build/source/texk/web2c/ptexdir/pdvitype.ch index 7a30e85d560..4eadb69caf9 100644 --- a/Build/source/texk/web2c/ptexdir/pdvitype.ch +++ b/Build/source/texk/web2c/ptexdir/pdvitype.ch @@ -144,6 +144,13 @@ for k:=1 to nt do @z @x + print_ln(']'); +@y + print(']'); + print_ln(''); +@z + +@x @p procedure out_text(c:ASCII_code); begin if text_ptr=line_length-2 then flush_text; incr(text_ptr); text_buf[text_ptr]:=c; @@ -504,6 +511,7 @@ const n_options = 10; {Pascal won't count array lengths for us.} end; {Else it was a flag; |getopt| has already done the assignment.} @y end else if argument_is ('kanji') then begin + set_prior_file_enc; if (not set_enc_string(optarg,optarg)) then begin write_ln('Bad kanji encoding "', stringcast(optarg), '".'); end; |