summaryrefslogtreecommitdiff
path: root/Build/source/texk/ptexenc/ptexenc.c
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/ptexenc/ptexenc.c
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/ptexenc/ptexenc.c')
-rw-r--r--Build/source/texk/ptexenc/ptexenc.c8
1 files changed, 8 insertions, 0 deletions
diff --git a/Build/source/texk/ptexenc/ptexenc.c b/Build/source/texk/ptexenc/ptexenc.c
index 23b9ea4f052..4ad5bc6b186 100644
--- a/Build/source/texk/ptexenc/ptexenc.c
+++ b/Build/source/texk/ptexenc/ptexenc.c
@@ -840,6 +840,14 @@ long input_line2(FILE *fp, unsigned char *buff, long pos,
return last;
}
+boolean setinfileenc(FILE *fp, const char *str){
+ int enc;
+ enc = string_to_enc(str);
+ if (enc < 0) return false;
+ infile_enc[fileno(fp)] = enc;
+ return true;
+}
+
#ifdef WIN32
void clear_infile_enc(FILE *fp)
{