workbench/hidds/parallel/parallel_stubs.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Stubs for Parallel and ParallelUnit class
   6     Lang: english
   7 */
   8
   9 #ifndef AROS_USE_OOP
  10 #   define AROS_USE_OOP
  11 #endif
  12
  13 #include <aros/config.h>
  14 #include <exec/types.h>
  15 #include <exec/libraries.h>
  16
  17 #include <proto/oop.h>
  18
  19 #include <utility/tagitem.h>
  20
  21 #include <oop/oop.h>
  22 #include <oop/static_mid.h>
  23 #include <hidd/parallel.h>
  24
  25 //#include "parallel_intern.h"
  26
  27 #undef  SDEBUG
  28 #undef  DEBUG
  29 #define DEBUG 0
  30 #include <aros/debug.h>
  31
  32 #undef OOPBase
  33 #define OOPBase ((struct Library *)OOP_OCLASS(obj)->OOPBasePtr)
  34
  35 /* A small utility function for using varargs when setting attrs */
  36
  37 #ifndef OOP_SetAttrsTags
  38 #warning OOP_SetAttrsTags is defined in inline/oop.h
  39 IPTR OOP_SetAttrsTags(OOP_Object *obj, IPTR tag1, ...)
  40 {
  41     AROS_SLOWSTACKTAGS_PRE(tag1)
  42     retval = OOP_SetAttrs(obj, AROS_SLOWSTACKTAGS_ARG(tag1));
  43     AROS_SLOWSTACKTAGS_POST
  44
  45 }
  46 #endif
  47
  48 /***************************************************************/
  49
  50 OOP_Object * HIDD_Parallel_NewUnit(OOP_Object *obj, ULONG unitnum)
  51 {
  52     STATIC_MID;
  53     struct pHidd_Parallel_NewUnit p, *msg = &p;
  54
  55     if(!static_mid) static_mid = OOP_GetMethodID(IID_Hidd_Parallel, moHidd_Parallel_NewUnit);
  56
  57     p.mID      = static_mid;
  58     p.unitnum  = unitnum;
  59
  60     return((OOP_Object *) OOP_DoMethod(obj, (OOP_Msg) msg));
  61 }
  62 /***************************************************************/
  63
  64 VOID HIDD_Parallel_DisposeUnit(OOP_Object *obj, OOP_Object *unit)
  65 {
  66     STATIC_MID;
  67     struct pHidd_Parallel_DisposeUnit p, *msg = &p;
  68
  69     if(!static_mid) static_mid = OOP_GetMethodID(IID_Hidd_Parallel, moHidd_Parallel_DisposeUnit);
  70
  71     p.mID    = static_mid;
  72     p.unit   = unit;
  73
  74     OOP_DoMethod(obj, (OOP_Msg) msg);
  75 }
  76
  77
  78
  79
  80 /********************** Stubs for parallel unit **********************/
  81
  82 BOOL HIDD_ParallelUnit_Init(OOP_Object *obj, VOID * DataReceived, VOID * DataReceivedUserData, VOID * WriteData, VOID * WriteDataUserData)
  83 {
  84     STATIC_MID;
  85     struct pHidd_ParallelUnit_Init p, *msg = &p;
  86
  87     if(!static_mid) static_mid = OOP_GetMethodID(IID_Hidd_ParallelUnit, moHidd_ParallelUnit_Init);
  88
  89     p.mID                  = static_mid;
  90     p.DataReceived         = DataReceived;
  91     p.DataReceivedUserData = DataReceivedUserData;
  92     p.WriteData            = WriteData;
  93     p.WriteDataUserData    = WriteDataUserData;
  94
  95     return((BOOL) OOP_DoMethod(obj, (OOP_Msg) msg));
  96 }
  97 /***************************************************************/
  98
  99 ULONG HIDD_ParallelUnit_Write (OOP_Object *obj, UBYTE * data, ULONG length)
 100 {
 101     STATIC_MID;
 102     struct pHidd_ParallelUnit_Write p, *msg = &p;
 103
 104     if(!static_mid) static_mid = OOP_GetMethodID(IID_Hidd_ParallelUnit, moHidd_ParallelUnit_Write);
 105
 106     p.mID       = static_mid;
 107     p.Length    = length;
 108     p.Outbuffer = data;
 109
 110     return ((ULONG) OOP_DoMethod(obj, (OOP_Msg) msg));
 111 }
 112
 113 /***************************************************************/
 114
 115 VOID HIDD_ParallelUnit_Start (OOP_Object *obj)
 116 {
 117     STATIC_MID;
 118     struct pHidd_ParallelUnit_Start p, *msg = &p;
 119
 120     if(!static_mid) static_mid = OOP_GetMethodID(IID_Hidd_ParallelUnit, moHidd_ParallelUnit_Start);
 121
 122     p.mID       = static_mid;
 123
 124     ((VOID)OOP_DoMethod(obj, (OOP_Msg) msg));
 125 }
 126
 127 /***************************************************************/
 128
 129 VOID HIDD_ParallelUnit_Stop (OOP_Object *obj)
 130 {
 131     STATIC_MID;
 132     struct pHidd_ParallelUnit_Stop p, *msg = &p;
 133
 134     if(!static_mid) static_mid = OOP_GetMethodID(IID_Hidd_ParallelUnit, moHidd_ParallelUnit_Stop);
 135
 136     p.mID       = static_mid;
 137
 138     ((VOID) OOP_DoMethod(obj, (OOP_Msg) msg));
 139 }
 140
 141 /***************************************************************/
 142
 143 UWORD HIDD_ParallelUnit_GetStatus(OOP_Object *obj)
 144 {
 145     STATIC_MID;
 146     struct pHidd_ParallelUnit_GetStatus p, *msg = &p;
 147
 148     if (!static_mid) static_mid = OOP_GetMethodID(IID_Hidd_ParallelUnit, moHidd_ParallelUnit_GetStatus);
 149
 150     p.mID         = static_mid;
 151
 152     return ((UWORD)OOP_DoMethod(obj, (OOP_Msg) msg));
 153 }