diff options
author | Akira Kakuto <kakuto@fuk.kindai.ac.jp> | 2016-02-01 02:55:25 +0000 |
---|---|---|
committer | Akira Kakuto <kakuto@fuk.kindai.ac.jp> | 2016-02-01 02:55:25 +0000 |
commit | 95d8ae1bb7db4490e61166bba0b7862d5cc78f03 (patch) | |
tree | 7a6bd979c873785e4639f11c7014751c6c854da7 /Build/source/texk/web2c/eptexdir/eptex.ech | |
parent | 8ae654836fae207b632e089d0bfafc6bb6ac8f4c (diff) |
texk/ptexenc, web2c/eptexdir, web2c/euptexdir: add a new primitive \epTeXinputencoding. (from N. Abe).
git-svn-id: svn://tug.org/texlive/trunk@39532 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/eptexdir/eptex.ech')
-rw-r--r-- | Build/source/texk/web2c/eptexdir/eptex.ech | 52 |
1 files changed, 51 insertions, 1 deletions
diff --git a/Build/source/texk/web2c/eptexdir/eptex.ech b/Build/source/texk/web2c/eptexdir/eptex.ech index 9e79348030c..c2e41e7d9d7 100644 --- a/Build/source/texk/web2c/eptexdir/eptex.ech +++ b/Build/source/texk/web2c/eptexdir/eptex.ech @@ -19,7 +19,7 @@ @y @d eTeX_version_string=='-2.6' {current \eTeX\ version} @# -@d epTeX_version_string=='-150805' +@d epTeX_version_string=='-160201' @z @x e-pTeX: banner @@ -306,6 +306,56 @@ if fm>0 then {drop \.{\\beginM} \.{\\endM} pair} @z @x +@d set_language_code=5 {command modifier for \.{\\setlanguage}} +@y +@d set_language_code=5 {command modifier for \.{\\setlanguage}} +@d epTeX_input_encoding_code=7 {command modifier for \.{\\epTeXinputencoding}} +@z + +@x +primitive("setlanguage",extension,set_language_code);@/ +@!@:set_language_}{\.{\\setlanguage} primitive@> +@y +primitive("setlanguage",extension,set_language_code);@/ +@!@:set_language_}{\.{\\setlanguage} primitive@> +primitive("epTeXinputencoding",extension,epTeX_input_encoding_code);@/ +@!@:epTeX_input_encoding_}{\.{\\epTeXinputencoding} primitive@> +@z + +@x + set_language_code:print_esc("setlanguage"); +@y + set_language_code:print_esc("setlanguage"); + epTeX_input_encoding_code:print_esc("epTeXinputencoding"); +@z + +@x +set_language_code:@<Implement \.{\\setlanguage}@>; +@y +set_language_code:@<Implement \.{\\setlanguage}@>; +epTeX_input_encoding_code:@<Implement \.{\\epTeXinputencoding}@>; +@z + +@x +@ @<Finish the extensions@>= +@y +@ @<Implement \.{\\epTeXinputencoding}@>= + begin + scan_file_name; + pack_cur_name; + if setinfileenc(cur_file,stringcast(name_of_file+1)) = false then + begin + wlog_cr; + wlog('Unknown encoding `'); + fputs(stringcast(name_of_file + 1), log_file); + wlog(''''); + end + end + +@ @<Finish the extensions@>= +@z + +@x primitive("lastnodetype",last_item,last_node_type_code); @!@:last_node_type_}{\.{\\lastnodetype} primitive@> @y |