home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / rexxsyslib.lib < prev    next >
Encoding:
Text File  |  1994-07-25  |  1.1 KB  |  32 lines
  1. {$if not def REXXSYSLIB_LIB_H} CONST REXXSYSLIB_LIB_H=0;
  2.  
  3. { ****************************************************************
  4.   ** KickPascal-Include-Datei "rexxsyslib.lib" zu Kickstart 3.0 **
  5.   **************************************************************** }
  6.  
  7. {$if not def REXX_RXSLIB_H;incl "rexx/rxslib.h";endif}
  8. {$if not def REXX_REXXIO_H;incl "rexx/rexxio.h";endif}
  9. {$if not def REXX_ERRORS_H;incl "rexx/errors.h";endif}
  10.  
  11. VAR RexxSysBase : Ptr;
  12.  
  13. LIBRARY RexxSysBase :
  14.  
  15. { **** Routinen ab V33 / Release 1.2  **** }
  16.  
  17. { *** 16 private Routinen *** }
  18. -126 : FUNCTION  CreateArgstring(A0:Str; D0:Long) : Str;
  19. -132 : PROCEDURE DeleteArgstring(A0:Str);
  20. -138 : FUNCTION  LengthArgstring(A0:Str): Long;
  21. -144 : FUNCTION  CreateRexxMsg(A0:p_MsgPort; A1:Str; D0:Str):p_RexxMsg;
  22. -150 : PROCEDURE DeleteRexxMsg(A0:p_RexxMsg);
  23. -156 : PROCEDURE ClearRexxMsg(A0:p_RexxMsg; D0:Long);
  24. -162 : FUNCTION  FillRexxMsg(A0:p_RexxMsg; D0,D1:Long): Boolean;
  25. -168 : FUNCTION  IsRexxMsg(A0:p_RexxMsg): Boolean;
  26. { *** 46 private Routinen *** }
  27. -450 : PROCEDURE LockRexxBase(D0:Long);
  28. -456 : PROCEDURE UnlockRexxBase(D0:Long);
  29. END;
  30.  
  31. {$endif}
  32.