From e528943fca18b18597df6d64f985dc9992442d8d Mon Sep 17 00:00:00 2001
From: unknown <bar@bar.mysql.r18.ru>
Date: Wed, 29 Jan 2003 17:56:18 +0400
Subject: conf_to_src.c:  Getting closer

strings/conf_to_src.c:
  Getting closer
---
 strings/conf_to_src.c | 234 ++++++++++++++++++++------------------------------
 1 file changed, 91 insertions(+), 143 deletions(-)

diff --git a/strings/conf_to_src.c b/strings/conf_to_src.c
index 32ab2985376..7f85becfe87 100644
--- a/strings/conf_to_src.c
+++ b/strings/conf_to_src.c
@@ -14,8 +14,6 @@
    along with this program; if not, write to the Free Software
    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA */
 
-/* can't use -lmysys because this prog is used to create -lstrings */
-
 #include <ctype.h>
 #include <stdio.h>
 #include <stdlib.h>
@@ -32,93 +30,27 @@
 #define TO_LOWER_TABLE_SIZE   256
 #define TO_UPPER_TABLE_SIZE   256
 #define SORT_ORDER_TABLE_SIZE 256
-#define ROW_LEN 16
 
-char *prog;
-char buf[1024], *p, *endptr;
+#define MAX_BUF	16*1024
+
+static CHARSET_INFO all_charsets[256];
 
 
 void
-print_array(FILE *f, const char *set, const char *name, int n)
+print_array(FILE *f, const char *set, const char *name, uchar *a, int n)
 {
   int i;
-  char val[100];
-
-  printf("uchar %s_%s[] = {\n", name, set);
 
-  p = buf;
-  *buf = '\0';
-  for (i = 0; i < n; ++i)
+  fprintf(f,"uchar %s_%s[] = {\n", name, set);
+  
+  for (i=0 ;i<n ; i++)
   {
-    /* get a word from f */
-    endptr = p;
-    for (;;)
-    {
-      while (isspace((* (unsigned char*) endptr)))
-        ++endptr;
-      if (*endptr && *endptr != '#')    /* not comment */
-        break;
-      if ((fgets(buf, sizeof(buf), f)) == NULL)
-        return;         /* XXX: break silently */
-      endptr = buf;
-    }
-
-    p = val;
-    while (!isspace((* (unsigned char*) endptr)))
-      *p++ = *endptr++;
-    *p = '\0';
-    p = endptr;
-
-    /* write the value out */
-
-    if (i == 0 || i % ROW_LEN == n % ROW_LEN)
-      printf("  ");
-
-    printf("%3d", (unsigned char) strtol(val, (char **) NULL, 16));
-
-    if (i < n - 1)
-      printf(",");
-
-    if ((i+1) % ROW_LEN == n % ROW_LEN)
-      printf("\n");
-  }
-
-  printf("};\n\n");
-}
-
-void
-print_arrays_for(char *set)
-{
-  FILE *f;
-
-  sprintf(buf, "%s.conf", set);
-
-  if ((f = fopen(buf, "r")) == NULL) {
-    fprintf(stderr, "%s: can't read conf file for charset %s\n", prog, set);
-    exit(EXIT_FAILURE);
+    fprintf(f,"0x%02X%s%s",a[i], (i+1<n) ? "," :"", i % 16 ? "" : "\n");
   }
-
-  printf("\
-/* The %s character set.  Generated automatically by\n\
- * the %s program\n\
- */\n\n",
-	 set, prog);
-
-  /* it would be nice if this used the code in mysys/charset.c, but... */
-  print_array(f, set, "ctype",      CTYPE_TABLE_SIZE);
-  print_array(f, set, "to_lower",   TO_LOWER_TABLE_SIZE);
-  print_array(f, set, "to_upper",   TO_UPPER_TABLE_SIZE);
-  print_array(f, set, "sort_order", SORT_ORDER_TABLE_SIZE);
-  printf("\n");
-
-  fclose(f);
-
-  return;
+  fprintf(f,"};\n\n");
 }
 
-#define MAX_BUF	16*1024
 
-static CHARSET_INFO all_charsets[256];
 
 static int get_charset_number(const char *charset_name)
 {
@@ -207,7 +139,7 @@ static int my_read_charset_file(const char *filename)
   
   if ((fd=open(filename,O_RDONLY)) < 0)
   {
-    printf("Can't open '%s'\n",filename);
+    fprintf(stderr,"Can't open '%s'\n",filename);
     return 1;
   }
   
@@ -227,69 +159,69 @@ static int my_read_charset_file(const char *filename)
   return FALSE;
 }
 
