Document xapian-compact --blocksize takes an argument
[xapian.git] / xapian-core / languages / collate-sbl
blob01e4c5e195676d750a16c321f9dd029fc0797cf4
1 #!/usr/bin/perl
2 use strict;
3 use warnings;
4 my $copyright = <<'EOF';
5 /* Copyright (C) 2007,2012,2013,2015 Olly Betts
7 * This program is free software; you can redistribute it and/or
8 * modify it under the terms of the GNU General Public License as
9 * published by the Free Software Foundation; either version 2 of the
10 * License, or (at your option) any later version.
12 * This program is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 * GNU General Public License for more details.
17 * You should have received a copy of the GNU General Public License
18 * along with this program; if not, write to the Free Software
19 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
21 EOF
23 use Tokeniseise;
25 my $srcdir = shift @ARGV;
27 my $hdr = Tokeniseise->new('languages/sbl-dispatch.h', 'Map string to language code', $copyright, 'XAPIAN_INCLUDED_SBL_DISPATCH_H', 'sbl_code');
28 $hdr->add('none', 'NONE');
29 my @langs;
30 foreach (sort @ARGV) {
31 m{.*/(.*)\.sbl$} or die "Failed to parse snowball source: $_\n";
32 my $lang = $1;
33 push @langs, $lang;
34 # Include the headers for all the snowball stemmers.
35 $hdr->append("#include \"$lang.h\"");
36 my $enum = uc $lang;
37 $hdr->add($lang, $enum);
38 open SBL, '<', "$srcdir/$_" or die "Open $srcdir/$_ failed: $!\n";
39 my $l = <SBL>;
40 close SBL;
41 $l =~ s/^\W*Alias:\s*//i or die "No Alias: header in $srcdir/$_\n";
42 $l =~ s/\s*$//;
43 for (split /\s+/, $l) {
44 $hdr->add($_, $enum);
48 $hdr->append('');
49 $hdr->append("#define LANGSTRING \"" . join(" ", @langs) . "\"");
51 $hdr->write();