summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/arabtex/hebtex.sty
blob: 8cd8a63feb85ff139fc90bf18749081adf01ad5c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% hebtex.sty
% ArabTeX
% Modifications for Hebrew mode
% 12.06.2000
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% (c) Klaus Lagally
%     Institut fuer Informatik
%     Universitaet Stuttgart
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\ifx \sethebrew \undefined \else \xpa \endinput \fi

\ifx \ArabTeX \undefined 
\ifx \NeedsTeXFormat \undefined \input arabtex.sty 
\else \usepackage {arabtex}\fi \fi

\let \h@wlog \wlog	\def \wlog #1{\relax }

\a@ident {hebtex.sty} {3.10 modifications for Hebrew mode} {12.06.2000}

\newif \ifhedc@de 

\ifx \LaTeX \undefined \else 
	\let \h@document \document
	\def \document {\h@document \sethebrew \hedc@detrue }
\fi

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

\let \hebtext \arabtext	   \let \endhebtext \endarabtext
\let \hebtex  \arabtext	   \let \endhebtex  \endarabtext % catch typo
\let \hebfalse \arabfalse  \let \hebtrue \arabtrue

\pdef \sethebrew {% switch to hebrew writing
\all@false \@ssimtrue \yahd@tstrue \heb@output 
\def \a@defaultfont {\hc }\setarabfont \a@normalfont \hc }

\let \setheb \sethebrew	

\def \set@hebfont {\setarabfont \heb@font }

\def \heb@font {\protect \pheb }
\def \a@defaultfont {\protect \pheb }

\def \sethebfont #1{\def \pheb {\hebfont }\font \hebfont =#1\relax}

\all@wcmd \sethebrew \all@wcmd \setheb \all@wcmd \sethebfont \all@wif \heb

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

\def \heb@output {\ifx \a@lang \a@hebr \else
\tr@ceoff % switch to Hebrew output conventions
\def@hebchars % define character macros for Hebrew
\def@hebvoc % define vowel parsing routines for Hebrew
\def@hebstrut % define strut for Hebrew
\global\let \a@write \heb@write \global\let \a@write@hook \relax
\tr@heb	\tr@ceon \global\let \a@lang \a@hebr \fi }

\def \a@hebr {HEBREW}  
\let \tr@heb \relax % if hetrans.sty is not loaded

\def \def@hebstrut {\def \arab@strut 
%{\vrule height2.8ex depth0.7ex width0pt \relax }}
{\vrule height1.9ex depth0.7ex width0pt \relax }}

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

\UsePackage {hecmd}
\UsePackage {hescan}
\UsePackage {heparse}
\UsePackage {hewrite}
\UsePackage {hetrans}
\ifx \LaTeX \undefined \else \UsePackage {hefonts}
\fi

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\UsePackage {hepatch}	% must be at the end !!

%\hc

\let \wlog \h@wlog

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