summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/shipunov/scripts
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-10-08 03:00:28 +0000
committerNorbert Preining <norbert@preining.info>2019-10-08 03:00:28 +0000
commite5ffc42ed260285f76383ae18dd0f4a603c07fa8 (patch)
tree7d901aebae17ed14f1c9812c9339a88d68dc74e4 /macros/latex/contrib/shipunov/scripts
parentba86549c94b1e8b6b19bc82b01e85a7e513e7586 (diff)
CTAN sync 201910080300
Diffstat (limited to 'macros/latex/contrib/shipunov/scripts')
-rw-r--r--macros/latex/contrib/shipunov/scripts/abs2rel.pl40
-rw-r--r--macros/latex/contrib/shipunov/scripts/biokey2html.bat (renamed from macros/latex/contrib/shipunov/scripts/shipunov/biokey2html.bat)0
-rw-r--r--macros/latex/contrib/shipunov/scripts/biokey2html.sh (renamed from macros/latex/contrib/shipunov/scripts/shipunov/biokey2html.sh)0
-rw-r--r--macros/latex/contrib/shipunov/scripts/biokey2html1.pl (renamed from macros/latex/contrib/shipunov/scripts/shipunov/biokey2html1.pl)0
-rw-r--r--macros/latex/contrib/shipunov/scripts/biokey2html2.pl (renamed from macros/latex/contrib/shipunov/scripts/shipunov/biokey2html2.pl)0
-rw-r--r--macros/latex/contrib/shipunov/scripts/biokey2html3.pl (renamed from macros/latex/contrib/shipunov/scripts/shipunov/biokey2html3.pl)0
-rw-r--r--macros/latex/contrib/shipunov/scripts/txt2qq.pl58
7 files changed, 98 insertions, 0 deletions
diff --git a/macros/latex/contrib/shipunov/scripts/abs2rel.pl b/macros/latex/contrib/shipunov/scripts/abs2rel.pl
new file mode 100644
index 0000000000..abbbea419a
--- /dev/null
+++ b/macros/latex/contrib/shipunov/scripts/abs2rel.pl
@@ -0,0 +1,40 @@
+#!/usr/bin/perl -w
+
+# Perl script to convert LaTeX / biokey diagnistic keys from absolute to relative (automatic)
+# Usage: perl ./abs2rel.pl input.tex > output.tex
+
+# Anna Shipunova, 2000
+# Updated by Alexey Shipunov, 20150912
+# Updated by Alexey Shipunov 20150919
+
+# NOTE: multiple keys in one document possibly lead to conflicting references
+# Temporary solution: modify $prefix which is specified below.
+
+$/="";
+
+print STDERR "Converts absolute LaTeX biokey to the relative... \n";
+
+&points();
+
+print "\n";
+while(<>){
+ s/\\Z(\d+)\./\\TE{$points[$1-1]}/g;
+ s/\\T+?\s*(\d+)\./\\SS{$points[$1-1]}/sg;
+ s/\\ZZ(\d+)\((\d+)\)\./\\SE{$points[$1-1]}{$points[$2-1]}/g;
+ print;
+}
+
+# refs will be in in form $prefix[A-Z][1-3]
+sub points {
+$prefix="G"; # modify here!
+$B1 = $nom = "";
+@points = ();
+ for ($x = 0; $x < 26; $x++) {
+ for ($z = 1; $z < 9; $z++) {
+ $B1 = chr($x + 65);
+ $nom = "$prefix$B1$z";
+ @points = (@points, $nom)
+ }
+ }
+}
+#
diff --git a/macros/latex/contrib/shipunov/scripts/shipunov/biokey2html.bat b/macros/latex/contrib/shipunov/scripts/biokey2html.bat
index 4953470861..4953470861 100644
--- a/macros/latex/contrib/shipunov/scripts/shipunov/biokey2html.bat
+++ b/macros/latex/contrib/shipunov/scripts/biokey2html.bat
diff --git a/macros/latex/contrib/shipunov/scripts/shipunov/biokey2html.sh b/macros/latex/contrib/shipunov/scripts/biokey2html.sh
index 50ee8a52ab..50ee8a52ab 100644
--- a/macros/latex/contrib/shipunov/scripts/shipunov/biokey2html.sh
+++ b/macros/latex/contrib/shipunov/scripts/biokey2html.sh
diff --git a/macros/latex/contrib/shipunov/scripts/shipunov/biokey2html1.pl b/macros/latex/contrib/shipunov/scripts/biokey2html1.pl
index e7eb44b07d..e7eb44b07d 100644
--- a/macros/latex/contrib/shipunov/scripts/shipunov/biokey2html1.pl
+++ b/macros/latex/contrib/shipunov/scripts/biokey2html1.pl
diff --git a/macros/latex/contrib/shipunov/scripts/shipunov/biokey2html2.pl b/macros/latex/contrib/shipunov/scripts/biokey2html2.pl
index 75801f4430..75801f4430 100644
--- a/macros/latex/contrib/shipunov/scripts/shipunov/biokey2html2.pl
+++ b/macros/latex/contrib/shipunov/scripts/biokey2html2.pl
diff --git a/macros/latex/contrib/shipunov/scripts/shipunov/biokey2html3.pl b/macros/latex/contrib/shipunov/scripts/biokey2html3.pl
index 296daaab6a..296daaab6a 100644
--- a/macros/latex/contrib/shipunov/scripts/shipunov/biokey2html3.pl
+++ b/macros/latex/contrib/shipunov/scripts/biokey2html3.pl
diff --git a/macros/latex/contrib/shipunov/scripts/txt2qq.pl b/macros/latex/contrib/shipunov/scripts/txt2qq.pl
new file mode 100644
index 0000000000..bcdd5a0058
--- /dev/null
+++ b/macros/latex/contrib/shipunov/scripts/txt2qq.pl
@@ -0,0 +1,58 @@
+#!/usr/bin/perl -w
+
+# Author: Alexey Shipunov, dactylorhiza@gmail.com
+# Version 1.01, 20191002
+# Simple text to LaTeX converter, uses 'qqru' package to define "universal" (Russian or English) quotes
+# Usage: perl ./txt2qq.pl input.txt > output.tex
+
+while(<>){
+ s| "| <<|g;
+ s|^"|<<|g;
+ s|\t"|\t<<|g;
+ s|\("|\(<<|g;
+ s|\["|\[<<|g;
+ s|="|=<<|g;
+ s|"|>>|g;
+ s|``|<<|g;
+ s|''|>>|g;
+ s|`|<<|g;
+ s|'([^\w])|>>$1|g;
+ s| - | --- |g;
+ s| ---$| ---|g;
+ s|^--- |--* |g;
+ s|\\|BACKSLASH|g;
+ s|&|\\&|g;
+ s|\{|\\\{|g;
+ s|\}|\\\}|g;
+ s|\$|\\\$|g;
+ s|\#|\\\#|g;
+ s|%|\\%|g;
+ s|BACKSLASH|\$\\backslash\$|g;
+ s@\|@\$\\mid\$@g;
+ s|_(.+?)_|\\textit\{$1\}|g;
+ s|\*(.+?)\*|\\textbf\{$1\}|g;
+ s| +| |g;
+ s|<<|\\<|g;
+ s|>>|\\>|g;
+print;
+}
+
+BEGIN {
+print <<END_OF_BEGIN
+\\documentclass{article}
+% add more oprions here
+\\usepackage[ru]{qqru}
+
+\\begin{document}
+
+END_OF_BEGIN
+}
+
+END{
+print <<END_OF_END
+
+\\end{document}
+END_OF_END
+}
+
+# \ No newline at end of file