From f94bb7709138df14be62198c56071d36aeb685cb Mon Sep 17 00:00:00 2001 From: Přemysl Eric Janouch
Date: Fri, 7 Jul 2023 12:15:37 +0200 Subject: Reflect the recent renaming of tabfile in scripts --- dicts/czech-wordnet.pl | 2 +- dicts/gnu-fdl-de-cz.sh | 2 +- dicts/gnu-fdl-en-cz.sh | 2 +- dicts/slovnik-cizich-slov.sh | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/dicts/czech-wordnet.pl b/dicts/czech-wordnet.pl index 23660e0..130e5d2 100755 --- a/dicts/czech-wordnet.pl +++ b/dicts/czech-wordnet.pl @@ -55,7 +55,7 @@ while (my ($id, $synset) = each %synsets) { # Output synsets exploded to individual words, with expanded relationships close($doc) or die $?; -open(my $tabfile, '|-', 'tabfile', 'czech-wordnet', +open(my $tabfile, '|-', 'tdv-tabfile', 'czech-wordnet', '--book-name=Czech WordNet 1.9 PDT', "--website=$base/$path", '--date=2011-01-24', '--collation=cs_CZ') or die $!; diff --git a/dicts/gnu-fdl-de-cz.sh b/dicts/gnu-fdl-de-cz.sh index 8fab695..ceafea0 100755 --- a/dicts/gnu-fdl-de-cz.sh +++ b/dicts/gnu-fdl-de-cz.sh @@ -9,7 +9,7 @@ grep -v ^# | sed 's/\\//g' | perl -CSD -F\\t -le ' sub tabesc { shift =~ s/\\/\\\\/gr =~ s/\n/\\n/gr =~ s/\t/\\t/gr } sub w { my ($name, $dict, $collation) = @_; - open(my $f, "|-", "tabfile", "--pango", "--collation=$collation", + open(my $f, "|-", "tdv-tabfile", "--pango", "--collation=$collation", "--website=https://gnu.nemeckoceskyslovnik.cz", "gnu-fdl-$name") or die $!; print $f tabesc($keyword) . "\t" . tabesc(join("\n", @$defs)) diff --git a/dicts/gnu-fdl-en-cz.sh b/dicts/gnu-fdl-en-cz.sh index e5a575d..e312552 100755 --- a/dicts/gnu-fdl-en-cz.sh +++ b/dicts/gnu-fdl-en-cz.sh @@ -5,7 +5,7 @@ zcat | grep -v ^# | sed 's/\\//g' | perl -CSD -F\\t -le ' sub tabesc { shift =~ s/\\/\\\\/gr =~ s/\n/\\n/gr =~ s/\t/\\t/gr } sub w { my ($name, $dict, $collation) = @_; - open(my $f, "|-", "tabfile", "--pango", "--collation=$collation", + open(my $f, "|-", "tdv-tabfile", "--pango", "--collation=$collation", "--website=https://www.svobodneslovniky.cz", "gnu-fdl-$name") or die $!; print $f tabesc($keyword) . "\t" . tabesc(join("\n", @$defs)) diff --git a/dicts/slovnik-cizich-slov.sh b/dicts/slovnik-cizich-slov.sh index 343b98f..1fba8e6 100755 --- a/dicts/slovnik-cizich-slov.sh +++ b/dicts/slovnik-cizich-slov.sh @@ -4,7 +4,7 @@ curl -Lo- https://slovnik-cizich-slov.abz.cz/export.php | \ iconv -f latin2 -t UTF-8 | perl -CSD -F\\\| -le ' print "$_\t" . $F[2] =~ s/\\/\\\\/gr =~ s/; /\\n/gr for split(", ", $F[0]) -' | sort -u | tabfile slovnik-cizich-slov \ +' | sort -u | tdv-tabfile slovnik-cizich-slov \ --book-name="Slovník cizích slov" \ --website=https://slovnik-cizich-slov.abz.cz \ --date="$(date +%F)" \ -- cgit v1.2.3-70-g09d2