forked from KolibriOS/kolibrios
1656 lines
27 KiB
PHP
1656 lines
27 KiB
PHP
;ª ª ãáâ஥® ¤¥à¥¢®:
|
||
;¬ áᨢ, ª®â®àë© ãª §ë¢ ¥â PTree ᮤ¥à¦¨â § ¯¨á¨ _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 ;‡ ª à §¤¥«¨â¥«ï áâப
|
||
|
||
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 '„¥à¥¢®:'
|
||
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, «¨¡® ª®«¨ç¥á⢮ ¯®¤ª â «®£®¢(ãç¨âë¢ ï ¯®¤ª â «®£¨ ®âªàëâëå ¯®¤ª â «®£®¢)
|
||
name rd 1 ;㪠§ ⥫ì áâப㠮â®á¨â¥«ì® PStrings
|
||
ends
|
||
|
||
|
||
|
||
|
||
uglobal
|
||
;-------------- file_tree.inc
|
||
|
||
openDir rb 1024 ;§¤¥áì ¯ãâì ¤«ï çâ¥¨ï ¯ ¯ª¨
|
||
tmpStr rb 1024
|
||
|
||
treeDirBuf rb 32+304*NUM_READ_FILES
|
||
PTree rd 1 ;㪠§ â¥«ì ¬ áᨢ áâàãªâãà _tree. <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 ;äãªæ¨ï, ª®â®à®© ç¨â ¥âáï ¯ ¯ª
|
||
|
||
|
||
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 ;¯®¯à ¢ª ¤«ï ª à⨮ª
|
||
|
||
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 ;ã¡¨à ¥¬ ¯®¯à ¢ªã ¤«ï ª à⨮ª
|
||
|
||
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 ¡á®«îâë¥ ª®®à¤¨ âë ¬ëè¨
|
||
|
||
mcall 37,2 ;ª®¯ª¨
|
||
test al,1
|
||
jz .exit
|
||
|
||
|
||
mcall 37,1 ;ª®®à¤¨ âë ®â®á¨â¥«ì® ®ª
|
||
mov bx,ax ;y
|
||
shr eax,16 ;x
|
||
mov [m_x],eax
|
||
|
||
cmp eax,[tree_info.x] ;®â¡à áë¢ ¥¬ ª«¨ª¨ ¢¥ ¤¥à¥¢
|
||
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=®¬¥à áâப¨, ebx - 㪠§ ⥫ì _tree,
|
||
|
||
;¯à®¯ã᪠¥¬ ¢á¥ ª«¨ª¨ ¨¦¥ ¤¥à¥¢
|
||
|
||
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
|
||
|
||
;¯à®¢¥à塞: § ªàëâì ¨«¨ ®âªàëâì ¯ ¯ªã
|
||
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:
|
||
;ª«¨ª ¯® áâப¥
|
||
|
||
.exit:
|
||
ret
|
||
endp
|
||
|
||
|
||
;-------------------------------------------------------------------------------
|
||
;---------------------- § ªàë¢ ¥â ¯ ¯ªã ----------------------------------------
|
||
;-------------------------------------------------------------------------------
|
||
; inp: ebx - 㪠§ ⥫ì _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
|
||
|
||
;ᤢ¨£ ¥¬ ¢á¥ áâàãªâãàë, ª®â®àë¥ ¨¦¥ § ªàë¢ ¥¬®©, ¢¢¥àå
|
||
@@: movsd
|
||
lodsd
|
||
stosd
|
||
test eax,eax
|
||
jnz @b
|
||
|
||
ret
|
||
endp
|
||
|
||
;-------------------------------------------------------------------------------
|
||
;-------------------- ®âªàë¢ ¥â ¯ ¯ªã ------------------------------------------
|
||
;-------------------------------------------------------------------------------
|
||
; inp: eax=®¬¥à áâப¨, ebx - 㪠§ ⥫ì _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
|
||
|
||
;----- —¨â ¥¬ ¯ ¯ªã ¨ § ¯®«ï¥¬ tmpTree---------------------------------------------------------
|
||
|
||
mcall 68,12,8192
|
||
mov [PTmpTree],eax ;¯ ¬ïâì ¤«ï ᯨ᪠ª â «®£®¢
|
||
|
||
mov [lEOF],0
|
||
mov [endTmpTree],0
|
||
mov [numFolds],0
|
||
|
||
mov [fiTree.numBlock],0
|
||
|
||
.stepLoadFold: ;ç⥨¥ ¯ ¯ª¨
|
||
; 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 ;áâ ¢¨¬ EOF
|
||
@@:
|
||
mov ecx,ebx
|
||
|
||
mov edi,treeDirBuf+32
|
||
|
||
.testRec: ;®¡à ¡®âª § ¯¨á¥© ¢ treeDirBuf
|
||
push ecx
|
||
|
||
lea eax,[edi+_BDWK.name] ;®â¡à áë¢ ¥¬ ¥ ¯ ¯ª¨ ¨ ¯ ¯ª¨ . ¨ ..
|
||
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]
|
||
|
||
|
||
;;;;;;;;; ;¤®¡ ¢«¥¨¥ ¯ ¯ª¨ ¢ ᯨ᮪
|
||
mov edi,esi ;¯®«ãç ¥¬ ¤«¨ã áâப¨
|
||
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 ;¥á«¨ ¬ «® ¬¥áâ ¯®¤ § ¯¨á¨, â® ¯¥à¥à á¯à¥¤¥«¨âì
|
||
add ecx,4 ;¡®«ìè¥ ¯ ¬ïâ¨
|
||
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
|
||
;;;;;;;;;;;; ¢¯¨áë¢ ¥¬ ¢ ®á®¢®¥ ¤¥à¥¢®
|
||
;á¬¥é ¥¬ § ¯¨á¨ ¢¨§, ç⮡ ¢¯¨á âì ®¢ãî ¢¥âªã ¤¥à¥¢
|
||
|
||
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
|
||
|
||
;⥯¥àì § ¯¨áë¢ ¥¬ ¢ [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
|
||
|
||
;-------------------------------------------------------------------------------
|
||
;--- 室¨â ¯®«ë© ¯ãâì ¤® í«¥¬¥â -------------------------------------------
|
||
;-------------------------------------------------------------------------------
|
||
;inp: ebx = Pointer to _tree.
|
||
;outp: openDir ᮤ¥à¦¨â ¯®«ë© ¯ãâì (¯®á«¥ ¯®á«¥¤¥© ¯ ¯ª¨ ¨¬¥¥âáï /)
|
||
;-------------------------------------------------------------------------------
|
||
proc getFullPath
|
||
;㦮 ¯à®¡¥¦ âìáï ®â ¯®á«¥¤¥© ¯ ¯ª¨ ¢ ¯ã⨠¢¢¥àå, ¯® த¨â¥«ì᪨¬
|
||
;á ç « § ¯¨áë¢ ¥¬ ¯ ¯ª¨ ¢ tmpStr, à §¤¥«ïï ¨å ᨬ¢®«®¬ RAZD, § ⥬
|
||
;᪮¯¨p㥬 ¨å ¢ ®¡à ⮬ ¯®à浪¥ ¢ £®â®¢ë© ¯ãâì ¢ 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> ¬ïâì á ¨¬¥¥¬ ®á¢®¡®¤¨âì!!!
|
||
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_ äãªæ¨¨, åà ï騥 ®â¬¥ç¥ë¥ ¯ãâ¨. ¯®áâà®¥ë ¢ ¢¨¤¥ ¤¥à¥¢ ¯ ¯®ª\ä ©«®¢
|
||
;¢ ¯ ¬ï⨠åà ïâìáï ª ª ᯨ᮪ áâàãªâãà (usel)
|
||
|
||
;tree_Add(path)
|
||
;¤®¡ ¢«ï¥â ¯ãâì ¢ ¤¥à¥¢® ®â¬¥ç¥ëå ä ©«®¢
|
||
;¢ë¢®¤
|
||
;¥ å = 0 - ¤®¡ ¢«¥®
|
||
; 1 - â ª®© ¯ãâì 㦥 ¥áâì
|
||
; -1 - ¥¢¥àë© ¯ãâì
|
||
;
|
||
;
|
||
;tree_Del(path)
|
||
|
||
|
||
|
||
|
||
|
||
;####################################################################################################
|
||
struct _vetka
|
||
|
||
sizeused rd 1
|
||
sizebuf rd 1
|
||
ends
|
||
|
||
struct _usel
|
||
|
||
pName rd 1
|
||
pNext rd 1
|
||
ends
|
||
|
||
|
||
;''''''''''''''''' ƒŽ’Ž‚€
|
||
;¤®¡ ¢«ï¥â ¯ãâì ¢ ¤¥à¥¢® ®â¬¥ç¥ëå ä ©«®¢
|
||
;¢ë¢®¤
|
||
;¥ å = 0 - ¤®¡ ¢«¥®
|
||
; 1 - â ª®© ¯ãâì 㦥 ¥áâì
|
||
; -1 - ¥¢¥àë© ¯ãâì
|
||
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
|
||
;¨é¥¬ ª â «®£, á ª®â®à®£® ç¨ ¥¬ ¤®¯¨áë¢ ¨¥ ¤¥à¥¢
|
||
.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: ;¢ á⥪¥ ¥éñ ¥áå ®â ¯à®è«®£® 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 ;㢥«¨ç¨¢ ¥¬ à §¬¥à ¡ãä¥à
|
||
push edx ;äãªæ¨¨ realloc ¥â - ¯®â®¬ã â ª®¥ ¨§¢à 饨¥ - 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] ;- ¢ á⥪¥ ¢áñ ¥éñ ¥áå ®â .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 '-- ˆ’Žƒ ------------------------'
|
||
;dnl
|
||
;call D_OutTree
|
||
pop esi edi ebx
|
||
ret
|
||
endp
|
||
|
||
DDt dd 0
|
||
|
||
;-------------------------------------------------------------------------------
|
||
; „‹Ÿ Ž’‹€„Šˆ
|
||
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)
|
||
; ¥á«¨ ¢ 㪠§ ®¬ 㧫¥ ¥áâì 㪠§ â¥«ì ¢¥âªã, â®
|
||
; treeDelIn(path)
|
||
; 㤠«¨âì 㪠§ ë© ã§¥«
|
||
; ¥á«¨ ® ¥ ¯®á«¥¤¨© ¢ ᯨ᪥, â®
|
||
; ¥á«¨ ® ¥ á⮨⠯®á«¥¤¨¬, â®
|
||
; ᤢ¨ãâì ¢á¥ ¯®á«¥¤ãî騥 áâàãªâãàë 㧥« ¢¢¥àå 8
|
||
;last_elem: ¨ ç¥
|
||
; 㤠«¨âì íâã ¢¥âªã
|
||
; tree_Del(¯ãâì - 1 í«¥¬¥â)
|
||
|
||
;treeDelIn(path)
|
||
; ¥á«¨ íâ® ¢¥âª , â®
|
||
; ¯®ª ¥áâì 㧫ë {
|
||
; ¥á«¨ ã 㧫 ¥áâì ¢¥âª , â®
|
||
; treeDelIn(¯ãâì ¤® ⥪ã饣® 㧫 )
|
||
; ¨ ç¥
|
||
; ®á¢®¡®¤¨âì ¯ ¬ïâì á ¨¬¥¥¬
|
||
; }
|
||
;ƒŽ’Ž‚
|
||
;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
|
||
|
||
;!!!! ¥ á®åà ï¥â ॣ¨áâàë
|
||
|
||
;input: eax = pointer to _usel
|
||
proc treeDelIn
|
||
;mov eax,[eax+_usel.pNext] ;®¯ á®, ® ¨ â ª ¢¥§¤¥ ¯à®¢¥àï¥âáï ¯¥à¥¤ ¢ë§®¢®¬
|
||
;cmp eax,0
|
||
;je .exit
|
||
|
||
lea ebx,[eax+8]
|
||
mov ecx,[eax]
|
||
shr ecx,3 ;ª®«¨ç¥á⢮ 㧫®¢
|
||
.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
|
||
|
||
; """""""""""""""" ƒŽ’Ž‚€
|
||
;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
|
||
|
||
; 室¨â ¢¥âªã ¢ ª®â®à®© 室¨âáï 㧥« á 㦮© ¬ ¯ ¯ª®©
|
||
;¢ë¢®¤:
|
||
;eax - ¢¥âª
|
||
;edx - 㧥«, ª®â®àë© ©¤¥ ¯®á«¥¤¨¬, â. ¥. ¤«ï ¯ã⨠/rd/1/lib/qwe ¡ã¤¥â 㧥« lib, â ª ª ª ä ©« qwe ¥â
|
||
;ecx - 0 - ã¦ë© ¢¥âª /㧥« ãá¯¥è® ©¤¥
|
||
; 1 - ã¦ë© ¢¥âª /㧥« ¥ ©¤¥ - ¢ë室¥ ¯®á«¥¤¨© ©¤¥ë© 㧥«
|
||
; 2 - ¥¢¥àë© ¯ à ¬¥âà
|
||
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 ;á⮫쪮 ¢ TVROOT áâàãªâãà 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 ; ¢ë஢﫨
|
||
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
|
||
|
||
;ƒŽ’Ž‚€
|
||
; 室¨â 㧥«, ª®â®àë© ááë« ¥âáï § ¤ ë© ã§¥«
|
||
;¢¥àñâ ¢ edx usel, ¤«ï ¯à¥¤¯®á«¥¤¥© ¯ ¯ª¨ ¢ ¯ãâ¨
|
||
;eax - ¢¥âª , ¢ ª®â®à®© íâ®â 㧥«
|
||
;¥áå - áâ âãá(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 ;⮫쪮 ®¤ ¯ ¯ª
|
||
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 ; ⮫쪮 ®¤ ¯ ¯ª
|
||
|
||
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
|
||
|
||
;--------------ƒ®â®¢
|
||
; 室¨â 㧥« ¤«ï § ¤ ®£® ª â «®£ ¢ ¯ãâ¨
|
||
;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
|
||
|
||
;''''''''''''''' ƒŽ’Ž‚€
|
||
;‚®§¢à é ¥â ¨¬ï ä ©« /ª â «®£ ¨§ ¢á¥£® ¯ãâ¨
|
||
; --- !!! <20> ¬ïâì 㦮 ¡ã¤¥â ®á¢®¡®¤¨âì
|
||
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
|
||
|
||
|
||
|
||
; """""""""""""""" ƒŽ’Ž‚€
|
||
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
|
||
|
||
; """""""""""""""" ƒŽ’Ž‚€
|
||
; á ãçñ⮬ § ¢¥àè î饣® 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
|
||
|
||
; """""""""""""""" ƒŽ’Ž‚€
|
||
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
|
||
|
||
|
||
; """""""""""""""" ƒŽ’Ž‚€
|
||
;¢®§à é ¥â ¨¬ï ¯ ¯ª¨ ¨§ ¢á¥£® ¯ã⨠¯® ¥£® ®¬¥àã.
|
||
;! ‘çñâ ç¨ ¥âáï á 0
|
||
; --- !!! <20> ¬ïâì 㦮 ¡ã¤¥â ®á¢®¡®¤¨âì
|
||
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 ;íâ® ¬¥âª ⮣®, çâ® ¨ ®¤¨ ¡ ©â ¥ § ¯¨á
|
||
@@:
|
||
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
|
||
|
||
|
||
; """""""""""""""" ƒŽ’Ž‚€
|
||
;¢®§à é ¥â ª®«¨ç¥á⢮ í«¥¬¥â®¢
|
||
;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
|
||
|
||
|
||
;''''''''''''''''ƒŽ’Ž‚€
|
||
;¢®§¢à é ¥â ç áâì ¯ãâ¨: ¯¥à¢ë¥ num ª â «®£®¢
|
||
;ret: “ª § ⥫ì áâபã.
|
||
; --- !!! <20> ¬ïâì 㦮 ¡ã¤¥â ®á¢®¡®¤¨âì
|
||
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
|
||
;---- ç⮡ë áâàãâãàë ¬¥¥¤¦¥à ¯ ¬ï⨠¡ë«¨ ¢ ®à¬¥ 㦮 ¨¬¥® ¨¬ ¢ë¤¥«¨âì ¯ ¬ïâì ¯®¤ íâ® ¤¥à¥¢®
|
||
|
||
;;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
|
||
|
||
;¡ã¤¥â ¡ãä¥à ®â¬¥ç¥ëå ä ©«®¢/¯ ¯®ª
|
||
;®âªàëâì ¯ ¯ªã
|
||
; ¥á«¨ ® ®â¬¥ç¥ ¢áï, â® ¨ç¥£® ¥ ¤¥« âì
|
||
; ¥á«¨ ¢ ¥© ã¡à âì £ «ªã, â® ¤®¡ ¢¨âì ¢ ᯨ᮪ ®â¬¥ç¥ëå ¢á¥ ®áâ «ìë¥,
|
||
; ¯ ¯ªã ã¡à âì ¨§ ᯨáª
|
||
; ¥á«¨ ¯®áâ ¢¨âì £ «ªã ¯®á«¥¤¥¬ ¥ ¢ë¤¥«¥®¬ ä ©«¥, â® ¨ç¥£®. ¯à®áâ® ¤®¡ ¢¨âì ¥£® ¢ ᯨ᮪,¬ ¨¯ã«ï樨 á ¯ ¯ª ¬¨ ¥§ 祬
|
||
;
|
||
|
||
;vetka:
|
||
; sizeused
|
||
; sizebuf(def - 4000)
|
||
; array of usel
|
||
;
|
||
; --- ॠ«¨§ æ¨ï ---
|
||
;¤¥à¥¢® ¢ë¤¥«¥ëå ®¡ê¥ªâ®¢:
|
||
; 㧥« (usel):
|
||
; pName - ¤¢á«®¢® - 㪠§ ⥫ì áâப㠨¬ï 㧫
|
||
; pNext - ¤¢á«®¢® - 㪠§ ⥫ì vetka ¨«¨ 0
|
||
|
||
|
||
;vetka {2*8,4000-2*8,
|
||
;usel [Program_Files,0],
|
||
;usel [Doc,v2]
|
||
;}
|
||
;v2:
|
||
;vetka {1*8,4000-8,
|
||
;usel [fold1,0]
|
||
;}
|