diff options
author | Norbert Preining <norbert@preining.info> | 2019-10-08 03:00:28 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-10-08 03:00:28 +0000 |
commit | e5ffc42ed260285f76383ae18dd0f4a603c07fa8 (patch) | |
tree | 7d901aebae17ed14f1c9812c9339a88d68dc74e4 /macros/latex/contrib/shipunov/scripts | |
parent | ba86549c94b1e8b6b19bc82b01e85a7e513e7586 (diff) |
CTAN sync 201910080300
Diffstat (limited to 'macros/latex/contrib/shipunov/scripts')
-rw-r--r-- | macros/latex/contrib/shipunov/scripts/abs2rel.pl | 40 | ||||
-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.pl | 58 |
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 |