%--------------------------------------------------------------------------
% Created by T.Birnthaler (FAU Erlangen-Nuernberg, IMMD5 (Mustererkennung))
%--------------------------------------------------------------------------
\message{Document Style Option `strukto' Version 2.0, as of 11. November 1989}
%
% Befehle zum Erzeugen von Struktogrammen:
%
% Erzeugung:
%   \begin{struktogramm}{Breite}{Einrueckung}
%     Anweisungen
%   \end{struktogramm}
%
% Breite:
%   bestimmt die vollstaendige Breite des Struktogramms
%
% Einrueckung:
%   bestimmt die Einrueckungsbreite des Koerpers von Schleifenkonstrukten
%   (der Balken neben IFx-Konstrukten wird halb so breit)
%
% Masse:             (Bedeutung:                               Defaultwert)
%   \struktohskip    (horiz. Abstand aller Texte zu senkr. Linien:   0.5ex)
%
% Anweisungen:   (duerfen geschachtelt werden !)
%   \IF[w,w,w]{Bedingung}THEN{Anweisung}ELSE{Anweisung}     (Standard:
%   \IF*[w,w,w]{Bedingung}THEN{Anweisung}ELSE{Anweisung}     IF, THEN, ELSE)
%
%   \IFx{Bedingung}THEN{Anweisung}ELSE{Anweisung}
%   \IFx*{Bedingung}THEN{Anweisung}ELSE{Anweisung}
%
%   \FOR[w]{Zaehler}DO{Anweisung}            (Standard: FOR)
%   \WHILE[w]{Bedingung}DO{Anweisung}        (Standard: WHILE)
%   \REPEAT[w]{Anweisung}UNTIL{Bedingung}    (Standard: UNTIL)
%   \LOOP[w]{Anweisung}                      (Standard: LOOP)
%
%   \BLOCK{elementare Anweisung}
%   \BLOCK*{elementare Anweisung}
%
% Bedingung, Zaehler, elementare Anweisung:
%   beliebiger Text mit TeX-Kommandos zum Zeilenumbruch,
%   Schriftartwechsel, ...
%   (!!! aber keine Struktogrammanweisungen !!!).
%
% w = Schluesselwort:   (optionale(r) Parameter)
%   ein kurzer Text wie z.B. FOR, F"UR, $\forall$, ..., ersetzt das
%   jeweilige Standard-Schluesselwort (darf auch leer sein).
%
% Hinweise:
%   -- elementare Anweisungen *muessen* in \BLOCK oder \BLOCK* eingeschachtelt
%      werden, damit sie richtig eingerueckt werden koennen.
%   -- Bei leerem ELSE-Anweisungsteil (...ELSE{}) wird der ELSE-Teil der
%      IF-Anweisung nicht erzeugt (er *muss* aber trotzdem angegeben werden).
%   -- Eine Linie nach dem Schluesselwoertern THEN und ELSE entsteht durch
%      eine Struktogramm- oder \BLOCK-Anweisung, aber nicht durch \BLOCK*.
%
%   -- Bei der x-Version von IF wird links vom IF-Konstrukt eine schmale
%      Spalte gezogen (halbe Einrueckbreite).
%   -- Bei der *-Version von IF und IFx wird ein senkrechter Strich
%      rechts vom Schluesselwoert IF auf der gleichen Hoehe wie beim
%      THEN- und ELSE-Teil gezogen, und die IF-, THEN- und ELSE-Teile sind
%      gleich breit.
%   -- Bei der *-Version des BLOCK-Kommandos wird links davon keine
%      Linie gezogen (nur in THEN- und ELSE-Teilen sinnvoll).
%
%   -- Leerzeichen ...
%      ... am Anfang einer Zeile werden *nicht* beachtet.
%      ... zwischen Argumenten werden *nicht* beachtet.
%      ... in Argumenten werden beachtet.
%
%   -- Die Anzahl an Verschachtelungsstufen kann *nicht* beliebig weit 
%      getrieben werden, da TeX irgendwann ueberlauft (die Grenze liegt
%      etwa bei 6-7 Stufen).
%-----------------------------------------------------------------------

% interne Boxen
\newbox\strukto@keyword@box
\newbox\strukto@if@box
\newbox\strukto@then@box
\newbox\strukto@else@box
\newbox\strukto@strut@box
\newbox\strukto@box

% Masse
\newdimen\strukto@width
\newdimen\strukto@indent
\newdimen\struktohskip
\newdimen\strut@height    % intern

% Linien ohne Dicke
\def\strukto@vrule{\vrule\hskip-0.4pt}
\def\strukto@hrule{\hrule\vskip-0.4pt}

% Standard-Leerraum um Schluesselworte (darf leer sein)
\def\strukto@keyword#1{%
  \hbox{\def\next{#1}%
        \ifx\next\empty\else
          \hskip\struktohskip\strut #1\hskip\struktohskip
        \fi
  }%
}

\newenvironment{struktogramm}[2]{%
% -- begin of preamble ---
  \bgroup
%
    \strukto@width=#1
    \strukto@indent=#2
%
% wegen Beruecksichtigung der Schriftgroesse hier
    \struktohskip=.5ex
    \strut@height=\ht\strutbox
%
% Ausgleich fuer Hoehe 0 von \strukto@vrule
    \advance\strut@height by 0.4pt
    \setbox\strukto@strut@box=\hbox{\vrule height \strut@height depth \dp\strutbox width 0pt}%
%
% Kommandos nur lokal gueltig
    \def\IF{\STRUKTO@IF}%
    \def\IFx{\STRUKTO@IFx}%
    \def\FOR{\STRUKTO@FOR}%
    \def\WHILE{\STRUKTO@WHILE}%
    \def\REPEAT{\STRUKTO@REPEAT}%
    \def\LOOP{\STRUKTO@LOOP}%
    \def\BLOCK{\STRUKTO@BLOCK}%
%
    \setbox\strukto@box\hbox to \strukto@width
    \bgroup 
      \@parboxrestore %Standardabsatz-Parameter einschalten
      \vtop\bgroup
        \strukto@hrule %oberer Rand
}% --- end of preamble ---
{% --- begin of postable ---
      \egroup  %vbox beenden
      \hskip-0.4pt\vrule
    \egroup    %hbox beenden
    \leavevmode
    \box\strukto@box
  \egroup
}% --- end of postamble ---


% Behandlung von Befehlsvarianten und optionalen Parametern
\def\STRUKTO@IF{\@ifstar{\STRUKTO@@IF{}{l}}%
                        {\STRUKTO@@IF{}{}}}
\def\STRUKTO@IFx{\@ifstar{\STRUKTO@@IF{x}{l}}%
                         {\STRUKTO@@IF{x}{}}}
\def\STRUKTO@@IF#1#2{\@ifnextchar[{\STRUKTO@@@IF{#1}{#2}}%
                                  {\STRUKTO@@@IF{#1}{#2}[IF,THEN,ELSE]}}

\def\STRUKTO@FOR{\@ifnextchar[{\STRUKTO@GENERAL}%
                              {\STRUKTO@GENERAL[FOR]}}
\def\STRUKTO@WHILE{\@ifnextchar[{\STRUKTO@GENERAL}%
                                {\STRUKTO@GENERAL[WHILE]}}

\def\STRUKTO@LOOP{\@ifnextchar[{\STRUKTO@@LOOP}%
                               {\STRUKTO@@LOOP[LOOP]}}
\def\STRUKTO@@LOOP[#1]{\STRUKTO@GENERAL[#1]{}DO}

\def\STRUKTO@REPEAT{\@ifnextchar[{\STRUKTO@@REPEAT}%
                                 {\STRUKTO@@REPEAT[UNTIL]}}

\def\STRUKTO@BLOCK{\@ifstar{\STRUKTO@@BLOCK{}}%
                           {\STRUKTO@@BLOCK{l}}}


% IF-THEN-ELSE-Konstrukt
%
% |#3 #6          
% ----------------
% |#4 #7        
% ----------------
% |#5 #8        
% ----------------
% x -> Schalter x: schmaler Balken links neben Konstrukt
% * -> Schalter l: durchgehende Linie nach IF-Schluesselwort
%
% 1.Arg: switch x
% 2.Arg: switch l
% 3.Arg: IF-keyword
% 4.Arg: THEN-keyword
% 5.Arg: ELSE-keyword
% 6.Arg: condition (text)
% 7.Arg: then-part (struktogramm)
% 8.Arg: else-part (struktogramm)
%
\long\def\STRUKTO@@@IF#1#2[#3,#4,#5]#6THEN#7ELSE#8{%
%
% Schluesselwortboxen erzeugen
  \setbox\strukto@if@box=\strukto@keyword{#3}%
  \setbox\strukto@then@box=\strukto@keyword{#4}%
  \setbox\strukto@else@box=\strukto@keyword{#5}%
%
% laengste der drei Boxen bestimmen
  \let\strukto@keyword@box=\strukto@if@box
  \ifdim\wd\strukto@then@box > \wd\strukto@keyword@box
    \let\strukto@keyword@box=\strukto@then@box
  \fi
  \ifdim\wd\strukto@else@box > \wd\strukto@keyword@box
    \let\strukto@keyword@box=\strukto@else@box
  \fi
%
  \vtop{%
    \hsize=\strukto@width
    \hbox to \strukto@width{%
%
      \def\test{#1}%
      \if\test x% <-- IF-THEN-ELSE links mit Balken versehen ?
        \strukto@vrule
        \hskip.5 \strukto@indent
        \strukto@vrule
        \advance\strukto@width by -.5 \strukto@indent
      \fi
%
% IF-Teil
      \vtop{%
        \hsize=\strukto@width
% 
        \hbox to \strukto@width{%
          \strukto@vrule
          \copy\strukto@if@box 
          \def\test{#2}%
          \if\test l% <-- IF-Teil wie THEN- u. ELSE-Teil einruecken ?
            \hfill 
            \strukto@vrule
            \advance\strukto@width by -\wd\strukto@keyword@box
          \else
            \advance\strukto@width by -\wd\strukto@if@box
          \fi
          \hskip\struktohskip   % linke Texteinr.
          \vtop{%
            \hsize=\strukto@width
            \advance\hsize by -\struktohskip    % linke Texteinr. beruecks.
            \advance\hsize by -\struktohskip    % rechte Texteinr. beruecks.
            \noindent\copy\strukto@strut@box #6\strut
          }%
          \hskip\struktohskip   % rechte Texteinr.
        }%
%
% THEN-Teil
        \nointerlineskip
        \hrule
        \nointerlineskip
        \hbox to \strukto@width{%
          \strukto@vrule   % linker Rand
          \copy\strukto@then@box
          \hfill 
          \vtop{%
            \def\test{#2}%
            \if\test l% <-- THEN-Teil wie IF- u. ELSE-Teil einruecken ?
              \advance\strukto@width by -\wd\strukto@keyword@box
            \else
              \advance\strukto@width by -\wd\strukto@then@box
            \fi
            \hsize=\strukto@width
            #7%
          }%
        }%
%
% ELSE-Teil
        \def\test{#8}%
        \ifx\test\empty\else % <-- ELSE-Teil vorhanden ?
          \nointerlineskip
          \hrule
          \nointerlineskip
          \hbox to \strukto@width{%
            \strukto@vrule   % linker Rand
            \copy\strukto@else@box
            \hfill
            \vtop{%
              \def\test{#2}%
              \if\test l% <-- ELSE-Teil wie IF- u. THEN-Teil einruecken ?
                \advance\strukto@width by -\wd\strukto@keyword@box
              \else
                \advance\strukto@width by -\wd\strukto@else@box
              \fi
              \hsize=\strukto@width
              #8%
            }%
          }%
        \fi
      }%
    }%
    \strukto@hrule   % unterer Rand
  }%
  \nointerlineskip
}


% FOR-, WHILE-, LOOP-Konstrukt
%
% |#1  #2           
%     --------------
% |   | #3          
% ------------------
% 1.Arg: FOR-keyword
% 2.Arg: condition (text)
% 3.Arg: body      (struktogramm)
%
\long\def\STRUKTO@GENERAL[#1]#2DO#3{%
  \vtop{%
    \hsize=\strukto@width
%
% FOR-Teil
    \hbox to \strukto@width{%
      \strukto@vrule
      \setbox\strukto@keyword@box=\strukto@keyword{#1}%
      \copy\strukto@keyword@box
      \hskip\struktohskip   % linke Texteinr.
      \vtop{%
        \hsize=\strukto@width
        \advance\hsize by -\wd\strukto@keyword@box
        \advance\hsize by -\struktohskip    % linke Texteinr. beruecks.
        \advance\hsize by -\struktohskip    % rechte Texteinr. beruecks.
        \noindent\copy\strukto@strut@box #2\strut
      }%
      \hskip\struktohskip   % rechte Texteinr.
    }%
    \nointerlineskip
%
% Koerper
    \hbox to \strukto@width{%
      \strukto@vrule   % linker Rand
      \hskip\strukto@indent
      \strukto@vrule   % linker Rand (eigentlich ueberfluessig)
      \vtop{%
        \advance\strukto@width by -\strukto@indent
        \hsize=\strukto@width
        \nointerlineskip
        \hrule
        #3%
      }%
    }%
    \strukto@hrule   % unterer Rand
  }%
  \nointerlineskip
}

% REPEAT-UNTIL-Konstrukt
%
% |   | #2          
%     --------------
% |#1 #3            
% ------------------
% 1.Arg: UNTIL-keyword
% 2.Arg: body      (struktogramm)
% 3.Arg: condition (text)
%
\long\def\STRUKTO@@REPEAT[#1]#2UNTIL#3{%
  \vtop{%
    \hsize=\strukto@width
%
% Koerper
    \hbox to \strukto@width{%
      \strukto@vrule   % linker Rand
      \hskip\strukto@indent
      \strukto@vrule   % linker Rand (eigentlich ueberfluessig)
      \vtop{%
        \advance\strukto@width by -\strukto@indent
        \hsize=\strukto@width
        #2%
        \hrule
      }%
    }%
    \nointerlineskip
%
% UNTIL-Teil
    \hbox to \strukto@width{%
      \strukto@vrule
      \setbox\strukto@keyword@box=\strukto@keyword{#1}%
      \copy\strukto@keyword@box
      \hskip\struktohskip   % linke Texteinr.
      \vtop{%
        \hsize=\strukto@width
        \advance\hsize by -\wd\strukto@keyword@box
        \advance\hsize by -\struktohskip    % linke Texteinr. beruecks.
        \advance\hsize by -\struktohskip    % rechte Texteinr. beruecks.
        \noindent\copy\strukto@strut@box #3\strut
      }%
      \hskip\struktohskip   % rechte Texteinr.
    }%
    \strukto@hrule   % unterer Rand
  }%
  \nointerlineskip
}


% | #2            
% ----------------
% * -> Schalter l: keine Linie links von Block
%
% 1.Arg: switch l
% 2.Arg: body (text)
%
\long\def\STRUKTO@@BLOCK#1#2{%
  \vtop{%
    \hsize=\strukto@width
    \hbox to \strukto@width{%
      \def\test{#1}%
      \if\test l% <-- linken Rand ziehen ?
        \strukto@vrule
      \fi
      \hskip\struktohskip   % linke Texteinr.
      \vtop{%
        \hsize=\strukto@width
        \advance\hsize by -\struktohskip    % linke Texteinr. beruecks.
        \advance\hsize by -\struktohskip    % rechte Texteinr. beruecks.
        \noindent\copy\strukto@strut@box #2\strut
      }%
      \hskip\struktohskip   % rechte Texteinr.
    }%
    \strukto@hrule   % unterer Rand
  }%
  \nointerlineskip
}