Subversion Repositories Kolibri OS

delete_file_worker:

        push    ebx

        push    70

        pop     eax

        mov     ebx, delinfo

        int     0x40

        pop     ebx

        test    eax, eax

        jz      .ret

        cmp     [del_bSkipAll], 0

        jz      @f

        push    2

        pop     eax

        jmp     .ret

@@:

        push    execdata

        push    aCannotDeleteFolder

        test    cl, 1

        jnz     @f

        mov     dword [esp], aCannotDeleteFile

@@:

        call    get_error_msg

        push    eax

        mov     eax, esp

        push    DeleteErrorBtn

        push    4

        push    eax

        push    3

        call    SayErr

        add     esp, 3*4

        cmp     al, -1

        jz      @f

        inc     eax

        cmp     al, 4   ; "cancel" button

        jnz     @f

        or      eax, -1

@@:

        cmp     al, 3   ; "skip all" button

        jnz     .ret

        mov     [del_bSkipAll], 1

        dec     eax

        cmp     al, 2

        ret

 

delete_file:

        pushad

        mov     [del_dir_stack_ptr], del_dir_stack

        lea     esi, [ebp + panel1_dir - panel1_data]

        mov     edi, execdata

@@:

        lodsb

        test    al, al

        jz      @f

        stosb

        jmp     @b

@@:

        mov     esi, [esp+28]

        mov     ecx, esi

        add     esi, 40

        cmp     byte [edi-1], '/'

        jz      .l1

        mov     al, '/'

        stosb

.l1:

        lodsb

        cmp     edi, execdataend

        jb      @f

        call    panels_OnKey.bigfilename

        popad

        ret

@@:

        stosb

        test    al, al

        jnz     .l1

        mov     ecx, [esp+28]

        test    byte [ecx], 10h

        jnz     .delete_dir

.retrydel:

        xor     ecx, ecx

        call    delete_file_worker

        jae     @f

        jp      .retrydel

@@:

        popad

        ret

 

.delete_dir:

        xor     ebp, ebp        ; ebp will contain number of undeletable items

.return_from_recursion:

        mov     ebx, dirinfo

        mov     [ebx+dirinfo.first-dirinfo], ebp

        mov     [ebx+dirinfo.size-dirinfo], del_dir_query_size

        mov     [ebx+dirinfo.dirdata-dirinfo], del_dir_query_area

        mov     [ebx+dirinfo.name-dirinfo], execdata

        push    70

        pop     eax

        int     0x40

        test    eax, eax

        jz      @f

        cmp     eax, 6

        jnz     .do_delete_dir

@@:

        mov     edx, del_dir_query_area+32

        imul    ebx, 304

        add     ebx, edx

.delete_dir_entry_loop:

        cmp     edx, ebx

        jb      .do_delete_dir_entry

        cmp     ebx, del_dir_query_area+32+304*del_dir_query_size

        jnz     .delete_dir_entry_done

        jmp     .return_from_recursion

.do_delete_dir_entry:

        inc     ebp

        cmp     word [edx+40], '.'

        jz      .delete_dir_entry_continue

        cmp     word [edx+40], '..'

        jnz     @f

        cmp     byte [edx+42], 0

        jz      .delete_dir_entry_continue

@@:

        dec     ebp

        mov     esi, execdata

@@:

        lodsb

        test    al, al

        jnz     @b

        mov     byte [esi-1], '/'

        mov     edi, esi

        lea     esi, [edx+40]

@@:

        cmp     edi, execdataend

        jae     .fullname_big

        lodsb

        stosb

        test    al, al

        jnz     @b

        test    byte [edx], 10h

        jnz     .entry_is_folder

.retry2:

        xor     ecx, ecx

        call    delete_file_worker

        ja      .cancel

        jz      .skip

        jp      .retry2

        jmp     .restore_name

.entry_is_folder:

        mov     eax, [del_dir_stack_ptr]

        mov     [eax], ebp

        add     eax, 4

        mov     [del_dir_stack_ptr], eax

        jmp     .delete_dir

.fullname_big:

        inc     ebp

        mov     esi, execdataend-1

        jmp     .do_restore_name

.skip:

        inc     ebp

.restore_name:

        mov     esi, execdata

@@:

        lodsb

        test    al, al

        jnz     @b

        dec     esi

        dec     esi

.do_restore_name:

        call    delete_last_name

.delete_dir_entry_continue:

        add     edx, 304

        jmp     .delete_dir_entry_loop

.delete_dir_entry_done:

.do_delete_dir:

        mov     cl, 1

        call    delete_file_worker

        ja      .cancel

        jz      @f

        jp      .delete_dir

@@:

        mov     ecx, [del_dir_stack_ptr]

        cmp     ecx, del_dir_stack

        jbe     .done

        sub     ecx, 4

        mov     [del_dir_stack_ptr], ecx

        mov     ebp, [ecx]

        cmp     al, 2

        sbb     ebp, -1

        mov     esi, execdata

        call    delete_last_name_from_end

        jmp     .return_from_recursion

.done:

.cancel:

        mov     [dirinfo.first], 0      ; do not destroys flags

        popad

        ret

 

makedir:

        push    ebx

        push    70

        pop     eax

        mov     ebx, mkdirinfo

        int     0x40

        pop     ebx

        test    eax, eax

        jz      .ret

        cmp     dword [esp+8], DeleteErrorBtn

        jnz     @f

        cmp     [copy_bSkipAll], 0

        jz      @f

        push    1

        pop     eax

        jmp     .ret

