Reflect the recent renaming of tabfile in scripts

This commit is contained in:
Přemysl Eric Janouch 2023-07-07 12:15:37 +02:00
parent d3cfb12e16
commit f94bb77091
Signed by: p
GPG Key ID: A0420B94F92B9493
4 changed files with 4 additions and 4 deletions

View File

@ -55,7 +55,7 @@ while (my ($id, $synset) = each %synsets) {
# Output synsets exploded to individual words, with expanded relationships # Output synsets exploded to individual words, with expanded relationships
close($doc) or die $?; 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", '--book-name=Czech WordNet 1.9 PDT', "--website=$base/$path",
'--date=2011-01-24', '--collation=cs_CZ') or die $!; '--date=2011-01-24', '--collation=cs_CZ') or die $!;

View File

@ -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 tabesc { shift =~ s/\\/\\\\/gr =~ s/\n/\\n/gr =~ s/\t/\\t/gr }
sub w { sub w {
my ($name, $dict, $collation) = @_; my ($name, $dict, $collation) = @_;
open(my $f, "|-", "tabfile", "--pango", "--collation=$collation", open(my $f, "|-", "tdv-tabfile", "--pango", "--collation=$collation",
"--website=https://gnu.nemeckoceskyslovnik.cz", "--website=https://gnu.nemeckoceskyslovnik.cz",
"gnu-fdl-$name") or die $!; "gnu-fdl-$name") or die $!;
print $f tabesc($keyword) . "\t" . tabesc(join("\n", @$defs)) print $f tabesc($keyword) . "\t" . tabesc(join("\n", @$defs))

View File

@ -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 tabesc { shift =~ s/\\/\\\\/gr =~ s/\n/\\n/gr =~ s/\t/\\t/gr }
sub w { sub w {
my ($name, $dict, $collation) = @_; my ($name, $dict, $collation) = @_;
open(my $f, "|-", "tabfile", "--pango", "--collation=$collation", open(my $f, "|-", "tdv-tabfile", "--pango", "--collation=$collation",
"--website=https://www.svobodneslovniky.cz", "--website=https://www.svobodneslovniky.cz",
"gnu-fdl-$name") or die $!; "gnu-fdl-$name") or die $!;
print $f tabesc($keyword) . "\t" . tabesc(join("\n", @$defs)) print $f tabesc($keyword) . "\t" . tabesc(join("\n", @$defs))

View File

@ -4,7 +4,7 @@
curl -Lo- https://slovnik-cizich-slov.abz.cz/export.php | \ curl -Lo- https://slovnik-cizich-slov.abz.cz/export.php | \
iconv -f latin2 -t UTF-8 | perl -CSD -F\\\| -le ' iconv -f latin2 -t UTF-8 | perl -CSD -F\\\| -le '
print "$_\t" . $F[2] =~ s/\\/\\\\/gr =~ s/; /\\n/gr for split(", ", $F[0]) 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" \ --book-name="Slovník cizích slov" \
--website=https://slovnik-cizich-slov.abz.cz \ --website=https://slovnik-cizich-slov.abz.cz \
--date="$(date +%F)" \ --date="$(date +%F)" \