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

Subversion Repositories Kolibri OS

(root)/programs/network/ftpc/gui.inc – Rev 7201 → 7463