kolibrios/programs/develop/ktcc/trunk/lib/libnetwork/network.asm

format elf
use32                                   ; Tell compiler to use 32 bit instructions
; ELF section
section '.text' executable


include '../../../../../proc32.inc'
include '../../../../../macros.inc'
purge section,mov,add,sub
        
include '../../../../../dll.inc'


public lib_init as 'networklib_init'


proc lib_init
local retval dd ?
        mov [retval], eax
        pusha
        mcall 68, 11
        test eax, eax
        jnz @f
                mov [retval], -1
                jmp exit_init_networklib
@@:     
        stdcall dll.Load, @IMPORT
        test eax, eax
        jz      exit_init_networklib
                mov [retval], -1
exit_init_networklib:       
        popa
        mov eax, [retval]
        ret
endp    

section '.data' writeable
@IMPORT:
library networklib, 	'network.obj'

import networklib, \
        inet_addr, 'inet_addr', \
        inet_ntoa, 'inet_ntoa', \
        getaddrinfo, 'getaddrinfo', \
        freeaddrinfo, 'freeaddrinfo'

public inet_addr as 'inet_addr'
public inet_ntoa as 'inet_ntoa'
public getaddrinfo as 'getaddrinfo'
public freeaddrinfo as 'freeaddrinfo'