% WWWVERN - kvazi podpora HTML tagov v TeXu (cvicenie v plainTeXu)
% Podporovane tagy: <h1>...<h3>,<b>, <i>; <u> nie ;-); <tt>
% <br>, <hr>, 
% --------
% 12. 03. 2003, Robert Novotny, r.novotny@szm.sk
% --
% 5. 5. 2003 - opraveny <hr>, aby zacinal v novom odseku
% 18. 3. 2003 - zavedene (velmi primitivnym sposobom) tagy <table>,<tr>,<td>
% plus koncove varianty; dalej zavedeny tag <center>

%nech < uvadza kontrolslova
\catcode`\<=0
%znak > bude aktivny, bude kvazi uzatvarat sekvenciu, ale nebude robit nic
\catcode`\>=13
%
%nech / je pismeno
\catcode`\/=11
\let>=\relax
\def<b#1</b>{{\bf #1}}
\def<i#1</i>{{\it #1}}
%
\font\fonthone=csbx12 at 16 pt 
\font\fonthtwo=csbx12 at 14 pt 
\font\fonththree=csbx12 at 12 pt 
%takto nemozeme vsak dalej robit <h1>,...</h2>, lebo 1 nie je pismeno
%do kontrolslova...zeby cislo islo ako parameter?
\def\vytlacnadpis#1#2{\unskip\par\bigskip{#1 #2}\par\medskip\nobreak}
\def<h#1>#2</h#3>{
%zistime, ci su rovnake nadpisy v pociatocnych i koncovych tagoch
\ifx#1#3
  %ak ano, podla cisla urovne priradime font
  \ifcase#1
    \nadpisid=\nullfont
    \errmessage{Zero-th level header?}
  \or
    \let\nadpisid=\fonthone
  \or
    \let\nadpisid=\fonthtwo
  \or
    \let\nadpisif=\fonththree
  \fi
  %vytlacime nadpis s danym fontom a textom
  \vytlacnadpis{\nadpisid}{#2}
\else
  %chyba, nezodpovedaju si urovne v zaciatocnych a koncovych tagoch
  %(napr. <h1>...</h3>  
  \errmessage{wwwern error: Title levels do not match.}%
\fi
}
\def<br{\hfil\par}
\def<hr{\par\hbox to \hsize{\hrulefill}}
%
%
%
%odlozime si povodny TeXovy vyznam \tt, lebo <tt je vlastne \tt
\let\teletype=\tt
\def<tt#1</tt>{{\teletype #1}}
%
\parindent=0pt
%
\def<table{%
\bgroup%
%
\par
\offinterlineskip
\tabskip=5pt
%
\halign\bgroup&##\cr%
%kvoli tomu, ze <table>\cr bude interpretovane ako <table>[medzera]
%\ignorespaces
}
\def</table{%
\egroup%skoncime halign
\egroup}
%
\def<tr>{}
\def</tr>{\cr}
\def<td>{&}
\let</td=\relax
%
\def<center{%
   \par
   \leftskip=0pt plus4em
   \rightskip=\leftskip
   \spaceskip=.3333em
   \xspaceskip=.5em   
   \parfillskip=0pt
   \parindent=0pt
}
\def</center{%
   \par
   \leftskip=0pt
   \rightskip=\leftskip
   \parfillskip=0pt plus 1fill
}

%-------------------------------------------------------------