HLA Adventure Version 3.05

The regulars are acting like it is some kind of mortal sin for me to try to help you extend this to multi-user, but heck with them -- they know where they can go...

My investigation into the Winsock API -- to provide the internet connectivity on the Windows side {we'll get to the Linux side later if, by some miracle, anyone playing with Linux asm will lend you a hand} -- has lead me to write the following header file.

wsock.hhf ?wsockhhf := true;

static

WSAStartup: procedure ( wVersionRequested :dword; );

WSACleanup: procedure ;

WSAAsyncSelect: procedure ( hwnd :dword; wmsg :dword; levent :dword );

gethostbyname: procedure ( buffer :dword );

socket: procedure ( addrlen :dword );

bind: procedure ( addrlen :dword );

listen: procedure ( backlog :dword );

accept: procedure ( addrlen :dword );

connect: procedure ( addrlen :dword );

recv: procedure ( buffer :dword; len :dword; flags :dword );

send: procedure ( buffer :dword; len :dword; flags :dword );

closesocket: procedure ( );

end wsock;

It needs cleaned-up a little more... I found out what Sevag meant by not going overboard with the Vars... took a few out to get rid of the compiler complaints.

Now, to test it out, I just started off calling only a few of them to keep the bug-swatting process short. I commented-out the section which calls "socket" because the compiler says the constants being pbutted are the wrong data type. Those are defined in "w.hhf" so I will have to dig into that big file later and correct those. Now, the following proggie will compile, but the linker (and I've tried both Microsoft's and Pelle's) refuses to resolve the external symbols. I'm probably reading an old PDF about using the API from HLA, so I suspect we have to delete the "imp" part in the 'hhf' file above. I dunno, anyone else around here attempt to do API programming with HLA and don't mind committing 'sacraledge' by helping Paul?

program wstest; #include( "stdlib.hhf" ) #include( "w.hhf" ) #include( "wsock.hhf" )

var

begin wstest;

wsock.WSAStartup($0101, MYwsadata);* mov(eax, MYsocket); if( MYsocket = w.INVALIDSOCKET ) then

stdout.put( "INVALID SOCKET!!!" nl );

else

stdout.put( "SUCCESS!!!" nl ); endif; *wsock.WSACleanup();

end wstest;

Nathan.