summaryrefslogtreecommitdiff
path: root/support/acroweb/acroweb/scripts
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /support/acroweb/acroweb/scripts
Initial commit
Diffstat (limited to 'support/acroweb/acroweb/scripts')
-rw-r--r--support/acroweb/acroweb/scripts/printacroweb.pl53
-rw-r--r--support/acroweb/acroweb/scripts/printacrowebmath.pl50
2 files changed, 103 insertions, 0 deletions
diff --git a/support/acroweb/acroweb/scripts/printacroweb.pl b/support/acroweb/acroweb/scripts/printacroweb.pl
new file mode 100644
index 0000000000..1f8b87166d
--- /dev/null
+++ b/support/acroweb/acroweb/scripts/printacroweb.pl
@@ -0,0 +1,53 @@
+
+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\\correct#1{\\fbox{\$\\bullet\$} {#1}\\\\ }\n";
+print "\\def\\incorrect#1{\\fbox{\$\\times\$} {#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 "\\incorrect{",$radek,"}\n";
+ }
+ else
+ {
+ if ((substr($radek,0,1) eq "+"))
+ {
+ substr($radek,0,1,"");
+ print "\\correct{",$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}";
+
+
+
diff --git a/support/acroweb/acroweb/scripts/printacrowebmath.pl b/support/acroweb/acroweb/scripts/printacrowebmath.pl
new file mode 100644
index 0000000000..ad5b191531
--- /dev/null
+++ b/support/acroweb/acroweb/scripts/printacrowebmath.pl
@@ -0,0 +1,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}";