Subversion Repositories Kolibri OS

include 'proc32.inc'

format MS COFF

public _http_init

public _http_get@16

public _http_receive@4

public _http_free@4

section '.text' align 16

;void* __fastcall getprocaddr(export, name)

align 4

getprocaddress:

        push    esi

        push    edi

        xor     eax, eax

        test    ecx, ecx        ; If hlib = 0 then goto .end

        jz      .end

.next:

        cmp     [ecx], dword 0  ; If end of export table then goto .end

        jz      .end

        xor     eax, eax

        mov     esi, [ecx]

        mov     edi, edx        ; name

.next_:

        lodsb

        scasb

        jne     .fail

        or      al, al

        jnz     .next_

        jmp     .ok

.fail:

        add     ecx, 8

        jmp     .next

.ok:

        mov eax, [ecx + 4]      ; return address

.end:

        pop     edi

        pop     esi

        ret

;void fastcall dll_link(export, import)

align 4

dll_link:

        push    esi

        push    ecx

        mov     esi, edx

        test    esi, esi

        jz      .done

.next:

        mov     edx, [esi]

        test    edx, edx

        jz      .done

        mov     ecx, [esp]

        call    getprocaddress

        test    eax, eax

        jz      .done

        mov     [esi], eax

        add     esi, 4

        jmp     .next

.done:

        pop     ecx

        pop     esi

        ret

align 4

dll_load:

        push    ebp

        push    esi

        push    edi

        mov     ebp, [esp+16]

.next_lib:

        mov     edx, [ebp]

        test    edx, edx

        jz      .exit

        mov     esi, [ebp+4]

        mov     edi, s_libdir.fname

@@:

        lodsb

        stosb

        test  al, al

        jnz @b

        mov     eax, 68

        mov     ebx, 19

        mov     ecx, s_libdir

        int     0x40

        test    eax, eax

        jz      .fail

        mov     ecx, eax

        call    dll_link

        mov     eax, [ecx]

        cmp     dword[eax], 'lib_'

        jnz     @f

        mov     esi, [ecx+4]

        pushad

        mov     eax, mem.Alloc

        mov     ebx, mem.Free

        mov     ecx, mem.ReAlloc

        mov     edx, dll_load

        call    esi

        popad

@@:

        add     ebp, 8

        jmp     .next_lib

.exit:

        pop     edi

        pop     esi

        pop     ebp

        xor     eax, eax

        ret 4

.fail:

        pop     edi

        pop     esi

        pop     ebx

        inc     eax

        ret 4

align 4

_http_init:

        push    @IMPORT

        call    dll_load

        ret

align 4

_http_get@16:

        jmp     [HTTP_get]

align 4

_http_receive@4:

        jmp    [HTTP_receive]

align 4

_http_free@4:

        jmp    [HTTP_free]

proc mem.Alloc, size

        push    ebx ecx

        mov     ecx, [size]

        mov     eax, 68

        mov     ebx, 12

        int     0x40

        pop     ecx ebx

        ret

endp

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

proc mem.ReAlloc, mptr, size

        push    ebx ecx edx

        mov     ecx, [size]

        test    ecx, ecx

        jz      @f

@@:

        mov     edx, [mptr]

        test    edx, edx

        jz      @f

@@:

        mov     eax, 68

        mov     ebx, 20

        int     0x40

        test    eax, eax

        jz  @f

@@:

        pop edx ecx ebx

        ret

endp

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

proc mem.Free, mptr

        push    ebx ecx

        mov     ecx,[mptr]

        test    ecx,ecx

        jz  @f

@@:

        mov     eax, 68

        mov     ebx, 13

        int     0x40

        pop ecx ebx

        ret

endp

section '.data' align 16

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

macro library [lname,fname]

{

  forward

    dd __#lname#_library_table__,__#lname#_library_name__

  common

    dd 0

  forward

    align 4

    __#lname#_library_name__ db fname,0

}

macro import lname,[name,sname]

{

  common

    align 4

    __#lname#_library_table__:

  forward

    if used name

      name dd __#name#_import_name__

    end if

  common

    dd 0

  forward

    if used name

      align 4

      __#name#_import_name__ db sname,0

    end if

}

align   4

@IMPORT:

library lib_http,       'http.obj'

import  lib_http, \

        HTTP_get,       'get', \

        HTTP_receive,   'receive', \

        HTTP_free,      'free'

s_libdir:

  db '/sys/lib/'

  .fname rb 32