vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-05 22:12:24 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

ulmPlotters

Browse source 
Former-commit-id: ea1429795c
This commit is contained in:
Norayr Chilingarian 2013-10-23 18:07:03 +04:00
parent 05ae3b3bfb
commit 417d04a99a
3 changed files with 75 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

1
makefile
View file

@ -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)

8
src/lib/ulm/ulmPlotters.Mod
View file

@ -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.

70
src/lib/ulm/ulmSysTypes.Mod Normal file
View file

@ -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.