summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/generic/babel/icelandic.dtx
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/source/generic/babel/icelandic.dtx')
-rw-r--r--Master/texmf-dist/source/generic/babel/icelandic.dtx749
1 files changed, 0 insertions, 749 deletions
diff --git a/Master/texmf-dist/source/generic/babel/icelandic.dtx b/Master/texmf-dist/source/generic/babel/icelandic.dtx
deleted file mode 100644
index 7b4be56c383..00000000000
--- a/Master/texmf-dist/source/generic/babel/icelandic.dtx
+++ /dev/null
@@ -1,749 +0,0 @@
-% \iffalse meta-comment
-%
-% Copyright 1989-2005 Johannes L. Braams and any individual authors
-% listed elsewhere in this file. All rights reserved.
-%
-% This file is part of the Babel system.
-% --------------------------------------
-%
-% It 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 this 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/12/01 or later.
-%
-% This work has the LPPL maintenance status "maintained".
-%
-% The Current Maintainer of this work is Johannes Braams.
-%
-% The list of all files belonging to the Babel system is
-% given in the file `manifest.bbl. See also `legal.bbl' for additional
-% information.
-%
-% The list of derived (unpacked) files belonging to the distribution
-% and covered by LPPL is defined by the unpacking scripts (with
-% extension .ins) which are part of the distribution.
-% \fi
-% \CheckSum{546}
-%
-% \iffalse
-% Tell the \LaTeX\ system who we are and write an entry on the
-% transcript.
-%<*dtx>
-\ProvidesFile{icelandic.dtx}
-%</dtx>
-%<code>\ProvidesLanguage{icelandic}
-%\fi
-%\ProvidesFile{icelandic.dtx}
- [2005/03/30 v1.1g Icelandic support from the babel system]
-%\iffalse
-%% File iceland.dtx
-%% Babel package for LaTeX version 2e
-%% Copyright (C) 1989--2005
-%% by Johannes Braams, TeXniek
-%
-%% Icelandic Language Definition File
-%% Copyright (C) 1996--2005
-%% by Einar \'Arnason <einar@lif.hi.is>
-%% Johannes Braams, TeXniek
-%
-%% Please report errors to: Einar \'Arnason
-%% einar at lif.hi.is
-%% or to: J.L. Braams
-%% babel at braams.cistron.nl
-%%
-%
-%<*filedriver>
-\documentclass{ltxdoc}
-\usepackage{t1enc}
-\usepackage[icelandic,english]{babel}
-\font\manual=logo10 % font used for the METAFONT logo, etc.
-\newcommand*\MF{{\manual META}\-{\manual FONT}}
-\newcommand*\TeXhax{\TeX hax}
-\newcommand*\babel{\textsf{babel}}
-\newcommand*\langvar{$\langle \it lang \rangle$}
-\newcommand*\note[1]{}
-\newcommand*\Lopt[1]{\textsf{#1}}
-\newcommand*\file[1]{\texttt{#1}}
-\begin{document}
-\begin{center}
- \textbf{\Large A Babel language definition file for
- Icelandic}\\[3mm]^^A\]
- Einar \'Arnason\\
- \texttt{einar@lif.hi.is}
-\end{center}
- \DocInput{icelandic.dtx}
-\end{document}
-%</filedriver>
-%\fi
-% \GetFileInfo{iceland.dtx}
-%
-%
-% \changes{icelandic-1.1c}{1997/05/21}{Removed code already present in
-% \file{babel.def}}
-%
-% \section{The Icelandic language}
-%
-% \subsection{Overview}
-%
-% The file \file{\filename}\footnote{The file described in this
-% section has version number \fileversion\ and was last revised on
-% \filedate. } defines all the language definition macros for
-% the Icelandic language
-%
-% Customization for the Icelandic language was made following
-% several official and semiofficial publications~\cite{74:_augl,
-% 77:_augl,88:_reglur,94:_si,97:_forst_fs}. These publications do
-% not always agree and we indicate those instances.
-%
-% For this language the character |"| is made active. In
-% table~\ref{tab:icelandic-extras} an overview is given of its
-% purpose.
-% \begin{table}[htb]
-% \begin{center}
-% \begin{otherlanguage*}{icelandic}
-% \begin{tabular}{lp{8cm}}
-% \verb="|= & disable ligature at this position. \\
-% |"-| & an explicit hyphen sign, allowing hyphenation
-% in the rest of the word. \\
-% |""| & like |"-|, but producing no hyphen sign
-% (for compund words with hyphen, e.g.\ |x-""y|). \\
-% |"~| & for a compound word mark without a breakpoint. \\
-% |"=| & for a compound word mark with a breakpoint, allowing
-% hyphenation in the composing words. \\
-% |"`| & for Icelandic left double quotes (looks like ,,). \\
-% |"'| & for Icelandic right double quotes. \\
-% |">| & for Icelandic `french' left double quotes
-% (similar to $>>$).\\
-% |"<| & for Icelandic `french' right double quotes
-% (similar to $<<$).\\
-% |"o| & for old Icelandic "o \\
-% |"O| & for old Icelandic "O \\
-% |"ó| & for old Icelandic "ó \\
-% |"Ó| & for old Icelandic "Ó \\
-% |"e| & for old Icelandic "e \\
-% |"E| & for old Icelandic "E \\
-% |"é| & for old Icelandic "é \\
-% |"É| & for old Icelandic "É \\
-% |\tala| & for typesetting numbers\\
-% |\grada| & for the `degree' symbol\\
-% |\gradur| & for `degrees', e.g. 5~\gradur C\\
-% |\upp| & for textsuperscript \\
-% \end{tabular}
-% \end{otherlanguage*}
-% \caption{The shorthands and extra definitions made
-% by \file{icelandic.ldf}}\label{tab:icelandic-extras}
-% \end{center}
-% \end{table}
-% The shorthands in table~\ref{tab:icelandic-extras} can also be
-% typeset by using the commands in
-% table~\ref{tab:icelandic-commands}.
-% \begin{table}[htb]
-% \begin{center}
-% \begin{otherlanguage*}{icelandic}
-% \begin{tabular}{lp{8cm}}
-% |\ilqq| & for Icelandic left double quotes
-% (looks like ,,). \\
-% |\irqq| & for Icelandic right double quotes
-% (looks like ``). \\
-% |\ilq| & for Icelandic left single quotes
-% (looks like ,). \\
-% |\irq| & for Icelandic right single quotes
-% (looks like `). \\
-% |\iflqq| & for Icelandic `french' left double quotes
-% (similar to $>>$).\\
-% |\ifrqq| & for Icelandic `french' right double quotes
-% (similar to $<<$).\\
-% |\ifrq| & for Icelandic `french' right single quotes
-% (similar to $<$).\\
-% |\iflq| & for Icelandic `french' left single quotes
-% (similar to $>$). \\
-% |\dq| & the original quotes character (|"|). \\
-% |\oob| & for old Icelandic "o \\
-% |\Oob| & for old Icelandic "O \\
-% |\ooob| & for old Icelandic "ó \\
-% |\OOob| & for old Icelandic "Ó \\
-% |\eob| & for old Icelandic "e \\
-% |\Eob| & for old Icelandic "E \\
-% |\eeob| & for old Icelandic "é \\
-% |\EEob| & for old Icelandic "É \\
-% \end{tabular}
-% \end{otherlanguage*}
-% \caption{Commands which produce quotes and old Icelandic
-% diacritics, defined by
-% \file{icelandic.ldf}}\label{tab:icelandic-commands}
-% \end{center}
-% \end{table}
-%
-% \begin{thebibliography}{1}
-%
-% \bibitem{88:_reglur}
-% Alþingi.
-% \newblock {\em Reglur um frágang þingskjala og prentun umræðna},
-% 1988.
-%
-% \bibitem{74:_augl}
-% Auglýsing um greinarmerkjasetningu.
-% \newblock Stj.tíð B, nr. 133/1974, 1974.
-%
-% \bibitem{77:_augl}
-% Auglýsing um breyting auglýsingu nr. 132/1974 um íslenska
-% stafsetningu.
-% \newblock Stj.tíð B, nr. 261/1977, 1977.
-%
-% \bibitem{unknown72:_first_gramm_treat}
-% Einar Haugen, editor.
-% \newblock {\em First Grammatical Treatise}.
-% \newblock Longman, London, 2 edition, 1972.
-%
-% \bibitem{97:_forst_fs}
-% Staðlaráð Íslands og Fagráð í upplýsingatækni, Reykjavík.
-% \newblock {\em Forstaðall FS 130:1997}, 1997.
-%
-% \bibitem{94:_si}
-% STRÍ Staðlaráð Íslands.
-% \newblock {\em SI - kerfið}, 2 edition, 1994.
-%
-% \end{thebibliography}
-%
-% \StopEventually{}
-%
-%
-% \subsection{\TeX{}nical details}
-%
-% When this file was read through the option \Lopt{icelandic} we make
-% it behave as if \Lopt{icelandic} was specified.
-%
-% \begin{macrocode}
-\def\bbl@tempa{icelandic}
-\ifx\CurrentOption\bbl@tempa
- \def\CurrentOption{icelandic}
-\fi
-% \end{macrocode}
-%
-% The macro |\LdfInit| takes care of preventing that this file is
-% loaded more than once, checking the category code of the
-% \texttt{@} sign, etc.
-% \begin{macrocode}
-%<*code>
-\LdfInit\CurrentOption{captions\CurrentOption}
-% \end{macrocode}
-%
-% When this file is read as an option, i.e., by the |\usepackage|
-% command, \texttt{icelandic} will be an `unknown' language, so we
-% have to make it known. So we check for the existence of
-% |\l@icelandic| to see whether we have to do something here.
-%
-% \begin{macrocode}
-\ifx\l@icelandic\@undefined
- \@nopatterns{Icelandic}
- \adddialect\l@icelandic0
-\fi
-% \end{macrocode}
-%
-% \begin{macro}{\if@Two@E}
-% We will need a new `if' : |\if@Two@E| is true if and only if
-% \LaTeXe{} is running \emph{not} in compatibility mode. It is
-% used in the definitions of the command |\tala| and |\upp|.
-% The definition is somewhat complicated, due to the fact that
-% |\if@compatibility| is not recognized as a |\if| in
-% \LaTeX-2.09 based formats.
-% \begin{macrocode}
-\newif\if@Two@E \@Two@Etrue
-\def\@FI@{\fi}
-\ifx\@compatibilitytrue\@undefined
- \@Two@Efalse \def\@FI@{\relax}
-\else
- \if@compatibility \@Two@Efalse \fi
-\@FI@
-% \end{macrocode}
-% \end{macro}
-%
-%
-% \begin{macro}{\extrasicelandic}
-% \begin{macro}{\noextrasicelandic}
-%
-% The macro |\extrasicelandic|
-% will perform all the extra definitions needed for the Icelandic
-% language. The macro |\noextrasicelandic| is used to cancel the
-% actions of |\extrasicelandic|.
-%
-% For Icelandic the \texttt{"} character is
-% made active. This is done once, later on its definition may vary.
-% \begin{macrocode}
-\initiate@active@char{"}
-\@namedef{extras\CurrentOption}{%
- \languageshorthands{icelandic}}
-\expandafter\addto\csname extras\CurrentOption\endcsname{%
- \bbl@activate{"}}
-% \end{macrocode}
-% Don't forget to turn the shorthands off again.
-% \changes{icelandic-1.1e}{1999/12/17}{Deactivate shorthands ouside of
-% Icelandic}
-% \begin{macrocode}
-\addto\noextrasicelandic{\bbl@deactivate{"}}
-% \end{macrocode}
-%
-% The icelandic hyphenation patterns can be used with
-% |\lefthyphenmin| and |\righthyphenmin| set to~2.
-% \changes{icelandic-1.1f}{2000/09/22}{Now use \cs{providehyphenmins}
-% to provide a default value}
-% \begin{macrocode}
-\providehyphenmins{\CurrentOption}{\tw@\tw@}
-% \end{macrocode}
-% \end{macro}
-% \end{macro}
-%
-% The code above is necessary because we need an extra active
-% character. This character is then used as indicated in
-% table~\ref{tab:icelandic-commands}.
-%
-% To be able to define the function of |"|, we first define a
-% couple of `support' macros.
-%
-% \subsection{Captionnames and date}
-%
-% The next step consists of defining the Icelandic equivalents for
-% the \LaTeX{} captionnames.
-%
-% \begin{macro}{\captionsicelandic}
-% The macro |\captionsicelandic| will define all strings used
-% used in the four standard document classes provided
-% with \LaTeX.
-% \changes{icelandic-1.1f}{2000/09/20}{Added \cs{glossaryname}}
-% \changes{icelandic-1.1g}{2002/01/00}{Only use 7-bit ASCII characters
-% in order to keep the texts input encoding independant}
-% \changes{icelandic-1.1g}{2002/01/09}{Added translation for Glossary}
-% \begin{macrocode}
-\@namedef{captions\CurrentOption}{%
- \def\prefacename{Form\'{a}li}%
- \def\refname{Heimildir}%
- \def\abstractname{\'{U}tdr\'{a}ttur}%
- \def\bibname{Heimildir}%
- \def\chaptername{Kafli}%
- \def\appendixname{Vi{\dh}auki}%
- \def\contentsname{Efnisyfirlit}%
- \def\listfigurename{Myndaskr\'{a}}%
- \def\listtablename{T\"{o}fluskr\'{a}}%
- \def\indexname{Atri{\dh}isor{\dh}askr\'{a}}%
- \def\figurename{Mynd}%
- \def\tablename{Tafla}%
- \def\partname{Hluti}%
- \def\enclname{Hj\'{a}lagt}%
- \def\ccname{Samrit}%
- \def\headtoname{Til:}% in letter
- \def\pagename{Bla{\dh}s\'{\i}{\dh}a}%
- \def\seename{Sj\'{a}}%
- \def\alsoname{Sj\'{a} einnig}%
- \def\proofname{S\"{o}nnun}%
- \def\glossaryname{Or{\dh}alisti}%
- }
-% \end{macrocode}
-% \end{macro}
-%
-% \begin{macro}{\dateicelandic}
-% The macro |\dateicelandic| redefines the command |\today|
-% to produce Icelandic dates.
-% \changes{icelandic-1.1c}{1997/10/01}{Use \cs{edef} to define
-% \cs{today} to save memory}
-% \changes{icelandic-1.1c}{1998/03/28}{use \cs{def} instead of \cs{edef}}
-% \begin{macrocode}
-\def\dateicelandic{%
- \def\today{\number\day.~\ifcase\month\or
- jan\'{u}ar\or febr\'{u}ar\or mars\or apr\'{\i}l\or ma\'{\i}\or
- j\'{u}n\'{\i}\or j\'{u}l\'{\i}\or \'{a}g\'{u}st\or september\or
- okt\'{o}ber\or n\'{o}vember\or desember\fi
- \space\number\year}}
-% \end{macrocode}
-% \end{macro}
-%
-%
-% \subsection{Icelandic quotation marks}
-%
-%
-% \begin{macro}{\dq}
-% We save the original double quote character in |\dq| to keep
-% it available, the math accent |\"| can now be typed as |"|.
-% \begin{macrocode}
-\begingroup \catcode`\"12
-\def\x{\endgroup
- \def\@SS{\mathchar"7019 }
- \def\dq{"}}
-\x
-% \end{macrocode}
-% \end{macro}
-%
-% Now we can define the icelandic and icelandic `french' quotes.
-% The icelandic `french' guillemets are the reverse of french
-% guillemets. We define single icelandic `french' quotes for
-% compatibility. Shorthands are provided for a number of different
-% quotation marks, which make them useable both outside and
-% inside mathmode.
-%
-% \begin{macrocode}
-\let\ilq\grq
-\let\irq\grq
-\let\iflq\frq
-\let\ifrq\flq
-\let\ilqq\glqq
-\let\irqq\grqq
-\let\iflqq\frqq
-\let\ifrqq\flqq
-% \end{macrocode}
-%
-% \begin{macrocode}
-\declare@shorthand{icelandic}{"`}{\glqq}
-\declare@shorthand{icelandic}{"'}{\grqq}
-\declare@shorthand{icelandic}{">}{\frqq}
-\declare@shorthand{icelandic}{"<}{\flqq}
-% \end{macrocode}
-% and some additional commands:
-% \begin{macrocode}
-\declare@shorthand{icelandic}{"-}{\nobreak\-\bbl@allowhyphens}
-\declare@shorthand{icelandic}{"|}{%
- \textormath{\nobreak\discretionary{-}{}{\kern.03em}%
- \bbl@allowhyphens}{}}
-\declare@shorthand{icelandic}{""}{\hskip\z@skip}
-\declare@shorthand{icelandic}{"~}{\textormath{\leavevmode\hbox{-}}{-}}
-\declare@shorthand{icelandic}{"=}{\nobreak-\hskip\z@skip}
-% \end{macrocode}
-%
-%
-% \subsection{Old Icelandic}
-% \label{oldicelandic}
-%
-% \changes{icelandic-1.1}{1997/04/24}{Added definitions for old
-% icelandic.}
-%
-% In old Icelandic some letters have special diacritical marks,
-% described for example in \emph{First Grammatical
-% Treatise}~\cite{unknown72:_first_gramm_treat,97:_forst_fs}. We
-% provide these in the \texttt{T1} encoding with the `ogonek'. The
-% ogonek is placed with the letters `o', and `O', `ó' and `Ó', `e'
-% and `E', and `é' and `É'. Shorthands are provided for these as
-% well.
-%
-% The following code by Leszek Holenderski lifted from
-% \texttt{polish.dtx} is designed to position the diacritics
-% correctly for every font in every size. These macros need a
-% few extra dimension variables.
-%
-% \begin{macrocode}
-\newdimen\pl@left
-\newdimen\pl@down
-\newdimen\pl@right
-\newdimen\pl@temp
-% \end{macrocode}
-%
-% \begin{macro}{\sob}
-% The macro |\sob| is used to put the `ogonek' in the right
-% place.
-%
-% \begin{macrocode}
-\def\sob#1#2#3#4#5{%parameters: letter and fractions hl,ho,vl,vo
- \setbox0\hbox{#1}\setbox1\hbox{\k{}}\setbox2\hbox{p}%
- \pl@right=#2\wd0 \advance\pl@right by-#3\wd1
- \pl@down=#5\ht1 \advance\pl@down by-#4\ht0
- \pl@left=\pl@right \advance\pl@left by\wd1
- \pl@temp=-\pl@down \advance\pl@temp by\dp2 \dp1=\pl@temp
- \leavevmode
- \kern\pl@right\lower\pl@down\box1\kern-\pl@left #1}
-% \end{macrocode}
-% \end{macro}
-%
-% \begin{macro}{\oob}
-% \begin{macro}{\Oob}
-% \begin{macro}{\ooob}
-% \begin{macro}{\OOob}
-% \begin{macro}{\eob}
-% \begin{macro}{\Eob}
-% \begin{macro}{\eeob}
-% \begin{macro}{\EEob}
-% \begin{macrocode}
-\DeclareTextCommand{\oob}{T1}{\sob {o}{.85}{0}{.04}{0}}
-\DeclareTextCommand{\Oob}{T1}{\sob {O}{.7}{0}{0}{0}}
-\DeclareTextCommand{\ooob}{T1}{\sob {ó}{.85}{0}{.04}{0}}
-\DeclareTextCommand{\OOob}{T1}{\sob {Ó}{.7}{0}{0}{0}}
-\DeclareTextCommand{\eob}{T1}{\sob {e}{1}{0}{.04}{0}}
-\DeclareTextCommand{\Eob}{T1}{\sob {E}{1}{0}{.04}{0}}
-\DeclareTextCommand{\eeob}{T1}{\sob {é}{1}{0}{.04}{0}}
-\DeclareTextCommand{\EEob}{T1}{\sob {É}{1}{0}{.04}{0}}
-% \end{macrocode}
-% \end{macro}
-% \end{macro}
-% \end{macro}
-% \end{macro}
-% \end{macro}
-% \end{macro}
-% \end{macro}
-% \end{macro}
-%
-% \begin{macrocode}
-\declare@shorthand{icelandic}{"o}{\oob}
-\declare@shorthand{icelandic}{"O}{\Oob}
-\declare@shorthand{icelandic}{"ó}{\ooob}
-\declare@shorthand{icelandic}{"Ó}{\OOob}
-\declare@shorthand{icelandic}{"e}{\eob}
-\declare@shorthand{icelandic}{"E}{\Eob}
-\declare@shorthand{icelandic}{"é}{\eeob}
-\declare@shorthand{icelandic}{"É}{\EEob}
-% \end{macrocode}
-%
-% \subsection{Formatting numbers}
-% \label{numbers}
-%
-% \changes{icelandic-1.1a}{1997/04/26}{Added definitions for
-% formatting numbers in Icelandic and some extra utilities.}
-% This section is lifted from \texttt{frenchb.dtx} by D. Flipo.
-% In English the decimal part starts with a point and thousands
-% should be separated by a comma: an approximation of $1000\pi$
-% should be inputed as |$3{,}141.592{,}653$| in math-mode and
-% as |3,141.592,653| in text.
-% \changes{icelandic-1.1b}{1997/05/05}{Added references to various
-% publications used}
-%
-% In Icelandic the decimal part starts with a comma and thousands
-% should be separated by a space~\cite{88:_reglur} or by a
-% period~\cite{97:_forst_fs}; we have the space. The above
-% approximation of $1000\pi$ should be inputed as
-% |$3\;141{,}592\;653$| in math-mode and as something like
-% |3~141,592~653| in text. Braces are mandatory around the comma in
-% math-mode, the reason is mentioned in the \TeX{}book p.~134:
-% the comma is of type |\mathpunct| (thus normally followed by a
-% space) while the point is of type |\mathord| (no space added).
-%
-% Thierry Bouche suggested that a second type of comma, of type
-% |\mathord| would be useful in math-mode, and proposed to
-% introduce a command (named |\decimalsep| in this package),
-% the expansion of which would depend on the current language.
-%
-% Vincent Jalby suggested a command |\nombre| to conveniently
-% typeset numbers: inputting |\nombre{3141,592653}| either in
-% text or in math-mode will format this number properly according
-% to the current language (Icelandic or non-Icelandic). We use
-% |\nombre| to define command |\tala| in Icelandic.
-%
-% |\tala| accepts an optional argument which happens to be
-% useful with the extension `dcolumn', it specifies the decimal
-% separator used in the \emph{source code}:
-% |\newcolumntype{d}{D{,}{\decimalsep}{-1}}| \\
-% |\begin{tabular}{|d|}\hline | \\
-% | 3,14 \\ | \\
-% | \tala[,]{123,4567} \\ | \\
-% | \tala[,]{9876,543}\\\hline| \\
-% |\end{tabular} | \\
-% will print a column of numbers aligned on the decimal point
-% (comma or point depending on the current language), each slice
-% of 3 digits being separated by a space or a comma according to
-% the current language.
-%
-% \begin{macro}{\decimalsep}
-% \begin{macro}{\thousandsep}
-% We need a internal definition, valid in both text and math-mode,
-% for the comma (|\@comma@|) and another one for the unbreakable
-% fixed length space (no glue) used in Icelandic (|\f@thousandsep|).
-%
-% The commands |\decimalsep| and |\thousandsep| get default
-% definitions (for the English language) when |icelandic| is loaded;
-% these definitions will be updated when the current language is
-% switched to or from Icelandic.
-% \begin{macrocode}
-\mathchardef\m@comma="013B \def\@comma@{\ifmmode\m@comma\else,\fi}
-\def\f@thousandsep{\ifmmode\mskip5.5mu\else\penalty\@M\kern.3em\fi}
-\newcommand{\decimalsep}{.} \newcommand{\thousandsep}{\@comma@}
-\expandafter\addto\csname extras\CurrentOption\endcsname{%
- \def\decimalsep{\@comma@}%
- \def\thousandsep{\f@thousandsep}}
-\expandafter\addto\csname noextras\CurrentOption\endcsname{%
- \def\decimalsep{.}%
- \def\thousandsep{\@comma@}}
-% \end{macrocode}
-% \end{macro}
-% \end{macro}
-%
-% \begin{macro}{\tala}
-% The decimal separator used when \emph{inputing} a number
-% with |\tala| \emph{has to be a comma}.
-% |\tala| splits the inputed number into two parts: what
-% comes before the first comma will be formatted by
-% \cs{@integerpart} while the rest (if not empty) will be
-% formatted by \cs{@decimalpart}. Both parts, once formatted
-% separately will be merged together with between them, either
-% the decimal separator \cs{decimalsep} or (in \LaTeXe{}
-% \emph{only}) the optional argument of |\tala|.
-%
-% \begin{macrocode}
-\if@Two@E
- \newcommand{\tala}[2][\decimalsep]{%
- \def\@decimalsep{#1}\@tala#2\@empty,\@empty,\@nil}
-\else
- \newcommand{\tala}[1]{%
- \def\@decimalsep{\decimalsep}\@tala#1\@empty,\@empty,\@nil}
-\fi
-\def\@tala#1,#2,#3\@nil{%
- \ifx\@empty#2%
- \@integerpart{#1}%
- \else
- \@integerpart{#1}\@decimalsep\@decimalpart{#2}%
- \fi}
-% \end{macrocode}
-% The easiest bit is the decimal part:
-% We attempt to read the first four digits of the decimal part, if
-% it has less than 4 digits, we just have to print them, otherwise
-% |\thousandsep| has to be appended after the third digit, and the
-% algorithm is applied recursively to the rest of the decimal part.
-% \begin{macrocode}
-\def\@decimalpart#1{\@@decimalpart#1\@empty\@empty\@empty}
-\def\@@decimalpart#1#2#3#4{#1#2#3%
- \ifx\@empty#4%
- \else
- \thousandsep\expandafter\@@decimalpart\expandafter#4%
- \fi}
-% \end{macrocode}
-% Formatting the integer part is more difficult because the slices
-% of 3 digits start from the \emph{bottom} while the number is
-% read from the top!
-% This (tricky) code is borrowed from David Carlisle's comma.sty.
-% \begin{macrocode}
-\def\@integerpart#1{\@@integerpart{}#1\@empty\@empty\@empty}
-\def\@@integerpart#1#2#3#4{%
- \ifx\@empty#2%
- \@addthousandsep#1\relax
- \else
- \ifx\@empty#3%
- \@addthousandsep\@empty\@empty#1#2\relax
- \else
- \ifx\@empty#4%
- \@addthousandsep\@empty#1#2#3\relax
- \else
- \@@integerpartafterfi{#1#2#3#4}%
- \fi
- \fi
- \fi}
-\def\@@integerpartafterfi#1\fi\fi\fi{\fi\fi\fi\@@integerpart{#1}}
-\def\@addthousandsep#1#2#3#4{#1#2#3%
- \if#4\relax
- \else
- \thousandsep\expandafter\@addthousandsep\expandafter#4%
- \fi}
-% \end{macrocode}
-% \end{macro}
-%
-% \subsection{Extra utilities}
-%
-% We now provide the Icelandic user with some extra utilities.
-%
-% \begin{macro}{\upp}
-% |\upp| is for typesetting superscripts. |\upp| relies on
-% \begin{macro}{\upp@size}
-% The internal macro |\upp@size| holds the size at which the
-% superscript will be typeset. The reason for this is that we have
-% to specify it differently for different formats.
-% \begin{macrocode}
-\ifx\sevenrm\@undefined
- \ifx\@ptsize\@undefined
- \let\upp@size\small
- \else
- \ifx\selectfont\@undefined
-% \end{macrocode}
-% In this case the format is the original \LaTeX-2.09:
-% \begin{macrocode}
- \ifcase\@ptsize
- \let\upp@size\ixpt\or
- \let\upp@size\xpt\or
- \let\upp@size\xipt
- \fi
-% \end{macrocode}
-% When |\selectfont| is defined we probably have NFSS available:
-% \begin{macrocode}
- \else
- \ifcase\@ptsize
- \def\upp@size{\fontsize\@ixpt{10pt}\selectfont}\or
- \def\upp@size{\fontsize\@xpt{11pt}\selectfont}\or
- \def\upp@size{\fontsize\@xipt{12pt}\selectfont}
- \fi
- \fi
- \fi
-\else
-% \end{macrocode}
-% If we end up here it must be a plain based \TeX{} format, so:
-% \begin{macrocode}
- \let\upp@size\sevenrm
-\fi
-% \end{macrocode}
-% \end{macro}
-% Now we can define |\upp|. When \LaTeXe{} runs in
-% compatibility mode (\LaTeX-2.09 emulation), |\textsuperscript| is
-% also defined, but does no good job, so we give two different
-% definitions for |\upp| using |\if@Two@E|.
-% \begin{macrocode}
-\if@Two@E
- \DeclareRobustCommand*{\upp}[1]{\textsuperscript{#1}}
-\else
- \DeclareRobustCommand*{\upp}[1]{%
- \leavevmode\raise1ex\hbox{\upp@size#1}}
-\fi
-% \end{macrocode}
-%
-% \end{macro}
-%
-% Some definitions for special characters.
-% |\grada| needs a special treatment: it is |\char6|
-% in T1-encoding and |\char23| in OT1-encoding.
-% \begin{macrocode}
-\ifx\fmtname\LaTeXeFmtName
- \DeclareTextSymbol{\grada}{T1}{6}
- \DeclareTextSymbol{\grada}{OT1}{23}
-\else
- \def\T@one{T1}
- \ifx\f@encoding\T@one
- \newcommand{\grada}{\char6}
- \else
- \newcommand{\grada}{\char23}
- \fi
-\fi
-% \end{macrocode}
-%
-% \begin{macro}{\gradur}
-% Macro for typesetting the abbreviation for `degrees' (as in
-% `degrees Celsius'). As the bounding box of the character `degree'
-% has \emph{very} different widths in CMR/DC and PostScript fonts,
-% we fix the width of the bounding box of |\gradur| to 0.3\,em,
-% this lets the symbol `degree' stick to the preceding
-% (e.g., |45\gradur|) or following character (e.g., |20~\gradur C|).
-% \begin{macrocode}
-\DeclareRobustCommand*{\gradur}{%
- \leavevmode\hbox to 0.3em{\hss\grada\hss}}
-% \end{macrocode}
-% \end{macro}
-%
-% The macro |\ldf@finish| takes care of looking for a
-% configuration file, setting the main language to be switched on
-% at |\begin{document}| and resetting the category code of
-% \texttt{@} to its original value.
-% \begin{macrocode}
-\ldf@finish\CurrentOption
-%</code>
-% \end{macrocode}
-%
-% \Finale
-%%
-%% \CharacterTable
-%% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
-%% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
-%% Digits \0\1\2\3\4\5\6\7\8\9
-%% Exclamation \! Double quote \" Hash (number) \#
-%% Dollar \$ Percent \% Ampersand \&
-%% Acute accent \' Left paren \( Right paren \)
-%% Asterisk \* Plus \+ Comma \,
-%% Minus \- Point \. Solidus \/
-%% Colon \: Semicolon \; Less than \<
-%% Equals \= Greater than \> Question mark \?
-%% Commercial at \@ Left bracket \[ Backslash \\
-%% Right bracket \] Circumflex \^ Underscore \_
-%% Grave accent \` Left brace \{ Vertical bar \|
-%% Right brace \} Tilde \~}
-%%
-\endinput