[Mac OS X TeX] URGENT: margin kerning and protcode.tex

[Gerben Wierda]

<x-flowed>This is cursed. One, I forgot to put the update_protocde script in 
working condition before distributing (the commands are preceded by echo 
for testing). Two, there was a typo in protcode.tex.

And it emains cursed, because even after applying Roos Moore's patch 
correctly, I get an error when using this with pdftex 1.00a.

So, currently, I have removed the last teTeX dmg's and only the one from 
Oct 28 (with pdfTeX 0.14h) is still there.

I urgently need a good protcode.tex to put in my distribution.

This is what I now have and it seems ok to me. But it has a problem 
with \@tempcntb for some obscure reason.

\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 > 14
         \needadjustprotcodetrue
     \else\ifnum\pdftexversion > 13
         \ifnum \expandafter`\pdftexrevision > `g
             \needadjustprotcodetrue
	\fi
     \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


-----------------------------------------------------------------
To UNSUBSCRIBE, send email to <info at email.esm.psu.edu> with
"unsubscribe macosx-tex" (no quotes) in the body.
For additional HELP, send email to <info at email.esm.psu.edu> with
"help" (no quotes) in the body.
This list is not moderated, and I am not responsible for
messages posted by third parties.
-----------------------------------------------------------------

</x-flowed>