summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/fontinst/cyrfinst/etc/showenc
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/fontinst/cyrfinst/etc/showenc')
-rw-r--r--Master/texmf-dist/tex/fontinst/cyrfinst/etc/showenc18
1 files changed, 18 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/fontinst/cyrfinst/etc/showenc b/Master/texmf-dist/tex/fontinst/cyrfinst/etc/showenc
new file mode 100644
index 00000000000..ef0ca64104c
--- /dev/null
+++ b/Master/texmf-dist/tex/fontinst/cyrfinst/etc/showenc
@@ -0,0 +1,18 @@
+#!/bin/sh
+# sample usage:
+# showenc T2A
+# showenc OT1 '\setint{monowidth}{1}'
+
+latex << EOF | perl -ne 'next if (!s/^SLOT: //); s,\n,\0,; $q.=$_;
+ END { $_=$q; s,\0\[LIG] ([^\0]*), L $1,g; s,\0,\n,g; print }'
+\input fontinst.sty
+\catcode\`\_=11
+$2
+\def\setint#1#2{}
+\def\setslot#1{\edef\slot_name{#1}\do_slot
+ \typeout{SLOT: \the\slot_number\space\slot_name\space;}}
+\def\ligature#1#2#3{\typeout{SLOT: [#1] #2 #3 ;}\vpl_ligature{#1}{#2}{#3}}
+\inputetx{$1}
+\bye
+EOF
+rm -f fontinst.log