diff options
Diffstat (limited to 'Master/texmf-dist/tex/latex/nassflow/nassi.sty')
-rw-r--r-- | Master/texmf-dist/tex/latex/nassflow/nassi.sty | 422 |
1 files changed, 0 insertions, 422 deletions
diff --git a/Master/texmf-dist/tex/latex/nassflow/nassi.sty b/Master/texmf-dist/tex/latex/nassflow/nassi.sty deleted file mode 100644 index ad0b1e34aff..00000000000 --- a/Master/texmf-dist/tex/latex/nassflow/nassi.sty +++ /dev/null @@ -1,422 +0,0 @@ -% nassi.sty 29 augustus 1989, C.M. Lindhout. -% -% Copyright (C) by CAWCS, Royal Netherlands Navy. -% This program may be freely used and copied but may not be sold -% without the author's written permission. This notice must remain -% in any copy or derivative. -% -% Please send improvements, bug fixes, comments, etc., to -% Marion van Geest, -% CAWCS, -% Royal Netherlands Navy, -% P.O.BOX 10000, -% 1780 CA Den Helder, -% The Netherlands. - -% Modifications. -% -------------- -% Version 2, july 1990, -% Scope of \setiftext command changed -% Version 3, november 1990, -% A lot of unnecessary 'overfull hbox' messages are no longer given -% Version 4, october 1991, -% \ACCEPT created for use with ADA code -% Version 5, august 1992, -% Improved layout for empty \ELSE in \IF statement - -\ProvidesPackage{nassi}[1992/08/01 v5.0 Nassi-Scheiderman macro's.] - -\global\newdimen\wwa \global\newdimen\wwb \global\newdimen\wwc -\global\newdimen\wwd \global\newdimen\wwe \global\newdimen\wwf -\global\newdimen\wwg \global\newdimen\wwh \global\newdimen\wwi -\global\newdimen\wwj \global\newdimen\wwk \global\newdimen\wwl -\global\newdimen\wwm \global\newdimen\wwn \global\newdimen\wwo -\global\newdimen\wwp \global\newdimen\wwq \global\newdimen\wwr -\global\newdimen\wws \global\newdimen\wwt \global\newdimen\wwu -\global\newdimen\wwv \global\newdimen\www \global\newdimen\wwx -\global\newdimen\wwy \global\newdimen\wwz -\global\newdimen\wwA \global\newdimen\wwB \global\newdimen\wwC -\global\newdimen\wwD \global\newdimen\wwE \global\newdimen\wwF -\global\newdimen\wwG \global\newdimen\wwH \global\newdimen\wwI -\global\newdimen\wwJ \global\newdimen\wwK \global\newdimen\wwL -\global\newdimen\wwM \global\newdimen\wwN \global\newdimen\wwO -\global\newdimen\wwP \global\newdimen\wwQ \global\newdimen\wwR -\global\newdimen\wwS \global\newdimen\wwT \global\newdimen\wwU -\global\newdimen\wwV \global\newdimen\wwW \global\newdimen\wwX -\global\newdimen\wwY \global\newdimen\wwZ - -\def\ww#1{% - \ifcase#1% - \wwa\or\wwb\or\wwc\or\wwd\or\wwe\or\wwf\or\wwg\or\wwh\or\wwi\or\wwj\or - \wwk\or\wwl\or\wwm\or\wwn\or\wwo\or\wwp\or\wwq\or\wwr\or\wws\or\wwt\or - \wwu\or\wwv\or\www\or\wwx\or\wwy\or\wwz\or\wwA\or\wwB\or\wwC\or\wwD\or - \wwE\or\wwF\or\wwG\or\wwH\or\wwI\or\wwJ\or\wwK\or\wwL\or\wwM\or\wwN\or - \wwO\or\wwP\or\wwQ\or\wwR\or\wwS\or\wwT\or\wwU\or\wwV\or\wwW\or\wwX\or - \wwY\or\wwZ - \fi% -}% - -\global\newcount\nr% -\global\newif\iftry% -\global\newif\ifunderline% -\newif\ifunderlinethen% -\newif\ifunderlineelse% -\newif\ifunderlinewhen% -\underlinewhenfalse% -\newdimen\nassiwidth% -\nassiwidth=0pt% -\newdimen\minunitwidth% -\minunitwidth=60pt% -\newdimen\unitwidth% -\newdimen\thickness% -\newbox\thentext% -\newbox\elsetext% -\thickness=0.01in% -\newdimen\spc% -\newdimen\fac% -\newdimen\ha% -\newdimen\hb% -\newdimen\hc% -\newcount\nra% -\newcount\nrb% -\newdimen\wa% -\newdimen\wb% -\newdimen\wc% -% -\def\reserveww#1{#1=\nr \global\advance\nr by 1}% -\def\saveww#1#2{\global\ww#2=#1}% -\def\readww#1{#1=\ww\nr \global\advance\nr by 1}% -% -\def\setiftext#1#2{\setbox\thentext=\hbox{#1}\setbox\elsetext=\hbox{#2}}% -\setiftext{Y}{N}% -% -\def\vspc{% - \vbox to 2\spc{}% -}% -% -\def\hspc{% - \hbox to \spc{}% -}% -% -\def\spcbox#1#2{% - \hbox{% - \hspc% - \vbox{% - \vspc% - \wa=#1% - \advance\wa-2\spc% - \hbox{\parbox[t]{\wa}{\raggedright#2}}% - \vspc% - }% - \hspc% - }% -}% -% -\def\ACTION#1{% - \iftry% - \hbox to \unitwidth{}% - \else% - \hrule height\thickness% - \spcbox{\unitwidth}{#1}% - \global\underlinefalse% - \fi% -}% -% -\def\PROC#1#2{% - \iftry% - \hbox to \unitwidth{}% - \else% - \hrule height\thickness% - \spcbox{\unitwidth}{#2 (#1)}% - \global\underlinefalse% - \fi% -}% -% -\def\LABEL#1{% -}% -% -\def\leftif{% - \hbox{% - \begin{picture}(80,60)% - \put(0,60){\line(4,-3){80}}% - \put(0,5){\hbox to 80\unitlength{\hspc\copy\thentext\hfil}}% - \end{picture}% - }% -}% -% -\def\rightif{% - \hbox{% - \begin{picture}(80,60)% - \put(0,0){\line(4,3){80}}% - \put(0,5){\hbox to 80\unitlength{\hfil\copy\elsetext\hspc}}% - \end{picture}% - }% -}% -% -\def\IF#1\THEN#2\ELSE#3\ENDIF{% - \iftry% - \reserveww{\nra}% - \reserveww{\nrb}% - \setbox0=\vbox{\hbox to 8ex{} #2}% - \setbox2=\vbox{\hbox to 8ex{} #3}% - \saveww{\wd0}{\nra}% - \saveww{\wd2}{\nrb}% - \hbox{\hbox to 16ex{}\hbox to \unitwidth{}}% - \hbox{\box0\box2}% - \else% - \readww{\wa}% - \readww{\wb}% -% - \ifdim \wb=8ex% - \wa=\unitwidth% - \advance\wa-\wb% - \else% - \wc=0.003\wa% - \advance\wc0.003\wb% - \wb=\unitwidth% - \divide\wb\wc% - \wa=0.003\wa% - \multiply\wa\wb% -% - \wb=\unitwidth% - \advance\wb-\wa% - \fi% -% - \hrule height\thickness% - \hbox{% - \leftif% - \wa=\unitwidth% - \advance\wa-16ex% - \spcbox{\wa}{#1}% - \rightif% - }% - \setbox0=\vbox{\unitwidth=\wa\hbox to \unitwidth{}\global\underlinetrue #2}% - \ifunderline\underlinethentrue\else\underlinethenfalse\fi% - \ha=\ht0% - \advance\ha\dp0% - \setbox2=\vbox{\unitwidth=\wb\hbox to \unitwidth{}\global\underlinetrue #3}% - \ifunderline\underlineelsetrue\else\underlineelsefalse\fi% - \hb=\ht2% - \advance\hb\dp2% - \ifdim\ha>\hb\hc=\ha\else\hc=\hb\fi% - \hbox{% - \vtop{% - \unvbox0% - \ifdim\ha<\hb{\ifunderlinethen\hrule height\thickness\fi}\fi% - }% - \hbox to -\thickness{}% - \vrule width\thickness% - \vtop{% - \unvbox2% - \ifdim\hb<\ha{\ifunderlineelse\hrule height\thickness\fi}\fi% - }% - }% - \global\underlinetrue% - \fi% -}% -% -\def\REPEAT#1\UNTIL#2{% - \iftry% - \hbox{% - \hbox to 4ex{}% - \vtop{% - #1% - }% - }% - \hbox to \unitwidth{}% - \else% - \hbox{% - \vtop{% - \hrule height\thickness% - \hbox to 4ex{}% - }% - \vrule width\thickness% - \vtop{% - \wa=\unitwidth% - \advance\wa-4ex% - \unitwidth=\wa% - #1% - \hrule height\thickness% - }% - }% - \spcbox{\unitwidth}{#2}% - \global\underlinetrue% - \fi% -}% -% -\def\WHILE#1#2\ENDWHILE{% - \iftry% - \hbox to \unitwidth{}% - \hbox{% - \hbox to 4ex{}% - \vtop{% - #2% - }% - }% - \else% - \hrule height\thickness% - \spcbox{\unitwidth}{#1}% - \hbox{% - \hbox to 4ex{}% - \vrule width\thickness% - \vbox{% - \wa=\unitwidth% - \advance\wa-4ex% - \unitwidth=\wa% - #2% - }% - }% - \global\underlinetrue% - \fi% -}% -% -\def\ACCEPT#1#2\ENDACCEPT{% - \iftry% - \hbox to \unitwidth{}% - \hbox{% - \hspc% - \vtop{% - #2% - }% - \hspc% - }% - \else% - \hrule height\thickness% - \spcbox{\unitwidth}{#1}% - \hbox{% - \hspc% - \vbox{% - \hbox{% - \vrule width\thickness% - \hbox to -\thickness{}% - \vbox{% - \wa=\unitwidth% - \advance\wa-2\spc% - \unitwidth=\wa% - #2% - }% - \hbox to -\thickness{}% - \vrule width\thickness% - }% - \vbox to -\thickness{}% - \hrule height\thickness% - \vbox to \spc{}% - }% - \hspc% - }% - \global\underlinetrue% - \fi% -}% -% -\def\WHEN#1#2{% - \iftry% - \reserveww{\nra}% - \setbox0=\vbox{\hbox to \unitwidth{}#2}% - \saveww{\wd0}{\nra}% - \box0% - \else% - \readww{\wa}% - \wa=0.003\wa% - \multiply\wa\wc% - \vtop{% - \global\underlinefalse% - \hbox to 0pt{}% - \unitwidth=\wa% - \setbox0=\hbox{\raggedright#1}% - \ifdim\wd0=0pt% - #2% - \else% - \hrule height\thickness% - \spcbox{\unitwidth}{#1}% - #2% - \fi% - \ifunderlinewhen\ifunderline\hrule height\thickness\fi\fi% - }% - \hbox to -\thickness{}% - \vrule width\thickness% - \fi% -}% -% -\def\leftcase{% - \hbox{% - \begin{picture}(80,60)% - \put(0,60){\line(4,-3){80}}% - \end{picture}% - }% -}% -% -\def\CASE#1#2\ENDCASE{% - \iftry% - \reserveww{\nra}% - \setbox0=\hbox{#2}% - \saveww{\wd0}{\nra}% - \hbox{\box0}% - \else% - \readww{\wa}% -% - \wc=0.003\wa% - \wb=\unitwidth% - \divide\wb\wc% - \wc=\wb% -% \wa=0.01\wa% -% \multiply\wa\wb% -% - \hrule height\thickness% - \hbox{% - \leftcase% - \wa=\unitwidth% - \advance\wa-8ex% - \spcbox{\wa}{#1}% - }% - \hbox{#2}% - \global\underlinetrue% - \fi% -}% -% -\def\STRUCT#1#2#3{% - \spc=1ex% - \unitlength=0.1\spc% -% - \nr=0% - \trytrue% - \unitwidth=\minunitwidth% - \setbox0=\vbox{% - \baselineskip=0pt% - \lineskip=0pt% - \parindent=0pt% - \parskip=0pt% - #3 - }% -% - \nr=0% - \tryfalse% - \ifdim\nassiwidth=0pt% - \ifdim\wd0>\textwidth% - \unitwidth=\textwidth% - \else% - \unitwidth=\wd0% - \fi% - \else% - \unitwidth=\nassiwidth% - \fi% - \vbox{% - \vspace{0.5cm} - {\normalsize{\bf #1 --- }#2}% - \vspace{0.5cm} - \par% - \hbox{% - \baselineskip=0pt% - \lineskip=0pt% - \parindent=0pt% - \parskip=0pt% - \vrule width\thickness% - \vbox{% - #3% - \hrule height\thickness% - }% - \hbox to -\thickness{}% - \vrule width\thickness% - }% - }% -}% -\endinput
\ No newline at end of file |