newt binding, first demo - hello world application -- noch

src/test/newt/Makefile

@@ -0,0 +1,13 @@
+CFLAGS = "-lnewt"
+export CFLAGS
+
+VOC = /opt/voc/bin/voc
+
+all:
+	$(VOC) -s newt.Mod newttest.Mod -m
+
+clean:
+	rm *.h
+	rm *.c
+	rm *.o
+	rm *.sym

src/test/newt/newt.Mod

@@ -0,0 +1,43 @@
+MODULE newt;
+
+IMPORT SYSTEM;
+
+TYPE Int32* = INTEGER;
+     Int64* = LONGINT;
+
+PROCEDURE -Init*(): Int32
+   "newtInit()";
+
+PROCEDURE -Cls*()
+   "newtCls()";
+
+PROCEDURE -Finished*() : Int32
+   "newtFinished()";
+
+PROCEDURE -ResizeScreen*(redraw: Int32)
+   "newtResizeScreen(redraw)";
+
+PROCEDURE -WaitForKey*()
+   "newtWaitForKey()";
+
+PROCEDURE -ClearKeyBuffer*()
+   "newtClearKeyBuffer()";
+
+PROCEDURE -Delay*(i : Int32)
+   "newtDelay(i)";
+
+PROCEDURE -DrawRootText*(left, top: Int32; VAR text: ARRAY OF CHAR)
+   "newtDrawRootText(left, top, text)";
+
+PROCEDURE -PushHelpLine*(VAR text: ARRAY OF CHAR)
+   "newtPushHelpLine(text)";
+
+PROCEDURE -PopHelpLine*()
+   "newtPopHelpLine()";
+
+BEGIN
+
+
+
+
+END newt.

src/test/newt/newttest.Mod

@@ -0,0 +1,14 @@
+MODULE newttest;
+
+IMPORT newt;
+VAR i : newt.Int32;
+str : ARRAY 32 OF CHAR;
+BEGIN
+i := newt.Init();
+newt.Cls();
+str := "hello world!";
+newt.DrawRootText(5, 7, str);
+newt.WaitForKey();
+newt.Delay(30);
+i := newt.Finished();
+END newttest.