%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% serto.sty
%% For the use of serto fonts within LaTeX
%% Last modified 15th December 2020
%% Johannes Heinecke, Lannion

\typeout{Document Style `serto.sty' <15th December 2020>.}

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


