Subversion Repositories Kolibri OS

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

;;                                                              ;;

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

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

;;                                                              ;;

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

$Revision: 4273 $

ERROR_SUCCESS        = 0

ERROR_DISK_BASE      = 1

ERROR_UNSUPPORTED_FS = 2

ERROR_UNKNOWN_FS     = 3

ERROR_PARTITION      = 4

ERROR_FILE_NOT_FOUND = 5

ERROR_END_OF_FILE    = 6

ERROR_MEMORY_POINTER = 7

ERROR_DISK_FULL      = 8

ERROR_FAT_TABLE      = 9 ;deprecated

ERROR_FS_FAIL        = 9

ERROR_ACCESS_DENIED  = 10

ERROR_DEVICE         = 11

image_of_eax EQU esp+32

image_of_ebx EQU esp+20

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

; diamond, 2006

iglobal

; in this table names must be in lowercase

rootdirs:

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

        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_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      dyndisk_handler, dyndisk_enum_root

; add new handlers here

        dd      0

endg

file_system_lfn_protected:

        pushad

        call    protect_from_terminate

        call    file_system_lfn

        call    unprotect_from_terminate

        popad

        mov     [image_of_eax], eax

        mov     [image_of_ebx], ebx

        ret

file_system_lfn:

; in: ebx->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

        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

        inc     edi

.ansi2:

        test    al, al

        jnz     @b

        mov     byte [edi-1], 0

        pop     ecx

        pop     edi

; UNICODE name length is 520 bytes, ANSI - 264

        add     edi, 520

        test    bl, 1

        jnz     @f

        sub     edi, 520-264

@@:

        pop     edx eax

        jmp     .maindir_loop

.maindir_done:

        pop     eax

        mov     ebx, [edx+4]

        xor     eax, eax

        dec     ebp

        js      @f

        mov     al, ERROR_END_OF_FILE

@@:

        mov     [image_of_eax], eax

        mov     [image_of_ebx], ebx

        ret

; directory /

.rootdir:

        cmp     dword [ebx], 1  ; read folder?

        jz      .readroot

.access_denied:

        mov     dword [image_of_eax], 10      ; access denied

        ret

.readroot:

; virtual root folder - special handler

        mov     esi, virtual_root_query

        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

        xor     eax, eax

; eax=0, [esp]=first block, ebx=flags, ebp=number of blocks, edx=return area

        mov     edi, edx

        mov     ecx, 32/4

        rep stosd

        mov     byte [edx], 1   ; version

.readroot_loop:

        cmp     dword [esi], eax

        jz      .readroot_done_static

        call    dword [esi]

        add     esi, 4

        test    eax, eax

        jnz     @f

.readroot_next:

        or      ecx, -1

        xchg    esi, edi

        repnz scasb

        xchg    esi, edi

        jmp     .readroot_loop