forked from KolibriOS/kolibrios
baa8e3dca2
ftpc: set default user and server (kolibrios.org), some cosmetic improvements beat and playnote: add to ISO git-svn-id: svn://kolibrios.org@7959 a494cfbc-eb01-0410-851d-a64ba20cac60
1205 lines
36 KiB
PHP
Executable File
1205 lines
36 KiB
PHP
Executable File
include '../../load_img.inc'
|
|
include '../../develop/libraries/libs-dev/libimg/libimg.inc'
|
|
include '../../develop/libraries/box_lib/trunk/box_lib.mac'
|
|
include '../../develop/libraries/box_lib/load_lib.mac'
|
|
|
|
@use_library_mem mem.Alloc, mem.Free, mem.ReAlloc, dll.Load
|
|
|
|
icon_tl_sys dd 0
|
|
icon_tl_nod dd 0
|
|
|
|
TLIST_SZ = 325+16 ;=341. 16 is x-size of scroll bar
|
|
TLIST1_X = 50
|
|
TLIST2_X = 409
|
|
BT_SZ_X = 40
|
|
SYS_COL = 0xe6e6e6
|
|
BT_COL = 0xcccccc
|
|
STR_COL = 0x595959 ;0x000000
|
|
|
|
; TODO: automatic resizing of GUI elements on window resizing
|
|
|
|
align 4
|
|
;;================================================================================================;;
|
|
gui: ;////////////////////////////////////////////////////////////////////////////////////////////;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;? GUI-specific functions ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;> none ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;< none ;;
|
|
;;================================================================================================;;
|
|
|
|
dd .init
|
|
dd .server_addr
|
|
dd .get_username
|
|
dd .get_cmd
|
|
dd .print
|
|
dd .set_flags
|
|
dd .list
|
|
dd .progress
|
|
dd .error
|
|
|
|
.init:
|
|
; load libraries
|
|
stdcall dll.Load, @IMPORT_GUI_LIBS
|
|
test eax, eax
|
|
jnz .exit
|
|
|
|
mcall 48, 3, sc, sizeof.system_colors
|
|
mcall 40, 0xC0000027 ; set event mask
|
|
ret
|
|
|
|
.server_addr:
|
|
mov [auto_list], 1
|
|
jmp login_gui.server_addr
|
|
|
|
.get_username:
|
|
jmp login_gui.get_username
|
|
|
|
|
|
;;================================================================================================;;
|
|
.main: ;//////////////////////////////////////////////////////////////////////////////////////;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;? Initialize tree list, editbox and textedit elements ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;> none ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;< none ;;
|
|
;;================================================================================================;;
|
|
|
|
stdcall [ted_init], tedit0
|
|
stdcall [edit_box_set_text], edit_volume, root_dir
|
|
|
|
; initialize tree list elements
|
|
stdcall [tl_data_init], tree1
|
|
stdcall [tl_data_init], tree2
|
|
|
|
or dword[tree1.style], 8 ;tl_cursor_pos_limited - restrict cursor move to existing nodes
|
|
or dword[tree2.style], 8 ;tl_cursor_pos_limited
|
|
|
|
; read icons
|
|
load_image_file 'ftpc_sys.png', icon_tl_sys
|
|
|
|
mov [filestruct.ptr], eax
|
|
mov [filestruct.subfn], 0
|
|
mov [filestruct.offset], 54
|
|
mov [filestruct.size], ecx
|
|
mcall 70, filestruct
|
|
cmp ebx, 0
|
|
jl @f
|
|
m2m dword[tree1.data_img_sys], dword[icon_tl_sys]
|
|
m2m dword[tree2.data_img_sys], dword[icon_tl_sys]
|
|
|
|
@@:
|
|
; read nodes icon file
|
|
load_image_file 'ftpc_nod.png', icon_tl_nod
|
|
|
|
mov [filestruct.ptr], eax
|
|
;mov [filestruct.subfn], 0
|
|
;mov [filestruct.offset], 54
|
|
mov [filestruct.size], ecx
|
|
mcall 70, filestruct
|
|
cmp ebx, 0
|
|
jl @f
|
|
m2m dword[tree1.data_img], dword[icon_tl_nod]
|
|
m2m dword[tree2.data_img], dword[icon_tl_nod]
|
|
|
|
@@:
|
|
call .draw
|
|
; create initial tree list for root_dir
|
|
call populate_local_tree_list
|
|
jmp arg_handler.connect
|
|
|
|
.get_cmd:
|
|
dec [auto_list]
|
|
jnz .redraw
|
|
call .clear_remote_tree
|
|
jmp cmd_list
|
|
|
|
.redraw:
|
|
call .draw
|
|
|
|
align 4
|
|
.still:
|
|
mcall 10
|
|
|
|
dec eax
|
|
jz .redraw
|
|
dec eax
|
|
jz .key
|
|
dec eax
|
|
jz .button
|
|
sub eax, 3
|
|
jz .mouse
|
|
|
|
jmp .still
|
|
|
|
.error:
|
|
jmp login_gui.error
|
|
|
|
.exit:
|
|
; stdcall mem.Free,[bmp_icon]
|
|
stdcall [tl_data_clear], tree1
|
|
stdcall [tl_data_clear], tree2
|
|
stdcall [ted_delete], tedit0
|
|
jmp exit
|
|
|
|
align 4
|
|
.draw:
|
|
mcall 12, 1
|
|
; main window
|
|
mcall 0, <35,830>, <20,555>, 0x34000000+SYS_COL, 0x805080DD, str_title
|
|
|
|
;-------------------------
|
|
; textedit components
|
|
;-------------------------
|
|
mcall 9, procinfo, -1
|
|
mov edi, tedit0
|
|
call EvSize
|
|
|
|
movzx ebx,word[procinfo.client_box.width]
|
|
inc bx
|
|
mcall 13, , ted_wnd_t
|
|
stdcall [ted_draw], tedit0
|
|
|
|
; draw "disconnect" button
|
|
mcall 8, <50,95>, <25,25>, 3, BT_COL
|
|
; string "disconnect"
|
|
mcall 4, <50+5,25+5>, 0xb0000000+STR_COL, str_disconnect
|
|
; draw "Copy" button
|
|
mcall 8, <50,40>, <326,25>, 4, BT_COL
|
|
; string "copy"
|
|
mcall 4, <50+5,326+5>, 0xb0000000+STR_COL, str_copy
|
|
; draw "Search" button
|
|
mcall 8, <TLIST2_X+TLIST_SZ-55,55>, <20,25>, 5, BT_COL
|
|
; string "Search"
|
|
mcall 4, <TLIST2_X+TLIST_SZ-55+5,20+5>, 0xb0000000+STR_COL, str_search
|
|
|
|
; draw "LIST" button
|
|
mcall 8, <TLIST2_X+TLIST_SZ-4*BT_SZ_X-15,BT_SZ_X>, <50,25>, 12, BT_COL
|
|
; string "LIST"
|
|
mcall 4, <TLIST2_X+TLIST_SZ-4*BT_SZ_X-15+5,50+5>, 0xb0000000+STR_COL, str_list
|
|
; draw "DELE" button
|
|
mcall 8, <TLIST2_X+TLIST_SZ-3*BT_SZ_X-10,BT_SZ_X>, <50,25>, 7, BT_COL
|
|
; string "DELE"
|
|
mcall 4, <TLIST2_X+TLIST_SZ-3*BT_SZ_X-10+5,50+5>, 0xb0000000+STR_COL, str_dele
|
|
; draw "RDIR" button
|
|
mcall 8, <TLIST2_X+TLIST_SZ-2*BT_SZ_X-5,BT_SZ_X>, <50,25>, 8, BT_COL
|
|
; string "RDIR"
|
|
mcall 4, <TLIST2_X+TLIST_SZ-2*BT_SZ_X-5+5,50+5>, 0xb0000000+STR_COL, str_rdir
|
|
; draw "RMD" button
|
|
mcall 8, <TLIST2_X+TLIST_SZ-BT_SZ_X,BT_SZ_X>, <50,25>, 9, BT_COL
|
|
; string "RMD"
|
|
mcall 4, <TLIST2_X+TLIST_SZ-BT_SZ_X+5,50+5>, 0xb0000000+STR_COL, str_rmd
|
|
|
|
; draw "mkd" button
|
|
mcall 8, <TLIST2_X+TLIST_SZ-BT_SZ_X,BT_SZ_X>, <80,20>, 6, BT_COL
|
|
; string "mkd"
|
|
mcall 4, <TLIST2_X+TLIST_SZ-BT_SZ_X+5,80+5>, 0xb0000000+STR_COL, str_mkd
|
|
|
|
; draw "cancel" button
|
|
;mcall 8, <555,55>, <308,25>, 10, BT_COL
|
|
; string "Cancel"
|
|
;mcall 4, <555+5,308+5>, 0xb0000000+STR_COL, str_abort
|
|
; draw "change volume" button
|
|
mcall 8, <TLIST1_X+TLIST_SZ-55,55>, <100-20,22>, 11, BT_COL
|
|
; string "Change"
|
|
mcall 4, <TLIST1_X+TLIST_SZ-55+5,100-20+5>, 0xb0000000+STR_COL, str_change
|
|
|
|
;--------------------------
|
|
; tree list components
|
|
;--------------------------
|
|
stdcall [tl_draw], tree1
|
|
stdcall [tl_draw], tree2
|
|
|
|
mov dword[wScr.all_redraw], 1
|
|
stdcall [scrollbar_ver_draw], wScr
|
|
|
|
mov dword[wScr2.all_redraw],1
|
|
stdcall [scrollbar_ver_draw], wScr2
|
|
|
|
stdcall [edit_box_draw], edit_mkd
|
|
stdcall [edit_box_draw], edit_volume
|
|
stdcall [edit_box_draw], edit_search
|
|
|
|
mcall 12,2
|
|
ret
|
|
|
|
align 16
|
|
.mouse:
|
|
mcall 37, 1
|
|
cmp word[tedit0.wnd.top], ax
|
|
jg .no_edit
|
|
|
|
shr eax, 16
|
|
cmp word[tedit0.wnd.left], ax
|
|
jg .no_edit
|
|
|
|
mcall 37, 3
|
|
bt eax, 24
|
|
jnc @f
|
|
|
|
stdcall [ted_but_select_word], tedit0
|
|
jmp .still
|
|
|
|
@@:
|
|
stdcall [ted_mouse], tedit0
|
|
jmp .still
|
|
|
|
.no_edit:
|
|
stdcall [tl_mouse], tree1
|
|
stdcall [tl_mouse], tree2
|
|
stdcall [edit_box_mouse], edit_mkd
|
|
stdcall [edit_box_mouse], edit_volume
|
|
stdcall [edit_box_mouse], edit_search
|
|
jmp .still
|
|
|
|
align 16
|
|
.key:
|
|
mcall 2
|
|
stdcall [tl_key], tree1
|
|
stdcall [tl_key], tree2
|
|
stdcall [edit_box_key], edit_mkd
|
|
stdcall [edit_box_key], edit_volume
|
|
stdcall [edit_box_key], edit_search
|
|
jmp .still
|
|
|
|
align 16
|
|
.button:
|
|
mcall 17
|
|
|
|
cmp ah, 3
|
|
jne @f
|
|
ijmp eax, interface_addr, interface.server_addr
|
|
jmp .still
|
|
|
|
@@:
|
|
cmp ah, 4
|
|
jne @f
|
|
stdcall [ted_but_copy], tedit0
|
|
jmp .still
|
|
|
|
@@:
|
|
cmp ah, 5
|
|
jne @f
|
|
je filter_remote_list
|
|
|
|
@@:
|
|
cmp ah, 6
|
|
je create_remote_dir
|
|
|
|
cmp ah, 7
|
|
je delete_file
|
|
|
|
cmp ah, 8
|
|
je cmd_rdir
|
|
|
|
cmp ah, 9
|
|
je remove_dir
|
|
|
|
cmp ah, 11
|
|
jne @f
|
|
call populate_local_tree_list
|
|
|
|
@@:
|
|
cmp ah, 12
|
|
jne @f
|
|
call .clear_remote_tree
|
|
je cmd_list
|
|
|
|
@@:
|
|
cmp ah, 1
|
|
je .exit
|
|
|
|
jmp .still
|
|
|
|
.print:
|
|
pushad
|
|
mov ebx, ted_opt_ed_change_time + ted_opt_ed_move_cursor
|
|
mov ecx, 2 ; 0a0d
|
|
mov esi, [esp+36]
|
|
mov word[tedit_buffer], 0x0a0d
|
|
lea edi, [tedit_buffer+2]
|
|
|
|
@@:
|
|
movsb
|
|
inc ecx
|
|
cmp byte[esi], 0
|
|
jne @b
|
|
stdcall [ted_text_add], tedit0, tedit_buffer, ecx, ebx
|
|
stdcall [ted_draw], tedit0
|
|
; write to log file
|
|
mov eax, [esp+36]
|
|
sub ecx, 2 ; 0a0d is not included
|
|
call write_to_file
|
|
|
|
@@:
|
|
popad
|
|
ret 4
|
|
|
|
.set_flags:
|
|
ret 4
|
|
|
|
|
|
;;================================================================================================;;
|
|
.list: ;//////////////////////////////////////////////////////////////////////////////////////;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;? update tree2 with remote directory listing ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;> buf_buffer2 = received data buffer ;;
|
|
;> eax = size of data ;;
|
|
;> remote_list_buf = buffer containing last incomplete entry (if any) ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;< none ;;
|
|
;;================================================================================================;;
|
|
|
|
push edx
|
|
push eax
|
|
; check if any incomplete entry to be parsed
|
|
cmp byte[remote_list_buf], 0
|
|
je .no_backlog
|
|
; find end of remote_list_buf
|
|
mov edi, remote_list_buf
|
|
mov al, 0
|
|
repne scasb
|
|
; copy rest of the incomplete entry to remote_list_buf
|
|
mov esi, buf_buffer2
|
|
dec edi
|
|
|
|
@@:
|
|
movsb
|
|
cmp word[esi-2], 0x0a0d
|
|
jne @b
|
|
mov byte[edi], 0
|
|
mov ecx, edi
|
|
sub ecx, remote_list_buf ; ecx = length of remote_list_buf
|
|
mov ebx, esi ; ebx = address at which next parse should start
|
|
mov edi, remote_list_buf
|
|
jmp .start_parsing
|
|
|
|
.no_backlog:
|
|
mov ecx, eax ; ecx = number of bytes remaining to parse in buf_buffer2
|
|
mov edi, buf_buffer2
|
|
|
|
.start_parsing:
|
|
; find pointer to name
|
|
cmp byte[edi], 'd' ; file is a directory
|
|
je @f
|
|
cmp byte[edi], 'l' ; link
|
|
je @f
|
|
mov word[node_entry2], 'fi'
|
|
jmp .parse
|
|
|
|
@@:
|
|
mov word[node_entry2], 'fo'
|
|
|
|
.parse:
|
|
mov edx, 8
|
|
|
|
@@:
|
|
mov al, ' '
|
|
mov ecx, [esp]
|
|
add ecx, buf_buffer2
|
|
sub ecx, edi
|
|
|
|
repne scasb
|
|
|
|
; check if the (last) entry is incomplete
|
|
test ecx, ecx
|
|
jz .store_last_entry
|
|
|
|
rep scasb
|
|
test ecx, ecx
|
|
jz .store_last_entry
|
|
|
|
dec edx
|
|
jnz @b
|
|
|
|
lea esi, [edi-1]
|
|
lea edi, [node_entry2+4]
|
|
@@:
|
|
movsb
|
|
cmp word[esi], 0x0a0d ; end of entry
|
|
jne @b
|
|
mov byte[edi], 0
|
|
|
|
; add node to tree list
|
|
cmp word[node_entry2], 'fi'
|
|
jne @f
|
|
stdcall [tl_node_add], tree2, 0, node_entry2
|
|
jmp .added_remote_node
|
|
|
|
@@:
|
|
stdcall [tl_node_add], tree2, 0x10000, node_entry2
|
|
|
|
.added_remote_node:
|
|
; check whether we are parsing remote_list_buf
|
|
cmp byte[remote_list_buf], 0
|
|
je @f
|
|
mov byte[remote_list_buf], 0 ; done parsing remote_list_buf
|
|
mov edi, ebx
|
|
mov eax, [esp]
|
|
mov ecx, buf_buffer2
|
|
add ecx, eax
|
|
sub ecx, ebx
|
|
jmp .start_parsing
|
|
|
|
@@:
|
|
; any more entries to parse?
|
|
lea edi, [esi+2] ; skip 0a0d
|
|
cmp byte[edi], 0
|
|
jne .start_parsing
|
|
jmp .done_parsing
|
|
|
|
.store_last_entry:
|
|
; find index of the last incomplete entry
|
|
mov ecx, -1
|
|
mov eax, [esp]
|
|
lea edi, [buf_buffer2+eax-2]
|
|
mov al, 0x0a
|
|
std
|
|
repne scasb
|
|
cld
|
|
|
|
; copy last (incomplete) entry of buf_buffer2 to remote_list_buf
|
|
lea esi, [edi+2]
|
|
mov edi, remote_list_buf
|
|
@@:
|
|
movsb
|
|
cmp byte[esi-1], 0
|
|
jne @b
|
|
|
|
.done_parsing:
|
|
call .draw ; to update tree list immediately in case of "auto_list"
|
|
pop eax
|
|
pop edx
|
|
jmp data_loop
|
|
|
|
; clear tree list and add ".." node before executing "LIST"
|
|
.clear_remote_tree:
|
|
stdcall [tl_info_clear], tree2
|
|
mov dword[node_entry2+4], 0x2E2E
|
|
stdcall [tl_node_add], tree2, 0x10000, node_entry2
|
|
ret
|
|
|
|
|
|
;;================================================================================================;;
|
|
.progress: ;//////////////////////////////////////////////////////////////////////////////////;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;? Update progress bar every time new data is received from data_loop block ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;> edx = no. of bytes downloaded ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;< none ;;
|
|
;;================================================================================================;;
|
|
|
|
; detect abort
|
|
mcall 17
|
|
cmp ah, 10
|
|
je cmd_abor
|
|
|
|
push eax ebx ecx edx
|
|
mov ebx, [file_size]
|
|
mov ecx, 100
|
|
mov eax, edx
|
|
mul ecx
|
|
div ebx
|
|
cmp eax, 100
|
|
jle @f
|
|
mov eax, 100
|
|
|
|
@@:
|
|
mov dword[pb], eax
|
|
push pb
|
|
call [progressbar_draw]
|
|
pop edx ecx ebx eax
|
|
ret
|
|
|
|
|
|
remove_dir:
|
|
|
|
stdcall [tl_node_get_data], tree2
|
|
cmp word[eax], 'fo'
|
|
jne gui.still
|
|
lea esi, [eax+4]
|
|
lea edi, [buf_cmd+4]
|
|
@@:
|
|
movsb
|
|
cmp byte[esi], 0
|
|
jne @b
|
|
mov word[edi], 0x000a
|
|
jmp cmd_rmd
|
|
|
|
|
|
delete_file:
|
|
|
|
stdcall [tl_node_get_data], tree2
|
|
cmp word[eax], 'fi'
|
|
jne gui.still
|
|
lea esi, [eax+4]
|
|
lea edi, [buf_cmd+5]
|
|
@@:
|
|
movsb
|
|
cmp byte[esi], 0
|
|
jne @b
|
|
mov word[edi], 0x000a
|
|
jmp cmd_dele
|
|
|
|
|
|
create_remote_dir:
|
|
|
|
lea edi, [buf_cmd+4]
|
|
mov esi, new_dir_buf
|
|
@@:
|
|
movsb
|
|
cmp byte[esi], 0
|
|
jne @b
|
|
mov word[edi], 0x000a
|
|
jmp cmd_mkd
|
|
|
|
|
|
; Function to call when you press [Enter]
|
|
align 4
|
|
fun_on_enter:
|
|
|
|
stdcall [tl_node_get_data], tree1
|
|
cmp word[eax], 'fi'
|
|
je @f
|
|
lea ecx, [eax+4] ; discard first 4 bytes
|
|
call populate_local_tree_list.read_new_dir
|
|
;stdcall [tl_draw], tree1
|
|
ret
|
|
|
|
@@:
|
|
lea esi, [eax+4]
|
|
lea edi, [buf_cmd+5]
|
|
@@:
|
|
movsb
|
|
cmp byte[esi], 0
|
|
jne @b
|
|
mov word[edi], 0x000a
|
|
jmp cmd_stor
|
|
|
|
|
|
; Function to call when you press [Enter]
|
|
; for treelist with remote directory listing
|
|
align 4
|
|
fun_on_enter2:
|
|
|
|
stdcall [tl_node_get_data], tree2
|
|
lea esi, [eax+4]
|
|
cmp dword[esi], 0x2E2E
|
|
jne @f
|
|
mov [auto_list], 1
|
|
jmp cmd_cdup
|
|
|
|
@@:
|
|
cmp word[eax], 'fo'
|
|
je @f
|
|
lea edi, [buf_cmd+5]
|
|
jmp .copy
|
|
|
|
@@:
|
|
lea edi, [buf_cmd+4]
|
|
|
|
.copy:
|
|
movsb
|
|
cmp byte[esi], 0
|
|
jne .copy
|
|
mov word[edi], 0x000a ; extra character before 0 to compensate for
|
|
; newline in console code
|
|
cmp word[eax], 'fo'
|
|
je @f
|
|
jmp cmd_retr
|
|
|
|
@@:
|
|
stdcall [tl_info_clear], tree2
|
|
mov [auto_list], 1
|
|
jmp cmd_cwd
|
|
|
|
|
|
;;================================================================================================;;
|
|
populate_local_tree_list: ;///////////////////////////////////////////////////////////////////////;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;? Update tree1 with file names from current working directory ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;> none ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;< none ;;
|
|
;;================================================================================================;;
|
|
|
|
mov [filestruct.subfn], 1
|
|
mov [filestruct.size], 32
|
|
mov [filestruct.ptr], folder_data
|
|
mov ecx, root_dir
|
|
|
|
.read_new_dir: ; ecx = pointer to folder name
|
|
; parse ".."
|
|
cmp word[ecx], '..'
|
|
jne @f
|
|
cmp byte[ecx+2], 0
|
|
jne @f
|
|
|
|
; removes last file name from filestruct.name
|
|
mcall 30, 2, filestruct.name,1024 ; get absolute path for cwd
|
|
lea edi, [filestruct.name+eax] ; edi = pointer to the tail of file name
|
|
mov al, '/'
|
|
mov ecx, -1
|
|
std
|
|
repne scasb
|
|
cld
|
|
mov byte[edi+1], 0
|
|
mov ecx, filestruct.name
|
|
|
|
@@:
|
|
mcall 30, 1, ; set cwd
|
|
mcall 30, 2, filestruct.name, 1024 ; get absolute path for cwd
|
|
; clear all nodes in tree list
|
|
stdcall [tl_info_clear], tree1
|
|
mov [filestruct.offset], 0
|
|
|
|
; read 32 blocks
|
|
.outer:
|
|
mcall 70, filestruct
|
|
;int3
|
|
test eax, eax
|
|
jz @f
|
|
cmp eax, 6 ; EOF
|
|
je @f
|
|
call error_fs
|
|
jmp .done
|
|
@@:
|
|
test ebx, ebx
|
|
je .done ; when no. of blocks is multiple of 32
|
|
add [filestruct.offset], ebx
|
|
mov ecx, ebx
|
|
mov edx, folder_data+32+40 ; pointer to first file's name in BDFE
|
|
|
|
.inner: ; ebx = total number of BDFEs
|
|
; ecx = number of BDFEs remaining
|
|
; edx = pointer to file's name in BDFE
|
|
; ignore "." entry
|
|
cmp word[edx], 0x002E
|
|
je .added
|
|
; copy file/folder name to node_entry
|
|
mov esi, edx
|
|
mov edi, node_entry+4
|
|
@@:
|
|
movsb
|
|
cmp byte [esi-1], 0
|
|
jne @b
|
|
; check whether this is a file or a folder
|
|
mov al, byte[edx-40]
|
|
and al, 0x10
|
|
jz @f
|
|
; add a folder to tree
|
|
mov word[node_entry], 'fo'
|
|
stdcall [tl_node_add], tree1, 0x10000, node_entry
|
|
jmp .added
|
|
|
|
@@:
|
|
; add a file to tree
|
|
mov word[node_entry], 'fi'
|
|
stdcall [tl_node_add], tree1, 0, node_entry
|
|
|
|
.added:
|
|
add edx, 304 ; 304 = length of BDFE. jump to next file's name
|
|
loop .inner
|
|
stdcall [tl_draw], tree1
|
|
cmp ebx, 32
|
|
je .outer ; more BDFEs to come
|
|
|
|
.done:
|
|
ret
|
|
|
|
|
|
MIN_M_WND_H equ 500 ;
|
|
;input:
|
|
; edi = pointer to tedit struct
|
|
align 4
|
|
EvSize:
|
|
pushad
|
|
mov ebx, ted_scr_h
|
|
mov esi, ted_scr_w
|
|
|
|
m2m ted_wnd_w, [procinfo.client_box.width]
|
|
mov eax, ted_wnd_l
|
|
sub ted_wnd_w, eax
|
|
sub ted_wnd_w, 70
|
|
movzx eax, word[esi+sb_offs_size_x]
|
|
sub ted_wnd_w, eax
|
|
|
|
;m2m ted_wnd_h,[procinfo.client_box.height] ;
|
|
;cmp ted_wnd_h,MIN_M_WND_H
|
|
;jg @f
|
|
mov ted_wnd_h, MIN_M_WND_H
|
|
;@@:
|
|
|
|
movzx eax, word[ebx+sb_offs_size_y]
|
|
sub ted_wnd_h, eax
|
|
mov eax, ted_wnd_t
|
|
sub ted_wnd_h, eax
|
|
|
|
stdcall [ted_init_scroll_bars], tedit0,2
|
|
|
|
popad
|
|
ret
|
|
|
|
|
|
;;================================================================================================;;
|
|
filter_remote_list: ;/////////////////////////////////////////////////////////////////////////////;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;? Filter tree list according to pattern specified in 'filter' ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;> none ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;< none ;;
|
|
;;================================================================================================;;
|
|
stdcall [tl_cur_beg], tree2
|
|
|
|
.next_node:
|
|
stdcall [tl_node_get_data], tree2
|
|
; check whether any nodes left
|
|
test eax, eax
|
|
jnz @f
|
|
stdcall [tl_draw], tree2
|
|
stdcall dword[edit_box_set_text], edit_search, str_null
|
|
je gui.still
|
|
|
|
@@:
|
|
cmp byte[filter], 0
|
|
je gui.still
|
|
|
|
; calculate size of node entry
|
|
lea esi, [eax+4]
|
|
mov edi, esi
|
|
mov ecx, -1
|
|
@@:
|
|
lodsb
|
|
inc ecx
|
|
test al, al
|
|
jnz @b
|
|
|
|
; calculate size of pattern
|
|
mov esi, filter
|
|
mov edx, -1
|
|
@@:
|
|
lodsb
|
|
inc edx
|
|
test al, al
|
|
jnz @b
|
|
|
|
mov esi, filter
|
|
|
|
call search
|
|
pop esi
|
|
test al, al
|
|
|
|
jnz .get_next
|
|
stdcall [tl_node_delete], tree2
|
|
jmp @f
|
|
|
|
.get_next:
|
|
stdcall [tl_cur_next], tree2
|
|
|
|
@@:
|
|
jmp .next_node
|
|
|
|
|
|
;;================================================================================================;;
|
|
search: ;/////////////////////////////////////////////////////////////////////////////////////////;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;? Search for a substring within a string ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;> edi = pointer to haystack ;;
|
|
;> ecx = size of haystack ;;
|
|
;> esi = pointer to needle ;;
|
|
;> edx = size of needle ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;< al = 0 (not found) / 1 (found) ;;
|
|
;;================================================================================================;;
|
|
|
|
push ebx ecx edx esi edi
|
|
; if length of haystack < length of needle
|
|
cmp ecx, edx
|
|
jge @f
|
|
mov bh, 0
|
|
jmp .done
|
|
@@:
|
|
mov bh, 1 ; flag (0 = not found, 1 = found)
|
|
sub ecx, edx
|
|
dec edi
|
|
|
|
.outer:
|
|
cmp ecx, 0
|
|
jl .done
|
|
dec ecx
|
|
inc edi
|
|
mov bh, 1 ; flag (0 = not found, 1 = found)
|
|
mov edx, [esp+8]
|
|
mov esi, [esp+4]
|
|
|
|
.inner:
|
|
test edx, edx
|
|
jz .done
|
|
dec edx
|
|
|
|
mov eax, esi
|
|
sub eax, [esp+4]
|
|
mov al, byte[edi+eax]
|
|
mov bl, byte[esi]
|
|
|
|
inc esi
|
|
cmp al, bl
|
|
je .inner
|
|
mov bh, 0
|
|
jmp .outer
|
|
|
|
|
|
.done:
|
|
mov al, bh
|
|
pop edi esi edx ecx ebx
|
|
ret
|
|
|
|
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
|
|
|
|
;hed db 'FTP Client for KolibriOS',0
|
|
str_change db 'Change',0
|
|
str_disconnect db 'Disconnect',0
|
|
str_copy db 'Copy',0
|
|
str_mkd db 'MKD',0
|
|
str_dele db 'DELE',0
|
|
str_rdir db 'RDIR',0
|
|
str_rmd db 'RMD',0
|
|
str_abort db 'Cancel',0
|
|
str_search db 'Search',0
|
|
str_list db 'LIST',0
|
|
str_null db 0
|
|
|
|
;----------------------
|
|
; tree list elements
|
|
;----------------------
|
|
tree1 tree_list 64, 500, tl_list_box_mode, 16, 16, \
|
|
0xffffff, BT_COL, 0x000000, TLIST1_X, 105, TLIST_SZ-16, 185, 14, 4,\
|
|
0, el_focus, wScr, fun_on_enter
|
|
|
|
tree2 tree_list 64, 500, tl_list_box_mode, 16, 16, \
|
|
0xffffff, BT_COL, 0x000000, TLIST2_X, 105, TLIST_SZ-16, 185, 14, 4, \
|
|
0, el_focus, wScr2, fun_on_enter2
|
|
|
|
; editbox for mkd
|
|
edit_mkd edit_box TLIST_SZ-45, TLIST2_X, 80, 0xffffff, 0x94AECE, 0, \
|
|
0xAABBCC, 0x10000000, 63, new_dir_buf, mouse_dd, 0
|
|
|
|
; editbox for default volume
|
|
edit_volume edit_box TLIST_SZ-60, TLIST1_X, 80, 0xffffff, 0x94AECE, 0, \
|
|
0xAABBCC, 0x10000000, 99, root_dir, mouse_dd, 0
|
|
|
|
; editbox for search
|
|
edit_search edit_box TLIST_SZ-60, TLIST2_X, 22, 0xffffff, 0x94AECE, 0, \
|
|
0xAABBCC, 0x10000000, 99, filter,mouse_dd, 0
|
|
|
|
; A subsidiary structure for scrolling
|
|
align 4
|
|
wScr:
|
|
.x:
|
|
.size_x dw 16 ;+0
|
|
.start_x dw 250+50-16 ;+2
|
|
.y:
|
|
.size_y dw 185 ;+4
|
|
.start_y dw 105 ;+6
|
|
.btn_high dd 15 ;+8
|
|
.type dd 1 ;+12
|
|
.max_area dd 100 ;+16
|
|
.cur_area dd 30 ;+20
|
|
.position dd 0 ;+24
|
|
.bckg_col dd 0xeeeeee ;+28
|
|
.frnt_col dd 0xbbddff ;+32
|
|
.line_col dd 0 ;+36
|
|
.redraw dd 0 ;+40
|
|
.delta dw 0 ;+44
|
|
.delta2 dw 0 ;+46
|
|
.run_x:
|
|
.r_size_x dw 0 ;+48
|
|
.r_start_x dw 0 ;+50
|
|
.run_y:
|
|
.r_size_y dw 0 ;+52
|
|
.r_start_y dw 0 ;+54
|
|
.m_pos dd 0 ;+56
|
|
.m_pos_2 dd 0 ;+60
|
|
.m_keys dd 0 ;+64
|
|
.run_size dd 0 ;+68
|
|
.position2 dd 0 ;+72
|
|
.work_size dd 0 ;+76
|
|
.all_redraw dd 0 ;+80
|
|
.ar_offset dd 1 ;+84
|
|
|
|
align 4
|
|
wScr2:
|
|
.x:
|
|
.size_x dw 16 ;+0
|
|
.start_x dw 675+50-16 ;+2
|
|
.y:
|
|
.size_y dw 185 ;+4
|
|
.start_y dw 105 ;+6
|
|
.btn_high dd 15 ;+8
|
|
.type dd 1 ;+12
|
|
.max_area dd 100 ;+16
|
|
.cur_area dd 30 ;+20
|
|
.position dd 0 ;+24
|
|
.bckg_col dd 0xeeeeee ;+28
|
|
.frnt_col dd 0xbbddff ;+32
|
|
.line_col dd 0 ;+36
|
|
.redraw dd 0 ;+40
|
|
.delta dw 0 ;+44
|
|
.delta2 dw 0 ;+46
|
|
.run_x:
|
|
.r_size_x dw 0 ;+48
|
|
.r_start_x dw 0 ;+50
|
|
.run_y:
|
|
.r_size_y dw 0 ;+52
|
|
.r_start_y dw 0 ;+54
|
|
.m_pos dd 0 ;+56
|
|
.m_pos_2 dd 0 ;+60
|
|
.m_keys dd 0 ;+64
|
|
.run_size dd 0 ;+68
|
|
.position2 dd 0 ;+72
|
|
.work_size dd 0 ;+76
|
|
.all_redraw dd 0 ;+80
|
|
.ar_offset dd 1 ;+84
|
|
;----------------------
|
|
; end tree list element
|
|
;----------------------
|
|
|
|
;----------------------
|
|
; textedit elements
|
|
;----------------------
|
|
align 4
|
|
tedit0:
|
|
.wnd BOX 50,355,325,240 ;+ 0 195,5+40,325,240
|
|
.rec BOX 30,13,6,10 ;+16
|
|
.drag_m db 0 ;+32
|
|
.drag_k db 0 ;+33
|
|
.sel rb 16 ;+34
|
|
.seln rb 16 ;+50
|
|
.tex dd 0 ;+66 text memory pointer
|
|
.tex_1 dd 0 ;+70 text first symbol pointer
|
|
.tex_end dd 0 ;+74 text end memory pointer
|
|
.cur_x dd 0 ;+78
|
|
.cur_y dd 0 ;+82
|
|
.max_chars dd 4096 ;+86
|
|
.count_colors_text dd 1 ;+90
|
|
.count_key_words dd 0 ;+94
|
|
.color_cursor dd SYS_COL ;+98
|
|
.color_wnd_capt dd BT_COL ;+102
|
|
.color_wnd_work dd 0xffffff ;+106
|
|
.color_wnd_bord dd 0x737373 ;+110
|
|
.color_select dd 0xA4C4E4 ;+114
|
|
.color_cur_text dd 0xffff00 ;+118
|
|
.color_wnd_text dd 0x000000 ;+122
|
|
.syntax_file dd 0 ;+126
|
|
.syntax_file_size dd 500 ;+130
|
|
.text_colors dd 0 ;+134
|
|
.help_text_f1 dd 0 ;+138
|
|
.help_id dd -1 ;+142
|
|
.key_words_data dd 0 ;+146
|
|
.tim_ch dd ? ;+150
|
|
.tim_undo dd ? ;+154
|
|
.tim_ls dd ? ;+158
|
|
.tim_co dd ? ;+162
|
|
.el_focus dd el_focus ;+166
|
|
.err_save db 0 ;+170
|
|
.panel_id db 0 ;+171
|
|
.key_new db 0 ;+172
|
|
.symbol_new_line db 20 ;+173
|
|
.scr_w dd scrol_w1 ;+174
|
|
.scr_h dd scrol_h1 ;+178
|
|
.arr_key_pos dd 0 ;+182
|
|
.buffer dd ed_buffer ;+186
|
|
.buffer_find dd 0 ;+190
|
|
.cur_ins db 1 ;+194
|
|
.mode_color db 1 ;+195
|
|
.mode_invis db 0 ;+196
|
|
.gp_opt db 0 ;+197
|
|
dd 0 ;.fun_on_key_ctrl_all dd but_ctrl_all ;+198
|
|
dd 0,0,0 ;reserved
|
|
.buffer_size dd 4096 ;+214
|
|
.fun_find_err dd 0 ;+218
|
|
.fun_init_synt_err dd 0 ;+222
|
|
.fun_draw_panel_buttons dd 0 ;+226
|
|
.fun_draw_panels dd 0 ;+230
|
|
dd 0 ;+234 reserved
|
|
.fun_save_err dd 0 ;+238
|
|
.increase_size dd 1000 ;+242
|
|
.ptr_free_symb dd ? ;+246
|
|
.font_size dd 16 shl 16 ; +250
|
|
|
|
align 4
|
|
scrol_w1:
|
|
.x:
|
|
.size_x dw 16 ;+0
|
|
.start_x dw 85 ;+2
|
|
.y:
|
|
.size_y dw 100 ; +4
|
|
.start_y dw 15 ; +6
|
|
.btn_high dd 15 ; +8
|
|
.type dd 1 ;+12
|
|
.max_area dd 100 ;+16
|
|
rb 4+4
|
|
.bckg_col dd 0xeeeeee ;+28
|
|
.frnt_col dd 0xbbddff ;+32
|
|
.line_col dd 0x808080 ;+36
|
|
.redraw dd 0 ;+40
|
|
.delta dw 0 ;+44
|
|
.delta2 dw 0 ;+46
|
|
.run_x:
|
|
rb 2*4+4*6
|
|
.all_redraw dd 0 ;+80
|
|
.ar_offset dd 1 ;+84
|
|
;---------------------------------------------------------------------
|
|
align 4
|
|
scrol_h1:
|
|
.x:
|
|
.size_x dw 85 ;+0
|
|
.start_x dw 30 ;+2
|
|
.y:
|
|
.size_y dw 16 ;+4
|
|
.start_y dw 100 ;+6
|
|
.btn_high dd 15 ;+8
|
|
.type dd 1 ;+12
|
|
.max_area dd 100 ;+16
|
|
rb 4+4
|
|
.bckg_col dd 0xeeeeee ;+28
|
|
.frnt_col dd 0xbbddff ;+32
|
|
.line_col dd 0x808080 ;+36
|
|
.redraw dd 0 ;+40
|
|
.delta dw 0 ;+44
|
|
.delta2 dw 0 ;+46
|
|
.run_x:
|
|
rb 2*4+4*6
|
|
.all_redraw dd 0 ;+80
|
|
.ar_offset dd 1 ;+84
|
|
|
|
;------------
|
|
;Progress bar
|
|
;------------
|
|
struc pb
|
|
{
|
|
dd 0 ; PB_VALUE equ +0
|
|
dd (TLIST2_X+TLIST1_X+TLIST_SZ)/2-150 ; PB_LEFT equ +4. 150 = PB_WIDTH/2
|
|
dd 315; PB_TOP equ +8
|
|
dd 300; PB_WIDTH equ +12
|
|
dd 15 ; PB_HEIGHT equ +16
|
|
dd ? ; PB_STYLE equ +20
|
|
dd 0 ; PB_MIN equ +24
|
|
dd 100; PB_MAX equ +28
|
|
dd 0xffffff; PB_BACK_COLOR equ +32
|
|
dd 0x00ff40; PB_PROGRESS_COLOR equ +36
|
|
dd 0x808080; PB_FRAME_COLOR equ +40
|
|
}
|
|
pb pb
|
|
|
|
|
|
align 4
|
|
@IMPORT_GUI_LIBS:
|
|
|
|
library box_lib, 'box_lib.obj', libimg, 'libimg.obj'
|
|
|
|
import box_lib, \
|
|
edit_box_draw, 'edit_box', \
|
|
edit_box_key, 'edit_box_key', \
|
|
edit_box_mouse, 'edit_box_mouse', \
|
|
edit_box_set_text, 'edit_box_set_text', \
|
|
version_ed, 'version_ed', \
|
|
scrollbar_ver_draw ,'scrollbar_v_draw', \
|
|
scrollbar_ver_mouse,'scrollbar_v_mouse', \
|
|
scrollbar_hor_draw, 'scrollbar_h_draw', \
|
|
scrollbar_hor_mouse,'scrollbar_h_mouse', \
|
|
version_scrollbar, 'version_scrollbar', \
|
|
tl_data_init, 'tl_data_init', \
|
|
tl_data_clear, 'tl_data_clear', \
|
|
tl_info_clear, 'tl_info_clear', \
|
|
tl_key, 'tl_key', \
|
|
tl_mouse, 'tl_mouse', \
|
|
tl_draw, 'tl_draw', \
|
|
tl_node_add, 'tl_node_add', \
|
|
tl_node_set_data, 'tl_node_set_data', \
|
|
tl_node_get_data, 'tl_node_get_data', \
|
|
tl_node_delete, 'tl_node_delete', \
|
|
tl_cur_beg, 'tl_cur_beg', \
|
|
tl_cur_next, 'tl_cur_next', \
|
|
tl_cur_perv, 'tl_cur_perv', \
|
|
tl_node_close_open, 'tl_node_close_open', \
|
|
ted_but_sumb_upper, 'ted_but_sumb_upper', \
|
|
ted_but_sumb_lover, 'ted_but_sumb_lover', \
|
|
ted_can_save, 'ted_can_save', \
|
|
ted_clear, 'ted_clear', \
|
|
ted_delete, 'ted_delete', \
|
|
ted_draw, 'ted_draw', \
|
|
ted_init, 'ted_init', \
|
|
ted_init_scroll_bars, 'ted_init_scroll_bars', \
|
|
ted_init_syntax_file, 'ted_init_syntax_file', \
|
|
ted_is_select, 'ted_is_select', \
|
|
ted_key, 'ted_key', \
|
|
ted_mouse, 'ted_mouse', \
|
|
ted_open_file, 'ted_open_file', \
|
|
ted_save_file, 'ted_save_file', \
|
|
ted_text_add, 'ted_text_add', \
|
|
ted_but_select_word,'ted_but_select_word', \
|
|
ted_but_cut, 'ted_but_cut', \
|
|
ted_but_copy, 'ted_but_copy', \
|
|
ted_but_paste, 'ted_but_paste', \
|
|
ted_but_undo, 'ted_but_undo', \
|
|
ted_but_redo, 'ted_but_redo', \
|
|
ted_but_reverse, 'ted_but_reverse', \
|
|
ted_but_find, 'ted_but_find', \
|
|
ted_but_replace, 'ted_but_replace', \
|
|
ted_text_colored, 'ted_text_colored', \
|
|
ted_go_to_position, 'ted_go_to_position', \
|
|
progressbar_draw, 'progressbar_draw'
|
|
|
|
import libimg, \
|
|
lib_init1 , 'lib_init', \
|
|
img_is_img , 'img_is_img', \;определяет по данным, может ли библиотека сделать из них изображение \
|
|
img_info , 'img_info', \
|
|
img_from_file , 'img_from_file', \
|
|
img_to_file , 'img_to_file', \
|
|
img_from_rgb , 'img_from_rgb', \
|
|
img_to_rgb , 'img_to_rgb', \;преобразование изображения в данные RGB \
|
|
img_to_rgb2 , 'img_to_rgb2', \
|
|
img_decode , 'img_decode', \ ;автоматически определяет формат графических данных \
|
|
img_encode , 'img_encode', \
|
|
img_create , 'img_create', \
|
|
img_destroy , 'img_destroy', \
|
|
img_destroy_layer , 'img_destroy_layer', \
|
|
img_count , 'img_count', \
|
|
img_lock_bits , 'img_lock_bits', \
|
|
img_unlock_bits , 'img_unlock_bits', \
|
|
img_flip , 'img_flip', \
|
|
img_flip_layer , 'img_flip_layer', \
|
|
img_rotate , 'img_rotate', \
|
|
img_rotate_layer , 'img_rotate_layer', \
|
|
img_draw , 'img_draw'
|
|
|
|
|
|
run_file_70 FileInfoBlock ; required for libimg
|
|
|
|
auto_list db 1 ; to run LIST immediately after CWD
|
|
filter rb 512
|
|
root_dir db '/tmp0/1'
|
|
rb 505
|
|
new_dir_buf rb 64
|
|
folder_data rb 32+32*304
|
|
node_entry db '1111'
|
|
rb 512
|
|
node_entry2 db '1111'
|
|
rb 512
|
|
remote_list_buf rb 1024
|
|
file_name rb 4096 ; required for libimg
|
|
conv_tabl rb 128
|
|
ed_buffer rb 100
|
|
tedit_buffer rb 1024
|
|
el_focus dd 0
|
|
;-----------------------
|
|
|
|
procinfo process_information |