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

This commit is contained in:
Norayr Chilingarian 2015-02-21 04:38:14 +04:00
parent 749d45d439
commit 034808deb8
3 changed files with 70 additions and 0 deletions

43
src/test/newt/newt.Mod Normal file
View file

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