home *** CD-ROM | disk | FTP | other *** search
/ Fish 'n' More 2 / fishmore-publicdomainlibraryvol.ii1991xetec.iso / fish / libraries / lhlib / lhlib.mod < prev    next >
Text File  |  1991-01-15  |  1KB  |  40 lines
  1. (* Interface to the the lh.library by Christoph Teuber, Rheinstr. 65, 5600
  2. Wuppertal 1, Germany. *)
  3.  
  4. MODULE LhLib;
  5.  
  6. IMPORT e : Exec,
  7.        io,
  8.        s : SYSTEM;
  9.  
  10. TYPE LhBuffer * = STRUCT
  11.       lhSrc * : e.ADDRESS;
  12.       lhSrcSize * : LONGINT;
  13.       lhDst * : e.ADDRESS;
  14.       lhDstSize * : LONGINT;
  15.       lhAux * : e.ADDRESS;
  16.       lhAuxSize * : e.ADDRESS;
  17.       lhReserved * : LONGINT;
  18.    END;
  19.  
  20.      LhBufferPtr * = POINTER TO LhBuffer;
  21.  
  22. VAR LhBase * : e.LibraryPtr;
  23.  
  24. PROCEDURE CreateBuffer * {LhBase, -30} (OnlyDecode {0}:BOOLEAN):LhBufferPtr;
  25. PROCEDURE DeleteBuffer * {LhBase, -36} (Buffer {8}:LhBufferPtr);
  26. PROCEDURE LhEncode * {LhBase, -42} (Buffer {8}:LhBufferPtr): LONGINT;
  27. PROCEDURE LhDecode * {LhBase, -48} (Buffer {8}:LhBufferPtr): LONGINT;
  28.  
  29. BEGIN  (* LhLib *)
  30.  LhBase := e.OpenLibrary ("lh.library", 0);
  31.  IF LhBase = NIL THEN
  32.   io.WriteString ("Ich bin ja nicht anspruchsvoll aber die lh.library brauch ich doch.\n");
  33.   HALT(0);
  34.  END;
  35.  
  36. CLOSE
  37.  IF LhBase#NIL THEN e.CloseLibrary(LhBase) END;
  38.  
  39. END LhLib.
  40.