From e5888a1ffdae813d7575f5fb02275c6bb07e5199 Mon Sep 17 00:00:00 2001
From: Taru Karttunen <taruti@taruti.net>
Date: Wed, 30 Mar 2011 15:46:40 +0300
Subject: Import sources from 2011-03-30 iso image

---
 sys/src/ape/lib/bsd/getprotobyname.c | 90 ++++++++++++++++++++++++++++++++++++
 1 file changed, 90 insertions(+)
 create mode 100755 sys/src/ape/lib/bsd/getprotobyname.c

(limited to 'sys/src/ape/lib/bsd/getprotobyname.c')

diff --git a/sys/src/ape/lib/bsd/getprotobyname.c b/sys/src/ape/lib/bsd/getprotobyname.c
new file mode 100755
index 000000000..f88d70148
--- /dev/null
+++ b/sys/src/ape/lib/bsd/getprotobyname.c
@@ -0,0 +1,90 @@
+/* posix */
+#include <sys/types.h>
+#include <unistd.h>
+#include <stdlib.h>
+#include <stdio.h>
+#include <fcntl.h>
+#include <string.h>
+#include <errno.h>
+
+/* bsd extensions */
+#include <sys/uio.h>
+#include <sys/socket.h>
+#include <netinet/in.h>
+#include <netdb.h>
+
+#include "priv.h"
+
+extern int h_errno;
+
+enum
+{
+	Nname= 6,
+};
+
+static struct protoent r;
+
+struct protoent *getprotobyname(const char *name) {
+	int fd, i, m;
+	char *p, *bp;
+	int nn, na;
+	unsigned long x;
+	static char buf[1024], proto[1024];
+	static char *nptr[Nname+1];
+
+	/* connect to server */
+	fd = open("/net/cs", O_RDWR);
+	if(fd < 0){
+		_syserrno();
+		h_errno = NO_RECOVERY;
+		return 0;
+	}
+
+	/* construct the query, always expect a protocol# back */
+	snprintf(buf, sizeof buf, "!protocol=%s ipv4proto=*", name);
+
+	/* query the server */
+	if(write(fd, buf, strlen(buf)) < 0){
+		_syserrno();
+		h_errno = TRY_AGAIN;
+		return 0;
+	}
+	lseek(fd, 0, 0);
+	for(i = 0; i < sizeof(buf)-1; i += m){
+		m = read(fd, buf+i, sizeof(buf) - 1 - i);
+		if(m <= 0)
+			break;
+		buf[i+m++] = ' ';
+	}
+	close(fd);
+	buf[i] = 0;
+
+	/* parse the reply */
+	nn = na = 0;
+	for(bp = buf;;){
+		p = strchr(bp, '=');
+		if(p == 0)
+			break;
+		*p++ = 0;
+		if(strcmp(bp, "protocol") == 0){
+			if(!nn)
+				r.p_name = p;
+			if(nn < Nname)
+				nptr[nn++] = p;
+		} else if(strcmp(bp, "ipv4proto") == 0){
+			r.p_proto = atoi(p);
+			na++;
+		}
+		while(*p && *p != ' ')
+			p++;
+		if(*p)
+			*p++ = 0;
+		bp = p;
+	}
+	nptr[nn] = 0;
+	r.p_aliases = nptr;
+	if (nn+na == 0)
+		return 0;
+
+	return &r;
+}
-- 
cgit v1.2.3