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

rename

Browse source 
Former-commit-id: 0571cd7841
This commit is contained in:
Norayr Chilingarian 2014-02-03 20:31:37 +04:00
parent 262a44b56c
commit 7cdca222af
32 changed files with 0 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/test/x11/0/makefile Normal file
View file

@ -0,0 +1,15 @@
#for old systems like RHEL4 use
#CFLAGS=-L/usr/X11R6/lib -lX11
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 *.o

29
src/test/x11/0/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.