%%
%% This is file `makecubictable.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% makecubictable.dtx  (with options: `style')
%%    File to produce documentation and style file
%%    for tables of values
%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{makecubictable}[1999/10/19 V1.0 table for output]
\newtoks\temporary
\long\def\gaddtomacro#1#2{%
\begingroup
\temporary\expandafter{#1#2}%
\xdef#1{\the\temporary}
\endgroup}
\newcount\linenumber
\newcount\tobedone
\newcount\tablesize
\tablesize 1
\def\tablename{default}
\def\thelinenumber{\ifcase\linenumber zero\or one\or two\or
three\or four\or five\or six\or seven\or eight\or nine\or ten\or
eleven\or twelve\or thirteen\or fourteen\or fifteen\or sixteen\or
seventeen\or eighteen\or nineteen\or twenty\or twentyone\or
twentytwo\or twentythree\or twentyfour\or twentyfive\or
twentysix\or twentyseven\or twentyeight\or twentynine\fi}
\def\clearone{%
\expandafter\def\csname\tablename\thelinenumber\endcsname{}%
\advance\linenumber by 1}
\def\newone#1{%
\expandafter\gaddtomacro\csname\tablename
\thelinenumber\endcsname{#1}%
\advance\linenumber by 1}
\def\expandone{\csname\tablename\thelinenumber\endcsname
\global\advance\linenumber by 1}
\def\repeatgobble#1{\advance\tobedone by -1
\ifnum\the\tobedone>0\def\mynext{\repeatgobble}\else
\def\mynext{\relax}\fi\mynext}
\def\repeatclear{\clearone\advance\tobedone by -1
\ifnum\the\tobedone>0\def\mynext{\repeatclear}\else
\def\mynext{\relax}\fi\mynext}
\def\repeatnewone#1{\newone{#1}%
\advance\tobedone by -1
\ifnum\the\tobedone>0\def\mynext{\repeatnewone}\else
\def\mynext{\relax}\fi\mynext}
\def\repeatconstant#1{\newone{#1}%
\advance\tobedone by -1
\ifnum\the\tobedone>0\def\mynext{\repeatconstant{#1}}\else
\def\mynext{\relax}\fi\mynext}
\def\repeatexpandone{\expandone
\global\advance\tobedone by -1
\ifnum\the\tobedone>0%
\def\mynext{\crcr\tablerule\repeatexpandone}\else
\def\mynext{\crcr\tablerule}\fi\mynext}
\def\dogobble{\tobedone\tablesize
\linenumber 1
\repeatgobble}
\def\doclear{\tobedone\tablesize
\linenumber 1
\repeatclear}
\def\doconstant#1{\tobedone\tablesize
\linenumber 1
\repeatconstant{#1}}
\def\doaddcolumn{\tobedone\tablesize
\linenumber 1
\repeatnewone}
\def\docolumns{\global\tobedone\tablesize
\global\linenumber 1
\repeatexpandone}
\def\doinit#1#2{\def\tablename{#1}%
\tablesize#2
\doclear}
\def\tablerule{\noalign{\hrule}}
\def\linebegin{\global\def\intercolumn{\global\def\intercolumn{&}}}
\newcommand{\bigstrut}{\vphantom{$\Bigl)$}}
\def\createnewtable#1#2{%
\expandafter\def\csname for#1\endcsname{%
\doinit{#1}{#2}%
\doconstant{\linebegin}
\expandafter\def\csname add#1column\endcsname{%
\def\tablename{#1}%
\tablesize #2
\expandafter\def\csname First#1column\endcsname{%
\def\tablename{#1}%
\tablesize #2
\dogobble}
\doconstant{\intercolumn}
\doaddcolumn}
\expandafter\def\csname First#1column\endcsname{%
\csname add#1column\endcsname}
\expandafter\def\csname show#1columns\endcsname{%
\def\tablename{#1}%
\tablesize #2
\[\hbox to\hsize{\hss\vbox{%
\halign{\vrule\hskip1em\bigstrut
$########$\hfil\hskip1em\vrule
\tabskip=0pt%
&&\hskip0.5em\bigstrut$########$\hfil
\hskip0.5em\vrule\crcr\tablerule
\docolumns
}}\hss}\]
}}}
\createnewtable{HB}{14}
\createnewtable{CTKS}{17}
\newbox\trash
\newif\ifShowInfo
\ShowInfofalse
\newenvironment{info}{\ifShowInfo\def\next{}\else
\def\next{\begingroup
\def\global{}%
\setbox\trash\vtop\bgroup}\fi\next}%
{\ifShowInfo\else\egroup\endgroup\fi}
\endinput
%%
%% End of file `makecubictable.sty'.
