summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/pdftex/thanh/ext/protcode.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/pdftex/thanh/ext/protcode.tex')
-rw-r--r--Master/texmf-dist/doc/pdftex/thanh/ext/protcode.tex82
1 files changed, 82 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/pdftex/thanh/ext/protcode.tex b/Master/texmf-dist/doc/pdftex/thanh/ext/protcode.tex
new file mode 100644
index 00000000000..2f74bc227a3
--- /dev/null
+++ b/Master/texmf-dist/doc/pdftex/thanh/ext/protcode.tex
@@ -0,0 +1,82 @@
+\input abbr.tex
+
+\def\setprotcode#1{%
+ \rpcode#1`\!=200
+ \rpcode#1`\,=700
+ \rpcode#1`\-=700
+ \rpcode#1`\.=700
+ \rpcode#1`\;=500
+ \rpcode#1`\:=500
+ \rpcode#1`\?=200
+ \lpcode#1`\`=700
+ \rpcode#1`\'=700
+ \lpcode#1 92=500 % ``
+ \rpcode#1 34=500 % ''
+ \rpcode#1 123=300 % --
+ \rpcode#1 124=200 % ---
+ \rpcode#1`\)=50
+ \rpcode#1`\A=50
+ \rpcode#1`\F=50
+ \rpcode#1`\K=50
+ \rpcode#1`\L=50
+ \rpcode#1`\T=50
+ \rpcode#1`\V=50
+ \rpcode#1`\W=50
+ \rpcode#1`\X=50
+ \rpcode#1`\Y=50
+ \rpcode#1`\k=50
+ \rpcode#1`\r=50
+ \rpcode#1`\t=50
+ \rpcode#1`\v=50
+ \rpcode#1`\w=50
+ \rpcode#1`\x=50
+ \rpcode#1`\y=50
+ \lpcode#1`\(=50
+ \lpcode#1`\A=50
+ \lpcode#1`\J=50
+ \lpcode#1`\T=50
+ \lpcode#1`\V=50
+ \lpcode#1`\W=50
+ \lpcode#1`\X=50
+ \lpcode#1`\Y=50
+ \lpcode#1`\v=50
+ \lpcode#1`\w=50
+ \lpcode#1`\x=50
+ \lpcode#1`\y=50
+ \adjustprotcode#1
+}
+
+\makeatletter
+\newif\ifneedadjustprotcode
+\def\adjustprotcode#1{%
+ \needadjustprotcodefalse
+ \ifnum\pdftexversion > 13
+ \ifnum \expandafter`\pdftexrevision > `g
+ \needadjustprotcodetrue
+ \fi
+ \else\ifnum\pdftexversion > 14
+ \needadjustprotcodetrue
+ \fi\fi
+ \ifneedadjustprotcode
+ \@tempcnta=0
+ \loop
+ \ifcase\lpcode#1\@tempcnta\else
+ \adjustcp\lpcode#1\@tempcnta
+ \fi
+ \ifcase\rpcode#1\@tempcnta\else
+ \adjustcp\rpcode#1\@tempcnta
+ \fi
+ \advance\@tempcnta 1
+ \ifnum\@tempcnta < 256 \repeat
+ \fi
+}
+\def\adjustcp#1#2#3{%
+ \setbox0=\hbox{%
+ \ifx#2\font\else#2\fi
+ \char#3}%
+ \@tempcntb=\wd0
+ \mul\@tempcntb #1#2#3%
+ \div\@tempcntb \fontdimen6 #2%
+ #1#2#3=\@tempcntb
+}
+\makeatother