Subversion Repositories Kolibri OS

uglobal

; this is for delete support

fd_prev_sector          dd      ?

fd_prev_prev_sector     dd      ?

endg

        jae     flp_root_first.readerr

        push    [fd_prev_sector]

        pop     [fd_prev_prev_sector]

        push    eax

        mov     eax, [eax]

        add     eax, 19-1

        mov     [fd_prev_sector], eax

        push    [fd_prev_sector]

        pop     [fd_prev_prev_sector]

        add     ecx, 31

        mov     [fd_prev_sector], ecx

;----------------------------------------------------------------

;

;  fs_FloppyDelete - delete file or empty folder from floppy

;

;  esi  points to filename

;

;  ret  eax = 0 ok or other = errormsg

;

;--------------------------------------------------------------

fs_FloppyDelete:

        call    read_flp_fat

        cmp     [FDC_Status], 0

        jz      @f

        push    11

        jmp     .pop_ret

@@:

        cmp     byte [esi], 0

        jnz     @f

; cannot delete root!

.access_denied:

        push    ERROR_ACCESS_DENIED

.pop_ret:

        pop     eax

        ret

@@:

        and     [fd_prev_sector], 0

        and     [fd_prev_prev_sector], 0

        push    edi

        call    fd_find_lfn

        jnc     .found

        pop     edi

        push    ERROR_FILE_NOT_FOUND

        jmp     .pop_ret

.found:

        cmp     dword [edi], '.   '

        jz      .access_denied2

        cmp     dword [edi], '..  '

        jz      .access_denied2

        test    byte [edi+11], 10h

        jz      .dodel

; we can delete only empty folders!

        push    eax

        movzx   eax, word [edi+26]

        push    ebx

        pusha

        add     eax, 31

        call    read_chs_sector

        popa

        mov     ebx, FDD_DATA + 2*0x20

.checkempty:

        cmp     byte [ebx], 0

        jz      .empty

        cmp     byte [ebx], 0xE5

        jnz     .notempty

        add     ebx, 0x20

        cmp     ebx, FDD_DATA + 0x200

        jb      .checkempty

        movzx   eax, word [FLOPPY_FAT + eax*2]

        pusha

        add     eax, 31

        call    read_chs_sector

        popa

        mov     ebx, FDD_DATA

        jmp     .checkempty

.notempty:

        pop     ebx

        pop     eax

.access_denied2:

        pop     edi

        jmp     .access_denied

.empty:

        pop     ebx

        pop     eax

        pusha

        call    read_chs_sector

        popa

.dodel:

        push    eax

        movzx   eax, word [edi+26]

        xchg    eax, [esp]

; delete folder entry

        mov     byte [edi], 0xE5

; delete LFN (if present)

.lfndel:

        cmp     edi, FDD_DATA

        ja      @f

        cmp     [fd_prev_sector], 0

        jz      .lfndone

        push    [fd_prev_sector]

        push    [fd_prev_prev_sector]

        pop     [fd_prev_sector]

        and     [fd_prev_prev_sector], 0

        pusha

        call    save_chs_sector

        popa

        pop     eax

        pusha

        call    read_chs_sector

        popa

        mov     edi, FDD_DATA+0x200

@@:

        sub     edi, 0x20

        cmp     byte [edi], 0xE5

        jz      .lfndone

        cmp     byte [edi+11], 0xF

        jnz     .lfndone

        mov     byte [edi], 0xE5

        jmp     .lfndel

.lfndone:

        pusha

        call    save_chs_sector

        popa

; delete FAT chain

        pop     eax

        test    eax, eax

        jz      .done

@@:

        lea     eax, [FLOPPY_FAT + eax*2]

        push    dword [eax]

        and     word [eax], 0

        pop     eax

        and     eax, 0xFFF

        jnz     @b

.done:

        call    save_flp_fat

        pop     edi

        xor     eax, eax

        ret