arch/all-unix/hidd/parallel/ParallelClass.c

   1 /*
   2     Copyright © 1995-2010, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Parallel hidd class implementation.
   6     Lang: english
   7 */
   8
   9 #define __OOP_NOATTRBASES__
  10
  11 #include <proto/exec.h>
  12 #include <proto/utility.h>
  13 #include <proto/oop.h>
  14 #include <exec/libraries.h>
  15
  16 #include <utility/tagitem.h>
  17 #include <hidd/parallel.h>
  18
  19 #include <aros/symbolsets.h>
  20
  21
  22 #include "parallel_intern.h"
  23
  24 #include LC_LIBDEFS_FILE
  25
  26 #undef  SDEBUG
  27 #undef  DEBUG
  28 #define SDEBUG 1
  29 #define DEBUG 1
  30 #include <aros/debug.h>
  31
  32
  33 /*static AttrBase HiddGCAttrBase;*/
  34
  35 static OOP_AttrBase HiddParallelUnitAB;
  36
  37 static struct OOP_ABDescr attrbases[] =
  38 {
  39     { IID_Hidd_ParallelUnit, &HiddParallelUnitAB },
  40     { NULL,     NULL }
  41 };
  42
  43 /*** HIDDParallel::NewUnit() *********************************************************/
  44
  45
  46 OOP_Object *UXPar__Hidd_Parallel__NewUnit(OOP_Class *cl, OOP_Object *obj,
  47                                           struct pHidd_Parallel_NewUnit *msg)
  48 {
  49     OOP_Object *su = NULL;
  50     struct HIDDParallelData * data = OOP_INST_DATA(cl, obj);
  51     ULONG unitnum = -1;
  52
  53     EnterFunc(bug("HIDDParallel::NewParallel()\n"));
  54
  55     D(bug("Request for unit number %d\n",msg->unitnum));
  56
  57     switch (msg->unitnum)
  58     {
  59     case 0:
  60     case 1:
  61     case 2:
  62         unitnum = msg->unitnum;
  63
  64         if (0 != (data->usedunits & (1 << unitnum)))
  65         {
  66             unitnum = -1;
  67         }
  68
  69         break;
  70
  71     case -1: /* search for the next available unit */
  72         unitnum = 0;
  73
  74         while (unitnum < PAR_MAX_UNITS)
  75         {
  76             if (0 == (data->usedunits & (1 << unitnum)))
  77             {
  78                 break;
  79             }
  80
  81             unitnum++;
  82         }
  83         break;
  84
  85
  86     }
  87
  88     if (unitnum >= 0 && unitnum < PAR_MAX_UNITS)
  89     {
  90         struct TagItem tags[] =
  91         {
  92             {aHidd_ParallelUnit_Unit, unitnum},
  93             {TAG_DONE                  }
  94         };
  95
  96         su = OOP_NewObject(NULL, CLID_Hidd_ParallelUnit, tags);
  97         data->ParallelUnits[unitnum] = su;
  98
  99         /*
 100         ** Mark it as used
 101         */
 102         data->usedunits |= (1 << unitnum);
 103     }
 104
 105     ReturnPtr("HIDDParallel::NewParallel", OOP_Object *, su);
 106 }
 107
 108
 109 /*** HIDDParallel::DisposeUnit() ****************************************************/
 110
 111 VOID UXPar__Hidd_Parallel__DisposeUnit(OOP_Class *cl, OOP_Object *obj,
 112                                        struct pHidd_Parallel_DisposeUnit *msg)
 113 {
 114     OOP_Object * pu = msg->unit;
 115     struct HIDDParallelData * data = OOP_INST_DATA(cl, obj);
 116
 117     EnterFunc(bug("HIDDParallel::DisposeUnit()\n"));
 118
 119     if(pu)
 120     {
 121         ULONG unitnum = 0;
 122
 123         while (unitnum < PAR_MAX_UNITS)
 124         {
 125             if (data->ParallelUnits[unitnum] == pu)
 126             {
 127                 D(bug("Disposing ParallelUnit!\n"));
 128                 OOP_DisposeObject(pu);
 129                 data->ParallelUnits[unitnum] = NULL;
 130                 data->usedunits &= ~(1 << unitnum);
 131                 break;
 132             }
 133
 134             unitnum++;
 135         }
 136     }
 137
 138     ReturnVoid("HIDDParallel::DisposeUnit");
 139 }
 140
 141
 142
 143 /*************************** Classes *****************************/
 144
 145 static int UXPar_InitAttrBases(LIBBASETYPEPTR LIBBASE)
 146 {
 147     return OOP_ObtainAttrBases(attrbases);
 148 }
 149
 150 static int UXPar_ExpungeAttrBases(LIBBASETYPEPTR LIBBASE)
 151 {
 152     OOP_ReleaseAttrBases(attrbases);
 153     return TRUE;
 154 }
 155
 156 ADD2INITLIB(UXPar_InitAttrBases, 0)
 157 ADD2EXPUNGELIB(UXPar_ExpungeAttrBases, 0)
 158
 159 ADD2LIBS("Devs:Drivers/unixio.hidd", 42, struct Library *, UnixIOBase)