arch/ppc-sam440/serial.hidd/SerialClass.c

   1 /*
   2     Copyright © 1995-2012, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Serial hidd class implementation.
   6     Lang: english
   7 */
   8
   9 #include <proto/exec.h>
  10 #include <proto/utility.h>
  11 #include <proto/oop.h>
  12 #include <aros/config.h>
  13 #include <aros/symbolsets.h>
  14 #include <exec/libraries.h>
  15
  16 #include <utility/tagitem.h>
  17 #include <hidd/serial.h>
  18
  19
  20 #include "serial_intern.h"
  21
  22 #include LC_LIBDEFS_FILE
  23
  24 #undef  SDEBUG
  25 #undef  DEBUG
  26 #define SDEBUG 0
  27 #define DEBUG 0
  28 #include <aros/debug.h>
  29
  30 /*** HIDDSerial::NewUnit() *********************************************************/
  31
  32 OOP_Object *PPC4xxSer__Hidd_Serial__NewUnit(OOP_Class *cl, OOP_Object *obj, struct pHidd_Serial_NewUnit *msg)
  33 {
  34   OOP_Object *su = NULL;
  35   struct HIDDSerialData * data = OOP_INST_DATA(cl, obj);
  36   ULONG unitnum = -1;
  37
  38   EnterFunc(bug("HIDDSerial::NewSerial()\n"));
  39
  40   D(bug("Request for unit number %d\n",msg->unitnum));
  41
  42 #if (AROS_SERIAL_DEBUG > 0)
  43     if (msg->unitnum == (AROS_SERIAL_DEBUG-1))
  44         ReturnPtr("HIDDSerial::NewSerial", Object *, su);
  45 #endif
  46
  47   switch (msg->unitnum)
  48   {
  49     case 0:
  50     case 1:
  51     case 2:
  52     case 3:
  53       unitnum = msg->unitnum;
  54       if (0 != (data->sd_UsedMask & (1 << unitnum)))
  55         unitnum = -1;
  56     break;
  57
  58     case -1: /* search for the next available unit */
  59     {
  60       unitnum = 0;
  61       while (unitnum < SER_MAX_UNITS)
  62       {
  63         if (0 == (data->sd_UsedMask & (1 << unitnum)))
  64           break;
  65         unitnum++;
  66       }
  67     }
  68     break;
  69
  70
  71   }
  72
  73   if (unitnum >= 0 && unitnum < SER_MAX_UNITS)
  74   {
  75     struct TagItem tags[] =
  76     {
  77 #define csd CSD(cl->UserData)
  78         {aHidd_SerialUnit_Unit, unitnum},
  79 #undef csd
  80         {TAG_DONE                      }
  81     };
  82
  83     su = OOP_NewObject(NULL, CLID_Hidd_SerialUnit, tags);
  84     data->sd_Unit[unitnum] = su;
  85     /*
  86     ** Mark it as used
  87     */
  88     data->sd_UsedMask |= (1 << unitnum);
  89   }
  90
  91   ReturnPtr("HIDDSerial::NewSerial", Object *, su);
  92 }
  93
  94
  95 /*** HIDDSerial::DisposeUnit() ****************************************************/
  96
  97 VOID PPC4xxSer__Hidd_Serial__DisposeUnit(OOP_Class *cl, OOP_Object *obj, struct pHidd_Serial_DisposeUnit *msg)
  98 {
  99   OOP_Object * su = msg->unit;
 100   struct HIDDSerialData * data = OOP_INST_DATA(cl, obj);
 101   EnterFunc(bug("HIDDSerial::DisposeUnit()\n"));
 102
 103   if(su)
 104   {
 105     ULONG unitnum = 0;
 106     while (unitnum < SER_MAX_UNITS)
 107     {
 108       if (data->sd_Unit[unitnum] == su)
 109       {
 110         D(bug("Disposing SerialUnit!\n"));
 111         OOP_DisposeObject(su);
 112         data->sd_Unit[unitnum] = NULL;
 113         data->sd_UsedMask &= ~(1 << unitnum);
 114         break;
 115       }
 116       unitnum++;
 117     }
 118
 119   }
 120   ReturnVoid("HIDDSerial::DisposeUnit");
 121 }
 122
 123
 124
 125 /*************************** Classes *****************************/
 126
 127 #define csd (&(LIBBASE->hdg_csd))
 128
 129 static int PPC4xxSer_InitAttrs(LIBBASETYPEPTR LIBBASE)
 130 {
 131     EnterFunc(bug("PPC4xxSer_InitAttrs\n"));
 132
 133     __IHidd_SerialUnitAB = OOP_ObtainAttrBase(IID_Hidd_SerialUnit);
 134
 135     ReturnInt("PPC4xxSer_InitAttrs", ULONG, __IHidd_SerialUnitAB != 0);
 136 }
 137
 138
 139 static int PPC4xxSer_ExpungeAttrs(LIBBASETYPEPTR LIBBASE)
 140 {
 141     EnterFunc(bug("PPC4xxSer_ExpungeAttrs\n"));
 142
 143     OOP_ReleaseAttrBase(IID_Hidd_SerialUnit);
 144
 145     ReturnInt("PPC4xxSer_ExpungeAttrs", int, TRUE);
 146 }
 147
 148 ADD2INITLIB(PPC4xxSer_InitAttrs, 0)
 149 ADD2EXPUNGELIB(PPC4xxSer_ExpungeAttrs, 0)