arch/.unmaintained/m68k-pp-native/boot/exec.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Main code for LCD test
   6 */
   7
   8 #include <Pilot.h>
   9 #include "callback.h"
  10
  11 #include "execRsc.h"
  12
  13 #define __PILOT_CODE__
  14 #include "gfx.h"
  15
  16 extern void main_init(void * memory, Long size);
  17
  18
  19 static Boolean MainFormHandleEvent (EventPtr e)
  20 {
  21     Boolean handled = false;
  22     FormPtr frm;
  23     void * mem;
  24     Long MEMSIZE = 0x9500;
  25     CALLBACK_PROLOGUE
  26
  27     switch (e->eType) {
  28     case frmOpenEvent:
  29         frm = FrmGetActiveForm();
  30         FrmDrawForm(frm);
  31
  32         mem = MemPtrNew(MEMSIZE);
  33         /*
  34          * Memory must be properly aligned!
  35          */
  36         (Long)mem = ((Long)mem + 7) & ~7;
  37         if (0 != mem && 0 == ((Long)mem & 7)) {
  38                 clearscreen(0);
  39                 main_init(mem,MEMSIZE);
  40         }
  41
  42         handled = true;
  43         break;
  44
  45     case menuEvent:
  46         MenuEraseStatus(NULL);
  47
  48         switch(e->data.menu.itemID) {
  49         }
  50
  51         handled = true;
  52         break;
  53
  54     case ctlSelectEvent:
  55         switch(e->data.ctlSelect.controlID) {
  56         }
  57         break;
  58
  59     default:
  60         break;
  61     }
  62
  63     CALLBACK_EPILOGUE
  64
  65     return handled;
  66 }
  67
  68 static Boolean ApplicationHandleEvent(EventPtr e)
  69 {
  70     FormPtr frm;
  71     Word    formId;
  72     Boolean handled = false;
  73
  74     if (e->eType == frmLoadEvent) {
  75         formId = e->data.frmLoad.formID;
  76         frm = FrmInitForm(formId);
  77         FrmSetActiveForm(frm);
  78
  79         switch(formId) {
  80         case MainForm:
  81             FrmSetEventHandler(frm, MainFormHandleEvent);
  82             break;
  83         }
  84         handled = true;
  85     }
  86
  87     return handled;
  88 }
  89
  90 /* Get preferences, open (or create) app database */
  91 static Word StartApplication(void)
  92 {
  93     FrmGotoForm(MainForm);
  94     return 0;
  95 }
  96
  97 /* Save preferences, close forms, close app database */
  98 static void StopApplication(void)
  99 {
 100     FrmSaveAllForms();
 101     FrmCloseAllForms();
 102 }
 103
 104 /* The main event loop */
 105 static void EventLoop(void)
 106 {
 107     Word err;
 108     EventType e;
 109
 110     do {
 111         EvtGetEvent(&e, evtWaitForever);
 112         if (! SysHandleEvent (&e))
 113             if (! MenuHandleEvent (NULL, &e, &err))
 114                 if (! ApplicationHandleEvent (&e))
 115                     FrmDispatchEvent (&e);
 116     } while (e.eType != appStopEvent);
 117 }
 118
 119
 120
 121 /* Main entry point; it is unlikely you will need to change this except to
 122    handle other launch command codes */
 123 DWord PilotMain(Word cmd, Ptr cmdPBP, Word launchFlags)
 124 {
 125     Word err;
 126
 127
 128     if (cmd == sysAppLaunchCmdNormalLaunch) {
 129
 130         err = StartApplication();
 131         if (err) return err;
 132
 133         EventLoop();
 134         StopApplication();
 135
 136     } else {
 137         return sysErrParamErr;
 138     }
 139
 140     return 0;
 141 }