mirror of
https://github.com/vishapoberon/compiler.git
synced 2026-04-06 08:42:24 +00:00
145 lines
2.6 KiB
Modula-2
145 lines
2.6 KiB
Modula-2
MODULE newt;
|
|
|
|
IMPORT SYSTEM;
|
|
|
|
CONST
|
|
|
|
NEWTvCOLORSETvROOT *= 2;
|
|
NEWTvCOLORSETvBORDER *= 3;
|
|
NEWTvCOLORSETvWINDOW*= 4;
|
|
NEWTvCOLORSETvSHADOW*= 5;
|
|
NEWTvCOLORSETvTITLE*= 6;
|
|
NEWTvCOLORSETvBUTTON*= 7;
|
|
NEWTvCOLORSETvACTBUTTON*= 8;
|
|
NEWTvCOLORSETvCHECKBOX*= 9;
|
|
NEWTvCOLORSETvACTCHECKBOX*= 10;
|
|
NEWTvCOLORSETvENTRY*= 11;
|
|
NEWTvCOLORSETvLABEL*= 12;
|
|
NEWTvCOLORSETvLISTBOX*= 13;
|
|
NEWTvCOLORSETvACTLISTBOX*= 14;
|
|
NEWTvCOLORSETvTEXTBOX*= 15;
|
|
NEWTvCOLORSETvACTTEXTBOX*= 16;
|
|
NEWTvCOLORSETvHELPLINE*= 17;
|
|
NEWTvCOLORSETvROOTTEXT*= 18;
|
|
NEWTvCOLORSETvEMPTYSCALE*= 19;
|
|
NEWTvCOLORSETvFULLSCALE*= 20;
|
|
NEWTvCOLORSETvDISENTRY*= 21;
|
|
NEWTvCOLORSETvCOMPACTBUTTON*= 22;
|
|
NEWTvCOLORSETvACTSELLISTBOX*= 23;
|
|
NEWTvCOLORSETvSELLISTBOX*= 24;
|
|
|
|
NEWTvARGvLAST*= -100000;
|
|
NEWTvARGvAPPEND*= -1;
|
|
|
|
|
|
TYPE Int32* = INTEGER;
|
|
Int64* = LONGINT;
|
|
|
|
PROCEDURE -newtInit(): Int32
|
|
"newtInit()";
|
|
|
|
PROCEDURE Init*(): Int32;
|
|
BEGIN
|
|
RETURN newtInit();
|
|
END Init;
|
|
|
|
PROCEDURE -newtCls()
|
|
"newtCls()";
|
|
|
|
PROCEDURE Cls*();
|
|
BEGIN
|
|
newtCls
|
|
END Cls;
|
|
|
|
PROCEDURE -newtFinished() : Int32
|
|
"newtFinished()";
|
|
|
|
PROCEDURE Finished*(): Int32;
|
|
BEGIN
|
|
RETURN newtFinished();
|
|
END Finished;
|
|
|
|
PROCEDURE -newtResizeScreen(redraw: Int32)
|
|
"newtResizeScreen(redraw)";
|
|
|
|
PROCEDURE ResizeScreen*(redraw : Int32);
|
|
BEGIN
|
|
newtResizeScreen(redraw);
|
|
END ResizeScreen;
|
|
|
|
PROCEDURE -newtRefresh()
|
|
"newtRefresh()";
|
|
|
|
PROCEDURE Refresh*();
|
|
BEGIN
|
|
newtRefresh();
|
|
END Refresh;
|
|
|
|
PROCEDURE -newtWaitForKey()
|
|
"newtWaitForKey()";
|
|
|
|
PROCEDURE WaitForKey*();
|
|
BEGIN
|
|
newtWaitForKey
|
|
END WaitForKey;
|
|
|
|
PROCEDURE -newtClearKeyBuffer()
|
|
"newtClearKeyBuffer()";
|
|
|
|
PROCEDURE ClearKeyBuffer*();
|
|
BEGIN
|
|
newtClearKeyBuffer
|
|
END ClearKeyBuffer;
|
|
|
|
PROCEDURE -newtDelay(i : Int32)
|
|
"newtDelay(i)";
|
|
|
|
PROCEDURE Delay*(i : Int32);
|
|
BEGIN
|
|
newtDelay(i)
|
|
END Delay;
|
|
|
|
PROCEDURE -newtDrawRootText(left, top: Int32; VAR text: ARRAY OF CHAR)
|
|
"newtDrawRootText(left, top, text)";
|
|
|
|
PROCEDURE DrawRootText*(left, top: Int32; text: ARRAY OF CHAR);
|
|
BEGIN
|
|
newtDrawRootText(left, top, text)
|
|
END DrawRootText;
|
|
|
|
PROCEDURE -newtPushHelpLine(VAR text: ARRAY OF CHAR)
|
|
"newtPushHelpLine(text)";
|
|
|
|
PROCEDURE PushHelpLine*(text : ARRAY OF CHAR);
|
|
BEGIN
|
|
newtPushHelpLine(text)
|
|
END PushHelpLine;
|
|
|
|
PROCEDURE -newtPopHelpLine()
|
|
"newtPopHelpLine()";
|
|
|
|
PROCEDURE PopHelpLine*();
|
|
BEGIN
|
|
newtPopHelpLine();
|
|
END PopHelpLine;
|
|
|
|
PROCEDURE -newtBell()
|
|
"newtBell()";
|
|
|
|
PROCEDURE Bell*();
|
|
BEGIN newtBell() END Bell;
|
|
|
|
PROCEDURE -newtGetScreenSize(VAR cols, rows: Int32)
|
|
"newtGetScreenSize(cols, rows)";
|
|
|
|
PROCEDURE GetScreenSize*(VAR cols, rows: Int32);
|
|
BEGIN
|
|
newtGetScreenSize(cols, rows)
|
|
END GetScreenSize;
|
|
|
|
BEGIN
|
|
|
|
|
|
|
|
|
|
END newt.
|