/programs/cmm/eolite/Eolite.c |
---|
214,7 → 214,7 |
strcpy(#inactive_path, #path); |
llist_copy(#files_inactive, #files); |
SetEventMask(EVM_REDRAW+EVM_KEY+EVM_BUTTON+EVM_MOUSE+EVM_MOUSE_FILTER); |
loop() switch(WaitEventTimeout(50)) |
loop() switch(@WaitEventTimeout(80)) |
{ |
case evMouse: |
if (del_active) || (Form.status_window>2) break; |
/programs/cmm/lib/debug.h |
---|
42,6 → 42,12 |
debugch(10); |
} |
inline fastcall void debugcls() |
{ |
char i; |
for (i=0;i<70;i++) debugch(10); |
} |
:void debugval(dword text,number) |
{ |
char tmpch[12]; |
/programs/cmm/lib/kolibri.h |
---|
73,6 → 73,13 |
inline fastcall dword calc(EAX) { return EAX; } |
inline fastcall swap(EAX, EBX) |
{ |
$push ESDWORD[EAX] |
ESDWORD[EAX] = ESDWORD[EBX]; |
$pop ESDWORD[EBX]; |
} |
:struct raw_image { |
dword w, h, data; |
}; |
/programs/cmm/misc/build.bat |
---|
1,13 → 1,18 |
@echo off |
del *.kex |
echo #define LANG_ENG 1 >lang.h-- |
For /R %%i In (*.c) Do c-- "%%i" |
rename *.com *.kex |
mkdir bin |
move *.kex bin\ |
del bin\*.* /Q |
move *.com bin |
cd bin |
forfiles /S /M *.com /C "cmd /c rename @file @fname" |
cd .. |
del warning.txt |
del lang.h-- |
pause |