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

Update library source to V2.

Browse source
This commit is contained in:
David Brown 2016-06-16 14:56:42 +01:00
parent 4245c6e8b3
commit 7bdc53145e
46 changed files with 3141 additions and 3349 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/library/misc/MultiArrayRiders.Mod
View file

@ -20,7 +20,7 @@ email Patrick.Hunziker@unibas.ch
MODULE MultiArrayRiders; (** Patrick Hunziker, Basel, **)
(** Implements an array rider access mechanism for multidimensional arrays of arbitrary
dimensions defined in MultiArrays*)
IMPORT MultiArrays, Out:= Console, Input := Kernel;
IMPORT MultiArrays, Out := Console, Input := Platform;
CONST (** behaviour of array rider at end of array line;
not yet completely implemented.
The seemingly more exotic variants are especially useful in image processing *)

2
src/library/misc/MultiArrays.Mod
View file

@ -40,7 +40,7 @@ Patrick Hunziker,Basel.
email Patrick.Hunziker@unibas.ch
*)
(** Version 0.9, 19.1.2001 *)
IMPORT Out:= Console, Input:= Kernel; (* Import only needed for Demo purposes *)
IMPORT Out := Console, Input := Platform; (* Import only needed for Demo purposes *)
TYPE
SIntPtr* = POINTER TO ARRAY OF SHORTINT;

19
src/library/misc/crt.Mod
View file

@ -1,6 +1,6 @@
MODULE crt;
IMPORT vt100, Unix, Console,
IMPORT vt100, Platform, Console,
Strings; (* strings to remove later ? *)
CONST
@ -28,11 +28,6 @@ CONST
(* Add-in for blinking *)
Blink* = 128;
TYPE
PFdSet = POINTER TO Unix.FdSet;
VAR tmpstr : ARRAY 23 OF CHAR;
PROCEDURE EraseDisplay*;
BEGIN
vt100.ED(2);
@ -58,16 +53,8 @@ VAR tmpstr : ARRAY 23 OF CHAR;
vt100.DECTCEMh;
END cursoron;
PROCEDURE Delay*( ms : INTEGER);
VAR i : LONGINT;
tv : Unix.Timeval;
pfd : PFdSet;
BEGIN
tv.sec := 0;
tv.usec := ms * 1000;
pfd := NIL;
i := Unix.Select(0, pfd^, pfd^, pfd^, tv);
END Delay;
PROCEDURE Delay*(ms: INTEGER);
BEGIN Platform.Delay(ms) END Delay;
PROCEDURE GotoXY* (x, y: INTEGER);
BEGIN