summaryrefslogtreecommitdiff
path: root/support/acroweb/acroweb/scripts/printacrowebmath.pl
blob: ad5b19153110e1e2d413dc6ada16440cf3c6862a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
print "\\errorstopmode";
print "\\documentclass{article}\n\\usepackage{amsmath,amsfonts}\n\\usepackage{multicol}\n\\usepackage{a4wide}\n\\usepackage[czech]{babel}\\usepackage[IL2]{fontenc}\n\\begin{document}\n";
print "\\newcount\\cislo\\everymath{\\displaystyle}\n";
print "\\def\\arctg{\\arctan}\\everymath{\\displaystyle}\n";
print "\\def\\dobre#1{\\fbox{\$\\bullet\$} {#1}\\\\ }\n";
print "\\def\\spatne#1{ \\hbox{#1}\\\\ } \n";
print "\\parindent 0pt\n";
print "\\parskip 10pt\n";
print "\\rightskip 0 pt plus 1 fill\n";
print "\\columnseprule 0.4pt\n";

print "\\def\\jednicka{1 }\n";
print "\\def\\sloupce{2 }";
print "\\ifx\\sloupce\\jednicka \\else \\begin{multicols}{\\sloupce} \\fi\n";

@pole=<STDIN>;

foreach $radek (@pole)
{
    chomp($radek);
    if ((substr($radek,0,1) eq "-")) 
    {
	substr($radek,0,1,"");
	print "\\spatne{",$radek,"}\n";
    }
    else
    {
	if ((substr($radek,0,1) eq "+")) 
	{
	    substr($radek,0,1,"");
	    print "{\\verb:",$radek,":}\n";
	}
	else
	{
	    print "\n\n";
	    if ($radek eq "")
	    {
		print "\n\n";
	    }
	    else
	    {
		print "\$\\global\\advance\\cislo by 1\\textbf{\\fbox{\\the \\cislo}}\$ ",$radek,"\\\\ ";
	    }
	}
    }
}  


print "\\ifx\\sloupce\\jednicka\\else\\end{multicols}\\fi\n";
print "\\end{document}";