pruw1_C_wrapper.bas

Go to the documentation of this file.

#INCLUDE ONCE "BBB/pruio.bi"
' driver header file
#include ONCE "pruw1.bi"


FUNCTION pruw1_new CDECL ALIAS "pruw1_new"( _
  BYVAL P AS PruIo PTR, _
  BYVAL B AS Uint8, _
  BYVAL M AS Uint8) AS PruW1 PTR EXPORT

  RETURN NEW PruW1(P, B, M)
END FUNCTION


SUB pruw1_destroy CDECL ALIAS "pruw1_destroy"( _
    BYVAL W1 AS PruW1 PTR) EXPORT

  IF W1 THEN DELETE W1
END SUB


FUNCTION pruw1_scanBus CDECL ALIAS "pruw1_scanBus"( _
  BYVAL W1 AS PruW1 PTR, _
  BYVAL SearchType AS UInt8 = &hF0)AS ZSTRING PTR EXPORT

  RETURN W1->scanBus(SearchType)
END FUNCTION


SUB pruw1_sendByte CDECL ALIAS "pruw1_sendByte"( _
  BYVAL W1 AS PruW1 PTR, _
  BYVAL V AS UInt8) EXPORT

  W1->sendByte(V)
END SUB


SUB pruw1_sendRom CDECL ALIAS "pruw1_sendRom"( _
  BYVAL W1 AS PruW1 PTR, _
  BYVAL V AS UInt64) EXPORT

  W1->sendRom(V)
END SUB


FUNCTION pruw1_recvBlock CDECL ALIAS "pruw1_recvBlock"( _
  BYVAL W1 AS PruW1 PTR, _
  BYVAL N AS UInt8) AS UInt8 EXPORT

  RETURN W1->recvBlock(N)
END FUNCTION


FUNCTION pruw1_recvByte CDECL ALIAS "pruw1_recvByte"( _
  BYVAL W1 AS PruW1 PTR) AS UInt8 EXPORT

  RETURN W1->recvByte()
END FUNCTION


FUNCTION pruw1_getIn CDECL ALIAS "pruw1_getIn"( _
  BYVAL W1 AS PruW1 PTR) AS UInt8 EXPORT

  RETURN W1->getIn()
END FUNCTION


FUNCTION pruw1_resetBus CDECL ALIAS "pruw1_resetBus"( _
  BYVAL W1 AS PruW1 PTR) AS UInt8 EXPORT

  RETURN W1->resetBus()
END FUNCTION


FUNCTION pruw1_checkPara CDECL ALIAS "pruw1_checkPara"( _
  BYVAL W1 AS PruW1 PTR) AS UInt8 EXPORT

  RETURN W1->checkPara()
END FUNCTION


FUNCTION pruw1_calcCrc CDECL ALIAS "pruw1_calcCrc"( _
  BYVAL W1 AS PruW1 PTR, _
  BYVAL N AS UInt8) AS UInt8 EXPORT

  RETURN W1->calcCrc(N)
END FUNCTION


FUNCTION pruw1_getSlotMax CDECL ALIAS "pruw1_getSlotMax"( _
  BYVAL W1 AS PruW1 PTR) AS Int32 EXPORT

  RETURN UBOUND(W1->Slots)
END FUNCTION


SUB pruw1_eraseSlots CDECL ALIAS "pruw1_eraseSlots"( _
  BYVAL W1 AS PruW1 PTR) EXPORT

  REDIM W1->Slots(-1)
END SUB


FUNCTION pruw1_getId CDECL ALIAS "pruw1_getId"( _
  BYVAL W1 AS PruW1 PTR, _
  BYVAL N AS UInt32) AS UInt64 EXPORT

  RETURN IIF(N > UBOUND(W1->Slots), 0, W1->Slots(N))
  'RETURN W1->Slots(N)
END FUNCTION