Subversion Repositories Kolibri OS

        jb      .do_delete_dir_entry

        cmp     ebx, del_dir_query_area+32+304*del_dir_query_size

        jmp     .return_from_recursion

.do_delete_dir_entry:

        call    delete_last_name_from_end

        jmp     .return_from_recursion

.done:

.cancel:

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

        popad

        ret

makedir:

; create directory with name from CopyDestEditBuf+12

; destroys eax

        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

        push    -1

        push    -1

        push    dword aError

        call    SayErr

        add     esp, 3*4

        test    eax, eax

        jz      makedir

.ret:

        ret     8

copy_file_worker:

; in: execdata = source name, CopyDestEditBuf+12 = destination name, edx = BDFE block for source

; out: CF and ZF not set <=> cancel job ("ja cancel_label")

; destroys eax,esi,edi

        push    CopyDestEditBuf+12+513

        cmp     [bDestIsFolder], 0

        jz      .noaddtoname

        mov     esi, CopyDestEditBuf+12

@@:

        lodsb

        test    al, al

        jnz     @b

        mov     byte [esi-1], '/'

        pop     edi

        push    esi

        mov     edi, esi

        lea     esi, [edx+40]

@@:

        cmp     edi, CopyDestEditBuf+12+513

        jae     .overflow

        lodsb

        stosb

        test    al, al

        jnz     @b

        jmp     .noaddtoname

.overflow:

.ret_zf:

        pop     esi

        and     byte [esi-1], 0         ; ZF=1

        ret

.noaddtoname:

; Íåëüçÿ ñêîïèðîâàòü ôàéë ïîâåðõ ñàìîãî ñåáÿ!

        mov     esi, execdata

        mov     edi, CopyDestEditBuf+12

        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

        push    -1

        push    -1

        push    aError

        call    SayErr

        pop     eax

        pop     eax

        jmp     .ret_zf

@@:

; Ñîáñòâåííî, êîïèðóåì

; esi->source name, edi->destination name

        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

.copyloop:

        mov     ebx, readinfo

        push    70

        pop     eax

        int     0x40

        test    eax, eax

        jz      .copyreadok

        cmp     eax, 6

        jz      .copyreadok

        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

        push    -1

        push    -1

        push    dword aError

        call    SayErr

        add     esp, 3*4

        test    eax, eax

        jz      .copyloop

        jmp     .copyfailed_parseuser

.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

        push    -1

        push    -1

        push    dword aError

        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:

; now try to set attributes from source, ignore errors

        mov     edi, attrinfo.attr

        mov     esi, edx

        push    8

        pop     ecx

        rep     movsd

        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

.ret:

        pop     ebx

        pop     esi

        mov     byte [esi-1], 0

        ret

.copydone2:

        popf

        jmp     .ret

.copyfailed:

        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    -1

        push    -1

        push    dword aCopyCaption

        call    SayErr

        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

; ignore errors

        pop     dword [delinfo+21]

        jmp     .copydone2

.copyfailed_del2:

        xor     eax, eax

        pushf

        jmp     .copyfailed_del

copy_file:

; in: eax->BDFE block for source, CopyDestEditBuf+12 contains ASCIIZ full name for destination

; out: CF and ZF not set <=> cancel job ("ja cancel_label")

        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

        mov     al, '/'

        stosb

.l1:

        lodsb

        cmp     edi, execdataend

        jb      @f

        call    panels_OnKey.bigfilename

        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:

; recursive copy of directory

        cmp     [bDestIsFolder], 0

        mov     [bDestIsFolder], 0

        jz      .target_created

        mov     [bNeedRestoreName], 1

        mov     esi, CopyDestEditBuf+12

@@:

        lodsb

        test    al, al

        jnz     @b

        mov     byte [esi-1], '/'

        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     .cancel

.target_created:

        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

        push    70

        pop     eax

        int     0x40

        test    eax, eax

        jz      .readok

        cmp     eax, 6

        jz      .readok

; read error

        cmp     [copy_bSkipAll], 0

        jz      .skip1

        push    execdata

        push    aCannotReadFolder

        call    get_error_msg

        push    eax

        mov     eax, esp

        push    DeleteErrorBtn

        push    4

        push    eax

        push    3

        push    -1

        push    -1

        push    aError

        call    SayErr

        add     esp, 3*4

        test    al, al

        jz      .read_retry

        cmp     al, 2

        jnz     @f

        dec     eax

        mov     [copy_bSkipAll], 1

@@:

        cmp     al, 1

        jz      .skip1

        jmp     .cancel

.readok:

; loop through a directory and copy items

        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

; ignore special entries "." and ".."

        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

        mov     byte [esi-1], '/'

        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

        mov     byte [esi-1], '/'

        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      .cancel

        jmp     .restore_name

.entry_is_folder:

; allocate new item in directory stack

        mov     eax, [copy_dir_stack_ptr]

        mov     [eax], ebp

        add     eax, 4

        mov     [copy_dir_stack_ptr], eax

; do recursive copying

        jmp     .enter_recursion

.fullname_big:

; we will just ignore such files and continue - in real life this situation can not happen

        mov     esi, execdataend-1

        jmp     .do_restore_name2

.fullname2_big:

        mov     esi, CopyDestEditBuf+12+512

        jmp     .restore_name2

.skip1:

.restore_name:

        mov     esi, CopyDestEditBuf+12

.restore_name2:

        call    delete_last_name

        dec     esi

.do_restore_name2:

        call    delete_last_name

.copy_dir_entry_continue:

        add     edx, 304

        jmp     .copy_dir_entry_loop

.copy_dir_entry_done:

; return to previous directory

; pop item from directory stack

        mov     ecx, [copy_dir_stack_ptr]

        cmp     ecx, copy_dir_stack

        jbe     .done

        sub     ecx, 4

        mov     [copy_dir_stack_ptr], ecx

; restore prev directory name

        mov     esi, execdata

        call    delete_last_name_from_end

        mov     esi, CopyDestEditBuf+12

        call    delete_last_name_from_end

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

        mov     byte [esi+1], 0

        ret