From e11c7df86144bed383ac6bbeaecc3017d18b37db Mon Sep 17 00:00:00 2001
From: Toby Goodwin <tjg@star.le.ac.uk>
Date: Mon, 11 Jan 1999 10:55:18 +0000
Subject: beta: rc-1.5b4

---
 tripping.c | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100644 tripping.c

(limited to 'tripping.c')

diff --git a/tripping.c b/tripping.c
new file mode 100644
index 0000000..911d229
--- /dev/null
+++ b/tripping.c
@@ -0,0 +1,33 @@
+/* This is an auxiliary test program for rc.  */
+
+#include <fcntl.h>
+#include <stdio.h>
+
+void out0(void) {
+	putchar('t'); putchar('r');
+	putchar('\0');
+	putchar('u'); putchar('e');
+	putchar('\n');
+}
+
+void makenonblock(void) {
+	int flags;
+
+	if ((flags = fcntl(0, F_GETFL)) == -1)
+		perror("fcntl 1");
+	flags |= O_NONBLOCK;
+	if (fcntl(0, F_SETFL, (long) flags) == -1)
+		perror("fcntl 2");
+}
+
+int main(int argc, char **argv) {
+	switch(argv[1][0]) {
+	case '0':
+		out0();
+		break;
+	case 'n':
+		makenonblock();
+		break;
+	}
+	return 0;
+}
-- 
cgit v1.2.3