summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/pdftex
diff options
context:
space:
mode:
authorHan The Thanh <hanthethanh@gmail.com>2009-01-06 06:43:27 +0000
committerHan The Thanh <hanthethanh@gmail.com>2009-01-06 06:43:27 +0000
commit01be2f28efbc2305125f42b3f608474f82745602 (patch)
treeed368a0418cf1c0402bd0534edf72d789c030f45 /Master/texmf-dist/doc/pdftex
parent8277cc2b97833b46a1c1cfa5437671946ec9643d (diff)
updated protcode.tex
git-svn-id: svn://tug.org/texlive/trunk@11820 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/pdftex')
-rw-r--r--Master/texmf-dist/doc/pdftex/thanh/ext/protcode.tex41
1 files changed, 21 insertions, 20 deletions
diff --git a/Master/texmf-dist/doc/pdftex/thanh/ext/protcode.tex b/Master/texmf-dist/doc/pdftex/thanh/ext/protcode.tex
index 2f74bc227a3..57f735a9739 100644
--- a/Master/texmf-dist/doc/pdftex/thanh/ext/protcode.tex
+++ b/Master/texmf-dist/doc/pdftex/thanh/ext/protcode.tex
@@ -1,4 +1,4 @@
-\input abbr.tex
+% this code works with OT1 encoding only!
\def\setprotcode#1{%
\rpcode#1`\!=200
@@ -42,41 +42,42 @@
\lpcode#1`\v=50
\lpcode#1`\w=50
\lpcode#1`\x=50
- \lpcode#1`\y=50
- \adjustprotcode#1
+ \lpcode#1`\y=0
+ \adjustprotcode#1\relax
}
-\makeatletter
\newif\ifneedadjustprotcode
+\newbox\boxA
+\newcount\countA
+\newcount\countB
\def\adjustprotcode#1{%
\needadjustprotcodefalse
- \ifnum\pdftexversion > 13
+ \ifnum\pdftexversion = 14
\ifnum \expandafter`\pdftexrevision > `g
\needadjustprotcodetrue
- \fi
+ \fi
\else\ifnum\pdftexversion > 14
\needadjustprotcodetrue
- \fi\fi
+ \fi \fi
\ifneedadjustprotcode
- \@tempcnta=0
+ \countA=0
\loop
- \ifcase\lpcode#1\@tempcnta\else
- \adjustcp\lpcode#1\@tempcnta
+ \ifcase\lpcode#1\countA\else
+ \adjustcp\lpcode#1\countA
\fi
- \ifcase\rpcode#1\@tempcnta\else
- \adjustcp\rpcode#1\@tempcnta
+ \ifcase\rpcode#1\countA\else
+ \adjustcp\rpcode#1\countA
\fi
- \advance\@tempcnta 1
- \ifnum\@tempcnta < 256 \repeat
+ \advance\countA 1
+ \ifnum\countA < 256 \repeat
\fi
}
\def\adjustcp#1#2#3{%
- \setbox0=\hbox{%
+ \setbox\boxA=\hbox{%
\ifx#2\font\else#2\fi
\char#3}%
- \@tempcntb=\wd0
- \mul\@tempcntb #1#2#3%
- \div\@tempcntb \fontdimen6 #2%
- #1#2#3=\@tempcntb
+ \countB=\wd\boxA
+ \multiply\countB #1#2#3\relax
+ \divide\countB \fontdimen6 #2\relax
+ #1#2#3=\countB\relax
}
-\makeatother