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 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
