kolibrios-gitea/programs/fs/unz/fs.inc

 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


; 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	[aClose]
	pop	ecx
@@:
	call	pgfree
	popad
	ret	4

; 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+aRead]
	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+aSetpos]
@@:
.ret:
	popad
	ret	16


; __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

; 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+aOpen]
	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+aGetattr]
	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

; __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


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



;######################################################################################################
;######################################################################################################
;######################################################################################################
;######################################################################################################


CHECK_FOR_LEAKS = 0
if CHECK_FOR_LEAKS
uglobal
allocatedregions rd 1024
endg
iglobal
numallocatedregions dd 0
endg
end if
pgalloc:
; in: ecx=size
; out: eax=pointer or NULL
	push	ebx
	push	68
	pop	eax
	push	12
	pop	ebx
	int	0x40
if CHECK_FOR_LEAKS
	test	eax, eax
	jz	.no
.b:
	mov	ebx, [numallocatedregions]
	cmp	ebx, 1024
	jb	@f
	int3
	jmp	$
@@:
	mov	[allocatedregions+ebx*4], eax
	inc	[numallocatedregions]
.no:
end if
	pop	ebx
	ret

pgfree:
; in: ecx=pointer
; destroys eax
if CHECK_FOR_LEAKS
	jecxz	.no
	mov	eax, [numallocatedregions]
@@:
	dec	eax
	js	.a
	cmp	[allocatedregions+eax*4], ecx
	jnz	@b
	jmp	@f
.a:
	int3
	jmp	$
@@:
	dec	[numallocatedregions]
@@:
	cmp	eax, [numallocatedregions]
	jae	@f
	push	[allocatedregions+eax*4+4]
	pop	[allocatedregions+eax*4]
	inc	eax
	jmp	@b
@@:
.no:
end if
	push	ebx
	push	68
	pop	eax
	push	13
	pop	ebx
	int	0x40
	pop	ebx
	ret




pgrealloc:
; in: ecx=size, edx=pointer
; out: eax=pointer
	push	ebx
	push	68
	pop	eax
	push	20
	pop	ebx
	int	0x40
if CHECK_FOR_LEAKS
	test	edx, edx
	jz	pgalloc.b
	test	eax, eax
	jz	.no
	cmp	eax, edx
	jz	.no
	xor	ebx, ebx
@@:
	cmp	ebx, [numallocatedregions]
	jae	.a
	cmp	[allocatedregions+ebx*4], edx
	jz	@f
	inc	ebx
	jmp	@b
@@:
	mov	[allocatedregions+ebx*4], eax
	jmp	.no
.a:
	int3
	jmp	$
.no:
end if
	pop	ebx
	ret

xpgalloc:
; in: ecx=size
; out: eax=pointer or NULL
	call	pgalloc
.common:
	test	eax, eax
	jnz	@f
	;call    SayNoMem

@@:
	ret

xpgrealloc:
; in: edx=pointer, ecx=new size
; out: eax=pointer or NULL
	call	pgrealloc
	jmp	xpgalloc.common

getfreemem:
; out: eax=size of free RAM in Kb
	push	ebx
	mcall	18,16
	pop	ebx
	ret



proc myAddFile name:dword, bdfe_info:dword, hFile:dword
locals
   beginFile dd 0
   pos	dd 0
endl

;dps 'file unpack '
;dpsP [name]
;dnl
	pusha
	mov	[pos],0

	push	ebp
	stdcall [aRead], [hFile], copy_buf, SIZE_COPY_BUF
	pop	ebp

	mov	[fsWrite.cmd],2
	mov	[fsWrite.pos],0
	mov	[fsWrite.size],eax
	mov	eax,[name]
	mov	[fsWrite.path],eax
	mcall	70,fsWrite

 .loop:
	mov	eax, [fsWrite.size]
	add	[pos], eax


	push	ebp
	stdcall [aRead], [hFile], copy_buf, SIZE_COPY_BUF
	pop	ebp

	cmp	eax,0
	jz	.end

	mov	[fsWrite.cmd],3
	mov	[fsWrite.size],eax
	mov	eax,[pos]
	mov	[fsWrite.pos],eax
	mcall	70,fsWrite
	jmp	.loop
   .end:


	popa
	mov	eax,1
	ret
endp


proc myAddDir name:dword, bdfe_info:dword
;	dps 'log adddir'
	mov	eax,[name]
;	dpsP eax
;	dnl

	pusha
	mov	eax,[name]
	mov	[fsNewDir.path],eax
	mcall	70,fsNewDir
   ;
   ;     mov     edi,[name]
   ;     xor     al,al
   ;     mov     ecx,256
   ;     repne scasb
   ;     mov     edx,256
   ;     sub     edx,ecx
   ;     mov     eax,[name]
   ;     mcall   30,1,eax
	popa
	mov	eax,1
	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>
proc cpLastName inp:dword, outp:dword
	push	edi esi
	mov	edi,[inp]
	xor	al,al
	mov	ecx,256 	;                V
	repne scasb		;/fol1/file1.zip

	mov	al,'/'
	mov	ecx,256
	std			;   V
	repne scasb		;/fol1/file1.zip
	cld

	mov	esi,edi
	add	esi,2
	mov	ecx,256 	;/fol1/file1.zip
	mov	edi,[outp]	;file1.zip
    @@: lodsb
	stosb
	test	al,al
	jz	@f
	loop	@b
    @@:

	mov	al,'.'
	mov	ecx,256
	std			;    V
	repne scasb		;file1.zip
	cld
	mov	[edi+1], byte 0

	pop	esi edi
	ret
endp


proc cpAllExcludeLastName inp:dword, outp:dword
	push	edi esi
	mov	edi,[inp]
	xor	al,al
	mov	ecx,256 	;                V
	repne scasb		;/fol1/file1.zip

	mov	al,'/'
	mov	ecx,256
	std			;   V
	repne scasb		;/fol1/file1.zip
	cld
	mov	edx,edi
	add	edx, 2

	mov	esi,[inp]
	mov	ecx,256 	;/fol1/file1.zip
	mov	edi,[outp]	;file1.zip
    @@: lodsb
	stosb
	test	al,al
	jz	@f
	cmp	esi,edx
	jae	@f
	loop	@b
    @@:
	xor	al, al
	stosb

	pop	esi edi
	ret
endp