home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / amigaguide.lib next >
Encoding:
Text File  |  1994-07-25  |  1.8 KB  |  43 lines
  1. {$if not def AMIGAGUIDE_LIB_H} CONST AMIGAGUIDE_LIB_H=0;
  2.  
  3. { ****************************************************************
  4.   ** KickPascal-Include-Datei "amigaguide.lib" zu Kickstart 3.0 **
  5.   **************************************************************** }
  6.  
  7. {$if not def EXEC_PORTS_H;incl "exec/ports.h";endif}
  8. {$if not def DOS_DOS_H;incl "dos/dos.h";endif}
  9. {$if not def LIBRARIES_AMIGAGUIDE_H;incl "libraries/amigaguide.h";endif}
  10. {$if not def UTILITY_TAGITEM_H;incl "utility/tagitem.h";endif}
  11. {$if not def UTILITY_HOOKS_H;incl "utility/hooks.h";endif}
  12. {$if not def REXX_STORAGE_H;incl "rexx/storage.h";endif}
  13.  
  14.  
  15. VAR AmigaGuideBase : Ptr;
  16.  
  17. LIBRARY AmigaGuideBase :
  18.  
  19.  -30 : FUNCTION  AGARexxHost(A0:p_RexxMsg; A1:Str): LongInt;
  20.  -36 : FUNCTION  LockAmigaGuideBase(A0:Ptr): LongInt;
  21.  -42 : PROCEDURE UnlockAmigaGuideBase(D0:Long);
  22. { *** private Routine *** }
  23.  -54 : FUNCTION  OpenAmigaGuideA(A0:p_NewAmigaGuide; A1:p_TagItem): Ptr;
  24.  -60 : FUNCTION  OpenAmigaGuideAsyncA(A0:p_NewAmigaGuide; D0:p_TagItem): Ptr;
  25.  -66 : PROCEDURE CloseAmigaGuide(A0:Ptr);
  26.  -72 : FUNCTION  AmigaGuideSignal(A0:Ptr): Long;
  27.  -78 : FUNCTION  GetAmigaGuideMsg(A0:Ptr): p_AmigaGuideMsg;
  28.  -84 : PROCEDURE ReplyAmigaGuideMsg(A0:p_AmigaGuideMsg);
  29.  -90 : FUNCTION  SetAmigaGuideContextA(A0:Ptr; D0:Long; D1:p_TagItem): LongInt;
  30.  -96 : FUNCTION  SendAmigaGuideContextA(A0:Ptr; D0:p_TagItem): LongInt;
  31. -102 : FUNCTION  SendAmigaGuideCmdA(A0:Ptr; D0:Str; D1:p_TagItem): LongInt;
  32. -108 : FUNCTION  SetAmigaGuideAttrsA(A0:Ptr; A1:p_TagItem): LongInt;
  33. -114 : FUNCTION  GetAmigaGuideAttr(D0:Tag; A0:Ptr; A1:Long): LongInt;
  34. { *** 3 private Routinen *** }
  35. -138 : FUNCTION  AddAmigaGuideHostA(A0:p_Hook; D0:Str; A1:p_TagItem): Ptr;
  36. -144 : FUNCTION  RemoveAmigaGuideHostA(A0:Ptr; A1:p_TagItem): LongInt;
  37. { *** 10 private Routinen *** }
  38. -210 : FUNCTION  GetAmigaGuideString(D0:LongInt): Str;
  39.  
  40. end;
  41.  
  42. {$endif}
  43.