i18npool/source/textconversion/genconv_dict.cxx

   1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
   2 /*
   3  * This file is part of the LibreOffice project.
   4  *
   5  * This Source Code Form is subject to the terms of the Mozilla Public
   6  * License, v. 2.0. If a copy of the MPL was not distributed with this
   7  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
   8  *
   9  * This file incorporates work covered by the following license notice:
  10  *
  11  *   Licensed to the Apache Software Foundation (ASF) under one or more
  12  *   contributor license agreements. See the NOTICE file distributed
  13  *   with this work for additional information regarding copyright
  14  *   ownership. The ASF licenses this file to you under the Apache
  15  *   License, Version 2.0 (the "License"); you may not use this file
  16  *   except in compliance with the License. You may obtain a copy of
  17  *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  18  */
  19
  20
  21 #include <stdio.h>
  22 #include <string.h>
  23 #include <stdlib.h>
  24 #include <errno.h>
  25 #include <sal/main.h>
  26 #include <sal/types.h>
  27 #include <rtl/strbuf.hxx>
  28 #include <rtl/ustring.hxx>
  29
  30 #include <vector>
  31
  32 void make_hhc_char(FILE *sfp, FILE *cfp);
  33 void make_stc_char(FILE *sfp, FILE *cfp);
  34 void make_stc_word(FILE *sfp, FILE *cfp);
  35
  36 /* Main Procedure */
  37
  38 SAL_IMPLEMENT_MAIN_WITH_ARGS(argc, argv)
  39 {
  40     FILE *sfp, *cfp;
  41
  42     if (argc < 4) exit(-1);
  43
  44
  45     sfp = fopen(argv[2], "rb"); // open the source file for read;
  46     if (sfp == nullptr)
  47     {
  48         fprintf(stderr, "Opening the dictionary source file %s for reading failed: %s\n", argv[1], strerror(errno));
  49         exit(1);
  50     }
  51
  52     // create the C source file to write
  53     cfp = fopen(argv[3], "wb");
  54     if (cfp == nullptr) {
  55         fclose(sfp);
  56         fprintf(stderr, "Opening %s for writing failed: %s\n", argv[3], strerror(errno));
  57         exit(1);
  58     }
  59
  60     fprintf(cfp, "/*\n");
  61     fprintf(cfp, " * Copyright(c) 1999 - 2000, Sun Microsystems, Inc.\n");
  62     fprintf(cfp, " * All Rights Reserved.\n");
  63     fprintf(cfp, " */\n\n");
  64     fprintf(cfp, "/* !!!The file is generated automatically. DONOT edit the file manually!!! */\n\n");
  65     fprintf(cfp, "#include <sal/types.h>\n");
  66     fprintf(cfp, "#include <textconversion.hxx>\n");
  67     fprintf(cfp, "\nextern \"C\" {\n");
  68
  69     if (strcmp(argv[1], "hhc_char") == 0)
  70         make_hhc_char(sfp, cfp);
  71     else if (strcmp(argv[1], "stc_char") == 0)
  72         make_stc_char(sfp, cfp);
  73     else if (strcmp(argv[1], "stc_word") == 0)
  74         make_stc_word(sfp, cfp);
  75
  76     fprintf (cfp, "}\n");
  77
  78     fclose(sfp);
  79     fclose(cfp);
  80
  81     return 0;
  82 } // end of main
  83
  84 // Hangul/Hanja character conversion
  85 void make_hhc_char(FILE *sfp, FILE *cfp)
  86 {
  87     sal_Int32 count, address, i, j, k;
  88     sal_Unicode Hanja2HangulData[0x10000];
  89     for (i = 0; i < 0x10000; i++) {
  90         Hanja2HangulData[i] = 0;
  91     }
  92     sal_uInt16 Hangul2HanjaData[10000][3];
  93
  94     // generate main dict. data array
  95     fprintf(cfp, "\nstatic const sal_Unicode Hangul2HanjaData[] = {");
  96
  97     sal_Char Cstr[1024];
  98     count = 0;
  99     address = 0;
 100     while (fgets(Cstr, 1024, sfp)) {
 101         // input file is in UTF-8 encoding (Hangul:Hanja)
 102         // don't convert last new line character to Ostr.
 103         OUString Ostr(Cstr, strlen(Cstr) - 1, RTL_TEXTENCODING_UTF8);
 104         const sal_Unicode *Ustr = Ostr.getStr();
 105         sal_Int32  len = Ostr.getLength();
 106
 107         Hangul2HanjaData[count][0] = Ustr[0];
 108         Hangul2HanjaData[count][1] = sal::static_int_cast<sal_uInt16>( address );
 109         Hangul2HanjaData[count][2] = sal::static_int_cast<sal_uInt16>( len - 2 );
 110         count++;
 111
 112         for (i = 2; i < len; i++) {
 113             Hanja2HangulData[Ustr[i]] = Ustr[0];
 114             if (address++ % 16 == 0)
 115                 fprintf(cfp, "\n\t");
 116             fprintf(cfp, "0x%04x, ", Ustr[i]);
 117         }
 118     }
 119     fprintf(cfp, "\n};\n");
 120
 121     fprintf(cfp, "\nstatic const com::sun::star::i18n::Hangul_Index Hangul2HanjaIndex[] = {\n");
 122     for (i = 0; i < count; i++)
 123         fprintf(cfp, "\t{ 0x%04x, 0x%04x, 0x%02x },\n",
 124                         Hangul2HanjaData[i][0],
 125                         Hangul2HanjaData[i][1],
 126                         Hangul2HanjaData[i][2]);
 127     fprintf(cfp, "};\n");
 128
 129     fprintf(cfp, "\nstatic const sal_uInt16 Hanja2HangulIndex[] = {");
 130
 131     address=0;
 132     for (i = 0; i < 0x10; i++) {
 133         fprintf(cfp, "\n\t");
 134         for (j = 0; j < 0x10; j++) {
 135             for (k = 0; k < 0x100; k++) {
 136                 if (Hanja2HangulData[((i*0x10)+j)*0x100+k] != 0)
 137                     break;
 138             }
 139             fprintf(
 140                 cfp, "0x%04lx, ",
 141                 sal::static_int_cast< unsigned long >(
 142                     k < 0x100 ? (address++)*0x100 : 0xFFFF));
 143         }
 144     }
 145     fprintf(cfp, "\n};\n");
 146
 147     fprintf(cfp, "\nstatic const sal_Unicode Hanja2HangulData[] = {");
 148
 149     for (i = 0; i < 0x100; i++) {
 150         for (j = 0; j < 0x100; j++) {
 151             if (Hanja2HangulData[i*0x100+j] != 0)
 152                 break;
 153         }
 154         if (j < 0x100) {
 155             for (j = 0; j < 0x10; j++) {
 156                 fprintf(cfp, "\n\t");
 157                 for (k = 0; k < 0x10; k++) {
 158                     sal_Unicode c = Hanja2HangulData[((i*0x10+j)*0x10)+k];
 159                     fprintf(cfp, "0x%04x, ", c ? c : 0xFFFF);
 160                 }
 161             }
 162         }
 163     }
 164     fprintf(cfp, "\n};\n");
 165
 166     // create function to return arrays
 167     fprintf (cfp, "\tconst sal_Unicode* getHangul2HanjaData() { return Hangul2HanjaData; }\n");
 168     fprintf (cfp, "\tconst com::sun::star::i18n::Hangul_Index* getHangul2HanjaIndex() { return Hangul2HanjaIndex; }\n");
 169     fprintf (cfp, "\tsal_Int16 getHangul2HanjaIndexCount() { return sizeof(Hangul2HanjaIndex) / sizeof(com::sun::star::i18n::Hangul_Index); }\n");
 170     fprintf (cfp, "\tconst sal_uInt16* getHanja2HangulIndex() { return Hanja2HangulIndex; }\n");
 171     fprintf (cfp, "\tconst sal_Unicode* getHanja2HangulData() { return Hanja2HangulData; }\n");
 172 }
 173
 174 // Simplified/Traditional Chinese character conversion
 175 void make_stc_char(FILE *sfp, FILE *cfp)
 176 {
 177     sal_Int32 address, i, j, k;
 178     sal_Unicode SChinese2TChineseData[0x10000];
 179     sal_Unicode SChinese2VChineseData[0x10000];
 180     sal_Unicode TChinese2SChineseData[0x10000];
 181     for (i = 0; i < 0x10000; i++) {
 182         SChinese2TChineseData[i] = 0;
 183         SChinese2VChineseData[i] = 0;
 184         TChinese2SChineseData[i] = 0;
 185     }
 186
 187     sal_Char Cstr[1024];
 188     while (fgets(Cstr, 1024, sfp)) {
 189         // input file is in UTF-8 encoding (SChinese:TChinese)
 190         // don't convert last new line character to Ostr.
 191         OUString Ostr(Cstr, strlen(Cstr) - 1, RTL_TEXTENCODING_UTF8);
 192         const sal_Unicode *Ustr = Ostr.getStr();
 193         sal_Int32  len = Ostr.getLength();
 194         if (Ustr[1] == 'v')
 195             SChinese2VChineseData[Ustr[0]] = Ustr[2];
 196         else {
 197             SChinese2TChineseData[Ustr[0]] = Ustr[2];
 198             if (SChinese2VChineseData[Ustr[0]] == 0)
 199                 SChinese2VChineseData[Ustr[0]] = Ustr[2];
 200         }
 201         for (i = 2; i < len; i++)
 202             TChinese2SChineseData[Ustr[i]] = Ustr[0];
 203     }
 204
 205     fprintf(cfp, "\nstatic const sal_uInt16 STC_CharIndex_S2T[] = {");
 206
 207     address=0;
 208     for (i = 0; i < 0x10; i++) {
 209         fprintf(cfp, "\n\t");
 210         for (j = 0; j < 0x10; j++) {
 211             for (k = 0; k < 0x100; k++) {
 212                 if (SChinese2TChineseData[((i*0x10)+j)*0x100+k] != 0)
 213                     break;
 214             }
 215             fprintf(
 216                 cfp, "0x%04lx, ",
 217                 sal::static_int_cast< unsigned long >(
 218                     k < 0x100 ? (address++)*0x100 : 0xFFFF));
 219         }
 220     }
 221     fprintf(cfp, "\n};\n");
 222
 223     fprintf(cfp, "\nstatic const sal_Unicode STC_CharData_S2T[] = {");
 224
 225     for (i = 0; i < 0x100; i++) {
 226         for (j = 0; j < 0x100; j++) {
 227             if (SChinese2TChineseData[i*0x100+j] != 0)
 228                 break;
 229         }
 230         if (j < 0x100) {
 231             for (j = 0; j < 0x10; j++) {
 232                 fprintf(cfp, "\n\t");
 233                 for (k = 0; k < 0x10; k++) {
 234                     sal_Unicode c = SChinese2TChineseData[((i*0x10+j)*0x10)+k];
 235                     fprintf(cfp, "0x%04x, ", c ? c : 0xFFFF);
 236                 }
 237             }
 238         }
 239     }
 240     fprintf(cfp, "\n};\n");
 241
 242     fprintf(cfp, "\nstatic const sal_uInt16 STC_CharIndex_S2V[] = {");
 243
 244     address=0;
 245     for (i = 0; i < 0x10; i++) {
 246         fprintf(cfp, "\n\t");
 247         for (j = 0; j < 0x10; j++) {
 248             for (k = 0; k < 0x100; k++) {
 249                 if (SChinese2VChineseData[((i*0x10)+j)*0x100+k] != 0)
 250                     break;
 251             }
 252             fprintf(
 253                 cfp, "0x%04lx, ",
 254                 sal::static_int_cast< unsigned long >(
 255                     k < 0x100 ? (address++)*0x100 : 0xFFFF));
 256         }
 257     }
 258     fprintf(cfp, "\n};\n");
 259
 260     fprintf(cfp, "\nstatic const sal_Unicode STC_CharData_S2V[] = {");
 261
 262     for (i = 0; i < 0x100; i++) {
 263         for (j = 0; j < 0x100; j++) {
 264             if (SChinese2VChineseData[i*0x100+j] != 0)
 265                 break;
 266         }
 267         if (j < 0x100) {
 268             for (j = 0; j < 0x10; j++) {
 269                 fprintf(cfp, "\n\t");
 270                 for (k = 0; k < 0x10; k++) {
 271                     sal_Unicode c = SChinese2VChineseData[((i*0x10+j)*0x10)+k];
 272                     fprintf(cfp, "0x%04x, ", c ? c : 0xFFFF);
 273                 }
 274             }
 275         }
 276     }
 277     fprintf(cfp, "\n};\n");
 278
 279     fprintf(cfp, "\nstatic const sal_uInt16 STC_CharIndex_T2S[] = {");
 280
 281     address=0;
 282     for (i = 0; i < 0x10; i++) {
 283         fprintf(cfp, "\n\t");
 284         for (j = 0; j < 0x10; j++) {
 285             for (k = 0; k < 0x100; k++) {
 286                 if (TChinese2SChineseData[((i*0x10)+j)*0x100+k] != 0)
 287                     break;
 288             }
 289             fprintf(
 290                 cfp, "0x%04lx, ",
 291                 sal::static_int_cast< unsigned long >(
 292                     k < 0x100 ? (address++)*0x100 : 0xFFFF));
 293         }
 294     }
 295     fprintf(cfp, "\n};\n");
 296
 297     fprintf(cfp, "\nstatic const sal_Unicode STC_CharData_T2S[] = {");
 298
 299     for (i = 0; i < 0x100; i++) {
 300         for (j = 0; j < 0x100; j++) {
 301             if (TChinese2SChineseData[i*0x100+j] != 0)
 302                 break;
 303         }
 304         if (j < 0x100) {
 305             for (j = 0; j < 0x10; j++) {
 306                 fprintf(cfp, "\n\t");
 307                 for (k = 0; k < 0x10; k++) {
 308                     sal_Unicode c = TChinese2SChineseData[((i*0x10+j)*0x10)+k];
 309                     fprintf(cfp, "0x%04x, ", c ? c : 0xFFFF);
 310                 }
 311             }
 312         }
 313     }
 314     fprintf(cfp, "\n};\n");
 315
 316     // create function to return arrays
 317     fprintf (cfp, "\tconst sal_uInt16* getSTC_CharIndex_S2T() { return STC_CharIndex_S2T; }\n");
 318     fprintf (cfp, "\tconst sal_Unicode* getSTC_CharData_S2T() { return STC_CharData_S2T; }\n");
 319     fprintf (cfp, "\tconst sal_uInt16* getSTC_CharIndex_S2V() { return STC_CharIndex_S2V; }\n");
 320     fprintf (cfp, "\tconst sal_Unicode* getSTC_CharData_S2V() { return STC_CharData_S2V; }\n");
 321     fprintf (cfp, "\tconst sal_uInt16* getSTC_CharIndex_T2S() { return STC_CharIndex_T2S; }\n");
 322     fprintf (cfp, "\tconst sal_Unicode* getSTC_CharData_T2S() { return STC_CharData_T2S; }\n");
 323 }
 324
 325
 326 typedef struct {
 327     sal_uInt16 address;
 328     sal_Int32 len;
 329     sal_Unicode *data;
 330 } Index;
 331
 332 extern "C" {
 333 int Index_comp(const void* s1, const void* s2)
 334 {
 335     Index const *p1 = static_cast<Index const *>(s1), *p2 = static_cast<Index const *>(s2);
 336     int result = p1->len - p2->len;
 337     for (int i = 0; result == 0 && i < p1->len; i++)
 338         result = *(p1->data+i) - *(p2->data+i);
 339     return result;
 340 }
 341 }
 342
 343 // Simplified/Traditional Chinese word conversion
 344 void make_stc_word(FILE *sfp, FILE *cfp)
 345 {
 346     sal_Int32 count, i, length;
 347     sal_Unicode STC_WordData[0x10000];
 348     std::vector<Index> STC_WordEntry_S2T(0x10000);
 349     std::vector<Index> STC_WordEntry_T2S(0x10000);
 350     sal_Int32 count_S2T = 0, count_T2S = 0;
 351     sal_Int32 line = 0, char_total = 0;
 352     sal_Char Cstr[1024];
 353
 354     while (fgets(Cstr, 1024, sfp)) {
 355         // input file is in UTF-8 encoding (SChinese:TChinese)
 356         // don't convert last new line character to Ostr.
 357         OUString Ostr(Cstr, strlen(Cstr) - 1, RTL_TEXTENCODING_UTF8);
 358         sal_Int32  len = Ostr.getLength();
 359         if (char_total + len + 1 > 0xFFFF) {
 360             fprintf(stderr, "Word Dictionary stc_word.dic is too big (line %ld)", sal::static_int_cast< long >(line));
 361             return;
 362         }
 363         sal_Int32 sep=-1, eq=-1, gt=-1, lt=-1;
 364         if (((sep = eq = Ostr.indexOf('=')) > 0) ||
 365             ((sep = gt = Ostr.indexOf('>')) > 0) ||
 366             ((sep = lt = Ostr.indexOf('<')) > 0)) {
 367
 368             if (eq > 0 || gt > 0) {
 369                 STC_WordEntry_S2T[count_S2T].address = sal::static_int_cast<sal_uInt16>( char_total );
 370                 STC_WordEntry_S2T[count_S2T].len = sep;
 371                 STC_WordEntry_S2T[count_S2T++].data = &STC_WordData[char_total];
 372             }
 373             if (eq > 0 || lt > 0) {
 374                 STC_WordEntry_T2S[count_T2S].address = sal::static_int_cast<sal_uInt16>( char_total + sep + 1 );
 375                 STC_WordEntry_T2S[count_T2S].len = len - sep - 1;
 376                 STC_WordEntry_T2S[count_T2S++].data = &STC_WordData[char_total + sep + 1];
 377             }
 378             for (i = 0; i < len; i++)
 379                 STC_WordData[char_total++] = (i == sep) ? 0 : Ostr[i];
 380             STC_WordData[char_total++] = 0;
 381         } else {
 382             fprintf(stderr, "Invalid entry in stc_word.dic (line %ld)", sal::static_int_cast< long >(line));
 383             return;
 384         }
 385         line++;
 386     }
 387
 388     if (char_total > 0) {
 389         fprintf(cfp, "\nstatic const sal_Unicode STC_WordData[] = {");
 390         for (i = 0; i < char_total; i++) {
 391             if (i % 32 == 0) fprintf(cfp, "\n\t");
 392             fprintf(cfp, "0x%04x, ", STC_WordData[i]);
 393         }
 394         fprintf(cfp, "\n};\n");
 395
 396         fprintf(cfp, "\nstatic sal_Int32 STC_WordData_Count = %ld;\n", sal::static_int_cast< long >(char_total));
 397
 398         // create function to return arrays
 399         fprintf (cfp, "\tconst sal_Unicode* getSTC_WordData(sal_Int32& count) { count = STC_WordData_Count; return STC_WordData; }\n");
 400     } else {
 401         fprintf (cfp, "\tconst sal_Unicode* getSTC_WordData(sal_Int32& count) { count = 0; return NULL; }\n");
 402     }
 403
 404     sal_uInt16 STC_WordIndex[0x100];
 405
 406     if (count_S2T > 0) {
 407         qsort(&STC_WordEntry_S2T[0], count_S2T, sizeof(Index), Index_comp);
 408
 409         fprintf(cfp, "\nstatic const sal_uInt16 STC_WordEntry_S2T[] = {");
 410         count = 0;
 411         length = 0;
 412         for (i = 0; i < count_S2T; i++) {
 413             if (i % 32 == 0) fprintf(cfp, "\n\t");
 414             fprintf(cfp, "0x%04x, ", STC_WordEntry_S2T[i].address);
 415             if (STC_WordEntry_S2T[i].len != length) {
 416                 length = STC_WordEntry_S2T[i].len;
 417                 while (count <= length)
 418                     STC_WordIndex[count++] = sal::static_int_cast<sal_uInt16>(i);
 419             }
 420         }
 421         fprintf(cfp, "\n};\n");
 422         STC_WordIndex[count++] = sal::static_int_cast<sal_uInt16>(i);
 423
 424         fprintf(cfp, "\nstatic const sal_uInt16 STC_WordIndex_S2T[] = {");
 425         for (i = 0; i < count; i++) {
 426             if (i % 16 == 0) fprintf(cfp, "\n\t");
 427             fprintf(cfp, "0x%04x, ", STC_WordIndex[i]);
 428         }
 429         fprintf(cfp, "\n};\n");
 430
 431         fprintf(cfp, "\nstatic sal_Int32 STC_WordIndex_S2T_Count = %ld;\n", sal::static_int_cast< long >(length));
 432         fprintf (cfp, "\tconst sal_uInt16* getSTC_WordEntry_S2T() { return STC_WordEntry_S2T; }\n");
 433         fprintf (cfp, "\tconst sal_uInt16* getSTC_WordIndex_S2T(sal_Int32& count) { count = STC_WordIndex_S2T_Count; return STC_WordIndex_S2T; }\n");
 434     } else {
 435         fprintf (cfp, "\tconst sal_uInt16* getSTC_WordEntry_S2T() { return NULL; }\n");
 436         fprintf (cfp, "\tconst sal_uInt16* getSTC_WordIndex_S2T(sal_Int32& count) { count = 0; return NULL; }\n");
 437     }
 438
 439     if (count_T2S > 0) {
 440         qsort(&STC_WordEntry_T2S[0], count_T2S, sizeof(Index), Index_comp);
 441
 442         fprintf(cfp, "\nstatic const sal_uInt16 STC_WordEntry_T2S[] = {");
 443         count = 0;
 444         length = 0;
 445         for (i = 0; i < count_T2S; i++) {
 446             if (i % 32 == 0) fprintf(cfp, "\n\t");
 447             fprintf(cfp, "0x%04x, ", STC_WordEntry_T2S[i].address);
 448             if (STC_WordEntry_T2S[i].len != length) {
 449                 length = STC_WordEntry_T2S[i].len;
 450                 while (count <= length)
 451                     STC_WordIndex[count++] = sal::static_int_cast<sal_uInt16>(i);
 452             }
 453         }
 454         STC_WordIndex[count++] = sal::static_int_cast<sal_uInt16>(i);
 455         fprintf(cfp, "\n};\n");
 456
 457         fprintf(cfp, "\nstatic const sal_uInt16 STC_WordIndex_T2S[] = {");
 458         for (i = 0; i < count; i++) {
 459             if (i % 16 == 0) fprintf(cfp, "\n\t");
 460             fprintf(cfp, "0x%04x, ",  STC_WordIndex[i]);
 461         }
 462         fprintf(cfp, "\n};\n");
 463
 464         fprintf(cfp, "\nstatic sal_Int32 STC_WordIndex_T2S_Count = %ld;\n\n", sal::static_int_cast< long >(length));
 465         fprintf (cfp, "\tconst sal_uInt16* getSTC_WordEntry_T2S() { return STC_WordEntry_T2S; }\n");
 466         fprintf (cfp, "\tconst sal_uInt16* getSTC_WordIndex_T2S(sal_Int32& count) { count = STC_WordIndex_T2S_Count; return STC_WordIndex_T2S; }\n");
 467     } else {
 468         fprintf (cfp, "\tconst sal_uInt16* getSTC_WordEntry_T2S() { return NULL; }\n");
 469         fprintf (cfp, "\tconst sal_uInt16* getSTC_WordIndex_T2S(sal_Int32& count) { count = 0; return NULL; }\n");
 470     }
 471 }
 472
 473 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */