home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / pascal / lzw4p12.zip / LZW4P.PAS < prev    next >
Pascal/Delphi Source File  |  1993-02-14  |  485b  |  19 lines
  1. unit LZW4P;
  2.  
  3. interface
  4.  
  5. function InitLZW(AllocP : Pointer) : Integer;  (* Initializes LZW4P *)
  6. function TermLZW(FreeP : Pointer)  : Integer;  (* Terminates LZW4P *)
  7. function Compress(ReaderP, WriterP : Pointer) : Integer;  (* Compresses *)
  8. function Expand(ReaderP, WriterP   : Pointer) : Integer;  (* Expands *)
  9.  
  10. implementation
  11.  
  12. {$L LZW4PLIB}
  13.  
  14. function InitLZW;  external;
  15. function TermLZW;  external;
  16. function Compress; external;
  17. function Expand;   external;
  18.  
  19. end.