@@:

        push    dword CopyDestEditBuf+12

        push    dword aCannotMakeFolder

        call    get_error_msg

        push    eax

        mov     eax, esp

        push    dword [eax+20]

        push    dword [eax+16]

        push    eax

        push    3

        call    SayErr

        add     esp, 3*4

        test    eax, eax

        jz      makedir

        ret     8

 

copy_file_worker:

        lea     edi, [edx+40]

        and     [source_hFile], 0

copy_file_worker2:

        push    CopyDestEditBuf+12+513

        cmp     [bDestIsFolder], 0

        jz      .noaddtoname

        mov     esi, CopyDestEditBuf+12

@@:

        lodsb

        test    al, al

        jnz     @b

        pop     eax

        dec     esi

        push    esi

        cmp     byte [esi-1], '/'

        jz      @f

        mov     byte [esi], '/'

        inc     esi

@@:

        xchg    esi, edi

@@:

        cmp     edi, CopyDestEditBuf+12+513

        jae     .overflow

        lodsb

        stosb

        test    al, al

        jnz     @b

        jmp     .noaddtoname

.overflow:

.ret_zf:

        pop     esi

        and     byte [esi], 0           ; ZF=1

        ret

.noaddtoname:

        mov     esi, execdata

        mov     edi, CopyDestEditBuf+12

        cmp     [source_hModule], 0

        jnz     @f

        push    esi edi

        call    strcmpi

        pop     edi esi

        jnz     @f

        push    esi

        push    aCannotCopyToSelf

        mov     eax, esp

        push    ContinueBtn

        push    1

        push    eax

        push    2

        call    SayErr

        pop     eax

        pop     eax

        jmp     .ret_zf

@@:

        push    ebx

        mov     [writeinfo.code], 2

        mov     [writeinfo.name], edi

        and     dword [writeinfo.first], 0

        and     dword [writeinfo.first+4], 0

        mov     [writeinfo.data], copy_buffer

        mov     ebx, readinfo

        and     dword [ebx+readinfo.first-readinfo], 0

        and     dword [ebx+readinfo.first+4-readinfo], 0

        mov     [ebx+readinfo.size-readinfo], copy_buffer_size

        mov     [ebx+readinfo.data-readinfo], copy_buffer

        mov     [ebx+readinfo.name-readinfo], esi

        mov     eax, [source_hFile]

        push    eax

        test    eax, eax

        jnz     .copyloop

.source_reopen:

        mov     eax, [source_hModule]

        test    eax, eax

        jz      .copyloop

        pushad

        push    O_READ+O_SEQUENTIAL_ONLY

        push    esi

        push    [source_hPlugin]

        call    [eax+PluginInfo.open]

        mov     [source_hFile], eax

        popad

.copyloop:

        mov     ebx, readinfo

        mov     eax, [source_hModule]

        test    eax, eax

        jz      .native

        mov     ecx, [source_hFile]

        jecxz   .readerr

        pushad

        push    [ebx+readinfo.size-readinfo]

        push    [ebx+readinfo.data-readinfo]

        push    ecx

        call    [eax+PluginInfo.read]

        mov     [esp+28], eax

        popad

        cmp     eax, -1

        jz      .readerr

        mov     ebx, eax

        jmp     .copyreadok

.native:

        push    70

        pop     eax

        int     0x40

        test    eax, eax

        jz      .copyreadok

        cmp     eax, 6

        jz      .copyreadok

.readerr:

        cmp     [copy_bSkipAll2], 0

        jnz     .copyfailed_del2

        push    esi

        push    dword aCannotReadFile

        call    get_error_msg

        push    eax

        mov     eax, esp

        push    dword DeleteErrorBtn

        push    4

        push    eax

        push    3

        call    SayErr

        add     esp, 3*4

        test    eax, eax

        jnz     .copyfailed_parseuser

        cmp     [source_hModule], 0

        jz      .copyloop

        cmp     [source_hFile], 0

        jz      .source_reopen

        jmp     .copyloop

.copyreadok:

        add     dword [readinfo.first], ebx

        adc     dword [readinfo.first+4], 0

        mov     [writeinfo.size], ebx

        test    ebx, ebx

        jnz     .copywrite

        cmp     byte [writeinfo.code], 2

        jnz     .copydone

.copywrite:

        mov     ebx, writeinfo

        push    70

        pop     eax

        int     0x40

        test    eax, eax

        jz      .copywriteok

        cmp     [copy_bSkipAll2], 0

        jnz     .copyfailed_del2

        push    edi

        push    dword aCannotWriteFile

        call    get_error_msg

        push    eax

        mov     eax, esp

        push    dword DeleteErrorBtn

        push    4

        push    eax

        push    3

        call    SayErr

        add     esp, 3*4

        test    eax, eax

        jz      .copywrite

.copyfailed_parseuser:

        cmp     al, 2

        jnz     @f

        mov     [copy_bSkipAll2], 1

        dec     eax

@@:

        cmp     al, 1

        pushf

        jmp     .copyfailed

.copywriteok:

        mov     ecx, [writeinfo.size]

        add     dword [writeinfo.first], ecx

        adc     dword [writeinfo.first+4], 0

        mov     [writeinfo.code], 3

        cmp     ecx, copy_buffer_size

        jz      .copyloop

