home *** CD-ROM | disk | FTP | other *** search
/ ST-Computer Leser 1998 October / STC_CD_10_1998.iso / BASE / BGH / C / BGH.C < prev    next >
Encoding:
C/C++ Source or Header  |  1998-09-26  |  10.0 KB  |  382 lines
  1. #include <aes.h>
  2. #include <stdlib.h>
  3. #include <stdio.h>
  4. #include <osbind.h>
  5. #include <string.h>
  6. #include <portab.h>
  7.  
  8. #include "bgh.h"
  9.  
  10. #define BGH_MAGIC 0x23424748
  11.  
  12. typedef struct
  13. {
  14.     LONG    Magic;            /* #BGH */
  15.     LONG    resvd[3];
  16. } BGH_Head;
  17.  
  18. typedef struct bgh_gruppe
  19. {
  20.     WORD                Index;
  21.     struct
  22.         bgh_gruppe*    Next;
  23.     WORD                First;
  24.     BYTE                StringTyp;
  25. } BGH_Gruppe;
  26.  
  27. typedef struct bgh_object
  28. {
  29.     WORD    Index;
  30.     WORD    Next;
  31.     BYTE    StringTyp;
  32.     BYTE    Link;
  33. } BGH_Object;
  34.  
  35.  
  36. static WORD WPEEK(void* Word)
  37. {
  38.     register UBYTE* wordp = (UBYTE*)Word;
  39.     return (wordp[0] << 8 | wordp[1]);
  40. }
  41. static inline void WPOKE(void* Word, WORD Wert)
  42. {
  43.     register UBYTE* wordp = (UBYTE*)Word;
  44.     wordp[0] = Wert >> 8;
  45.     wordp[1] = Wert;
  46. }
  47. static LONG LPEEK(void* Long)
  48. {
  49.     register UBYTE* longp = (UBYTE*)Long;
  50.     return (longp[0] << 24 | longp[1] << 16 | longp[2] << 8 | longp[3]);
  51. }
  52. static inline void LPOKE(void* Long, LONG Wert)
  53. {
  54.     register UBYTE* longp = (UBYTE*)Long;
  55.     longp[0] = Wert >> 24;
  56.     longp[1] = Wert >> 16;
  57.     longp[2] = Wert >> 8;
  58.     longp[3] = Wert;
  59. }
  60.  
  61.  
  62. static void* MyMxalloc(LONG Ammount, WORD Mode)
  63. {
  64.     void* result = 0;
  65.  
  66.     void *svStack;      /* Supervisorstack */
  67.     LONG sRAM, sRAMg;   /* ST-RAM          */
  68.     LONG aRAM, aRAMg;   /* Alternate RAM   */
  69.  
  70.  
  71.     /*
  72.     // Beispieltabelle moeglicher Werte:
  73.     //           | newfashion  | oldfashion
  74.     // sRAM aRAM | sRAMg aRAMg | sRAMg aRAMg
  75.     //   1    0  |   1     0   |   1     1
  76.     //   0    2  |   0     2   |   2     2
  77.     //   1    2  |   1     2   |   3     3
  78.     */
  79.  
  80.     svStack = (void*)Super(0);  /* unterbinde Taskwechsel */
  81.  
  82.     sRAM  = (LONG) Mxalloc( -1, 0);
  83.     sRAMg = (LONG) Mxalloc( -1, 0x40); /* im Fehlerfall Mxalloc( -1, 3) */
  84.     aRAM  = (LONG) Mxalloc( -1, 1);
  85.     aRAMg = (LONG) Mxalloc( -1, 0x41); /* im Fehlerfall Mxalloc( -1, 3) */
  86.  
  87.     Super( svStack);  /* erlaube Taskwechsel */
  88.  
  89.     if(sRAM == -32)
  90.         result = (void*)Malloc(Ammount);  /* Mxalloc() ist nicht implementiert */
  91.     else
  92.     {
  93.         if (((sRAM + aRAM) == sRAMg) && ((sRAM + aRAM) == aRAMg))
  94.             result = (void*)Mxalloc(Ammount, Mode & 3);  /* oldfashion Mxalloc() */
  95.         else
  96.             result = (void*)Mxalloc(Ammount, Mode);
  97.     }
  98.     return result;
  99. }
  100.  
  101. ULONG    BGH_Load(const char* Name)
  102. {
  103.     char Char, * Read, * LastText=0, * egal;
  104.     WORD i, Section, LastTextTyp=0;
  105.     LONG FileHandle, FileLen;
  106.  
  107.     BGH_Head*        Head = 0;
  108.     BGH_Gruppe*        LastGruppen[4];        /* für Gruppen-Verkettung */
  109.     BGH_Gruppe*        LastGruppe    = 0;        /* für 1.Objekt           */
  110.     BGH_Object*        LastObject    = 0;        /* für Objekt-Verkettung  */
  111.     BGH_Gruppe**     Sectionen;
  112.     BGH_Gruppe*        NewGruppe;
  113.     BGH_Object*        NewObject;
  114.  
  115.  
  116.     FileHandle = Fopen(Name, 0);                /* Datei öffnen */
  117.     if(FileHandle > 0)
  118.     {
  119.         FileLen = Fseek(0, FileHandle, 2);    /* Dateilänge ermitteln */
  120.         Fseek(0, FileHandle, 0);
  121.         if(FileLen > sizeof(BGH_Head))        /* Filelänge > Headerlänge */
  122.         {
  123.             Read = (char*) MyMxalloc(FileLen+1, 0x43);    /* Speicher anforderm     */
  124.             if(Read && FileLen == Fread(FileHandle, FileLen, Read)) /* Datei laden */
  125.             {
  126.                 Read[FileLen] = 0;                    /* Eine NULL anhängen */
  127.                 Head = (BGH_Head*) Read;
  128.                 if(Head->Magic == BGH_MAGIC)        /* ist es eine BGH-Datei ? */
  129.                 {
  130.                      Sectionen = (BGH_Gruppe**)Head;
  131.                     for(i=0; i<4; i++)
  132.                     {
  133.                         Sectionen[i]    =        /* Verkettungen zurücksetzen */
  134.                         LastGruppen[i]    = 0;
  135.                     }
  136.                     Read += sizeof(BGH_Head);        /* Header überspringen */
  137.  
  138.                     while(*Read)                        /* solange NULL nicht erreicht */
  139.                     {
  140.                         while(*Read && *Read != 0xa && *Read != 0xd)
  141.                             Read++;                                    /* CR oder LF suchen   */
  142.                         while(*Read == 0xa || *Read == 0xd)
  143.                             *Read++ = 0;                            /* CR und LF ausNULLen */
  144.                         if(*Read == '#')        /* ist 1.Zeichen nach CR/LF = '#' */
  145.                         {
  146.                             i = 0;
  147.                             switch(*++Read)   /* dann teste 2.Zeichen */
  148.                             {
  149.                                 case 'M':                        /* vergleichs SectionsID */
  150.                                     egal        = "More ";        /* vergleiche mit "More " */
  151.                                     i            = 5;
  152.                                     Section    = 0;
  153.                                     break;
  154.                                 case 'D':
  155.                                     egal        = "Dial ";        /* vergleiche mit "Dial " */
  156.                                     i            = 5;
  157.                                     Section    = 1;
  158.                                     break;
  159.                                 case 'A':
  160.                                     egal        = "Alert ";        /* vergleiche mit "Alert " */
  161.                                     i            = 6;
  162.                                     Section    = 2;
  163.                                     break;
  164.                                 case 'U':
  165.                                     egal        = "User ";        /* vergleiche mit "User " */
  166.                                     i            = 5;
  167.                                     Section    = 3;
  168.                                     break;
  169.                             }
  170.                             if(i && !strncmp(Read, egal, i)) /* SectionsId gefundeen */
  171.                             {
  172.                                 LastGruppe = 0;        /* wenn Fehler keine Objekte */
  173.                                 Read += i;                /* SectionsId überspringen   */
  174.                                 egal = Read;         /* Position 1. Ziffer merken */
  175.                                 while(*Read >= '0' && *Read <= '9')
  176.                                     Read++;                /* Ende der Zahl suchen      */
  177.                                 if(*Read == 0xa || *Read == ' ' || *Read == 0xd || !*Read)
  178.                                 {
  179.                                     if(*Read) *Read++ = 0;    /* Zahl mit NULL abschlie₧en    */
  180.  
  181.                                     if(Read - egal >= 3)    /* mindestens 3 Ziffern            */
  182.                                     {
  183.                                         NewGruppe    = (BGH_Gruppe*) ((ULONG)Read - sizeof(BGH_Gruppe));
  184.                                         /* GruppenStructur initialisieren */
  185.                                         WPOKE(&NewGruppe->Index, atoi(egal));
  186.                                         LPOKE(&NewGruppe->Next, 0);
  187.                                         WPOKE(&NewGruppe->First, 0);
  188.  
  189.                                         if(*Read == '>' && Read[1] >= '0' && Read[1] <= '9')
  190.                                         {
  191.                                             LastTextTyp = 1;
  192.                                             WPOKE(LastText, atoi(&Read[1]));
  193.                                             WPOKE(Read, atoi(&Read[1]));
  194.                                             NewGruppe->StringTyp = 2;
  195.                                             Read += 2;
  196.                                         }
  197.                                         else
  198.                                         {
  199.                                             LastTextTyp                = 0;
  200.                                             LastText                    = Read;
  201.                                             NewGruppe->StringTyp = 0;
  202.                                         }
  203.  
  204.                                         /* GruppenStructur verketten */
  205.                                         if(LastGruppen[Section])
  206.                                             LPOKE(&LastGruppen[Section]->Next, (LONG)NewGruppe);
  207.                                         else
  208.                                             Sectionen[Section]    = NewGruppe;
  209.                                         LastGruppen[Section]        =
  210.                                         LastGruppe                    = NewGruppe;
  211.                                         LastObject                    = 0;
  212.                                     }
  213.                                 }
  214.                             }
  215.                             else
  216.                             {
  217.                                 if(LastGruppe)    /* war schon eine Gruppe ? */
  218.                                 {
  219.                                     egal = ++Read;    /* ObjektStructur initialisieren */
  220.                                     while(*Read >= '0' && *Read <= '9')
  221.                                         Read++;
  222.                                     if(*Read == ' ' && Read - egal >= 3)
  223.                                     {
  224.                                         *Read++ = 0;
  225.  
  226.                                         NewObject                    = (BGH_Object*) ((ULONG)Read - sizeof(BGH_Object));
  227.                                         WPOKE(&NewObject->Index, atoi(egal));
  228.                                         WPOKE(&NewObject->Next, 0);
  229.                                         NewObject->StringTyp = 0;
  230.                                         switch(*Read)
  231.                                         {
  232.                                         case '^':
  233.                                             if(Read[1] == 0xa || Read[1] == 0xd || !Read[1])
  234.                                             {
  235.                                                 if(LastTextTyp)
  236.                                                 {
  237.                                                     WPOKE(&NewObject->Link, WPEEK(LastText));
  238.                                                     NewObject->StringTyp = 2;
  239.                                                 }
  240.                                                 else
  241.                                                 {
  242.                                                     WPOKE(&NewObject->Link, (ULONG)LastText - (ULONG)NewObject);
  243.                                                     NewObject->StringTyp = 1;
  244.                                                 }
  245.                                                 Read++;
  246.                                             }
  247.                                             break;
  248.                                         case '>':
  249.                                             if(Read[1] >= '0' && Read[1] <= '9')
  250.                                             {
  251.                                                 LastTextTyp = 1;
  252.                                                 WPOKE(LastText, atoi(&Read[1]));
  253.                                                 WPOKE(&NewObject->Link, atoi(&Read[1]));
  254.                                                 NewObject->StringTyp = 2;
  255.  
  256.                                                 Read++;
  257.                                             }
  258.                                             break;
  259.                                         default:
  260.                                             break;
  261.                                         }
  262.                                         if(!NewObject->StringTyp)
  263.                                         {
  264.                                             LastTextTyp    = 0;
  265.                                             LastText        = Read;
  266.                                         }
  267.  
  268.                                         /* ObjektStructur verketten */
  269.                                         if(LastObject)
  270.                                             WPOKE(&LastObject->Next, (ULONG)NewObject - (ULONG)LastObject);
  271.                                         else
  272.                                             WPOKE(&LastGruppe->First, (ULONG)NewObject - (ULONG)LastGruppe);
  273.                                         LastObject                    = NewObject;
  274.                                     }
  275.                                 }
  276.                             }
  277.                         }
  278.                     }
  279.                 }
  280.             }
  281.         }
  282.         Fclose(FileHandle);
  283.     }
  284.     return (ULONG) Head;
  285. }
  286.  
  287. void    BGH_Free(ULONG BGH_ID)
  288. {
  289.     if(BGH_ID) Mfree(BGH_ID);        /* Speicher freigeben            */
  290. }
  291.  
  292. char*    BGH_GetHelpString(ULONG BGH_ID, WORD Type, WORD Gruppe, WORD Index)
  293. {
  294.     BGH_Gruppe**     Sectionen    = (BGH_Gruppe**) BGH_ID;
  295.     char*                result        = 0;
  296.     BGH_Gruppe*        GruppeP;
  297.     BGH_Object*        ObjectP;
  298.  
  299.  
  300.     if(Sectionen && Type >= 0 && Type <= 3)
  301.     {
  302.         GruppeP = Sectionen[Type];        /* 1. Gruppe        */
  303.         while(GruppeP)                                /* Gruppe testen    */
  304.         {
  305.             if(WPEEK(&GruppeP->Index) == Gruppe)        /* Gruppe gefunden        */
  306.             {
  307.                 if(Index == -1)                    /* ist Index = -1 dann    */
  308.                 {
  309.                     result = ((char*)GruppeP + sizeof(BGH_Gruppe)); /* Gruppen-Help */
  310.                     if(GruppeP->StringTyp)
  311.                         result = BGH_GetHelpString(BGH_ID, 0, 0, WPEEK(result));
  312.                 }
  313.                 else                                    /* sonst */
  314.                 {
  315.                     if(WPEEK(&GruppeP->First))
  316.                         ObjectP = (BGH_Object*)((LONG)GruppeP + WPEEK(&GruppeP->First));
  317.                     else
  318.                         ObjectP = 0;                        /* 1. Objekt            */
  319.                     while(ObjectP)                            /* Objekt testen        */
  320.                     {
  321.                         if(WPEEK(&ObjectP->Index) == Index)    /* Objekt gefunden    */
  322.                         {
  323.                             switch(ObjectP->StringTyp)
  324.                             {
  325.                             case 1:
  326.                                 result = ((char*)ObjectP + WPEEK(&ObjectP->Link));
  327.                                 break;
  328.                             case 2:
  329.                                 result = BGH_GetHelpString(BGH_ID, 0, 0, WPEEK(&ObjectP->Link));
  330.                                 break;
  331.                             default:
  332.                                 result = ((char*)ObjectP + sizeof(BGH_Object));
  333.                                 break;
  334.                             }
  335.                             break;
  336.                         }
  337.                         if(WPEEK(&ObjectP->Next))                    /* nächstes Objekt    */
  338.                             ObjectP = (BGH_Object*)((LONG)ObjectP + WPEEK(&ObjectP->Next));
  339.                         else
  340.                             ObjectP = 0;
  341.                     }
  342.                 }
  343.                 break;
  344.             }
  345.             if(LPEEK(&GruppeP->Next))                                /* nächste Gruppe        */
  346.                 GruppeP = (BGH_Gruppe*)LPEEK(&GruppeP->Next);
  347.             else
  348.                 GruppeP = 0;
  349.         }
  350.     }
  351.     return result;
  352. }
  353.  
  354. void    BGH_Action(ULONG BGH_ID, WORD Mx, WORD My, WORD Typ, WORD Gruppe, WORD Index)
  355. {
  356.     WORD BubbleId;
  357.     WORD Msg[8];
  358.  
  359.     char* HelpString = BGH_GetHelpString(BGH_ID, Typ, Gruppe, Index);
  360.  
  361.     if(HelpString)
  362.     {
  363.         BubbleId = appl_find("BUBBLE  ");
  364.  
  365.         if(BubbleId >= 0)
  366.         {
  367.             Msg[0] = 0xbabb; /*BUBBLEGEM_SHOW;*/
  368.             Msg[1] = gl_apid;
  369.             Msg[2] = 0;
  370.             Msg[3] = Mx;
  371.             Msg[4] = My;
  372.             Msg[5] = (WORD)(((LONG)HelpString >> 16) & 0x0000ffff);
  373.             Msg[6] = (WORD)((LONG)HelpString & 0x0000ffff);
  374.             Msg[7] = 0;
  375.             if (appl_write(BubbleId, 16, Msg) == 0)
  376.             {
  377.             /* Fehler */
  378.             }
  379.         }
  380.     }
  381. }
  382.