dsekmarginkern.sty

%%
%% This is file `dsekmarginkern.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% dsekmarginkern.dtx  (with options: `package')
%% 
%% IMPORTANT NOTICE:
%% 
%% For the copyright see the source file.
%% 
%% Any modified versions of this file must be renamed
%% with new filenames distinct from dsekmarginkern.sty.
%% 
%% For distribution of the original source see the terms
%% for copying and modification in the file dsekmarginkern.dtx.
%% 
%% This generated file may be distributed as long as the
%% original source files, as listed above, are part of the
%% same distribution. (The sources need not necessarily be
%% in the same archive or directory.)

\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{dsekmarginkern}
\typeout{This is dsekmarginkern.sty, version 2001-07-31}
\newcount\@tempcnta
\newcount\@tempcntb
\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
  \ifnum\pdftexversion > 14
    \adjustprotcode#1
  \else
    \ifnum\pdftexversion > 13
      \ifnum\expandafter`\pdftexrevision > `g
        \adjustprotcode#1
      \fi
    \fi
  \fi

}
\def\adjustprotcode#1{%
  \@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
}
\def\adjustcp#1#2#3{%
  \setbox0=\hbox{%
    \ifx#2\font\else#2\fi
    \char#3}%
  \@tempcntb=\wd0
  \multiply\@tempcntb #1#2#3
  \divide\@tempcntb \fontdimen6 #2
  #1#2#3=\@tempcntb
}
\endinput
%%
%% End of file `dsekmarginkern.sty'.