From 5eaaf6454300595b7690772519cf764ee5929542 Mon Sep 17 00:00:00 2001
From: CSRG <csrg@ucbvax.Berkeley.EDU>
Date: Sat, 1 Feb 1986 04:05:43 -0800
Subject: [PATCH] BSD 4_3_Tahoe development Work on file
 usr/guest/karels/tests/udpsrcrt.c

Synthesized-from: CSRG/cd2/4.3tahoe
---
 usr/guest/karels/tests/udpsrcrt.c | 186 ++++++++++++++++++++++++++++++
 1 file changed, 186 insertions(+)
 create mode 100644 usr/guest/karels/tests/udpsrcrt.c

diff --git a/usr/guest/karels/tests/udpsrcrt.c b/usr/guest/karels/tests/udpsrcrt.c
new file mode 100644
index 0000000000..3a1a529cfb
--- /dev/null
+++ b/usr/guest/karels/tests/udpsrcrt.c
@@ -0,0 +1,186 @@
+#include <stdio.h>
+#include <netdb.h>
+
+#include <sys/types.h>
+#include <sys/socket.h>
+#include <sys/signal.h>
+#include <sys/time.h>
+#include <sys/errno.h>
+
+#include <netinet/in.h>
+#include <netinet/in_systm.h>
+#include <netinet/ip.h>
+
+#define MAXHOPS	10
+char srcrt[4 + MAXHOPS * sizeof(struct in_addr)];
+struct	sockaddr_in dst = { AF_INET };
+
+int	nhops;
+int	sock;
+int	send();
+int	sent, recvd;
+extern	int errno;
+char	*service = "echo";
+
+struct {
+	struct timeval t;
+	int n;
+	char sbuf[100];
+} rbuf, sbuf = { {0}, "Hi there"};
+
+main(argc, argv)
+	char *argv[];
+{
+	int n, i;
+	struct hostent *hp;
+	struct servent *sp;
+	struct protoent *pp;
+	char buf[4096];
+	char *cp = srcrt;
+	struct sockaddr_in from;
+	struct in_addr in;
+	struct timeval now;
+	int noopt = 0, loose = 0;
+	
+	argc--, argv++;
+	while (argc && argv[0][0] == '-') {
+		switch (argv[0][1]) {
+
+		case 'l':
+			loose++;
+			break;
+		case 'n':
+			noopt++;
+			break;
+		default:
+			goto usage;
+		}
+		argc--, argv++;
+	}
+	if (argc == 0) {
+usage:
+		fprintf(stderr, "usage: ipsrcrt [ -n ] [ gateway ... ] dest\n");
+		exit(1);
+	}
+	*cp++ = IPOPT_NOP;
+	if (loose)
+		*cp++ = IPOPT_LSRR;
+	else
+		*cp++ = IPOPT_SSRR;
+	*cp++ = 3;
+	*cp++ = IPOPT_MINOFF;
+	while (argc) {
+		if (nhops == MAXHOPS) {
+			fprintf(stderr, "too many hops, limit %d\n", MAXHOPS);
+			exit(1);
+		}
+		if ((in.s_addr = inet_addr(*argv)) != -1)
+			bcopy((char *)&in, cp, sizeof(struct in_addr));
+		else {
+			hp = gethostbyname(*argv);
+			if (hp == 0) {
+				fprintf(stderr, "%s: unknown host\n", *argv);
+				exit(1);
+			}
+			bcopy(hp->h_addr, cp, sizeof(struct in_addr));
+		}
+		cp += sizeof(struct in_addr);
+		nhops++;
+		argc--; argv++;
+	}
+	if ((sp = getservbyname(service, "udp")) == 0) {
+		fprintf(stderr, "%s: unknown service\n", service);
+		exit(10);
+	}
+	dst.sin_port = sp->s_port;
+	sock = socket(AF_INET, SOCK_DGRAM, 0);
+	if (sock < 0) {
+		perror("socket");
+		exit(10);
+	}
+	if ((pp = getprotobyname("ip")) == 0) {
+		fprintf(stderr, "ip: unknown protocol\n");
+		exit(10);
+	}
+	srcrt[IPOPT_OLEN + 1] = cp - srcrt - 1;		/* -1 is NOP */
+/*	*cp++ = IPOPT_EOL; */
+	if (!noopt) {
+		n = 4 + nhops * sizeof(struct in_addr);
+		printf("options %d long\n", n);
+		for (i = 0; i < (n+3)/4; i++)
+			printf("%x ", ((int *)srcrt)[i]);
+		printf("\n");
+		if (setsockopt(sock, pp->p_proto, IP_OPTIONS, srcrt,
+		    4 + nhops * sizeof(struct in_addr)) < 0) {
+			perror("setsockopt");
+			exit(10);
+		}
+		n = sizeof(buf);
+		if (getsockopt(sock, pp->p_proto, IP_OPTIONS, buf, &n) < 0)
+			perror("getsockopt");
+		else {
+			printf("options now %d long\n", n);
+			for (i = 0; i < (n+3)/4; i++)
+				printf("%x ", ((int *)buf)[i]);
+			printf("\n");
+		}
+	}
+		
+	bcopy(cp - sizeof(struct in_addr), &dst.sin_addr,
+	    sizeof(struct in_addr));
+	signal(SIGALRM, send);
+	send();
+
+	for (;;) {
+		if ((n = recvfrom(sock, &rbuf, sizeof(rbuf), 0, &from,
+		    sizeof(from))) < 0) {
+			if (errno != EINTR)
+				perror("recvfrom");
+		} else {
+			gettimeofday(&now);
+			recvd++;
+			printf("%d bytes from %s: seq=%d. time=", n,
+				inet_ntoa(from.sin_addr), rbuf.n);
+			timevalsub(&now, &rbuf.t);
+			if (now.tv_sec)
+				printf("%d.%03d sec.\n", now.tv_sec,
+					now.tv_usec/1000);
+			else
+				printf("%d.%d ms\n", now.tv_usec/1000,
+					now.tv_usec/10000);
+		}
+	}
+}
+
+send()
+{
+
+	alarm(1);
+	sbuf.n = sent++;
+	gettimeofday(&sbuf.t);
+	if (sendto(sock, &sbuf, sizeof(sbuf), 0, &dst, sizeof(dst)) < 0)
+		perror("sendto");
+}
+
+timevalsub(t1, t2)
+	struct timeval *t1, *t2;
+{
+
+	t1->tv_sec -= t2->tv_sec;
+	t1->tv_usec -= t2->tv_usec;
+	timevalfix(t1);
+}
+
+timevalfix(t1)
+	struct timeval *t1;
+{
+
+	if (t1->tv_usec < 0) {
+		t1->tv_sec--;
+		t1->tv_usec += 1000000;
+	}
+	while (t1->tv_usec >= 1000000) {
+		t1->tv_sec++;
+		t1->tv_usec -= 1000000;
+	}
+}
-- 
2.20.1