.copydone:

        pop     ecx

        test    ecx, ecx

        jnz     @f

        mov     eax, [source_hModule]

        test    eax, eax

        jz      @f

        mov     ecx, [source_hFile]

        jecxz   @f

        push    edx

        push    ecx

        call    [eax+PluginInfo.close]

        pop     edx

@@:

        mov     edi, attrinfo.attr

        mov     esi, edx

        push    8

        pop     ecx

        rep     movsd

        mov     eax, [default_attr]

        cmp     dword [edi-32+8], 0

        jnz     @f

        mov     ecx, [eax+8]

        mov     [edi-32+8], ecx

        mov     ecx, [eax+12]

        mov     [edi-32+12], ecx

@@:

        cmp     dword [edi-32+16], 0

        jnz     @f

        mov     ecx, [eax+16]

        mov     [edi-32+16], ecx

        mov     ecx, [eax+20]

        mov     [edi-32+20], ecx

@@:

        cmp     dword [edi-32+24], 0

        jnz     @f

        mov     ecx, [eax+24]

        mov     [edi-32+24], ecx

        mov     ecx, [eax+28]

        mov     [edi-32+28], ecx

@@:

        mov     ebx, attrinfo

        mov     [ebx+attrinfo.name-attrinfo], CopyDestEditBuf+12

        inc     dword [ebx]

        push    70

        pop     eax

        push    ebx

        int     0x40

        pop     ebx

        dec     dword [ebx]

        xor     eax, eax        ; ZF=1

        pop     ebx

        pop     esi

        mov     byte [esi], 0

        ret

.copydone2:

        popf

        jmp     .ret

.copyfailed:

        pop     ecx

        test    ecx, ecx

        jnz     @f

        mov     eax, [source_hModule]

        test    eax, eax

        jz      @f

        mov     ecx, [source_hFile]

        jecxz   @f

        push    ecx

        call    [eax+PluginInfo.close]

@@:

        cmp     [bConfirmDeleteIncomplete], 0

        jz      .copyfailed_del

        cmp     [writeinfo.code], 2

        jz      .copydone2

        push    dword aIncompleteFile

        mov     eax, esp

        push    dword DeleteOrKeepBtn

        push    2

        push    eax

        push    1

        push    dword aCopyCaption

        call    Message

        add     esp, 4

        test    eax, eax

        jnz     .copydone2

.copyfailed_del:

        mov     ebx, delinfo

        push    dword [ebx+21]

        mov     dword [ebx+21], edi

        push    70

        pop     eax

        int     0x40

        pop     dword [delinfo+21]

        jmp     .copydone2

.copyfailed_del2:

        xor     eax, eax

        pushf

        jmp     .copyfailed_del

 

copy_file:

        pushad

        mov     [copy_dir_stack_ptr], copy_dir_stack

        mov     [bNeedRestoreName], 0

        lea     esi, [ebp + panel1_dir - panel1_data]

        mov     edi, execdata

@@:

        lodsb

        test    al, al

        jz      @f

        stosb

        jmp     @b

@@:

        mov     esi, [esp+28]

        add     esi, 40

        cmp     byte [edi-1], '/'

        jz      .l1

        mov     al, '/'

        stosb

.l1:

        lodsb

        cmp     edi, execdataend

        jb      @f

        call    panels_OnKey.bigfilename

        stc

        popad

        ret

@@:

        stosb

        test    al, al

        jnz     .l1

        mov     edx, [esp+28]

        test    byte [edx], 10h

        jnz     .copy_dir

        call    copy_file_worker

.popad_ret:

        popad

        ret

 

.biiig:

        mov     byte [edi-1], 0

        jmp     .popad_ret

 

.copy_dir:

        cmp     [bDestIsFolder], 0

        mov     [bDestIsFolder], 0

        jz      .target_created

        mov     [bNeedRestoreName], 1

        mov     esi, CopyDestEditBuf+12

@@:

        lodsb

        test    al, al

        jnz     @b

        dec     esi

        cmp     byte [esi-1], '/'

        jz      @f

        mov     byte [esi], '/'

        inc     esi

@@:

        mov     edi, esi

        lea     esi, [edx+40]

@@:

        cmp     edi, CopyDestEditBuf+12+513

        jae     .biiig

        lodsb

        stosb

        test    al, al

        jnz     @b

.create_target:

.enter_recursion:

        push    DeleteErrorBtn

        push    4

        call    makedir

        jz      .target_created

        cmp     al, 2

        jnz     @f

        dec     eax

        mov     [copy_bSkipAll], 1

@@:

        cmp     al, 1

        jz      .copy_dir_entry_done

        jmp     .cancel2

.target_created:

        mov     edx, [source_hModule]

        test    edx, edx

        jz      .nosetdir

        mov     esi, execdata

        push    esi     ; absolute_path

@@:

        lodsb

        test    al, al

        jnz     @b

@@:

        dec     esi

        cmp     byte [esi-1], '/'

        jnz     @b

        push    esi     ; relative_path

        push    [source_hPlugin]        ; hPlugin

        call    [edx+PluginInfo.SetFolder]

        test    al, al

        jnz     .nosetdir

        cmp     [copy_bSkipAll3], 0

        jz      .skip2

        push    execdata

        push    aCannotSetFolder

        mov     eax, esp

        push    DeleteErrorBtn

        push    4

        push    eax

        push    2

        call    SayErr

        pop     ecx ecx

        test    al, al

        jz      .target_created

        cmp     al, 2

        setz    [copy_bSkipAll3]

        ja      .cancel2

        jmp     .skip2

