Subversion Repositories Kolibri OS

        cmp     byte [edi-1], '/'

        jz      .l1

; destroys eax,esi,edi

        lea     edi, [edx+40]

        and     [source_hFile], 0

        push    esi

        cmp     byte [esi-1], '/'

        jz      @f

        inc     esi

        cmp     [source_hModule], 0

        jnz     @f

        mov     eax, [source_hFile]

        push    eax

        test    eax, eax

        jnz     .copyloop

.source_reopen:

        mov     eax, [source_hModule]

        test    eax, eax

        jz      .copyloop

        pushad

        push    O_READ+O_SEQUENTIAL_ONLY

        push    esi

        push    [source_hPlugin]

        call    [eax+PluginInfo.open]

        mov     [source_hFile], eax

        popad

        mov     eax, [source_hModule]

        test    eax, eax

        jz      .native

        mov     ecx, [source_hFile]

        jecxz   .readerr

        pushad

        push    [ebx+readinfo.size-readinfo]

        push    [ebx+readinfo.data-readinfo]

        push    ecx

        call    [eax+PluginInfo.read]

        mov     [esp+28], eax

        popad

        cmp     eax, -1

        jz      .readerr

        mov     ebx, eax

        jmp     .copyreadok

.native:

.readerr:

        jnz     .copyfailed_parseuser

        cmp     [source_hModule], 0

        cmp     [source_hFile], 0

        jz      .source_reopen

        pop     ecx

        test    ecx, ecx

        jnz     @f

        mov     eax, [source_hModule]

        test    eax, eax

        jz      @f

        mov     ecx, [source_hFile]

        jecxz   @f

        push    edx

        push    ecx

        call    [eax+PluginInfo.close]

        pop     edx

@@:

; replace zero dates with default values

        mov     eax, [default_attr]

        cmp     dword [edi-32+8], 0

        jnz     @f

        mov     ecx, [eax+8]

        mov     [edi-32+8], ecx

        mov     ecx, [eax+12]

        mov     [edi-32+12], ecx

@@:

        cmp     dword [edi-32+16], 0

        jnz     @f

        mov     ecx, [eax+16]

        mov     [edi-32+16], ecx

        mov     ecx, [eax+20]

        mov     [edi-32+20], ecx

@@:

        cmp     dword [edi-32+24], 0

        jnz     @f

        mov     ecx, [eax+24]

        mov     [edi-32+24], ecx

        mov     ecx, [eax+28]

        mov     [edi-32+28], ecx

@@:

        pop     ecx

        test    ecx, ecx

        jnz     @f

        mov     eax, [source_hModule]

        test    eax, eax

        jz      @f

        mov     ecx, [source_hFile]

        jecxz   @f

        push    ecx

        call    [eax+PluginInfo.close]

@@:

        cmp     byte [edi-1], '/'

        jz      .l1

        stc

        dec     esi

        cmp     byte [esi-1], '/'

        jz      @f

        inc     esi

@@:

        mov     edx, [source_hModule]

        test    edx, edx

        jz      .nosetdir

        mov     esi, execdata

        push    esi     ; absolute_path

@@:

        lodsb

        test    al, al

        jnz     @b

@@:

        dec     esi

        cmp     byte [esi-1], '/'

        jnz     @b

        push    esi     ; relative_path

        push    [source_hPlugin]        ; hPlugin

        call    [edx+PluginInfo.SetFolder]

        test    al, al

        jnz     .nosetdir

        cmp     [copy_bSkipAll3], 0

        jz      .skip2

        push    execdata

        push    aCannotSetFolder

        mov     eax, esp

        push    DeleteErrorBtn

        push    4

        push    eax

        push    2

        call    SayErr

        pop     ecx ecx

        test    al, al

        jz      .target_created

        cmp     al, 2

        setz    [copy_bSkipAll3]

        ja      .cancel2

        jmp     .skip2

.nosetdir:

        mov     eax, [source_hModule]

        test    eax, eax

        jz      .readfolder_native

        push    ebp

        push    [ebx+dirinfo.dirdata-dirinfo]

        push    [ebx+dirinfo.size-dirinfo]

        push    [ebx+dirinfo.first-dirinfo]

        push    [source_hPlugin]

        call    [eax+PluginInfo.ReadFolder]

        pop     ebp

        mov     ebx, dword [copy_dir_query_area+4]

        jmp     @f

.readfolder_native:

@@:

        dec     esi

        cmp     byte [esi-1], '/'

        jz      @f

        inc     esi

@@:

        dec     esi

        cmp     byte [esi-1], '/'

        jz      @f

        inc     esi

@@:

.skip1:

        mov     esi, execdata

        call    delete_last_name_from_end

        mov     eax, [source_hModule]

        test    eax, eax

        jz      @f

        push    execdata

        push    aDotDot

        push    [source_hPlugin]

        call    [eax+PluginInfo.SetFolder]

        jmp     @f

.skip2:

        mov     esi, execdata

        call    delete_last_name_from_end

@@:

.cancel2:

        sub     [copy_dir_stack_ptr], 4

.cancel3:

        mov     esi, execdata

        call    delete_last_name_from_end

.cancel:

        mov     eax, [source_hModule]

        test    eax, eax

        jz      .cancel.ret

        cmp     [copy_dir_stack_ptr], copy_dir_stack

        jb      .cancel.ret

        push    execdata

        push    aDotDot

        push    [source_hPlugin]

        call    [eax+PluginInfo.SetFolder]

        jmp     .cancel2

.cancel.ret:

        xor     eax, eax

        inc     eax

        popad

        ret

        inc     esi

        cmp     esi, execdata

        jz      @f

        cmp     esi, CopyDestEditBuf+12

        jz      @f

        dec     esi

@@:

copy_AddDir:

        push    1

        pop     eax                     ; for "return true"

        pushad

        mov     esi, CopyDestEditBuf+12

@@:

        lodsb

        test    al, al

        jnz     @b

        cmp     byte [esi-2], '/'

        jnz     @f

        dec     esi

@@:

        push    dword [esi-1]

        push    esi

        mov     byte [esi-1], '/'

        mov     edi, esi

        mov     esi, [esp+28h+4]

.0:

        lodsb

        stosb

        cmp     edi, CopyDestEditBuf+12+512

        jae     .done

        test    al, al

        jnz     .0

        push    RetryOrCancelBtn

        push    2

        call    makedir

        jz      .done

        and     dword [esp+8+1Ch], 0

.done:

        pop     esi

        pop     dword [esi-1]

        popad

        ret     8

copy_AddFile:

        pushad

        mov     eax, [esp+20h+12]

        mov     [source_hFile], eax

        mov     edx, [esp+20h+8]

        mov     edi, [esp+20h+4]

        call    copy_file_worker2

        popad

        setna   al

        ret     12

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

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

.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

; 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

        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+PluginInfo.read]

        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+PluginInfo.setpos]

@@:

.ret:

        popad

        ret     16

setpos_default:

        push    dword [esp+12]

        push    dword [esp+12]

        push    0

        push    dword [esp+16]

        call    seek

        ret     12

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

; 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    [eax+PluginInfo.close]

        pop     ecx

@@:

        call    pgfree

        popad

        ret     4

getattr_default:

        mov     eax, 2

        ret     12