Subversion Repositories Kolibri OS

Compare Revisions

No changes between revisions

Regard whitespace Rev 7862 → Rev 7863

/data/Tupfile.lua
30,7 → 30,6
{"DEVELOP/T_EDIT.INI", PROGS .. "/other/t_edit/t_edit.ini"},
{"File Managers/ICONS.INI", "common/File Managers/icons.ini"},
{"File Managers/KFM.INI", "common/File Managers/kfm.ini"},
{"File Managers/BUTTONS.BMP", PROGS .. "/fs/kfm/trunk/buttons.bmp"},
{"File Managers/ICONS.BMP", PROGS .. "/fs/kfm/trunk/icons.bmp"},
{"File Managers/FNAV/ABOUT.TXT", "common/File Managers/fNav/About.txt"},
{"File Managers/FNAV/FNAV", "common/File Managers/fNav/fNav.kex"},
/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
/programs/develop/fasm/1.73/fasm.asm
452,7 → 452,7
call init_memory
call make_timestamp
call get_tickcount
mov [start_time],eax
call preprocessor
470,7 → 470,7
call display_number
mov esi,_passes_suffix
call display_string
call make_timestamp
call get_tickcount
sub eax,[start_time]
xor edx,edx
mov ebx,100
/programs/develop/fasm/1.73/system.inc
39,7 → 39,7
or eax,-1
mcall
 
make_timestamp:
get_tickcount:
push ebx
mcall SF_SYSTEM_GET,SSF_TIME_COUNT
imul eax,10
46,6 → 46,124
pop ebx
retn
 
macro BCDtoHEX al {
aam 16
aad 10 }
 
make_timestamp:
mcall SF_GET_SYS_DATE ; $00SSMMHH (BCD)
mov edx,eax
shr eax,16
BCDtoHEX al
push eax ; SECONDS
mov al,dh
BCDtoHEX al
push eax ; MINUTES
mov al,dl
BCDtoHEX al
push eax ; HOURS
mcall SF_GET_SYS_DATE ; $00DDMMYY (BCD)
mov edx,eax
shr eax,16
BCDtoHEX al
push eax ; DAY
mov al,dl
BCDtoHEX al
add eax,2000
push eax ; YEAR
mov ecx,eax
mov al,dh
BCDtoHEX al
push eax ; MONTH
; ecx: YEAR
; stack: MONTH, YEAR, DAY, HOURS, MINUTES, SECONDS, retaddr
mov eax,ecx
sub eax,1970
mov ebx,365
mul ebx
mov ebp,eax
mov eax,ecx
sub eax,1969
shr eax,2
add ebp,eax
mov eax,ecx
xor edx,edx
sub eax,1901
mov ebx,100
div ebx
sub ebp,eax
mov eax,ecx
xor edx,edx
sub eax,1601
mov ebx,400
div ebx
add ebp,eax
pop ecx
; ecx: MONTH
; stack: YEAR, DAY, HOURS, MINUTES, SECONDS, retaddr
mov eax,ecx
dec eax
mov ebx,30
mul ebx
add ebp,eax
cmp ecx,8
jbe months_correction
mov eax,ecx
sub eax,7
shr eax,1
add ebp,eax
mov ecx,8
months_correction:
mov eax,ecx
shr eax,1
add ebp,eax
cmp ecx,2
pop ecx
; ecx: YEAR
; stack: DAY, HOURS, MINUTES, SECONDS, retaddr
jbe day_correction_ok
sub ebp,2
test ecx,11b
jnz day_correction_ok
xor edx,edx
mov eax,ecx
mov ebx,100
div ebx
or edx,edx
jnz day_correction
mov eax,ecx
mov ebx,400
div ebx
or edx,edx
jnz day_correction_ok
day_correction:
inc ebp
day_correction_ok:
pop eax
; eax: DAY
; stack: HOURS, MINUTES, SECONDS, retaddr
dec eax
add eax,ebp
mov ebx,24
mul ebx
pop ecx
; ecx: HOURS
; stack: MINUTES, SECONDS, retaddr
add eax,ecx
mov ebx,60
mul ebx
pop ecx
; ecx: MINUTES
; stack: SECONDS, retaddr
add eax,ecx
mov ebx,60
mul ebx
pop ecx
; ecx: SECONDS
; stack: retaddr
add eax,ecx
retn
 