.nosetdir:

        xor     ebp, ebp        ; ebp will contain number of copied items

.return_from_recursion:

.read_retry:

        mov     ebx, dirinfo

        mov     [ebx+dirinfo.first-dirinfo], ebp

        mov     [ebx+dirinfo.size-dirinfo], copy_dir_query_size

        mov     [ebx+dirinfo.dirdata-dirinfo], copy_dir_query_area

        mov     [ebx+dirinfo.name-dirinfo], execdata

        mov     eax, [source_hModule]

        test    eax, eax

        jz      .readfolder_native

        push    ebp

        push    [ebx+dirinfo.dirdata-dirinfo]

        push    [ebx+dirinfo.size-dirinfo]

        push    [ebx+dirinfo.first-dirinfo]

        push    [source_hPlugin]

        call    [eax+PluginInfo.ReadFolder]

        pop     ebp

        mov     ebx, dword [copy_dir_query_area+4]

        jmp     @f

.readfolder_native:

        push    70

        pop     eax

        int     0x40

@@:

        test    eax, eax

        jz      .readok

        cmp     eax, 6

        jz      .readok

        cmp     [copy_bSkipAll], 0

        jnz     .skip1

        mov     edx, execdata

        call    recursive_read_folder_err

        jz      .read_retry

        cmp     al, 2

        jnz     @f

        dec     eax

        mov     [copy_bSkipAll], 1

@@:

        cmp     al, 1

        jz      .skip1

        jmp     .cancel

.readok:

        mov     edx, copy_dir_query_area+32

        imul    ebx, 304

        add     ebx, edx

.copy_dir_entry_loop:

        cmp     edx, ebx

        jb      .do_copy_dir_entry

        cmp     ebx, copy_dir_query_area+32+copy_dir_query_size*304

        jz      .return_from_recursion

        jmp     .copy_dir_entry_done

.do_copy_dir_entry:

        inc     ebp

        cmp     word [edx+40], '.'

        jz      .copy_dir_entry_continue

        cmp     word [edx+40], '..'

        jnz     @f

        cmp     byte [edx+42], 0

        jz      .copy_dir_entry_continue

@@:

        mov     esi, execdata

@@:

        lodsb

        test    al, al

        jnz     @b

        dec     esi

        cmp     byte [esi-1], '/'

        jz      @f

        mov     byte [esi], '/'

        inc     esi

@@:

        mov     edi, esi

        lea     esi, [edx+40]

@@:

        cmp     edi, execdataend

        jae     .fullname_big

        lodsb

        stosb

        test    al, al

        jnz     @b

        mov     esi, CopyDestEditBuf+12

@@:

        lodsb

        test    al, al

        jnz     @b

        dec     esi

        cmp     byte [esi-1], '/'

        jz      @f

        mov     byte [esi], '/'

        inc     esi

@@:

        mov     edi, esi

        lea     esi, [edx+40]

@@:

        cmp     edi, CopyDestEditBuf+513

        jae     .fullname2_big

        lodsb

        stosb

        test    al, al

        jnz     @b

        test    byte [edx], 10h

        jnz     .entry_is_folder

        call    copy_file_worker

        ja      .cancel3

        jmp     .restore_name

.entry_is_folder:

        mov     eax, [copy_dir_stack_ptr]

        mov     [eax], ebp

        add     eax, 4

        mov     [copy_dir_stack_ptr], eax

        jmp     .enter_recursion

.fullname_big:

        mov     esi, execdataend-1

        jmp     .do_restore_name2

.fullname2_big:

        mov     esi, CopyDestEditBuf+12+512

        jmp     .restore_name2

.restore_name:

        mov     esi, CopyDestEditBuf+12

@@:

        lodsb

        test    al, al

        jnz     @b

        dec     esi

        dec     esi

.restore_name2:

        call    delete_last_name

        mov     esi, execdata

@@:

        lodsb

        test    al, al

        jnz     @b

        dec     esi

        dec     esi

.do_restore_name2:

        call    delete_last_name

.copy_dir_entry_continue:

        add     edx, 304

        jmp     .copy_dir_entry_loop

.skip1:

.copy_dir_entry_done:

        mov     esi, execdata

        call    delete_last_name_from_end

        mov     eax, [source_hModule]

        test    eax, eax

        jz      @f

        push    execdata

        push    aDotDot

        push    [source_hPlugin]

        call    [eax+PluginInfo.SetFolder]

        jmp     @f

.skip2:

        mov     esi, execdata

        call    delete_last_name_from_end

@@:

        mov     ecx, [copy_dir_stack_ptr]

        cmp     ecx, copy_dir_stack

        jbe     .done

        sub     ecx, 4

        mov     [copy_dir_stack_ptr], ecx

        mov     ebp, [ecx]

        mov     esi, CopyDestEditBuf+12

        call    delete_last_name_from_end

        jmp     .return_from_recursion

.done:

        mov     [dirinfo.first], 0      ; do not destroys flags

        popad

        ret

.cancel2:

        sub     [copy_dir_stack_ptr], 4

.cancel3:

        mov     esi, execdata

        call    delete_last_name_from_end

.cancel:

        mov     eax, [source_hModule]

        test    eax, eax

        jz      .cancel.ret

        cmp     [copy_dir_stack_ptr], copy_dir_stack

        jb      .cancel.ret

        push    execdata

        push    aDotDot

        push    [source_hPlugin]

        call    [eax+PluginInfo.SetFolder]

        jmp     .cancel2

