WebSVN – Kolibri OS – Diff – /programs/network/ftpc/gui.inc


include '../../load_img.inc'
include '../../develop/libraries/libs-dev/libimg/libimg.inc'
include '../../develop/libraries/box_lib/trunk/box_lib.mac'
include '../../load_lib.mac'
 
@use_library
 
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, , <20,25>, 5, BT_COL
        ; string "Search"
        mcall   4, , 0xb0000000+STR_COL, str_search
 
        ; draw "LIST" button
        mcall   8, , <50,25>, 12, BT_COL
        ; string "LIST"
        mcall   4, , 0xb0000000+STR_COL, str_list
        ; draw "DELE" button
        mcall   8, , <50,25>, 7, BT_COL
        ; string "DELE"
        mcall   4, , 0xb0000000+STR_COL, str_dele
        ; draw "RDIR" button
        mcall   8, , <50,25>, 8, BT_COL
        ; string "RDIR"
        mcall   4, , 0xb0000000+STR_COL, str_rdir
        ; draw "RMD" button
        mcall   8, , <50,25>, 9, BT_COL
        ; string "RMD"
        mcall   4, , 0xb0000000+STR_COL, str_rmd
 
        ; draw "mkd" button
        mcall   8, , <80,20>, 6, BT_COL
        ; string "mkd"
        mcall   4, , 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, , <100-20,22>, 11, BT_COL
        ; string "Change"
        mcall   4, , 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_draw', \
        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'
 
 
auto_list   db 1 ; to run LIST immediately after CWD
filter      rb 512
root_dir    db '/tmp0/1'
            rb 505
node_entry  db '1111'
            rb 512
node_entry2 db '1111'
            rb 512

