summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/arabtex
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2012-03-21 00:48:51 +0000
committerKarl Berry <karl@freefriends.org>2012-03-21 00:48:51 +0000
commit15246c24a423f95e7a7df066901a4bc693484ae4 (patch)
tree40c148e136c3d8daae1cc15d05d2a6777a91aa5c /Master/texmf-dist/tex/latex/arabtex
parent99cc3d16261325d9426830014599fb9a87df704e (diff)
new hecmd.sty (20mar12)
git-svn-id: svn://tug.org/texlive/trunk@25711 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/arabtex')
-rw-r--r--Master/texmf-dist/tex/latex/arabtex/hecmd.sty116
1 files changed, 32 insertions, 84 deletions
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,66 +22,13 @@
\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
\setbox0 \hbox {#1}%
@@ -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 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+