-void dispcset(CHARSET_INFO *cs)
+void dispcset(FILE *f,CHARSET_INFO *cs)
 {
-  printf("{\n");
-  printf("  %d,\n",cs->number);
-  printf("  MY_CS_COMPILED,\n");
+  fprintf(f,"{\n");
+  fprintf(f,"  %d,\n",cs->number);
+  fprintf(f,"  MY_CS_COMPILED,\n");
   
   if (cs->name)
   {
-    printf("  \"%s\",\n",cs->name);
-    printf("  \"%s\",\n",cs->csname);
-    printf("  \"\",\n");
-    printf("  ctype_%s,\n",cs->name);
-    printf("  to_lower_%s,\n",cs->name);
-    printf("  to_upper_%s,\n",cs->name);
-    printf("  sort_order_%s,\n",cs->name);
-    printf("  to_uni_%s,\n",cs->name);
-    printf("  from_uni_%s,\n",cs->name);
+    fprintf(f,"  \"%s\",\n",cs->name);
+    fprintf(f,"  \"%s\",\n",cs->csname);
+    fprintf(f,"  \"\",\n");
+    fprintf(f,"  ctype_%s,\n",cs->name);
+    fprintf(f,"  to_lower_%s,\n",cs->name);
+    fprintf(f,"  to_upper_%s,\n",cs->name);
+    fprintf(f,"  sort_order_%s,\n",cs->name);
+    fprintf(f,"  to_uni_%s,\n",cs->name);
+    fprintf(f,"  from_uni_%s,\n",cs->name);
   }
   else
   {
-    printf("  NULL,\n");
-    printf("  NULL,\n");
-    printf("  NULL,\n");
-    printf("  NULL,\n");
-    printf("  NULL,\n");
-    printf("  NULL,\n");
-    printf("  NULL,\n");
-    printf("  NULL,\n");
-    printf("  NULL,\n");
+    fprintf(f,"  NULL,\n");
+    fprintf(f,"  NULL,\n");
+    fprintf(f,"  NULL,\n");
+    fprintf(f,"  NULL,\n");
+    fprintf(f,"  NULL,\n");
+    fprintf(f,"  NULL,\n");
+    fprintf(f,"  NULL,\n");
+    fprintf(f,"  NULL,\n");
+    fprintf(f,"  NULL,\n");
   }
   
-  printf("  %d,\n",cs->strxfrm_multiply);
-  printf("  my_strnncoll_simple,\n");
-  printf("  my_strnxfrm_simple,\n");
-  printf("  my_like_range_simple,\n");
-  printf("  my_wild_cmp_8bit,\n");
-  printf("  %d,\n",cs->mbmaxlen);
-  printf("  NULL,\n");
-  printf("  NULL,\n");
-  printf("  NULL,\n");
-  printf("  my_mb_wc_8bit,\n");
-  printf("  my_wc_mb_8bit,\n");
-  printf("  my_caseup_str_8bit,\n");
-  printf("  my_casedn_str_8bit,\n");
-  printf("  my_caseup_8bit,\n");
-  printf("  my_casedn_8bit,\n");
-  printf("  my_tosort_8bit,\n");
-  printf("  my_strcasecmp_8bit,\n");
-  printf("  my_strncasecmp_8bit,\n");
-  printf("  my_hash_caseup_simple,\n");
-  printf("  my_hash_sort_simple,\n");
-  printf("  0,\n");
-  printf("  my_snprintf_8bit,\n");
-  printf("  my_long10_to_str_8bit,\n");
-  printf("  my_longlong10_to_str_8bit,\n");
-  printf("  my_fill_8bit,\n");
-  printf("  my_strntol_8bit,\n");
-  printf("  my_strntoul_8bit,\n");
-  printf("  my_strntoll_8bit,\n");
-  printf("  my_strntoull_8bit,\n");
-  printf("  my_strntod_8bit,\n");
-  printf("  my_scan_8bit\n");
-  printf("}\n");
+  fprintf(f,"  %d,\n",cs->strxfrm_multiply);
+  fprintf(f,"  my_strnncoll_simple,\n");
+  fprintf(f,"  my_strnxfrm_simple,\n");
+  fprintf(f,"  my_like_range_simple,\n");
+  fprintf(f,"  my_wild_cmp_8bit,\n");
+  fprintf(f,"  %d,\n",cs->mbmaxlen);
+  fprintf(f,"  NULL,\n");
+  fprintf(f,"  NULL,\n");
+  fprintf(f,"  NULL,\n");
+  fprintf(f,"  my_mb_wc_8bit,\n");
+  fprintf(f,"  my_wc_mb_8bit,\n");
+  fprintf(f,"  my_caseup_str_8bit,\n");
+  fprintf(f,"  my_casedn_str_8bit,\n");
+  fprintf(f,"  my_caseup_8bit,\n");
+  fprintf(f,"  my_casedn_8bit,\n");
+  fprintf(f,"  my_tosort_8bit,\n");
+  fprintf(f,"  my_strcasecmp_8bit,\n");
+  fprintf(f,"  my_strncasecmp_8bit,\n");
+  fprintf(f,"  my_hash_caseup_simple,\n");
+  fprintf(f,"  my_hash_sort_simple,\n");
+  fprintf(f,"  0,\n");
+  fprintf(f,"  my_snprintf_8bit,\n");
+  fprintf(f,"  my_long10_to_str_8bit,\n");
+  fprintf(f,"  my_longlong10_to_str_8bit,\n");
+  fprintf(f,"  my_fill_8bit,\n");
+  fprintf(f,"  my_strntol_8bit,\n");
+  fprintf(f,"  my_strntoul_8bit,\n");
+  fprintf(f,"  my_strntoll_8bit,\n");
+  fprintf(f,"  my_strntoull_8bit,\n");
+  fprintf(f,"  my_strntod_8bit,\n");
+  fprintf(f,"  my_scan_8bit\n");
+  fprintf(f,"}\n");
 }
 
 
