summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/archaic/sarabian.sty
blob: 3ed9e83fd78847efde235d58cbf298b1a4ea91f0 (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
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
%%
%% This is file `sarabian.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% sarabian.dtx  (with options: `usc')
%% ------------------------------------------------------------------
%%   Author: Peter Wilson (Herries Press) herries dot press at earthlink dot net
%%   Copyright 2005 Peter R. Wilson
%% 
%%   This work may be distributed and/or modified under the
%%   conditions of the Latex Project Public License, either
%%   version 1.3 of this license or (at your option) any
%%   later version.
%%   The latest version of the license is in
%%     http://www.latex-project.org/lppl.txt
%%   and version 1.3 or later is part of all distributions of
%%   LaTeX version 2003/06/01 or later.
%% 
%%   This work has the LPPL maintenance status "author-maintained".
%% 
%%   This work consists of the files listed in the README file.
%% ------------------------------------------------------------------
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{sarabian}[2005/11/12 v1.1 package for South Arabian fonts]
\newcommand{\sarabfamily}{\usefont{T1}{sarab}{m}{n}}
\DeclareTextFontCommand{\textsarab}{\sarabfamily}

\chardef\SArq=`'
\chardef\SAa=`a
\chardef\SAb=`b
\chardef\SAg=`g
\chardef\SAd=`d
\chardef\SAh=`h
\chardef\SAw=`w
\chardef\SAz=`z
\chardef\SAhd=`H
\chardef\SAtd=`T
\chardef\SAy=`y
\chardef\SAk=`k
\chardef\SAl=`l
\chardef\SAm=`m
\chardef\SAn=`n
\chardef\SAs=`s
\chardef\SAf=`f
\chardef\SAlq=``
\chardef\SAo=`o
\chardef\SAsd=`x
\chardef\SAq=`q
\chardef\SAr=`r
\chardef\SAsv=`S
\chardef\SAt=`t
\chardef\SAhu=`I
\chardef\SAdb=`D
\chardef\SAtb=`J
\chardef\SAga=`G
\chardef\SAzd=`Z
\chardef\SAsa=`X
\chardef\SAdd=`B

\newcommand{\translitsarab}[1]{{%
  \@translitSA\translitsarabfont #1}}
\newcommand{\translitsarabfont}{\itshape}

\DeclareTextCommand{\SAunder}{OT1}[1]%
  {{\o@lign{\relax#1\crcr\hidewidth\sh@ft{29}%
    \vbox to.2ex{\hbox{\char21}\vss}\hidewidth}}}

\newcommand{\@translitSA}{%
\def\SArq{'}%
\def\SAa{'}%
\def\SAb{b}%
\def\SAg{g}%
\def\SAd{d}%
\def\SAh{h}%
\def\SAw{w}%
\def\SAz{z}%
\def\SAhd{\d{h}}%
\def\SAtd{\d{t}}%
\def\SAy{y}%
\def\SAk{k}%
\def\SAl{l}%
\def\SAm{m}%
\def\SAn{n}%
\def\SAs{s}%
\def\SAf{f}%
\def\SAlq{`}%
\def\SAo{`}%
\def\SAsd{\d{s}}%
\def\SAq{q}%
\def\SAr{r}%
\def\SAsv{\v{s}}%
\def\SAt{t}
\def\SAhu{\SAunder{h}}%
\def\SAdb{\b{d}}%
\def\SAtb{\b{t}}%
\def\SAga{\'{g}}%
\def\SAzd{\d{z}}%
\def\SAsa{\'{s}}%
\def\SAdd{\d{d}}%
}

\endinput
%%
%% End of file `sarabian.sty'.