home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / M2V11-1.LHA / modula / amiga / Rexx.mod < prev    next >
Encoding:
Modula Implementation  |  1993-11-22  |  807 b   |  37 lines
  1. (* @P- @B- *)
  2. IMPLEMENTATION MODULE Rexx ;
  3.  
  4. FROM SYSTEM IMPORT STRING ;
  5. IMPORT M2Lib ;
  6.  
  7. PROCEDURE LLOFFSET( rrp : RexxRsrcPtr ) : LONGINT ;
  8. BEGIN RETURN rrp^.rr_Arg1 ;
  9. END LLOFFSET ;
  10.  
  11. PROCEDURE LLVERS( rrp : RexxRsrcPtr ) : LONGINT ;
  12. BEGIN RETURN rrp^.rr_Arg2 ;
  13. END LLVERS ;
  14.  
  15. PROCEDURE CLVALUE( rrp : RexxRsrcPtr ) : STRING ;
  16. BEGIN RETURN STRING( rrp^.rr_Arg1 ) ;
  17. END CLVALUE ;
  18.  
  19. PROCEDURE IVALUE( nsPtr : NexxStrPtr ) : LONGINT ;
  20. BEGIN RETURN nsPtr^.ns_Ivalue ;
  21. END IVALUE ;
  22.  
  23. PROCEDURE ARG0( rmp : RexxMsgPtr) : STRING ;
  24. BEGIN RETURN rmp^.rm_Args[0] ;
  25. END ARG0 ;
  26.  
  27. PROCEDURE ARG1( rmp : RexxMsgPtr ) : STRING ;
  28. BEGIN RETURN rmp^.rm_Args[1] ;
  29. END ARG1 ;
  30.  
  31. PROCEDURE ARG2( rmp : RexxMsgPtr ) : STRING ;
  32. BEGIN RETURN rmp^.rm_Args[2] ;
  33. END ARG2 ;
  34.  
  35. BEGIN RexxSysBase := M2Lib.OpenLib( RXSNAME, VERSION )
  36. END Rexx.
  37.