forked from KolibriOS/kolibrios
49 lines
1.1 KiB
NASM
49 lines
1.1 KiB
NASM
|
format coff
|
||
|
|
use32 ; Tell compiler to use 32 bit instructions
|
||
|
|
|
||
|
|
section '.flat' code
|
||
|
|
|
||
|
|
include '../../../programs/proc32.inc'
|
||
|
|
include '../../../programs/macros.inc'
|
||
|
|
purge section,mov,add,sub
|
||
|
|
|
||
|
|
include '../../../programs/dll.inc'
|
||
|
|
|
||
|
|
purge section,mov,add,sub
|
||
|
|
|
||
|
|
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
|
||
|
|
|
||
|
|
@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'
|