kolibrios-gitea/kernel/branches/net/applications/dll.inc

;-----------------------------------------------------------------------------
proc mem.Alloc size ;/////////////////////////////////////////////////////////
;-----------------------------------------------------------------------------
        push    ebx ecx
        mov     eax,[size]
        lea     ecx,[eax+4+4095]
        and     ecx, not 4095
        mcall   68,12
        test    eax, eax
        jz      @f
        add     ecx,-4
        mov     [eax],ecx
        add     eax,4
       @@:
        pop     ecx ebx
        ret
endp

;-----------------------------------------------------------------------------
proc mem.ReAlloc mptr,size;///////////////////////////////////////////////////
;-----------------------------------------------------------------------------
        push    ebx ecx esi edi eax
        mov     eax,[mptr]
        mov     ebx,[size]
        or      eax,eax
        jz      @f
        lea     ecx,[ebx+4+4095]
        and     ecx,not 4095
        add     ecx,-4
        cmp     ecx,[eax-4]
        je      .exit
    @@: mov     eax,ebx
        call    mem.Alloc
        xchg    eax,[esp]
        or      eax,eax
        jz      .exit
        mov     esi,eax
        xchg    eax,[esp]
        mov     edi,eax
        mov     ecx,[esi-4]
        cmp     ecx,[edi-4]
        jbe     @f
        mov     ecx,[edi-4]
    @@: add     ecx,3
        shr     ecx,2
        cld
        rep     movsd
        xchg    eax,[esp]
        call    mem.Free
  .exit:
        pop     eax edi esi ecx ebx
        ret
endp

;-----------------------------------------------------------------------------
proc mem.Free mptr ;//////////////////////////////////////////////////////////
;-----------------------------------------------------------------------------
        mov     eax,[mptr]
        or      eax,eax
        jz      @f
        push    ebx ecx
        lea     ecx,[eax-4]
        mcall   68,13
        pop     ecx ebx
    @@: ret
endp


proc dll.Load, import_table:dword
                mov     esi,[import_table]
  .next_lib:    mov     edx,[esi]
                or      edx,edx
                jz      .exit
                push    esi
                mov     esi,[esi+4]
                mov     edi,s_libdir.fname
            @@: lodsb
                stosb
                or      al,al
                jnz     @b
                mcall   68,19,s_libdir
                or      eax,eax
                jz      .fail
                stdcall dll.Link,eax,edx
                stdcall dll.Init,[eax+4]
                pop     esi
                add     esi,8
                jmp     .next_lib
  .exit:        xor     eax,eax
                ret
  .fail:        add     esp,4
                xor     eax,eax
                inc     eax
                ret
endp

proc dll.Link, exp:dword,imp:dword
                push    eax
                mov     esi,[imp]
                test    esi,esi
                jz      .done
  .next:        lodsd
                test    eax,eax
                jz      .done
                stdcall dll.GetProcAddress,[exp],eax
                or      eax,eax
                jz      @f
                mov     [esi-4],eax
                jmp     .next
            @@: mov     dword[esp],0
  .done:        pop     eax
                ret
endp

proc dll.Init, dllentry:dword
                pushad
                mov     eax,mem.Alloc
                mov     ebx,mem.Free
                mov     ecx,mem.ReAlloc
                mov     edx,dll.Load
                stdcall [dllentry]
                popad
                ret
endp

proc dll.GetProcAddress, exp:dword,sz_name:dword
                mov     edx,[exp]
                xor     eax,eax
  .next:        or      edx,edx
                jz      .end
                cmp     dword[edx],0
                jz      .end
                stdcall strcmp,[edx],[sz_name]
                test    eax,eax
                jz      .ok
                add     edx,8
                jmp     .next
  .ok:          mov     eax,[edx+4]
  .end:         ret
endp

proc strcmp, str1:dword,str2:dword
                push    esi edi
                mov     esi,[str1]
                mov     edi,[str2]
                xor     eax,eax
            @@: lodsb
                scasb
                jne     .fail
                or      al,al
                jnz     @b
                jmp     .ok
  .fail:        or      eax,-1
  .ok:          pop     edi esi
                ret
endp

s_libdir:
  db '/sys/lib/'
  .fname rb 32