From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001
From: Norbert Preining <norbert@preining.info>
Date: Mon, 2 Sep 2019 13:46:59 +0900
Subject: Initial commit

---
 macros/latex/contrib/pclnfss/src/etxmac.tex | 101 ++++++++++++++++++++++++++++
 1 file changed, 101 insertions(+)
 create mode 100644 macros/latex/contrib/pclnfss/src/etxmac.tex

(limited to 'macros/latex/contrib/pclnfss/src/etxmac.tex')

diff --git a/macros/latex/contrib/pclnfss/src/etxmac.tex b/macros/latex/contrib/pclnfss/src/etxmac.tex
new file mode 100644
index 0000000000..986b9ecc05
--- /dev/null
+++ b/macros/latex/contrib/pclnfss/src/etxmac.tex
@@ -0,0 +1,101 @@
+{\catcode`_ = 11
+
+% Retain all the following definitions outside of the group.
+% (We have the group in the first place to restore _'s catcode cleanly.)
+\globaldefs = 1
+
+% If we've defined a special macro `\slot_#1' to expand to the glyph
+% name, use it. Otherwise, just use what we're given.
+% 
+% No provision here for \usedas or \ligature or other slot commands.
+\def\doslot#1{%
+  \expandafter\ifx\csname slot_#1\endcsname \relax
+    \def\temp{#1}%
+  \else
+    \edef\temp{\csname slot_#1\endcsname}%
+  \fi
+  \setslot{\temp}\csname ligs_#1\endcsname\endsetslot
+}
+\def\slot_Agrave{\uctop{Agrave}{agrave}}
+\def\slot_Acircumflex{\uctop{Acircumflex}{acircumflex}}
+\def\slot_Egrave{\uctop{Egrave}{egrave}}
+\def\slot_Ecircumflex{\uctop{Ecircumflex}{ecircumflex}}
+\def\slot_Edieresis{\uctop{Edieresis}{edieresis}}
+\def\slot_Icircumflex{\uctop{Icircumflex}{icircumflex}}
+\def\slot_Idieresis{\lctop{Idieresis}{idieresis}}
+\def\slot_Ugrave{\uctop{Ugrave}{ugrave}}
+\def\slot_Ucircumflex{\uctop{Ucircumflex}{ucircumflex}}
+\def\slot_Yacute{\uctop{Yacute}{yacute}}
+\def\slot_yacute{\lctop{Yacute}{yacute}}
+\def\slot_Ccedilla{\uc{Ccedilla}{ccedilla}}
+\def\slot_ccedilla{\lc{Ccedilla}{ccedilla}}
+\def\slot_Ntilde{\uctop{Ntilde}{ntilde}}
+\def\slot_ntilde{\lctop{Ntilde}{ntilde}}
+\def\slot_acircumflex{\lctop{Acircumflex}{acircumflex}}
+\def\slot_ecircumflex{\lctop{Ecircumflex}{ecircumflex}}
+\def\slot_ocircumflex{\lctop{Ocircumflex}{ocircumflex}}
+\def\slot_ucircumflex{\lctop{Ucircumflex}{ucircumflex}}
+\def\slot_aacute{\lctop{Aacute}{aacute}}
+\def\slot_eacute{\lctop{Eacute}{eacute}}
+\def\slot_oacute{\lctop{Oacute}{oacute}}
+\def\slot_uacute{\lctop{Uacute}{uacute}}
+\def\slot_agrave{\lctop{Agrave}{agrave}}
+\def\slot_egrave{\lctop{Egrave}{egrave}}
+\def\slot_ograve{\lctop{Ograve}{ograve}}
+\def\slot_ugrave{\lctop{Ugrave}{ugrave}}
+\def\slot_adieresis{\lctop{Adieresis}{adieresis}}
+\def\slot_edieresis{\lctop{Edieresis}{edieresis}}
+\def\slot_odieresis{\lctop{Odieresis}{odieresis}}
+\def\slot_udieresis{\lctop{Udieresis}{udieresis}}
+\def\slot_Aring{\uctop{Aring}{aring}}
+\def\slot_icircumflex{\lctop{Icircumflex}{icircumflex}}
+\def\slot_aring{\lctop{Aring}{aring}}
+\def\slot_iacute{\lctop{Iacute}{iacute}}
+\def\slot_Adieresis{\uctop{Adieresis}{adieresis}}
+\def\slot_igrave{\lctop{Igrave}{igrave}}
+\def\slot_Odieresis{\uctop{Odieresis}{odieresis}}
+\def\slot_Udieresis{\uctop{Udieresis}{udieresis}}
+\def\slot_Eacute{\uctop{Eacute}{eacute}}
+\def\slot_idieresis{\lctop{Idieresis}{idieresis}}
+\def\slot_Ocircumflex{\uctop{Ocircumflex}{ocircumflex}}
+\def\slot_Aacute{\uctop{Aacute}{aacute}}
+\def\slot_Atilde{\uctop{Atilde}{atilde}}
+\def\slot_atilde{\lctop{Atilde}{atilde}}
+\def\slot_Iacute{\uctop{Iacute}{iacute}}
+\def\slot_Igrave{\uctop{Igrave}{igrave}}
+\def\slot_Oacute{\uctop{Oacute}{oacute}}
+\def\slot_Ograve{\uctop{Ograve}{ograve}}
+\def\slot_Otilde{\uctop{Otilde}{otilde}}
+\def\slot_otilde{\lctop{Otilde}{otilde}}
+\def\slot_Scaron{\uctop{Scaron}{scaron}}
+\def\slot_scaron{\lctop{Scaron}{scaron}}
+\def\slot_Uacute{\uctop{Uacute}{uacute}}
+\def\slot_Ydieresis{\uctop{Ydieresis}{ydieresis}}
+\def\slot_ydieresis{\lctop{Ydieresis}{ydieresis}}
+\def\slot_ff{\lclig{FF}{ff}}
+\def\slot_fi{\lclig{FI}{fi}}
+\def\slot_fl{\lclig{FL}{fl}}
+\def\slot_ffi{\lclig{FFI}{ffi}}
+\def\slot_ffl{\lclig{FFL}{ffl}}
+\def\slot_IJ{\uclig{IJ}{ij}}
+\def\slot_ij{\lclig{IJ}{ij}}
+\def\slot_SS{\uclig{SS}{germandbls}}
+
+\def\ligs_rangedash{\ligature{LIG}{hyphen}{punctdash}}
+\def\ligs_ff{%
+  \ligature{LIG}{\lc{I}{i}}{\lclig{FFI}{ffi}}
+  \ligature{LIG}{\lc{L}{l}}{\lclig{FFL}{ffl}}}
+\def\ligs_exclam{\ligature{LIG}{quoteleft}{exclamdown}}
+\def\ligs_quoteright{\ligature{LIG}{quoteright}{quotedblright}}
+\def\ligs_comma{\ligature{LIG}{comma}{quotedblbase}}
+\def\ligs_hyphen{\ligature{LIG}{hyphen}{rangedash}}
+\def\ligs_less{\ligature{LIG}{less}{guillemotleft}}
+\def\ligs_greater{\ligature{LIG}{greater}{guillemotright}}
+\def\ligs_question{\ligature{LIG}{quoteleft}{questiondown}}
+\def\ligs_quoteleft{\ligature{LIG}{quoteleft}{quotedblleft}}
+\def\ligs_f{%
+  \ligature{LIG}{\lc{I}{i}}{\lclig{FI}{fi}}
+  \ligature{LIG}{\lc{F}{f}}{\lclig{FF}{ff}}
+  \ligature{LIG}{\lc{L}{l}}{\lclig{FL}{fl}}}
+
+} % end of group
-- 
cgit v1.2.3

