workbench/libs/muimaster/support_classes.c

   1 /*
   2     Copyright © 2002-2003, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <string.h>
   7 #include <stdio.h>
   8
   9 #include <intuition/classes.h>
  10 #include <clib/alib_protos.h>
  11 #include <proto/exec.h>
  12 #include <proto/intuition.h>
  13 #include <proto/utility.h>
  14 #include <proto/muimaster.h>
  15
  16
  17 #include "mui.h"
  18 #include "support.h"
  19 #include "support_classes.h"
  20 #include "muimaster_intern.h"
  21
  22 /*#define MYDEBUG*/
  23 #include "debug.h"
  24
  25 static const struct __MUIBuiltinClass *const builtins[] = {
  26     &_MUI_Notify_desc,
  27     &_MUI_Family_desc,
  28     &_MUI_Application_desc,
  29     &_MUI_Window_desc,
  30     &_MUI_Area_desc,
  31     &_MUI_Rectangle_desc,
  32     &_MUI_Group_desc,
  33     &_MUI_Image_desc,
  34     &_MUI_Configdata_desc,
  35     &_MUI_Text_desc,
  36     &_MUI_Numeric_desc,
  37     &_MUI_Slider_desc,
  38     &_MUI_String_desc,
  39     ZUNE_BOOPSI_DESC & _MUI_Prop_desc,
  40     &_MUI_Scrollbar_desc,
  41     &_MUI_Register_desc,
  42     &_MUI_Menuitem_desc,
  43     &_MUI_Menu_desc,
  44     &_MUI_Menustrip_desc,
  45     ZUNE_VIRTGROUP_DESC ZUNE_SCROLLGROUP_DESC & _MUI_Scrollbutton_desc,
  46     &_MUI_Semaphore_desc,
  47     &_MUI_Dataspace_desc,
  48     &_MUI_Bitmap_desc,
  49     &_MUI_Bodychunk_desc,
  50     &_MUI_ChunkyImage_desc,
  51     &_MUI_Cycle_desc,
  52     &_MUI_Popstring_desc,
  53     &_MUI_Listview_desc,
  54     &_MUI_List_desc,
  55     ZUNE_POPASL_DESC & _MUI_Popobject_desc,
  56     ZUNE_GAUGE_DESC
  57         ZUNE_ABOUTMUI_DESC
  58         ZUNE_SETTINGSGROUP_DESC
  59         ZUNE_IMAGEADJUST_DESC
  60         ZUNE_POPIMAGE_DESC
  61         ZUNE_SCALE_DESC
  62         ZUNE_RADIO_DESC
  63         ZUNE_ICONLISTVIEW_DESC
  64         ZUNE_BALANCE_DESC
  65         ZUNE_COLORFIELD_DESC
  66         ZUNE_COLORADJUST_DESC
  67         ZUNE_IMAGEDISPLAY_DESC
  68         ZUNE_PENDISPLAY_DESC
  69         ZUNE_PENADJUST_DESC ZUNE_POPPEN_DESC & _MUI_Mccprefs_desc,
  70     ZUNE_FRAMEDISPLAY_DESC
  71         ZUNE_POPFRAME_DESC
  72         ZUNE_FRAMEADJUST_DESC
  73         ZUNE_VOLUMELIST_DESC
  74         ZUNE_DIRLIST_DESC
  75         ZUNE_NUMERICBUTTON_DESC
  76         ZUNE_POPLIST_DESC
  77         ZUNE_CRAWLING_DESC
  78         ZUNE_POPSCREEN_DESC
  79         ZUNE_LEVELMETER_DESC
  80         ZUNE_KNOB_DESC ZUNE_DTPIC_DESC ZUNE_PALETTE_DESC
  81 };
  82
  83 Class *ZUNE_GetExternalClass(ClassID classname,
  84     struct Library *MUIMasterBase)
  85 {
  86     struct Library *mcclib = NULL;
  87     struct MUI_CustomClass *mcc = NULL;
  88     CONST_STRPTR const *pathptr;
  89     TEXT s[255];
  90
  91     static CONST_STRPTR const searchpaths[] = {
  92         "Zune/%s",
  93         "Classes/Zune/%s",
  94         "MUI/%s",
  95         NULL,
  96     };
  97
  98     for (pathptr = searchpaths; *pathptr; pathptr++)
  99     {
 100         snprintf(s, 255, *pathptr, classname);
 101
 102         D(bug("Trying opening of %s\n", s));
 103
 104         if ((mcclib = OpenLibrary(s, 0)))
 105         {
 106             D(bug("Calling MCC Query. Librarybase at 0x%lx\n", mcclib));
 107
 108             mcc = MCC_Query(0);
 109             if (!mcc)
 110                 mcc = MCC_Query(1);     /* MCP? */
 111
 112             if (mcc)
 113             {
 114                 if (mcc->mcc_Class)
 115                 {
 116                     mcc->mcc_Module = mcclib;
 117                     D(bug("Successfully opened %s as external class\n",
 118                             classname));
 119
 120                     return mcc->mcc_Class;
 121                 }
 122             }
 123
 124             CloseLibrary(mcclib);
 125         }
 126     }
 127
 128     D(bug("Failed to open external class %s\n", classname));
 129     return NULL;
 130 }
 131
 132 /**************************************************************************/
 133 static Class *ZUNE_FindBuiltinClass(ClassID classid, struct Library *mb)
 134 {
 135     Class *cl = NULL, *cl2;
 136
 137     ForeachNode(&MUIMB(mb)->BuiltinClasses, cl2)
 138     {
 139         if (!strcmp(cl2->cl_ID, classid))
 140         {
 141             cl = cl2;
 142             break;
 143         }
 144     }
 145
 146     return cl;
 147 }
 148
 149 static Class *ZUNE_MakeBuiltinClass(ClassID classid,
 150     struct Library *MUIMasterBase)
 151 {
 152     int i;
 153     Class *cl = NULL;
 154     struct Library *mb = NULL;
 155
 156     D(bug("Makeing Builtinclass %s\n", classid));
 157
 158     for (i = 0; i < sizeof(builtins) / sizeof(builtins[0]); i++)
 159     {
 160         if (!strcmp(builtins[i]->name, classid))
 161         {
 162             Class *supercl;
 163             ClassID superclid;
 164
 165             /* This may seem strange, but opening muimaster.library here is
 166                done in order to increase muimaster.library's open count, so
 167                that it doesn't get expunged while some of its internal
 168                classes are still in use. We don't use muimaster.library
 169                directly but the name of the library stored inside the base,
 170                because the library can be compiled also as zunemaster.library
 171              */
 172
 173             mb = OpenLibrary(MUIMasterBase->lib_Node.ln_Name, 0);
 174
 175             /* It can't possibly fail, but well... */
 176             if (!mb)
 177                 break;
 178
 179             if (strcmp(builtins[i]->supername, ROOTCLASS) == 0)
 180             {
 181                 superclid = ROOTCLASS;
 182                 supercl = NULL;
 183             }
 184             else
 185             {
 186                 superclid = NULL;
 187                 supercl = MUI_GetClass(builtins[i]->supername);
 188
 189                 if (!supercl)
 190                     break;
 191             }
 192
 193             cl = MakeClass(builtins[i]->name, superclid, supercl,
 194                 builtins[i]->datasize, 0);
 195             if (cl)
 196             {
 197 #if defined(__MAXON__) || defined(__amigaos4__)
 198                 cl->cl_Dispatcher.h_Entry = builtins[i]->dispatcher;
 199 #else
 200                 cl->cl_Dispatcher.h_Entry = (HOOKFUNC) metaDispatcher;
 201                 cl->cl_Dispatcher.h_SubEntry = builtins[i]->dispatcher;
 202 #endif
 203                 /* Use this as a reference counter */
 204                 cl->cl_Dispatcher.h_Data = 0;
 205             }
 206
 207             break;
 208         }
 209     }
 210
 211     if (!cl && mb)
 212         CloseLibrary(mb);
 213
 214     return cl;
 215 }
 216
 217 Class *ZUNE_GetBuiltinClass(ClassID classid, struct Library * mb)
 218 {
 219     Class *cl;
 220
 221     ObtainSemaphore(&MUIMB(MUIMasterBase)->ZuneSemaphore);
 222
 223     cl = ZUNE_FindBuiltinClass(classid, mb);
 224
 225     if (!cl)
 226     {
 227         cl = ZUNE_MakeBuiltinClass(classid, mb);
 228
 229         if (cl)
 230         {
 231             ZUNE_AddBuiltinClass(cl, mb);
 232
 233             /* Increase the reference counter */
 234             cl->cl_Dispatcher.h_Data++;
 235         }
 236     }
 237
 238     ReleaseSemaphore(&MUIMB(MUIMasterBase)->ZuneSemaphore);
 239
 240     return cl;
 241 }
 242
 243 /*
 244  * metaDispatcher - puts h_Data in A6 and calls real dispatcher
 245  */
 246
 247 #ifdef __AROS__
 248 AROS_UFH3(IPTR, metaDispatcher,
 249     AROS_UFHA(struct IClass *, cl, A0),
 250     AROS_UFHA(Object *, obj, A2), AROS_UFHA(Msg, msg, A1))
 251 {
 252     AROS_USERFUNC_INIT
 253         return AROS_UFC4(IPTR, cl->cl_Dispatcher.h_SubEntry,
 254         AROS_UFPA(Class *, cl, A0),
 255         AROS_UFPA(Object *, obj, A2),
 256         AROS_UFPA(Msg, msg, A1),
 257         AROS_UFPA(APTR, cl->cl_Dispatcher.h_Data, A6));
 258
 259 AROS_USERFUNC_EXIT}
 260
 261 #else
 262 #ifdef __SASC
 263 __asm ULONG metaDispatcher(register __a0 struct IClass * cl,
 264     register __a2 Object * obj, register __a1 Msg msg)
 265 {
 266     __asm ULONG(*entry) (register __a0 struct IClass * cl,
 267         register __a2 Object * obj, register __a1 Msg msg) =
 268         (__asm ULONG(*)(register __a0 struct IClass *,
 269             register __a2 Object *,
 270             register __a1 Msg))cl->cl_Dispatcher.h_SubEntry;
 271
 272     putreg(REG_A6, (long)cl->cl_Dispatcher.h_Data);
 273     return entry(cl, obj, msg);
 274 }
 275 #endif
 276 #endif