summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/plain
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-09-09 16:53:49 +0000
committerKarl Berry <karl@freefriends.org>2008-09-09 16:53:49 +0000
commit82a500d46e877032f6a2e5d14b4cd0072aa23ff4 (patch)
tree545a19f05983bb35c30233d1abeafa115b8f540c /Master/texmf-dist/tex/plain
parenta253f34adc2df164384bd0c82045e2b4addc5f4b (diff)
missed old plain package timetable (cfrees 8 Sep 2008 01:26:16)
git-svn-id: svn://tug.org/texlive/trunk@10519 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/plain')
-rw-r--r--Master/texmf-dist/tex/plain/timetable/timetable.tex1156
1 files changed, 1156 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/plain/timetable/timetable.tex b/Master/texmf-dist/tex/plain/timetable/timetable.tex
new file mode 100644
index 00000000000..e0c881b8528
--- /dev/null
+++ b/Master/texmf-dist/tex/plain/timetable/timetable.tex
@@ -0,0 +1,1156 @@
+%% timetable.tex - TeX macro for generating timetables. version 1.0
+%% Jiri VERUNEK 4. 11. 2001
+%% http://verunek.oceany.cz
+%% verunek@vol.cz, jiri.verunek@seznam.cz
+%%
+%%
+%% DESCRIPTION
+%% timetable.tex is a TeX macro for generating timetables. It uses
+%% plain format commands. It excels in extremelely high configurability,
+%% nice appearance and simple input. It supports alternating subjects
+%% in dependence on odd and even week. Macro has radix sort mechanism
+%% so the order of subjects in input is irrelevant.
+%% Note that this macro is distributed under the GNU General Public Licence.
+%%
+%% SYNOPSIS
+%% \timetable[OPTIONS]{SUBJECTS}
+%%
+%% SUBJECTS
+%% Each subject has following structure
+%% <day>:<subject type>:<beginning>-<duration>=<subjectname>-<location>
+%%
+%% <day>
+%% consist of the first two chars of the day (MO,TU,WE,TH,FR)
+%%
+%% <subject type>
+%% is one of these OL, L, EL, OP, P, EP.
+%% L means lecture, P - practice, O - odd week and E - even week.
+%%
+%% <beginning>
+%% is a number of the teaching hour in which the subject begins.
+%%
+%% <duration>
+%% is a number representing the subject duration in the teaching hours
+%%
+%% Subjects are separated by commas without spaces. Note the next paragraph.
+%%
+%% OPTIONS
+%% Options are separated by commas without spaces. The whole block
+%% of options must be enclosed by brackets. All must be placed on
+%% the one line. If you wish to place it on a several lines you will
+%% had to use per cent char `%' on the end of each line!
+%%
+%% tablewidth=<DIMENSION>
+%% Table will be stretched into this dimension. It will only enlarge
+%% the distance between vertical lines. No font transformation
+%% will be done.
+%%
+%% heading=<text>
+%% This text will be typed in the left upper edge of the table.
+%%
+%% strut=height<DIMENSION> depth<DIMENSION>
+%% This invisible prop is inserted into each subject row to enlarge
+%% the height of that row.
+%% Default value is `height1em depth.35em'.
+%%
+%% forcehrules
+%% Normally each subject is rounded by lines and no other lines are
+%% drown between the subjects. Using of this option will force
+%% drawing horizontal lines between the days.
+%%
+%% forcevrules
+%% Normally each subject is rounded by lines and no other lines are
+%% drown between the subjects. Using of this option will force
+%% drawing verical lines between the teaching hours. No subject will be
+%% naturally crossed out.
+%%
+%% environment=<environment>
+%% This does a lot of work. It changes the fonts, names of the day, etc.
+%% So you needn't use some other options to adjust texts to your language.
+%% Send me e-mail if you wish to add your environment.
+%% Supported environment:
+%% czech
+%% slovak
+%%
+%% headingfont=<fontname>
+%% This option sets a font in which will be typed the heading text.
+%% Default value for absent environment option is `cmb10'.
+%%
+%% columnheadingfont=<fontname>
+%% This option sets a font in which are typed the numbers
+%% of the teaching hours.
+%% Default value for absent environment option is `cmb10'.
+%%
+%% rowheadingfont=<fontname>
+%% This option sets a font in which are typed the names of the days
+%% and the `from' and the `to' text.
+%% Default value for absent environment option is `cmb10'.
+%%
+%% Lsubjectnamefont=<fontname>
+%% This option sets a font in which is typed the name of the lecture.
+%% Default value for absent environment option is `cmss10'.
+%%
+%% Llocationfont=<fontname>
+%% This option sets a font in which are typed the names of the rooms
+%% in which is that lecture taught.
+%% Default value for absent environment option is `cmssi10'.
+%%
+%% Psubjectnamefont=<fontname>
+%% This option sets a font in which is typed the name of the practice.
+%% Default value for absent environment option is `cmr10'.
+%%
+%% Plocationfont=<fontname>
+%% This option sets a font in which are typed the names of the rooms
+%% in which is that practice taught.
+%% Default value for absent environment option is `cmti10'.
+%%
+%% linewidth=<DIMENSION>
+%% This influences width of all lines in the table.
+%% Default value is `0.4pt'.
+%%
+%% linespacewidth=<DIMENSION>
+%% You can change the width of the space between the vertical lines
+%% on the left and on the right of the table by this option.
+%% Default value is `1.3pt'.
+%%
+%% linespaceheight=<DIMENSION>
+%% You can change the height of the space between the vertical lines
+%% on the top and at the bottom of the table by this option.
+%% Default value is `1.2pt'.
+%%
+%% MO=<text>
+%% TU=<text>
+%% WE=<text>
+%% TH=<text>
+%% FR=<text>
+%% This texts are typed in the first column of the table.
+%% Default values for absent environment option are `Monday', etc.
+%%
+%% from=<text>
+%% to=<text>
+%% This texts are typed in the first column of the table. The beginning
+%% time and the end time of the each teaching hour are typed in the
+%% next columns.
+%% Default values for absent environment option are `from', `to'.
+%%
+%% subjectsfrom=<timelist>
+%% subjectsto=<timelist>
+%% Timelist is a list of the beginning/end time of each teaching hour.
+%% The times are separated by pipes `|' and are in h:mm format.
+%%
+%% <DIMENSION>
+%% This are the standard TeX dimension types which consists from a number
+%% and from an unit like em, en, pt, dd, in, cm, sp, etc.
+%% It is good to use first two units which rely on the font size.
+%%
+%% BUGS
+%% It seem that there is a bug in dvips. If you would like create
+%% PostScript output, you can use pdfTeX and the print function of Xpdf.
+%%
+%% If you find some bug in this TeX macro send me a report with your input
+%% please. However be sure of having the right input before sending a report.
+%% Criticism and admiration are welcome.
+%%
+%% EXAMPLE
+%% \timetable[tablewidth=15cm,heading=ZS 2001/2002,environment=czech,%
+%% subjectsfrom=7:30|8:15|9:15|10:00|11:00|11:45|||14:30||16:15,%
+%% subjectsto=|9:00|9:45|10:45|11:30|12:30||14:15||16:00|16:55|17:45|19:25]%
+%% {TU:P:11-2=TI-K3,TH:L:1-2=EL-209,MO:L:5-2=M5D-K1,FR:P:3-2=LS-K307,%
+%% TU:L:1-3=TI-K1,MO:OP:8-2=DBS-K5,TU:L:6-2=\TeX-340,TH:OP:5-2=SOJ-K310,%
+%% TH:L:9-3=LS-337,MO:L:2-3=DBS-K1,FR:P:1-2=NLP-T204,MO:EP:9-2=DBS-K311,%
+%% WE:EP:4-2=EL-041/9}
+%%
+%%
+\edef\oldcountten{\the\count10\relax} % \count register
+\edef\oldcounteleven{\the\count11\relax} % \dimen register
+\edef\oldcountfourteen{\the\count14\relax} % \box register
+\edef\oldcountfiveteen{\the\count15\relax} % \toks register
+\newtoks\halignbody
+\newcount\nrofdeclared
+\newcount\nrofcolumns
+\newcount\tempnum
+\newcount\nextsubjectbeg
+\newcount\restcolumns
+\newcount\currentcolumn
+\newcount\hruleoldbelowbeg
+\newcount\hruleoldbelowdur
+\newcount\hruleabovebeg
+\newcount\hruleabovedur
+\newcount\hrulemiddlebeg
+\newcount\hrulemiddledur
+\newcount\hrulebelowbeg
+\newcount\hrulebelowdur
+\newdimen\tempdimen
+\newdimen\columnwidth
+\newbox\tempbox
+\def\timetable{\bgroup
+ \def\myrelaxtocolon##1:{\relax}
+ \def\declareto##1:{\let\next=\declareloop \next##1:}
+ \def\declareloop##1:{
+ \ifnum \nrofdeclared=##1 \let\next=\myrelaxtocolon
+ \else \advance\nrofdeclared by 1
+ \expandafter\def\csname col\the\nrofdeclared\endcsname{}
+ \fi \next##1:}
+ \def\analysethebeginning##1:##2:##3-##4=##5,{
+ \ifnum##3>\nrofdeclared \declareto ##3: \fi
+ \tempnum=##3
+ \advance\tempnum by ##4
+ \advance\tempnum by -1
+ \ifnum \tempnum>\nrofcolumns \nrofcolumns=\tempnum \fi
+ \ex\ex\ex\ex\ex\ex\ex\def\ex\ex\ex\ex\ex\ex\csname col##3\endcsname
+ \ex\ex\ex{\csname col##3\endcsname ##1:##2:##3-##4=##5,}}
+ \def\myrelaxtwo##1##2{\relax}
+ \def\myrelaxone##1{\relax}
+ \def\browse##1,{\browseaction##1,
+ \futurelet \nextchar\testnextchar}
+ \def\testnextchar{
+ \ifx ,\nextchar \let\browsenext=\myrelaxtwo
+ \else
+ \ifx *\nextchar \let\browsenext=\myrelaxone \fi
+ \fi
+ \browsenext}
+ \def\browsetimes##1|{\browseaction##1|
+ \futurelet \nextchar\testnexttimeschar}
+ \def\testnexttimeschar{
+ \ifx *\nextchar \let\browsenext=\myrelaxone \fi
+ \browsenext}
+ \def\mergethebeginning{
+ \def\subjects{}
+ \def\add####1:{\ex\ex\ex\ex\ex\ex\ex \def \ex\ex\ex\ex\ex\ex\ex \subjects
+ \ex\ex\ex\ex\ex\ex\ex{\ex\ex\ex \subjects \csname col####1\endcsname}}
+ \tempnum=0 \let\next=\mergethenextbeginning \next}
+ \def\mergethenextbeginning{
+ \ifnum\tempnum=\nrofdeclared \let\next=\relax
+ \else \advance\tempnum by 1 \expandafter\add\the\tempnum:
+ \fi \next}
+ \def\getfromhruleoldbelow##1-##2,##3*{
+ \def\hruleoldbelow{##3}
+ \hruleoldbelowbeg=##1
+ \hruleoldbelowdur=##2\relax}
+ \def\analyseOE##1:##2##3:##4-##5=##6,{
+ \def\addoldbelowtohruleabove{
+ \edef\hruleabove{\hruleabove \the\hruleoldbelowbeg-\the\hruleoldbelowdur,}}
+ \def\addtohruleabove{
+ \edef\hruleabove{\hruleabove \the\hruleabovebeg-\the\hruleabovedur,}
+ \hruleabovebeg=##4
+ \hruleabovedur=##5}
+ \def\addtohrulemiddle{
+ \edef\hrulemiddle{\hrulemiddle \the\hrulemiddlebeg-\the\hrulemiddledur,}
+ \hrulemiddlebeg=##4
+ \hrulemiddledur=##5}
+ \def\addtohrulebelow{
+ \edef\hrulebelow{\hrulebelow \the\hrulebelowbeg-\the\hrulebelowdur,}
+ \hrulebelowbeg=##4
+ \hrulebelowdur=##5}
+ \def\hruleabovetest{
+ \ifnum\hruleoldbelowbeg=0
+ \ifx \empty\hruleoldbelow \let\next=\hruleabovetestwithoutoldbelow
+ \else
+ \let\next=\hruleaboveloop
+ \let\getnextoldbelow=\getfromhruleoldbelowexp
+ \fi
+ \else
+ \let\next=\hruleaboveloop
+ \let\getnextoldbelow=\relax
+ \fi \next}
+ \def\getfromhruleoldbelowexp{
+ \expandafter\getfromhruleoldbelow\hruleoldbelow *}
+ \def\hruleabovetestwithoutoldbelow{
+ \ifnum\hruleabovebeg>0
+ \tempnum=\hruleabovebeg
+ \advance\tempnum by \hruleabovedur
+ \ifnum \tempnum<##4 % space
+ \addtohruleabove
+ \else
+ \tempnum=##4
+ \advance\tempnum by ##5
+ \advance\tempnum by -\hruleabovebeg
+ \advance\tempnum by -\hruleabovedur
+ \ifnum \tempnum>0
+ \advance\hruleabovedur by \tempnum
+ \fi
+ \fi
+ \else
+ \hruleabovebeg=##4
+ \hruleabovedur=##5
+ \fi}
+ \def\hruleaboveloop{
+ \ifnum\hruleabovebeg>0 % not first pass?
+ \ifnum\hruleoldbelowbeg=0
+ \ifx \empty\hruleoldbelow \let\next=\relax
+ \fi
+ \fi
+ \ifx \next\relax
+ \else
+ \getnextoldbelow
+ \tempnum=##4
+ \advance\tempnum by ##5
+ \advance\tempnum by 1
+ \ifnum \hruleoldbelowbeg<\tempnum
+ \ifnum \hruleoldbelowbeg<\hruleabovebeg
+ \tempnum=\hruleoldbelowbeg
+ \advance\tempnum by \hruleoldbelowdur
+ \advance\tempnum by 1
+ \ifnum \hruleabovebeg<\tempnum % 1
+ \advance\hruleabovedur by \hruleabovebeg
+ \advance\hruleabovedur by -\hruleoldbelowbeg
+ \hruleabovebeg=\hruleoldbelowbeg
+ \ifnum \hruleoldbelowdur>\hruleabovedur
+ \hruleabovedur=\hruleoldbelowdur
+ \fi
+ \let\getnextoldbelow=\getfromhruleoldbelowexp
+ \hruleoldbelowbeg=0
+ \hruleoldbelowdur=0
+ \else % 3
+ \addoldbelowtohruleabove
+ \let\getnextoldbelow=\getfromhruleoldbelowexp
+ \hruleoldbelowbeg=0
+ \hruleoldbelowdur=0
+ \fi
+ \else
+ \tempnum=\hruleabovebeg
+ \advance\tempnum by \hruleabovedur
+ \advance\tempnum by 1
+ \ifnum \hruleoldbelowbeg<\tempnum % 2
+ \tempnum=\hruleoldbelowbeg
+ \advance\tempnum by \hruleoldbelowdur
+ \advance\tempnum by -\hruleabovebeg
+ \advance\tempnum by -\hruleabovedur
+ \ifnum \tempnum>0
+ \advance\hruleabovedur by \tempnum
+ \fi
+ \let\getnextoldbelow=\getfromhruleoldbelowexp
+ \hruleoldbelowbeg=0
+ \hruleoldbelowdur=0
+ \else % 4
+ \tempnum=##4
+ \advance\tempnum by ##5
+ \advance\tempnum by -\hruleabovebeg
+ \advance\tempnum by -\hruleabovedur
+ \ifnum \tempnum>0 % Can the actual subject extend the hruleabove?
+ \ifnum \tempnum>##5 % If the extension is longer than duration
+ \addtohruleabove % of the actual subject there must be a space.
+ \else
+ \advance\hruleabovedur by \tempnum
+ \fi
+ \fi
+ \fi
+ \fi
+ \else % the next comparisons are in the authority of the next subject
+ \tempnum=\hruleabovebeg
+ \advance\tempnum by \hruleabovedur
+ \advance\tempnum by 1
+ \ifnum \tempnum>##4 %nospace
+ \tempnum=##4
+ \advance\tempnum by ##5
+ \advance\tempnum by -\hruleabovebeg
+ \advance\tempnum by -\hruleabovedur
+ \ifnum \tempnum>0
+ \advance\hruleabovedur by \tempnum
+ \fi
+ \else
+ \addtohruleabove
+ \fi
+ \let\getnextoldbelow=\relax
+ \let\next=\relax
+ \fi
+ \fi
+ \else
+ \hruleabovebeg=##4
+ \hruleabovedur=##5
+ \fi \next}
+ \def\hrulemiddletest{
+ \ifnum\hrulemiddlebeg>0
+ \tempnum=\hrulemiddlebeg
+ \advance\tempnum by \hrulemiddledur
+ \ifnum ##4>\tempnum % space
+ \addtohrulemiddle
+ \else
+ \advance\tempnum by -##4
+ \multiply\tempnum by -1
+ \advance\tempnum by ##5
+ \ifnum\tempnum>0
+ \advance\hrulemiddledur by \tempnum
+ \fi
+ \fi
+ \else
+ \hrulemiddlebeg=##4
+ \hrulemiddledur=##5
+ \fi}
+ \def\hrulebelowtest{
+ \ifnum\hrulebelowbeg>0
+ \tempnum=\hrulebelowbeg
+ \advance\tempnum by \hrulebelowdur
+ \ifnum \tempnum=##4 % no space
+ \advance\hrulebelowdur by ##5
+ \else \addtohrulebelow
+ \fi
+ \else
+ \hrulebelowbeg=##4
+ \hrulebelowdur=##5
+ \fi}
+ \ifx :##3: % Is that non-alternating subject?
+ \ex\def\ex\mylineO\ex{\mylineO ##1:O##2:##4-##5=-,}
+ \ex\def\ex\mylineE\ex{\mylineE ##1:E##2:##4-##5=-,}
+ \ifnum \hrulemiddledur>0
+ \addtohrulemiddle
+ \hrulemiddlebeg=0
+ \hrulemiddledur=0
+ \fi
+ \let\testthehruleabove=\hruleabovetest
+ \let\testthehrulemiddle=\relax
+ \let\testthehrulebelow=\hrulebelowtest
+ \ex\def\ex\myline\ex{\myline ##1:##2##3:##4-##5=##6,}
+ \else
+ \ifx O##2
+ \let\testthehruleabove=\hruleabovetest
+ \let\testthehrulemiddle=\hrulemiddletest
+ \let\testthehrulebelow=\relax
+ \ex\def\ex\mylineO\ex{\mylineO ##1:##2##3:##4-##5=##6,}
+ \else
+ \ifx E##2
+ \let\testthehruleabove=\relax
+ \let\testthehrulemiddle=\hrulemiddletest
+ \let\testthehrulebelow=\hrulebelowtest
+ \ex\def\ex\mylineE\ex{\mylineE ##1:##2##3:##4-##5=##6,}
+ \else \errmessage{Bad input: ##1:##2##3:##4-##5=##6}
+ \fi
+ \fi
+ \fi
+ \testthehruleabove
+ \testthehrulemiddle
+ \testthehrulebelow}
+ \def\analysetheday##1:##2,{
+ \def\myday{##1}
+ \ifx \dayMO\myday \ex\def\ex\mylineMO\ex{\mylineMO ##1:##2,}
+ \else
+ \ifx \dayTU\myday \ex\def\ex\mylineTU\ex{\mylineTU ##1:##2,}
+ \else
+ \ifx \dayWE\myday \ex\def\ex\mylineWE\ex{\mylineWE ##1:##2,}
+ \else
+ \ifx \dayTH\myday \ex\def\ex\mylineTH\ex{\mylineTH ##1:##2,}
+ \else
+ \ifx \dayFR\myday \ex\def\ex\mylineFR\ex{\mylineFR ##1:##2,}
+ \else \errmessage{##1 is not valid format of the day of week.
+ Use one of these - MO,TU,WE,TH,FR}
+ \fi
+ \fi
+ \fi
+ \fi
+ \fi}
+ \def\radixsort{
+ \let\browseaction=\analysethebeginning
+ \nrofdeclared=0
+ \let\browsenext=\browse
+ \expandafter\browse\subjects,*
+ \mergethebeginning
+ \tempnum=\nrofdeclared
+ \nrofdeclared=0
+ \expandafter\declareto\the\tempnum:
+ \def\mylineMO{}
+ \def\mylineTU{}
+ \def\mylineWE{}
+ \def\mylineTH{}
+ \def\mylineFR{}
+ \let\browseaction=\analysetheday
+ \let\browsenext=\browse
+ \expandafter\browse\subjects *
+ \def\subjects{}}
+ \def\testthetimetable{
+ \ifx [\nextchar \let\next=\timetablewhopt
+ \else \let\next=\timetablewhoutopt
+ \fi \next}
+ \def\timetablewhoutopt##1{\def\subjects{##1}
+ \drawthetimetable}
+ \def\timetablewhopt[##1]##2{\def\subjects{##2}
+ \def\tablewidthopt{tablewidth}
+ \def\headingopt{heading}
+ \def\strutopt{strut}
+ \def\forcehrulesopt{forcehrules}
+ \def\forcevrulesopt{forcevrules}
+ \def\environmentopt{environment}
+ \def\headingfontopt{headingfont}
+ \def\columnheadingfontopt{columnheadingfont}
+ \def\rowheadingfontopt{rowheadingfont}
+ \def\Lsubjectnamefontopt{Lsubjectnamefont}
+ \def\Llocationfontopt{Llocationfont}
+ \def\Psubjectnamefontopt{Psubjectnamefont}
+ \def\Plocationfontopt{Plocationfont}
+ \def\linewidthopt{linewidth}
+ \def\linespacewidthopt{linespacewidth}
+ \def\linespaceheightopt{linespaceheight}
+ \def\fromopt{from}
+ \def\toopt{to}
+ \def\subjectsfromopt{subjectsfrom}
+ \def\subjectstoopt{subjectsto}
+ \let\browseaction=\analyseoptions
+ \let\browsenext=\browse
+ \browse##1,*
+ \drawthetimetable}
+ \def\analyseoptions##1,{
+ \def\myoption{##1}
+ \ifx \myoption\forcehrulesopt \let\drawthehrulesabove=\drawthelonghrule
+ \else
+ \ifx \myoption\forcevrulesopt \let\sepvrule=\relax
+ \else \analyseequals##1,
+ \fi
+ \fi}
+ \def\analyseequals##1=##2,{
+ \def\myoption{##1}
+ \ifx \myoption\tablewidthopt \def\tablewidth{to ##2}
+ \else
+ \ifx \myoption\headingopt \def\heading{##2}
+ \else
+ \ifx \myoption\environmentopt \def\environment{##2}
+ \else
+ \ifx \myoption\headingfontopt \font\headingfont=##2
+ \else
+ \ifx \myoption\columnheadingfontopt \font\columnheadingfont=##2
+ \else
+ \ifx \myoption\rowheadingfontopt \font\rowheadingfont=##2
+ \else
+ \ifx \myoption\Lsubjectnamefontopt \font\Lsubjectnamefont=##2
+ \else
+ \ifx \myoption\Llocationfontopt \font\Llocationfont=##2
+ \else
+ \ifx \myoption\Psubjectnamefontopt \font\Psubjectnamefont=##2
+ \else
+ \ifx \myoption\Plocationfontopt \font\Plocationfont=##2
+ \else
+ \ifx \myoption\linewidthopt
+ \def\myhrule{\hrule height##2}
+ \def\myvrule{\vrule width##2}
+ \def\hrulefill{\leaders\myhrule\hfill}
+ \else
+ \ifx \myoption\linespacewidthopt
+ \def\linespacewidth{\kern ##2}
+ \else
+ \ifx \myoption\linespaceheightopt
+ \def\linespaceheight{\myvrule height##2}
+ \else
+ \ifx \myoption\dayMO \def\MO{##2}
+ \else
+ \ifx \myoption\dayTU \def\TU{##2}
+ \else
+ \ifx \myoption\dayWE \def\WE{##2}
+ \else
+ \ifx \myoption\dayTH \def\TH{##2}
+ \else
+ \ifx \myoption\dayFR \def\FR{##2}
+ \else
+ \ifx \myoption\fromopt \def\from{##2}
+ \else
+ \ifx \myoption\toopt \def\to{##2}
+ \else
+ \ifx \myoption\subjectsfromopt
+ \def\subjectsfrom{##2}
+ \let\testthefromrow=\addthefromrow
+ \else
+ \ifx \myoption\subjectstoopt
+ \def\subjectsto{##2}
+ \let\testthetorow=\addthetorow
+ \else
+ \ifx \myoption\strutopt
+ \def\mystrut{\vrule width0pt ##2}
+ \else
+ \ifx \myoption\headingopt \def\heading{##2}
+ \else \errmessage{Bad option: ##1}
+ \fi
+ \fi
+ \fi
+ \fi
+ \fi
+ \fi
+ \fi
+ \fi
+ \fi
+ \fi
+ \fi
+ \fi
+ \fi
+ \fi
+ \fi
+ \fi
+ \fi
+ \fi
+ \fi
+ \fi
+ \fi
+ \fi
+ \fi
+ \fi}
+ \def\emptythehrules{
+ \def\myline{}
+ \def\mylineO{}
+ \def\mylineE{}
+ \hruleoldbelowbeg=0
+ \hruleoldbelowdur=0
+ \hruleabovebeg=0
+ \hruleabovedur=0
+ \hrulemiddlebeg=0
+ \hrulemiddledur=0
+ \hrulebelowbeg=0
+ \hrulebelowdur=0
+ \def\hruleabove{}
+ \def\hrulemiddle{}
+ \def\hrulebelow{}}
+ \def\testtherests{
+ \ifnum\hruleabovebeg>0
+ \addtohruleabove
+ \else
+ \ifx \empty\hruleabove
+ \edef\hruleabove{\hruleoldbelow}
+ \fi
+ \fi
+ \ifnum\hrulemiddlebeg>0 \addtohrulemiddle \fi
+ \ifnum\hrulebelowbeg>0 \addtohrulebelow \fi
+ \ifnum\hruleoldbelowbeg>0 \addoldbelowtohruleabove \fi}
+ \def\divideintorows{
+ \def\hruleoldbelow{}
+ \emptythehrules
+ \ifx \empty\mylineMO
+ \else
+ \let\browseaction=\analyseOE
+ \let\browsenext=\browse
+ \expandafter\browse\mylineMO *
+ \testtherests
+ \fi
+ \ex\def\ex\mylineMOO\ex{\mylineO}
+ \ex\def\ex\mylineMO\ex{\myline}
+ \ex\def\ex\mylineMOE\ex{\mylineE}
+ \edef\hrulemiddleMO{\hrulemiddle}
+% TUESDAY
+ \edef\hruleoldbelow{\hrulebelow}
+ \emptythehrules
+ \ifx \empty\mylineTU
+ \edef\hruleaboveTU{\hruleoldbelow}
+ \else
+ \let\browseaction=\analyseOE
+ \let\browsenext=\browse
+ \expandafter\browse\mylineTU *
+ \testtherests
+ \edef\hruleaboveTU{\hruleabove}
+ \fi
+ \ex\def\ex\mylineTUO\ex{\mylineO}
+ \ex\def\ex\mylineTU\ex{\myline}
+ \ex\def\ex\mylineTUE\ex{\mylineE}
+ \edef\hrulemiddleTU{\hrulemiddle}
+% WEDNESDAY
+ \edef\hruleoldbelow{\hrulebelow}
+ \emptythehrules
+ \ifx \empty\mylineWE
+ \edef\hruleaboveWE{\hruleoldbelow}
+ \else
+ \let\browseaction=\analyseOE
+ \let\browsenext=\browse
+ \expandafter\browse\mylineWE *
+ \testtherests
+ \edef\hruleaboveWE{\hruleabove}
+ \fi
+ \ex\def\ex\mylineWEO\ex{\mylineO}
+ \ex\def\ex\mylineWE\ex{\myline}
+ \ex\def\ex\mylineWEE\ex{\mylineE}
+ \edef\hrulemiddleWE{\hrulemiddle}
+% THURSDAY
+ \edef\hruleoldbelow{\hrulebelow}
+ \emptythehrules
+ \ifx \empty\mylineTH
+ \edef\hruleaboveTH{\hruleoldbelow}
+ \else
+ \let\browseaction=\analyseOE
+ \let\browsenext=\browse
+ \expandafter\browse\mylineTH *
+ \testtherests
+ \edef\hruleaboveTH{\hruleabove}
+ \fi
+ \ex\def\ex\mylineTHO\ex{\mylineO}
+ \ex\def\ex\mylineTH\ex{\myline}
+ \ex\def\ex\mylineTHE\ex{\mylineE}
+ \edef\hrulemiddleTH{\hrulemiddle}
+% FRIDAY
+ \edef\hruleoldbelow{\hrulebelow}
+ \emptythehrules
+ \ifx \empty\mylineFR
+ \edef\hruleaboveFR{\hruleoldbelow}
+ \else
+ \let\browseaction=\analyseOE
+ \let\browsenext=\browse
+ \expandafter\browse\mylineFR *
+ \testtherests
+ \edef\hruleaboveFR{\hruleabove}
+ \fi
+ \ex\def\ex\mylineFRO\ex{\mylineO}
+ \ex\def\ex\mylineFR\ex{\myline}
+ \ex\def\ex\mylineFRE\ex{\mylineE}
+ \edef\hrulemiddleFR{\hrulemiddle}
+ \emptythehrules}
+ \def\emptysubjectloop{
+ \ifnum \tempnum>0
+ \ifnum \tempnum>1
+ \halignbody=\expandafter{\the\halignbody &&\sepvrule}
+ \else
+ \halignbody=\expandafter{\the\halignbody &&}
+ \ifnum\currentcolumn>\nrofcolumns
+ \halignbody=\ex\ex\ex{\ex\the\ex\halignbody\addstrut\cr}
+ \fi
+ \fi
+ \advance\tempnum by -1
+ \else
+ \let\next=\relax
+ \fi \next}
+ \def\getnexthrulemiddle##1-##2,##3*{
+ \hrulemiddlebeg=##1
+ \hrulemiddledur=##2
+ \def\hrulemiddle{##3}}
+ \def\hrulesubjectsloop{
+ \ifnum \hrulemiddlebeg=0
+ \ifx \empty\hrulemiddle
+ \tempnum=\nextsubjectbeg
+ \advance\tempnum by -\currentcolumn
+ \advance\currentcolumn by \tempnum
+ \let\addstrut=\space
+ \let\next=\emptysubjectloop
+ \let\nexthruleloop=\next
+ \else
+ \expandafter\getnexthrulemiddle\hrulemiddle *
+ \fi
+ \fi
+ \ifnum \hrulemiddlebeg>0
+ \ifnum \nextsubjectbeg<\hrulemiddlebeg % add spaces to next subject
+ \tempnum=\nextsubjectbeg
+ \advance\tempnum by -\currentcolumn
+ \advance\currentcolumn by \tempnum
+ \let\next=\emptysubjectloop
+ \next
+ \else % add spaces to middlehrulebeg
+ \tempnum=\hrulemiddlebeg
+ \advance \tempnum by -\currentcolumn
+ \ifnum \tempnum>0
+ \advance\currentcolumn by \tempnum
+ \let\next=\emptysubjectloop
+ \next
+ \fi
+ \ifnum \hrulemiddlebeg=1
+ \def\begvvrulecorrection{\vvrule}
+ \else
+ \def\begvvrulecorrection{\relax}
+ \fi
+ \tempnum=\hrulemiddlebeg
+ \advance\tempnum by \hrulemiddledur
+ \advance\tempnum by -1
+ \ifnum \tempnum=\nrofcolumns
+ \def\endvvrulecorrection{\vvrule}
+ \else
+ \def\endvvrulecorrection{\relax}
+ \fi
+ \edef\correctedline{\begvvrulecorrection\hrulefill\endvvrulecorrection}
+ \tempnum=\hrulemiddledur
+ \multiply\tempnum by 2
+ \advance\tempnum by 1
+ \advance\currentcolumn by \hrulemiddledur
+ \halignbody=\ex\ex\ex\ex\ex\ex\ex{\ex\ex\ex\the\ex\ex\ex\halignbody
+ \ex\ex\ex\multispan\ex\ex\ex{\ex\the\ex\tempnum\ex}\correctedline}
+ \ifnum \currentcolumn>\nrofcolumns
+ \halignbody=\expandafter{\the\halignbody \cr}
+ \fi
+ \fi
+ \ifnum\currentcolumn<\nextsubjectbeg
+ \tempnum=\hrulemiddlebeg
+ \advance\tempnum by \hrulemiddledur
+ \advance\tempnum by -1
+ \ifnum \currentcolumn>\tempnum
+ \hrulemiddlebeg=0
+ \fi
+ \else
+ \let\nexthruleloop=\relax
+ \fi
+ \fi
+ \nexthruleloop}
+ \def\testthecolumnwidth ##1##2=##3-##4,{
+ \ifx L##1
+ \setbox\tempbox=\hbox{\Lsubjectnamefont\ ##3\Llocationfont ##4\ }
+ \else
+ \setbox\tempbox=\hbox{\Psubjectnamefont\ ##3\Plocationfont ##4\ }
+ \fi
+ \tempdimen=\wd\tempbox
+ \divide \tempdimen by ##2
+ \ifnum \tempdimen>\columnwidth
+ \columnwidth=\tempdimen
+ \fi}
+ \def\drawthesubject##1:##2##3:##4-##5=##6-##7,{
+ \ifnum \currentcolumn<##4 % Is it necessary to add spaces?
+ \if :##3: % add spaces with middlehrules
+ \nextsubjectbeg=##4
+ \hrulemiddlebeg=0
+ \let\nexthruleloop=\hrulesubjectsloop
+ \nexthruleloop
+ \else % add spaces without hrules
+ \edef\addstrut{\higheststrutfont\mystrut}
+ \tempnum=##4
+ \advance\tempnum by -\currentcolumn
+ \advance\currentcolumn by \tempnum
+ \let\next=\emptysubjectloop
+ \next
+ \fi
+ \fi
+ \tempnum=##5
+ \multiply\tempnum by 2
+ \advance\tempnum by -1
+ \advance\currentcolumn by ##5
+ \ifx :##3:
+ \ifx L##2
+ \halignbody=\ex\ex\ex{\ex\the\ex\halignbody \ex &\ex\multispan
+ \ex{\the\tempnum}\hfil\hidewidth \vbox to0pt{\vss\hbox{\Lsubjectnamefont
+ ##6 \mystrut\Llocationfont ##7\mystrut}\vss}\hidewidth\hfil &}
+ \testthecolumnwidth L##5=##6-##7,
+ \else
+ \halignbody=\ex\ex\ex{\ex\the\ex\halignbody \ex &\ex\multispan
+ \ex{\the\tempnum}\hfil\hidewidth \vbox to0pt{\vss\hbox{\Psubjectnamefont
+ ##6 \mystrut\Plocationfont ##7\mystrut}\vss}\hidewidth\hfil &}
+ \testthecolumnwidth P##5=##6-##7,
+ \fi
+ \ifnum\currentcolumn>\nrofcolumns
+ \halignbody=\ex\ex\ex{\ex\the\ex\halignbody \cr}
+ \fi
+ \else
+ \ifx L##3
+ \halignbody=\ex\ex\ex{\ex\the\ex\halignbody \ex &\ex\multispan
+ \ex{\the\tempnum}\hfil\hidewidth\Lsubjectnamefont ##6
+ \Llocationfont ##7\hidewidth\hfil &}
+ \testthecolumnwidth L##5=##6-##7,
+ \else
+ \halignbody=\ex\ex\ex{\ex\the\ex\halignbody \ex &\ex\multispan
+ \ex{\the\tempnum}\hfil\hidewidth\Psubjectnamefont ##6
+ \Plocationfont ##7\hidewidth\hfil &}
+ \testthecolumnwidth P##5=##6-##7,
+ \fi
+ \ifnum\currentcolumn>\nrofcolumns
+ \halignbody=\ex\ex\ex{\ex\the\ex\halignbody\addstrut \cr}
+ \fi
+ \fi}
+ \def\hrulesaboveinit{
+ \halignbody=\expandafter{\the\halignbody \multispan3\vvrule\hrulefill &}
+ \currentcolumn=1
+ \nextsubjectbeg=\nrofcolumns
+ \advance\nextsubjectbeg by 1
+ \let\nexthruleloop=\hrulesubjectsloop
+ \nexthruleloop}
+ \def\longhrule{\multispan3\vvrule\hrulefill&\multispan\restcolumns
+ \span\omit\vvrule\hrulefill\vvrule\cr}
+ \def\drawthelonghrule{\halignbody=\ex{\the\halignbody \longhrule}}
+ \def\testonetime##1|{
+ \ifnum \tempnum<\nrofcolumns
+ \ifx |##1|
+ \halignbody=\ex{\the\halignbody &&}
+ \advance\tempnum by 1
+ \else \typeonetime##1|
+ \fi
+ \fi}
+ \def\typeonetime##1:##2|{
+ \ifnum \tempnum<\nrofcolumns
+ \halignbody=\ex{\the\halignbody &$##1^{##2\mathstrut}\mathstrut$&}
+ \advance\tempnum by 1
+ \setbox\tempbox=\hbox{\ $##1^{##2}$\ }
+ \tempdimen=\wd\tempbox
+ \ifnum \tempdimen>\columnwidth
+ \columnwidth=\tempdimen
+ \fi
+ \fi}
+ \def\addthefromrow{
+ \def\lastvkern{\longhrule\vkern}
+ \halignbody=\ex{\the\halignbody \longhrule &\rowheadingfont\from\mystrut &&}
+ \let\browsenext=\browsetimes
+ \let\browseaction=\testonetime
+ \tempnum=0
+ \expandafter\browsetimes\subjectsfrom |*
+ \ifnum \tempnum<\nrofcolumns
+ \nextsubjectbeg=\tempnum % nextsubjectbeg has the temporary value here
+ \tempnum=\nrofcolumns
+ \advance\tempnum by -\nextsubjectbeg
+ \let\next=\emptytimesloop
+ \next
+ \fi
+ \halignbody=\ex{\the\halignbody \mystrut\cr}}
+ \def\addthetorow{
+ \def\lastvkern{\longhrule\vkern}
+ \halignbody=\ex{\the\halignbody \longhrule &\rowheadingfont\to\mystrut &&}
+ \let\browsenext=\browsetimes
+ \let\browseaction=\testonetime
+ \tempnum=0
+ \expandafter\browsetimes\subjectsto |*
+ \ifnum \tempnum<\nrofcolumns
+ \nextsubjectbeg=\tempnum % nextsubjectbeg has the temporary value here
+ \tempnum=\nrofcolumns
+ \advance\tempnum by -\nextsubjectbeg
+ \let\next=\emptytimesloop
+ \next
+ \fi
+ \halignbody=\ex{\the\halignbody \mystrut\cr}}
+ \def\emptytimesloop{
+ \ifnum \tempnum>0
+ \halignbody=\expandafter{\the\halignbody &&}
+ \advance\tempnum by -1
+ \else
+ \let\next=\relax
+ \fi \next}
+ \def\drawthetimetable{
+ \ifx \empty\environment
+ \ifx \empty\headingfont \font\headingfont=cmb10 \fi
+ \ifx \empty\columnheadingfont \font\columnheadingfont=cmb10 \fi
+ \ifx \empty\rowheadingfont \font\rowheadingfont=cmb10 \fi
+ \ifx \empty\Lsubjectnamefont \font\Lsubjectnamefont=cmss10 \fi
+ \ifx \empty\Llocationfont \font\Llocationfont=cmssi10 \fi
+ \ifx \empty\Psubjectnamefont \font\Psubjectnamefont=cmr10 \fi
+ \ifx \empty\Plocationfont \font\Plocationfont=cmti10 \fi
+ \ifx \empty\MO \def\MO{Monday} \fi
+ \ifx \empty\TU \def\TU{Tuesday} \fi
+ \ifx \empty\WE \def\WE{Wednesday} \fi
+ \ifx \empty\TH \def\TH{Thursday} \fi
+ \ifx \empty\FR \def\FR{Friday} \fi
+ \ifx \empty\from \def\from{from} \fi
+ \ifx \empty\to \def\to{to} \fi
+ \else
+ \def\environmentopt{czech}
+ \ifx \environment\environmentopt
+ \ifx \empty\headingfont \font\headingfont=csb10 \fi
+ \ifx \empty\columnheadingfont \font\columnheadingfont=csb10 \fi
+ \ifx \empty\rowheadingfont \font\rowheadingfont=csb10 \fi
+ \ifx \empty\Lsubjectnamefont \font\Lsubjectnamefont=csss10 \fi
+ \ifx \empty\Llocationfont \font\Llocationfont=csssi10 \fi
+ \ifx \empty\Psubjectnamefont \font\Psubjectnamefont=csr10 \fi
+ \ifx \empty\Plocationfont \font\Plocationfont=csti10 \fi
+ \ifx \empty\MO \def\MO{Pondělí} \fi
+ \ifx \empty\TU \def\TU{Úterý} \fi
+ \ifx \empty\WE \def\WE{Středa} \fi
+ \ifx \empty\TH \def\TH{Čtvrtek} \fi
+ \ifx \empty\FR \def\FR{Pátek} \fi
+ \ifx \empty\from \def\from{od} \fi
+ \ifx \empty\to \def\to{do} \fi
+ \else
+ \def\environmentopt{slovak}
+ \ifx \environment\environmentopt
+ \ifx \empty\headingfont \font\headingfont=csb10 \fi
+ \ifx \empty\columnheadingfont \font\columnheadingfont=csb10 \fi
+ \ifx \empty\rowheadingfont \font\rowheadingfont=csb10 \fi
+ \ifx \empty\Lsubjectnamefont \font\Lsubjectnamefont=csss10 \fi
+ \ifx \empty\Llocationfont \font\Llocationfont=csssi10 \fi
+ \ifx \empty\Psubjectnamefont \font\Psubjectnamefont=csr10 \fi
+ \ifx \empty\Plocationfont \font\Plocationfont=csti10 \fi
+ \ifx \empty\MO \def\MO{Pondelok} \fi
+ \ifx \empty\TU \def\TU{Utorok} \fi
+ \ifx \empty\WE \def\WE{Streda} \fi
+ \ifx \empty\TH \def\TH{Štvrtok} \fi
+ \ifx \empty\FR \def\FR{Piatok} \fi
+ \ifx \empty\from \def\from{od} \fi
+ \ifx \empty\to \def\to{do} \fi
+ \else \errmessage{Unknown environment parameter: \environment}
+ \fi
+ \fi
+ \fi
+ \radixsort
+ \divideintorows
+ \def\vvrule{\myvrule\linespacewidth \myvrule}
+ \def\vkern{\multispan\restcolumns
+ \span\omit\span\omit\span\omit\span\omit
+ \linespaceheight \hfil \linespaceheight \cr}
+ \def\addtohalignmask{
+ \ifnum \tempnum=\nrofcolumns
+ \halignbody=\expandafter{\the\halignbody
+ \hbox to\columnwidth{\hfil########\hfil}&########\vvrule\tabskip=0pt}
+ \let\next=\relax
+ \else
+ \halignbody=\expandafter{\the\halignbody
+ \hbox to\columnwidth{\hfil########\hfil}&########\myvrule&}
+ \advance\tempnum by 1
+ \fi \next}
+ \restcolumns=\nrofcolumns
+ \multiply\restcolumns by 2
+ \halignbody={\tabskip=0pt plus 1fil\vvrule ####&
+ \hfil\ ####\ \hfil & ####\tabskip=0pt &
+ \tabskip=0pt plus 1fil\vvrule ####&}
+ \tempnum=1
+ \let\next=\addtohalignmask
+ \next
+ \halignbody=\expandafter{\the\halignbody \cr \noalign{\myhrule} \vkern \cr
+ \longhrule &\headingfont\heading\mystrut&}
+ \def\typetheheading{
+ \ifnum \tempnum=\nrofcolumns
+ \halignbody=\expandafter{\the\halignbody &\columnheadingfont\mystrut
+ \cr \longhrule\vkern \cr \longhrule}
+ \let\next=\relax
+ \else
+ \advance\tempnum by 1
+ \ex\setbox\ex\tempbox\ex\hbox\ex{\ex\columnheadingfont\ex\ \the\tempnum\ }
+ \tempdimen=\wd\tempbox
+ \ifnum \tempdimen>\columnwidth
+ \columnwidth=\tempdimen
+ \fi
+ \halignbody=\ex\ex\ex{\ex\the\ex\halignbody\ex&\ex&\ex\columnheadingfont
+ \the\tempnum}
+ \fi \next}
+ \tempnum=0
+ \let\next=\typetheheading
+ \next
+ \def\initOE{% alternating subjects
+ \hrulemiddlebeg=0
+ \halignbody=\expandafter{\the\halignbody &\omit &&}
+ \currentcolumn=1
+ \let\browsenext=\browse
+ \let\browseaction=\drawthesubject
+ \if \empty\subjects
+ \else
+ \expandafter\browse\subjects *
+ \fi
+ \ifnum \currentcolumn>\nrofcolumns
+ \let\next=\relax
+ \else
+ \tempnum=\nrofcolumns
+ \advance\tempnum by -\currentcolumn
+ \advance\tempnum by 1
+ \advance\currentcolumn by \tempnum
+ \edef\addstrut{\higheststrutfont\mystrut}
+ \let\next=\emptysubjectloop
+ \fi \next}
+ \def\init{% non alternating subjects
+ \hrulemiddlebeg=0
+ \currentcolumn=1
+ \let\browsenext=\browse
+ \let\browseaction=\drawthesubject
+ \ifx \empty\subjects
+ \else
+ \expandafter\browse\subjects *
+ \fi
+ \nextsubjectbeg=\nrofcolumns
+ \advance\nextsubjectbeg by 1
+ \let\addstrut=\space
+ \let\nexthruleloop=\hrulesubjectsloop
+ \nexthruleloop}
+% compute highest strut in subjects
+ \setbox\tempbox=\hbox{\Lsubjectnamefont\mystrut}
+ \tempdimen=\ht\tempbox % \tempdimen = the highest strut
+ \let\higheststrutfont=\Lsubjectnamefont
+ \setbox\tempbox=\hbox{\Psubjectnamefont\mystrut}
+ \ifnum \tempdimen<\ht\tempbox
+ \tempdimen=\ht\tempbox
+ \let\higheststrutfont=\Psubjectnamefont
+ \fi
+ \setbox\tempbox=\hbox{\Llocationfont\mystrut}
+ \ifnum \tempdimen<\ht\tempbox
+ \tempdimen=\ht\tempbox
+ \let\higheststrutfont=\Llocationfont
+ \fi
+ \setbox\tempbox=\hbox{\Plocationfont\mystrut}
+ \ifnum \tempdimen<\ht\tempbox
+ \tempdimen=\ht\tempbox
+ \let\higheststrutfont=\Plocationfont
+ \fi
+% Monday
+ \let\subjects=\mylineMOO
+ \initOE
+ \let\subjects=\mylineMO
+ \let\hrulemiddle=\hrulemiddleMO
+ \halignbody=\expandafter{\the\halignbody &\vbox to0pt{\vss
+ \hbox{\rowheadingfont \MO\mystrut}\vss}&&}
+ \init
+ \let\subjects=\mylineMOE
+ \initOE
+% Tuesday
+ \let\hrulemiddle=\hruleaboveTU
+ \drawthehrulesabove
+ \let\subjects=\mylineTUO
+ \initOE
+ \let\subjects=\mylineTU
+ \let\hrulemiddle=\hrulemiddleTU
+ \halignbody=\expandafter{\the\halignbody &\vbox to0pt{\vss
+ \hbox{\rowheadingfont \TU\mystrut}\vss}&&}
+ \init
+ \let\subjects=\mylineTUE
+ \initOE
+% Wednesday
+ \let\hrulemiddle=\hruleaboveWE
+ \drawthehrulesabove
+ \let\subjects=\mylineWEO
+ \initOE
+ \let\subjects=\mylineWE
+ \let\hrulemiddle=\hrulemiddleWE
+ \halignbody=\expandafter{\the\halignbody &\vbox to0pt{\vss
+ \hbox{\rowheadingfont \WE\mystrut}\vss}&&}
+ \init
+ \let\subjects=\mylineWEE
+ \initOE
+% Thursday
+ \let\hrulemiddle=\hruleaboveTH
+ \drawthehrulesabove
+ \let\subjects=\mylineTHO
+ \initOE
+ \let\subjects=\mylineTH
+ \let\hrulemiddle=\hrulemiddleTH
+ \halignbody=\expandafter{\the\halignbody &\vbox to0pt{\vss
+ \hbox{\rowheadingfont \TH\mystrut}\vss}&&}
+ \init
+ \let\subjects=\mylineTHE
+ \initOE
+% Friday
+ \let\hrulemiddle=\hruleaboveFR
+ \drawthehrulesabove
+ \let\subjects=\mylineFRO
+ \initOE
+ \let\subjects=\mylineFR
+ \let\hrulemiddle=\hrulemiddleFR
+ \halignbody=\expandafter{\the\halignbody &\vbox to0pt{\vss
+ \hbox{\rowheadingfont \FR\mystrut}\vss}&&}
+ \init
+ \let\subjects=\mylineFRE
+ \initOE
+ \halignbody=\ex{\the\halignbody \longhrule \vkern}
+ \testthefromrow
+ \testthetorow
+ \halignbody=\ex{\the\halignbody \lastvkern \noalign{\myhrule}}
+ \expandafter\ialign\tablewidth{\span\the\halignbody}
+ \egroup
+% cancel the changes made by the \newcount commands etc.
+ \count10=\oldcountten
+ \count11=\oldcounteleven
+ \count14=\oldcountfourteen
+ \count15=\oldcountfiveteen}
+% the beginning
+ \offinterlineskip
+ \nrofcolumns=0
+ \def\tablewidth{}
+ \def\heading{}
+ \def\mystrut{\myvrule width0pt height1em depth.35em}
+ \let\sepvrule=\omit
+ \let\drawthehrulesabove=\hrulesaboveinit
+ \let\testthefromrow=\relax
+ \let\testthetorow=\relax
+ \let\lastvkern=\space
+ \def\environment{}
+ \def\headingfont{}
+ \def\columnheadingfont{}
+ \def\rowheadingfont{}
+ \def\Lsubjectnamefont{}
+ \def\Llocationfont{}
+ \def\Psubjectnamefont{}
+ \def\Plocationfont{}
+ \let\myhrule=\hrule
+ \let\myvrule=\vrule
+ \def\linespacewidth{\kern 1.3pt}
+ \def\linespaceheight{\myvrule height1.2pt}
+ \def\dayMO{MO}
+ \def\dayTU{TU}
+ \def\dayWE{WE}
+ \def\dayTH{TH}
+ \def\dayFR{FR}
+ \def\MO{}
+ \def\TU{}
+ \def\WE{}
+ \def\TH{}
+ \def\FR{}
+ \def\from{}
+ \def\to{}
+ \def\subjectsfrom{}
+ \def\subjectsto{}
+ \columnwidth=0pt
+ \let\ex=\expandafter
+ \futurelet\nextchar \testthetimetable}
+\end