dmd2/impcnvgen.c

   1
   2 // Copyright (c) 1999-2006 by Digital Mars
   3 // All Rights Reserved
   4 // written by Walter Bright
   5 // http://www.digitalmars.com
   6 // License for redistribution is by either the Artistic License
   7 // in artistic.txt, or the GNU General Public License in gnu.txt.
   8 // See the included readme.txt for details.
   9
  10 /* NOTE: This file has been patched from the original DMD distribution to
  11    work with the GDC compiler.
  12
  13    Modified by David Friedman, January 2007
  14 */
  15
  16 #include <stdio.h>
  17 #include <stdlib.h>
  18
  19 #define ENUM_TY_ONLY
  20 #include "mtype.h"
  21
  22 TY impcnvResult[TMAX][TMAX];
  23 TY impcnvType1[TMAX][TMAX];
  24 TY impcnvType2[TMAX][TMAX];
  25 int impcnvWarn[TMAX][TMAX];
  26
  27 int integral_promotion(int t)
  28 {
  29     switch (t)
  30     {
  31         case Tchar:
  32         case Twchar:
  33         //case Tbit:
  34         case Tbool:
  35         case Tint8:
  36         case Tuns8:
  37         case Tint16:
  38         case Tuns16:    return Tint32;
  39         case Tdchar:    return Tuns32;
  40         default:        return t;
  41     }
  42 }
  43
  44 void init()
  45 {   int i, j;
  46
  47     // Set conversion tables
  48     for (i = 0; i < TMAX; i++)
  49         for (j = 0; j < TMAX; j++)
  50         {   impcnvResult[i][j] = Terror;
  51             impcnvType1[i][j] = Terror;
  52             impcnvType2[i][j] = Terror;
  53             impcnvWarn[i][j] = 0;
  54         }
  55
  56 #define X(t1,t2, nt1,nt2, rt)           \
  57         impcnvResult[t1][t2] = rt;      \
  58         impcnvType1[t1][t2] = nt1;      \
  59         impcnvType2[t1][t2] = nt2;
  60
  61     /* ======================= */
  62
  63 #if 0
  64     X(Tbit,Tbit,    Tint32,Tint32,  Tint32)
  65     X(Tbit,Tint8,   Tint32,Tint32,  Tint32)
  66     X(Tbit,Tuns8,   Tint32,Tint32,  Tint32)
  67     X(Tbit,Tint16,  Tint32,Tint32,  Tint32)
  68     X(Tbit,Tuns16,  Tint32,Tint32,  Tint32)
  69     X(Tbit,Tint32,  Tint32,Tint32,  Tint32)
  70     X(Tbit,Tuns32,  Tuns32,Tuns32,  Tuns32)
  71     X(Tbit,Tint64,  Tint64,Tint64,  Tint64)
  72     X(Tbit,Tuns64,  Tuns64,Tuns64,  Tuns64)
  73
  74     X(Tbit,Tfloat32,     Tfloat32,Tfloat32,     Tfloat32)
  75     X(Tbit,Tfloat64,     Tfloat64,Tfloat64,     Tfloat64)
  76     X(Tbit,Tfloat80,     Tfloat80,Tfloat80,     Tfloat80)
  77     X(Tbit,Timaginary32, Tfloat32,Timaginary32, Tfloat32)
  78     X(Tbit,Timaginary64, Tfloat64,Timaginary64, Tfloat64)
  79     X(Tbit,Timaginary80, Tfloat80,Timaginary80, Tfloat80)
  80     X(Tbit,Tcomplex32,   Tfloat32,Tcomplex32,   Tcomplex32)
  81     X(Tbit,Tcomplex64,   Tfloat64,Tcomplex64,   Tcomplex64)
  82     X(Tbit,Tcomplex80,   Tfloat80,Tcomplex80,   Tcomplex80)
  83 #endif
  84
  85     /* ======================= */
  86
  87     X(Tbool,Tbool,   Tbool,Tbool,    Tbool)
  88     X(Tbool,Tint8,   Tint32,Tint32,  Tint32)
  89     X(Tbool,Tuns8,   Tint32,Tint32,  Tint32)
  90     X(Tbool,Tint16,  Tint32,Tint32,  Tint32)
  91     X(Tbool,Tuns16,  Tint32,Tint32,  Tint32)
  92     X(Tbool,Tint32,  Tint32,Tint32,  Tint32)
  93     X(Tbool,Tuns32,  Tuns32,Tuns32,  Tuns32)
  94     X(Tbool,Tint64,  Tint64,Tint64,  Tint64)
  95     X(Tbool,Tuns64,  Tuns64,Tuns64,  Tuns64)
  96
  97     X(Tbool,Tfloat32,     Tfloat32,Tfloat32,     Tfloat32)
  98     X(Tbool,Tfloat64,     Tfloat64,Tfloat64,     Tfloat64)
  99     X(Tbool,Tfloat80,     Tfloat80,Tfloat80,     Tfloat80)
 100     X(Tbool,Timaginary32, Tfloat32,Timaginary32, Tfloat32)
 101     X(Tbool,Timaginary64, Tfloat64,Timaginary64, Tfloat64)
 102     X(Tbool,Timaginary80, Tfloat80,Timaginary80, Tfloat80)
 103     X(Tbool,Tcomplex32,   Tfloat32,Tcomplex32,   Tcomplex32)
 104     X(Tbool,Tcomplex64,   Tfloat64,Tcomplex64,   Tcomplex64)
 105     X(Tbool,Tcomplex80,   Tfloat80,Tcomplex80,   Tcomplex80)
 106
 107     /* ======================= */
 108
 109     X(Tint8,Tint8,   Tint32,Tint32,  Tint32)
 110     X(Tint8,Tuns8,   Tint32,Tint32,  Tint32)
 111     X(Tint8,Tint16,  Tint32,Tint32,  Tint32)
 112     X(Tint8,Tuns16,  Tint32,Tint32,  Tint32)
 113     X(Tint8,Tint32,  Tint32,Tint32,  Tint32)
 114     X(Tint8,Tuns32,  Tuns32,Tuns32,  Tuns32)
 115     X(Tint8,Tint64,  Tint64,Tint64,  Tint64)
 116     X(Tint8,Tuns64,  Tuns64,Tuns64,  Tuns64)
 117
 118     X(Tint8,Tfloat32,     Tfloat32,Tfloat32,     Tfloat32)
 119     X(Tint8,Tfloat64,     Tfloat64,Tfloat64,     Tfloat64)
 120     X(Tint8,Tfloat80,     Tfloat80,Tfloat80,     Tfloat80)
 121     X(Tint8,Timaginary32, Tfloat32,Timaginary32, Tfloat32)
 122     X(Tint8,Timaginary64, Tfloat64,Timaginary64, Tfloat64)
 123     X(Tint8,Timaginary80, Tfloat80,Timaginary80, Tfloat80)
 124     X(Tint8,Tcomplex32,   Tfloat32,Tcomplex32,   Tcomplex32)
 125     X(Tint8,Tcomplex64,   Tfloat64,Tcomplex64,   Tcomplex64)
 126     X(Tint8,Tcomplex80,   Tfloat80,Tcomplex80,   Tcomplex80)
 127
 128     /* ======================= */
 129
 130     X(Tuns8,Tuns8,   Tint32,Tint32,  Tint32)
 131     X(Tuns8,Tint16,  Tint32,Tint32,  Tint32)
 132     X(Tuns8,Tuns16,  Tint32,Tint32,  Tint32)
 133     X(Tuns8,Tint32,  Tint32,Tint32,  Tint32)
 134     X(Tuns8,Tuns32,  Tuns32,Tuns32,  Tuns32)
 135     X(Tuns8,Tint64,  Tint64,Tint64,  Tint64)
 136     X(Tuns8,Tuns64,  Tuns64,Tuns64,  Tuns64)
 137
 138     X(Tuns8,Tfloat32,     Tfloat32,Tfloat32,     Tfloat32)
 139     X(Tuns8,Tfloat64,     Tfloat64,Tfloat64,     Tfloat64)
 140     X(Tuns8,Tfloat80,     Tfloat80,Tfloat80,     Tfloat80)
 141     X(Tuns8,Timaginary32, Tfloat32,Timaginary32, Tfloat32)
 142     X(Tuns8,Timaginary64, Tfloat64,Timaginary64, Tfloat64)
 143     X(Tuns8,Timaginary80, Tfloat80,Timaginary80, Tfloat80)
 144     X(Tuns8,Tcomplex32,   Tfloat32,Tcomplex32,   Tcomplex32)
 145     X(Tuns8,Tcomplex64,   Tfloat64,Tcomplex64,   Tcomplex64)
 146     X(Tuns8,Tcomplex80,   Tfloat80,Tcomplex80,   Tcomplex80)
 147
 148     /* ======================= */
 149
 150     X(Tint16,Tint16,  Tint32,Tint32,  Tint32)
 151     X(Tint16,Tuns16,  Tint32,Tint32,  Tint32)
 152     X(Tint16,Tint32,  Tint32,Tint32,  Tint32)
 153     X(Tint16,Tuns32,  Tuns32,Tuns32,  Tuns32)
 154     X(Tint16,Tint64,  Tint64,Tint64,  Tint64)
 155     X(Tint16,Tuns64,  Tuns64,Tuns64,  Tuns64)
 156
 157     X(Tint16,Tfloat32,     Tfloat32,Tfloat32,     Tfloat32)
 158     X(Tint16,Tfloat64,     Tfloat64,Tfloat64,     Tfloat64)
 159     X(Tint16,Tfloat80,     Tfloat80,Tfloat80,     Tfloat80)
 160     X(Tint16,Timaginary32, Tfloat32,Timaginary32, Tfloat32)
 161     X(Tint16,Timaginary64, Tfloat64,Timaginary64, Tfloat64)
 162     X(Tint16,Timaginary80, Tfloat80,Timaginary80, Tfloat80)
 163     X(Tint16,Tcomplex32,   Tfloat32,Tcomplex32,   Tcomplex32)
 164     X(Tint16,Tcomplex64,   Tfloat64,Tcomplex64,   Tcomplex64)
 165     X(Tint16,Tcomplex80,   Tfloat80,Tcomplex80,   Tcomplex80)
 166
 167     /* ======================= */
 168
 169     X(Tuns16,Tuns16,  Tint32,Tint32,  Tint32)
 170     X(Tuns16,Tint32,  Tint32,Tint32,  Tint32)
 171     X(Tuns16,Tuns32,  Tuns32,Tuns32,  Tuns32)
 172     X(Tuns16,Tint64,  Tint64,Tint64,  Tint64)
 173     X(Tuns16,Tuns64,  Tuns64,Tuns64,  Tuns64)
 174
 175     X(Tuns16,Tfloat32,     Tfloat32,Tfloat32,     Tfloat32)
 176     X(Tuns16,Tfloat64,     Tfloat64,Tfloat64,     Tfloat64)
 177     X(Tuns16,Tfloat80,     Tfloat80,Tfloat80,     Tfloat80)
 178     X(Tuns16,Timaginary32, Tfloat32,Timaginary32, Tfloat32)
 179     X(Tuns16,Timaginary64, Tfloat64,Timaginary64, Tfloat64)
 180     X(Tuns16,Timaginary80, Tfloat80,Timaginary80, Tfloat80)
 181     X(Tuns16,Tcomplex32,   Tfloat32,Tcomplex32,   Tcomplex32)
 182     X(Tuns16,Tcomplex64,   Tfloat64,Tcomplex64,   Tcomplex64)
 183     X(Tuns16,Tcomplex80,   Tfloat80,Tcomplex80,   Tcomplex80)
 184
 185     /* ======================= */
 186
 187     X(Tint32,Tint32,  Tint32,Tint32,  Tint32)
 188     X(Tint32,Tuns32,  Tuns32,Tuns32,  Tuns32)
 189     X(Tint32,Tint64,  Tint64,Tint64,  Tint64)
 190     X(Tint32,Tuns64,  Tuns64,Tuns64,  Tuns64)
 191
 192     X(Tint32,Tfloat32,     Tfloat32,Tfloat32,     Tfloat32)
 193     X(Tint32,Tfloat64,     Tfloat64,Tfloat64,     Tfloat64)
 194     X(Tint32,Tfloat80,     Tfloat80,Tfloat80,     Tfloat80)
 195     X(Tint32,Timaginary32, Tfloat32,Timaginary32, Tfloat32)
 196     X(Tint32,Timaginary64, Tfloat64,Timaginary64, Tfloat64)
 197     X(Tint32,Timaginary80, Tfloat80,Timaginary80, Tfloat80)
 198     X(Tint32,Tcomplex32,   Tfloat32,Tcomplex32,   Tcomplex32)
 199     X(Tint32,Tcomplex64,   Tfloat64,Tcomplex64,   Tcomplex64)
 200     X(Tint32,Tcomplex80,   Tfloat80,Tcomplex80,   Tcomplex80)
 201
 202     /* ======================= */
 203
 204     X(Tuns32,Tuns32,  Tuns32,Tuns32,  Tuns32)
 205     X(Tuns32,Tint64,  Tint64,Tint64,  Tint64)
 206     X(Tuns32,Tuns64,  Tuns64,Tuns64,  Tuns64)
 207
 208     X(Tuns32,Tfloat32,     Tfloat32,Tfloat32,     Tfloat32)
 209     X(Tuns32,Tfloat64,     Tfloat64,Tfloat64,     Tfloat64)
 210     X(Tuns32,Tfloat80,     Tfloat80,Tfloat80,     Tfloat80)
 211     X(Tuns32,Timaginary32, Tfloat32,Timaginary32, Tfloat32)
 212     X(Tuns32,Timaginary64, Tfloat64,Timaginary64, Tfloat64)
 213     X(Tuns32,Timaginary80, Tfloat80,Timaginary80, Tfloat80)
 214     X(Tuns32,Tcomplex32,   Tfloat32,Tcomplex32,   Tcomplex32)
 215     X(Tuns32,Tcomplex64,   Tfloat64,Tcomplex64,   Tcomplex64)
 216     X(Tuns32,Tcomplex80,   Tfloat80,Tcomplex80,   Tcomplex80)
 217
 218     /* ======================= */
 219
 220     X(Tint64,Tint64,  Tint64,Tint64,  Tint64)
 221     X(Tint64,Tuns64,  Tuns64,Tuns64,  Tuns64)
 222
 223     X(Tint64,Tfloat32,     Tfloat32,Tfloat32,     Tfloat32)
 224     X(Tint64,Tfloat64,     Tfloat64,Tfloat64,     Tfloat64)
 225     X(Tint64,Tfloat80,     Tfloat80,Tfloat80,     Tfloat80)
 226     X(Tint64,Timaginary32, Tfloat32,Timaginary32, Tfloat32)
 227     X(Tint64,Timaginary64, Tfloat64,Timaginary64, Tfloat64)
 228     X(Tint64,Timaginary80, Tfloat80,Timaginary80, Tfloat80)
 229     X(Tint64,Tcomplex32,   Tfloat32,Tcomplex32,   Tcomplex32)
 230     X(Tint64,Tcomplex64,   Tfloat64,Tcomplex64,   Tcomplex64)
 231     X(Tint64,Tcomplex80,   Tfloat80,Tcomplex80,   Tcomplex80)
 232
 233     /* ======================= */
 234
 235     X(Tuns64,Tuns64,  Tuns64,Tuns64,  Tuns64)
 236
 237     X(Tuns64,Tfloat32,     Tfloat32,Tfloat32,     Tfloat32)
 238     X(Tuns64,Tfloat64,     Tfloat64,Tfloat64,     Tfloat64)
 239     X(Tuns64,Tfloat80,     Tfloat80,Tfloat80,     Tfloat80)
 240     X(Tuns64,Timaginary32, Tfloat32,Timaginary32, Tfloat32)
 241     X(Tuns64,Timaginary64, Tfloat64,Timaginary64, Tfloat64)
 242     X(Tuns64,Timaginary80, Tfloat80,Timaginary80, Tfloat80)
 243     X(Tuns64,Tcomplex32,   Tfloat32,Tcomplex32,   Tcomplex32)
 244     X(Tuns64,Tcomplex64,   Tfloat64,Tcomplex64,   Tcomplex64)
 245     X(Tuns64,Tcomplex80,   Tfloat80,Tcomplex80,   Tcomplex80)
 246
 247     /* ======================= */
 248
 249     X(Tfloat32,Tfloat32,  Tfloat32,Tfloat32, Tfloat32)
 250     X(Tfloat32,Tfloat64,  Tfloat64,Tfloat64, Tfloat64)
 251     X(Tfloat32,Tfloat80,  Tfloat80,Tfloat80, Tfloat80)
 252
 253     X(Tfloat32,Timaginary32,  Tfloat32,Timaginary32, Tfloat32)
 254     X(Tfloat32,Timaginary64,  Tfloat64,Timaginary64, Tfloat64)
 255     X(Tfloat32,Timaginary80,  Tfloat80,Timaginary80, Tfloat80)
 256
 257     X(Tfloat32,Tcomplex32,  Tfloat32,Tcomplex32, Tcomplex32)
 258     X(Tfloat32,Tcomplex64,  Tfloat64,Tcomplex64, Tcomplex64)
 259     X(Tfloat32,Tcomplex80,  Tfloat80,Tcomplex80, Tcomplex80)
 260
 261     /* ======================= */
 262
 263     X(Tfloat64,Tfloat64,  Tfloat64,Tfloat64, Tfloat64)
 264     X(Tfloat64,Tfloat80,  Tfloat80,Tfloat80, Tfloat80)
 265
 266     X(Tfloat64,Timaginary32,  Tfloat64,Timaginary64, Tfloat64)
 267     X(Tfloat64,Timaginary64,  Tfloat64,Timaginary64, Tfloat64)
 268     X(Tfloat64,Timaginary80,  Tfloat80,Timaginary80, Tfloat80)
 269
 270     X(Tfloat64,Tcomplex32,  Tfloat64,Tcomplex64, Tcomplex64)
 271     X(Tfloat64,Tcomplex64,  Tfloat64,Tcomplex64, Tcomplex64)
 272     X(Tfloat64,Tcomplex80,  Tfloat80,Tcomplex80, Tcomplex80)
 273
 274     /* ======================= */
 275
 276     X(Tfloat80,Tfloat80,  Tfloat80,Tfloat80, Tfloat80)
 277
 278     X(Tfloat80,Timaginary32,  Tfloat80,Timaginary80, Tfloat80)
 279     X(Tfloat80,Timaginary64,  Tfloat80,Timaginary80, Tfloat80)
 280     X(Tfloat80,Timaginary80,  Tfloat80,Timaginary80, Tfloat80)
 281
 282     X(Tfloat80,Tcomplex32,  Tfloat80,Tcomplex80, Tcomplex80)
 283     X(Tfloat80,Tcomplex64,  Tfloat80,Tcomplex80, Tcomplex80)
 284     X(Tfloat80,Tcomplex80,  Tfloat80,Tcomplex80, Tcomplex80)
 285
 286     /* ======================= */
 287
 288     X(Timaginary32,Timaginary32,  Timaginary32,Timaginary32, Timaginary32)
 289     X(Timaginary32,Timaginary64,  Timaginary64,Timaginary64, Timaginary64)
 290     X(Timaginary32,Timaginary80,  Timaginary80,Timaginary80, Timaginary80)
 291
 292     X(Timaginary32,Tcomplex32,  Timaginary32,Tcomplex32, Tcomplex32)
 293     X(Timaginary32,Tcomplex64,  Timaginary64,Tcomplex64, Tcomplex64)
 294     X(Timaginary32,Tcomplex80,  Timaginary80,Tcomplex80, Tcomplex80)
 295
 296     /* ======================= */
 297
 298     X(Timaginary64,Timaginary64,  Timaginary64,Timaginary64, Timaginary64)
 299     X(Timaginary64,Timaginary80,  Timaginary80,Timaginary80, Timaginary80)
 300
 301     X(Timaginary64,Tcomplex32,  Timaginary64,Tcomplex64, Tcomplex64)
 302     X(Timaginary64,Tcomplex64,  Timaginary64,Tcomplex64, Tcomplex64)
 303     X(Timaginary64,Tcomplex80,  Timaginary80,Tcomplex80, Tcomplex80)
 304
 305     /* ======================= */
 306
 307     X(Timaginary80,Timaginary80,  Timaginary80,Timaginary80, Timaginary80)
 308
 309     X(Timaginary80,Tcomplex32,  Timaginary80,Tcomplex80, Tcomplex80)
 310     X(Timaginary80,Tcomplex64,  Timaginary80,Tcomplex80, Tcomplex80)
 311     X(Timaginary80,Tcomplex80,  Timaginary80,Tcomplex80, Tcomplex80)
 312
 313     /* ======================= */
 314
 315     X(Tcomplex32,Tcomplex32,  Tcomplex32,Tcomplex32, Tcomplex32)
 316     X(Tcomplex32,Tcomplex64,  Tcomplex64,Tcomplex64, Tcomplex64)
 317     X(Tcomplex32,Tcomplex80,  Tcomplex80,Tcomplex80, Tcomplex80)
 318
 319     /* ======================= */
 320
 321     X(Tcomplex64,Tcomplex64,  Tcomplex64,Tcomplex64, Tcomplex64)
 322     X(Tcomplex64,Tcomplex80,  Tcomplex80,Tcomplex80, Tcomplex80)
 323
 324     /* ======================= */
 325
 326     X(Tcomplex80,Tcomplex80,  Tcomplex80,Tcomplex80, Tcomplex80)
 327
 328 #undef X
 329
 330 #define Y(t1,t2)        impcnvWarn[t1][t2] = 1;
 331
 332 #if 0
 333     Y(Tint8, Tbit)
 334     Y(Tuns8, Tbit)
 335     Y(Tint16, Tbit)
 336     Y(Tuns16, Tbit)
 337     Y(Tint32, Tbit)
 338     Y(Tuns32, Tbit)
 339     Y(Tint64, Tbit)
 340     Y(Tuns64, Tbit)
 341 #endif
 342
 343     Y(Tuns8, Tint8)
 344     Y(Tint16, Tint8)
 345     Y(Tuns16, Tint8)
 346     Y(Tint32, Tint8)
 347     Y(Tuns32, Tint8)
 348     Y(Tint64, Tint8)
 349     Y(Tuns64, Tint8)
 350
 351     Y(Tint8, Tuns8)
 352     Y(Tint16, Tuns8)
 353     Y(Tuns16, Tuns8)
 354     Y(Tint32, Tuns8)
 355     Y(Tuns32, Tuns8)
 356     Y(Tint64, Tuns8)
 357     Y(Tuns64, Tuns8)
 358
 359     Y(Tuns16, Tint16)
 360     Y(Tint32, Tint16)
 361     Y(Tuns32, Tint16)
 362     Y(Tint64, Tint16)
 363     Y(Tuns64, Tint16)
 364
 365     Y(Tint16, Tuns16)
 366     Y(Tint32, Tuns16)
 367     Y(Tuns32, Tuns16)
 368     Y(Tint64, Tuns16)
 369     Y(Tuns64, Tuns16)
 370
 371 //    Y(Tuns32, Tint32)
 372     Y(Tint64, Tint32)
 373     Y(Tuns64, Tint32)
 374
 375 //    Y(Tint32, Tuns32)
 376     Y(Tint64, Tuns32)
 377     Y(Tuns64, Tuns32)
 378
 379     Y(Tint64, Tuns64)
 380     Y(Tuns64, Tint64)
 381
 382     for (i = 0; i < TMAX; i++)
 383         for (j = 0; j < TMAX; j++)
 384         {
 385             if (impcnvResult[i][j] == Terror)
 386             {
 387                 impcnvResult[i][j] = impcnvResult[j][i];
 388                 impcnvType1[i][j] = impcnvType2[j][i];
 389                 impcnvType2[i][j] = impcnvType1[j][i];
 390             }
 391         }
 392 }
 393
 394 int main()
 395 {   FILE *fp;
 396     int i;
 397     int j;
 398
 399     init();
 400
 401     fp = fopen("impcnvtab.c","w");
 402
 403     fprintf(fp,"// This file is generated by impcnvgen.c\n");
 404     fprintf(fp,"#include \"mtype.h\"\n");
 405
 406     fprintf(fp,"unsigned char Type::impcnvResult[TMAX][TMAX] =\n{\n");
 407     for (i = 0; i < TMAX; i++)
 408     {
 409         for (j = 0; j < TMAX; j++)
 410         {
 411             fprintf(fp, "%d,",impcnvResult[i][j]);
 412         }
 413         fprintf(fp, "\n");
 414     }
 415     fprintf(fp,"};\n");
 416
 417     fprintf(fp,"unsigned char Type::impcnvType1[TMAX][TMAX] =\n{\n");
 418     for (i = 0; i < TMAX; i++)
 419     {
 420         for (j = 0; j < TMAX; j++)
 421         {
 422             fprintf(fp, "%d,",impcnvType1[i][j]);
 423         }
 424         fprintf(fp, "\n");
 425     }
 426     fprintf(fp,"};\n");
 427
 428     fprintf(fp,"unsigned char Type::impcnvType2[TMAX][TMAX] =\n{\n");
 429     for (i = 0; i < TMAX; i++)
 430     {
 431         for (j = 0; j < TMAX; j++)
 432         {
 433             fprintf(fp, "%d,",impcnvType2[i][j]);
 434         }
 435         fprintf(fp, "\n");
 436     }
 437     fprintf(fp,"};\n");
 438
 439     fprintf(fp,"unsigned char Type::impcnvWarn[TMAX][TMAX] =\n{\n");
 440     for (i = 0; i < TMAX; i++)
 441     {
 442         for (j = 0; j < TMAX; j++)
 443         {
 444             fprintf(fp, "%d,",impcnvWarn[i][j]);
 445         }
 446         fprintf(fp, "\n");
 447     }
 448     fprintf(fp,"};\n");
 449
 450     fclose(fp);
 451     return EXIT_SUCCESS;
 452 }