.cancel.ret:

        xor     eax, eax

        inc     eax

        popad

        ret

 

delete_last_name_from_end:

        lodsb

        test    al, al

        jnz     delete_last_name_from_end

        dec     esi

        dec     esi

delete_last_name:

        std

@@:

        lodsb

        cmp     al, '/'

        jnz     @b

        cld

        inc     esi

        cmp     esi, execdata

        jz      @f

        cmp     esi, CopyDestEditBuf+12

        jz      @f

        dec     esi

@@:

        mov     byte [esi+1], 0

        ret

 

recursive_read_folder_err:

        push    edx

        push    aCannotReadFolder

        call    get_error_msg

        push    eax

        mov     eax, esp

        push    DeleteErrorBtn

        push    4

        push    eax

        push    3

        call    SayErr

        add     esp, 3*4

        test    al, al

        ret

 

recursive_read_file_err:

        push    edx

        push    aCannotReadFile

        call    get_error_msg

        push    eax

        mov     eax, esp

        push    DeleteErrorBtn

        push    4

        push    eax

        push    3

        call    SayErr

        add     esp, 3*4

        test    al, al

        ret

 

copy_AddDir:

        push    1

        pop     eax                     ; for "return true"

        pushad

        mov     esi, CopyDestEditBuf+12

@@:

        lodsb

        test    al, al

        jnz     @b

        cmp     byte [esi-2], '/'

        jnz     @f

        dec     esi

@@:

        push    dword [esi-1]

        push    esi

        mov     byte [esi-1], '/'

        mov     edi, esi

        mov     esi, [esp+28h+4]

        lodsb

        stosb

        cmp     edi, CopyDestEditBuf+12+512

        jae     .done

        test    al, al

        jnz     .0

        push    RetryOrCancelBtn

        push    2

        call    makedir

        jz      .done

        and     dword [esp+8+1Ch], 0

.done:

        pop     esi

        pop     dword [esi-1]

        popad

        ret     8

 

copy_AddFile:

        pushad

        mov     eax, [esp+20h+12]

        mov     [source_hFile], eax

        mov     edx, [esp+20h+8]

        mov     edi, [esp+20h+4]

        call    copy_file_worker2

        popad

        setna   al

        ret     12

 

search_dir_query_size = 32

search_filebuf_size = 32768

 

virtual at 0

filesearch_data:

.prev_screen_vtable     dd      ?       ; previous in window stack

.prev_screen_data       dd      ?

.tid                    dd      ?       ; -1 for query stage, secondary thread id for search stage

.slot                   dd      ?       ; 0 if secondary thread is not running, it's slot otherwise

.result_blocks          dd      ?       ; head of heap blocks for resulting data

.cur_result_ptr         dd      ?       ; offset of free data in the current heap block for result

.stop                   db      ?       ; set to 1 when secondary thread need to be stopped

.skip_errors_mask       db      ?

.skip_read_folder = 1

.skip_set_folder = 2

.skip_open_file = 4

.skip_read_file = 8

.skip_bigname = 10h

.updating               db      ?

.datachanged            db      ?

.list.curitemptr        dd      ?

.list.numitems          dd      ?

.list.head              dd      ?

.list.curitem           dd      ?

.list.end               dd      ?

.query_dlgdata          rb      filesearch_query_template.size

.search_dlgdata         rb      filesearch_search_template.size

.mask.maxlen            dd      ?

.mask.pos               dd      ?

.mask.start             dd      ?

.mask                   rb      512

.string.maxlen          dd      ?

.string.pos             dd      ?

.string.start           dd      ?

.string                 rb      256

.caption                rb      268

.statusstr              rb      80

.stack                  rb      8192

.stacktop = $

.fs.func                dd      ?

.fs.pos_low             dd      ?

.fs.pos_high            dd      ?

.fs.size                dd      ?

.fs.ptr                 dd      ?

.curfile                rb      1024

.curdir                 rb      1024

.lowername              rb      264

.dir_area               rb      32 + 304*search_dir_query_size

.filebuf                rb      search_filebuf_size

.size = $

end virtual

 

panels_OnKey.alt_f7:

        mov     ecx, filesearch_data.size

        mov     edx, filesearch_vtable

        call    new_screen

        test    eax, eax

        jnz     @f

        ret

@@:

        mov     [ebp+filesearch_data.prev_screen_vtable], panels_vtable

        mov     ecx, (filesearch_query_template.size + filesearch_search_template.size) / 4

        mov     esi, filesearch_query_template

        lea     edi, [ebp+filesearch_data.query_dlgdata]

        rep     movsd

        lea     eax, [ebp+filesearch_data.string.maxlen]

        xor     ebx, ebx

        mov     dword [ebp+filesearch_data.query_dlgdata+filesearch_query_template.editptr2-filesearch_query_template], eax

        mov     dword [eax], 253

        mov     [eax+4], ebx

        mov     [eax+8], ebx

        mov     [eax+12], bl

        sub     eax, filesearch_data.string - filesearch_data.mask

        mov     dword [ebp+filesearch_data.query_dlgdata+filesearch_query_template.editptr1-filesearch_query_template], eax

        mov     dword [eax], 511

        mov     [eax+8], ebx

        inc     ebx

        mov     word [eax+12], '*'

        mov     [eax+4], ebx

        mov     eax, [find_in_file_dlgdata.flags_case]

        and     al, 10h

        or      al, 8

        mov     dword [ebp+filesearch_data.query_dlgdata+filesearch_query_template.flags_case-filesearch_query_template], eax

        mov     eax, [find_in_file_dlgdata.flags_whole]

        and     al, 10h

        or      al, 8

        mov     dword [ebp+filesearch_data.query_dlgdata+filesearch_query_template.flags_whole-filesearch_query_template], eax

        lea     edi, [ebp+filesearch_data.caption]

        mov     dword [ebp+dlgtemplate.title+filesearch_data.search_dlgdata], edi

        lea     eax, [ebp+filesearch_data.list.curitemptr]

        mov     dword [ebp+filesearch_data.search_dlgdata+filesearch_search_template.data1-filesearch_search_template], eax

