home *** CD-ROM | disk | FTP | other *** search
/ Amiga Developer CD 2.1 / Amiga Developer CD v2.1.iso / Reference / DevCon / Washington_1988 / DevCon88.1 / AmigaTechniques / dfont2obj.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-08-27  |  13.8 KB  |  461 lines
  1. /****** DFont2Obj ****************************************************
  2. *
  3. *   NAME
  4. *       DFont2Obj - create a load file from a LoadSeg'd diskfont image
  5. *
  6. *   A hack, nothing more
  7. *  Copyright (c) 1988 Commodore-Amiga, Inc.
  8. * 
  9. *  Executables based on this information may be used in software
  10. *  for Commodore Amiga computers.  All other rights reserved.
  11. * 
  12. *  This information is provided "as is"; no warranties are made.
  13. *  All use is at your own risk, and no liability or responsibility is assumed.
  14. *********************************************************************/
  15. #include        "exec/types.h"
  16. #include        "exec/nodes.h"
  17. #include        "exec/lists.h"
  18. #include        "exec/memory.h"
  19. #include        "exec/ports.h"
  20. #include    "graphics/gfxbase.h"
  21. #include    "graphics/text.h"
  22. #include    "graphics/view.h"
  23. #include        "libraries/dos.h"
  24. #include    "libraries/diskfont.h"
  25.  
  26. #include    "stdio.h"
  27.  
  28. #ifdef    MANX
  29. #include    "functions.h"
  30. #endif
  31.  
  32. #define    HUNK_DATA    1002
  33. #define    HUNK_RELOC32    1004
  34. #define    HUNK_END    1010
  35. #define    HUNK_HEADER    1011
  36.  
  37. #ifndef    ColorTextFont
  38. #define    FSB_COLORFONT    6    /* this uses ColorTextFont structure */
  39. #define    FSF_COLORFONT    0x40
  40.  
  41. /******    ColorTextFont node ******************************************/
  42. /*-----    ctf_Flags --------------------------------------------------*/
  43. #define    CT_COLORMASK    0x000F    /* mask to get to following color styles */
  44. #define    CT_COLORFONT    0x0001    /* color map contains designer's colors */
  45. #define    CT_GREYFONT    0x0002    /* color map describes even-stepped */
  46.                 /* brightnesses from low to high */
  47. #define    CTB_MAPCOLOR    0    /* map ctf_FgColor to the rp_FgPen if it's */
  48. #define    CTF_MAPCOLOR    0x0001    /* is a valid color within ctf_Low..ctf_High */
  49.  
  50. /*-----    ColorTextFont ----------------------------------------------*/
  51. struct ColorTextFont {
  52.     struct TextFont ctf_TF;
  53.     UWORD    ctf_Flags;    /* extended flags */
  54.     UBYTE    ctf_Depth;    /* number of bit planes */
  55.     UBYTE    ctf_FgColor;    /* color that is remapped to FgPen */
  56.     UBYTE    ctf_Low;    /* lowest color represented here */
  57.     UBYTE    ctf_High;    /* highest color represented here */
  58.     UBYTE    ctf_PlanePick;    /* PlanePick ala Images */
  59.     UBYTE    ctf_PlaneOnOff;    /* PlaneOnOff ala Images */
  60.     APTR    ctf_ColorMap;    /* struct ColorMap * for font */
  61.     APTR    ctf_CharData[8]; /*pointers to bit planes ala tf_CharData */
  62. };
  63. #endif
  64.  
  65. struct ColorTextFont *FindName();
  66. struct GfxBase *OpenLibrary();
  67.  
  68. ULONG *hunkBase;
  69. FILE *file = 0;
  70.  
  71. ULONG FindRelocate(hunkNum, relocation, absolute)
  72. ULONG *hunkNum, *relocation, *absolute;
  73. {
  74.     ULONG num;
  75.     ULONG *currHunk;
  76.  
  77.     if (*absolute == 0) {
  78.     *hunkNum = *relocation = 0xffffffff;
  79.     return(0);
  80.     }
  81.     /* find offset of this absolute and cache in relocation array */
  82.     *relocation = ((ULONG) absolute) - ((ULONG) &hunkBase[1]);
  83.     /* find hunk and offset in hunk that this absolute points to */
  84.     num = 0;
  85.     currHunk = hunkBase;
  86.     while (currHunk) {
  87.     if ((*absolute >= ((ULONG) &currHunk[1])) &&
  88.         (*absolute < (((ULONG) currHunk) + currHunk[-1]))) {
  89.         *hunkNum = num;
  90.         return(*absolute - ((ULONG) &currHunk[1]));
  91.     }
  92.     num++;
  93.     currHunk = (ULONG *) (*currHunk<<2);
  94.     }
  95.     printf("ERROR: Could not find address 0x%lx in any hunk\n", *absolute);
  96.     fclose(file);
  97.     exit(20);
  98. }
  99.  
  100.  
  101. int GetNum(b)
  102. char *b;
  103. {
  104.     int result, base;
  105.  
  106.     result = 0;
  107.     base = 10;
  108.     while (*b) {
  109.     result *= base;
  110.     if ((*b >= '0') && (*b <= '9')) result += *b - '0';
  111.     else {
  112.         if (((*b >= 'a') && (*b <= 'f')) ||
  113.             ((*b >= 'A') && (*b <= 'F'))) {
  114.         if (base != 16) break;
  115.         result += (*b & 0x1f) + 9;
  116.         }
  117.         else if ((*b != 'x') && (*b != '$')) base = 16;
  118.         else break;
  119.     }
  120.     b++;
  121.     }
  122.     if (*b) {
  123.     printf("ERROR: ill formed number\n");
  124.     return(-1);
  125.     }
  126.     else return(result);
  127. }
  128.  
  129.  
  130. main(argc, argv)
  131. int argc;
  132. char *argv[];
  133. {
  134.     struct GfxBase *GfxBase;
  135.     ULONG temp, temp2;
  136.     ULONG *currHunk;
  137.     struct ColorTextFont *ctf, *ctf2;
  138.     int i, j, k;
  139.  
  140.     /* relocation information about the pointers in hunk 0    */
  141.     /* dfh_DF ln_Name, tf_Message mn_Node ln_Name,        */
  142.     /* tf_CharData, tf_CharLoc, tf_CharSpace, tf_CharKern,    */
  143.     /* ctf_ColorMap, ctf_ColorMap ColorTable, ctf_CharData[8]    */
  144.     ULONG hunkNum[16];        /* hunk number to relocate to */
  145.     ULONG relocation[16];    /* offset in hunk */
  146.  
  147.     GfxBase = (struct GfxBase *) OpenLibrary("graphics.library", 0L);
  148.     if (GfxBase == 0) {
  149.     printf("ERROR: Cannot open \"graphics.library\"\n");
  150.     exit(100);
  151.     }
  152.     if (argc >= 3) {
  153.     file = fopen(argv[1], "w");
  154.     if (file == 0) {
  155.         printf("ERROR: open failed for font file\n");
  156.         argc = 0;
  157.     }
  158.     }
  159.     if (argc >= 3) {
  160.       /* see if more than one with this name */
  161.       ctf = FindName(&GfxBase->TextFonts, argv[2]);
  162.       if (ctf) {
  163.         if (FindName(ctf, argv[2])) {
  164.           /* yes: get the one with this size */
  165.           if (argc >= 4) {
  166.             i = GetNum(argv[3]);
  167.             if (i >= 0) {
  168.               while ((ctf) && (ctf->ctf_TF.tf_YSize != i))
  169.                 ctf = FindName(ctf, argv[2]);
  170.               if (ctf) {
  171.                 /* check for more than one */
  172.                 ctf2 = FindName(ctf, argv[2]);
  173.                 while ((ctf2) && (ctf2->ctf_TF.tf_YSize != i))
  174.                   ctf2 = FindName(ctf2, argv[2]);
  175.                 if (ctf2) {
  176.                   /* yes: get the one with this style */
  177.           if (argc >= 5) {
  178.             j = GetNum(argv[4]);
  179.             if (j >= 0) {
  180.               ctf = FindName(&GfxBase->TextFonts, argv[2]);
  181.               while ((ctf) && ((ctf->ctf_TF.tf_YSize != i) ||
  182.               (ctf->ctf_TF.tf_Style != j)))
  183.             ctf = FindName(ctf, argv[2]);
  184.               if (ctf) {
  185.             /* check for more than one */
  186.             ctf2 = FindName(ctf, argv[2]);
  187.             while ((ctf2) && ((ctf2->ctf_TF.tf_YSize != i) ||
  188.                 (ctf2->ctf_TF.tf_Style != j)))
  189.               ctf2 = FindName(ctf2, argv[2]);
  190.             if (ctf2) {
  191.               /* yes: get the one with this flags */
  192.               if (argc >= 6) {
  193.                 k = GetNum(argv[5]);
  194.                 if (k >= 0) {
  195.                   ctf = FindName(&GfxBase->TextFonts, argv[2]);
  196.                   while ((ctf) && ((ctf->ctf_TF.tf_YSize != i) ||
  197.                   (ctf->ctf_TF.tf_Style != j) ||
  198.                   (ctf->ctf_TF.tf_Flags != k)))
  199.                 ctf = FindName(ctf, argv[2]);
  200.                   if (ctf) {
  201.                 /* check for more than one */
  202.                 ctf2 = FindName(ctf, argv[2]);
  203.                 while ((ctf2) && ((ctf2->ctf_TF.tf_YSize != i)
  204.                     || (ctf->ctf_TF.tf_Style != j) ||
  205.                     (ctf->ctf_TF.tf_Flags != k)))
  206.                   ctf2 = FindName(ctf2, argv[2]);
  207.                 if (ctf2) {
  208.                   printf("WARNING: There exists more than one font matching the specification.\n");
  209.                   printf("         The first one found is being used.\n");
  210.                                 }
  211.                   }
  212.                   else /* ctf */ {
  213.                 printf("ERROR: No font with the specified flags\n");
  214.                 argc = 0;
  215.                   }
  216.                 }
  217.                 else /* k */ argc = 0;
  218.               }
  219.               else /* argc */ {
  220.                 printf("ERROR: More than one font with the specified name, size, and style\n");
  221.                 argc = 0;
  222.               }
  223.             }
  224.               }
  225.               else /* ctf */ {
  226.                 printf("ERROR: No font with the specified flags\n");
  227.             argc = 0;
  228.               }
  229.             }
  230.             else /* j */ argc = 0;
  231.           }
  232.           else /* argc */ {
  233.             printf("ERROR: More than one font with the specified name, and size\n");
  234.             argc = 0;
  235.           }
  236.         }
  237.           }
  238.           else /* ctf */ {
  239.         printf("ERROR: No font with the specified size\n");
  240.         argc = 0;
  241.           }
  242.             }
  243.             else /* i */ argc = 0;
  244.           }
  245.           else /* argc */ {
  246.             printf("ERROR: More than one font with the specified name\n");
  247.             argc = 0;
  248.           }
  249.         }
  250.       }
  251.       else /* ctf */ {
  252.         printf("ERROR: No font with the specified name\n");
  253.         argc = 0;
  254.       }
  255.       CloseLibrary(GfxBase);
  256.     }
  257.     if (argc < 3) {
  258.     printf(
  259.       "USAGE: DFont2Obj <file> <font-name> [<size>] [<style>] [<flags>]\n");
  260.     if (file) fclose(file);
  261.     exit(5);
  262.     }
  263.     if ((ctf->ctf_TF.tf_Flags & FPF_DISKFONT) == 0) {
  264.     printf("ERROR: font must be a disk font\n");
  265.     fclose(file);
  266.     exit(10);
  267.     }
  268.     printf("\"%s\" Y %ld S $%02lx F $%02lx\n",
  269.         ctf->ctf_TF.tf_Message.mn_Node.ln_Name, ctf->ctf_TF.tf_YSize,
  270.         ctf->ctf_TF.tf_Style, ctf->ctf_TF.tf_Flags);
  271.     hunkBase = (ULONG *) ((ULONG) ctf - 62);
  272. printf("hunkBase 0x%lx\n", hunkBase);
  273.     /* hunk header */
  274.     temp = HUNK_HEADER;
  275.     fwrite(&temp, 1, 4, file);
  276.     /* resident library names */
  277.     temp = 0;
  278.     fwrite(&temp, 1, 4, file);
  279.     /* table size */
  280.     temp = 1;            /* include the hunk base */
  281.     currHunk = hunkBase;
  282.     while (*currHunk) {
  283.     temp++;
  284.     currHunk = (ULONG *) (*currHunk<<2);
  285.     }
  286.     fwrite(&temp, 1, 4, file);
  287.     /* first hunk (zero) */
  288.     fwrite(currHunk, 1, 4, file);
  289.     /* last hunk (size-1) */
  290.     temp--;
  291.     fwrite(&temp, 1, 4, file);
  292.     /* hunk sizes */
  293.     currHunk = hunkBase;
  294.     do {
  295.     temp = (currHunk[-1]>>2) - 2;
  296.     fwrite(&temp, 1, 4, file);
  297.     currHunk = (ULONG *) (*currHunk<<2);
  298.     }
  299.     while (currHunk);
  300.     /* write first hunk */
  301.     /*   write the hunk start */
  302.     temp = HUNK_DATA;
  303.     fwrite(&temp, 1, 4, file);
  304.     /*   write the hunk size */
  305.     temp = (hunkBase[-1]>>2) - 2;
  306.     fwrite(&temp, 1, 4, file);
  307.     /*   write MOVEQ #100,D0 / RTS */
  308.     temp = 0x70644e75;
  309.     fwrite(&temp, 1, 4, file);
  310.     /*   write dfh_DF ln_Succ, ln_Pred */
  311.     temp = 0;
  312.     for (i = 0; i < 8; i++) fwrite(&temp, 1, 1, file);
  313.     /*   write dfh_DF ln_Type, ln_Pri */
  314.     temp = 0x0c000c00;        /* NT_FONT */
  315.     fwrite(&temp, 1, 2, file);
  316.     /*   write dfh_DF ln_Name */
  317.     temp = 0x1a;        /* 8 + offset(dfh_Name) */
  318.     hunkNum[0] = 0;
  319.     relocation[0] = 0xe;    /* 8 + offset(dfh_DF ... Name) */
  320.     fwrite(&temp, 1, 4, file);
  321.     /*   write dfh_FileID, dfh_Revision */
  322.     temp = 0x0f800000;        /* DFH_ID, revision 0 */
  323.     fwrite(&temp, 1, 4, file);
  324.     /*   write dfh_Segment, dfh_Name */
  325.     temp = 0;
  326.     for (i = 0; i < (4+MAXFONTNAME); i++) fwrite(&temp, 1, 1, file);
  327.     /*   write tf_Message mn_Node ln_Succ, ln_Pred */
  328.     for (i = 0; i < 8; i++) fwrite(&temp, 1, 1, file);
  329.     /*   write tf_Message mn_Node ln_Type, ln_Pri */
  330.     temp = 0x0c000c00;        /* NT_FONT */
  331.     fwrite(&temp, 1, 2, file);
  332.     /*   write tf_Message mn_Node ln_Name */
  333.     temp = 0x1a;        /* 8 + offset(dfh_Name) */
  334.     hunkNum[1] = 0;
  335.     relocation[1] = 0x44;    /* 8 + offset(tf ... Name) */
  336.     fwrite(&temp, 1, 4, file);
  337.     /*   write tf_Message mn_ReplyPort, mn_Length */
  338.     temp = 0;
  339.     fwrite(&temp, 1, 4, file);
  340.     fwrite(&temp, 1, 2, file);
  341.     /*   write tf_YSize thru tf_BoldSmear */
  342.     fwrite(&ctf->ctf_TF.tf_YSize, 1, 10, file);
  343.     /*   write tf_Accessors */
  344.     fwrite(&temp, 1, 2, file);
  345.     /*   write tf_LoChar thru tf_HiChar */
  346.     fwrite(&ctf->ctf_TF.tf_LoChar, 1, 2, file);
  347.     /*   write tf_CharData */
  348.     temp = FindRelocate(hunkNum+2, relocation+2, &ctf->ctf_TF.tf_CharData);
  349.     fwrite(&temp, 1, 4, file);
  350.     /*   write tf_Modulo */
  351.     fwrite(&ctf->ctf_TF.tf_Modulo, 1, 2, file);
  352.     /*   write tf_CharLoc */
  353.     temp = FindRelocate(hunkNum+3, relocation+3, &ctf->ctf_TF.tf_CharLoc);
  354.     fwrite(&temp, 1, 4, file);
  355.     /*   write tf_CharSpace */
  356.     temp = FindRelocate(hunkNum+4, relocation+4, &ctf->ctf_TF.tf_CharSpace);
  357.     fwrite(&temp, 1, 4, file);
  358.     /*   write tf_CharKern */
  359.     temp = FindRelocate(hunkNum+5, relocation+5, &ctf->ctf_TF.tf_CharKern);
  360.     fwrite(&temp, 1, 4, file);
  361.     /*   check for ColorTextFont */
  362.     if (ctf->ctf_TF.tf_Style & FSF_COLORFONT) {
  363.     fwrite(&ctf->ctf_Flags, 1, 8, file);
  364.     /*   ctf_ColorMap */
  365.     temp = FindRelocate(hunkNum+6, relocation+6, &ctf->ctf_ColorMap);
  366.     fwrite(&temp, 1, 4, file);
  367.     if (temp != 0) {
  368.         if (temp != 0x9a) {
  369.         printf("ERROR: ColorMap not immediately after ColorTextFont\n");
  370.         fclose(file);
  371.         exit(20);
  372.         }
  373.         /* ctf_ColorMap ColorTable */
  374.         temp = FindRelocate(hunkNum+7, relocation+7,
  375.             &((struct ColorMap *) ctf->ctf_ColorMap)->ColorTable);
  376.         if (temp != 0xa2) {
  377.         printf("ERROR: ColorTable not immediately after ColorMap\n");
  378.         fclose(file);
  379.         exit(20);
  380.         }
  381.     }
  382.     else hunkNum[7] = relocation[7] = 0xffffffff;
  383.  
  384.     /*   ctf_Planes */
  385.     for (i = 0; i < ctf->ctf_Depth; i++) {
  386.         temp = FindRelocate(hunkNum+i+8, relocation+i+8,
  387.             &ctf->ctf_CharData[i]);
  388.         fwrite(&temp, 1, 4, file);
  389.     }
  390.     temp = 0;
  391.     for (; i < 8; i++) {
  392.         hunkNum[i+8] = relocation[i+8] = 0xffffffff;
  393.         fwrite(&temp, 1, 4, file);
  394.     }
  395.     temp = sizeof(struct DiskFontHeader) + 8 -
  396.         sizeof(struct TextFont) + sizeof(struct ColorTextFont);
  397.     /* write ctf_ColorMap ColorTable if appropriate */
  398.     if (ctf->ctf_ColorMap) {
  399.         fwrite(ctf->ctf_ColorMap, 1, 4, file);
  400.         temp2 = 0xa2;
  401.         fwrite(&temp2, 1, 4, file);
  402.         temp += 8;
  403.     }
  404.     }
  405.     else {
  406.     for (i = 6; i < 16; i++) hunkNum[i] = relocation[i] = 0xffffffff;
  407.     temp = sizeof(struct DiskFontHeader) + 8;
  408.     }
  409.     /*   write the rest of this first hunk */
  410.     if (hunkBase[-1] - temp) {
  411.     fwrite(((ULONG) hunkBase) + temp, 1, hunkBase[-1] - temp - 4, file);
  412.     }
  413.     /* write the relocation record for this hunk */
  414.     temp = HUNK_RELOC32;
  415.     fwrite(&temp, 1, 4, file);
  416.     for (;;) {
  417.     /* find the minimum hunk not yet referenced */
  418.     temp = 0xffffffff;
  419.     for (i = 0; i < 15; i++)
  420.         if (hunkNum[i] < temp) temp = hunkNum[i];
  421.     if (temp == 0xffffffff) break;
  422.     /* count the relocation entries */
  423.     temp2 = 0;
  424.     for (i = 0; i < 15; i++)
  425.         if (hunkNum[i] == temp) temp2++;
  426.     /* write the offset count */
  427.     fwrite(&temp2, 1, 4, file);
  428.     /* write the hunk number */
  429.     fwrite(&temp, 1, 4, file);
  430.     /* write out all the matching relocation values */
  431.     for (i = 0; i < 15; i++)
  432.         if (hunkNum[i] == temp) {
  433.         fwrite(relocation+i, 1, 4, file);
  434.         hunkNum[i] = 0xffffffff;
  435.         }
  436.     }
  437.     /* terminate the relocation record for this hunk */
  438.     temp = 0;
  439.     fwrite(&temp, 1, 4, file);
  440.     /* write the hunk end mark */
  441.     temp = HUNK_END;
  442.     fwrite(&temp, 1, 4, file);
  443.     /* write any other hunks */
  444.     currHunk = (ULONG *) ((*hunkBase)<<2);
  445.     while (currHunk) {
  446.     /* write the hunk start */
  447.     temp = HUNK_DATA;
  448.     fwrite(&temp, 1, 4, file);
  449.     /*   write the hunk size */
  450.     temp = (currHunk[-1]>>2) - 2;
  451.     fwrite(&temp, 1, 4, file);
  452.     /* write the hunk */
  453.     fwrite(&currHunk[1], 1, currHunk[-1] - 8, file);
  454.     /* write the hunk end mark */
  455.     temp = HUNK_END;
  456.     fwrite(&temp, 1, 4, file);
  457.     currHunk = (ULONG *) ((*currHunk)<<2);
  458.     }
  459.     fclose(file);
  460. }
  461.