glib/glib-mirroring-tab/gen-mirroring-tab.c

   1 /* gen-mirroring-tab.c - generate gmirroringtable.h for glib
   2  * copied from FriBidi.
   3  *
   4  * $Id$
   5  * $Author$
   6  * $Date$
   7  * $Revision$
   8  * $Source$
   9  *
  10  * Author:
  11  *   Behdad Esfahbod, 2001, 2002, 2004
  12  *
  13  * Copyright (C) 2004 Sharif FarsiWeb, Inc
  14  * Copyright (C) 2001,2002,2004 Behdad Esfahbod
  15  *
  16  * This library is free software; you can redistribute it and/or
  17  * modify it under the terms of the GNU Lesser General Public
  18  * License as published by the Free Software Foundation; either
  19  * version 2.1 of the License, or (at your option) any later version.
  20  *
  21  * This library is distributed in the hope that it will be useful,
  22  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  23  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  24  * Lesser General Public License for more details.
  25  *
  26  * You should have received a copy of the GNU Lesser General Public License
  27  * along with this library, in a file named COPYING; if not, write to the
  28  * Free Software Foundation, Inc., 59 Temple Place, Suite 330,
  29  * Boston, MA 02111-1307, USA
  30  *
  31  * For licensing issues, contact <license@farsiweb.info>.
  32  */
  33
  34 #include <glib.h>
  35
  36 #include <stdlib.h>
  37 #include <stdio.h>
  38
  39 #include "packtab.h"
  40
  41 #define appname "gen-mirroring-tab"
  42 #define outputname "gmirroringtable.h"
  43
  44 static void
  45 die (
  46   const char *msg
  47 )
  48 {
  49   fprintf (stderr, appname ": %s\n", msg);
  50   exit (1);
  51 }
  52
  53 static void
  54 die2 (
  55   const char *fmt,
  56   const char *p
  57 )
  58 {
  59   fprintf (stderr, appname ": ");
  60   fprintf (stderr, fmt, p);
  61   fprintf (stderr, "\n");
  62   exit (1);
  63 }
  64
  65 static void
  66 die4 (
  67   const char *fmt,
  68   unsigned long l,
  69   unsigned long p,
  70   unsigned long q
  71 )
  72 {
  73   fprintf (stderr, appname ": ");
  74   fprintf (stderr, fmt, l, p, q);
  75   fprintf (stderr, "\n");
  76   exit (1);
  77 }
  78
  79 #define table_name "Mir"
  80 #define macro_name "GLIB_GET_MIRRORING"
  81
  82 #define UNICODE_CHARS 0x110000
  83
  84 static signed int table[UNICODE_CHARS];
  85 static char buf[4000];
  86 static signed long max_dist;
  87
  88 static void
  89 init (
  90   void
  91 )
  92 {
  93   max_dist = 0;
  94 }
  95
  96 static void
  97 clear_tab (
  98   void
  99 )
 100 {
 101   register gunichar c;
 102
 103   for (c = 0; c < UNICODE_CHARS; c++)
 104     table[c] = 0;
 105 }
 106
 107 static void
 108 init_tab_mirroring_txt (
 109   void
 110 )
 111 {
 112   clear_tab ();
 113 }
 114
 115 static void
 116 read_bidi_mirroring_txt (
 117   FILE *f
 118 )
 119 {
 120   unsigned long l;
 121
 122   init_tab_mirroring_txt ();
 123
 124   l = 0;
 125   while (fgets (buf, sizeof buf, f))
 126     {
 127       unsigned long i, j;
 128       signed long dist;
 129       int k;
 130       const char *s = buf;
 131
 132       l++;
 133
 134       while (*s == ' ')
 135         s++;
 136
 137       if (s[0] == '#' || s[0] == '\0' || s[0] == '\n')
 138         continue;
 139
 140       k = sscanf (s, "%lx; %lx", &i, &j);
 141       if (k != 2 || i >= UNICODE_CHARS || j >= UNICODE_CHARS)
 142         die4 ("invalid pair in input at line %ld: %04lX, %04lX", l, i, j);
 143       dist = ((signed long) j - (signed long) i);
 144       table[i] = dist;
 145       if (dist > max_dist)
 146         max_dist = dist;
 147       else if (-dist > max_dist)
 148         max_dist = -dist;
 149     }
 150 }
 151
 152 static void
 153 read_data (
 154   const char *data_file_type,
 155   const char *data_file_name
 156 )
 157 {
 158   FILE *f;
 159
 160   fprintf (stderr, "Reading '%s'\n", data_file_name);
 161   if (!(f = fopen (data_file_name, "rt")))
 162     die2 ("error: cannot open '%s' for reading", data_file_name);
 163
 164   if (!strcmp (data_file_type, "BidiMirroring.txt"))
 165     read_bidi_mirroring_txt (f);
 166   else
 167     die2 ("error: unknown data-file-type %s", data_file_type);
 168
 169   fclose (f);
 170 }
 171
 172 static void
 173 gen_mirroring_tab (
 174   int max_depth,
 175   const char *data_file_type
 176 )
 177 {
 178   int key_bytes;
 179   const char *key_type;
 180
 181   fprintf (stderr,
 182            "Generating '" outputname "', it may take up to a few minutes\n");
 183   printf ("/* " outputname "\n * generated by " appname " "
 184           "\n" " * from the file %s of */\n\n", data_file_type);
 185
 186   printf ("#define PACKTAB_UINT8 guint8\n"
 187           "#define PACKTAB_UINT16 guint16\n"
 188           "#define PACKTAB_UINT32 guint32\n\n");
 189
 190   key_bytes = max_dist <= 0x7f ? 1 : max_dist < 0x7fff ? 2 : 4;
 191   key_type = key_bytes == 1 ? "gint8" : key_bytes == 2 ?
 192     "gint16" : "gint32";
 193
 194   if (!pack_table
 195       (table, UNICODE_CHARS, key_bytes, 0, max_depth, 1, NULL,
 196        key_type, table_name, macro_name "_DELTA", stdout))
 197     die ("error: insufficient memory, decrease max_depth");
 198
 199   printf ("#undef PACKTAB_UINT8\n"
 200           "#undef PACKTAB_UINT16\n" "#undef PACKTAB_UINT32\n\n");
 201
 202   printf ("#define " macro_name "(x) ((x) + " macro_name "_DELTA(x))\n\n");
 203
 204   printf ("/* End of generated " outputname " */\n");
 205 }
 206
 207 int
 208 main (
 209   int argc,
 210   const char **argv
 211 )
 212 {
 213   const char *data_file_type = "BidiMirroring.txt";
 214
 215   if (argc < 3)
 216     die2 ("usage:\n  " appname " max-lookups /path/to/%s [junk...]",
 217           data_file_type);
 218
 219   {
 220     int max_depth = atoi (argv[1]);
 221     const char *data_file_name = argv[2];
 222
 223     if (max_depth < 2)
 224       die ("invalid depth");
 225
 226     init ();
 227     read_data (data_file_type, data_file_name);
 228     gen_mirroring_tab (max_depth, data_file_type);
 229   }
 230
 231   return 0;
 232 }