.reinit:

        xor     ebx, ebx

        or      [ebp+filesearch_data.tid], -1

        mov     [ebp+filesearch_data.slot], ebx

        mov     [ebp+filesearch_data.result_blocks], ebx

        mov     [ebp+filesearch_data.cur_result_ptr], 0x4000

        mov     [ebp+filesearch_data.list.curitemptr], ebx

        mov     [ebp+filesearch_data.list.numitems], ebx

        mov     [ebp+filesearch_data.list.head], ebx

        mov     [ebp+filesearch_data.list.curitem], ebx

        mov     [ebp+filesearch_data.list.end], ebx

        mov     [ebp+filesearch_data.stop], bl

        mov     al, [dialog_main_color]

        mov     [ebp+filesearch_data.query_dlgdata+dlgtemplate.main_color], al

        mov     [ebp+filesearch_data.search_dlgdata+dlgtemplate.main_color], al

        mov     al, [dialog_border_color]

        mov     [ebp+filesearch_data.query_dlgdata+dlgtemplate.border_color], al

        mov     [ebp+filesearch_data.search_dlgdata+dlgtemplate.border_color], al

        mov     al, [dialog_header_color]

        mov     [ebp+filesearch_data.query_dlgdata+dlgtemplate.header_color], al

        mov     [ebp+filesearch_data.search_dlgdata+dlgtemplate.header_color], al

filesearch_OnRedraw:

        push    ebp

        mov     byte [draw_image], 0xC3

        mov     eax, [ebp+filesearch_data.prev_screen_vtable]

        mov     ebp, [ebp+filesearch_data.prev_screen_data]

        call    dword [eax+screen_vtable.OnRedraw]

        mov     byte [draw_image], 0xC6

        pop     ebp

        cmp     [ebp+filesearch_data.tid], -1

        jnz     .prepare_search_dlg

        lea     ebx, [ebp+filesearch_data.query_dlgdata]

        mov     eax, [cur_width]

        mov     [ebx + dlgtemplate.x], 6

        sub     eax, 12

        mov     [ebx + dlgtemplate.width], eax

        dec     eax

        dec     eax

        mov     [ebx - filesearch_query_template + filesearch_query_template.width2], eax

        mov     [ebx - filesearch_query_template + filesearch_query_template.width3], eax

        shr     eax, 1

        dec     eax

        dec     eax

        mov     [ebx - filesearch_query_template + filesearch_query_template.search_x2], eax

        sub     eax, aSearchBLength-1

        mov     [ebx - filesearch_query_template + filesearch_query_template.search_x1], eax

        add     eax, aSearchBLength+3

        mov     [ebx - filesearch_query_template + filesearch_query_template.cnl_x1], eax

        add     eax, aCancelBLength-1

        mov     [ebx - filesearch_query_template + filesearch_query_template.cnl_x2], eax

        mov     eax, [cur_height]

        sub     eax, [ebx + dlgtemplate.height]

        shr     eax, 1

        mov     [ebx + dlgtemplate.y], eax

        jmp     .dlg_prepared

.prepare_search_dlg:

        lea     ebx, [ebp+filesearch_data.search_dlgdata]

.btnsize = 2 + aNewSearchLen + 2 + aGotoLen + 2 + aViewLen + 2 + aCancelB2Length + 2

        mov     eax, [cur_width]

        mov     edx, eax

        sub     eax, 10

        cmp     eax, .btnsize

        jae     @f

        add     eax, 8

        cmp     eax, .btnsize

        jb      @f

        mov     al, .btnsize

@@:

        mov     [ebx + dlgtemplate.width], eax

        sub     edx, eax

        shr     edx, 1

        mov     [ebx + dlgtemplate.x], edx

        dec     eax

        mov     [ebx + filesearch_search_template.width1 - filesearch_search_template], eax

        mov     [ebx + filesearch_search_template.width4 - filesearch_search_template], eax

        cmp     [ebp + filesearch_data.slot], 0

        jnz     @f

        mov     [ebx + filesearch_search_template.width3 - filesearch_search_template], eax

