workbench/classes/gadgets/colorwheel/library.c

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