% \iffalse
%
% Copyright (C) 1996-1998 by Jochen R"utschlin.  All rights reserved.
%
% This file is part of the `jrbase' package.
%
% IMPORTANT NOTICE:
%
% You are not allowed to change this file.
%
% You are NOT ALLOWED to distribute this file alone.  You are NOT
% ALLOWED to take money for the distribution or use of this file (or
% a changed version).
%
% If you receive only some of these files from someone, complain!
%
% \fi
%
% \CheckSum{100}
%
% \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         \~}
%
% \iffalse
%<*driver>
\documentclass[a4paper,11pt]{ltxdoc}
  \DisableCrossrefs
  \OnlyDescription
  \pagestyle{empty}
\usepackage[german]{babel}
\usepackage{typearea}
  \typearea{15}
\usepackage{multicol,jrbase}

\renewcommand{\meta}[1]{{\normalfont\textit{#1}}}
\renewcommand{\DescribeMacro}[1]{\relax}
\renewcommand{\DescribeEnv}[1]{\relax}
\newcommand*{\Describe}[1]{%
   \bigskip\noindent\fbox{\footnotesize\texttt{\bslash{}#1}}\par\smallskip}
\begin{document}
   \DocInput{jrbase.dtx}
\end{document}
%</driver>
% \fi
% 
% \title{Das \textsf{jrbase} Paket v1.6a}
% \author{Jochen R"utschlin}
% \date{18.\ M"arz 1999}
% \maketitle
%
% \thispagestyle{empty}
%
% \begin{abstract}
%   In diesem kleinen Style-File sind einige Makros zusammengefa"st, die
%   ich im Laufe meiner \TeX-Aktivit"aten erstellt habe. "Ahnlichkeiten mit
%   \gqq{anderen} Makros k"onnen an manchen Stellen auftreten, da ich kein
%   Genie bin und mir das ein oder andere an passender Stelle abgeschaut habe
%   (warum auch das Rad noch einmal neu erfinden).
%
%   Dieses Paket ist eine Weiterentwicklung des ehemaligen
%   \textsf{own}-Pakets, das zuletzt unter der Versionsnummer 2.0c vom 20.\
%   Februar 1996 erschienen ist.
% \end{abstract}
%
% \noindent\rule{\hsize}{.4pt}
%
%
%
% \begin{multicols}{2}
%   \minisection{Mengensymbole}
%   \DescribeMacro{\IN}%
%   \DescribeMacro{\IR}%
%   \DescribeMacro{\IC}%
%   \DescribeMacro{\IQ}%
%   \DescribeMacro{\IZ}%
%   \DescribeMacro{\IP}%
%   In der Mathematik haben sich einige Symbole f"ur die Bezeichnung von
%   Zahlenmengen eingeb"urgert, die von \TeX/\LaTeX\ standardm"a"sig nicht
%   unterst"utzt werden. Als Abhilfe k"onnten die \AmS{}-fonts verwendet
%   werden. Ich m"ochte mit den hier vorgestellten Makros eine Alternative
%   zu den \AmS-Zeichen geben: \IN, \IZ, \IQ, \IR\, \IC\ und \IP.
%   \begin{center}
%     \begin{tabular}{c@{~f"ur die Menge der~}l}
%       |\IN| & nat"urlichen Zahlen\\
%       |\IZ| & ganzen Zahlen\\
%       |\IQ| & gebrochen-rat. Zahlen\\
%       |\IR| & reellen Zahlen\\
%       |\IC| & irrationalen Zahlen\\
%       |\IP| & Primzahlen
%     \end{tabular}
%   \end{center}
%
%
%
%   \Describe{stackler\marg{oben}\marg{unten}}
%   \DescribeMacro{\stackrel}%
%   In \LaTeX{} gibt es den Befehl |\stackrel|, mit dem zwei Symbole
%   zentriert "ubereinander gesetzt werden k"onnen, wobei f"ur das obere
%   Symbol eine kleinere Schrift gew"ahlt wird. F"ur den Fall, da"s das
%   \emph{untere} Symbol in einer kleineren Schrift gesetzt werden soll,
%   habe ich den Befehl |\stackler| kre"-iert, der als erstes Argument das
%   obere Symbol und als zweites Argument das untere Symbol erwartet.
%
%
%
%   \Describe{stackreller\marg{oben}\marg{mitte}\marg{unten}}
%   \DescribeMacro{\stackreller}%
%   Sollten sogar einmal drei Symbole "ubereinan"-der \gqq{gestapelt} werden
%   (das oberste und unterste wird in einer kleineren Schrift gesetzt), so
%   kann |\stackreller| behilflich sein:
%                               %
%   \begin{displaymath}
%     \stackreller{\mathit{oben}}{=}{\mathit{unten}}
%   \end{displaymath}
%
%
%
%   \Describe{slashfrac\marg{Z"ahler}\marg{Nenner}}
%   \DescribeMacro{\slashfrac}%
%   Manchmal m"ochte man einen Bruch nicht mittels |\frac| setzten, sondern
%   lieber in der \gqq{umgangssprachlichen} Form mit dem \gqq{Slash}.
%   |\slashfrac| kann dies erledigen: \slashfrac1/2
%
%
%
%   \Describe{correspond}
%   \DescribeMacro{\correspond}%
%   \LaTeX\ stellt standardm"a"sig eine gro"se Anzahl von Vergleichsymbolen
%   bereit, die unter Hinzunahme der \AmS-Fonts sogar noch erweitert werden
%   k"onnen. Leider habe ich bisher kein Symbol f"ur den ab und an
%   auftretenden Ausdruck \gqq{entspricht} ($\correspond$) gefunden. Mittels
%   |\correspond| kann dem nun abgeholfen werden.
%
%
%
%   \minisection{Fu"snoten}
%   \DescribeMacro{\@makefntext}%
%   Nach dem DUDEN f"ur die deutsche Rechtschreibung sind f"ur Fu"snoten
%   \gqq{hochgestellte Ziffern ohne Klammern den anderen M"oglichkeiten wie
%     Sterne, Kreuze oder Ziffern mit Klammern
%     vorzuziehen}\footnote{Wissenschaftlicher Rat der Dudenredaktion:
%     G"unther Drosdowski et~al. (Herausgeber). \emph{Der DUDEN --
%       Rechtschreibung der deutschen Sprache}, Band~1, Richtlinien f"ur den
%     Schriftsatz -- Fu"snoten- und Anmerkungszeichen, Seite~71. Dudenverlag,
%     Mannheim~$\cdot$\ Leipzig~$\cdot$\ Wien~$\cdot$\ Z"urich, 20. neu
%     bearbeitete und erweiterte Auf\/lage, 1991.}.
%   Dieser \gqq{Forderung} kommt \LaTeX\ schon alleine nach. Allerdings
%   wurden in einigen Styles kleine "Anderungen bei der Darstellung der
%   Fu"snoten gemacht (z.\,B. erscheint die Nummer wie bei
%   \textsf{enumerate} exponiert vor dem Fu"snotentext). Daher habe ich eine
%   kleine Sch"onheitskorrektur durchgef"uhrt%
%   \footnote{Anhand dieser Fu"snote l"a"st sich leicht erkennen, worin
%     meine "Anderungen bestehen -- der Fu"snotentext wird "uber die ganze
%     Spaltenbreite gesetzt, wobei am Anfang jeder Fu"snote(nnummer) der
%     \emph{parindent} unterdr"uckt wird. Dies entspricht der
%     Darstellungsweise im Duden sowie einer Vielzahl anderer deutscher
%     Literaturwerke.}
%
%
%
%   \Describe{RequireFile\marg{Datei}}
%   \DescribeMacro{\RequireFile}%
%   "Ahnlich dem Paar |\ProvidesPackage| und |\RequirePackage| habe ich einen
%   zus"atzlichen Befehl zu |\ProvidesFile| geschrieben, der die \meta{Datei}
%   nur einliest, wenn sie nicht schon anderweitig eingelesen wurde.
%
%
%
%   \minisection{Anf"uhrungszeichen}
%   \DescribeMacro{\gq}%
%   \DescribeMacro{\gqq}%
%   \DescribeMacro{\eq}%
%   \DescribeMacro{\eqq}%
%   \DescribeMacro{\fq}%
%   \DescribeMacro{\fqq}%
%   Wem es zu m"uhsam ist, darauf zu ach"-ten, die schlie"senden
%   Anf"uhrungszeichen bei Text"-anf"uhrungen nicht zu vergessen, dem bieten
%   diese Makros ihre Hilfe an. Dabei k"onnen auch mehrere Abs"atze
%   angef"uhrt werden.
%                               %   
%   \begin{center}
%     \begin{tabular}{lcl}
%       |\gq|  & \gq{\,\ldots\,}  & einfache deutsche\\
%       |\gqq| & \gqq{\,\ldots\,} & normale deutsche\\
%       |\eq|  & \eq{\,\ldots\,}  & einfache englische\\
%       |\eqq| & \eqq{\,\ldots\,} & normale englische\\
%     \end{tabular}
%   \end{center}
%
%
%
%   \minisection{\TeX-Logos}
%   \DescribeMacro{\AmS}%
%   \DescribeMacro{\PiCTeX}%
%   \DescribeMacro{\BibTeX}%
%   \DescribeMacro{\PlainTeX}%
%   \DescribeMacro{\iniTeX}%
%   \DescribeMacro{\MakeIndex}%
%   \DescribeMacro{\Web}%
%   \DescribeMacro{\bmtofont}%
%   \DescribeMacro{\FoilTeX}%
%   F"ur die Erzeugung der mit \TeX\ im Zusammenhang stehenden Logos sind
%   die folgenden Makros:
%                               %
%   \begin{center}
%     \begin{tabular}{l@{~erzeugt~}l}
%       |\AmS|       & \AmS\\
%       |\PiCTeX|    & \PiCTeX\\
%       |\BibTeX|    & \BibTeX\\
%       |\PlainTeX|  & \PlainTeX\\
%       |\iniTeX|    & \iniTeX\\
%       |\MakeIndex| & \MakeIndex\\
%       |\Web|       & \Web\\
%       |\bmtofont|  & \bmtofont\\
%       |\FoilTeX|   & \FoilTeX\\
%     \end{tabular}
%   \end{center}
%
%
%
%   \Describe{inch}
%   \DescribeMacro{\inch}%
%   Mit |\inch| kann die inch-gro"se Schrift eingestellt werden.
%
%
%
%   \Describe{jrtilde}
%   \DescribeMacro{\jrtilde}%
%   Mit |\jrtilde| kann eine einfache Tilde \jrtilde\ erzeugt werden.
%
%
%
%   \Describe{blank}
%   \DescribeMacro{\blank}%
%   Das Makro |\blank| erzeugt die Leerzeichendarstellung \blank{}, wie sie
%   auch in |\verbatim*| oder |\verb*| vorkommt. Allerdings verwende ich
%   keinen bestimmten Zeichensatz, sondern setze das Zeichen aus
%   |\rule|-Befehlen zusammen. Die Dimensionen des Zeichens basieren auf
%   der Breite des x aus dem aktuellen Zeichensatz (|ex|).
%
%
%
%   \Describe{minisection\marg{"Uberschrift}}
%   \DescribeMacro{\minisection}%
%   Manchmal ergab sich bei mir der Wunsch nach einer etwas hervorstechenden
%   \meta{"Uberschrift}, die aber im Gegensatz zu den |\section|-Befehlen eine
%   st"arkere Bindung zu dem darauf"|folgenden Absatz haben sollte (Wegfall
%   des obligatorischen vertikalen Zwischenraums). Das Resultat war der
%   |\minisection|-Befehl, der in Dokumentschriftgr"o"se eine fettgedruckte
%   "Uberschrift direkt "uber dem betitelten Absatz anlegt. Die "Uberschrift
%   erh"alt keine fortlaufende Numerierung und wird auch nicht in das
%   gegebenenfalls vorhandene Inhaltsverzeichnis "ubernommen.
%
%   \Describe{begin\{labeling\}\oarg{Trenner}\marg{Text}}
%   \DescribeEnv{labeling}
%    Die |labeling|-Umgebung entspricht der einer |description|, wobei
%    aber nicht wie bei dieser eine konstante Einr"uckung ab der zweiten
%    Zeile stattfindet; es wird die Breite von \meta{Text} einger"uckt.
%    Als optionales Argument kann ein Trennzeichen angegeben werden, welches
%    nach dem |\item|-Text ausgegeben wird.
% \end{multicols}
% \StopEventually{\Finale}
%
% \iffalse
%<*package>
% \fi
%    \begin{macrocode}
\NeedsTeXFormat{LaTeX2e} \ProvidesPackage{jrbase} [1999/03/18 v1.6a
miscellaneous macros (jr)]
%    \end{macrocode}
%
%    \begin{macrocode}
\newif\ifjr@draft
\DeclareOption{draft}{\jr@drafttrue\ExecuteOptions{copy}}
\DeclareOption{final}{\jr@draftfalse\ExecuteOptions{original}}
\ExecuteOptions{final}
\ProcessOptions*
%    \end{macrocode}
%
%    \begin{macrocode}
\newcommand{\IN}{\mbox{\normalfont\sffamily I\kern-1pt N}}
\newcommand{\IR}{\mbox{\normalfont\sffamily I\kern-1pt R}}
\newcommand{\IC}{\mbox{\normalfont\sffamily I\kern-4.5pt C}}
\newcommand{\IQ}{\mbox{\normalfont\sffamily I\kern-4pt Q}}
\newcommand{\IZ}{\mbox{\normalfont\sffamily Z\kern-4pt Z}}
\newcommand{\IP}{\mbox{\normalfont\sffamily I\kern-1pt P}}
%    \end{macrocode}
%
%
%
%    \begin{macrocode}
\newcommand{\stackler}[2]{\mathrel{\mathop{#1}\limits_{#2}}}
\newcommand{\stackreller}[3]{\mathrel{\mathop{#2}\limits^{#1}\limits_{#3}}}
%    \end{macrocode}
%
%
%
%    \begin{macrocode}
\newcommand{\slashfrac}{\@ifnextchar[{\sl@shfrac}{\sl@shfrac[0]}}
\def\sl@shfrac[#1]#2/#3{%
  \ifmmode%
    \leavevmode\kern.1em%
    \raise.5ex\hbox{$\scriptstyle #2$}% 
    \kern-.1em/\kern-.15em%
    \lower.25ex\hbox{$\scriptstyle #3$}%
  \else%
    $\leavevmode\kern.1em%
    \raise.5ex\hbox{\the\scriptfont#1 #2}%
    \kern-.1em/\kern-.15em%
    \lower.25ex\hbox{\the\scriptfont#1 #3}$%
  \fi}
%    \end{macrocode}
%
%
%
%    \begin{macrocode}
\newcommand{\correspond}{\mathrel{\widehat{=}}}
%    \end{macrocode}
%
%
%
%    \begin{macrocode}
\renewcommand{\@makefntext}[1]{\noindent\@makefnmark\ #1}
%    \end{macrocode}
%
%
%
%    \begin{macrocode}
\def\@providesfile#1[#2]{%
    \wlog{File: #1 #2}%
    \@addtofilelist{ #2}%
    \expandafter\xdef\csname ver@#1\endcsname{#2}%
    \endgroup}
\def\RequireFile#1{%
  \filename@parse{#1}
  \@ifl@aded\filename@ext\filename@base
    {\relax}
    {\input{\filename@base.\filename@ext}}
  }
\@onlypreamble\RequireFile
%    \end{macrocode}
%
%
%
%    \begin{macrocode}
\@ifl@aded{def}{babel}
  {\relax}
  {\RequirePackage[english]{babel}}
\newcommand*{\gq}[1]{\glq#1\grq}
\newcommand*{\gqq}[1]{\glqq#1\grqq}
\newcommand*{\eq}[1]{`#1'}
\newcommand*{\eqq}[1]{``#1''}
%    \end{macrocode}
%
%
%
%    \begin{macrocode}
\def\AmS{\leavevmode\hbox{$\mathcal A%
    \kern-.2em\lower.376ex\hbox{%
      $\mathcal M$}\kern-.2em\mathcal S$}}
\def\PiCTeX{{\rmfamily P\kern-.08em
    \lower.376ex\hbox{I}\kern-.08em C%
    \kern-.08em T\kern-.1667em\lower.7ex%
    \hbox{E}\kern-.125emX}}
\def\BibTeX{{\rmfamily B\kern-.05em%
    \textsc{i\kern-.025em b}\kern-.08em%
    T\kern-.1667em\lower.7ex%
    \hbox{E}\kern-.125emX}}
\def\PlainTeX{\textsc{Plain}\kern2pt\TeX}
\def\iniTeX{{\rmfamily ini}\TeX}
\def\FoilTeX{{\sffamily Foil}\TeX}
\def\MakeIndex{\textit{MakeIndex}}
\def\Web{\textsc{Web}}
\def\bmtofont{\textsf{BM2FONT}}
%    \end{macrocode}
%
%
%
%    \begin{macrocode}
\font\inch=cminch
%    \end{macrocode}
%
%
%
%    \begin{macrocode}
\chardef\jrtilde="7E
%    \end{macrocode}
%
%
%
%    \begin{macrocode}
\newcommand{\blank}{%
  \hbox{%
    \hspace*{.5pt}%
    \rule{.05ex}{.5ex}%
    \rule{1ex}{.05ex}%
    \rule{.05ex}{.5ex}%
    \hspace*{.5pt}}}
%    \end{macrocode}
%
%
%
%    \begin{macrocode}
\newcommand{\minisection}[1]{%
  \if@noskipsec\leavevmode\fi\par%
  \@tempskipa 2.5ex\@plus .2ex%
                   \@minus .2ex\relax%
  \@afterindentfalse
  \if@nobreak
    \everypar{}%
  \else
    \addpenalty\@secpenalty%
    \addvspace\@tempskipa%
  \fi%
  \begingroup%
    \normalfont\normalsize\bfseries%
    \@hangfrom{\hskip\z@}%
       {\interlinepenalty\@M #1\par}%
  \endgroup%
  \@tempskipa .01pt\relax%
  \par\nobreak%
  \vskip\@tempskipa%
  \@afterheading}
%    \end{macrocode}
%
%    \begin{macrocode}
\ifx\labeling\undefined
  \newenvironment{labeling}[2][]
    {\def\own@septext{#1}
     \list{}
          {\settowidth{\labelwidth}{#2#1}
           \leftmargin\labelwidth 
           \advance\leftmargin by \labelsep
           \let\makelabel\labelinglabel}}
          {\endlist}
  \newcommand\labelinglabel[1]{%
    #1\hfil\own@septext}
\fi
%    \end{macrocode}
% \iffalse
%</package>
% \fi
%
%
%
% \iffalse
%<*fd>
%    \begin{macrocode}
\DeclareFontFamily{U}{logo}{}{}
\DeclareFontShape{U}{logo}{m}{n}{
   <8> <9> <10> <12> gen * logo
   <10.95><14.4><17.28>logo10
   <20.74><24.88>logo10
   }{}
\DeclareFontShape{U}{logo}{m}{sl}{
   <8><9><10><10.95><12><14.4>logosl10
   <17.28><20.74><24.88>logosl10
   }{}
\DeclareFontShape{U}{logo}{bx}{n}{
   <8><9><10><12><10.95><14.4>logobf10
   <17.28><20.74><24.88>logobf10
   }{}
%    \end{macrocode}
%</fd>
% \fi
% \Finale