xapian-core/languages/collate-sbl

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4 my $copyright = <<'EOF';
   5 /* Copyright (C) 2007,2012,2013,2015 Olly Betts
   6  *
   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.
  11  *
  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.
  16  *
  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
  20  */
  21 EOF
  22
  23 use Tokeniseise;
  24
  25 my $srcdir = shift @ARGV;
  26
  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);
  45     }
  46 }
  47
  48 $hdr->append('');
  49 $hdr->append("#define LANGSTRING \"" . join(" ", @langs) . "\"");
  50
  51 $hdr->write();