@@ -299,6 +231,7 @@ main(int argc, char **argv  __attribute__((unused)))
   CHARSET_INFO  ncs;
   CHARSET_INFO  *cs;
   char filename[256];
+  FILE *f= stdout;
   
   if (argc < 2)
   {
@@ -312,7 +245,6 @@ main(int argc, char **argv  __attribute__((unused)))
   sprintf(filename,"%s/%s",argv[1],"Index.xml");
   my_read_charset_file(filename);
   
-  printf("CHARSET_INFO compiled_charsets[] = {\n");
   for (cs=all_charsets; cs < all_charsets+256; cs++)
   {
     if (cs->number)
@@ -322,19 +254,35 @@ main(int argc, char **argv  __attribute__((unused)))
         sprintf(filename,"%s/%s.xml",argv[1],cs->csname);
         my_read_charset_file(filename);
       }
-      
-      if (simple_cs_is_full)
-      {
-        printf("#ifdef HAVE_CHARSET_%s\n",cs->csname);
-        dispcset(cs);
-        printf(",\n");
-        printf("#endif\n");
-      }
     }
   }
   
-  dispcset(&ncs);
-  printf("};\n");
+  for (cs=all_charsets; cs < all_charsets+256; cs++)
+  {
+    if (simple_cs_is_full(cs))
+    {
+      print_array(f, cs->name, "ctype",      cs->ctype,      CTYPE_TABLE_SIZE);
+      print_array(f, cs->name, "to_lower",   cs->to_lower,   TO_LOWER_TABLE_SIZE);
+      print_array(f, cs->name, "to_upper",   cs->to_upper,   TO_UPPER_TABLE_SIZE);
+      print_array(f, cs->name, "sort_order", cs->sort_order, SORT_ORDER_TABLE_SIZE);
+      fprintf(f,"\n");
+    }
+  }
+  
+  fprintf(f,"CHARSET_INFO compiled_charsets[] = {\n");
+  for (cs=all_charsets; cs < all_charsets+256; cs++)
+  {
+    if (simple_cs_is_full(cs))
+    {
+      fprintf(f,"#ifdef HAVE_CHARSET_%s\n",cs->csname);
+      dispcset(f,cs);
+      fprintf(f,",\n");
+      fprintf(f,"#endif\n");
+    }
+  }
+  
+  dispcset(f,&ncs);
+  fprintf(f,"};\n");
   
   return 0;
 }
-- 
cgit v1.2.1