From 15246c24a423f95e7a7df066901a4bc693484ae4 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Wed, 21 Mar 2012 00:48:51 +0000 Subject: new hecmd.sty (20mar12) git-svn-id: svn://tug.org/texlive/trunk@25711 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/arabtex/hecmd.sty | 116 +++++++------------------- 1 file changed, 32 insertions(+), 84 deletions(-) (limited to 'Master/texmf-dist/tex/latex') diff --git a/Master/texmf-dist/tex/latex/arabtex/hecmd.sty b/Master/texmf-dist/tex/latex/arabtex/hecmd.sty index bc2721ebeed..14ecb374e2a 100644 --- a/Master/texmf-dist/tex/latex/arabtex/hecmd.sty +++ b/Master/texmf-dist/tex/latex/arabtex/hecmd.sty @@ -3,16 +3,16 @@ % ArabTeX % special commands for Hebrew mode % using ideas by Rama Porrat, Bernd Raichle and others -% 07.05.2000 +% 26.07.2007 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % (c) Klaus Lagally -% Institut fuer Informatik +% Institut fuer Formale Methoden der Informatik % Universitaet Stuttgart %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -\a@ident {hecmd.sty} {3.05 additional commands for Hebrew} {07.05.2000} +\a@ident {hecmd.sty} {3.12 additional commands for Hebrew} {26.07.2007} -\let \RLtext \arabtext \let \endRLtext \endarabtext +\let \RLtext \arabtext \let \endRLtext \endarabtext %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -22,65 +22,12 @@ \is@m = 96 % oldcode \is@n = 128 % pccode \is@l = 224 % newcode -\loop \lccode \is@n = \is@m \catcode \is@n = 11 - \lccode \is@l = \is@m \catcode \is@l = 11 +\loop \global\lccode \is@n = \is@m \catcode \is@n = 11 + \global\lccode \is@l = \is@m \catcode \is@l = 11 \ifnum 122 > \is@m - \advance \is@m 1 \advance \is@n 1 \advance \is@l 1 -\repeat } - -\def \heb@catcodes {% make chars 128-154 and 224-250 into letters -\is@m = 96 % oldcode -\is@n = 128 % pccode -\is@l = 224 % newcode -\loop \global\lccode \is@n = \is@m \catcode \is@n = 11 - \global\lccode \is@l = \is@m \catcode \is@l = 11 -\ifnum 122 > \is@m - \advance \is@m 1 \advance \is@n 1 \advance \is@l 1 + \advance \is@m 1 \advance \is@n 1 \advance \is@l 1 \repeat } -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -% activate most commands from hebrew.sty - -\begingroup -\heb@catcodes - -\allowarab \ \allowarab \Ԩ -\allowarab \ \allowarab \ -\allowarab \ \allowarab \ -\allowarab \ \allowarab \԰ -\allowarab \ \allowarab \԰ -\allowarab \ \allowarab \հ԰ -\allowarab \ \allowarab \ -\allowarab \ \allowarab \հ -\allowarab \ \allowarab \ڱ -\allowarab \ \allowarab \ڱڱ -\allowarab \ \allowarab \ޭ -\allowarab \ \allowarab \ڭխڷ -\allowarab \ \allowarab \ -\allowarab \ \allowarab \հگڴ -\allowarab \ \allowarab \հ -\allowarab \ \allowarab \ٵ -\allowarab \ \allowarab \ - -\gdef \ {\hadgesh} \gdef \Ԩ {\hadgesh} -\gdef \ {\makafgadol} \gdef \ {\makafgadol} -\gdef \ {\makafanak} \gdef \ {\makafanak} -\gdef \ {\geresh} \gdef \԰ {\geresh} -\gdef \ {\opengeresh} \gdef \԰ {\opengeresh} -\gdef \ {\closegeresh} \gdef \հ԰ {\closegeresh} -\gdef \ {\openquote} \gdef \ {\openquote} -\gdef \ {\closequote} \gdef \հ {\closequote} -\gdef \ {\piska} \gdef \ڱ {\piska} -\gdef \ {\piskapiska} \gdef \ڱڱ {\piskapiska} -\gdef \ {\smallskip} \gdef \ޭ {\smallskip } -\gdef \ {\medskip} \gdef \ڭխڷ {\medskip } -\gdef \ {\bigskip} \gdef \ {\bigskip } -\gdef \ {\rightline} \gdef \հگڴ {\rightline} -\gdef \ {\leftline} \gdef \հ {\leftline} -\gdef \ {\centerline} \gdef \ٵ {\centerline} -\gdef \ {\hebday} \gdef \ {\hebday} -\endgroup - %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \def \a@hadgesh #1{% poor man's bold version @@ -99,7 +46,7 @@ \def \a@c@geresh {\a@spacefalse \putwordb@x {\bf `}\test@token } \let \a@c@closegeresh \a@c@geresh -\def \geresh {`} \let \closegeresh \geresh +\def \geresh {`} \let \closegeresh \geresh \def \a@c@opengeresh {\putwordb@x {\bf '}\a@spacefalse \test@token } \def \opengeresh {'} @@ -114,9 +61,9 @@ \let \undertext \underline \def \a@c@hebday {\putwordb@x {\number\day }\a@spacetrue -\edef \themonth {\ifcase \month \or - \or \or \or \or \or \or - \or \or \or \or \or \fi }% +\edef \themonth {\ifcase \month \or + \or \or \or \or \or \or + \or \or \or \or \or \fi }% \putwordb@x {\xpa \RL \xpa {\themonth }}\a@spacetrue \putwordb@x {\number\year }\test@token } @@ -128,7 +75,7 @@ \Hebrewsetreg \tracingmacros 1 \edef \theHebrewDay {\HebrewDayName {\Hebrewday }\space -\HebrewMonthName {\Hebrewmonth }{\Hebrewyear },\space +\HebrewMonthName {\Hebrewmonth }{\Hebrewyear },\space \a@HebrewYearName {\Hebrewyear }}% \tracingmacros 0 \putwordb@x {\xpa \R \xpa {\theHebrewDay }}\test@token } @@ -142,11 +89,11 @@ \def \a@HYName #1#2#3#4{% max 4 digits to Hebrew number \ifnum #1= 5 % Change it in the next Hebrew Millennium.. - \ifnum #2#3#4> 0 \else \DigitInHebrew {#1}'\fi + \ifnum #2#3#4> 0 \else \DigitInHebrew {#1}'\fi \else \DigitInHebrew {#1}'\fi \a@ShortHYName {#2#3#4}% -\ifnum #1< 1 \space )"(\fi -\ifnum #2#3#4= 0 \space )"(\fi } +\ifnum #1< 1 \space )"(\fi +\ifnum #2#3#4= 0 \space )"(\fi } \def \a@SHYNumber #1{% fully expandable version \ifnum #1>999 \errmessage{ShortHYName: illegal argument #1}\else @@ -155,13 +102,13 @@ \xpa \a@SHYName \xpa 0\xpa 0\number #1\fi \fi \fi } \def \a@SHYName #1#2#3{% max 3 digits, fully expandable -\ifcase #1\or \or \or \or \or - \or \or \or \or \fi -\ifnum #2#3 = 16 \else -\ifnum #2#3 = 15 \else - \ifnum #2 = 0 \else \TensInHebrew{#2}\fi - \ifnum #3 = 0 \else \DigitInHebrew{#3}\fi -\fi\fi } +\ifcase #1\or \or \or \or \or + \or \or \or \or \fi +\ifnum #2#3 = 16 \else +\ifnum #2#3 = 15 \else + \ifnum #2 = 0 \else \TensInHebrew{#2}\fi + \ifnum #3 = 0 \else \DigitInHebrew{#3}\fi +\fi\fi } \def \a@ShortHYName #1{% format Hebrew number < 1000 \xpa \xpa \xpa \a@FormatNumber \a@EvalToCS {\a@SHYNumber {#1}}\@ } @@ -196,7 +143,7 @@ \def\piska#1{\item{#1}\hangindent=-\hangindent} \def\piskapiska#1{\itemitem{#1}\hangindent=-\hangindent} - + \def\leftquotation{\L{''}} \def\rightquotation{\L{``}} \fi @@ -204,14 +151,15 @@ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \endinput %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - ! " $ % & . ( ) = ? ; -^ 1 2 3 4 5 6 7{ 8[ 9] 0} \ , - Q@ W E R T Z U I O P * - / ' +~ - A S D F G H J K L , - # - > Y X C V B N M : _ - <| - + ! " $ % & . ( ) = ? ; +^ 1 2 3 4 5 6 7{ 8[ 9] 0} \ , + Q@ W E R T Z U I O P * + / ' +~ + A S D F G H J K L , + # + > Y X C V B N M : _ + <| - %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% EOF %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + -- cgit v1.2.3