home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 10 / Fresh_Fish_10_2352.bin / new / dev / obero / oberon-a / source / library / oberonlib.mod < prev    next >
Text File  |  1995-06-29  |  1KB  |  72 lines
  1. (*************************************************************************
  2.  
  3.      $RCSfile: OberonLib.mod $
  4.   Description: Partial clone of AmigaOberon's OberonLib module.
  5.  
  6.    Created by: fjc (Frank Copeland)
  7.     $Revision: 1.3 $
  8.       $Author: fjc $
  9.         $Date: 1995/06/04 23:22:41 $
  10.  
  11.   Copyright © 1994, Frank Copeland.
  12.   This file is part of the Oberon-A Library.
  13.   See Oberon-A.doc for conditions of use and distribution.
  14.  
  15. *************************************************************************)
  16.  
  17. <* STANDARD- *>
  18.  
  19. (* $CLEAR OberonA *)
  20. (* $IF OberonA <* IF OberonA THEN *> *)
  21. MODULE OberonLib;
  22. (* $ELSE <* ELSE *> *)
  23. MODULE OAOberonLib;
  24. (* $END <* ELSE *> *)
  25.  
  26. IMPORT SYS := SYSTEM, Kernel, s := Sets;
  27.  
  28. TYPE
  29.   APTR = SYS.ADDRESS;
  30.   MessagePtr = APTR;
  31.  
  32. VAR
  33.   wbStarted -: BOOLEAN;
  34.   dosCmdLen -: LONGINT;
  35.   dosCmdBuf -: APTR;
  36.   wbenchMsg *: MessagePtr;
  37.   MemReqs   *: s.SET32;
  38.  
  39. CONST
  40.   memClear = 16;
  41.  
  42.  
  43. PROCEDURE New* ( VAR adr : APTR; size : LONGINT );
  44. BEGIN (* New *)
  45.   Kernel.Allocate (adr, size, MemReqs)
  46. END New;
  47.  
  48.  
  49. PROCEDURE Dispose* ( VAR adr : APTR );
  50. BEGIN (* Dispose *)
  51.   Kernel.Dispose (adr)
  52. END Dispose;
  53.  
  54.  
  55. PROCEDURE SetA5*;
  56. BEGIN (* SetA5 *)
  57. END SetA5;
  58.  
  59.  
  60. BEGIN
  61.   wbStarted := Kernel.fromWorkbench;
  62.   dosCmdBuf := Kernel.dosCmdBuf;
  63.   dosCmdLen := Kernel.dosCmdLen;
  64.   wbenchMsg := Kernel.WBenchMsg;
  65.   MemReqs := {memClear}
  66.  
  67. (* $IF OberonA <* IF OberonA THEN *> *)
  68. END OberonLib.
  69. (* $ELSE <* ELSE *> *)
  70. END OAOberonLib.
  71. (* $END <* ELSE *> *)
  72.