rom/intuition/intuition_init.c

   1 /*
   2     Copyright  1995-2006, The AROS Development Team. All rights reserved.
   3     Copyright  2001-2003, The MorphOS Development Team. All Rights Reserved.
   4     $Id$
   5 */
   6
   7 /****************************************************************************************/
   8
   9 #define INIT AROS_SLIB_ENTRY(init,Intuition)
  10
  11 #include <string.h>
  12 #include <exec/lists.h>
  13 #include <exec/resident.h>
  14 #include <exec/memory.h>
  15 #include <exec/execbase.h>
  16 #include <exec/alerts.h>
  17 #include <proto/graphics.h>
  18 #include <proto/exec.h>
  19 #include <proto/intuition.h>
  20 #include <proto/alib.h>
  21 //#include <proto/arossupport.h>
  22 #include <devices/input.h>
  23 #ifndef INTUITION_CLASSES_H
  24 #   include <intuition/classes.h>
  25 #endif
  26 #include <intuition/pointerclass.h>
  27 #ifndef UTILITY_HOOKS_H
  28 #   include <utility/hooks.h>
  29 #endif
  30 #include <utility/utility.h>
  31 #include <aros/symbolsets.h>
  32 #include LC_LIBDEFS_FILE
  33 #include "intuition_intern.h"
  34 #include "strgadgets.h" /* To get GlobalEditFunc prototype */
  35 #include "inputhandler.h"
  36 #include "menutask.h"
  37 #include "screennotifytask.h"
  38
  39 #ifdef SKINS
  40     #include "transplayers.h"
  41     #include "smallmenu.h"
  42 #endif
  43
  44 #define DEBUG 0
  45 #include <aros/debug.h>
  46
  47 #ifdef INTUITION_NOTIFY_SUPPORT
  48 /* screennotify/notifyintuition init routines from notify.c */
  49 struct Library *sn_Init(struct IntuitionBase *IntuitionBase);
  50 struct Library *ni_Init(struct IntuitionBase *IntuitionBase);
  51 #endif
  52
  53 /* There has to be a better way... */
  54
  55 AROS_UFP3(ULONG, rootDispatcher,
  56           AROS_UFPA(Class *,  cl,  A0),
  57           AROS_UFPA(Object *, obj, A2),
  58           AROS_UFPA(Msg,      msg, A1)
  59          );
  60
  61 /****************************************************************************************/
  62
  63 /* Default colors for the new screen, the same as in AmigaOS 3.1 */
  64
  65 const ULONG coltab[] =
  66 {
  67     0xB3B3B3B3, 0xB3B3B3B3, 0xB3B3B3B3, /* Grey70     */
  68     0x00000000, 0x00000000, 0x00000000, /* Black      */
  69     0xFFFFFFFF, 0xFFFFFFFF, 0xFFFFFFFF, /* White      */
  70     0x66666666, 0x88888888, 0xBBBBBBBB, /* AMIGA Blue */
  71
  72     0xEEEEEEEE, 0x44444444, 0x44444444, /* Red        */
  73     0x55555555, 0xDDDDDDDD, 0x55555555, /* Green      */
  74     0x00000000, 0x44444444, 0xDDDDDDDD, /* Dark Blue  */
  75     0xEEEEEEEE, 0x99999999, 0x00000000, /* Yellow     */
  76 };
  77
  78 static int IntuitionInit(LIBBASETYPEPTR LIBBASE)
  79 {
  80     DEBUG_INIT(dprintf("LIB_Init: base 0x%lx\n", (ULONG) LIBBASE));
  81
  82 #warning "FIXME: This libInit is all broken if something should fail, but do we care?"
  83 #warning "FIXME: If something fails we're screwed anyway..."
  84
  85     /*  We have to open this here, but it doesn't do any allocations,
  86         so it shouldn't fail...
  87      */
  88
  89     /* Create semaphore and initialize it */
  90     GetPrivIBase(LIBBASE)->IBaseLock = AllocMem (sizeof(struct SignalSemaphore), MEMF_PUBLIC|MEMF_CLEAR);
  91
  92     if (!GetPrivIBase(LIBBASE)->IBaseLock)
  93         return FALSE;
  94
  95     InitSemaphore(GetPrivIBase(LIBBASE)->IBaseLock);
  96
  97     InitSemaphore(&GetPrivIBase(LIBBASE)->WinDecorSem);
  98     InitSemaphore(&GetPrivIBase(LIBBASE)->ScrDecorSem);
  99     InitSemaphore(&GetPrivIBase(LIBBASE)->MenuDecorSem);
 100
 101     /* Initialize global stringgadget edit hook */
 102     GetPrivIBase(LIBBASE)->DefaultEditHook.h_Entry  = (APTR)AROS_ASMSYMNAME(GlobalEditFunc);
 103     GetPrivIBase(LIBBASE)->DefaultEditHook.h_SubEntry   = NULL;
 104     GetPrivIBase(LIBBASE)->DefaultEditHook.h_Data   = LIBBASE;
 105
 106     GetPrivIBase(LIBBASE)->GlobalEditHook = &(GetPrivIBase(LIBBASE)->DefaultEditHook);
 107
 108     GetPrivIBase(LIBBASE)->DefaultPubScreen = NULL;
 109     NEWLIST(&GetPrivIBase(LIBBASE)->PubScreenList);
 110     InitSemaphore(&GetPrivIBase(LIBBASE)->PubScrListLock);
 111
 112     InitSemaphore(&GetPrivIBase(LIBBASE)->ScreenNotificationListLock);
 113     NEWLIST(&GetPrivIBase(LIBBASE)->ScreenNotificationList);
 114
 115     NEWLIST(&GetPrivIBase(LIBBASE)->Decorations);
 116
 117
 118     InitSemaphore(&GetPrivIBase(LIBBASE)->GadgetLock);
 119     InitSemaphore(&GetPrivIBase(LIBBASE)->MenuLock);
 120     InitSemaphore(&GetPrivIBase(LIBBASE)->WindowLock);
 121     InitSemaphore(&GetPrivIBase(LIBBASE)->IntuiActionLock);
 122     InitSemaphore(&GetPrivIBase(LIBBASE)->InputHandlerLock);
 123
 124 #ifdef SKINS
 125     InitSemaphore(&GetPrivIBase(LIBBASE)->DataTypesSem);
 126     GetPrivIBase(LIBBASE)->DataTypesBase = 0;
 127
 128     GetPrivIBase(LIBBASE)->transphook.h_Data = (APTR)GetPrivIBase(LIBBASE);
 129     GetPrivIBase(LIBBASE)->transphook.h_Entry = (HOOKFUNC)HookEntry;
 130     GetPrivIBase(LIBBASE)->transphook.h_SubEntry = (HOOKFUNC)WindowTranspFunc;
 131
 132     GetPrivIBase(LIBBASE)->notransphook.h_Data = (APTR)GetPrivIBase(LIBBASE);
 133     GetPrivIBase(LIBBASE)->notransphook.h_Entry = (HOOKFUNC)HookEntry;
 134     GetPrivIBase(LIBBASE)->notransphook.h_SubEntry = (HOOKFUNC)WindowNoTranspFunc;
 135 #endif
 136
 137 #ifdef __MORPHOS__
 138     memset(GetPrivIBase(LIBBASE)->Pad, 0xee, sizeof(GetPrivIBase(LIBBASE)->Pad));
 139     GetPrivIBase(LIBBASE)->SystemRequestTitle = "System Request";
 140     GetPrivIBase(LIBBASE)->WorkbenchTitle = "Ambient Screen";
 141 #endif
 142     /*
 143      * Setup the default pens to the default
 144      * colors so that screens have proper color
 145      * even before IPrefs is loaded.
 146      */
 147     {
 148         struct Color32 *p;
 149         ULONG               i;
 150
 151         p = GetPrivIBase(LIBBASE)->Colors;
 152
 153         for (i = 0; i < COLORTABLEENTRIES; i++)
 154         {
 155             p[i].red = coltab[i*3];
 156             p[i].green = coltab[i*3+1];
 157             p[i].blue = coltab[i*3+2];
 158         }
 159     }
 160
 161 #ifdef __MORPHOS__
 162     GetPrivIBase(LIBBASE)->mosmenuclass = InitMuiMenuClass(LIBBASE);
 163 #endif
 164
 165     DEBUG_INIT(dprintf("LIB_Init: create menu handler task\n"));
 166     /* FIXME: no cleanup routines for MenuHandler task */
 167     if (!InitDefaultMenuHandler(IntuitionBase))
 168         return FALSE;
 169
 170     /* FIXME: no cleanup routines for ScreennotifyHandler task */
 171     if (!InitDefaultScreennotifyHandler(IntuitionBase))
 172         return FALSE;
 173
 174
 175     DEBUG_INIT(dprintf("LIB_Init: load default preferences\n"));
 176     LoadDefaultPreferences(LIBBASE);
 177 #ifdef USEGETIPREFS
 178     GetPrivIBase(LIBBASE)->IPrefsLoaded = FALSE;
 179 #endif
 180
 181 #ifdef SKINS
 182     if (!GetPrivIBase(LIBBASE)->SmallMenuPool)
 183     {
 184         if (!(GetPrivIBase(LIBBASE)->SmallMenuPool = CreatePool(MEMF_SEM_PROTECTED,(sizeof (struct SmallMenuEntry))*20,(sizeof (struct SmallMenuEntry))*20))) return NULL;
 185     }
 186 #endif
 187
 188     if (!(GetPrivIBase(LIBBASE)->IDCMPPool = CreatePool(MEMF_SEM_PROTECTED,(sizeof (struct IntIntuiMessage)) * 100,sizeof (struct IntIntuiMessage)))) return FALSE;
 189
 190 #ifdef SKINS
 191     strcpy(GetPrivIBase(IntuitionBase)->IControlExtensions.ice_ClockFormat,"%X");
 192 #endif
 193
 194     GetPrivIBase(LIBBASE)->FrameSize = FRAMESIZE_THIN;
 195
 196     {
 197         WORD i;
 198
 199         for(i = 0; i < RESOURCELIST_HASHSIZE; i++)
 200         {
 201             NewList((struct List *)&GetPrivIBase(LIBBASE)->ResourceList[i]);
 202         }
 203     }
 204
 205     if (!(GetPrivIBase(LIBBASE)->WinDecorObj = NewObjectA(NULL, WINDECORCLASS, NULL))) return FALSE;
 206     if (!(GetPrivIBase(LIBBASE)->ScrDecorObj = NewObjectA(NULL, SCRDECORCLASS, NULL))) return FALSE;
 207     if (!(GetPrivIBase(LIBBASE)->MenuDecorObj = NewObjectA(NULL, MENUDECORCLASS, NULL))) return FALSE;
 208
 209     GetPrivIBase(LIBBASE)->DefWinDecorObj = GetPrivIBase(LIBBASE)->WinDecorObj;
 210     GetPrivIBase(LIBBASE)->DefScrDecorObj = GetPrivIBase(LIBBASE)->ScrDecorObj;
 211     GetPrivIBase(LIBBASE)->DefMenuDecorObj = GetPrivIBase(LIBBASE)->MenuDecorObj;
 212
 213     DEBUG_INIT(dprintf("LIB_Init: done\n"));
 214
 215     return TRUE;
 216 }
 217
 218 static int InitRootClass(LIBBASETYPEPTR LIBBASE)
 219 {
 220     InitSemaphore(&GetPrivIBase(LIBBASE)->ClassListLock);
 221     NEWLIST(&GetPrivIBase(LIBBASE)->ClassList);
 222
 223     /* Setup root class */
 224
 225     GetPrivIBase(LIBBASE)->RootClass.cl_Dispatcher.h_Entry = (APTR)AROS_ASMSYMNAME(rootDispatcher);
 226     GetPrivIBase(LIBBASE)->RootClass.cl_ID                 = (ClassID)ROOTCLASS;
 227     GetPrivIBase(LIBBASE)->RootClass.cl_UserData           = (IPTR)LIBBASE;
 228     DEBUG_INIT(dprintf("LIB_Init: create rootclass\n"));
 229     AddClass(&(GetPrivIBase(LIBBASE)->RootClass));
 230
 231     return TRUE;
 232 }
 233
 234 /****************************************************************************************/
 235
 236 static int IntuitionOpen(LIBBASETYPEPTR LIBBASE)
 237 {
 238     DEBUG_OPEN(dprintf("LIB_Open: base 0x%lx\n", LIBBASE));
 239
 240     /* Open the input device */
 241
 242     if (!GetPrivIBase(LIBBASE)->InputMP)
 243     {
 244         if (!(GetPrivIBase(LIBBASE)->InputMP = CreateMsgPort()))
 245         {
 246             DEBUG_OPEN(dprintf("LIB_Open: can't create port\n"));
 247             return FALSE;
 248         }
 249     }
 250
 251     if (!GetPrivIBase(LIBBASE)->InputIO)
 252     {
 253         if (!(GetPrivIBase(LIBBASE)->InputIO = (struct IOStdReq *)
 254               CreateIORequest(GetPrivIBase(LIBBASE)->InputMP, sizeof (struct IOStdReq))) )
 255         {
 256             DEBUG_OPEN(dprintf("LIB_Open: can't create iorequest\n"));
 257             return FALSE;
 258         }
 259     }
 260
 261     if (!GetPrivIBase(LIBBASE)->InputDeviceOpen)
 262     {
 263         if (!OpenDevice("input.device", -1, (struct IORequest *)GetPrivIBase(LIBBASE)->InputIO, NULL))
 264         {
 265             GetPrivIBase(LIBBASE)->InputDeviceOpen = TRUE;
 266             InputBase = (struct Library *)GetPrivIBase(LIBBASE)->InputIO->io_Device;
 267         }
 268         else
 269         {
 270             DEBUG_OPEN(dprintf("LIB_Open: can't open input.device\n"));
 271             return FALSE;
 272         }
 273     }
 274
 275     if (!GetPrivIBase(LIBBASE)->InputHandler)
 276     {
 277         D(bug("Initializing inputhandler\n"));
 278         if ( !(GetPrivIBase(LIBBASE)->InputHandler = InitIIH(LIBBASE)) )
 279         {
 280             DEBUG_OPEN(dprintf("LIB_Open: can't init input handler\n"));
 281             return FALSE;
 282         }
 283
 284         D(bug("Adding inputhandler\n"));
 285         GetPrivIBase(LIBBASE)->InputIO->io_Data = (APTR)GetPrivIBase(LIBBASE)->InputHandler;
 286         GetPrivIBase(LIBBASE)->InputIO->io_Command = IND_ADDHANDLER;
 287
 288         D(bug("Calling DoIO()\n"));
 289         DoIO((struct IORequest *)GetPrivIBase(LIBBASE)->InputIO);
 290         D(bug("DoIO() called\n"));
 291     }
 292
 293 #ifdef __MORPHOS__
 294     if (!GfxBase)
 295     {
 296         struct ViewExtra *ve;
 297
 298         if (!(ve = GfxNew(VIEW_EXTRA_TYPE)))
 299         {
 300             GfxBase = NULL;
 301             DEBUG_OPEN(dprintf("LIB_Open: can't create view extra\n"));
 302             return FALSE;
 303         }
 304
 305         InitView(&IntuitionBase->ViewLord);
 306
 307         GfxAssociate(&IntuitionBase->ViewLord, ve);
 308
 309         GetPrivIBase(LIBBASE)->ViewLordExtra = ve;
 310
 311         GetPrivIBase(LIBBASE)->SpriteNum = -1;
 312
 313     }
 314 #endif
 315
 316     if (!GetPrivIBase(LIBBASE)->ScreenFont)
 317         GetPrivIBase(LIBBASE)->ScreenFont = GfxBase->DefaultFont;
 318
 319 #if 0 /* CHECKME: stegerg: backport, disabled */
 320     if (!(GetPrivIBase(LIBBASE)->TopazFont))
 321     {
 322         struct TextAttr textattr = {"topaz.font",8,0,FPF_ROMFONT};
 323         GetPrivIBase(LIBBASE)->TopazFont = OpenFont(&textattr);
 324     }
 325 #endif
 326
 327     if (!TimerBase)
 328     {
 329         if (!(TimerMP = CreateMsgPort()))
 330         {
 331             DEBUG_OPEN(dprintf("LIB_Open: can't create timer port\n"));
 332             return FALSE; /* don't close anything */
 333         }
 334
 335         if (!(TimerIO = (struct timerequest *)CreateIORequest(TimerMP, sizeof(struct timerequest))))
 336         {
 337             DEBUG_OPEN(dprintf("LIB_Open: can't create timer ioreq\n"));
 338             return FALSE; /* don't close anything */
 339         }
 340
 341         if (OpenDevice(TIMERNAME,UNIT_VBLANK, (struct IORequest *)TimerIO,0))
 342         {
 343             DEBUG_OPEN(dprintf("LIB_Open: can't open timer.device\n"));
 344             return FALSE; /* don't close anything */
 345         }
 346
 347         TimerBase = (struct Library *)TimerIO->tr_node.io_Device;
 348
 349         SetPrefs(GetPrivIBase(LIBBASE)->DefaultPreferences, sizeof(struct Preferences), FALSE);
 350     }
 351
 352 #if 0
 353     if (((struct Library *)LIBBASE)->lib_OpenCnt == 0)
 354     {
 355         //check if dos is opened!!!
 356         ((struct DosLibrary *)DOSBase)->dl_IntuitionBase =
 357             (struct Library *)LIBBASE;
 358
 359         /* Install intuition's version of DisplayError() that puts up
 360          a requester with Retry/Cancel options */
 361         GetPrivIBase(LIBBASE)->OldDisplayErrorFunc =
 362             SetFunction(DOSBase, -81*LIB_VECTSIZE,
 363                         AROS_SLIB_ENTRY(DisplayError, Intuition));
 364     }
 365 #else
 366 # ifdef SKINS
 367     if (((struct Library *)LIBBASE)->lib_OpenCnt == 0)
 368     {
 369         InitSkinManager(IntuitionBase);
 370     }
 371 # endif
 372 #endif
 373
 374     /* FIXME: no cleanup routines for MenuHandler task */
 375     if (!GetPrivIBase(LIBBASE)->MenuHandlerPort)
 376     {
 377         if (!InitDefaultMenuHandler(LIBBASE))
 378             return FALSE;
 379     }
 380
 381     /* FIXME: no cleanup routines for ScreennotifyHandler task */
 382     if (!GetPrivIBase(LIBBASE)->ScreenNotifyReplyPort)
 383     {
 384         if (!InitDefaultScreennotifyHandler(LIBBASE))
 385             return FALSE;
 386     }
 387
 388 #ifdef INTUITION_NOTIFY_SUPPORT
 389     /* Add screennotify.library base if not there yet - Piru
 390      */
 391     if (!GetPrivIBase(LIBBASE)->ScreenNotifyBase)
 392     {
 393         GetPrivIBase(LIBBASE)->ScreenNotifyBase = sn_Init(IntuitionBase);
 394     }
 395
 396 # if 0 /* not finished yet - Piru */
 397     /* Add notifyintuition.library base if not there yet - Piru
 398      */
 399     if (!GetPrivIBase(LIBBASE)->NotifyIntuitionBase)
 400     {
 401         GetPrivIBase(LIBBASE)->NotifyIntuitionBase = ni_Init(IntuitionBase);
 402     }
 403 # endif
 404 #endif
 405
 406     return TRUE;
 407 }
 408
 409 DECLARESET(CLASSESINIT);
 410 ADD2SET(InitRootClass, classesinit, -20);
 411 ADD2INITLIB(IntuitionInit, 0);
 412 ADD2OPENLIB(IntuitionOpen, 0);
 413