From 82a500d46e877032f6a2e5d14b4cd0072aa23ff4 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Tue, 9 Sep 2008 16:53:49 +0000 Subject: 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 --- .../texmf-dist/tex/plain/timetable/timetable.tex | 1156 ++++++++++++++++++++ 1 file changed, 1156 insertions(+) create mode 100644 Master/texmf-dist/tex/plain/timetable/timetable.tex (limited to 'Master/texmf-dist/tex/plain') 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 +%% ::-=- +%% +%% +%% consist of the first two chars of the day (MO,TU,WE,TH,FR) +%% +%% +%% is one of these OL, L, EL, OP, P, EP. +%% L means lecture, P - practice, O - odd week and E - even week. +%% +%% +%% is a number of the teaching hour in which the subject begins. +%% +%% +%% 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= +%% Table will be stretched into this dimension. It will only enlarge +%% the distance between vertical lines. No font transformation +%% will be done. +%% +%% heading= +%% This text will be typed in the left upper edge of the table. +%% +%% strut=height depth +%% 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= +%% 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= +%% This option sets a font in which will be typed the heading text. +%% Default value for absent environment option is `cmb10'. +%% +%% columnheadingfont= +%% This option sets a font in which are typed the numbers +%% of the teaching hours. +%% Default value for absent environment option is `cmb10'. +%% +%% rowheadingfont= +%% 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= +%% This option sets a font in which is typed the name of the lecture. +%% Default value for absent environment option is `cmss10'. +%% +%% Llocationfont= +%% 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= +%% This option sets a font in which is typed the name of the practice. +%% Default value for absent environment option is `cmr10'. +%% +%% Plocationfont= +%% 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= +%% This influences width of all lines in the table. +%% Default value is `0.4pt'. +%% +%% linespacewidth= +%% 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= +%% 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= +%% TU= +%% WE= +%% TH= +%% FR= +%% This texts are typed in the first column of the table. +%% Default values for absent environment option are `Monday', etc. +%% +%% from= +%% to= +%% 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= +%% subjectsto= +%% 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. +%% +%% +%% 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 -- cgit v1.2.3