source: trunk/gcc/libjava/gnu/gcj/convert/gen-from-JIS.c

/* Copyright (C) 1999  Free Software Foundation

   This file is part of libgcj.

This software is copyrighted work licensed under the terms of the
Libgcj License.  Please consult the file "LIBGCJ_LICENSE" for
details.  */

#include <stdio.h>
struct chval
{
  unsigned char b1;            /* 1st byte */
  unsigned char b2;            /* 2nd byte */
  unsigned short uc;  /* unicode value */
};

#define MAP(B1, B2, C) { B1, B2, C },

struct chval chtab_0201[] = {
#include "JIS0201.h"
  { 255, 255, 0}
};

struct chval chtab_0208[] = {
#include "JIS0208.h"
  { 255, 255, 0}
};

struct chval chtab_0212[] = {
#include "JIS0212.h"
  { 255, 255, 0}
};
#undef MAP

struct chval sorted[] = {
#define MAP(B1, B2, C) { B1, B2, C },
#include "JIS0208.h"
#undef MAP
#define MAP(B1, B2, C) { 0x80|B1, B2, C },
#include "JIS0212.h"
#undef MAP
};

struct chval *chtab;

int
compare (void *p1, void *p2)
{
  struct chval *c1 = (struct chval *) p1;
  struct chval *c2 = (struct chval *) p2;
  return (int) c1->uc - (int) c2->uc;
}

int
main(int argc, char** argv)
{
  FILE *out = stdout;
  int min1 = 256, max1 = 0, min2 = 256, max2 = 0, count = 0;
  int low1_uc = 0xFFFF, high1_uc = 0;
  int low2_uc = 0xFFFF, high2_uc = 0;
  int i;  int row, col;
  if (strcmp (argv[1], "JIS0208") == 0)
    chtab = chtab_0208;
  else if (strcmp (argv[1], "JIS0212") == 0)
    chtab = chtab_0212;
  else if (strcmp (argv[1], "toJIS") == 0)
    {
      int i;
      for (i = 0;  chtab_0201[i].b1 != 255;  i++)
        {
          enter(chtab_0201[i].uc, chtab_0201[i].b2);
        }
      for (i = 0;  i < 0x20;  i++)
        {
          enter (i, i);
        }
      enter (127, 127);
      for (i = 0;  chtab_0208[i].b1 != 255;  i++)
        {
          enter(chtab_0208[i].uc,
                (chtab_0208[i].b1 << 8) | chtab_0208[i].b2);
        }
      for (i = 0;  chtab_0212[i].b1 != 255;  i++)
        {
          enter(chtab_0212[i].uc,
                0x8000 | (chtab_0212[i].b1 << 8) | chtab_0212[i].b2);
        }
      print_table ("Unicode_to_JIS", stdout);
      exit(0);
    }
  else
    {
      fprintf (stderr, "bad argument!");
      exit (-1);
    }
  for (i = 0;  chtab[i].b1 != 255; i++)
    {
      if (chtab[i].b1 < min1) min1 = chtab[i].b1;
      if (chtab[i].b2 < min2) min2 = chtab[i].b2;
      if (chtab[i].b1 > max1) max1 = chtab[i].b1;
      if (chtab[i].b2 > max2) max2 = chtab[i].b2;
      count++;
    }
  fprintf(stderr, "1st byte ranges from %d to %d.\n", min1, max1);
  fprintf(stderr, "2nd byte ranges from %d to %d.\n", min2, max2);

  fprintf(out,"/* This file is automatically generated from %s.TXT. */\n",
          argv[1]);
  fprintf(out,"#pragma GCC java_exceptions\n",
          argv[1]);
  fprintf(out, "unsigned short %s_to_Unicode[%d][%d] = {\n",
          argv[1], max1 - min1 + 1,  max2 - min2 + 1);
  i = 0;
  for (row = min1;  row <= max1;  row++)
    {
      fprintf(out, "/* 1st byte: %d */ { ", row);
      if (row < chtab[i].b1)
        {
          fprintf(out, "0 }, /* unused row */\n");
        }
      else if (row > chtab[i].b1)
        {
          fprintf (stderr, "error - char table out of order!\n");
          exit (-1);
        }
      else
        {
          fprintf(out, "\n");
          for (col = min2;  col <= max2;  col++)
            {
              if (row == chtab[i].b1 && col == chtab[i].b2)
                {
                  int uc = chtab[i].uc;
                  if (uc < 0x2000)
                    {
                      if (uc > high1_uc)
                        high1_uc = uc;
                      if (uc < low1_uc)
                        low1_uc = uc;
                    }
                  else
                    {
                      if (uc > high2_uc)
                        high2_uc = uc;
                      if (uc < low2_uc)
                        low2_uc = uc;
                    }
                  fprintf (out, "  /* 2nd byte: %d */ 0x%04x",
                           chtab[i].b2, uc);
                  i++;
                }
              else if (row < chtab[i].b1
                  || (row == chtab[i].b1 && col < chtab[i].b2))
                {
                  fprintf (out, "  0");
                }
              else
                {
                  fprintf (stderr, "error - char table our of order!\n");
                  exit (-1);
                }
              if (col != max2)
                fprintf (out, ",\n");
            }
          fprintf(out, row == max1 ? "}\n" : "},\n");
        }
    }
  fprintf(out, "};\n");
  fprintf(stderr, "total number of characters is %d.\n", count);
  fprintf(stderr, "Range is 0x%04x-0x%04x and 0x%04x-0x%04x.\n",
          low1_uc, high1_uc, low2_uc, high2_uc);
  return 0;
}