compiler/autoinit/fromwb.c

   1 /*
   2     Copyright © 2009, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: autoinit library - handle program started from workbench.
   6 */
   7 #include <dos/dos.h>
   8 #include <dos/dosextens.h>
   9 #include <aros/startup.h>
  10 #include <aros/symbolsets.h>
  11
  12 #define DEBUG 0
  13 #include <aros/debug.h>
  14
  15 struct WBStartup *WBenchMsg;
  16
  17 int __nowbsupport __attribute__((weak)) = 0;
  18
  19 static void __startup_fromwb(void)
  20 {
  21     struct Process *myproc;
  22
  23     D(bug("Entering __startup_fromwb()\n"));
  24
  25     myproc = (struct Process *)FindTask(NULL);
  26
  27     /* Do we have a CLI structure? */
  28     if (!myproc->pr_CLI)
  29     {
  30         /* Workbench startup. Get WBenchMsg and pass it to main() */
  31
  32         WaitPort(&myproc->pr_MsgPort);
  33         WBenchMsg = (struct WBStartup *)GetMsg(&myproc->pr_MsgPort);
  34         __argv = (char **) WBenchMsg;
  35         __argc = 0;
  36
  37         D(bug("[startup] Started from Workbench\n"));
  38     }
  39
  40     __startup_entries_next();
  41
  42     /* Reply startup message to Workbench */
  43     if (WBenchMsg)
  44     {
  45         Forbid(); /* make sure we're not UnLoadseg()ed before we're really done */
  46         ReplyMsg((struct Message *) WBenchMsg);
  47     }
  48
  49     D(bug("Leaving __startup_fromwb\n"));
  50 }
  51
  52 ADD2SET(__startup_fromwb, program_entries, -50);