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

XYplane and X wrappers added

Browse source
This commit is contained in:
Norayr Chilingarian 2014-01-29 23:59:31 +04:00
parent 4bacf7f752
commit 47c51986a1
17 changed files with 4666 additions and 410 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/test/X11/makefile Normal file
View file

@ -0,0 +1,15 @@
CFLAGS=-lX11
export CFLAGS
VOC = $(SETPATH) /opt/voc/bin/voc
all:
$(VOC) -m test.Mod
#$(VOC) -Cm test.Mod
#gcc -o test test.o -fPIC -g -I /opt/voc-1.0/src/lib/system/gnuc/x86_64 -I /opt/voc-1.0/lib/voc/obj -lVishapOberon -L. -L/opt/voc-1.0/lib -lX11
clean:
rm *.c
rm *.h
rm *.o
rm *.sym

29
src/test/X11/test.Mod Normal file
View file

@ -0,0 +1,29 @@
MODULE test;
IMPORT p := oocXYplane, Out := Console;
VAR ch : CHAR;
i : INTEGER;
BEGIN
p.Open;
(*p.Clear;*)
FOR i := 1 TO 555 DO
p.Dot(i,300 ,p.draw)
END;
(*
FOR i := 100 TO 500 DO
p.Dot(i,300 ,p.erase)
END;
*)
IF p.IsDot (5, 300) THEN Out.String("Yes") ELSE Out.String("No") END; Out.Ln;
IF p.IsDot (5, 500) THEN Out.String("Yes") ELSE Out.String("No") END; Out.Ln;
REPEAT
ch := p.Key();
UNTIL ch # 0X;
p.Close;
END test.