summaryrefslogtreecommitdiff
path: root/language/aramaic/serto/serto.sty
blob: a45da960e4d1b374783f7bfd1321ca22e7b8e710 (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
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% serto.sty
%% For the use of serto fonts within LaTeX
%% Last modified 9th June 2003
%% Johannes Heinecke, Lannion

\typeout{Document Style `serto.sty' <9th June 2003>.}

\def\fsertr{serto10 }
\def\fsertb{serto10b }

%%
%% Use with \serto
%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% do we have elatex?
\ifx\TeXXeTstate\undefined\def\beginR{}\def\endR{}\else
\TeXXeTstate=1\fi


%% Taken from exaccent.sty (Tipa package)
%% usage \loweraccent[distance]{accent}{letter}
%\newcommand\lowerserto{\@ifnextchar[{\lower@serto a\empty}%
%  {\lower@serto a\empty[\z@]}}
%\newcommand\upperserto{\@ifnextchar[{\upper@serto a\empty}%
%  {\upper@serto a\empty[\z@]}}
%
%\def\upper@serto#1#2[#3]#4#5{{\leavevmode
%  \setbox\z@\hbox{#5}\setbox\@ne\hbox{#2%
%    \if a#1\char#4\else#4\fi}%
%  \ifx\empty#5\empty\box\@ne\else
%  \@getaccshift \let\c@lcshift\@pshift
%  \dimen\z@\ht\@ne
%  \ifdim\ht\@ne>1ex \advance\dimen\z@ -1ex \else
%  \ifdim\ht\@ne=\z@ \dimen\z@\dp\@ne \fi\fi
%  \vbox{\hsize\wd\z@\offinterlineskip
%    %\hb@xt@\z@{\@accshift{#3}\hb@xt@\wd\z@{%
%    \hb@xt@\z@{\@accshift{.5ex}\hb@xt@\wd\z@{%
%     \hss\vbox to \dimen\z@{\hbox{\box\@ne}\vss}\hss}\hss}
%    %\kern#3
%    \kern.5ex
%    \hbox{#5}}\fi}}
%
%\def\lower@serto#1#2[#3]#4#5{{\leavevmode
%  \setbox\z@\hbox{#5}\setbox\@ne\hbox{#2%
%    \if a#1\char#4\else#4\fi}%
%  \ifx\empty#5\empty\box\@ne\else
%  \@getaccshift \let\c@lcshift\s@bshift
%  \dimen\z@\ht\@ne
%  \ifdim\ht\@ne>1ex \advance\dimen\z@ -1.1ex \else
%  \ifdim\ht\@ne=\z@ \dimen\z@\dp\@ne \fi\fi
%  \vtop{\hsize\wd\z@\offinterlineskip
%    \hbox{#5}
%    \kern#3
%    %\kern.5ex
%    \hbox{\@accshift{#3}\hb@xt@\wd\z@{%
%    %\hbox{\@accshift{.5ex}\hb@xt@\wd\z@{%
%      \hss\vbox to \dimen\z@{\hbox{\box\@ne}\vss}\hss}}}\fi}}
%
%\newcommand\@getaccshift{\def\@accshift##1{}%
%  \ifx\f@shape\@slshapename\let\@accshift\@accshiftsl\fi
%  \ifx\f@shape\@itshapename\let\@accshift\@accshiftsl\fi}
%
%\newcommand\@accshiftsl[1]{\c@lcshift{#1}\kern-.16667\dimen\@ne}
%
%\newcommand\@pshift[1]{%
%  \dimen\@ne-\ht\z@          % get height of the box to be accented
%  \advance\dimen\@ne -#1%    % add margin between the letter and accent
%  \ifdim\ht\@ne>1ex
%    \advance\dimen\@ne 1ex\else
%  \ifdim\ht\@ne=\z@
%    \advance\dimen\@ne -\dp\@ne\fi\fi}
%    
%\newcommand\s@bshift[1]{%
%  \dimen\@ne\dp\z@                % get depth of the box to be accented
%  \ifdim\ht\@ne>\z@
%    \advance\dimen\@ne \ht\@ne\fi % add ht of the accent
%  \ifdim\ht\@ne>1ex
%    \advance\dimen\@ne #1\fi}     % add margin between the letter and accent

\usepackage{syriac}

%%
%% Standard serto
\expandafter \ifx \csname psertr\endcsname \relax \else
  \expandafter \endinput
\fi
\expandafter \ifx \csname psertb\endcsname \relax \else
  \expandafter \endinput
\fi

%% select the mxedruliX font with \mxedrX
%%
\def\serto {\protect\psertr\noindent}
\def\sertob {\protect\psertb\noindent}

% If NFSS2 is used,  \DeclareFontShape is defined.
\expandafter\ifx\csname DeclareFontShape\endcsname\relax

% But possibly NFSS1 is used...
\expandafter\ifx\csname selectfont\endcsname\relax

% No, its only the standard font selection...
\message {Warning: Standard font selection *not* supported}

\else
\message {Warning: NFSS1  *not* supported}
\fi

\else


\message {Using NFSS2}
 
% \psert uses the `unknown' fontencoding, `mxed' fontfamily, `m'edium
% fontseries,  `n'ormal fontshape.
%
\def\psertr{\fontencoding{U}\fontfamily{serto}%
           \fontseries{m}\fontshape{n}\selectfont}
\def\psertb{\fontencoding{U}\fontfamily{serto}%
           \fontseries{m}\fontshape{b}\selectfont}

% All the rest is defined `userto.fd', which is loaded automatically

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