/programs/cmm/examples/Tupfile.lua |
---|
11,3 → 11,4 |
tup.rule("info.c", "c-- /D=AUTOBUILD /D=$(C_LANG) %f" .. tup.getconfig("KPACK_CMD"), "info.com") |
tup.rule("pigex.c", "c-- /D=AUTOBUILD /D=$(C_LANG) %f" .. tup.getconfig("KPACK_CMD"), "pigex.com") |
tup.rule("netcheck.c", "c-- /D=AUTOBUILD /D=$(C_LANG) %f" .. tup.getconfig("KPACK_CMD"), "netcheck.com") |
tup.rule("math.c", "c-- /D=AUTOBUILD /D=$(C_LANG) %f" .. tup.getconfig("KPACK_CMD"), "math.com") |
/programs/cmm/lib/gui.h |
---|
322,6 → 322,7 |
{ |
dword n; |
dword inc(dword _addition); |
dword set(dword _new_val); |
}; |
:dword incn::inc(dword _addition) |
330,6 → 331,12 |
return n; |
} |
:dword incn::set(dword _new_val) |
{ |
n =_new_val; |
return n; |
} |
//block with hover |
struct block { |
int x,y,w,h; |
/programs/cmm/lib/kolibri.h |
---|
179,7 → 179,6 |
:void GetProcessInfo(dword _process_struct_pointer, _process_id) |
{ |
skin_height = GetSkinHeight(); |
EAX = 9; |
EBX = _process_struct_pointer; |
ECX = _process_id; |
/programs/cmm/lib/list_box.h |
---|
26,7 → 26,9 |
int KeyDown(); |
int KeyUp(); |
int KeyHome(); |
int KeyHomeHor(); |
int KeyEnd(); |
int KeyEndHor(); |
int KeyPgDown(); |
int KeyPgUp(); |
int KeyLeft(); |
124,6 → 126,13 |
:int llist::ProcessKey(dword key) |
{ |
if (horisontal_selelection) switch(key) |
{ |
case SCAN_CODE_LEFT: return KeyLeft(); |
case SCAN_CODE_RIGHT: return KeyRight(); |
case SCAN_CODE_HOME: return KeyHomeHor(); |
case SCAN_CODE_END: return KeyEndHor(); |
} |
switch(key) |
{ |
case SCAN_CODE_DOWN: return KeyDown(); |
133,11 → 142,6 |
case SCAN_CODE_PGUP: return KeyPgUp(); |
case SCAN_CODE_PGDN: return KeyPgDown(); |
} |
if (horisontal_selelection) switch(key) |
{ |
case SCAN_CODE_LEFT: return KeyLeft(); |
case SCAN_CODE_RIGHT: return KeyRight(); |
} |
return 0; |
} |
164,8 → 168,8 |
if (cur_y < first) || (cur_y >= first + visible) |
{ |
first = cur_y; |
} |
CheckDoesValuesOkey(); |
} |
return 1; |
} |
196,6 → 200,21 |
return 1; |
} |
:int llist::KeyHomeHor() |
{ |
if (cur_x==0) return 0; |
cur_x = 0; |
return 1; |
} |
:int llist::KeyEndHor() |
{ |
if (cur_x==column_max) return 0; |
cur_x = column_max; |
CheckDoesValuesOkey(); |
return 1; |
} |
:int llist::KeyHome() |
{ |
if (cur_y==0) && (first==0) return 0; |
237,6 → 256,7 |
if (visible + first > count) first = count - visible; |
if (first < 0) first = 0; |
if (cur_y >= count) cur_y = count - 1; |
if (cur_x >= column_max) cur_x = column_max; |
if (cur_y < 0) cur_y = 0; |
if (cur_x < 0) cur_x = 0; |
} |
/programs/cmm/lib/patterns/http_downloader.h |
---|
51,7 → 51,7 |
} |
bool _http::handle_redirect() |
:bool _http::handle_redirect() |
{ |
dword redirect; |
http_find_header_field stdcall (transfer, "location\0"); |
152,7 → 152,7 |
=====================================*/ |
int check_is_the_adress_local(dword _in) |
:int check_is_the_adress_local(dword _in) |
{ |
if (ESBYTE[_in]!='/') return false; |
_in++; |
168,7 → 168,7 |
return false; |
} |
int check_is_the_url_absolute(dword _in) |
:int check_is_the_url_absolute(dword _in) |
{ |
if(!strncmp(_in,"ftp:",4)) return true; |
if(!strncmp(_in,"http:",5)) return true; |
181,7 → 181,7 |
return false; |
} |
void get_absolute_url(dword _rez, _base, _new) |
:void get_absolute_url(dword _rez, _base, _new) |
{ |
int i; |
//case: ./valera.html |
/programs/cmm/lib/strings.h |
---|
927,11 → 927,11 |
} |
:replace_char(dword in_str, char from_char, to_char, int length) { |
int i; |
for (i=0; i<length; i++) { |
if (ESBYTE[in_str+i] == from_char) ESBYTE[in_str+i] = to_char; |
dword max = in_str + length; |
while (in_str < max) { |
if (ESBYTE[in_str] == from_char) ESBYTE[in_str] = to_char; |
in_str++; |
} |
ESBYTE[in_str+length]=0; |
} |
#endif |