home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Basic / MAXONB32.DMS / in.adf / Includes.lha / BH / BLib / RexxSupport.bas < prev    next >
Encoding:
BASIC Source File  |  1994-05-09  |  789 b   |  34 lines
  1. ''
  2. '' $Id: RexxSupport.bas,v 1.2 1994/05/09 13:07:33 alex Rel $
  3. ''
  4. '' BASIC bindings to Amiga.lib Rexx functions
  5. ''
  6. '' (c) Copyright 1994 HiSoft
  7. ''
  8.  
  9. REM $INCLUDE BLib/RexxGlue.bas
  10.  
  11. FUNCTION CheckRexxMsg(BYVAL message&)
  12.     SHARED RexxGlue&()
  13.     STATIC r&
  14.  
  15.     CALL LOC VARPTR(RexxGlue&(0)), message&, VARPTR(r&)
  16.     CheckRexxMsg = r&
  17. END FUNCTION
  18.  
  19. FUNCTION GetRexxVar&(BYVAL message&, BYVAL varname&, bufpointer&)
  20.     SHARED RexxGlue&()
  21.     STATIC r&
  22.  
  23.     CALL LOC VARPTR(RexxGlue&(0)) + &hE, message&, varname&, VARPTR(bufpointer&), VARPTR(r&)
  24.     GetRexxVar& = r&
  25. END FUNCTION
  26.  
  27. FUNCTION SetRexxVar&(BYVAL message&, BYVAL varname&, BYVAL value&, BYVAL length&)
  28.     SHARED RexxGlue&()
  29.     STATIC r&
  30.  
  31.     CALL LOC VARPTR(RexxGlue&(0)) + &h1E, value&, length&, message&, varname&, VARPTR(r&)
  32.     SetRexxVar& = r&
  33. END FUNCTION
  34.