forked from KolibriOS/kolibrios
51 lines
1.1 KiB
NASM
51 lines
1.1 KiB
NASM
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'
|