home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / iffparse.lib < prev    next >
Encoding:
Text File  |  1994-07-25  |  3.1 KB  |  59 lines
  1. {$if not def IFFPARSE_LIB_H} CONST IFFPARSE_LIB_H=0;
  2.  
  3. { **************************************************************
  4.   ** KickPascal-Include-Datei "iffparse.lib" zu Kickstart 3.0 **
  5.   ************************************************************** }
  6.  
  7. {$if not def LIBRARIES_IFFPARSE_H;incl "libraries/iffparse.h";endif}
  8. {$if not def UTILITY_HOOKS_H;incl "utility/hooks.h";endif}
  9.  
  10. VAR IFFParse : Ptr;
  11.  
  12. LIBRARY IFFParse :
  13.  
  14. { **** Routinen ab V36 / Release 2.0  **** }
  15.  
  16.  -30 : FUNCTION AllocIFF : p_IFFHandle;
  17.  -36 : FUNCTION OpenIFF(A0:p_IFFHandle; D0:LongInt): LongInt;
  18.  -42 : FUNCTION ParseIFF(A0:p_IFFHandle; D0:LongInt): LongInt;
  19.  -48 : PROCEDURE CloseIFF(A0:p_IFFHandle);
  20.  -54 : PROCEDURE FreeIFF(A0:p_IFFHandle);
  21.  -60 : FUNCTION ReadChunkBytes(A0:p_IFFHandle; A1:Ptr; D0:LongInt): LongInt;
  22.  -66 : FUNCTION WriteChunkBytes(A0:p_IFFHandle; A1:Ptr; D0:LongInt): LongInt;
  23.  -72 : FUNCTION ReadChunkRecords(A0:p_IFFHandle; A1:Ptr; D0,D1:LongInt): LongInt;
  24.  -78 : FUNCTION WriteChunkRecords(A0:p_IFFHandle; A1:Ptr; D0,D1:LongInt): LongInt;
  25.  -84 : FUNCTION PushChunk(A0:p_IFFHandle; D0,D1,D2:LongInt): LongInt;
  26.  -90 : FUNCTION PopChunk(A0:p_IFFHandle): LongInt;
  27. { *** private Routine *** }
  28. -102 : FUNCTION EntryHandler(A0:p_IFFHandle; D0,D1,D2:LongInt; A1:p_Hook; A2:Ptr): LongInt;
  29. -108 : FUNCTION ExitHandler(A0:p_IFFHandle; D0,D1,D2:LongInt; A1:p_Hook; A2:Ptr): LongInt;
  30. -114 : FUNCTION PropChunk(A0:p_IFFHandle; D0,D1:LongInt): LongInt;
  31. -120 : FUNCTION PropChunks(A0:p_IFFHandle; A1:Ptr; D0:LongInt): LongInt;
  32. -126 : FUNCTION StopChunk(A0:p_IFFHandle; D0,D1:LongInt): LongInt;
  33. -132 : FUNCTION StopChunks(A0:p_IFFHandle; A1:Ptr; D0:LongInt): LongInt;
  34. -138 : FUNCTION CollectionChunk(A0:p_IFFHandle; D0,D1:LongInt): LongInt;
  35. -144 : FUNCTION CollectionChunks(A0:p_IFFHandle; A1:Ptr; D0:LongInt): LongInt;
  36. -150 : FUNCTION StopOnExit(A0:p_IFFHandle; D0,D1:LongInt): LongInt;
  37. -156 : FUNCTION FindProp(A0:p_IFFHandle; D0,D1:LongInt): p_StoredProperty;
  38. -162 : FUNCTION FindCollection(A0:p_IFFHandle; D0,D1:LongInt): p_CollectionItem;
  39. -168 : FUNCTION FindPropContext(A0:p_IFFHandle): p_ContextNode;
  40. -174 : FUNCTION CurrentChunk(A0:p_IFFHandle): p_ContextNode;
  41. -180 : FUNCTION ParentChunk(A0:p_ContextNode): p_ContextNode;
  42. -186 : FUNCTION AllocLocalItem(D0,D1,D2,D3:LongInt): p_LocalContextItem;
  43. -192 : FUNCTION LocalItemData(A0:p_LocalContextItem): Ptr;
  44. -198 : PROCEDURE SetLocalItemPurge(A0:p_LocalContextItem; A1:p_Hook);
  45. -204 : PROCEDURE FreeLocalItem(A0:p_LocalContextItem);
  46. -210 : FUNCTION FindLocalItem(A0:p_IFFHandle; D0,D1,D2:LongInt): p_LocalContextItem;
  47. -216 : FUNCTION StoreLocalItem(A0:p_IFFHandle; A1:p_LocalContextItem; D0:LongInt): LongInt;
  48. -222 : PROCEDURE StoreItemInContext(A0:p_IFFHandle; A1:p_LocalContextItem; A2:p_ContextNode);
  49. -228 : PROCEDURE InitIFF(A0:p_IFFHandle; D0:LongInt; A1:p_Hook);
  50. -234 : PROCEDURE InitIFFasDOS(A0:p_IFFHandle);
  51. -240 : PROCEDURE InitIFFasClip(A0:p_IFFHandle);
  52. -246 : FUNCTION OpenClipboard(D0:LongInt): p_ClipboardHandle;
  53. -252 : PROCEDURE CloseClipboard(A0:p_ClipboardHandle);
  54. -258 : FUNCTION GoodID(D0:LongInt): LongInt;
  55. -264 : FUNCTION GoodType(D0:LongInt): LongInt;
  56. -270 : FUNCTION IDtoStr(D0:LongInt; A0:Str): Str;
  57. END;
  58. {$endif}
  59.