Sweetbread/kolibrios
1
0
Fork 0
forked from KolibriOS/kolibrios
Code Issues Pull Requests Actions Activity
1bc102cf71
kolibrios/programs/fs/unz/file_tree.inc

1656 lines
27 KiB
PHP
Raw Normal View History

Unz 0.2 by GerdtR git-svn-id: svn://kolibrios.org@7538 a494cfbc-eb01-0410-851d-a64ba20cac60
2018-11-07 18:45:36 +01:00
;<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>஥<EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ॢ<EFBFBD>:
;<EFBFBD><EFBFBD><EFBFBD>ᨢ, <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 㪠<EFBFBD>뢠<EFBFBD><EFBFBD> PTree ᮤ<EFBFBD>ন<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> _tree
;
;0 0,szRoot
;1 1,dir1
;2 1,dir2
;3 2,dir21
;4 2,dir22
;5 3,dir221
;6 2,dir23
;7 1,dir3
;8 1,dir4
;9 2,dir41
RAZD equ 1 ;<EFBFBD><EFBFBD><EFBFBD><EFBFBD> ࠧ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>⥫<EFBFBD> <EFBFBD><EFBFBD>ப
F_ONLY_READ equ 1b
F_HIDDEN equ 10b
F_SYSTEM equ 100b
F_LABEL equ 1000b
F_FOLDER equ 10000b
F_NOT_BACKUP equ 100000b
TR_LINE_H equ 18
TR_STEP_W equ 10
NUM_READ_FILES = 26
TR_BACKGROUND = 0EFF8FFh
macro p2p r1,r2
{
push dword r2
pop dword r1
}
macro CopyStr strOut,strIn
{
mov edi,strOut
mov esi,strIn
@@: lodsb
stosb
test al,al
jnz @b
}
struct _BDWK
flags rd 1 ;bit0: only read , hidden , system , label , folder , not backup
encod rb 1 ;0-ASCII, 1-UNICODE
res rb 3
timeCreated rd 1
dataCreated rd 1
lastTimeAccess rd 1
lastDataAccess rd 1
lastTimeModify rd 1
lastDataModify rd 1
size rq 1
name rb 263
ends
proc d_OutTree
pushad
pushfd
mov edi,[PTree]
dps '<27><>ॢ<EFBFBD>:'
dnl
@@: cmp dword[edi+4],0
je .exit
dph [edi]
dps ' '
dph [edi+4]
dps ' '
dpsP [edi+4]
dnl
add edi,8
jmp @b
.exit:
popfd
popad
ret
endp
struct _tree
open rd 1 ;0, <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⢮ <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⠫<EFBFBD><EFBFBD><EFBFBD><EFBFBD>(<EFBFBD><EFBFBD><EFBFBD><EFBFBD>뢠<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⠫<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⠫<EFBFBD><EFBFBD><EFBFBD><EFBFBD>)
name rd 1 ;㪠<EFBFBD><EFBFBD>⥫<EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ப<EFBFBD> <EFBFBD>⭮<EFBFBD><EFBFBD>⥫쭮 PStrings
ends
uglobal
;-------------- file_tree.inc
openDir rb 1024 ;<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD>⥭<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
tmpStr rb 1024
treeDirBuf rb 32+304*NUM_READ_FILES
PTree rd 1 ;㪠<EFBFBD><EFBFBD>⥫<EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>ᨢ <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> _tree. <EFBFBD><EFBFBD>᫥<EFBFBD><EFBFBD><EFBFBD><EFBFBD> - _tree.name = 0
TreeSize rd 1
endg
iglobal
;------------- file_tree.inc
szRoot db 'hd0',0
tree_info:
.x dd 13
.y dd 110
.w dd 284
.h dd 300
.numLines dd 200/TR_LINE_H
.firstLine dd 0
fiTree dd 1
.numBlock dd 0
.flags dd 0
.numRead dd NUM_READ_FILES
.buff dd treeDirBuf;buf
db 0
.path dd openDir
imgFree:
file 'free.raw'
imgOk:
file 'ok.raw'
imgMinus:
file 'minus.raw'
imgPlus:
file 'plus.raw'
i_end:
readFolder dd rdFoldforTree ;<EFBFBD>㭪<EFBFBD><EFBFBD><EFBFBD>, <EFBFBD><EFBFBD><EFBFBD><EFBFBD>ன <EFBFBD><EFBFBD>⠥<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
endg
DDD123 = 0
proc file_tree_Init
stdcall MM_AllocMem,4000
mov [TVROOT],eax
mov dword[eax],0
mov dword[eax+4],4000
mcall 68,12,4096
mov [PTree],eax
mov [eax+_tree.open],dword 0
mov [eax+_tree.name],dword szRoot
mov [eax+8+_tree.open],dword 0
mov [eax+8+_tree.name],dword 0
DDD123 = 0
if DDD123
mov [1*8+eax+_tree.open],dword 1
mov [1*8+eax+_tree.name],dword sz_d1
mov [2*8+eax+_tree.open],dword 1
mov [2*8+eax+_tree.name],dword sz_d2
mov [3*8+eax+_tree.open],dword 2
mov [3*8+eax+_tree.name],dword sz_d21
mov [4*8+eax+_tree.open],dword 2
mov [4*8+eax+_tree.name],dword sz_d22
mov [5*8+eax+_tree.open],dword 3
mov [5*8+eax+_tree.name],dword sz_d221
mov [6*8+eax+_tree.open],dword 2
mov [6*8+eax+_tree.name],dword sz_d23
mov [7*8+eax+_tree.open],dword 1
mov [7*8+eax+_tree.name],dword sz_d3
mov [8*8+eax+_tree.open],dword 1
mov [8*8+eax+_tree.name],dword sz_d4
mov [9*8+eax+_tree.open],dword 2
mov [9*8+eax+_tree.name],dword sz_d41
mov [0Ah*8+eax+_tree.open],dword 0
mov [0Ah*8+eax+_tree.name],dword 0
end if
mov [TreeSize],1
;Fantomer ; mcall 68,12,4096
; mov [PWoSearch],eax
; mov dword[eax],searchPath
; mov dword[eax+4],0
ret
endp
if DDD123
sz_d1 db 'dir1',0
sz_d2 db 'dir2',0
sz_d21 db 'dir21',0
sz_d22 db 'dir22',0
sz_d221 db 'dir221',0
sz_d23 db 'dir23',0
sz_d3 db 'dir3',0
sz_d4 db 'dir4',0
sz_d41 db 'dir41',0
end if
uglobal
bufImg rb 384*300*3
endg
proc file_tree_Draw
locals
tr_y rd 1
tr_numLine rd 1
endl
mcall 13,<[tree_info.x],[tree_info.w]>,\
<[tree_info.y],[tree_info.h]>,TR_BACKGROUND
mov [tr_numLine],0
p2p [tr_y],[tree_info.y]
mov eax,[PTree]
mov eax,[eax+_tree.open]
inc eax
mov ecx,[TreeSize]
.drawLine:
push ecx
mov edi,[tr_numLine]
shl edi,3
add edi,[PTree]
; mov eax,[edi+_tree.open]
; mov bx,TR_LINE_H
; mul bx
; add eax,[tree_info.x]
; mpack ebx,eax,[tr_y]
POPRDLJAKART = 4
mov eax,[edi+_tree.open]
mov bx,TR_STEP_W
mul bx
add eax,[tree_info.x]
mpack edx,eax,[tr_y]
add edx,POPRDLJAKART ;<EFBFBD><EFBFBD><EFBFBD>ࠢ<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>⨭<EFBFBD><EFBFBD>
mov eax,[edi+_tree.open]
inc eax
cmp eax,[edi+8+_tree.open]
je @f
mov ebx,imgPlus
jmp .draw1
@@:
mov ebx,imgMinus
.draw1:
mcall 7,,<9,9>
push edx
;mov eax,edi
;call getPath
;mov ebx,eax
;stdcall findVetka,eax
;push ecx
;stdcall strCpy,ebx,
;stdcall MM_DelMem,ebx
mov ebx,edi
call getFullPath
stdcall findVetka,openDir
test ecx,ecx
jnz .l1
mov ebx,imgOk
jmp .l2
.l1:
mov ebx,imgFree
.l2:
pop edx
add edx,15 shl 16
mov ebx,imgOk
mcall 7,,<9,9>
sub edx,POPRDLJAKART ;㡨ࠥ<EFBFBD> <EFBFBD><EFBFBD><EFBFBD>ࠢ<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>⨭<EFBFBD><EFBFBD>
lea ebx,[edx+1+10*10000h]
mov ecx,90000000h
or ecx,[sc.work_text]
mov edx,[edi+_tree.name]
mcall 4
add [tr_y],TR_LINE_H
inc [tr_numLine]
mov eax,[tree_info.y]
add eax,[tree_info.h]
cmp [tr_y],eax
jae .end
pop ecx
dec ecx
jnz .drawLine
.end:
ret
endp
proc file_tree_Mouse
locals
m_x rd 1
endl
;mcall 37,0 <EFBFBD><EFBFBD>᮫<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>न<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>
mcall 37,2 ;<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
test al,1
jz .exit
mcall 37,1 ;<EFBFBD><EFBFBD><EFBFBD>न<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD>⭮<EFBFBD><EFBFBD>⥫쭮 <EFBFBD><EFBFBD><EFBFBD><EFBFBD>
mov bx,ax ;y
shr eax,16 ;x
mov [m_x],eax
cmp eax,[tree_info.x] ;<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>뢠<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ॢ<EFBFBD>
jb .exit
sub eax,[tree_info.x]
cmp eax,[tree_info.w]
ja .exit
cmp ebx,[tree_info.y]
jb .exit
sub ebx,[tree_info.y]
mov edx,ebx
cmp edx,[tree_info.h]
ja .exit
mov eax,edx
mov bx,TR_LINE_H
xor edx,edx
div bx
mov ebx,[PTree]
lea ebx,[ebx+eax*8]
;eax=<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ப<EFBFBD>, ebx - 㪠<EFBFBD><EFBFBD>⥫<EFBFBD> <EFBFBD><EFBFBD> _tree,
;<EFBFBD>ய<EFBFBD>᪠<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ॢ<EFBFBD>
mov edx,[TreeSize]
dec edx
cmp eax,edx
ja .exit
mov eax,[ebx+_tree.open]
mov dx,TR_STEP_W
mul dx
add eax,[tree_info.x]
cmp eax,[m_x]
ja .mark
add eax,9
cmp eax,[m_x]
jb .mark
;<EFBFBD>஢<EFBFBD><EFBFBD>塞: <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
mov edx,[ebx+_tree.open]
inc edx
cmp [ebx+_tree.open+8],edx
jne @f
call tree_closeFolder
call file_tree_Draw
ret
@@:
call tree_openFolder
call file_tree_Draw
jmp .exit
.mark:
;<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ப<EFBFBD>
.exit:
ret
endp
;-------------------------------------------------------------------------------
;---------------------- <EFBFBD><EFBFBD><EFBFBD><EFBFBD>뢠<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ----------------------------------------
;-------------------------------------------------------------------------------
; inp: ebx - 㪠<EFBFBD><EFBFBD>⥫<EFBFBD> <EFBFBD><EFBFBD> _tree,
;-------------------------------------------------------------------------------
proc tree_closeFolder
mov esi,[ebx+_tree.open]
lea edi,[ebx+8]
@@:
cmp [edi+_tree.open],esi
jbe @f
stdcall MM_DelMem,[edi+_tree.name]
add edi,8
jmp @b
@@:
mov esi,edi
lea edi,[ebx+8]
mov eax,esi
sub eax,edi
shr eax,3
sub [TreeSize],eax
;ᤢ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>뢠<EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
@@: movsd
lodsd
stosd
test eax,eax
jnz @b
ret
endp
;-------------------------------------------------------------------------------
;-------------------- <EFBFBD><EFBFBD><EFBFBD><EFBFBD>뢠<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ------------------------------------------
;-------------------------------------------------------------------------------
; inp: eax=<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ப<EFBFBD>, ebx - 㪠<EFBFBD><EFBFBD>⥫<EFBFBD> <EFBFBD><EFBFBD> _tree,
;-------------------------------------------------------------------------------
proc tree_openFolder
locals
p_treeOpen rd 1
currLine rd 1
PTmpTree rd 1
endTmpTree rd 1
lEOF rd 1
numFolds rd 1
openLine rd 1
endl
mov [p_treeOpen],ebx
; int3
call getFullPath
;----- <EFBFBD><EFBFBD>⠥<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>塞 tmpTree---------------------------------------------------------
mcall 68,12,8192
mov [PTmpTree],eax ;<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> ᯨ᪠ <EFBFBD><EFBFBD>⠫<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
mov [lEOF],0
mov [endTmpTree],0
mov [numFolds],0
mov [fiTree.numBlock],0
.stepLoadFold: ;<EFBFBD>⥭<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
; dpsP [fiTree+21]
; dnl
mcall 70,fiTree
; mov eax, fiTree
; call [readFolder]
test eax,eax
je @f
cmp eax,6
jne .err
@@:
cmp ebx,NUM_READ_FILES
je @f
mov [lEOF],1 ;<EFBFBD>⠢<EFBFBD><EFBFBD> EOF
@@:
mov ecx,ebx
mov edi,treeDirBuf+32
.testRec: ;<EFBFBD><EFBFBD>ࠡ<EFBFBD>⪠ <EFBFBD><EFBFBD><EFBFBD><EFBFBD>ᥩ <EFBFBD> treeDirBuf
push ecx
lea eax,[edi+_BDWK.name] ;<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>뢠<EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> . <EFBFBD> ..
cmp word[eax],'.'
je .endtestRec
cmp word[eax],'..'
jne @f
cmp byte[eax+2],0
je .endtestRec
@@:
; cmp [edi+_BDWK.flags],F_FOLDER
; jne .endtestRec
inc [numFolds]
push edi
lea esi,[edi+_BDWK.name]
;;;;;;;;; ;<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD> ᯨ᮪
mov edi,esi ;<EFBFBD><EFBFBD><EFBFBD><EFBFBD>砥<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ப<EFBFBD>
xor al,al
mov ecx,260
repne scasb
mov eax,260
sub eax,ecx
stdcall MM_AllocMem,eax
;dph eax
;dnl
mov edi,eax
mov ebx,[endTmpTree]
add ebx,[PTmpTree]
mov [ebx],eax
add [endTmpTree],4
mov ecx,ebx ;<EFBFBD>᫨ <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>।<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
add ecx,4 ;<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
test ecx,0FFFh
jz @f
and ecx,0FFFFF000h
add ecx,1000h
@@: sub ecx,4
cmp ecx,ebx
jne @f
mcall 68,20,,[PTmpTree]
mov [PTmpTree],eax
@@: lodsb
stosb
test al,al
jnz @b
pop edi
.endtestRec:
add edi,304
pop ecx
dec ecx
jnz .testRec
add [fiTree.numBlock],NUM_READ_FILES
cmp [lEOF],1
jne .stepLoadFold
cmp [numFolds],0
je .exit
;;;;;;;;;;;; <EFBFBD><EFBFBD><EFBFBD><EFBFBD>뢠<EFBFBD><EFBFBD> <EFBFBD> <EFBFBD>᭮<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ॢ<EFBFBD>
;ᬥ頥<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <EFBFBD>⮡ <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ॢ<EFBFBD>
mov esi,[PTree]
mov eax,[TreeSize]
inc eax
shl eax,3
add esi,eax
mov edi,esi
mov eax,[numFolds]
shl eax,3
add edi,eax
mov eax,esi
sub eax,[p_treeOpen]
shr eax,2
mov ecx,eax
add esi,4
add edi,4
std
rep movsd
cld
;⥯<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>뢠<EFBFBD><EFBFBD> <EFBFBD> [PTree]
mov ebx,[p_treeOpen]
mov eax,[ebx+_tree.open]
inc eax
mov esi,[PTmpTree]
lea edi,[ebx+8]
mov ecx,[numFolds]
@@: mov [edi+_tree.open],eax
p2p [edi+_tree.name],[esi]
add esi,4
add edi,8
loop @b
mov eax,[numFolds]
add [TreeSize],eax
.exit:
.err:
mcall 68,13,[PTmpTree]
call d_OutTree
ret
endp
;-------------------------------------------------------------------------------
;--- <EFBFBD><EFBFBD>室<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> -------------------------------------------
;-------------------------------------------------------------------------------
;inp: ebx = Pointer to _tree.
;outp: openDir ᮤ<EFBFBD>ন<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> (<EFBFBD><EFBFBD>᫥ <EFBFBD><EFBFBD>᫥<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> /)
;-------------------------------------------------------------------------------
proc getFullPath
;<EFBFBD>㦭<EFBFBD> <EFBFBD>஡<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD>᫥<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <EFBFBD><EFBFBD> த<EFBFBD>⥫<EFBFBD>᪨<EFBFBD>
;᭠砫<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>뢠<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD> tmpStr, ࠧ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> ᨬ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> RAZD, <EFBFBD><EFBFBD>⥬
;᪮<EFBFBD><EFBFBD>p㥬 <EFBFBD><EFBFBD> <EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>⭮<EFBFBD> <EFBFBD><EFBFBD><EFBFBD>浪<EFBFBD> <EFBFBD> <EFBFBD><EFBFBD>⮢<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD> openDir
push ebx edi esi
mov eax,[ebx+_tree.open]
mov edi,tmpStr+1
mov byte[edi-1],RAZD
cmp [ebx+_tree.name],0
je .copyIn_openDir
jmp .addFoldToPath
.testLine:
cmp [ebx+_tree.open],eax
jb .addFoldToPath
sub ebx,8
cmp ebx,[PTree]
jne .testLine
; jmp .copyIn_openDir
.addFoldToPath:
mov byte[edi-1],RAZD
mov esi,[ebx+_tree.name]
@@: lodsb
stosb
test al,al
jnz @b
mov eax,[ebx+_tree.open]
cmp ebx,[PTree]
je .copyIn_openDir
cmp ebx,[PTree]
jne .testLine
sub ebx,8
cmp ebx,[PTree]
jne .testLine
.copyIn_openDir:
sub edi,2
mov edx,openDir+1
mov byte[edx-1],'/'
mov byte[edx],0
cmp edi,tmpStr-1
je .endConv
@@:
mov al,RAZD
mov ecx,1024
std
repne scasb
cld
push edi
add edi,2
mov eax,1024
sub eax,ecx
mov ecx,eax
mov esi,edi
mov edi,edx
rep movsb
mov byte[edi-1],'/'
mov byte[edi],0
mov edx,edi
pop edi
cmp edi,tmpStr-1
jne @b
.endConv:
pop esi edi ebx
ret
endp
;inp eax = Pointer to _tree
;outp eax = Pointer to string - full path
;<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD>᢮<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!!!
proc getPath
locals
strTmp rb 256
reslt rd 1
endl
push ebx edi esi
mov ebx,eax
mov eax,[eax+_tree.open]
lea edi,[strTmp+1]
mov byte[edi-1],RAZD
cmp ebx,[PTree]
je .copyIn_openDir
jmp .addFoldToPath
.testLine:
cmp [ebx+_tree.open],eax
jb .addFoldToPath
sub ebx,8
cmp ebx,[PTree]
jne .testLine
jmp .copyIn_openDir
.addFoldToPath:
mov byte[edi-1],RAZD
mov esi,[ebx+_tree.name]
@@: lodsb
stosb
test al,al
jnz @b
mov eax,[ebx+_tree.open]
sub ebx,8
cmp ebx,[PTree]
jne .testLine
.copyIn_openDir:
lea eax,[strTmp]
stdcall strLen,eax
stdcall MM_AllocMem,eax
mov [reslt],eax
mov edx,eax
inc edx
sub edi,2
mov byte[edx-1],'/'
mov byte[edx],0
lea eax,[strTmp-1]
cmp edi,eax
je .endConv
@@:
mov al,RAZD
mov ecx,1024
std
repne scasb
cld
push edi
add edi,2
mov eax,1024
sub eax,ecx
mov ecx,eax
mov esi,edi
mov edi,edx
rep movsb
mov byte[edi-1],'/'
mov byte[edi],0
mov edx,edi
pop edi
lea eax,[strTmp-1]
cmp edi,eax
jne @b
.endConv:
mov eax,[reslt]
pop esi edi ebx
ret
endp
;####################################################################################################
;####################################################################################################
;####################################################################################################
;####################################################################################################
;tree_ <EFBFBD>㭪樨, <EFBFBD>࠭<EFBFBD>騥 <EFBFBD>⬥祭<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>. <EFBFBD><EFBFBD><EFBFBD><EFBFBD>஥<EFBFBD><EFBFBD> <EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ॢ<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>\䠩<><E4A0A9><EFBFBD>
;<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD>࠭<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> ᯨ᮪ <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (usel)
;tree_Add(path)
;<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD> <EFBFBD><EFBFBD>ॢ<EFBFBD> <EFBFBD>⬥祭<EFBFBD><EFBFBD> 䠩<EFBFBD><EFBFBD><EFBFBD>
;<EFBFBD>뢮<EFBFBD>
;<EFBFBD><EFBFBD><EFBFBD> = 0 - <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
; 1 - ⠪<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> 㦥 <EFBFBD><EFBFBD><EFBFBD><EFBFBD>
; -1 - <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>
;
;
;tree_Del(path)
;####################################################################################################
struct _vetka
sizeused rd 1
sizebuf rd 1
ends
struct _usel
pName rd 1
pNext rd 1
ends
;''''''''''''''''' <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
;<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD> <EFBFBD><EFBFBD>ॢ<EFBFBD> <EFBFBD>⬥祭<EFBFBD><EFBFBD> 䠩<EFBFBD><EFBFBD><EFBFBD>
;<EFBFBD>뢮<EFBFBD>
;<EFBFBD><EFBFBD><EFBFBD> = 0 - <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
; 1 - ⠪<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> 㦥 <EFBFBD><EFBFBD><EFBFBD><EFBFBD>
; -1 - <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>
proc tree_Add path:DWORD
locals
numFolds rd 1
vetB rd 1
uselB rd 1
endl
push ebx edi esi
;int3
stdcall getNumFolds, [path]
cmp eax,-1
je .error
mov ecx,eax
inc eax
mov [numFolds],eax
;<EFBFBD>饬 <EFBFBD><EFBFBD>⠫<EFBFBD><EFBFBD>, <EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>ண<EFBFBD> <EFBFBD><EFBFBD>稭<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>뢠<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ॢ<EFBFBD>
.searchBegin:
push ecx
mov eax,[numFolds]
sub eax,ecx
stdcall getFirstTailPath, [path], eax
push eax
stdcall findVetka,eax
mov ebx,ecx
mov [vetB],eax
mov [uselB],edx
pop eax
stdcall MM_DelMem,eax
cmp ebx,0
jne .foundBegin
pop ecx
loop .searchBegin
jmp .exitNotAdded
.foundBegin: ;<EFBFBD> <EFBFBD>⥪<EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>諮<EFBFBD><EFBFBD> loop'a
;int3
mov eax,[uselB]
mov ebx,[eax+_usel.pNext]
cmp ebx,0
jne @f
mov ebx,eax
stdcall MM_AllocMem,4000
mov [ebx+_usel.pNext],eax
mov dword[eax],0
mov dword[eax+4],4000
mov ebx,eax
@@:
mov eax,ebx
add [eax+_vetka.sizeused],8
mov edx,[eax+_vetka.sizebuf]
sub edx,8
cmp [eax+_vetka.sizeused],edx
jb .noOverflow
add edx,8
push eax ;㢥<EFBFBD><EFBFBD>稢<EFBFBD><EFBFBD><EFBFBD> ࠧ<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
push edx ;<EFBFBD>㭪樨 realloc <EFBFBD><EFBFBD><EFBFBD> - <EFBFBD><EFBFBD>⮬<EFBFBD> ⠪<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>饭<EFBFBD><EFBFBD> - Fantom
add edx,4000
mov esi,eax
stdcall MM_AllocMem, edx
mov ebx,eax
mov edi,eax
pop ecx
shr ecx,2
rep movsd
pop eax
stdcall MM_DelMem,eax
mov eax,ebx
.noOverflow:
mov ebx, [eax+_vetka.sizeused]
lea ebx, [ebx+eax]
;ebx = PU_ - usel
;eax = P_ - vetka
mov eax,[numFolds]
sub eax,[esp] ;- <EFBFBD> <EFBFBD>⥪<EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> .searchBegin
dec eax
stdcall getFoldByNum ,[path], eax
mov [ebx+_usel.pName],eax
mov [ebx+_usel.pNext],0
;call D_OutTree
;dps '--------------------------------'
;dnl
pop ecx
dec ecx
jnz .searchBegin
mov eax, 0
jmp .exit
.exitNotAdded:
mov eax,1
jmp .exit
.error:
mov eax,-1
.exit:
;dps '-- <20><><EFBFBD><EFBFBD> ------------------------'
;dnl
;call D_OutTree
pop esi edi ebx
ret
endp
DDt dd 0
;-------------------------------------------------------------------------------
; <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
proc D_OutTree
mov eax,[TVROOT]
call D_OutTree2
ret
endp
proc D_OutTree2
inc [DDt]
mov ecx,[eax]
shr ecx,3
add eax,8
.loop:
push eax ecx
mov ecx,[DDt]
.space: dps ' '
loop .space
dpsP [eax]
dps ' '
dph dword[eax+4]
dnl
cmp dword[eax+4],0
je @f
mov eax,[eax+4]
call D_OutTree2
@@:
pop ecx eax
add eax,8
loop .loop
dec [DDt]
ret
endp
;-------------------------------------------------------------------------------
;tree_Del(path)
; <EFBFBD>᫨ <EFBFBD> 㪠<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 㧫<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> 㪠<EFBFBD><EFBFBD>⥫<EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <EFBFBD><EFBFBD>
; treeDelIn(path)
; 㤠<EFBFBD><EFBFBD><EFBFBD><EFBFBD> 㪠<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 㧥<EFBFBD>
; <EFBFBD>᫨ <EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD>᫥<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD> ᯨ᪥, <EFBFBD><EFBFBD>
; <EFBFBD>᫨ <EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD>⮨<EFBFBD> <EFBFBD><EFBFBD>᫥<EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <EFBFBD><EFBFBD>
; ᤢ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>᫥<EFBFBD><EFBFBD><EFBFBD>騥 <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 㧥<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> 8
;last_elem: <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
; 㤠<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
; tree_Del(<EFBFBD><EFBFBD><EFBFBD><EFBFBD> - 1 <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)
;treeDelIn(path)
; <EFBFBD>᫨ <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>⪠, <EFBFBD><EFBFBD>
; <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> 㧫<EFBFBD> {
; <EFBFBD>᫨ <EFBFBD> 㧫<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>⪠, <EFBFBD><EFBFBD>
; treeDelIn(<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> ⥪<EFBFBD>饣<EFBFBD> 㧫<EFBFBD>)
; <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
; <EFBFBD>᢮<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
; }
;<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
;return:
;eax = 0 - success, -1 - error
proc tree_Del path:DWORD
locals
PU rd 1
P rd 1
path2 rb 256
endl
;int3
push ebx edi esi
stdcall findVetka,[path]
test ecx,ecx
jne .err
mov edi,edx
mov esi,eax
cmp [edi+_usel.pNext],dword 0
je @f
mov eax,edi
push edi esi
call treeDelIn
pop esi edi
@@:
stdcall MM_DelMem,[edi+_usel.pName]
mov eax,[esi+_vetka.sizeused]
cmp eax,8
je .last_elem
add eax,esi ; - last _usel
cmp edi,eax ;if last _usel, then do not
je @f
push esi
sub eax,edi ;move all _usel up
shr eax,2
mov ecx,eax
mov esi,edi
add esi,8
rep movsd
pop esi
@@: sub dword [esi+_vetka.sizeused],8
jmp .exit
.last_elem:
stdcall MM_DelMem,esi
stdcall findUselMinusOne,[path]
cmp ecx,0
jne .exit
mov [edx+_usel.pNext],0
.exit:
xor eax,eax
pop esi edi ebx
ret
.err:
or eax,-1
pop esi edi ebx
ret
endp
;!!!! <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>࠭<EFBFBD><EFBFBD><EFBFBD> ॣ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
;input: eax = pointer to _usel
proc treeDelIn
;mov eax,[eax+_usel.pNext] ;<EFBFBD><EFBFBD><EFBFBD>᭮, <EFBFBD><EFBFBD> <EFBFBD> ⠪ <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD>஢<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>। <EFBFBD>맮<EFBFBD><EFBFBD><EFBFBD>
;cmp eax,0
;je .exit
lea ebx,[eax+8]
mov ecx,[eax]
shr ecx,3 ;<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⢮ 㧫<EFBFBD><EFBFBD>
.loop:
push ecx
mov eax,[ebx+_usel.pNext]
test eax,eax
jz @f
push ebx
call treeDelIn
pop ebx
@@:
stdcall MM_DelMem,[ebx+_usel.pName]
stdcall MM_DelMem,[ebx+_usel.pNext]
add ebx,8
pop ecx
dec ecx
jnz .loop
.exit:
ret
endp
; """""""""""""""" <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
;path = /hd0/1/kol -folder
;TV1 -> us'hd0' -> us'1' -> us'kol'
;path = /hd0/1/mtldr -file
;path = /rd/1/kernel.mnt - file in ramdisk
;<EFBFBD><EFBFBD>室<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>ன <EFBFBD><EFBFBD>室<EFBFBD><EFBFBD><EFBFBD><EFBFBD> 㧥<EFBFBD> <EFBFBD> <EFBFBD>㦭<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
;<EFBFBD>뢮<EFBFBD>:
;eax - <EFBFBD><EFBFBD>⪠
;edx - 㧥<EFBFBD>, <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>᫥<EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <EFBFBD>. <EFBFBD>. <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> /rd/1/lib/qwe <EFBFBD>㤥<EFBFBD> 㧥<EFBFBD> lib, ⠪ <EFBFBD><EFBFBD><EFBFBD> 䠩<EFBFBD><EFBFBD> qwe <EFBFBD><EFBFBD><EFBFBD>
;ecx - 0 - <EFBFBD>㦭<EFBFBD><EFBFBD> <EFBFBD><EFBFBD>⪠/㧥<EFBFBD> <EFBFBD>ᯥ譮 <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
; 1 - <EFBFBD>㦭<EFBFBD><EFBFBD> <EFBFBD><EFBFBD>⪠/㧥<EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - <EFBFBD><EFBFBD> <EFBFBD><EFBFBD>室<EFBFBD> <EFBFBD><EFBFBD>᫥<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 㧥<EFBFBD>
; 2 - <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ࠬ<EFBFBD><EFBFBD><EFBFBD>
proc findVetka path:DWORD
locals
curFold rd 1
num_f rd 1
old_vetk rd 1
old_usel rd 1
endl
;int3
mov eax, [TVROOT]
cmp dword[eax],0
jne @f
mov edx, 0
mov ecx,2
xor eax,eax
ret
@@:
push ebx edi esi
mov [num_f], 0
xor edx, edx
stdcall getFoldByNum, [path], 0
test eax, eax
jz .error2
;dpsP eax
;dnl
mov [curFold], eax
mov esi, [TVROOT]
.goLoop:
mov ebx, 8
mov ecx, [esi]
shr ecx, 3 ;<EFBFBD>⮫쪮 <EFBFBD> TVROOT <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> usel
.loop:
push ecx
stdcall strCmp, [curFold], [esi+ebx]
test al, al
jz .find
add ebx, 8
pop ecx
loop .loop
jmp .error1
.find:
pop eax ; <EFBFBD><EFBFBD>஢<EFBFBD>﫨
inc [num_f]
stdcall MM_DelMem, [curFold]
stdcall getFoldByNum, [path], [num_f]
test eax, eax
jz .end
mov [curFold], eax
cmp dword[esi+ebx+4], 0
jz .error
lea eax, [esi+ebx]
mov [old_vetk],esi
mov [old_usel],eax
mov esi, [esi+ebx+4]
jmp .goLoop
.end:
mov eax, esi
lea edx, [esi+ebx]
xor ecx,ecx
jmp .exit
.error:
stdcall MM_DelMem, [curFold]
mov eax, esi
lea edx, [esi+ebx]
mov ecx,1
jmp .exit
.error1:
stdcall MM_DelMem, [curFold]
mov eax, [old_vetk]
mov edx, [old_usel]
mov ecx,1
jmp .exit
.error2:
stdcall MM_DelMem, [curFold]
mov eax, 0
mov edx, 0
mov ecx,2
.exit:
pop esi edi ebx
ret
endp
;<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
;<EFBFBD><EFBFBD>室<EFBFBD><EFBFBD> 㧥<EFBFBD>, <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>뫠<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 㧥<EFBFBD>
;<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD> edx usel, <EFBFBD><EFBFBD><EFBFBD> <EFBFBD>।<EFBFBD><EFBFBD>᫥<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>
;eax - <EFBFBD><EFBFBD>⪠, <EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>ன <EFBFBD><EFBFBD><EFBFBD><EFBFBD> 㧥<EFBFBD>
;<EFBFBD><EFBFBD><EFBFBD> - <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>(0, 1, 2, -1)
proc findUselMinusOne path:DWORD
locals
path2 rb 256
endl
push ebx edi esi
stdcall strLen,[path]
cmp eax,255
ja .err
lea eax,[path2]
stdcall strCpy,[path],eax
lea edi,[path2]
xor al,al
mov ecx,256
repne scasb ; V
test ecx,ecx ;/hd0/1/kol
jz .err ;⮫쪮 <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
sub ecx,255
xor ecx,-1
inc ecx
sub edi,2
cmp byte [edi], '/'
jne @f
dec edi
dec ecx
@@:
mov al,'/'
std
repne scasb
cld
test ecx,ecx
jz .err ; ⮫쪮 <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
inc edi
mov byte[edi],0
lea eax,[path2]
stdcall findVetka,eax
jmp @f
.err:
xor eax,eax
xor edx,edx
or ecx,-1
@@:
pop esi edi ebx
ret
endp
;--------------<EFBFBD><EFBFBD>⮢<EFBFBD>
;<EFBFBD><EFBFBD>室<EFBFBD><EFBFBD> 㧥<EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>⠫<EFBFBD><EFBFBD><EFBFBD> <EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>
;eax = Pointer to _vetka
;edx = Pointer to _usel
;ecx = status (0 - success, 1 - found path not full,
; 2 - path not corrected, -1 - only one folder in path)
proc findUselByNum path:DWORD,num:DWORD
locals
path2 rb 256
endl
push ebx edi esi
stdcall getNumFolds,[path]
cmp eax,[num]
jl .err
xor ebx,ebx
lea edi,[path2]
mov esi,[path]
cmp byte[esi],'/'
jne .l2
dec ebx
.l2: lodsb
stosb
cmp al,'/'
jne @f
inc ebx
cmp ebx,[num]
ja .go
@@:
test al,al
jnz .l2
.go:
mov byte[esi-1],0
lea eax,[path2]
stdcall findVetka,eax
jmp @f
.err:
xor eax,eax
xor edx,edx
or ecx,-1
@@:
pop esi edi ebx
ret
endp
;''''''''''''''' <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
;<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>頥<EFBFBD> <EFBFBD><EFBFBD><EFBFBD> 䠩<EFBFBD><EFBFBD>/<EFBFBD><EFBFBD>⠫<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD>ᥣ<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>
; --- !!! <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD>㦭<EFBFBD> <EFBFBD>㤥<EFBFBD> <EFBFBD>᢮<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
proc getName path:DWORD
push esi edi
stdcall strLen,[path]
mov edi,[path]
add edi,eax
sub edi,2
cmp byte[edi],'/'
jne @f
dec edi
@@:
mov ecx,eax
mov al,'/'
std
repne scasb
cld
add edi,2
stdcall strLen,edi
mov esi,eax
stdcall MM_AllocMem, ecx
push eax
add esi,eax
stdcall strCpy,edi, eax
cmp byte[esi-2],'/'
jne @f
mov byte[esi-2],0
@@:
pop eax
pop edi esi
ret
endp
; """""""""""""""" <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
proc strCpy src:DWORD,dest:DWORD
push esi edi
mov edi,[dest]
mov esi,[src]
@@: lodsb
stosb
test al,al
jnz @b
pop edi esi
ret
endp
; """""""""""""""" <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
; <EFBFBD> <EFBFBD><EFBFBD><EFBFBD>⮬ <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>饣<EFBFBD> 0
proc strLen strz:DWORD
push edi
mov edi,[strz]
xor al,al
mov ecx,1024
repnz scasb
mov eax,1024
sub eax,ecx
pop edi
ret
endp
; """""""""""""""" <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
proc strCmp src1:DWORD, src2:DWORD
push esi edi
mov edi, [src1]
mov esi, [src2]
mov eax, 1
@@: test al, al
jz .end
lodsb
scasb
jz @b
ja .low
mov eax, 1
jmp @f
.low:
mov eax, -1
@@:
pop edi esi
ret
.end:
xor eax,eax
jmp @b
endp
; """""""""""""""" <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
;<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>頥<EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD>ᥣ<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
;! <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>稭<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD> 0
; --- !!! <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD>㦭<EFBFBD> <EFBFBD>㤥<EFBFBD> <EFBFBD>᢮<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
proc getFoldByNum strz:DWORD, num:DWORD
push ebx edi esi
mov esi, [strz]
mov ecx, 1024
stdcall MM_AllocMem, 256
mov ebx, eax
cmp byte[esi], '/'
jne @f
inc esi
@@:
.find_begin:
cmp [num], 0
jz .copy
@@: lodsb
cmp al, '/'
je @f
cmp al, 0
je .error
loop @b
@@: dec [num]
jmp .find_begin
.copy:
;dec esi
mov edi, ebx
mov byte[edi], 1 ;<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>⪠ ⮣<EFBFBD>, <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>ᠭ
@@:
lodsb
cmp al, '/'
je @f
cmp al, 0
je @f
stosb
loop @b
@@:
cmp byte[edi], 1
jne @f
.error:
stdcall MM_DelMem, ebx
xor ebx, ebx
jmp .end
@@:
xor al, al
stosb
.end:
mov eax, ebx
pop esi edi ebx
ret
endp
; """""""""""""""" <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
;<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>頥<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⢮ <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⮢
;ret: eax = Num or -1
proc getNumFolds path:DWORD
push ebx edi esi
stdcall strLen,[path]
cmp eax,255
ja .err
xor ebx,ebx
mov esi,[path]
cmp byte[esi],'/'
jne .l1
dec ebx
.l1: lodsb
cmp al,'/'
jne @f
inc ebx
@@:
test al,al
jnz .l1
cmp [esi-2],byte '/'
je @f
inc ebx
@@:
mov eax,ebx
jmp .exit
.err:
or eax,-1
.exit:
pop esi edi ebx
ret
endp
;''''''''''''''''<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
;<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>頥<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>: <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> num <EFBFBD><EFBFBD>⠫<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
;ret: <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⥫<EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ப<EFBFBD>.
; --- !!! <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD>㦭<EFBFBD> <EFBFBD>㤥<EFBFBD> <EFBFBD>᢮<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
proc getFirstTailPath path:DWORD, num:DWORD
push ebx edi esi
cmp [num],0
je .err
stdcall strLen,[path]
cmp eax,255
ja .err
stdcall MM_AllocMem, eax
mov edi,eax
push eax
xor ebx,ebx
mov esi,[path]
cmp byte[esi],'/'
jne .l1
.l1: lodsb
stosb
cmp al,'/'
jne @f
inc ebx
cmp ebx,[num]
ja .endloop
@@:
test al,al
jnz .l1
.endloop:
cmp [esi-2],byte '/'
je @f
mov byte[edi-1],0
jmp .l2
@@:
mov byte[edi-2],0
.l2:
pop eax
jmp .exit
.err:
or eax,-1
.exit:
pop esi edi ebx
ret
endp
proc TESTINIT
;---- <EFBFBD>⮡<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD>뫨 <EFBFBD> <EFBFBD><EFBFBD>ଥ <EFBFBD>㦭<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD>뤥<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ॢ<EFBFBD>
;;TEST getFoldByNum
;tstStr db '/hd0/1/dqw',0
; stdcall getFoldByNum,tstStr,2
; dpsP eax
; dps '|'
; dnl
; ret
stdcall MM_AllocMem,4000
mov [TVROOT],eax
stdcall MM_AllocMem,4000
mov [Tus1+4],eax
stdcall MM_AllocMem,4000
mov [Tus2+4],eax
stdcall MM_AllocMem,4
mov [Tus1],eax
stdcall MM_AllocMem,4
mov [Tus2],eax
stdcall MM_AllocMem,4
mov [Tus3],eax
stdcall strCpy,sname1,[Tus1]
stdcall strCpy,sname2,[Tus2]
stdcall strCpy,sname3,[Tus3]
mov esi,TvetkaHD0
mov edi,[TVROOT]
mov ecx,4
rep movsd
mov esi,Tvetka1
mov edi,[Tus1+4]
mov ecx,4
rep movsd
mov esi,TvetkaKOL
mov edi,[Tus2+4]
mov ecx,4
rep movsd
;int3
; stdcall tree_Add,strTets1
; stdcall tree_Add,strTets2
; stdcall tree_Add,strTets3
;dps '----------'
;dnl
;call D_OutTree
; stdcall tree_Del,strTets2
;dps '----------'
;dnl
;call D_OutTree
;dps '-------------------------'
;dnl
; stdcall getFoldByNum,strTets,0
;mov edi,eax
;dpsP edi
;dnl
;int3
mov eax,[PTree]
lea eax, [5*8+eax+_tree.open]
call GetPath
dpsP eax
dnl
ret
endp
;;TEST
strTets1 db '/hd0/kol/asd1',0
strTets2 db '/hd0/kol/asd2',0
strTets3 db '/hd0/kol/asd3',0
TvetkaHD0:
dd 2*4
dd 4000
Tus1:
dd sname1
dd Tvetka1
;---------------------
Tvetka1:
dd 2*4
dd 4000
Tus2:
dd sname2
dd TvetkaKOL
;---------------------
TvetkaKOL:
dd 2*4
dd 4000
Tus3:
dd sname3
dd 0
;---------------------
sname1 db 'hd0',0
sname2 db '1',0
sname3 db 'kol',0
_TBUFSIZE dd 4000 - $
TVROOT rd 1
;<EFBFBD>㤥<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD>⬥祭<EFBFBD><EFBFBD><EFBFBD> 䠩<EFBFBD><EFBFBD><EFBFBD>/<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
;<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
; <EFBFBD>᫨ <EFBFBD><EFBFBD><EFBFBD> <EFBFBD>⬥祭<EFBFBD> <EFBFBD><EFBFBD><EFBFBD>, <EFBFBD><EFBFBD> <EFBFBD><EFBFBD>祣<EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
; <EFBFBD>᫨ <EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD> ᯨ᮪ <EFBFBD>⬥祭<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>⠫<EFBFBD><EFBFBD><EFBFBD><EFBFBD>,
; <EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> ᯨ᪠
; <EFBFBD>᫨ <EFBFBD><EFBFBD><EFBFBD>⠢<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD>᫥<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD>뤥<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 䠩<EFBFBD><EFBFBD>, <EFBFBD><EFBFBD> <EFBFBD><EFBFBD>祣<EFBFBD>. <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD> ᯨ᮪,<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>樨 <EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>祬
;
;vetka:
; sizeused
; sizebuf(def - 4000)
; array of usel
;
; --- ॠ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ---
;<EFBFBD><EFBFBD>ॢ<EFBFBD> <EFBFBD>뤥<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ꥪ⮢:
; 㧥<EFBFBD> (usel):
; pName - <EFBFBD><EFBFBD>᫮<EFBFBD><EFBFBD> - 㪠<EFBFBD><EFBFBD>⥫<EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ப<EFBFBD> <EFBFBD><EFBFBD><EFBFBD> 㧫<EFBFBD>
; pNext - <EFBFBD><EFBFBD>᫮<EFBFBD><EFBFBD> - 㪠<EFBFBD><EFBFBD>⥫<EFBFBD> <EFBFBD><EFBFBD> vetka <EFBFBD><EFBFBD><EFBFBD> 0
;vetka {2*8,4000-2*8,
;usel [Program_Files,0],
;usel [Doc,v2]
;}
;v2:
;vetka {1*8,4000-8,
;usel [fold1,0]
;}
Reference in New Issue Copy Permalink