Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 6755 → Rev 7597

/programs/develop/oberon07/Samples/lib_img.ob07
File deleted
\ No newline at end of file
/programs/develop/oberon07/Samples/RasterW.ob07
File deleted
\ No newline at end of file
/programs/develop/oberon07/Samples/kfont.ob07
File deleted
\ No newline at end of file
/programs/develop/oberon07/Samples/vector_ex.ob07
File deleted
\ No newline at end of file
/programs/develop/oberon07/Samples/Dialogs.ob07
5,15 → 5,13
VAR header: ARRAY 1024 OF CHAR; back_color: INTEGER;
 
PROCEDURE WindowRedrawStatus(p: INTEGER);
VAR aux: INTEGER;
BEGIN
aux := KOSAPI.sysfunc2(12, p)
KOSAPI.sysfunc2(12, p)
END WindowRedrawStatus;
 
PROCEDURE DefineAndDrawWindow(x, y, w, h, color, style, hcolor, hstyle, htext: INTEGER);
VAR aux: INTEGER;
BEGIN
aux := KOSAPI.sysfunc6(0, x * 65536 + w, y * 65536 + h, color + LSL(style, 24), hcolor + LSL(hstyle, 24), htext)
KOSAPI.sysfunc6(0, x * 65536 + w, y * 65536 + h, color + LSL(style, 24), hcolor + LSL(hstyle, 24), htext)
END DefineAndDrawWindow;
 
PROCEDURE WaitForEvent(): INTEGER;
21,15 → 19,13
END WaitForEvent;
 
PROCEDURE ExitApp;
VAR aux: INTEGER;
BEGIN
aux := KOSAPI.sysfunc1(-1)
KOSAPI.sysfunc1(-1)
END ExitApp;
 
PROCEDURE pause(t: INTEGER);
VAR aux: INTEGER;
BEGIN
aux := KOSAPI.sysfunc2(5, t)
KOSAPI.sysfunc2(5, t)
END pause;
 
PROCEDURE Buttons;
/programs/develop/oberon07/Samples/HW.ob07
3,21 → 3,18
IMPORT sys := SYSTEM, KOSAPI;
 
PROCEDURE WindowRedrawStatus(p: INTEGER);
VAR res: INTEGER;
BEGIN
res := KOSAPI.sysfunc2(12, p)
KOSAPI.sysfunc2(12, p)
END WindowRedrawStatus;
 
PROCEDURE DefineAndDrawWindow(x, y, w, h, color, style, hcolor, hstyle, htext: INTEGER);
VAR res: INTEGER;
BEGIN
res := KOSAPI.sysfunc6(0, x * 65536 + w, y * 65536 + h, color + LSL(style, 24), hcolor + LSL(hstyle, 24), htext)
KOSAPI.sysfunc6(0, x * 65536 + w, y * 65536 + h, color + LSL(style, 24), hcolor + LSL(hstyle, 24), htext)
END DefineAndDrawWindow;
 
PROCEDURE WriteTextToWindow(x, y, color: INTEGER; text: ARRAY OF CHAR);
VAR res: INTEGER;
BEGIN
res := KOSAPI.sysfunc6(4, x * 65536 + y, color + LSL(48, 24), sys.ADR(text[0]), LENGTH(text), 0)
KOSAPI.sysfunc6(4, x * 65536 + y, color + LSL(48, 24), sys.ADR(text[0]), LENGTH(text), 0)
END WriteTextToWindow;
 
PROCEDURE WaitForEvent(): INTEGER;
25,9 → 22,8
END WaitForEvent;
 
PROCEDURE ExitApp;
VAR res: INTEGER;
BEGIN
res := KOSAPI.sysfunc1(-1)
KOSAPI.sysfunc1(-1)
END ExitApp;
 
PROCEDURE draw_window(header, text: ARRAY OF CHAR);
/programs/develop/oberon07/Samples/HW_con.ob07
1,7 → 1,8
MODULE HW_con;
MODULE HW_con;
 
IMPORT Out, In, Console, DateTime, ConsoleLib;
IMPORT Out, In, Console, DateTime;
 
 
PROCEDURE OutInt2(n: INTEGER);
BEGIN
ASSERT((0 <= n) & (n <= 99));
11,9 → 12,13
Out.Int(n, 0)
END OutInt2;
 
 
PROCEDURE OutMonth(n: INTEGER);
VAR str: ARRAY 4 OF CHAR;
VAR
str: ARRAY 4 OF CHAR;
 
BEGIN
 
CASE n OF
| 1: str := "jan"
| 2: str := "feb"
28,26 → 33,31
|11: str := "nov"
|12: str := "dec"
END;
 
Out.String(str)
END OutMonth;
 
 
PROCEDURE main;
VAR Year, Month, Day, Hour, Min, Sec: INTEGER;
VAR
Year, Month, Day, Hour, Min, Sec, Msec: INTEGER;
 
BEGIN
ConsoleLib.open(-1, -1, -1, -1, "Hello!");
Out.String("Hello, world!"); Out.Ln;
Console.SetColor(Console.Yellow, Console.Blue);
DateTime.Now(Year, Month, Day, Hour, Min, Sec);
Console.SetColor(Console.White, Console.Red);
DateTime.Now(Year, Month, Day, Hour, Min, Sec, Msec);
Out.Int(Year, 0); Out.Char("-");
OutMonth(Month); Out.Char("-");
OutInt2(Day); Out.Char(" ");
OutInt2(Hour); Out.Char(":");
OutInt2(Min); Out.Char(":");
OutInt2(Sec);
In.Ln;
ConsoleLib.exit(TRUE)
OutInt2(Sec)
END main;
 
 
BEGIN
main
Console.open;
main;
In.Ln;
Console.exit(TRUE)
END HW_con.