| 6,7 → 6,7 |
|---|
| push 70 |
| pop eax |
| mov ebx, delinfo |
| mcall |
| int 0x40 |
| pop ebx |
| test eax, eax |
| jz .ret |
| 102,7 → 102,7 |
|---|
| mov [ebx+dirinfo.name-dirinfo], execdata |
| push 70 |
| pop eax |
| mcall |
| int 0x40 |
| ; if we get read error, the best available action is try to delete directory itself |
| test eax, eax |
| jz @f |
| 115,7 → 115,11 |
|---|
| add ebx, edx |
| .delete_dir_entry_loop: |
| cmp edx, ebx |
| jae .delete_dir_entry_done |
| 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: |
| ; ignore special entries "." and ".." |
| inc ebp |
| cmp word [edx+40], '.' |
| 174,13 → 178,7 |
|---|
| dec esi |
| dec esi |
| .do_restore_name: |
| std |
| @@: |
| lodsb |
| cmp al, '/' |
| jnz @b |
| cld |
| mov byte [esi+1], 0 |
| call delete_last_name |
| .delete_dir_entry_continue: |
| add edx, 304 |
| jmp .delete_dir_entry_loop |
| 205,19 → 203,482 |
|---|
| sbb ebp, -1 |
| ; restore prev directory name |
| 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: |
| ; 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 |
| @@: |
| lodsb |
| test al, al |
| jnz @b |
| dec esi |
| dec esi |
| std |
| .restore_name2: |
| call delete_last_name |
| mov esi, execdata |
| @@: |
| lodsb |
| cmp al, '/' |
| test al, al |
| jnz @b |
| cld |
| mov byte [esi+1], 0 |
| dec esi |
| 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 |
| mov ebp, [ecx] |
| ; restore prev directory name |
| mov esi, execdata |
| call delete_last_name_from_end |
| mov esi, CopyDestEditBuf+12 |
| call delete_last_name_from_end |
| jmp .return_from_recursion |
| .done: |
| .cancel: |
| 224,3 → 685,19 |
|---|
| mov [dirinfo.first], 0 ; do not destroys flags |
| 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 |
| mov byte [esi+1], 0 |
| ret |