kolibrios-gitea/programs/fs/kfar/trunk/filetool.inc

2393 lines
68 KiB
PHP
Raw Normal View History

delete_file_worker:
; in: ecx=flags: 1=deleting directory
; out: eax=0 - OK, eax=1 - retry, eax=2 - skip, eax=-1 - cancel,
; PF, ZF, CF and SF set accordingly to 'cmp eax,2' (or 'cmp al,2')
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
.ret:
cmp al, 2
ret
delete_file:
; in: eax->BDFE block
; out: CF and ZF not set <=> cancel job ("ja cancel_label")
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:
; recursive delete of directory
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
; if we get read error, the best available action is try to delete directory itself
test eax, eax
jz @f
cmp eax, 6
jnz .do_delete_dir
@@:
; loop through a directory and delete items
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:
; ignore special entries "." and ".."
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:
; allocate new item in directory stack
mov eax, [del_dir_stack_ptr]
mov [eax], ebp
add eax, 4
mov [del_dir_stack_ptr], eax
; do recursive deleting
jmp .delete_dir
.fullname_big:
; we will just ignore such files and continue - in real life this situation can not happen
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
@@:
; al=0 - OK, al=2 - skip this directory
; return to previous directory
; pop item from directory stack
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
; 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
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
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:
; <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD>!
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
@@:
; <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
; 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
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
@@:
; now try to set attributes from source, ignore errors
mov edi, attrinfo.attr
mov esi, edx
push 8
pop ecx
rep movsd
; replace zero dates with default values
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
.ret:
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
; 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
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:
; 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
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
; read error
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:
; 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
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:
; 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
.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:
; return to previous directory
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
@@:
; 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, 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]
.0:
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]
; width: for big screens use all screen except for one column on each side,
; that is, [cur_width] - 10 (standard frame width is 4);
; if [cur_width]-10 does not contain enough place for all buttons with two spaces between them,
; but [cur_width]-2 does, use fixed size = place for all buttons with two spaces between them
; for small screens use [cur_width]-2 as maximum possible
.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
@@:
; ret ; continue to filesearch_OnIdle
filesearch_OnIdle:
xor eax, eax
xchg al, [ebp+filesearch_data.datachanged]
cmp al, 1
ja .done
jz .new
.ret:
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:
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
cmp al, '?'
jnz @b
dec edi
mov eax, [ebp+filesearch_data.list.numitems]
push -'0'
push 10
pop ecx
@@:
xor edx, edx
div ecx
push edx
test eax, eax
jnz @b
@@:
pop eax
add al, '0'
jz @f
stosb
jmp @b
@@:
lodsb
stosb
test al, al
jnz @b
ret
filesearch_getname:
if lang eq ru
mov eax, '<27><><EFBFBD><EFBFBD>'
stosd
mov eax, '<27><> <20>'
stosd
mov eax, '<27><><EFBFBD><EFBFBD>'
stosd
mov al, '<27>'
stosb
else
mov eax, 'Find'
stosd
mov eax, ' dia'
stosd
mov eax, 'log '
stosd
mov al, ' '
stosb
end if
ret
filesearch_stop_thread:
mov [ebp+filesearch_data.stop], 1
filesearch_wait_thread:
mov ecx, [ebp+filesearch_data.slot]
mov edx, [ebp+filesearch_data.tid]
jecxz .secondary_thread_exited
@@:
mov ebx, procinfo
push 9
pop eax
int 40h
cmp word [ebx+50], 9
jz .secondary_thread_exited
cmp dword [ebx+30], edx
jnz .secondary_thread_exited
push 5
pop eax
push 1
pop ebx
int 40h
jmp @b
.secondary_thread_exited:
and [ebp+filesearch_data.slot], 0
ret
filesearch_OnExit:
call filesearch_stop_thread
call filesearch_free_result
; call filesearch_set_dlgflags ; use it? I think, no
ret
filesearch_IsHandleUsed:
test ebp, ebp
ret
filesearch_set_dlgflags:
mov eax, dword [ebp+filesearch_data.query_dlgdata+filesearch_query_template.flags_case-filesearch_query_template]
and al, 10h
or al, 8
mov [find_in_file_dlgdata.flags_case], eax
mov eax, dword [ebp+filesearch_data.query_dlgdata+filesearch_query_template.flags_whole-filesearch_query_template]
and al, 10h
or al, 8
mov [find_in_file_dlgdata.flags_whole], eax
lea esi, [ebp+filesearch_data.string]
mov edi, SearchString
and dword [edi-4], 0
and dword [edi-8], 0
@@:
lodsb
stosb
test al, al
jnz @b
ret
filesearch_getcurdlg:
lea ebx, [ebp+filesearch_data.query_dlgdata]
cmp [ebp+filesearch_data.tid], -1
jz @f
add ebx, filesearch_data.search_dlgdata - filesearch_data.query_dlgdata
@@:
ret
filesearch_free_result:
mov ecx, [ebp+filesearch_data.result_blocks]
@@:
jecxz .ret
push dword [ecx]
call pgfree
pop ecx
jmp @b
.ret:
ret
filesearch_thread:
pop ebp
; initialize search for string
xor ecx, ecx
xor edx, edx
mov [ebp+filesearch_data.skip_errors_mask], cl
lea ebx, [ebp+filesearch_data.string]
cmp byte [ebx], dl
jz .noprepare
mov esi, tolower_table
test byte [ebp+filesearch_data.query_dlgdata+filesearch_query_template.flags_case-filesearch_query_template], 10h
jz @f
mov esi, identical_table
@@:
test byte [ebp+filesearch_data.query_dlgdata+filesearch_query_template.flags_whole-filesearch_query_template], 10h
setnz al
push eax
push ecx ; force cp866
call search_string_pre
.noprepare:
push -1
.enter_recursion:
xor esi, esi ; start position: zero
.read_folder_loop:
push esi
lea esi, [ebp+filesearch_data.curdir]
lea edi, [ebp+filesearch_data.curfile]
@@:
lodsb
stosb
test al, al
jnz @b
pop esi
.read_retry:
lea ebx, [ebp+filesearch_data.fs.func]
mov dword [ebx], 1
mov dword [ebx+4], esi
and dword [ebx+8], 0
mov dword [ebx+12], search_dir_query_size
lea eax, [ebp+filesearch_data.dir_area]
mov [ebx+16], eax
push 70
pop eax
int 40h
test eax, eax
jz .read_folder_ok
cmp eax, 6
jz .read_folder_ok
xor ebx, ebx
xchg ebx, dword [ebp+filesearch_data.dir_area+4]
test [ebp+filesearch_data.skip_errors_mask], filesearch_data.skip_read_folder
jnz .skip1
push edx
lea edx, [ebp+filesearch_data.curdir]
call recursive_read_folder_err
pop edx
jz .read_retry
cmp al, 2
jnz @f
dec eax
or [ebp+filesearch_data.skip_errors_mask], filesearch_data.skip_read_folder
@@:
cmp al, 1
jnz .cancel
.skip1:
.read_folder_ok:
imul ebx, 304
lea eax, [ebp+filesearch_data.dir_area+32]
add ebx, eax
.scan_folder_loop:
cmp eax, ebx
jae .scan_folder_done
; ignore special entries "." and ".."
cmp word [eax+40], '.'
jz .scan_folder_next
cmp word [eax+40], '..'
jnz @f
cmp byte [eax+42], 0
jz .scan_folder_next
@@:
call .check_stop
; construct name
push esi edi ebx eax
lea ebx, [ebp+filesearch_data.curfile+1023]
lea esi, [eax+40]
mov byte [edi-1], '/'
@@:
cmp edi, ebx
jae .namebig
lodsb
stosb
test al, al
jnz @b
pop eax
test byte [eax], 10h
jz .scan_file
; it is nested folder, enter recursion
; to maintain ASCIIZ string coherency, copy backward
lea esi, [edi+filesearch_data.curdir-filesearch_data.curfile]
@@:
dec edi
dec esi
mov al, [edi]
mov [esi], al
cmp al, '/'
jnz @b
mov [ebp+filesearch_data.datachanged], 1
pop ebx edi
jmp .enter_recursion
.namebig:
pop eax
mov byte [edi], 0
test [ebp+filesearch_data.skip_errors_mask], filesearch_data.skip_bigname
jnz .namebig.skip
push eax
push edi
test byte [eax], 10h
mov eax, aFileNameTooBig
jz @f
add eax, aFolderNameTooBig - aFileNameTooBig
@@:
push eax
mov eax, esp
push SkipOrCancelBtn
push 3
push eax
push 2
call SayErr
cmp al, 1
jnz @f
dec eax
or [ebp+filesearch_data.skip_errors_mask], filesearch_data.skip_bigname
@@:
test al, al
pop eax eax eax
jnz .cancel
.namebig.skip:
jmp .scan_folder_next_pop
.scan_file:
; it is a file
; first check: does file name match the mask?
push eax edx
; <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
lea esi, [eax+40]
lea edi, [ebp+filesearch_data.lowername]
push edi
xor eax, eax
@@:
lodsb
mov al, [tolower_table+eax]
stosb
test al, al
jnz @b
; <EFBFBD><EFBFBD><EFBFBD><EFBFBD>
lea edx, [edi-1]
pop esi
lea edi, [ebp+filesearch_data.mask]
call match_mask_rev_lowercase
pop edx eax
jc .scan_folder_next_pop
; ok, second check: is the string present in this file?
jecxz .file_found
push eax
call filesearch_test_file
pop eax
jc .scan_folder_next_pop
.file_found:
push eax
; allocate memory for new result
lea esi, [ebp+filesearch_data.curfile]
mov ebx, esi
@@:
lodsb
test al, al
jnz @b
sub esi, ebx
mov eax, [ebp+filesearch_data.cur_result_ptr]
add esi, 8
push ecx
mov ecx, 0x4000
sub ecx, eax
cmp ecx, esi
jae .nonewblock
mov ecx, 0x4000
call xpgalloc
test eax, eax
jz .cancel
pushd [ebp+filesearch_data.result_blocks]
popd [eax]
mov [ebp+filesearch_data.result_blocks], eax
push 4
pop eax
mov [ebp+filesearch_data.cur_result_ptr], eax
.nonewblock:
add eax, [ebp+filesearch_data.result_blocks]
add [ebp+filesearch_data.cur_result_ptr], esi
pop ecx
; eax -> allocated memory, fill it
push eax
lea edi, [eax+8]
mov esi, ebx
@@:
lodsb
stosb
test al, al
jnz @b
pop eax
mov ebx, [ebp+filesearch_data.list.end]
mov [eax+4], ebx
and dword [eax], 0
mov [ebp+filesearch_data.list.end], eax
test ebx, ebx
jz @f
mov [ebx], eax
@@:
inc [ebp+filesearch_data.list.numitems]
cmp [ebp+filesearch_data.list.curitemptr], 0
jnz @f
mov [ebp+filesearch_data.list.curitemptr], eax
@@:
cmp [ebp+filesearch_data.list.head], 0
jnz @f
mov [ebp+filesearch_data.list.head], eax
@@:
mov [ebp+filesearch_data.datachanged], 1
pop eax
.scan_folder_next_pop:
pop ebx edi esi
mov byte [edi-1], 0
.scan_folder_next:
inc esi
add eax, 304
jmp .scan_folder_loop
.scan_folder_done:
cmp dword [ebp+filesearch_data.dir_area+4], search_dir_query_size
jz .read_folder_loop
pop esi
inc esi
jz .done
lea eax, [ebp+filesearch_data.curdir]
@@:
inc eax
cmp byte [eax], 0
jnz @b
@@:
dec eax
cmp byte [eax], '/'
jnz @b
mov byte [eax], 0
mov [ebp+filesearch_data.datachanged], 1
jmp .read_folder_loop
.cancel:
.done:
mov [ebp+filesearch_data.datachanged], 2
or eax, -1
int 40h
.check_stop:
cmp [ebp+filesearch_data.stop], 1
jz .cancel
ja @f
ret
@@:
push eax ebx
push 5
pop eax
push 1
pop ebx
int 40h
pop ebx eax
jmp .check_stop
filesearch_test_file:
lea ebx, [ebp+filesearch_data.fs.func]
lea eax, [ebp+filesearch_data.filebuf]
mov [ebx+16], eax
xor eax, eax
mov [ebx], eax
mov [ebx+4], eax
mov [ebx+8], eax
mov dword [ebx+12], search_filebuf_size
mov edi, edx
test byte [ebp+filesearch_data.query_dlgdata+filesearch_query_template.flags_whole-filesearch_query_template], 10h
jz .loop
add edi, 256
.loop:
.read_retry:
call filesearch_thread.check_stop
push 70
pop eax
lea ebx, [ebp+filesearch_data.fs.func]
int 40h
test eax, eax
jz .readok
cmp eax, 6
jz .readok
test [ebp+filesearch_data.skip_errors_mask], filesearch_data.skip_read_file
jnz .ret_failed
push edx
lea edx, [ebp+filesearch_data.curfile]
call recursive_read_file_err
pop edx
jz .read_retry
cmp al, 2
jnz @f
dec eax
or [ebp+filesearch_data.skip_errors_mask], filesearch_data.skip_read_file
@@:
cmp al, 1
jnz filesearch_thread.cancel
.ret_failed:
stc
ret
.readok:
test ebx, ebx
jz .eof
push ebx
lea esi, [ebp+filesearch_data.filebuf]
add ebx, esi
; edi = current state, edx -> FSM, ecx = last state,
; esi -> current data, ebx -> end of buffer
.scanloop: ; loop unrolled
; get current symbol
movzx eax, byte [esi]
; calculate next state
movzx edi, byte [edi+eax]
; done?
cmp edi, ecx
jz .ret_ok_pop
; no; proceed to next symbol
shl edi, 8
add edi, edx
cmp esi, ebx
jae .scandone
movzx eax, byte [esi+1]
add esi, 2
movzx edi, byte [edi+eax]
cmp edi, ecx
jz .ret_ok_pop
shl edi, 8
add edi, edx
cmp esi, ebx
jb .scanloop
.scandone:
pop ebx
.eof:
add [ebp+filesearch_data.fs.pos_low], ebx
adc [ebp+filesearch_data.fs.pos_high], 0
cmp ebx, search_filebuf_size
jz .loop
; EOF, last chance for whole-words-only search
test byte [ebp+filesearch_data.query_dlgdata+filesearch_query_template.flags_whole-filesearch_query_template], 10h
jz .ret_failed
movzx edi, byte [edi+' ']
cmp edi, ecx
jnz .ret_failed
clc
ret
.ret_ok_pop:
pop ebx
clc
ret
virtual at 0
_FILE:
.pos dq ?
.bufpos dq ?
.bufsize dd ?
.mode dd ?
.hPlugin dd ?
.hFile dd ?
.fileinfo:
.fimode dd ?
.fioffset dq ?
.fisize dd ?
.fibuf dd ?
.finame rb 1024
.attr rb 40
align 512
.buf rb 2048
.size = $
end virtual
O_READ = 1 ; allows read from file
O_WRITE = 2 ; allows write to file
O_CREATE = 4 ; if file does not exist and this flag is set, create file;
; if file does not exist and this flag is not set, fail
O_TRUNCATE = 8 ; truncate file if it exists
O_SEQUENTIAL_ONLY = 10h ; there will be no 'seek'/'setpos' calls
; HANDLE __stdcall open(const char* name, int mode);
; Opens physical file
open:
pushad
mov ecx, _FILE.size
call xpgalloc
test eax, eax
jz .ret0z
mov [esp+28], eax
mov ecx, eax
mov esi, [esp+36]
lea edi, [eax+_FILE.finame]
lea edx, [eax+_FILE.finame+1024]
@@:
lodsb
stosb
test al, al
jz @f
cmp edi, edx
jb @b
.ret0:
call pgfree
.ret0z:
popad
xor eax, eax
ret 8
@@:
mov eax, [esp+40]
mov [ecx+_FILE.mode], eax
.getattr:
lea edi, [ecx+_FILE.fileinfo]
mov ebx, edi
push 5
pop eax
stosd
xor eax, eax
stosd
stosd
stosd
lea eax, [ecx+_FILE.attr]
stosd
push 70
pop eax
int 0x40
test eax, eax
jz .found
cmp eax, 5
jnz .ret0
; file does not exist
test [ecx+_FILE.mode], O_CREATE
jz .ret0
.truncate:
lea ebx, [ecx+_FILE.fileinfo]
mov byte [ebx], 2
push 70
pop eax
int 0x40
test eax, eax
jz .getattr
jmp .ret0
.found:
test [ecx+_FILE.mode], O_TRUNCATE
jz @f
cmp dword [ecx+_FILE.attr+36], eax
jnz .truncate
cmp dword [ecx+_FILE.attr+32], eax
jnz .truncate
@@:
mov dword [ecx+_FILE.pos], eax
mov dword [ecx+_FILE.pos+4], eax
mov dword [ecx+_FILE.bufpos], eax
mov dword [ecx+_FILE.bufpos+4], eax
mov [ecx+_FILE.bufsize], eax
mov [ecx+_FILE.hPlugin], eax
mov [ecx+_FILE.hFile], eax
mov dword [ecx+_FILE.fioffset], eax
mov dword [ecx+_FILE.fioffset+4], eax
mov [esp+28], ecx
popad
ret 8
; HANDLE __stdcall open2(int plugin_id, HANDLE plugin_instance, const char* name, int mode);
; Opens file on plugin panel
open2:
cmp dword [esp+4], 0
jnz .plugin
pop eax
add esp, 8
push eax
jmp open
.plugin:
pushad
mov ecx, _FILE.size
call xpgalloc
test eax, eax
jz .ret0z
mov [esp+28], eax
mov ecx, eax
mov esi, [esp+44]
lea edi, [eax+_FILE.finame]
lea edx, [eax+_FILE.finame+1024]
@@:
lodsb
stosb
test al, al
jz @f
cmp edi, edx
jb @b
.ret0:
call pgfree
.ret0z:
popad
xor eax, eax
ret 8
@@:
mov edx, [esp+36]
mov [ecx+_FILE.hPlugin], edx
mov ebx, [esp+40]
mov eax, [esp+48]
mov [ecx+_FILE.mode], eax
push ebx ecx
push eax
lea eax, [ecx+_FILE.finame]
push eax
push ebx
call [edx+PluginInfo.open]
pop ecx ebx
test eax, eax
jz .ret0
mov [ecx+_FILE.hFile], eax
mov edx, [esp+36]
push ecx
lea edi, [ecx+_FILE.fileinfo]
push edi
xor eax, eax
push ecx
push 10
pop ecx
rep stosd
pop ecx
lea eax, [ecx+_FILE.finame]
push eax
push ebx
call [edx+PluginInfo.getattr]
pop ecx
xor eax, eax
mov dword [ecx+_FILE.pos], eax
mov dword [ecx+_FILE.pos+4], eax
mov dword [ecx+_FILE.bufpos], eax
mov dword [ecx+_FILE.bufpos+4], eax
mov [ecx+_FILE.bufsize], eax
mov dword [ecx+_FILE.fioffset], eax
mov dword [ecx+_FILE.fioffset+4], eax
mov [esp+28], ecx
popad
ret 16
; unsigned __stdcall read(HANDLE hFile, void* buf, unsigned size);
read:
xor eax, eax
pushad
mov ecx, [esp+36]
test [ecx+_FILE.mode], O_READ
jnz @f
.ret:
popad
ret 12
@@:
cmp dword [esp+44], eax
jz .ret
mov [ecx+_FILE.fimode], eax
mov ebx, [ecx+_FILE.bufsize]
mov eax, dword [ecx+_FILE.pos]
and eax, 2047
sub ebx, eax
jbe .nobuf0
cmp ebx, [esp+44]
jbe @f
mov ebx, [esp+44]
@@:
push ecx
lea esi, [ecx+eax+_FILE.buf]
mov ecx, ebx
mov edi, [esp+44]
rep movsb
pop ecx
mov [esp+40], edi
add [esp+28], ebx
add dword [ecx+_FILE.pos], ebx
adc dword [ecx+_FILE.pos+4], 0
test dword [ecx+_FILE.pos], 2047
jnz @f
and [ecx+_FILE.bufsize], 0
@@:
sub [esp+44], ebx
jz .ret
.nobuf0:
test dword [ecx+_FILE.pos], 2047
jz .aligned
cmp dword [ecx+_FILE.bufsize], 0
jnz .ret
lea ebx, [ecx+_FILE.fileinfo]
mov dword [ebx+12], 2048
lea eax, [ecx+_FILE.buf]
mov dword [ebx+16], eax
mov eax, dword [ecx+_FILE.fioffset]
mov dword [ecx+_FILE.bufpos], eax
mov eax, dword [ecx+_FILE.fioffset+4]
mov dword [ecx+_FILE.bufpos+4], eax
call .doread
test eax, eax
jnz .ret
mov [ecx+_FILE.bufsize], ebx
mov eax, dword [ecx+_FILE.pos]
and eax, 2047
sub ebx, eax
jbe .ret
cmp ebx, [esp+44]
jbe @f
mov ebx, [esp+44]
@@:
push ecx
lea esi, [ecx+eax+_FILE.buf]
mov ecx, ebx
mov edi, [esp+44]
rep movsb
pop ecx
add dword [ecx+_FILE.pos], ebx
adc dword [ecx+_FILE.pos+4], 0
mov [esp+40], edi
add [esp+28], ebx
sub [esp+44], ebx
jz .ret
test dword [ecx+_FILE.pos], 2047
jnz .ret
.aligned:
lea ebx, [ecx+_FILE.fileinfo]
mov eax, [esp+44]
and eax, not 2047
jz .finish
and [ecx+_FILE.bufsize], 0
mov [ebx+12], eax
mov eax, [esp+40]
mov [ebx+16], eax
call .doread
test eax, eax
jnz .ret
add dword [ecx+_FILE.pos], ebx
adc dword [ecx+_FILE.pos+4], 0
add [esp+28], ebx
add [esp+40], ebx
sub [esp+44], ebx
jz .ret
cmp ebx, [ecx+_FILE.fisize]
jb .ret
.finish:
lea ebx, [ecx+_FILE.fileinfo]
mov dword [ebx+12], 2048
lea eax, [ecx+_FILE.buf]
mov [ebx+16], eax
and [ecx+_FILE.bufsize], 0
mov eax, dword [ecx+_FILE.fioffset]
mov dword [ecx+_FILE.bufpos], eax
mov eax, dword [ecx+_FILE.fioffset+4]
mov dword [ecx+_FILE.bufpos+4], eax
call .doread
test eax, eax
jnz .ret
mov [ecx+_FILE.bufsize], ebx
cmp ebx, [esp+44]
jb @f
mov ebx, [esp+44]
@@:
add [esp+28], ebx
add dword [ecx+_FILE.pos], ebx
adc dword [ecx+_FILE.pos+4], 0
lea esi, [ecx+_FILE.buf]
mov edi, [esp+40]
mov ecx, ebx
rep movsb
popad
ret 12
.doread:
mov eax, [ecx+_FILE.hPlugin]
test eax, eax
jz .native
push ecx
push [ecx+_FILE.fisize]
push [ecx+_FILE.fibuf]
push [ecx+_FILE.hFile]
call [eax+PluginInfo.read]
pop ecx
cmp eax, -1
jz @f
mov ebx, eax
xor eax, eax
jmp .addpos
@@:
ret
.native:
push 70
pop eax
int 0x40
test eax, eax
jz .addpos
cmp eax, 6
jnz @b
xor eax, eax
.addpos:
add dword [ecx+_FILE.fioffset], ebx
adc dword [ecx+_FILE.fioffset+4], 0
ret
; void __stdcall seek(HANDLE hFile, int method, __int64 newpos);
seek:
pushad
mov ecx, [esp+36]
mov eax, [esp+44]
mov edx, [esp+48]
cmp dword [esp+40], 1
jb .set
ja .end
add eax, dword [ecx+_FILE.pos]
adc edx, dword [ecx+_FILE.pos+4]
jmp .set
.end:
add eax, dword [ecx+_FILE.attr+32]
adc edx, dword [ecx+_FILE.attr+36]
.set:
mov dword [ecx+_FILE.pos], eax
mov dword [ecx+_FILE.pos+4], edx
and eax, not 2047
cmp eax, dword [ecx+_FILE.bufpos]
jnz @f
cmp edx, dword [ecx+_FILE.bufpos+4]
jz .bufposok
@@:
and [ecx+_FILE.bufsize], 0
mov dword [ecx+_FILE.bufpos], eax
mov dword [ecx+_FILE.bufpos+4], edx
.bufposok:
cmp [ecx+_FILE.bufsize], 0
jnz .ret
cmp eax, dword [ecx+_FILE.fioffset]
jnz @f
cmp edx, dword [ecx+_FILE.fioffset+4]
jz .ret
@@:
mov dword [ecx+_FILE.fioffset], eax
mov dword [ecx+_FILE.fioffset+4], edx
mov eax, [ecx+_FILE.hPlugin]
test eax, eax
jz @f
push dword [ecx+_FILE.fioffset+4]
push dword [ecx+_FILE.fioffset]
push [ecx+_FILE.hFile]
call [eax+PluginInfo.setpos]
@@:
.ret:
popad
ret 16
setpos_default:
push dword [esp+12]
push dword [esp+12]
push 0
push dword [esp+16]
call seek
ret 12
; __int64 __stdcall tell(HANDLE hFile);
tell:
mov eax, [esp+4]
mov edx, dword [eax+_FILE.pos+4]
mov eax, dword [eax+_FILE.pos]
ret 4
; __int64 __stdcall filesize(HANDLE hFile);
filesize:
mov eax, [esp+4]
mov edx, dword [eax+_FILE.attr+36]
mov eax, dword [eax+_FILE.attr+32]
ret 4
; void __stdcall close(HANDLE hFile);
close:
pushad
mov ecx, [esp+24h]
mov eax, [ecx+_FILE.hPlugin]
test eax, eax
jz @f
push ecx
push [ecx+_FILE.hFile]
call [eax+PluginInfo.close]
pop ecx
@@:
call pgfree
popad
ret 4
getattr_default:
mov eax, 2
ret 12