@@:

        sub     eax, aNewSearchLen + aGotoLen + aViewLen + aCancelB2Length - 1

        cdq

        push    5

        pop     ecx

        idiv    ecx

        sar     edx, 1

        add     edx, eax

        inc     eax

        mov     [ebx + filesearch_search_template.btn1x1 - filesearch_search_template], edx

        add     edx, aNewSearchLen-1

        mov     [ebx + filesearch_search_template.btn1x2 - filesearch_search_template], edx

        add     edx, eax

        mov     [ebx + filesearch_search_template.btn2x1 - filesearch_search_template], edx

        add     edx, aGotoLen-1

        mov     [ebx + filesearch_search_template.btn2x2 - filesearch_search_template], edx

        add     edx, eax

        mov     [ebx + filesearch_search_template.btn3x1 - filesearch_search_template], edx

        add     edx, aViewLen-1

        mov     [ebx + filesearch_search_template.btn3x2 - filesearch_search_template], edx

        add     edx, eax

        mov     [ebx + filesearch_search_template.btn4x1 - filesearch_search_template], edx

        add     edx, aCancelB2Length-1

        mov     [ebx + filesearch_search_template.btn4x2 - filesearch_search_template], edx

        mov     eax, [cur_height]

        mov     edx, eax

        sub     eax, 8

        cmp     eax, 6

        jae     @f

        mov     eax, 6

@@:

        mov     [ebx + dlgtemplate.height], eax

        sub     edx, eax

        shr     edx, 1

        mov     [ebx + dlgtemplate.y], edx

        dec     eax

        mov     [ebx + filesearch_search_template.btn1y - filesearch_search_template], eax

        mov     [ebx + filesearch_search_template.btn2y - filesearch_search_template], eax

        mov     [ebx + filesearch_search_template.btn3y - filesearch_search_template], eax

        mov     [ebx + filesearch_search_template.btn4y - filesearch_search_template], eax

        dec     eax

        mov     [ebx + filesearch_search_template.y5 - filesearch_search_template], eax

        dec     eax

        mov     [ebx + filesearch_search_template.y3 - filesearch_search_template], eax

        mov     [ebx + filesearch_search_template.y4 - filesearch_search_template], eax

        dec     eax

        mov     [ebx + filesearch_search_template.y2 - filesearch_search_template], eax

        dec     eax

        mov     [ebx + filesearch_search_template.height1 - filesearch_search_template], eax

.dlg_prepared:

        call    draw_dialog_shadow

        push    ebx

        call    DrawDialogBox

        ret

 

filesearch_OnActivate:

        mov     eax, [active_screen_data]

        cmp     eax, ebp

        jz      @f

        mov     [ebp+filesearch_data.prev_screen_data], eax

        mov     eax, [active_screen_vtable]

        mov     [ebp+filesearch_data.prev_screen_vtable], eax

@@:

        mov     eax, [ebp+filesearch_data.prev_screen_data]

        mov     ecx, [num_screens]

        mov     edx, [screens]

        push    edx

@@:

        cmp     [edx+4], eax

        jz      @f

        add     edx, 8

        loop    @b

@@:

        pop     edx

        jz      @f

        mov     eax, [active_screen]

        dec     eax

        mov     ecx, [edx+eax*8+4]

        mov     [ebp+filesearch_data.prev_screen_data], ecx

        mov     ecx, [edx+eax*8]

        mov     [ebp+filesearch_data.prev_screen_vtable], ecx

@@:

        cmp     [ebp+filesearch_data.slot], 0

        jz      @f

        mov     [idle_interval], 10

@@:

 

filesearch_OnIdle:

        xor     eax, eax

        xchg    al, [ebp+filesearch_data.datachanged]

        cmp     al, 1

        ja      .done

        jz      .new

        ret

.done:

        call    filesearch_wait_thread

        call    filesearch_done

.new:

        jmp     filesearch_OnRedraw

 

filesearch_OnKey:

        cmp     al, 0x58

        jz      F12

        cmp     [ebp+filesearch_data.tid], -1

        jz      .handle_generic

        cmp     al, 0x47

        jb      .notforlist

        cmp     al, 0x49

        jbe     @f

        cmp     al, 0x4F

        jb      .notforlist

        cmp     al, 0x51

        ja      .notforlist

@@:

        push    ebp

        add     ebp, filesearch_data.search_dlgdata

        lea     ebx, [ebp+dlgtemplate.size+12]

        call    listbox_key

        call    draw_listbox

        call    draw_image

        pop     ebp

        ret

.notforlist:

        cmp     al, 0x3D

        jz      .view

.handle_generic:

        push    ebp

        call    filesearch_getcurdlg

        push    0

        push    eax

        push    2

        push    ebx

        call    ManagerDlgProc

        pop     ebp

        test    eax, eax

        jz      filesearch_OnIdle.ret

        cmp     eax, -1

        jz      .esc

        sub     eax, ebp

        cmp     eax, filesearch_data.query_dlgdata+filesearch_query_template.search_btn-filesearch_query_template

        jz      .query

        cmp     eax, filesearch_data.search_dlgdata+filesearch_search_template.btn1-filesearch_search_template

        jz      .newsearch

        cmp     eax, filesearch_data.search_dlgdata+filesearch_search_template.btn2-filesearch_search_template

        jz      .goto

        cmp     eax, filesearch_data.search_dlgdata+filesearch_search_template.btn3-filesearch_search_template

        jz      .view

.esc:

        cmp     dword [ebp+filesearch_data.slot], 0

        jz      .exit

        mov     [ebp+filesearch_data.stop], 2

        call    ConfirmCancel

        setz    [ebp+filesearch_data.stop]

        ret

.exit:

        call    filesearch_OnExit

        jmp     delete_active_screen

.view:

        mov     esi, [ebp+filesearch_data.list.curitemptr]

        test    esi, esi

        jz      .ret

        add     esi, 8

        mov     eax, esi

        jmp     view_file

