From 417d04a99ad3ea3d80e2a6edd24afc4331dca137 Mon Sep 17 00:00:00 2001
From: Norayr Chilingarian <norayr@arnet.am>
Date: Wed, 23 Oct 2013 18:07:03 +0400
Subject: [PATCH] ulmPlotters

Former-commit-id: ea1429795c72223f66d6d0c87cafe52b2acffe23
---
 makefile                    |  1 +
 src/lib/ulm/ulmPlotters.Mod |  8 ++---
 src/lib/ulm/ulmSysTypes.Mod | 70 +++++++++++++++++++++++++++++++++++++
 3 files changed, 75 insertions(+), 4 deletions(-)
 create mode 100644 src/lib/ulm/ulmSysTypes.Mod

diff --git a/makefile b/makefile
index 1a55142f..f3dfec32 100644
--- a/makefile
+++ b/makefile
@@ -155,6 +155,7 @@ stage6:
 	$(VOCSTATIC) -sP ulmIEEE.Mod ulmMC68881.Mod ulmReals.Mod
 	$(VOCSTATIC) -sP ulmPrint.Mod
 	$(VOCSTATIC) -sP ulmTexts.Mod ulmStrings.Mod ulmConstStrings.Mod
+	$(VOCSTATIC) -sP ulmPlotters.Mod
 
 stage7:
 	#objects := $(wildcard *.o)
diff --git a/src/lib/ulm/ulmPlotters.Mod b/src/lib/ulm/ulmPlotters.Mod
index 0e71773d..59ee292d 100644
--- a/src/lib/ulm/ulmPlotters.Mod
+++ b/src/lib/ulm/ulmPlotters.Mod
@@ -26,9 +26,9 @@
    ----------------------------------------------------------------------------
 *)
 
-MODULE Plotters;
+MODULE ulmPlotters;
 
-   IMPORT Events, Objects, Resources, Services, SYS := SYSTEM;
+   IMPORT Events := ulmEvents, Objects := ulmObjects, Resources := ulmResources, Services := ulmServices, SYS := ulmSYSTEM;
 
    TYPE
       Plotter* = POINTER TO PlotterRec;
@@ -116,7 +116,7 @@ MODULE Plotters;
       Services.CreateType(plotterType, "Plotters.Plotter", "");
    END InitModule;
 
-   PROCEDURE ^ Close(plotter: Plotter);
+   PROCEDURE ^ Close*(plotter: Plotter);
 
    PROCEDURE TerminationHandler(event: Events.Event);
       VAR
@@ -265,4 +265,4 @@ MODULE Plotters;
 
 BEGIN
    InitModule;
-END Plotters.
+END ulmPlotters.
diff --git a/src/lib/ulm/ulmSysTypes.Mod b/src/lib/ulm/ulmSysTypes.Mod
new file mode 100644
index 00000000..28ea36d7
--- /dev/null
+++ b/src/lib/ulm/ulmSysTypes.Mod
@@ -0,0 +1,70 @@
+(* Ulm's Oberon Library
+   Copyright (C) 1989-1994 by University of Ulm, SAI, D-89069 Ulm, Germany
+   ----------------------------------------------------------------------------
+   Ulm's Oberon Library is free software; you can redistribute it
+   and/or modify it under the terms of the GNU Library General Public
+   License as published by the Free Software Foundation; either version
+   2 of the License, or (at your option) any later version.
+
+   Ulm's Oberon Library is distributed in the hope that it will be
+   useful, but WITHOUT ANY WARRANTY; without even the implied warranty
+   of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+   Library General Public License for more details.
+
+   You should have received a copy of the GNU Library General Public
+   License along with this library; if not, write to the Free Software
+   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+   ----------------------------------------------------------------------------
+   E-mail contact: oberon@mathematik.uni-ulm.de
+   ----------------------------------------------------------------------------
+   $Id: SysTypes.om,v 1.1 1994/02/23 08:01:38 borchert Exp $
+   ----------------------------------------------------------------------------
+   $Log: SysTypes.om,v $
+   Revision 1.1  1994/02/23  08:01:38  borchert
+   Initial revision
+
+   ----------------------------------------------------------------------------
+   AFB 9/89
+   ----------------------------------------------------------------------------
+*)
+
+MODULE SysTypes;
+
+   IMPORT Types;
+
+   TYPE
+      Address* = Types.Address;
+      UntracedAddress* = Types.UntracedAddress;
+      Count* = Types.Count;
+      Size* = Types.Size;
+      Byte* = Types.Byte;
+
+      File* = INTEGER;
+      Offset* = LONGINT;
+      Device* = INTEGER;
+      Inode* = LONGINT;
+      Time* = LONGINT;
+
+      Word* = INTEGER; (* must have the size of C's int-type *)
+
+   (* Note: linux supports wait4 but not waitid, i.e. these
+    * constants aren't needed. *)
+   (* 
+   CONST
+      (* possible values of the idtype parameter (4 bytes),
+	 see <sys/procset.h>
+      *)
+      idPid = 0; (* a process identifier *)
+      idPpid = 1; (* a parent process identifier *)
+      idPgid = 2; (* a process group (job control group) identifier *)
+      idSid = 3; (* a session identifier *)
+      idCid = 4; (* a scheduling class identifier *)
+      idUid = 5; (* a user identifier *)
+      idGid = 6; (* a group identifier *)
+      idAll = 7; (* all processes *)
+      idLwpid = 8; (* an LWP identifier *)
+   TYPE
+      IdType = INTEGER; (* idPid .. idLwpid *)
+   *)
+
+END SysTypes.