%%%%%%%%%%%%%%%%%%%%%%%%%%% kashmiri.sty %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% kashmiri.sty
% ArabTeX
% additions for processing Kashmiri
% 14.05.1999
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% (c) Klaus Lagally
%     Institut fuer Informatik
%     Universitaet Stuttgart
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\a@ident {kashmiri.sty} {0.01 Kashmiri additions } {14.05.1999}

\chardef \kashatcode = \catcode`\@  \catcode`\@ = 11

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% arabtex.sty

\newif \ifk@sh

\def \setkashmiri {% Kashmiri language mode
\seturdu \k@shtrue \newarabfont
\settrans{kashmiri}}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% ascan.sty

\def \t@dot #1{% after .
\apply \set@char \tocase #1\of 
%{       a{\nxp \a@A }
{       a{\ifk@sh \nxp \a@Za \else \nxp \a@A \fi }
        b{\nxp \a@b }
        d{D}
        e{\nxp \a@I }
        f{\nxp \a@f }
        g{R}
        h{H}
        i{\nxp \a@e }
        k{\ift@rk q\else \nxp \a@k \fi }
        l{\nxp \a@l }
        n{\ifp@sht \nxp \a@N \else 
          \ifs@nd \nxp \a@an \else \nxp \a@n \fi\fi }
%        o{\nxp \a@O }
        o{\ifk@sh \nxp \a@Zo \else \nxp \a@O \fi }
        p{\nxp \a@f }
        r{\ifs@nd \nxp \a@ar \else \nxp \a@R \fi }
        s{S}
        t{V}
        u{\ifk@sh \nxp \a@Zu \else \nxp \a@U \fi }
        v{\nxp \a@b }
        y{\nxp \a@ZI }
        z{Z}
	A{\nxp \a@ZA }
	O{\nxp \a@ZO }
	U{\nxp \a@ZU }
        Z{\nxp \a@Zz }
        T{Y} 
}\endcase \t@tail .#1}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\catcode`\@ = \kashatcode 

\endinput
%%%%%%%%%%%%%%%%%%%%%%%% EOF %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

