diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /support/acroweb/acroweb/scripts |
Initial commit
Diffstat (limited to 'support/acroweb/acroweb/scripts')
-rw-r--r-- | support/acroweb/acroweb/scripts/printacroweb.pl | 53 | ||||
-rw-r--r-- | support/acroweb/acroweb/scripts/printacrowebmath.pl | 50 |
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}"; |