home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / OB3.2D4.DMS / in.adf / Interfaces / RexxSysLib.mod < prev    next >
Encoding:
Text File  |  1993-05-22  |  1.9 KB  |  46 lines
  1. (*-------------------------------------------------------------------------*)
  2. (*                                                                         *)
  3. (*  Amiga Oberon Interface Module:                    Date: 02-Nov-92      *)
  4. (*                                                                         *)
  5. (*   © 1992 by Fridtjof Siebert                                            *)
  6. (*                                                                         *)
  7. (*-------------------------------------------------------------------------*)
  8.  
  9. MODULE RexxSysLib;
  10.  
  11. IMPORT e * := Exec,
  12.        rx* := Rexx;
  13.  
  14. CONST
  15.   rexxsysName * = "rexxsyslib.library";
  16.  
  17. VAR
  18.   base * : rx.RxsLibPtr;
  19.  
  20. (*--- functions in V33 or higher (distributed as Release 1.2) ---*)
  21. (*----------- Check 'base#NIL' BEFORE you use these ! -----------*)
  22. PROCEDURE CreateArgstring * {base,-126}(string{8}: ARRAY OF CHAR;  length{0}: LONGINT): e.STRPTR;
  23. PROCEDURE DeleteArgstring * {base,-132}(argstring{8}: e.STRPTR);
  24. PROCEDURE LengthArgstring * {base,-138}(argstring{8}: e.STRPTR): LONGINT;
  25. PROCEDURE CreateRexxMsg   * {base,-144}(port{8}: e.MsgPortPtr;
  26.                                         extension{9}: ARRAY OF CHAR;
  27.                                         host{0}: ARRAY OF CHAR): rx.RexxMsgPtr;
  28. PROCEDURE DeleteRexxMsg   * {base,-150}(packet{8}: rx.RexxMsgPtr);
  29. PROCEDURE ClearRexxMsg    * {base,-156}(msgptr{8}: rx.RexxMsgPtr;
  30.                                         count{0}: LONGINT);
  31. PROCEDURE FillRexxMsg     * {base,-162}(msgptr{8}: rx.RexxMsgPtr;
  32.                                         count{0}: LONGINT;
  33.                                         mask{1}: SET): BOOLEAN;
  34. PROCEDURE IsRexxMsg       * {base,-168}(msgptr{8}: rx.RexxMsgPtr): BOOLEAN;
  35. PROCEDURE LockRexxBase    * {base,-450}(resource{0}: LONGINT);
  36. PROCEDURE UnlockRexxBase  * {base,-456}(resource{0}: LONGINT);
  37.  
  38. BEGIN
  39.   base := e.OpenLibrary(rexxsysName,33);
  40.  
  41. CLOSE
  42.   IF base#NIL THEN e.CloseLibrary(base) END;
  43.  
  44. END RexxSysLib.
  45.  
  46.