From 95d8ae1bb7db4490e61166bba0b7862d5cc78f03 Mon Sep 17 00:00:00 2001 From: Akira Kakuto Date: Mon, 1 Feb 2016 02:55:25 +0000 Subject: 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 --- Build/source/texk/ptexenc/ptexenc.c | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'Build/source/texk/ptexenc/ptexenc.c') 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) { -- cgit v1.2.3