home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / languages / obrn-a_1.5_lib.lha / oberon-a / source2.lha / Source / Library / OberonLib.mod < prev    next >
Encoding:
Text File  |  1995-01-26  |  1.5 KB  |  74 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.2 $
  8.       $Author: fjc $
  9.         $Date: 1995/01/26 00:40:27 $
  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- *> <* INITIALISE- *> <* MAIN- *>
  18. <*$ CaseChk-  IndexChk- LongVars+ NilChk-  *>
  19. <*$ RangeChk- StackChk- TypeChk-  OvflChk- *>
  20.  
  21. (* $CLEAR OberonA *)
  22. (* $IF OberonA <* IF OberonA THEN *> *)
  23. MODULE OberonLib;
  24. (* $ELSE <* ELSE *> *)
  25. MODULE OAOberonLib;
  26. (* $END <* ELSE *> *)
  27.  
  28. IMPORT SYS := SYSTEM, Kernel, s := Sets;
  29.  
  30. TYPE
  31.   APTR = SYS.ADDRESS;
  32.   MessagePtr = APTR;
  33.  
  34. VAR
  35.   wbStarted -: BOOLEAN;
  36.   dosCmdLen -: LONGINT;
  37.   dosCmdBuf -: APTR;
  38.   wbenchMsg *: MessagePtr;
  39.   MemReqs   *: s.SET32;
  40.  
  41. CONST
  42.   memClear = 16;
  43.  
  44.  
  45. PROCEDURE New* ( VAR adr : APTR; size : LONGINT );
  46. BEGIN (* New *)
  47.   Kernel.Allocate (adr, size, MemReqs)
  48. END New;
  49.  
  50.  
  51. PROCEDURE Dispose* ( VAR adr : APTR );
  52. BEGIN (* Dispose *)
  53.   Kernel.Dispose (adr)
  54. END Dispose;
  55.  
  56.  
  57. PROCEDURE SetA5*;
  58. BEGIN (* SetA5 *)
  59. END SetA5;
  60.  
  61.  
  62. BEGIN
  63.   wbStarted := Kernel.fromWorkbench;
  64.   dosCmdBuf := Kernel.dosCmdBuf;
  65.   dosCmdLen := Kernel.dosCmdLen;
  66.   wbenchMsg := Kernel.WBenchMsg;
  67.   MemReqs := {memClear}
  68.  
  69. (* $IF OberonA <* IF OberonA THEN *> *)
  70. END OberonLib.
  71. (* $ELSE <* ELSE *> *)
  72. END OAOberonLib.
  73. (* $END <* ELSE *> *)
  74.