xapian-core/weight/collate-idf-norm

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4 my $copyright = <<'EOF';
   5 /* Copyright (C) 2020 Dipanshu Garg
   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 $hdr = Tokeniseise->new('weight/idf-norm-dispatch.h', 'Map string to idf normalisation code', $copyright, 'XAPIAN_INCLUDED_IDF_NORM_DISPATCH_H', 'idf_norm', 1, 'false');
  26 for my $enum (qw/
  27     NONE
  28     TFIDF
  29     SQUARE
  30     FREQ
  31     PROB
  32     PIVOTED
  33     GLOBAL_FREQ
  34     LOG_GLOBAL_FREQ
  35     INCREMENTED_GLOBAL_FREQ
  36     SQRT_GLOBAL_FREQ /)
  37 {
  38     $hdr->add($enum, "static_cast<unsigned char>(Xapian::TfIdfWeight::idf_norm::$enum)");
  39 }
  40
  41 $hdr->write('false', 'idf_norm_tab');