i18npool/source/localedata/genstaticheader.pl

   1 #!/usr/bin/perl -w # -*- tab-width: 4; indent-tabs-mode: nil;
   2
   3 # Version: MPL 1.1 / GPLv3+ / LGPLv3+
   4 #
   5 # The contents of this file are subject to the Mozilla Public License Version
   6 # 1.1 (the "License"); you may not use this file except in compliance with
   7 # the License or as specified alternatively below. You may obtain a copy of
   8 # the License at http://www.mozilla.org/MPL/
   9 #
  10 # Software distributed under the License is distributed on an "AS IS" basis,
  11 # WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
  12 # for the specific language governing rights and limitations under the
  13 # License.
  14 #
  15 # Major Contributor(s):
  16 # Copyright (C) 2012 Tor Lillqvist <tml@iki.fi> (initial developer)
  17 # Copyright (C) 2012 SUSE Linux http://suse.com (initial developer's employer)
  18 #
  19 # All Rights Reserved.
  20 #
  21 # For minor contributions see the git repository.
  22 #
  23 # Alternatively, the contents of this file may be used under the terms of
  24 # either the GNU General Public License Version 3 or later (the "GPLv3+"), or
  25 # the GNU Lesser General Public License Version 3 or later (the "LGPLv3+"),
  26 # in which case the provisions of the GPLv3+ or the LGPLv3+ are applicable
  27
  28 my @FUNCS = qw(
  29     getAllCalendars
  30     getAllCurrencies
  31     getAllFormats0
  32     getBreakIteratorRules
  33     getCollationOptions
  34     getCollatorImplementation
  35     getContinuousNumberingLevels
  36     getDateAcceptancePatterns
  37     getFollowPageWords
  38     getForbiddenCharacters
  39     getIndexAlgorithm
  40     getLCInfo
  41     getLocaleItem
  42     getOutlineNumberingLevels
  43     getReservedWords
  44     getSearchOptions
  45     getTransliterations
  46     getUnicodeScripts
  47     getAllFormats1
  48     );
  49
  50 print 'extern "C" {
  51
  52 ';
  53
  54 foreach my $lang (@ARGV) {
  55     foreach my $func (@FUNCS) {
  56         if ($func eq 'getAllFormats1') {
  57             if ($lang eq 'en_US') {
  58                 printf("void %s_%s();\n", $func, $lang);
  59             }
  60         } else {
  61             printf("void %s_%s();\n", $func, $lang);
  62         }
  63     }
  64 }
  65
  66 print '
  67 static const struct {
  68     const char *pLocale;
  69 ';
  70 foreach my $func (@FUNCS) {
  71     printf("    void  (*%s)();\n", $func);
  72 }
  73 print '} aLibTable[] = {
  74 ';
  75
  76 foreach my $lang (@ARGV) {
  77     printf("    {\n");
  78     printf("        \"%s\",\n", $lang);
  79     foreach my $func (@FUNCS) {
  80         if ($func eq 'getAllFormats1') {
  81             if ($lang eq 'en_US') {
  82                 printf("        %s_%s,\n", $func, $lang);
  83             } else {
  84                 printf("        0,\n");
  85             }
  86         } else {
  87             printf("        %s_%s,\n", $func, $lang);
  88         }
  89     }
  90     printf("    }%s\n", ($lang ne $ARGV[$#ARGV]) ? ',' : '');
  91 }
  92
  93 print '};
  94
  95 }
  96 ';
  97
  98 # vim:set shiftwidth=4 softtabstop=4 expandtab: