workbench/demos/font2c.c

   1 /*
   2     (C) 1997-98 AROS - The Amiga Research OS
   3     $Id$
   4
   5     Desc: Convert Amiga font to C code.
   6     Lang: english
   7 */
   8
   9 #include <stdlib.h>
  10 #include <stdio.h>
  11 #include <string.h>
  12 #include <proto/exec.h>
  13 #include <proto/graphics.h>
  14 #include <proto/dos.h>
  15 #include <proto/diskfont.h>
  16 #include <graphics/text.h>
  17 #include <dos/dos.h>
  18 #include <dos/rdargs.h>
  19
  20 #define SDEBUG 1
  21 #define DEBUG 1
  22 #include <aros/debug.h>
  23
  24 struct Library *DiskfontBase;
  25 struct GfxBase *GfxBase;
  26
  27 static VOID font2c(struct TextFont *tf, FILE * fh, STRPTR prestring);
  28
  29 int main (int argc, char **argv)
  30 {
  31     UBYTE fontname[200];
  32     UBYTE outfilename[200];
  33     UBYTE prestring_buf[200], *prestring = NULL;
  34     UWORD ysize = 0;
  35
  36
  37     STRPTR s;
  38     STRPTR args[4] = {NULL, NULL, NULL, NULL};
  39     struct RDArgs *rda;
  40     int error = RETURN_OK;
  41
  42
  43     SDInit(); /* Init debugging */
  44     rda = ReadArgs("NAME,SIZE,OUTFILE,PRESTRING/K", (IPTR *)args, NULL);
  45     if (rda)
  46     {
  47         if (args[0] == NULL || args[1] == NULL || args[2] == NULL)
  48         {
  49             printf("Usage: NAME,SIZE,OUTFILE,PRESTRING/K\n");
  50             error = RETURN_FAIL;
  51         }
  52         else
  53         {
  54             strcpy(fontname, args[0]);
  55             ysize = atoi(args[1]);
  56             strcpy(outfilename, args[2]);
  57             if (args[3])
  58             {
  59                 strcpy(prestring_buf, args[3]);
  60                 strcat(prestring_buf, "_");
  61                 prestring = prestring_buf;
  62             }
  63             else
  64                 prestring = "";
  65
  66         }
  67         FreeArgs(rda);
  68     }
  69     else
  70         error = RETURN_FAIL;
  71
  72     if (error == RETURN_OK)
  73     {
  74         /* Look for .font, append it if it doesn't exist */
  75         if (( s = strrchr(fontname, '.')))
  76         {
  77             if (0 != strcmp(s, ".font"))
  78                 strcat(fontname, ".font");
  79         }
  80         else
  81         {
  82             strcat(fontname, ".font");
  83         }
  84
  85         GfxBase = (struct GfxBase *)OpenLibrary("graphics.library", 37);
  86         if (!GfxBase)
  87         {
  88             printf("Could not open gfx.library v37\n");
  89
  90         }
  91         else
  92         {
  93             DiskfontBase = OpenLibrary("diskfont.library", 37);
  94             if (!DiskfontBase)
  95             {
  96                 printf("Couldn't open diskfont.library v37\n");
  97             }
  98             else
  99             {
 100                 /* Open output file */
 101                 FILE *outfile;
 102                 outfile = fopen(outfilename, "w");
 103                 if (!outfile)
 104                 {
 105                     printf("Could not open outfile \"%s\"", outfilename);
 106                 }
 107                 else
 108                 {
 109                     struct TextFont *tf;
 110                     struct TextAttr ta =
 111                     {
 112                         fontname, ysize, 0, 0
 113                     };
 114
 115                     tf = OpenDiskFont(&ta);
 116                     if (!tf)
 117                     {
 118                         printf("Could not open textfont\n");
 119                     }
 120                     else
 121                     {
 122                         if (tf->tf_Style & FSF_COLORFONT)
 123                         {
 124                             printf("Does not handle color fonts yet\n");
 125                         }
 126                         else
 127                         {
 128                              font2c(tf, outfile, prestring);
 129                         }
 130                         CloseFont(tf);
 131                     }
 132
 133                     fclose(outfile);
 134                 } /* if (outfile opened) */
 135
 136                 CloseLibrary(DiskfontBase);
 137
 138             } /* if (diskfont opened) */
 139
 140            CloseLibrary((struct Library *)GfxBase);
 141
 142         } /* if (gfx opened) */
 143
 144     } /* if (ReadArgs went ok) */
 145
 146     return error;
 147 }
 148
 149
 150 #define NUMCHARS(tf) ((tf->tf_HiChar - tf->tf_LoChar) + 2)
 151
 152 static VOID print_word_array( UWORD *array, ULONG len, FILE *fh);
 153 static VOID print_long_array( ULONG *array, ULONG len, FILE *fh);
 154
 155 static VOID print_chardata_ascii( struct TextFont *tf, FILE *fh);
 156
 157
 158 const STRPTR font_styles[] =
 159 {
 160     "FSF_UNDERLINED",
 161     "FSF_BOLD",
 162     "FSF_ITALIC",
 163     "FSF_EXTENDED",
 164     "FSF_COLORFONT",
 165     "NOFLAG",
 166     "NOFLAG",
 167     "FSF_TAGGED"
 168 };
 169
 170 const STRPTR font_flags[] =
 171 {
 172     "FPF_ROMFONT",
 173     "FPF_DISKFONT",
 174     "FPF_REVPATH",
 175     "FPF_TALLDOT",
 176     "FPF_WIDEDOT",
 177     "FPF_PROPORTIONAL",
 178     "FPF_DESIGNED",
 179     "FPF_REMOVED"
 180 };
 181
 182 static UBYTE print_tf_flags(struct TextFont *tf, FILE *fh, const STRPTR *nametab, UBYTE flags)
 183 {
 184     UWORD i;
 185     BOOL flag_found = FALSE;
 186     UBYTE num_set = 0;
 187
 188     for (i = 0; i < 8; i ++)
 189     {
 190         if (flags & (1L << i))
 191         {
 192             if (flag_found)
 193                 fprintf(fh, " | ");
 194
 195             fprintf(fh, "%s", nametab[i]);
 196             num_set ++;
 197
 198         }
 199     }
 200
 201     return num_set;
 202 }
 203
 204 /*
 205 static VOID UpdateIndent(UBYTE indent, UBYTE *tabs)
 206 {
 207     while (indent --)
 208         *tabs ++ = '\t';
 209     *tabs = 0;
 210 }
 211 */
 212 static VOID font2c(struct TextFont *tf, FILE * fh, STRPTR prestring)
 213 {
 214     ULONG numchars = NUMCHARS(tf);
 215 /*
 216     UBYTE tabs[10];
 217     UBYTE ind = 0;
 218
 219     updateindent(ind, tabs);
 220 */
 221     fprintf(fh, "#include <graphics/text.h>\n");
 222
 223     fprintf(fh, "\n\n\n");
 224     print_chardata_ascii(tf, fh);
 225
 226     fprintf(fh, "\n\n\n");
 227
 228     if ((tf->tf_Style & FSF_COLORFONT) == 0)
 229     {
 230         fprintf(fh, "const UWORD %schardata[] =\n", prestring);
 231         print_word_array((UWORD *)tf->tf_CharData, (tf->tf_YSize * tf->tf_Modulo) / 2, fh);
 232         /*  We divide by two since we want number of *words*, not bytes */
 233     }
 234
 235     if (tf->tf_CharLoc)
 236     {
 237         fprintf(fh, "\n\n\n");
 238         fprintf(fh, "const ULONG %scharloc[] =\n", prestring);
 239         print_long_array((ULONG *)tf->tf_CharLoc, numchars , fh);
 240     }
 241
 242     if (tf->tf_CharKern)
 243     {
 244         fprintf(fh, "\n\n\n");
 245         fprintf(fh, "const UWORD %scharkern[] =\n", prestring);
 246         print_word_array((UWORD *)tf->tf_CharKern, numchars, fh);
 247
 248     }
 249
 250
 251     if (tf->tf_CharSpace)
 252     {
 253         fprintf(fh, "\n\n\n");
 254         fprintf(fh, "const WORD %scharspace[] =\n", prestring);
 255         print_word_array((UWORD *)tf->tf_CharKern, numchars, fh);
 256     }
 257
 258
 259    /*------------------------------------- */
 260
 261     fprintf(fh, "\n\n\n");
 262
 263     fprintf(fh, "const struct TextFont %stf =\n", prestring);
 264
 265     fprintf(fh, "{\n");
 266
 267     fprintf(fh, "\t{\t/* tf_Message */\n");
 268     fprintf(fh, "\t\t{\t/* mn_Node */\n");
 269
 270     fprintf(fh, "\t\t\tNULL,\n");       /* ln_Succ */
 271     fprintf(fh, "\t\t\tNULL,\n");       /* ln_Pred */
 272
 273 /* See <exec/nodes.h> */
 274 #if (AROS_FLAVOUR & AROS_FLAVOUR_BINCOMPAT)
 275     fprintf(fh, "\t\t\t%d,\n", tf->tf_Message.mn_Node.ln_Type); /* ln_Type */
 276     fprintf(fh, "\t\t\t0,\n");  /* ln_Pri */
 277     fprintf(fh, "\t\t\t\"%s\"\n", tf->tf_Message.mn_Node.ln_Name);
 278 #else
 279     fprintf(fh, "\t\t\t\"%s\",\n", tf->tf_Message.mn_Node.ln_Name);
 280     fprintf(fh, "\t\t\t%d,\n", tf->tf_Message.mn_Node.ln_Type); /* ln_Type */
 281     fprintf(fh, "\t\t\t0\n");   /* ln_Pri */
 282 #endif
 283     fprintf(fh, "\t\t},\n");
 284     fprintf(fh, "\t\tNULL,\n"); /* mn_ReplyPort */
 285     fprintf(fh, "\t\t0\n");     /* mn_Length    */
 286     fprintf(fh, "\t},\n");
 287
 288     fprintf(fh, "\t%d,\t/* YSize */\n", tf->tf_YSize);
 289
 290     fprintf(fh, "\t");
 291     if (!print_tf_flags(tf, fh, font_styles, tf->tf_Style))
 292         fprintf(fh, "FS_NORMAL");
 293
 294     fprintf(fh, ",\t/* Style */\n");
 295
 296     fprintf(fh, "\t");
 297     print_tf_flags(tf, fh, font_flags, tf->tf_Flags);
 298
 299     fprintf(fh, ",\t/* Flags */\n");
 300
 301     fprintf(fh, "\t%d,\t/* XSize */\n",                 tf->tf_XSize);
 302     fprintf(fh, "\t%d,\t/* Baseline */\n",              tf->tf_Baseline);
 303     fprintf(fh, "\t%d,\t/* Boldsmear */\n",             tf->tf_BoldSmear);
 304     fprintf(fh, "\t%d,\t/* Accessors */\n",             tf->tf_Accessors);
 305     fprintf(fh, "\t%d,\t/* LoChar */\n",                tf->tf_LoChar);
 306     fprintf(fh, "\t%d,\t/* HiChar */\n",                tf->tf_HiChar);
 307
 308     fprintf(fh, "\t(APTR)%schardata,\t/* CharData */\n", prestring);
 309
 310     fprintf(fh, "\t%d,\t/* Modulo */\n",                tf->tf_Modulo);
 311
 312     if (tf->tf_CharLoc)
 313         fprintf(fh, "\t(APTR)%scharloc,\t/* CharLoc   */\n", prestring);
 314     else
 315         fprintf(fh, "\tNULL,\t/* CharLoc   */\n");
 316
 317     if (tf->tf_CharSpace)
 318         fprintf(fh, "\t(APTR)%scharspace,\t/* CharSpace */\n", prestring);
 319     else
 320         fprintf(fh, "\tNULL,\t/* CharSpace */\n");
 321
 322     if (tf->tf_CharKern)
 323         fprintf(fh, "\t(APTR)%scharkern,\t/* CharKern  */\n", prestring);
 324     else
 325         fprintf(fh, "\tNULL\t/* CharKern  */\n");
 326
 327
 328     fprintf(fh, "};\n");
 329
 330     return;
 331
 332 }
 333
 334 static VOID print_word_array(UWORD *array, ULONG len, FILE *fh)
 335 {
 336     ULONG i;
 337     fprintf(fh, "{");
 338
 339     for (i = 0; i < len - 1; i ++) /* len - 1 because last item needs ',' removed */
 340     {
 341
 342         if ((i & 0x07) == 0)
 343             fprintf(fh, "\n\t");
 344
 345         fprintf(fh,"0x%.4x, ", *array ++);
 346
 347     }
 348     /* print last entry without ',' at the end */
 349
 350     if ((i & 0x07) == 0)
 351         fprintf(fh, "\n\t");
 352
 353     fprintf(fh, "0x%.4x\n", *array);
 354     fprintf(fh, "};");
 355
 356     return;
 357
 358 }
 359 static VOID print_long_array(ULONG *array, ULONG len, FILE *fh)
 360 {
 361     ULONG i;
 362
 363     fprintf(fh, "{");
 364
 365     for (i = 0; i < len - 1; i ++) /* numchars - 1 because last item needs ',' removed */
 366     {
 367
 368         if ((i & 0x03) == 0)
 369             fprintf(fh, "\n\t");
 370
 371         fprintf(fh,"0x%.8lx, ", *array ++);
 372
 373     }
 374     /* print last entry without ',' at the end */
 375
 376     if ((i & 0x03) == 0)
 377         fprintf(fh, "\n\t");
 378
 379     fprintf(fh, "0x%.8lx\n", *array);
 380     fprintf(fh, "};");
 381
 382     return;
 383 }
 384
 385
 386 static VOID print_chardata_ascii(struct TextFont *tf, FILE *fh)
 387 {
 388     UWORD i, numchars = NUMCHARS(tf);
 389     UBYTE *charptr;
 390
 391     for (i = 0; i < numchars; i ++ )
 392     {
 393         UWORD row;
 394         UWORD charspace;
 395         UWORD charkern;
 396         ULONG charloc;
 397         UWORD bitno, width;
 398
 399         /* Warning: Should these be used for something? */
 400         (void)charkern;
 401         (void)charspace;
 402
 403         charptr = tf->tf_CharData;
 404
 405         /* tf_CharLoc is *allways* non-NULL */
 406         charloc = ((ULONG *)tf->tf_CharLoc)[i];
 407
 408         for (row = 0; row < tf->tf_YSize; row ++)
 409         {
 410             fprintf(fh, "/* ");
 411
 412             bitno = charloc >> 16;
 413             width = charloc & 0xFFFF;
 414             /* Extract data for this glyph */
 415
 416             while (width --)
 417             {
 418
 419                 if ( charptr[bitno >> 3] & (1 << ((~bitno) & 0x07)) )
 420                 {
 421                     fprintf(fh, "@");
 422                 }
 423                 else
 424                 {
 425                     fprintf(fh, ".");
 426                 }
 427                 bitno ++;
 428             }
 429
 430             /* Go to next row in glyph */
 431             charptr += tf->tf_Modulo;
 432
 433             fprintf(fh, " */\n");
 434
 435         }  /* for (each row in the glyph) */
 436
 437     } /* for (each glyph) */
 438     return;
 439 }