Rev 8442	Rev 9568
1	include '../../load_img.inc'	1	include '../../load_img.inc'
2	include '../../develop/libraries/libs-dev/libimg/libimg.inc'	2	include '../../develop/libraries/libs-dev/libimg/libimg.inc'
3	include '../../develop/libraries/box_lib/trunk/box_lib.mac'	3	include '../../develop/libraries/box_lib/trunk/box_lib.mac'
4	include '../../load_lib.mac'	4	include '../../load_lib.mac'
5		5
6	@use_library	6	@use_library
7		7
8	icon_tl_sys dd 0	8	icon_tl_sys dd 0
9	icon_tl_nod dd 0	9	icon_tl_nod dd 0
10		10
11	TLIST_SZ = 325+16 ;=341. 16 is x-size of scroll bar	11	TLIST_SZ = 325+16 ;=341. 16 is x-size of scroll bar
12	TLIST1_X = 50	12	TLIST1_X = 50
13	TLIST2_X = 409	13	TLIST2_X = 409
14	BT_SZ_X = 40	14	BT_SZ_X = 40
15	SYS_COL = 0xe6e6e6	15	SYS_COL = 0xe6e6e6
16	BT_COL = 0xcccccc	16	BT_COL = 0xcccccc
17	STR_COL = 0x595959 ;0x000000	17	STR_COL = 0x595959 ;0x000000
18		18
19	; TODO: automatic resizing of GUI elements on window resizing	19	; TODO: automatic resizing of GUI elements on window resizing
20		20
21	align 4	21	align 4
22	;;================================================================================================;;	22	;;================================================================================================;;
23	gui: ;////////////////////////////////////////////////////////////////////////////////////////////;;	23	gui: ;////////////////////////////////////////////////////////////////////////////////////////////;;
24	;;------------------------------------------------------------------------------------------------;;	24	;;------------------------------------------------------------------------------------------------;;
25	;? GUI-specific functions ;;	25	;? GUI-specific functions ;;
26	;;------------------------------------------------------------------------------------------------;;	26	;;------------------------------------------------------------------------------------------------;;
27	;> none ;;	27	;> none ;;
28	;;------------------------------------------------------------------------------------------------;;	28	;;------------------------------------------------------------------------------------------------;;
29	;< none ;;	29	;< none ;;
30	;;================================================================================================;;	30	;;================================================================================================;;
31		31
32	dd .init	32	dd .init
33	dd .server_addr	33	dd .server_addr
34	dd .get_username	34	dd .get_username
35	dd .get_cmd	35	dd .get_cmd
36	dd .print	36	dd .print
37	dd .set_flags	37	dd .set_flags
38	dd .list	38	dd .list
39	dd .progress	39	dd .progress
40	dd .error	40	dd .error
41		41
42	.init:	42	.init:
43	; load libraries	43	; load libraries
44	stdcall dll.Load, @IMPORT_GUI_LIBS	44	stdcall dll.Load, @IMPORT_GUI_LIBS
45	test eax, eax	45	test eax, eax
46	jnz .exit	46	jnz .exit
47		47
48	mcall 48, 3, sc, sizeof.system_colors	48	mcall 48, 3, sc, sizeof.system_colors
49	mcall 40, 0xC0000027 ; set event mask	49	mcall 40, 0xC0000027 ; set event mask
50	ret	50	ret
51		51
52	.server_addr:	52	.server_addr:
53	mov [auto_list], 1	53	mov [auto_list], 1
54	jmp login_gui.server_addr	54	jmp login_gui.server_addr
55		55
56	.get_username:	56	.get_username:
57	jmp login_gui.get_username	57	jmp login_gui.get_username
58		58
59		59
60	;;================================================================================================;;	60	;;================================================================================================;;
61	.main: ;//////////////////////////////////////////////////////////////////////////////////////;;	61	.main: ;//////////////////////////////////////////////////////////////////////////////////////;;
62	;;------------------------------------------------------------------------------------------------;;	62	;;------------------------------------------------------------------------------------------------;;
63	;? Initialize tree list, editbox and textedit elements ;;	63	;? Initialize tree list, editbox and textedit elements ;;
64	;;------------------------------------------------------------------------------------------------;;	64	;;------------------------------------------------------------------------------------------------;;
65	;> none ;;	65	;> none ;;
66	;;------------------------------------------------------------------------------------------------;;	66	;;------------------------------------------------------------------------------------------------;;
67	;< none ;;	67	;< none ;;
68	;;================================================================================================;;	68	;;================================================================================================;;
69		69
70	stdcall [ted_init], tedit0	70	stdcall [ted_init], tedit0
71	stdcall [edit_box_set_text], edit_volume, root_dir	71	stdcall [edit_box_set_text], edit_volume, root_dir
72		72
73	; initialize tree list elements	73	; initialize tree list elements
74	stdcall [tl_data_init], tree1	74	stdcall [tl_data_init], tree1
75	stdcall [tl_data_init], tree2	75	stdcall [tl_data_init], tree2
76		76
77	or dword[tree1.style], 8 ;tl_cursor_pos_limited - restrict cursor move to existing nodes	77	or dword[tree1.style], 8 ;tl_cursor_pos_limited - restrict cursor move to existing nodes
78	or dword[tree2.style], 8 ;tl_cursor_pos_limited	78	or dword[tree2.style], 8 ;tl_cursor_pos_limited
79		79
80	; read icons	80	; read icons
81	load_image_file 'ftpc_sys.png', icon_tl_sys	81	load_image_file 'ftpc_sys.png', icon_tl_sys
82		82
83	mov [filestruct.ptr], eax	83	mov [filestruct.ptr], eax
84	mov [filestruct.subfn], 0	84	mov [filestruct.subfn], 0
85	mov [filestruct.offset], 54	85	mov [filestruct.offset], 54
86	mov [filestruct.size], ecx	86	mov [filestruct.size], ecx
87	mcall 70, filestruct	87	mcall 70, filestruct
88	cmp ebx, 0	88	cmp ebx, 0
89	jl @f	89	jl @f
90	m2m dword[tree1.data_img_sys], dword[icon_tl_sys]	90	m2m dword[tree1.data_img_sys], dword[icon_tl_sys]
91	m2m dword[tree2.data_img_sys], dword[icon_tl_sys]	91	m2m dword[tree2.data_img_sys], dword[icon_tl_sys]
92		92
93	@@:	93	@@:
94	; read nodes icon file	94	; read nodes icon file
95	load_image_file 'ftpc_nod.png', icon_tl_nod	95	load_image_file 'ftpc_nod.png', icon_tl_nod
96		96
97	mov [filestruct.ptr], eax	97	mov [filestruct.ptr], eax
98	;mov [filestruct.subfn], 0	98	;mov [filestruct.subfn], 0
99	;mov [filestruct.offset], 54	99	;mov [filestruct.offset], 54
100	mov [filestruct.size], ecx	100	mov [filestruct.size], ecx
101	mcall 70, filestruct	101	mcall 70, filestruct
102	cmp ebx, 0	102	cmp ebx, 0
103	jl @f	103	jl @f
104	m2m dword[tree1.data_img], dword[icon_tl_nod]	104	m2m dword[tree1.data_img], dword[icon_tl_nod]
105	m2m dword[tree2.data_img], dword[icon_tl_nod]	105	m2m dword[tree2.data_img], dword[icon_tl_nod]
106		106
107	@@:	107	@@:
108	call .draw	108	call .draw
109	; create initial tree list for root_dir	109	; create initial tree list for root_dir
110	call populate_local_tree_list	110	call populate_local_tree_list
111	jmp arg_handler.connect	111	jmp arg_handler.connect
112		112
113	.get_cmd:	113	.get_cmd:
114	dec [auto_list]	114	dec [auto_list]
115	jnz .redraw	115	jnz .redraw
116	call .clear_remote_tree	116	call .clear_remote_tree
117	jmp cmd_list	117	jmp cmd_list
118		118
119	.redraw:	119	.redraw:
120	call .draw	120	call .draw
121		121
122	align 4	122	align 4
123	.still:	123	.still:
124	mcall 10	124	mcall 10
125		125
126	dec eax	126	dec eax
127	jz .redraw	127	jz .redraw
128	dec eax	128	dec eax
129	jz .key	129	jz .key
130	dec eax	130	dec eax
131	jz .button	131	jz .button
132	sub eax, 3	132	sub eax, 3
133	jz .mouse	133	jz .mouse
134		134
135	jmp .still	135	jmp .still
136		136
137	.error:	137	.error:
138	jmp login_gui.error	138	jmp login_gui.error
139		139
140	.exit:	140	.exit:
141	; stdcall mem.Free,[bmp_icon]	141	; stdcall mem.Free,[bmp_icon]
142	stdcall [tl_data_clear], tree1	142	stdcall [tl_data_clear], tree1
143	stdcall [tl_data_clear], tree2	143	stdcall [tl_data_clear], tree2
144	stdcall [ted_delete], tedit0	144	stdcall [ted_delete], tedit0
145	jmp exit	145	jmp exit
146		146
147	align 4	147	align 4
148	.draw:	148	.draw:
149	mcall 12, 1	149	mcall 12, 1
150	; main window	150	; main window
151	mcall 0, <35,830>, <20,555>, 0x34000000+SYS_COL, 0x805080DD, str_title	151	mcall 0, <35,830>, <20,555>, 0x34000000+SYS_COL, 0x805080DD, str_title
152		152
153	;-------------------------	153	;-------------------------
154	; textedit components	154	; textedit components
155	;-------------------------	155	;-------------------------
156	mcall 9, procinfo, -1	156	mcall 9, procinfo, -1
157	mov edi, tedit0	157	mov edi, tedit0
158	call EvSize	158	call EvSize
159		159
160	movzx ebx,word[procinfo.client_box.width]	160	movzx ebx,word[procinfo.client_box.width]
161	inc bx	161	inc bx
162	mcall 13, , ted_wnd_t	162	mcall 13, , ted_wnd_t
163	stdcall [ted_draw], tedit0	163	stdcall [ted_draw], tedit0
164		164
165	; draw "disconnect" button	165	; draw "disconnect" button
166	mcall 8, <50,95>, <25,25>, 3, BT_COL	166	mcall 8, <50,95>, <25,25>, 3, BT_COL
167	; string "disconnect"	167	; string "disconnect"
168	mcall 4, <50+5,25+5>, 0xb0000000+STR_COL, str_disconnect	168	mcall 4, <50+5,25+5>, 0xb0000000+STR_COL, str_disconnect
169	; draw "Copy" button	169	; draw "Copy" button
170	mcall 8, <50,40>, <326,25>, 4, BT_COL	170	mcall 8, <50,40>, <326,25>, 4, BT_COL
171	; string "copy"	171	; string "copy"
172	mcall 4, <50+5,326+5>, 0xb0000000+STR_COL, str_copy	172	mcall 4, <50+5,326+5>, 0xb0000000+STR_COL, str_copy
173	; draw "Search" button	173	; draw "Search" button
174	mcall 8, , <20,25>, 5, BT_COL	174	mcall 8, , <20,25>, 5, BT_COL
175	; string "Search"	175	; string "Search"
176	mcall 4, , 0xb0000000+STR_COL, str_search	176	mcall 4, , 0xb0000000+STR_COL, str_search
177		177
178	; draw "LIST" button	178	; draw "LIST" button
179	mcall 8, , <50,25>, 12, BT_COL	179	mcall 8, , <50,25>, 12, BT_COL
180	; string "LIST"	180	; string "LIST"
181	mcall 4, , 0xb0000000+STR_COL, str_list	181	mcall 4, , 0xb0000000+STR_COL, str_list
182	; draw "DELE" button	182	; draw "DELE" button
183	mcall 8, , <50,25>, 7, BT_COL	183	mcall 8, , <50,25>, 7, BT_COL
184	; string "DELE"	184	; string "DELE"
185	mcall 4, , 0xb0000000+STR_COL, str_dele	185	mcall 4, , 0xb0000000+STR_COL, str_dele
186	; draw "RDIR" button	186	; draw "RDIR" button
187	mcall 8, , <50,25>, 8, BT_COL	187	mcall 8, , <50,25>, 8, BT_COL
188	; string "RDIR"	188	; string "RDIR"
189	mcall 4, , 0xb0000000+STR_COL, str_rdir	189	mcall 4, , 0xb0000000+STR_COL, str_rdir
190	; draw "RMD" button	190	; draw "RMD" button
191	mcall 8, , <50,25>, 9, BT_COL	191	mcall 8, , <50,25>, 9, BT_COL
192	; string "RMD"	192	; string "RMD"
193	mcall 4, , 0xb0000000+STR_COL, str_rmd	193	mcall 4, , 0xb0000000+STR_COL, str_rmd
194		194
195	; draw "mkd" button	195	; draw "mkd" button
196	mcall 8, , <80,20>, 6, BT_COL	196	mcall 8, , <80,20>, 6, BT_COL
197	; string "mkd"	197	; string "mkd"
198	mcall 4, , 0xb0000000+STR_COL, str_mkd	198	mcall 4, , 0xb0000000+STR_COL, str_mkd
199		199
200	; draw "cancel" button	200	; draw "cancel" button
201	;mcall 8, <555,55>, <308,25>, 10, BT_COL	201	;mcall 8, <555,55>, <308,25>, 10, BT_COL
202	; string "Cancel"	202	; string "Cancel"
203	;mcall 4, <555+5,308+5>, 0xb0000000+STR_COL, str_abort	203	;mcall 4, <555+5,308+5>, 0xb0000000+STR_COL, str_abort
204	; draw "change volume" button	204	; draw "change volume" button
205	mcall 8, , <100-20,22>, 11, BT_COL	205	mcall 8, , <100-20,22>, 11, BT_COL
206	; string "Change"	206	; string "Change"
207	mcall 4, , 0xb0000000+STR_COL, str_change	207	mcall 4, , 0xb0000000+STR_COL, str_change
208		208
209	;--------------------------	209	;--------------------------
210	; tree list components	210	; tree list components
211	;--------------------------	211	;--------------------------
212	stdcall [tl_draw], tree1	212	stdcall [tl_draw], tree1
213	stdcall [tl_draw], tree2	213	stdcall [tl_draw], tree2
214		214
215	mov dword[wScr.all_redraw], 1	215	mov dword[wScr.all_redraw], 1
216	stdcall [scrollbar_ver_draw], wScr	216	stdcall [scrollbar_ver_draw], wScr
217		217
218	mov dword[wScr2.all_redraw],1	218	mov dword[wScr2.all_redraw],1
219	stdcall [scrollbar_ver_draw], wScr2	219	stdcall [scrollbar_ver_draw], wScr2
220		220
221	stdcall [edit_box_draw], edit_mkd	221	stdcall [edit_box_draw], edit_mkd
222	stdcall [edit_box_draw], edit_volume	222	stdcall [edit_box_draw], edit_volume
223	stdcall [edit_box_draw], edit_search	223	stdcall [edit_box_draw], edit_search
224		224
225	mcall 12,2	225	mcall 12,2
226	ret	226	ret
227		227
228	align 16	228	align 16
229	.mouse:	229	.mouse:
230	mcall 37, 1	230	mcall 37, 1
231	cmp word[tedit0.wnd.top], ax	231	cmp word[tedit0.wnd.top], ax
232	jg .no_edit	232	jg .no_edit
233		233
234	shr eax, 16	234	shr eax, 16
235	cmp word[tedit0.wnd.left], ax	235	cmp word[tedit0.wnd.left], ax
236	jg .no_edit	236	jg .no_edit
237		237
238	mcall 37, 3	238	mcall 37, 3
239	bt eax, 24	239	bt eax, 24
240	jnc @f	240	jnc @f
241		241
242	stdcall [ted_but_select_word], tedit0	242	stdcall [ted_but_select_word], tedit0
243	jmp .still	243	jmp .still
244		244
245	@@:	245	@@:
246	stdcall [ted_mouse], tedit0	246	stdcall [ted_mouse], tedit0
247	jmp .still	247	jmp .still
248		248
249	.no_edit:	249	.no_edit:
250	stdcall [tl_mouse], tree1	250	stdcall [tl_mouse], tree1
251	stdcall [tl_mouse], tree2	251	stdcall [tl_mouse], tree2
252	stdcall [edit_box_mouse], edit_mkd	252	stdcall [edit_box_mouse], edit_mkd
253	stdcall [edit_box_mouse], edit_volume	253	stdcall [edit_box_mouse], edit_volume
254	stdcall [edit_box_mouse], edit_search	254	stdcall [edit_box_mouse], edit_search
255	jmp .still	255	jmp .still
256		256
257	align 16	257	align 16
258	.key:	258	.key:
259	mcall 2	259	mcall 2
260	stdcall [tl_key], tree1	260	stdcall [tl_key], tree1
261	stdcall [tl_key], tree2	261	stdcall [tl_key], tree2
262	stdcall [edit_box_key], edit_mkd	262	stdcall [edit_box_key], edit_mkd
263	stdcall [edit_box_key], edit_volume	263	stdcall [edit_box_key], edit_volume
264	stdcall [edit_box_key], edit_search	264	stdcall [edit_box_key], edit_search
265	jmp .still	265	jmp .still
266		266
267	align 16	267	align 16
268	.button:	268	.button:
269	mcall 17	269	mcall 17
270		270
271	cmp ah, 3	271	cmp ah, 3
272	jne @f	272	jne @f
273	ijmp eax, interface_addr, interface.server_addr	273	ijmp eax, interface_addr, interface.server_addr
274	jmp .still	274	jmp .still
275		275
276	@@:	276	@@:
277	cmp ah, 4	277	cmp ah, 4
278	jne @f	278	jne @f
279	stdcall [ted_but_copy], tedit0	279	stdcall [ted_but_copy], tedit0
280	jmp .still	280	jmp .still
281		281
282	@@:	282	@@:
283	cmp ah, 5	283	cmp ah, 5
284	jne @f	284	jne @f
285	je filter_remote_list	285	je filter_remote_list
286		286
287	@@:	287	@@:
288	cmp ah, 6	288	cmp ah, 6
289	je create_remote_dir	289	je create_remote_dir
290		290
291	cmp ah, 7	291	cmp ah, 7
292	je delete_file	292	je delete_file
293		293
294	cmp ah, 8	294	cmp ah, 8
295	je cmd_rdir	295	je cmd_rdir
296		296
297	cmp ah, 9	297	cmp ah, 9
298	je remove_dir	298	je remove_dir
299		299
300	cmp ah, 11	300	cmp ah, 11
301	jne @f	301	jne @f
302	call populate_local_tree_list	302	call populate_local_tree_list
303		303
304	@@:	304	@@:
305	cmp ah, 12	305	cmp ah, 12
306	jne @f	306	jne @f
307	call .clear_remote_tree	307	call .clear_remote_tree
308	je cmd_list	308	je cmd_list
309		309
310	@@:	310	@@:
311	cmp ah, 1	311	cmp ah, 1
312	je .exit	312	je .exit
313		313
314	jmp .still	314	jmp .still
315		315
316	.print:	316	.print:
317	pushad	317	pushad
318	mov ebx, ted_opt_ed_change_time + ted_opt_ed_move_cursor	318	mov ebx, ted_opt_ed_change_time + ted_opt_ed_move_cursor
319	mov ecx, 2 ; 0a0d	319	mov ecx, 2 ; 0a0d
320	mov esi, [esp+36]	320	mov esi, [esp+36]
321	mov word[tedit_buffer], 0x0a0d	321	mov word[tedit_buffer], 0x0a0d
322	lea edi, [tedit_buffer+2]	322	lea edi, [tedit_buffer+2]
323		323
324	@@:	324	@@:
325	movsb	325	movsb
326	inc ecx	326	inc ecx
327	cmp byte[esi], 0	327	cmp byte[esi], 0
328	jne @b	328	jne @b
329	stdcall [ted_text_add], tedit0, tedit_buffer, ecx, ebx	329	stdcall [ted_text_add], tedit0, tedit_buffer, ecx, ebx
330	stdcall [ted_draw], tedit0	330	stdcall [ted_draw], tedit0
331	; write to log file	331	; write to log file
332	mov eax, [esp+36]	332	mov eax, [esp+36]
333	sub ecx, 2 ; 0a0d is not included	333	sub ecx, 2 ; 0a0d is not included
334	call write_to_file	334	call write_to_file
335		335
336	@@:	336	@@:
337	popad	337	popad
338	ret 4	338	ret 4
339		339
340	.set_flags:	340	.set_flags:
341	ret 4	341	ret 4
342		342
343		343
344	;;================================================================================================;;	344	;;================================================================================================;;
345	.list: ;//////////////////////////////////////////////////////////////////////////////////////;;	345	.list: ;//////////////////////////////////////////////////////////////////////////////////////;;
346	;;------------------------------------------------------------------------------------------------;;	346	;;------------------------------------------------------------------------------------------------;;
347	;? update tree2 with remote directory listing ;;	347	;? update tree2 with remote directory listing ;;
348	;;------------------------------------------------------------------------------------------------;;	348	;;------------------------------------------------------------------------------------------------;;
349	;> buf_buffer2 = received data buffer ;;	349	;> buf_buffer2 = received data buffer ;;
350	;> eax = size of data ;;	350	;> eax = size of data ;;
351	;> remote_list_buf = buffer containing last incomplete entry (if any) ;;	351	;> remote_list_buf = buffer containing last incomplete entry (if any) ;;
352	;;------------------------------------------------------------------------------------------------;;	352	;;------------------------------------------------------------------------------------------------;;
353	;< none ;;	353	;< none ;;
354	;;================================================================================================;;	354	;;================================================================================================;;
355		355
356	push edx	356	push edx
357	push eax	357	push eax
358	; check if any incomplete entry to be parsed	358	; check if any incomplete entry to be parsed
359	cmp byte[remote_list_buf], 0	359	cmp byte[remote_list_buf], 0
360	je .no_backlog	360	je .no_backlog
361	; find end of remote_list_buf	361	; find end of remote_list_buf
362	mov edi, remote_list_buf	362	mov edi, remote_list_buf
363	mov al, 0	363	mov al, 0
364	repne scasb	364	repne scasb
365	; copy rest of the incomplete entry to remote_list_buf	365	; copy rest of the incomplete entry to remote_list_buf
366	mov esi, buf_buffer2	366	mov esi, buf_buffer2
367	dec edi	367	dec edi
368		368
369	@@:	369	@@:
370	movsb	370	movsb
371	cmp word[esi-2], 0x0a0d	371	cmp word[esi-2], 0x0a0d
372	jne @b	372	jne @b
373	mov byte[edi], 0	373	mov byte[edi], 0
374	mov ecx, edi	374	mov ecx, edi
375	sub ecx, remote_list_buf ; ecx = length of remote_list_buf	375	sub ecx, remote_list_buf ; ecx = length of remote_list_buf
376	mov ebx, esi ; ebx = address at which next parse should start	376	mov ebx, esi ; ebx = address at which next parse should start
377	mov edi, remote_list_buf	377	mov edi, remote_list_buf
378	jmp .start_parsing	378	jmp .start_parsing
379		379
380	.no_backlog:	380	.no_backlog:
381	mov ecx, eax ; ecx = number of bytes remaining to parse in buf_buffer2	381	mov ecx, eax ; ecx = number of bytes remaining to parse in buf_buffer2
382	mov edi, buf_buffer2	382	mov edi, buf_buffer2
383		383
384	.start_parsing:	384	.start_parsing:
385	; find pointer to name	385	; find pointer to name
386	cmp byte[edi], 'd' ; file is a directory	386	cmp byte[edi], 'd' ; file is a directory
387	je @f	387	je @f
388	cmp byte[edi], 'l' ; link	388	cmp byte[edi], 'l' ; link
389	je @f	389	je @f
390	mov word[node_entry2], 'fi'	390	mov word[node_entry2], 'fi'
391	jmp .parse	391	jmp .parse
392		392
393	@@:	393	@@:
394	mov word[node_entry2], 'fo'	394	mov word[node_entry2], 'fo'
395		395
396	.parse:	396	.parse:
397	mov edx, 8	397	mov edx, 8
398		398
399	@@:	399	@@:
400	mov al, ' '	400	mov al, ' '
401	mov ecx, [esp]	401	mov ecx, [esp]
402	add ecx, buf_buffer2	402	add ecx, buf_buffer2
403	sub ecx, edi	403	sub ecx, edi
404		404
405	repne scasb	405	repne scasb
406		406
407	; check if the (last) entry is incomplete	407	; check if the (last) entry is incomplete
408	test ecx, ecx	408	test ecx, ecx
409	jz .store_last_entry	409	jz .store_last_entry
410		410
411	rep scasb	411	rep scasb
412	test ecx, ecx	412	test ecx, ecx
413	jz .store_last_entry	413	jz .store_last_entry
414		414
415	dec edx	415	dec edx
416	jnz @b	416	jnz @b
417		417
418	lea esi, [edi-1]	418	lea esi, [edi-1]
419	lea edi, [node_entry2+4]	419	lea edi, [node_entry2+4]
420	@@:	420	@@:
421	movsb	421	movsb
422	cmp word[esi], 0x0a0d ; end of entry	422	cmp word[esi], 0x0a0d ; end of entry
423	jne @b	423	jne @b
424	mov byte[edi], 0	424	mov byte[edi], 0
425		425
426	; add node to tree list	426	; add node to tree list
427	cmp word[node_entry2], 'fi'	427	cmp word[node_entry2], 'fi'
428	jne @f	428	jne @f
429	stdcall [tl_node_add], tree2, 0, node_entry2	429	stdcall [tl_node_add], tree2, 0, node_entry2
430	jmp .added_remote_node	430	jmp .added_remote_node
431		431
432	@@:	432	@@:
433	stdcall [tl_node_add], tree2, 0x10000, node_entry2	433	stdcall [tl_node_add], tree2, 0x10000, node_entry2
434		434
435	.added_remote_node:	435	.added_remote_node:
436	; check whether we are parsing remote_list_buf	436	; check whether we are parsing remote_list_buf
437	cmp byte[remote_list_buf], 0	437	cmp byte[remote_list_buf], 0
438	je @f	438	je @f
439	mov byte[remote_list_buf], 0 ; done parsing remote_list_buf	439	mov byte[remote_list_buf], 0 ; done parsing remote_list_buf
440	mov edi, ebx	440	mov edi, ebx
441	mov eax, [esp]	441	mov eax, [esp]
442	mov ecx, buf_buffer2	442	mov ecx, buf_buffer2
443	add ecx, eax	443	add ecx, eax
444	sub ecx, ebx	444	sub ecx, ebx
445	jmp .start_parsing	445	jmp .start_parsing
446		446
447	@@:	447	@@:
448	; any more entries to parse?	448	; any more entries to parse?
449	lea edi, [esi+2] ; skip 0a0d	449	lea edi, [esi+2] ; skip 0a0d
450	cmp byte[edi], 0	450	cmp byte[edi], 0
451	jne .start_parsing	451	jne .start_parsing
452	jmp .done_parsing	452	jmp .done_parsing
453		453
454	.store_last_entry:	454	.store_last_entry:
455	; find index of the last incomplete entry	455	; find index of the last incomplete entry
456	mov ecx, -1	456	mov ecx, -1
457	mov eax, [esp]	457	mov eax, [esp]
458	lea edi, [buf_buffer2+eax-2]	458	lea edi, [buf_buffer2+eax-2]
459	mov al, 0x0a	459	mov al, 0x0a
460	std	460	std
461	repne scasb	461	repne scasb
462	cld	462	cld
463		463
464	; copy last (incomplete) entry of buf_buffer2 to remote_list_buf	464	; copy last (incomplete) entry of buf_buffer2 to remote_list_buf
465	lea esi, [edi+2]	465	lea esi, [edi+2]
466	mov edi, remote_list_buf	466	mov edi, remote_list_buf
467	@@:	467	@@:
468	movsb	468	movsb
469	cmp byte[esi-1], 0	469	cmp byte[esi-1], 0
470	jne @b	470	jne @b
471		471
472	.done_parsing:	472	.done_parsing:
473	call .draw ; to update tree list immediately in case of "auto_list"	473	call .draw ; to update tree list immediately in case of "auto_list"
474	pop eax	474	pop eax
475	pop edx	475	pop edx
476	jmp data_loop	476	jmp data_loop
477		477
478	; clear tree list and add ".." node before executing "LIST"	478	; clear tree list and add ".." node before executing "LIST"
479	.clear_remote_tree:	479	.clear_remote_tree:
480	stdcall [tl_info_clear], tree2	480	stdcall [tl_info_clear], tree2
481	mov dword[node_entry2+4], 0x2E2E	481	mov dword[node_entry2+4], 0x2E2E
482	stdcall [tl_node_add], tree2, 0x10000, node_entry2	482	stdcall [tl_node_add], tree2, 0x10000, node_entry2
483	ret	483	ret
484		484
485		485
486	;;================================================================================================;;	486	;;================================================================================================;;
487	.progress: ;//////////////////////////////////////////////////////////////////////////////////;;	487	.progress: ;//////////////////////////////////////////////////////////////////////////////////;;
488	;;------------------------------------------------------------------------------------------------;;	488	;;------------------------------------------------------------------------------------------------;;
489	;? Update progress bar every time new data is received from data_loop block ;;	489	;? Update progress bar every time new data is received from data_loop block ;;
490	;;------------------------------------------------------------------------------------------------;;	490	;;------------------------------------------------------------------------------------------------;;
491	;> edx = no. of bytes downloaded ;;	491	;> edx = no. of bytes downloaded ;;
492	;;------------------------------------------------------------------------------------------------;;	492	;;------------------------------------------------------------------------------------------------;;
493	;< none ;;	493	;< none ;;
494	;;================================================================================================;;	494	;;================================================================================================;;
495		495
496	; detect abort	496	; detect abort
497	mcall 17	497	mcall 17
498	cmp ah, 10	498	cmp ah, 10
499	je cmd_abor	499	je cmd_abor
500		500

Subversion Repositories Kolibri OS

(root)/programs/network/ftpc/gui.inc @ 7577 – Rev 8442 → 9568