mirror of https://github.com/postgres/postgres
This is in preparation for building postgres with meson / ninja. We already have duplicated code for this between the make and msvc builds. Adding a third copy seems like a bad plan, thus move the generation into a perl script. As we don't want to rely on perl being available for builds from tarballs, generate the file during distprep. Author: Peter Eisentraut <peter@eisentraut.org> Author: Andres Freund <andres@anarazel.de> Discussion: https://postgr.es/m/5e216522-ba3c-f0e6-7f97-5276d0270029@enterprisedb.compull/94/head
Andres Freund
3 years ago
parent
db0a272d12
commit
b3a0d8324c
@ -0,0 +1,148 @@ |
||||
#!/usr/bin/perl |
||||
|
||||
use strict; |
||||
use warnings; |
||||
use Getopt::Long; |
||||
|
||||
my $outdir_path = ''; |
||||
my $makefile_path = ''; |
||||
my $input_path = ''; |
||||
my $depfile; |
||||
|
||||
our @languages = qw( |
||||
arabic |
||||
armenian |
||||
basque |
||||
catalan |
||||
danish |
||||
dutch |
||||
english |
||||
finnish |
||||
french |
||||
german |
||||
greek |
||||
hindi |
||||
hungarian |
||||
indonesian |
||||
irish |
||||
italian |
||||
lithuanian |
||||
nepali |
||||
norwegian |
||||
portuguese |
||||
romanian |
||||
russian |
||||
serbian |
||||
spanish |
||||
swedish |
||||
tamil |
||||
turkish |
||||
yiddish |
||||
); |
||||
|
||||
# Names of alternative dictionaries for all-ASCII words. If not |
||||
# listed, the language itself is used. Note order dependency: Use of |
||||
# some other language as ASCII dictionary must come after creation of |
||||
# that language, so the "backup" language must be listed earlier in |
||||
# @languages. |
||||
|
||||
our %ascii_languages = ( |
||||
'hindi' => 'english', |
||||
'russian' => 'english', |
||||
); |
||||
|
||||
GetOptions( |
||||
'depfile' => \$depfile, |
||||
'outdir:s' => \$outdir_path, |
||||
'input:s' => \$input_path) || usage(); |
||||
|
||||
# Make sure input_path ends in a slash if needed. |
||||
if ($input_path ne '' && substr($input_path, -1) ne '/') |
||||
{ |
||||
$outdir_path .= '/'; |
||||
} |
||||
|
||||
# Make sure outdir_path ends in a slash if needed. |
||||
if ($outdir_path ne '' && substr($outdir_path, -1) ne '/') |
||||
{ |
||||
$outdir_path .= '/'; |
||||
} |
||||
|
||||
GenerateTsearchFiles(); |
||||
|
||||
sub usage |
||||
{ |
||||
die <<EOM; |
||||
Usage: snowball_create.pl --input/-i <path> --outdir/-o <path> |
||||
--depfile Write dependency file |
||||
--outdir Output directory (default '.') |
||||
--input Input directory |
||||
|
||||
snowball_create.pl creates snowball.sql from snowball.sql.in |
||||
EOM |
||||
} |
||||
|
||||
sub GenerateTsearchFiles |
||||
{ |
||||
my $target = shift; |
||||
my $outdir_file = "$outdir_path/snowball_create.sql"; |
||||
|
||||
my $F; |
||||
my $D; |
||||
my $tmpl = read_file("$input_path/snowball.sql.in"); |
||||
|
||||
if ($depfile) |
||||
{ |
||||
open($D, '>', "$outdir_path/snowball_create.dep") |
||||
|| die "Could not write snowball_create.dep"; |
||||
} |
||||
|
||||
print $D "$outdir_file: $input_path/snowball.sql.in\n" if $depfile; |
||||
print $D "$outdir_file: $input_path/snowball_func.sql.in\n" if $depfile; |
||||
|
||||
open($F, '>', $outdir_file) |
||||
|| die "Could not write snowball_create.sql"; |
||||
|
||||
print $F "-- Language-specific snowball dictionaries\n"; |
||||
|
||||
print $F read_file("$input_path/snowball_func.sql.in"); |
||||
|
||||
foreach my $lang (@languages) |
||||
{ |
||||
my $asclang = $ascii_languages{$lang} || $lang; |
||||
my $txt = $tmpl; |
||||
my $stop = ''; |
||||
my $stopword_path = "$input_path/stopwords/$lang.stop"; |
||||
|
||||
if (-s "$stopword_path") |
||||
{ |
||||
$stop = ", StopWords=$lang"; |
||||
|
||||
print $D "$outdir_file: $stopword_path\n" if $depfile; |
||||
} |
||||
|
||||
$txt =~ s#_LANGNAME_#${lang}#gs; |
||||
$txt =~ s#_DICTNAME_#${lang}_stem#gs; |
||||
$txt =~ s#_CFGNAME_#${lang}#gs; |
||||
$txt =~ s#_ASCDICTNAME_#${asclang}_stem#gs; |
||||
$txt =~ s#_NONASCDICTNAME_#${lang}_stem#gs; |
||||
$txt =~ s#_STOPWORDS_#$stop#gs; |
||||
print $F $txt; |
||||
} |
||||
close($F); |
||||
close($D) if $depfile; |
||||
return; |
||||
} |
||||
|
||||
|
||||
sub read_file |
||||
{ |
||||
my $filename = shift; |
||||
my $F; |
||||
local $/ = undef; |
||||
open($F, '<', $filename) || die "Could not open file $filename\n"; |
||||
my $txt = <$F>; |
||||
close($F); |
||||
|
||||
return $txt; |
||||
} |
||||
Loading…
Reference in new issue