home *** CD-ROM | disk | FTP | other *** search
/ AMIGA PD 1 / AMIGA-PD-1.iso / Programme_zum_Heft / Programmieren / Kurztests / PascalPCQ / Include / Workbench / Icon.i next >
Text File  |  1990-08-28  |  1KB  |  51 lines
  1. {
  2.     Icon.i for PCQ Pascal
  3.  
  4.     external declarations for workbench support library
  5. }
  6.  
  7. Const
  8.  
  9. {*******************************************************************
  10. *
  11. * library structures
  12. *
  13. *******************************************************************}
  14.  
  15.  
  16.     ICONNAME        = "icon.library";
  17.  
  18. var
  19.     IconBase    : Address;
  20.  
  21. Function AddFreeList(free : Address; mem : Address; len : Integer) : Boolean;
  22.     External;
  23.     { free is a FreeListPtr }
  24.  
  25. Procedure BumpRevision(newbuf, oldname : String);
  26.     External;
  27.  
  28. Function FindToolType(toolTypeArray : Address; typeName : String) : String;
  29.     External;
  30.     { toolTypeArray is a pointer to an array of String }
  31.  
  32. Procedure FreeDiskObject(diskobj : Address);
  33.     External;
  34.     { diskobj should be a DiskObjectPtr }
  35.  
  36. Procedure FreeFreeList(free : Address);
  37.     External;
  38.     { free is a FreeListPtr }
  39.  
  40. Function GetDiskObject(name : String) : Address;
  41.     External;
  42.     { actually returns a DiskObjectPtr }
  43.  
  44. Function MatchToolValue(typeString, value : String) : Boolean;
  45.     External;
  46.  
  47. Function PutDiskObject(name : String; diskobj : Address) : Boolean;
  48.     External;
  49.     { diskobj should be a DiskObjectPtr }
  50.  
  51.