workbench/system/Workbook/workbook_init.c

   1 /*
   2     Copyright © 2011, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Workbook Resource
   6     Lang: english
   7 */
   8
   9 #define DEBUG 0
  10 #include <aros/debug.h>
  11 #include <aros/symbolsets.h>
  12
  13 #include <exec/resident.h>
  14 #include <proto/exec.h>
  15 #include <proto/dos.h>
  16
  17 #include LC_LIBDEFS_FILE
  18
  19 extern void WorkbookMain(void);
  20
  21 #undef DOSBase
  22 static int GM_UNIQUENAME(Init)(LIBBASETYPEPTR LIBBASE)
  23 {
  24     APTR DOSBase;
  25     BPTR seg;
  26
  27     D(bug("[Workbook] Init\n"));
  28
  29     DOSBase = OpenLibrary("dos.library", 0);
  30     if ( DOSBase == NULL ) {
  31         D(bug("[Workbook] What? No dos.library?\n"));
  32         return FALSE;
  33     }
  34
  35     seg = CreateSegList(WorkbookMain);
  36     if (seg != BNULL) {
  37         AddSegment("Workbook", seg, CMD_INTERNAL);
  38     }
  39
  40     CloseLibrary(DOSBase);
  41
  42     return TRUE;
  43 }
  44
  45 ADD2INITLIB(GM_UNIQUENAME(Init), 0);