summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/shipunov/scripts/biokey2html1.pl
diff options
context:
space:
mode:
Diffstat (limited to 'macros/latex/contrib/shipunov/scripts/biokey2html1.pl')
-rw-r--r--macros/latex/contrib/shipunov/scripts/biokey2html1.pl30
1 files changed, 30 insertions, 0 deletions
diff --git a/macros/latex/contrib/shipunov/scripts/biokey2html1.pl b/macros/latex/contrib/shipunov/scripts/biokey2html1.pl
new file mode 100644
index 0000000000..e7eb44b07d
--- /dev/null
+++ b/macros/latex/contrib/shipunov/scripts/biokey2html1.pl
@@ -0,0 +1,30 @@
+#!/usr/bin/perl -w
+
+$/="";
+
+print STDERR "Making relative LaTeX key... \n";
+
+&ochki();
+
+print "\n";
+while(<>){
+ s/\\Z(\d+)\./\\TEZA{$ochki[$1-1]}/g;
+ s/\\T+?\s*(\d+)\./\\SSYLKA{$ochki[$1-1]}/sg;
+ s/\\ZZ(\d+)\((\d+)\)\./\\STEZA{$ochki[$1-1]}{$ochki[$2-1]}/g;
+ print;
+}
+
+# fill array to links
+sub ochki {
+$B0 = $B1 = $nom = "";
+@ochki = ();
+ for ($x = 0; $x < 26; $x++) {
+ for ($y = 0; $y < 26; $y++) {
+ $B0 = chr($y + 65);
+ $B1 = chr($x + 65);
+ $nom = "$B1$B0";
+ @ochki = (@ochki, $nom)
+ }
+ }
+}
+# \ No newline at end of file