home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / util / wb / picticon / source / mod / iff.e < prev    next >
Encoding:
Text File  |  1995-06-08  |  476 b   |  24 lines
  1. OPT MODULE
  2. OPT EXPORT
  3.  
  4. MODULE    'libraries/iffparse','iffparse'
  5.  
  6. PROC savevaluechunk(handle,form,chunk,longvalue)
  7.     DEF buffer
  8.     buffer:=New(4)
  9.     IF (buffer)
  10.         PushChunk(handle,form,chunk,4)
  11.             PutLong(buffer,longvalue)
  12.             WriteChunkBytes(handle,buffer,4)
  13.         PopChunk(handle)
  14.         Dispose(buffer)
  15.     ENDIF
  16. ENDPROC
  17.  
  18. PROC getvaluechunk(handle,form,chunk,longvalue)
  19.     DEF sp=NIL:PTR TO storedproperty
  20.     IF (sp:=FindProp(handle,form,chunk))
  21.         longvalue:=Long(sp.data)
  22.     ENDIF
  23. ENDPROC longvalue
  24.