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 '../../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 'tl_sys_16.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 'tl_nod_16.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]
    
      @@:
        mcall   67, 35, 20, 830, 555 ; resize to main gui window's coordinates
        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
 
        ; progress bar
        stdcall [progressbar_draw], pb
 
        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, 82, 0xffffff, 0x6a9480, 0, \
    0xAABBCC, 0, 99, new_dir_buf, mouse_dd, 0
 
; editbox for default volume
edit_volume edit_box TLIST_SZ-60, TLIST1_X, 105-20, 0xffffff, 0x6a9480, 0, \
    0xAABBCC, 0, 99, root_dir, mouse_dd, 0
 
; editbox for search
edit_search edit_box TLIST_SZ-60, TLIST2_X, 25, 0xffffff, 0x6a9480, 0, \
    0xAABBCC, 0, 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 '/rd/1'
            rb 507
new_dir_buf rb 512
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

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

Subversion Repositories Kolibri OS

(root)/programs/network/ftpc/gui.inc @ 7579 – Rev 7579 → 7580