symbol_dump:
 
push edi
/programs/fs/kfm/trunk/data.inc
271,4 → 271,6
sysopen:
dd 7,0,start_parameter,0,0
db '/sys/@open',0
;---------------------------------------------------------------------
;---------------------------------------------------------------------
buttons_file_data file 'images/buttons.raw'
;icons_file_data file 'icons.bmp'
/programs/fs/kfm/trunk/draw.inc
8,72 → 8,32
sub ebx,9
add ebx,5 shl 16
mcall 13,,,0xffffff
mov edx,15 shl 16+20
add edx,[skin_high]
pusha
call .calculate_button
mcall ,,,150
popa
mcall 7,[buttons_img_start],<16,16>
add edx,26 shl 16
add ebx,16*16*3
pusha
call .calculate_button
mcall ,,,151
popa
mcall 7,buttons_file_data,<198,16>
mov ecx, 20
add ecx, [skin_high]
shl ecx, 16
add ecx, 16
mcall 8,<15,16>,,150+0x40000000
_new_but:
add ebx,26 shl 16
inc edx
mcall
add edx,26 shl 16
add ebx,16*16*3
pusha
call .calculate_button
mcall ,,,152
popa
mcall
add edx,26 shl 16
add ebx,16*16*3
pusha
call .calculate_button
mcall ,,,153
popa
mcall
add edx,26 shl 16
add ebx,16*16*3
pusha
call .calculate_button
mcall ,,,154
popa
mcall
add edx,26 shl 16
add ebx,16*16*3
pusha
call .calculate_button
mcall ,,,155
popa
mcall
add edx,26 shl 16
add ebx,16*16*3
pusha
call .calculate_button
mcall ,,,156
popa
mcall
add edx,26 shl 16
add ebx,16*16*3
pusha
call .calculate_button
mcall ,,,157
popa
mcall
cmp edx, 157+0x40000000
jl _new_but
ret
;--------------------------------------
.calculate_button:
mov esi,0xffffff
mov ebx,edx
mov bx,15
mov ecx,edx
shl ecx,16
mov cx,bx
mov eax,8
ret
;------------------------------------------------------------------------------
draw_left_sort_button:
/programs/fs/kfm/trunk/err_wind.inc
7,9 → 7,6
initiation_error:
mov [error_pointer],ini_file_name
jmp error_window
buttons_error:
mov [error_pointer],buttons_file_name
jmp error_window
icon_error:
mov [error_pointer],icons_file_name
error_window:
/programs/fs/kfm/trunk/images/buttons.bmp
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property
/programs/fs/kfm/trunk/images/buttons.raw
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property
/programs/fs/kfm/trunk/kfm.asm
69,7 → 69,6
mov [read_folder_name],ax
mov [read_folder_1_name],ax
call load_icon_and_convert_to_img
call load_buttons_and_convert_to_img
call load_initiation_file
call add_memory_for_folders
call device_detect_f70
258,20 → 257,6
call sub_application_memory
ret
;---------------------------------------------------------------------
load_buttons_and_convert_to_img:
mov ebx,buttons_file_name
call prepare_load_data
jnz buttons_error
mov eax,[appl_memory]
mov [buttons_img_start],eax
call prepare_load_data_2
add eax,[buttons_img_start]
call prepare_load_data_1
jnz buttons_error
call convert_bmp_to_img
call sub_application_memory
ret
;---------------------------------------------------------------------
load_initiation_file:
mov ebx,ini_file_name
call prepare_load_data
/programs/fs/kfm/trunk/text.inc
85,9 → 85,6
icons_file_name:
db 'icons.bmp',0
;---------------------------------------------------------------------
buttons_file_name:
db 'buttons.bmp',0
;---------------------------------------------------------------------
error_type:
db 'File system error',0
;---------------------------------------------------------------------