workbench/network/stacks/AROSTCP/netlib/miami_autoinit.c

   1 #include <intuition/intuition.h>
   2 #include <proto/exec.h>
   3 #include <proto/intuition.h>
   4 #include "conf.h"
   5
   6 extern STRPTR _ProgramName;
   7 struct Library *MiamiBase = NULL;
   8
   9 LONG STDARGS CONSTRUCTOR _STI_200_openMiami(void)
  10 {
  11   struct Library *IntuitionBase;
  12
  13   MiamiBase = OpenLibrary("miami.library", 0);
  14   if (MiamiBase)
  15     return 0;
  16
  17   IntuitionBase = OpenLibrary("intuition.library", 36);
  18   if (IntuitionBase) {
  19     struct EasyStruct libraryES;
  20
  21     libraryES.es_StructSize = sizeof(libraryES);
  22     libraryES.es_Flags = 0;
  23     libraryES.es_Title = _ProgramName;
  24     libraryES.es_TextFormat = "Unable to open miami.library";
  25     libraryES.es_GadgetFormat = "Exit %s";
  26
  27     EasyRequestArgs(NULL, &libraryES, NULL, (APTR)&_ProgramName);
  28
  29     CloseLibrary(IntuitionBase);
  30   }
  31   exit(20);
  32 }
  33
  34 void STDARGS DESTRUCTOR _STD_200_closeMiami(void)
  35 {
  36   if (MiamiBase) {
  37     CloseLibrary(MiamiBase);
  38     MiamiBase = NULL;
  39   }
  40 }