File:  [gforth] / gforth / netlib / netlib.pri
Revision 1.1: download - view: text, annotated - select for diffs
Mon May 17 13:29:57 1999 UTC (22 years, 4 months ago) by jwilke
Branches: MAIN
CVS tags: v0-7-0, v0-6-2, v0-6-1, v0-6-0, v0-5-0, HEAD
Moved netlib stuff to extra directory, because I need a configure
script for it.

    1: 
    2: net-gethostbyname	c_addr u -- a_addr 	new	ghbn
    3: a_addr=(UCell *) gethostbyname(cstr(c_addr,u,1));
    4: 
    5: net-gethostbyaddr	c_addr u1 u2 -- a_addr 	new	ghba
    6: a_addr=(UCell *) gethostbyaddr(c_addr,u1,u2);
    7: 
    8: net-sendto	c_addr1 u1 c_addr2 u2 u5 u3 -- u4	new	net_sendto
    9: u4 = sendto(u3, c_addr1, u1, u5, (struct sockaddr *) c_addr2, u2);
   10: 
   11: net-send	c_addr1 u1 u5 u3 --u4	new	net_send
   12: u4 = send(u3, c_addr1, u1,u5);
   13: 
   14: net-recvfrom	c_addr1 u1 c_addr2 u2 u5 u3 -- u4	new	net_recvfrom
   15: UCell len;
   16: len=u2;
   17: u4 = recvfrom(u3, c_addr1, u1, u5, (struct sockaddr *) c_addr2, &len);
   18: 
   19: net-recv	c_addr1 u1 u5 u3 -- u4	new	net_recv
   20: u4 = recv(u3, c_addr1, u1, u5);
   21: 
   22: net-connect	c_addr1 u1 u2 -- n1	new	net_connect
   23: n1=connect(u2,(struct sockaddr *) c_addr1,u1);
   24: 
   25: net-bind	c_addr1 u1 n1 -- n2	new	net_bind
   26: n2=bind(n1,(struct sockaddr *) c_addr1, u1);
   27: 
   28: net-close	n1 -- n2	new	net_close
   29: n2=close(n1);
   30: 
   31: net-accept	c_addr1 u1 n2 -- n3	new	net_accept
   32: UCell len;
   33: len=u1;
   34: n3=accept(n2,(struct sockaddr *) c_addr1, &len);
   35: 
   36: net-listen	n2 n1 -- n3	new	net_listen
   37: n3=listen(n1,n2);
   38: 
   39: net-socket	u1 u2 u3 -- n1	new	net_socket
   40: n1=socket(u1,u2,u3);
   41: 
   42: net-setsockopt	u2 u3 c_addr u5 u1 -- n1	mew	net_setsockopt
   43: n1=setsockopt(u1,u2,u3,c_addr,u5);
   44: 

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>