#!/usr/bin/perl -w # # Takes index.tex on stdin and spits out index.html on stdout. # # (c) 2005 Petr Baudis # New-style BSD licence. use strict; use vars qw ($author $trauthor $title $acyear $localrev); sub C_author { $_ = $_[0]; s/^.*={(.*)}/$1/; $author = $_; } sub C_trauthor { $_ = $_[0]; s/^.*={(.*)}/$1/; $trauthor = $_; } sub C_title { $_ = $_[0]; s/^.*={(.*)}/$1/; $title = $_; } sub C_acyear { $_ = $_[0]; s/^.*={(.*)}/$1/; $acyear = $_; } sub C_localrev { $_ = $_[0]; s/^.*={(.*)}/$1/; $localrev = $_; } sub C_maketitlepage { print <$author - $title

$author - $title

Zde jsou k dispozici přepisy přednášek z předmětu $title v ak. roce $acyear na Matematicko-fyzikální fakultě Univerzity Karlovy. Přednáší $author, přepisuje $trauthor. Aktuální verze je $localrev.

Tyto zápisky jsou poskytovány bez záruky. Mohou v nich některé detaily chybět (i když rámcově by měly být kompletní, chybí zejména řada obrázků a některé příklady; nemohou tedy v žádném případě samy o sobě nahradit účast na přednáškách) a mohou se v nich vyskytnout chyby (převážně překlepového charakteru). Přednášející ani přepisovatel je tedy negarantují.

Celý dokument ke stažení (ve verzi $localrev):

Po částech:

Pokud si chcete TeXovské zdrojáky přeložit sami, následujte instrukce na hlavní stránce.

EOH } sub C_chapter { $_ = $_[0]; s/^.*{(.*)}{$/$1/; print "

$_

\n"; } sub C_input { $_ = $_[0]; s/^.* //; s/\.tex$//; print "

$_ TeX

\n"; } <>; # Skip the first \input. while(<>) { chomp; next unless /\\(\w+)/; my $subname = 'C_'.$1; my $sub = eval('return \&'.$subname); &$sub($_) if defined $sub; } print "
\n<< Hlavní stránka\n"; print "\n"; sub AUTOLOAD {}