summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/nassflow/nassi.sty
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/latex/nassflow/nassi.sty')
-rw-r--r--Master/texmf-dist/tex/latex/nassflow/nassi.sty422
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