.goto:

        mov     esi, [ebp+filesearch_data.list.curitemptr]

        test    esi, esi

        jz      .ret

        add     esi, 8

        cmp     byte [esi], '/'

        jnz     .ret

        cmp     byte [esi+1], 0

        jz      .ret

        push    ebp

        mov     ebp, [active_panel]

        push    esi

        call    close_plugin_panels

        pop     esi

        mov     ecx, esi

@@:

        lodsb

        test    al, al

        jnz     @b

@@:

        dec     esi

        cmp     byte [esi], '/'

        jnz     @b

        mov     byte [esi], 0

        inc     esi

        mov     edi, saved_file_name

@@:

        lodsb

        stosb

        test    al, al

        jnz     @b

        mov     esi, ecx

        lea     edi, [ebp + panel1_dir - panel1_data]

        push    esi edi

        call    strcmpi

        pop     edi esi

        jz      .goto.samedir

@@:

        lodsb

        stosb

        test    al, al

        jnz     @b

        and     [ebp + panel1_start - panel1_data], 0

        and     [ebp + panel1_index - panel1_data], 0

.goto.samedir:

        push    @f

        push    [ebp + panel1_index - panel1_data]

        jmp     panels_OnKey.ctrl_r.doread

@@:

        pop     ebp

        jmp     .exit

.newsearch:

        cmp     [ebp+filesearch_data.slot], 0

        jz      .do.newsearch

        call    filesearch_stop_thread

.do.newsearch:

        call    filesearch_free_result

        jmp     panels_OnKey.alt_f7.reinit

.query:

        mov     esi, [active_panel]

        cmp     [esi + panel1_hPlugin - panel1_data], 0

        jz      @f

        push    aCannotSearchOnPlugin

        mov     eax, esp

        push    ContinueBtn

        push    1

        push    eax

        push    1

        call    SayErr

        pop     eax

        jmp     .exit

@@:

        add     esi, panel1_dir - panel1_data

        lea     edi, [ebp+filesearch_data.curdir]

@@:

        lodsb

        stosb

        test    al, al

        jnz     @b

        push    51

        pop     eax

        push    1

        pop     ebx

        mov     ecx, filesearch_thread

        lea     edx, [ebp+filesearch_data.stacktop-4]

        mov     [edx], ebp

        int     40h

        cmp     eax, -1

        jnz     @f

        push    ContinueBtn

        push    1

        push    aCannotCreateThread_ptr

        push    1

        call    SayErr

        ret

@@:

        mov     [ebp+filesearch_data.tid], eax

        mov     [ebp+filesearch_data.updating], 0

        mov     [ebp+filesearch_data.datachanged], 0

        xchg    eax, ecx

        push    18

        pop     eax

        push    21

        pop     ebx

        int     40h

        mov     [ebp+filesearch_data.slot], eax

        mov     [idle_interval], 10

        mov     esi, aFileSearch

        mov     edi, dword [ebp+filesearch_data.search_dlgdata+dlgtemplate.title]

@@:

        lodsb

        stosb

        test    al, al

        jnz     @b

        mov     byte [edi-1], ':'

        mov     al, ' '

        stosb

        lea     esi, [ebp+filesearch_data.mask]

@@:

        lodsb

        stosb

        test    al, al

        jnz     @b

        lea     edi, [ebp+filesearch_data.statusstr]

        mov     dword [ebp+filesearch_data.search_dlgdata+filesearch_search_template.data3-filesearch_search_template], edi

        mov     esi, aSearchingIn

@@:

        lodsb

        stosb

        cmp     al, '"'

        jnz     @b

        push    esi

        push    10

        pop     ecx

        lea     esi, [ebp+filesearch_data.string]

@@:

        lodsb

        test    al, al

        jz      @f

        stosb

        loop    @b

@@:

        pop     esi

        movsb

        jz      @f

        mov     byte [edi-1], '.'

        mov     byte [edi-2], '.'

        mov     byte [edi-3], '.'

        mov     byte [edi-4], '"'

@@:

        cmp     byte [edi-2], '"'

        jnz     @f

        sub     edi, 3

@@:

        lodsb

        stosb

        test    al, al

        jnz     @b

        sub     edi, dword [ebp+filesearch_data.search_dlgdata+filesearch_search_template.data3-filesearch_search_template]

        mov     dword [ebp+filesearch_data.search_dlgdata+filesearch_search_template.width3-filesearch_search_template], edi

        inc     edi

        mov     dword [ebp+filesearch_data.search_dlgdata+filesearch_search_template.x4-filesearch_search_template], edi

        lea     eax, [ebp+filesearch_data.curdir]

        mov     dword [ebp+filesearch_data.search_dlgdata+filesearch_search_template.data4-filesearch_search_template], eax

        call    filesearch_set_dlgflags         ; use it? I think, yes

        cmp     [ebp+filesearch_data.slot], 0

        jnz     @f

        call    filesearch_done

@@:

        jmp     filesearch_OnRedraw

 

filesearch_done:

        cmp     [active_screen_data], ebp

        jnz     @f

        or      [idle_interval], -1

@@:

        and     dword [ebp+filesearch_data.search_dlgdata+filesearch_search_template.data4-filesearch_search_template], 0

        mov     edi, dword [ebp+filesearch_data.search_dlgdata+filesearch_search_template.data3-filesearch_search_template]

        mov     esi, aSearchDone

@@:

        lodsb

        stosb