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