gforth/unix/socket.fs - diff

Return to socket.fs CVS log

Up to [gforth] / gforth / unix

version 1.23, 2008/07/29 09:01:44	version 1.24, 2008/09/18 16:06:50
Line 23 c-function gethostbyname gethostbyname a	Line 23 c-function gethostbyname gethostbyname a
\c #include <unistd.h>	\c #include <unistd.h>
c-function gethostname gethostname a n -- n ( c-addr u -- ior )	c-function gethostname gethostname a n -- n ( c-addr u -- ior )
\c #include <errno.h>	\c #include <errno.h>
c-function 'errno __errno_location -- a ( -- addr )	\c #define get_errno() errno
	c-function errno get_errno -- n ( -- value )
\c #include <sys/types.h>	\c #include <sys/types.h>
\c #include <sys/socket.h>	\c #include <sys/socket.h>
c-function socket socket n n n -- n ( class type proto -- fd )	c-function socket socket n n n -- n ( class type proto -- fd )
Line 131 Create hostname$ 0 c, 255 chars allot	Line 132 Create hostname$ 0 c, 255 chars allot
Create alen 16 ,	Create alen 16 ,
Create crlf 2 c, 13 c, 10 c,	Create crlf 2 c, 13 c, 10 c,

: errno ( -- #error ) 'errno @ ;

: listen ( lsocket /queue -- )	: listen ( lsocket /queue -- )
listen() 0< abort" listen :: failed" ;	listen() 0< abort" listen :: failed" ;