summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/eptexdir/eptex.ech
diff options
context:
space:
mode:
authorAkira Kakuto <kakuto@fuk.kindai.ac.jp>2016-02-01 02:55:25 +0000
committerAkira Kakuto <kakuto@fuk.kindai.ac.jp>2016-02-01 02:55:25 +0000
commit95d8ae1bb7db4490e61166bba0b7862d5cc78f03 (patch)
tree7a6bd979c873785e4639f11c7014751c6c854da7 /Build/source/texk/web2c/eptexdir/eptex.ech
parent8ae654836fae207b632e089d0bfafc6bb6ac8f4c (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.ech52
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