home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / libraries / amigaguide.h next >
Encoding:
Text File  |  1994-07-25  |  4.4 KB  |  186 lines
  1. {$if not def LIBRARIES_AMIGAGUIDE_H} CONST LIBRARIES_AMIGAGUIDE_H=1;
  2.  
  3. { ************************************************************************
  4.   ** KickPascal-Include-Datei "libraries/amigaguide.h" zu Kickstart 3.0 **
  5.   ************************************************************************ }
  6.  
  7. {$if not def EXEC_LISTS_H;incl "exec/lists.h";endif}
  8. {$if not def EXEC_NODES_H;incl "exec/nodes.h";endif}
  9. {$if not def EXEC_SEMAPHORES_H;incl "exec/semaphores.h";endif}
  10. {$if not def INTUITION_INTUITION_H;incl "intuition/intuition.h";endif}
  11. {$if not def INTUITION_SCREENS_H;incl "intuition/screens.h";endif}
  12. {$if not def INTUITION_CLASSUSR_H;incl "intuition/classusr.h";endif}
  13. {$if not def DOS_DOS_H;incl "dos/dos.h";endif}
  14. {$if not def UTILITY_TAGITEM_H;incl "utility/tagitem.h";endif}
  15.  
  16. {$if not def APSH_TOOL_ID}
  17.  
  18. CONST
  19.  APSH_TOOL_ID = 11000;
  20.  StartupMsgID           = (APSH_TOOL_ID+1);
  21.  LoginToolID            = (APSH_TOOL_ID+2);
  22.  LogoutToolID           = (APSH_TOOL_ID+3);
  23.  ShutdownMsgID          = (APSH_TOOL_ID+4);
  24.  ActivateToolID         = (APSH_TOOL_ID+5);
  25.  DeactivateToolID       = (APSH_TOOL_ID+6);
  26.  ActiveToolID           = (APSH_TOOL_ID+7);
  27.  InactiveToolID         = (APSH_TOOL_ID+8);
  28.  ToolStatusID           = (APSH_TOOL_ID+9);
  29.  ToolCmdID              = (APSH_TOOL_ID+10);
  30.  ToolCmdReplyID         = (APSH_TOOL_ID+11);
  31.  ShutdownToolID         = (APSH_TOOL_ID+12);
  32.  
  33. {$endif}
  34.  
  35. CONST
  36.  AGA_Dummy      = (TAG_USER);
  37.  AGA_Path       = (AGA_Dummy + 1);
  38.  AGA_XRefList   = (AGA_Dummy + 2);
  39.  AGA_Activate   = (AGA_Dummy + 3);
  40.  AGA_Context    = (AGA_Dummy + 4);
  41.  AGA_HelpGroup  = (AGA_Dummy + 5);
  42.  
  43. TYPE AMIGAGUIDECONTEXT = Ptr;
  44.  
  45. TYPE
  46.  p_AmigaGuideMsg = ^AmigaGuideMsg;
  47.  AmigaGuideMsg = RECORD
  48.   agm_Msg       : Message;
  49.   agm_Type      : Long;
  50.   agm_Data      : Ptr;
  51.   agm_DSize     : Long;
  52.   agm_DType     : Long;
  53.   agm_Pri_Ret   : Long;
  54.   agm_Sec_Ret   : Long;
  55.   agm_System1   : Ptr;
  56.   agm_System2   : Ptr;
  57.  end;
  58.  
  59.  p_NewAmigaGuide = ^NewAmigaGuide;
  60.  NewAmigaGuide = RECORD
  61.   nag_Lock      : BPTR;
  62.   nag_Name      : Str;
  63.   nag_Screen    : p_Screen;
  64.   nag_PubScreen : Str;
  65.   nag_HostPort  : Str;
  66.   nag_ClientPort: Str;
  67.   nag_BaseName  : Str;
  68.   nag_Flags     : Long;
  69.   nag_Context   : Ptr;
  70.   nag_Node      : Str;
  71.   nag_Line      : LongInt;
  72.   nag_Extens    : p_TagItem;
  73.   nag_Client    : Ptr;
  74.  end;
  75.  
  76. CONST
  77.  HTF_LOAD_INDEX = $00001;
  78.  HTF_LOAD_ALL   = $00002;
  79.  HTF_CACHE_NODE = $00004;
  80.  HTF_CACHE_DB   = $00008;
  81.  HTF_UNIQUE     = $08000;
  82.  HTF_NOACTIVATE = $10000;
  83.  
  84.  HTFC_SYSGADS   = $80000000;
  85.  
  86.  HTH_OPEN       = 0;
  87.  HTH_CLOSE      = 1;
  88.  
  89.  HTERR_NOT_ENOUGH_MEMORY        = 100;
  90.  HTERR_CANT_OPEN_DATABASE       = 101;
  91.  HTERR_CANT_FIND_NODE           = 102;
  92.  HTERR_CANT_OPEN_NODE           = 103;
  93.  HTERR_CANT_OPEN_WINDOW         = 104;
  94.  HTERR_INVALID_COMMAND          = 105;
  95.  HTERR_CANT_COMPLETE            = 106;
  96.  HTERR_PORT_CLOSED              = 107;
  97.  HTERR_CANT_CREATE_PORT         = 108;
  98.  HTERR_KEYWORD_NOT_FOUND        = 113;
  99.  
  100. TYPE
  101.  p_XRef = ^XRef;
  102.  XRef = RECORD
  103.   xr_Node       : Node;
  104.   xr_Pad        : Word;
  105.   xr_DF         : Ptr;
  106.   xr_File       : Str;
  107.   xr_Name       : Str;
  108.   xr_Line       : LongInt;
  109.  end;
  110.  
  111. CONST
  112.  XRSIZE = sizeof(XRef);
  113.  
  114.  XR_GENERIC     = 0;
  115.  XR_FUNCTION    = 1;
  116.  XR_COMMAND     = 2;
  117.  XR_INCLUDE     = 3;
  118.  XR_MACRO       = 4;
  119.  XR_STRUCT      = 5;
  120.  XR_FIELD       = 6;
  121.  XR_TYPEDEF     = 7;
  122.  XR_DEFINE      = 8;
  123.  
  124. TYPE
  125.  p_AmigaGuideHost = ^AmigaGuideHost; 
  126.  AmigaGuideHost = RECORD
  127.   agh_Dispatch  : Hook;
  128.   agh_Reserved  : Long;
  129.   agh_Flags     : Long;
  130.   agh_UseCnt    : Long;
  131.   agh_SystemData: Ptr;
  132.   agh_UserData  : Ptr;
  133.  end;
  134.  
  135. CONST
  136.  HM_FINDNODE    =  1;
  137.  HM_OPENNODE    =  2;
  138.  HM_CLOSENODE   =  3;
  139.  HM_EXPUNGE     = 10;
  140.  
  141. TYPE
  142.  p_opFindHost = ^opFindHost;
  143.  opFindHost = RECORD
  144.   MethodID      : Long;
  145.   ofh_Attrs     : p_TagItem;
  146.   ofh_Node      : Str;
  147.   ofh_TOC       : Str;
  148.   ofh_Title     : Str;
  149.   ofh_Next      : Str;
  150.   ofh_Prev      : Str;
  151.  end;
  152.  
  153.  p_opNodeIO = ^opNodeIO;
  154.  opNodeIO = RECORD
  155.   MethodID      : Long;
  156.   onm_Attrs     : p_TagItem;
  157.   onm_Node      : Str;
  158.   onm_FileName  : Str;
  159.   onm_DocBuffer : Str;
  160.   onm_BuffLen   : Long;
  161.   onm_Flags     : Long;
  162.  end; 
  163.  
  164. CONST
  165.  HTNF_KEEP    = $01;
  166.  
  167.  HTNF_RESERVED1    = $02;
  168.  HTNF_RESERVED2    = $04;
  169.  HTNF_ASCII    = $08;
  170.  HTNF_RESERVED3    = $10;
  171.  HTNF_CLEAN    = $20;
  172.  HTNF_DONE    = $40;
  173.  
  174.  HTNA_Screen    = (TAG_USER + 1);
  175.  HTNA_Pens      = (TAG_USER + 2);
  176.  HTNA_Rectangle = (TAG_USER + 3);
  177.  
  178. TYPE
  179.  p_opExpungeNode = ^opExpungeNode;
  180.  opExpungeNode = RECORD
  181.   MethodID      : Long;
  182.   oen_Attrs     : p_TagItem;
  183.  end;
  184.  
  185. {$endif}
  186.