Subversion Repositories Kolibri OS

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;                                                              ;;

;; Copyright (C) KolibriOS team 2004-2009. All rights reserved. ;;

;; Distributed under terms of the GNU General Public License    ;;

;;                                                              ;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

$Revision: 1379 $

image_of_eax EQU esp+36

image_of_ebx EQU esp+24

; System function 70 - files with long names (LFN)

; diamond, 2006

iglobal

; in this table names must be in lowercase

rootdirs:

	db	2,'rd'

	dd	fs_OnRamdisk

	dd	fs_NextRamdisk

	db	7,'ramdisk'

	dd	fs_OnRamdisk

	dd	fs_NextRamdisk

	db	2,'fd'

	dd	fs_OnFloppy

	dd	fs_NextFloppy

	db	10,'floppydisk'

	dd	fs_OnFloppy

	dd	fs_NextFloppy

	db	3,'hd0'

	dd	fs_OnHd0

	dd	fs_NextHd0

	db	3,'hd1'

	dd	fs_OnHd1

	dd	fs_NextHd1

	db	3,'hd2'

	dd	fs_OnHd2

	dd	fs_NextHd2

	db	3,'hd3'

	dd	fs_OnHd3

	dd	fs_NextHd3

;**********************************************

	db	3,'cd0'

	dd	fs_OnCd0

	dd	fs_NextCd

	db	3,'cd1'

	dd	fs_OnCd1

	dd	fs_NextCd

	db	3,'cd2'

	dd	fs_OnCd2

	dd	fs_NextCd

	db	3,'cd3'

	dd	fs_OnCd3

	dd	fs_NextCd

;***********************************************

	db	0

virtual_root_query:

	dd	fs_HasRamdisk

	db	'rd',0

	dd	fs_HasFloppy

	db	'fd',0

	dd	fs_HasHd0

	db	'hd0',0

	dd	fs_HasHd1

	db	'hd1',0

	dd	fs_HasHd2

	db	'hd2',0

	dd	fs_HasHd3

	db	'hd3',0

;**********************************************

	dd	fs_HasCd0

	db	'cd0',0

	dd	fs_HasCd1

	db	'cd1',0

	dd	fs_HasCd2

	db	'cd2',0

	dd	fs_HasCd3

	db	'cd3',0

;**********************************************

	dd	0

fs_additional_handlers:

        dd      biosdisk_handler, biosdisk_enum_root

; add new handlers here

        dd      0

endg

file_system_lfn:

; in: eax->fileinfo block

; operation codes:

; 0 : read file

; 1 : read folder

; 2 : create/rewrite file

; 3 : write/append to file

; 4 : set end of file

; 5 : get file/directory attributes structure

; 6 : set file/directory attributes structure

; 7 : start application

; 8 : delete file

; 9 : create directory

; parse file name

	xchg	ebx, eax

	lea	esi, [ebx+20]

	lodsb

	test	al, al

	jnz	@f

	mov	esi, [esi]

	lodsb

@@:

	cmp	al, '/'

	jz	.notcurdir

	dec	esi

	mov	ebp, esi

	test	al, al

	jnz	@f

	xor	ebp, ebp

@@:

	mov	esi, [current_slot]

	mov	esi, [esi+APPDATA.cur_dir]

	jmp	.parse_normal

.notcurdir:

	cmp	byte [esi], 0

	jz	.rootdir

	call	process_replace_file_name

.parse_normal:

	cmp dword [ebx], 7

	jne @F

	mov edx, [ebx+4]

	mov ebx, [ebx+8]

	call fs_execute  ; esi+ebp, ebx, edx

	mov [image_of_eax], eax

	ret

@@:

	mov	edi, rootdirs-8

	xor	ecx, ecx

	push	esi

.scan1:

	pop	esi

	add	edi, ecx

	scasd

	scasd

	mov	cl, byte [edi]

	test	cl, cl

	jz	.notfound_try

	inc	edi

	push	esi

@@:

	lodsb

	or	al, 20h

	scasb

	loopz	@b

	jnz	.scan1

	lodsb

	cmp	al, '/'

	jz	.found1

	test	al, al

	jnz	.scan1

	pop	eax

; directory /xxx

.maindir:

	mov	esi, [edi+4]

.maindir_noesi:

	cmp	dword [ebx], 1

	jnz	.access_denied

	xor	eax, eax

	mov	ebp, [ebx+12]			;количество блоков для считывания

	mov	edx, [ebx+16]			;куда записывать рузельтат

    ;    add     edx, std_application_base_address

	push	dword [ebx+4]	; first block

	mov	ebx, [ebx+8]	; flags

; ebx=flags, [esp]=first block, ebp=number of blocks, edx=return area, esi='Next' handler

	mov	edi, edx

	push    ecx

	mov	ecx, 32/4

	rep	stosd

	pop     ecx

	mov	byte [edx], 1	; version

.maindir_loop:

	call	esi

	jc	.maindir_done

	inc	dword [edx+8]

	dec	dword [esp]

	jns	.maindir_loop

	dec	ebp

	js	.maindir_loop

	inc	dword [edx+4]

	mov	dword [edi], 0x10	; attributes: folder

	mov	dword [edi+4], 1	; name type: UNICODE

	push	eax

	xor	eax, eax

	add	edi, 8

	push    ecx

	mov	ecx, 40/4-2

	rep	stosd

	pop     ecx

	pop	eax

	push	eax edx

; convert number in eax to decimal UNICODE string

	push	edi

	push    ecx

	push	-'0'

	mov	ecx, 10

@@:

	xor	edx, edx

	div	ecx

	push	edx

	test	eax, eax

	jnz	@b

@@:

	pop	eax

	add	al, '0'

	stosb

	test	bl, 1		; UNICODE name?

	jz	.ansi2

	mov	byte [edi], 0