home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / dev / m2 / CycloneModules.lha / modules / txt / IFFParseL.def < prev    next >
Text File  |  1996-11-26  |  4KB  |  104 lines
  1. DEFINITION MODULE IFFParseL {"iffparse.library",36};
  2.  
  3. (*$ Implementation- *)
  4.  
  5. (* Generated with FDToM2 by M. Timmermans *)
  6.  
  7. FROM SYSTEM IMPORT ADDRESS;
  8. IMPORT ed:ExecD,Reg;
  9.  
  10.  
  11. VAR
  12.  IFFParseBase : ed.LibraryPtr;
  13.  
  14.  
  15. CONST
  16.  
  17.  iffparseMinVersion=36;
  18.  iffparseName="iffparse.library";
  19.  
  20.  
  21. PROCEDURE AllocIFF():LONGINT; CODE -30;
  22.  
  23. PROCEDURE OpenIFF(iff{Reg.A0}:ADDRESS;rwMode{Reg.D0}:LONGINT):LONGINT; CODE -36;
  24.  
  25. PROCEDURE ParseIFF(iff{Reg.A0}:ADDRESS;control{Reg.D0}:LONGINT):LONGINT; CODE -42;
  26.  
  27. PROCEDURE CloseIFF(iff{Reg.A0}:ADDRESS):LONGINT; CODE -48;
  28.  
  29. PROCEDURE FreeIFF(iff{Reg.A0}:ADDRESS):LONGINT; CODE -54;
  30.  
  31. PROCEDURE ReadChunkBytes(iff{Reg.A0},buf{Reg.A1}:ADDRESS;numBytes{Reg.D0}:LONGINT):LONGINT; CODE -60;
  32.  
  33. PROCEDURE WriteChunkBytes(iff{Reg.A0},buf{Reg.A1}:ADDRESS;numBytes{Reg.D0}:LONGINT):LONGINT; CODE -66;
  34.  
  35. PROCEDURE ReadChunkRecords(iff{Reg.A0},buf{Reg.A1}:ADDRESS;bytesPerRecord{Reg.D0},numRecords{Reg.D1}:LONGINT):LONGINT; CODE -72;
  36.  
  37. PROCEDURE WriteChunkRecords(iff{Reg.A0},buf{Reg.A1}:ADDRESS;bytesPerRecord{Reg.D0},numRecords{Reg.D1}:LONGINT):LONGINT; CODE -78;
  38.  
  39. PROCEDURE PushChunk(iff{Reg.A0}:ADDRESS;type{Reg.D0},id{Reg.D1},size{Reg.D2}:LONGINT):LONGINT; CODE -84;
  40.  
  41. PROCEDURE PopChunk(iff{Reg.A0}:ADDRESS):LONGINT; CODE -90;
  42.  
  43. PROCEDURE EntryHandler(iff{Reg.A0}:ADDRESS;type{Reg.D0},id{Reg.D1},position{Reg.D2}:LONGINT;handler{Reg.A1},object{Reg.A2}:ADDRESS):LONGINT; CODE -102;
  44.  
  45. PROCEDURE ExitHandler(iff{Reg.A0}:ADDRESS;type{Reg.D0},id{Reg.D1},position{Reg.D2}:LONGINT;handler{Reg.A1},object{Reg.A2}:ADDRESS):LONGINT; CODE -108;
  46.  
  47. PROCEDURE PropChunk(iff{Reg.A0}:ADDRESS;type{Reg.D0},id{Reg.D1}:LONGINT):LONGINT; CODE -114;
  48.  
  49. PROCEDURE PropChunks(iff{Reg.A0},propArray{Reg.A1}:ADDRESS;numPairs{Reg.D0}:LONGINT):LONGINT; CODE -120;
  50.  
  51. PROCEDURE StopChunk(iff{Reg.A0}:ADDRESS;type{Reg.D0},id{Reg.D1}:LONGINT):LONGINT; CODE -126;
  52.  
  53. PROCEDURE StopChunks(iff{Reg.A0},propArray{Reg.A1}:ADDRESS;numPairs{Reg.D0}:LONGINT):LONGINT; CODE -132;
  54.  
  55. PROCEDURE CollectionChunk(iff{Reg.A0}:ADDRESS;type{Reg.D0},id{Reg.D1}:LONGINT):LONGINT; CODE -138;
  56.  
  57. PROCEDURE CollectionChunks(iff{Reg.A0},propArray{Reg.A1}:ADDRESS;numPairs{Reg.D0}:LONGINT):LONGINT; CODE -144;
  58.  
  59. PROCEDURE StopOnExit(iff{Reg.A0}:ADDRESS;type{Reg.D0},id{Reg.D1}:LONGINT):LONGINT; CODE -150;
  60.  
  61. PROCEDURE FindProp(iff{Reg.A0}:ADDRESS;type{Reg.D0},id{Reg.D1}:LONGINT):LONGINT; CODE -156;
  62.  
  63. PROCEDURE FindCollection(iff{Reg.A0}:ADDRESS;type{Reg.D0},id{Reg.D1}:LONGINT):LONGINT; CODE -162;
  64.  
  65. PROCEDURE FindPropContext(iff{Reg.A0}:ADDRESS):LONGINT; CODE -168;
  66.  
  67. PROCEDURE CurrentChunk(iff{Reg.A0}:ADDRESS):LONGINT; CODE -174;
  68.  
  69. PROCEDURE ParentChunk(contextNode{Reg.A0}:ADDRESS):LONGINT; CODE -180;
  70.  
  71. PROCEDURE AllocLocalItem(type{Reg.D0},id{Reg.D1},ident{Reg.D2},dataSize{Reg.D3}:LONGINT):LONGINT; CODE -186;
  72.  
  73. PROCEDURE LocalItemData(localItem{Reg.A0}:ADDRESS):LONGINT; CODE -192;
  74.  
  75. PROCEDURE SetLocalItemPurge(localItem{Reg.A0},purgeHook{Reg.A1}:ADDRESS):LONGINT; CODE -198;
  76.  
  77. PROCEDURE FreeLocalItem(localItem{Reg.A0}:ADDRESS):LONGINT; CODE -204;
  78.  
  79. PROCEDURE FindLocalItem(iff{Reg.A0}:ADDRESS;type{Reg.D0},id{Reg.D1},ident{Reg.D2}:LONGINT):LONGINT; CODE -210;
  80.  
  81. PROCEDURE StoreLocalItem(iff{Reg.A0},localItem{Reg.A1}:ADDRESS;position{Reg.D0}:LONGINT):LONGINT; CODE -216;
  82.  
  83. PROCEDURE StoreItemInContext(iff{Reg.A0},localItem{Reg.A1},contextNode{Reg.A2}:ADDRESS):LONGINT; CODE -222;
  84.  
  85. PROCEDURE InitIFF(iff{Reg.A0}:ADDRESS;flags{Reg.D0}:LONGINT;streamHook{Reg.A1}:ADDRESS):LONGINT; CODE -228;
  86.  
  87. PROCEDURE InitIFFasDOS(iff{Reg.A0}:ADDRESS):LONGINT; CODE -234;
  88.  
  89. PROCEDURE InitIFFasClip(iff{Reg.A0}:ADDRESS):LONGINT; CODE -240;
  90.  
  91. PROCEDURE OpenClipboard(unitNumber{Reg.D0}:LONGINT):LONGINT; CODE -246;
  92.  
  93. PROCEDURE CloseClipboard(clipHandle{Reg.A0}:ADDRESS):LONGINT; CODE -252;
  94.  
  95. PROCEDURE GoodID(id{Reg.D0}:LONGINT):LONGINT; CODE -258;
  96.  
  97. PROCEDURE GoodType(type{Reg.D0}:LONGINT):LONGINT; CODE -264;
  98.  
  99. PROCEDURE IDtoStr(id{Reg.D0}:LONGINT;buf{Reg.A0}:ADDRESS):LONGINT; CODE -270;
  100.  
  101.  
  102. END IFFParseL.
  103.  
  104.