| /programs/cmm/examples/Tupfile.lua |
|---|
| 8,3 → 8,5 |
| tup.rule("menu.c", "c-- /D=AUTOBUILD /D=$(C_LANG) %f" .. tup.getconfig("KPACK_CMD"), "menu.com") |
| tup.rule("rgb.c", "c-- /D=AUTOBUILD /D=$(C_LANG) %f" .. tup.getconfig("KPACK_CMD"), "rgb.com") |
| tup.rule("console.c", "c-- /D=AUTOBUILD /D=$(C_LANG) %f" .. tup.getconfig("KPACK_CMD"), "console.com") |
| tup.rule("info.c", "c-- /D=AUTOBUILD /D=$(C_LANG) %f" .. tup.getconfig("KPACK_CMD"), "info.com") |
| tup.rule("pig.c", "c-- /D=AUTOBUILD /D=$(C_LANG) %f" .. tup.getconfig("KPACK_CMD"), "pig.com") |
| /programs/cmm/examples/info.c |
|---|
| 0,0 → 1,52 |
| /* |
| * Template C-- program. |
| */ |
| #define MEMSIZE 4096*15 |
| #include "../lib/io.h" |
| #include "../lib/gui.h" |
| #define WIN_W 12*10+30 |
| #define WIN_H 80 |
| void main() |
| { |
| word btn; |
| loop() switch(WaitEvent()) |
| { |
| case evButton: |
| btn = GetButtonID(); |
| if (btn == 1) ExitProcess(); |
| break; |
| case evKey: |
| GetKeys(); |
| if (key_scancode == SCAN_CODE_ESC) ExitProcess(); |
| break; |
| case evReDraw: |
| draw_window(); |
| break; |
| } |
| } |
| inline GetRevisionNumber() |
| { |
| char buf[32]; |
| EAX = 18; |
| EBX = 13; |
| ECX = #buf; |
| return ESDWORD[#buf+5]; |
| } |
| void draw_window() |
| { |
| system.color.get(); |
| DefineUnDragableWindow(screen.width-WIN_W-15, GetClientHeight()-WIN_H-15, WIN_W-1, WIN_H-1); |
| DrawBar(0,0,WIN_W,WIN_H,0x414155); |
| DrawWideRectangle(0,0,WIN_W,WIN_H, 3, 0x5555FF); |
| WriteText(15, 20, 0x81, 0xFFFF55, " REV 7321 "); |
| WriteText(15, 20+25, 0x81, 0xFFFF55, "17.09.2018"); |
| } |
| /programs/cmm/examples/pig.c |
|---|
| 0,0 → 1,25 |
| /* |
| * Template C-- program. |
| */ |
| #define MEMSIZE 4096*5 |
| #include "../lib/kolibri.h" |
| #include "../lib/fs.h" |
| #include "../lib/patterns/restart_process.h" |
| proc_info Form; |
| void main() |
| { |
| int i; |
| CreateDir("/tmp0/1/pig"); |
| RunProgram("/sys/UNZ", "-o /tmp0/1/pig -h /kolibrios/games/pig.zip"); |
| for (i = 0; i < 200; i++) |
| { |
| if (CheckProcessExists("UNZ")==false) break; |
| pause(3); |
| } |
| RunProgram("/tmp0/1/pig/pig", NULL); |
| } |
| /programs/cmm/lib/patterns/restart_process.h |
|---|
| 12,7 → 12,7 |
| #define MAX_PROCESS_COUNT 256 |
| :int CheckProcessExists(dword proc_name) { |
| :bool CheckProcessExists(dword proc_name) { |
| int i; |
| proc_info Process; |
| for (i=0; i<MAX_PROCESS_COUNT; i++;) |