workbench/classes/gadgets/gradientslider/library.c

   1
   2 /*
   3 **
   4 **      library code gradientslider
   5 **      AMIGA version
   6 **
   7 */
   8
   9 #include <exec/resident.h>
  10 #include <exec/initializers.h>
  11 #include <exec/execbase.h>
  12 #include <exec/libraries.h>
  13 #include <graphics/gfxbase.h>
  14
  15 #ifdef __GNUC__
  16 #include <inline/exec.h>
  17 #include <inline/intuition.h>
  18 #include <inline/dos.h>
  19 #else
  20 #include <pragma/exec_lib.h>
  21 #include <pragma/intuition_lib.h>
  22 #include <pragma/dos_lib.h>
  23
  24 #define REG( x, a )     register __## x a
  25 #define __regargs
  26 #endif
  27
  28 #ifdef __GNUC__
  29 #include "BoopsiStubs.h"
  30 #endif
  31
  32 #define GradientSliderBase      GradientSliderBase_intern
  33
  34 #include "gradientslider_intern.h"
  35
  36 /****************************************************************************/
  37
  38 #ifndef BPTR
  39 #define BPTR            ULONG
  40 #endif
  41
  42 /****************************************************************************/
  43
  44 STATIC struct Library *LibInit(REG(a0, ULONG seglist), REG(d0, struct GradientSliderBase_intern *ClassBase), REG(a6, struct Library *) );
  45 STATIC struct Library *LibOpen( REG(a6, struct GradientSliderBase_intern *ClassBase ) );
  46 STATIC ULONG LibExpunge( REG(a6, struct GradientSliderBase_intern *ClassBase ) );
  47 STATIC ULONG LibClose( REG(a6, struct GradientSliderBase_intern *ClassBase ) );
  48 STATIC LONG LibExtFunc(void);
  49
  50
  51 BOOL __regargs L_OpenLibs(struct GradientSliderBase_intern *);
  52 void __regargs L_CloseLibs(struct GradientSliderBase_intern *);
  53 Class * __regargs initClass (struct GradientSliderBase_intern *);
  54 Class  * ObtainClass(REG(a6, struct GradientSliderBase_intern *) );
  55
  56 extern ULONG   dispatch_gradientsliderclass(REG(a0, Class *), REG(a2, Object *), REG(a1, Msg ) );
  57
  58 /****************************************************************************/
  59
  60 UBYTE   LibName[] = NAME_STRING,
  61                 LibID[] = VERSION_STRING;
  62
  63 LONG    LibVersion = VERSION_NUMBER,
  64                 LibRevision = REVISION_NUMBER;
  65
  66 APTR LibVectors[] =
  67 {
  68         (APTR) LibOpen,
  69         (APTR) LibClose,
  70         (APTR) LibExpunge,
  71         (APTR) LibExtFunc,
  72         (APTR) ObtainClass,
  73         (APTR) -1L
  74 };
  75
  76 ULONG LibInitTab[] =
  77 {
  78         (ULONG) sizeof(struct GradientSliderBase_intern),
  79         (ULONG) LibVectors,
  80         (ULONG) NULL,
  81         (ULONG) LibInit
  82 };
  83
  84 struct Resident ROMTag =     /* do not change */
  85 {
  86         RTC_MATCHWORD,
  87         &ROMTag,
  88         &ROMTag + sizeof(ROMTag),
  89         RTF_AUTOINIT,
  90         VERSION_NUMBER,
  91         NT_LIBRARY,
  92         0,
  93         LibName,
  94         LibID,
  95         (APTR)&LibInitTab
  96 };
  97
  98 /****************************************************************************/
  99
 100 LONG LibExtFunc(void)
 101 {
 102         return(-1L);
 103 }
 104
 105 /****************************************************************************/
 106
 107 struct Library *
 108   __saveds LibInit( REG(a0, ULONG seglist), REG(d0, struct GradientSliderBase_intern *GradientSliderBase), REG(a6, struct Library *ExecBase ) )
 109 {
 110         SysBase = (struct ExecBase *) ExecBase;
 111         GradientSliderBase->seglist = seglist;
 112         GradientSliderBase->library.lib_Revision = REVISION_NUMBER;
 113
 114         if( ( ExecBase->lib_Version >= 39L ) && ( ((struct ExecBase *)SysBase)->AttnFlags & AFF_68020 ) )
 115         {
 116                 if(L_OpenLibs(GradientSliderBase))
 117                 {
 118                         if(GradientSliderBase->classptr = InitGradientSliderClass(GradientSliderBase))
 119                         {
 120                                 return((struct Library *)GradientSliderBase);
 121                         }
 122                 }
 123
 124                 L_CloseLibs( GradientSliderBase );
 125         }
 126
 127         FreeMem((BYTE *)GradientSliderBase-GradientSliderBase->library.lib_NegSize,
 128                 GradientSliderBase->library.lib_NegSize + GradientSliderBase->library.lib_PosSize);
 129
 130         ROMTag.rt_Version = VERSION_NUMBER;
 131
 132         return(NULL);
 133 }
 134
 135 /****************************************************************************/
 136
 137 struct Library * __saveds  LibOpen(REG(a6, struct GradientSliderBase_intern *GradientSliderBase ) )
 138 {
 139         GradientSliderBase->library.lib_Flags &= ~LIBF_DELEXP;
 140         GradientSliderBase->library.lib_OpenCnt++;
 141
 142         return((struct Library *)GradientSliderBase);
 143 }
 144
 145 /****************************************************************************/
 146
 147 ULONG __saveds LibExpunge(REG(a6, struct GradientSliderBase_intern *GradientSliderBase) )
 148 {
 149         if(!GradientSliderBase->library.lib_OpenCnt)
 150         {
 151                 if(GradientSliderBase->classptr)
 152                 {
 153                         if( ! FreeClass(GradientSliderBase->classptr) )
 154                         {
 155                                 AddClass( GradientSliderBase->classptr );
 156                                 return NULL;
 157                         }
 158                 }
 159
 160                 L_CloseLibs(GradientSliderBase);
 161
 162                 Remove((struct Node *)GradientSliderBase);
 163
 164                 FreeMem((BYTE *)GradientSliderBase-GradientSliderBase->library.lib_NegSize,
 165                   GradientSliderBase->library.lib_NegSize + GradientSliderBase->library.lib_PosSize);
 166
 167                 return( GradientSliderBase->seglist );
 168         }
 169         else
 170         {
 171                 GradientSliderBase->library.lib_Flags |= LIBF_DELEXP;
 172         }
 173
 174         return( NULL );
 175 }
 176
 177 /****************************************************************************/
 178
 179 ULONG __saveds  LibClose(REG(a6, struct GradientSliderBase_intern *GradientSliderBase) )
 180 {
 181         if(GradientSliderBase->library.lib_OpenCnt)
 182         {
 183                 GradientSliderBase->library.lib_OpenCnt--;
 184         }
 185
 186         return((!GradientSliderBase->library.lib_OpenCnt &&
 187                  GradientSliderBase->library.lib_Flags & LIBF_DELEXP)?LibExpunge(GradientSliderBase):NULL);
 188 }
 189
 190 /****************************************************************************/
 191
 192 struct GfxBase *GfxBase;
 193 struct IntuitionBase *IntuitionBase;
 194 struct Library *LayersBase;
 195 struct UtilityBase *UtilityBase;
 196 struct Library *CyberGfxBase;
 197
 198 BOOL __regargs L_OpenLibs( struct GradientSliderBase_intern *GradientSliderBase )
 199 {
 200         if(     ( GfxBase = OpenLibrary( "graphics.library", 39L ) ) &&
 201                 ( IntuitionBase = OpenLibrary( "intuition.library", 39L ) ) &&
 202                 ( LayersBase = OpenLibrary( "layers.library", 39L ) ) &&
 203                 ( UtilityBase = OpenLibrary( "utility.library", 39L ) ) )
 204         {
 205                 CyberGfxBase = OpenLibrary( "cybergraphics.library", 40L );
 206
 207                 return( TRUE );
 208         }
 209
 210         return FALSE;
 211 }
 212
 213 /****************************************************************************/
 214
 215 void __regargs L_CloseLibs( struct GradientSliderBase_intern *GradientSliderBase )
 216 {
 217         CloseLibrary( (struct Library *)GfxBase );
 218         CloseLibrary( (struct Library *)IntuitionBase );
 219         CloseLibrary( UtilityBase );
 220         CloseLibrary( CyberGfxBase );
 221         CloseLibrary( LayersBase );
 222 }
 223
 224 /****************************************************************************/
 225
 226 Class * __saveds ObtainClass(REG(a6, struct GradientSliderBase_intern *GradientSliderBase) )
 227 {
 228         return(GradientSliderBase->classptr);
 229 }
 230
 231 /****************************************************************************/
 232
 233 ULONG __saveds dispatch_gradientsliderclass( REG(a0, Class *cl), REG(a2, Object *o), REG(a1, Msg msg ) )
 234 {
 235     IPTR retval = 0UL;
 236
 237     switch(msg->MethodID)
 238     {
 239         case GM_HANDLEINPUT:
 240             retval = GradientSlider__GM_HANDLEINPUT(cl, o, (struct gpInput *)msg);
 241             break;
 242
 243         case OM_SET:
 244         case OM_UPDATE:
 245             retval = (IPTR)GradientSlider__OM_SET(cl, o, (struct opSet *)msg);
 246             break;
 247
 248         case GM_RENDER:
 249             GradientSlider__GM_RENDER(cl, o, (struct gpRender *)msg);
 250             break;
 251
 252         case GM_HITTEST:
 253             retval = GradientSlider__GM_HITTEST(cl, o, (struct gpHitTest *)msg);
 254             break;
 255
 256         case GM_GOACTIVE:
 257             retval = GradientSlider__GM_GOACTIVE(cl, o, (struct gpInput *)msg);
 258             break;
 259
 260         case OM_GET:
 261             retval = GradientSlider__OM_GET(cl, o, (struct opGet *)msg);
 262             break;
 263
 264         case OM_NEW:
 265             retval = (IPTR)GradientSlider__OM_NEW(cl, o, (struct opSet *)msg);
 266             break;
 267
 268         case OM_DISPOSE:
 269             GradientSlider__OM_DISPOSE(cl, o, msg);
 270             break;
 271
 272         case GM_DOMAIN:
 273             retval = GradientSlider__GM_DOMAIN(cl, o, (struct gpDomain *)msg);
 274             break;
 275
 276         default:
 277             retval = DoSuperMethodA(cl, o, msg);
 278             break;
 279
 280     } /* switch */
 281
 282     return (retval);
 283 }  /* dispatch_gradientsliderclass */
 284
 285 /***************************************************************************************************/
 286
 287 struct IClass *InitGradientSliderClass (struct GradientSliderBase_intern * GradientSliderBase)
 288 {
 289     struct IClass *cl = NULL;
 290
 291     if ((cl = MakeClass("gradientslider.gadget", GADGETCLASS, NULL, sizeof(struct GradientSliderData), 0)))
 292     {
 293         cl->cl_Dispatcher.h_Entry    = (HOOKFUNC)dispatch_gradientsliderclass;
 294         cl->cl_Dispatcher.h_SubEntry = NULL;
 295         cl->cl_UserData              = (IPTR)GradientSliderBase;
 296
 297         AddClass (cl);
 298     }
 299
 300     return (cl);
 301 }
 302
 303 /***************************************************************************************************/