p/tdv
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Reflect the recent renaming of tabfile in scripts

Browse Source
This commit is contained in:
Přemysl Eric Janouch
2023-07-07 12:15:37 +02:00
parent d3cfb12e16
commit f94bb77091
4 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
dicts/gnu-fdl-en-cz.sh
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 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))