add directory bin

bin/qpl-init/getttyent/getttyent.c

@@ -0,0 +1,191 @@
+/*
+	getttyent, getttynam, setttyent, endttyent for linux
+	by qpliu@phoenix.princeton.edu 1992
+	$Id$
+	simple test appears to be duplicate the sun library version
+ */
+/*
+	my computer is a puny 2meg 386sx, and can't run gcc.
+	so I made cc1 on my account on a sun 4/490 (soon to be
+	4/690MP, which is good because the load avg is usually 10-20),
+	and compile to .s on the sun.  however, it dies with
+	SIGIOT when trying to optimize some stuff, thus this is 
+	a bit more contorted to make it compile
+*/
+#define GCC_O_BUSTED
+
+#include <stdio.h>
+#include <string.h>
+#include <ttyent.h>
+
+#define	ENTRY_SIZE	120	/* what's the standard way to do this? */
+
+#define isspace(c) (c==' '||c=='\t'||c=='\n')
+
+static struct ttyent *entry = (struct ttyent *)NULL;
+static FILE *tabfile = (FILE *)NULL;
+static char *tabbuf = (char *)NULL;	/* buffer to read line of ttytab */
+
+static void __read_ttyent (void);
+static void __free_bufs (void);
+
+static void read_flags (char *, struct ttyent *);
+
+struct ttyent *
+getttyent ()
+{
+	if (!tabfile)
+		if (!(tabfile = fopen (_PATH_TTYTAB, "r"))) {
+			__free_bufs ();
+			return (struct ttyent *)NULL;
+		}
+
+	if (!entry)
+		if (!(entry = (struct ttyent *)malloc(sizeof(struct ttyent)))) {
+			fclose (tabfile);
+			tabfile = (FILE *)NULL;
+			return (struct ttyent *)NULL;
+		}
+
+	if (!tabbuf)
+		if (!(tabbuf = (char *)malloc (ENTRY_SIZE))) {
+			fclose (tabfile);
+			tabfile = (FILE *)NULL;
+			__free_bufs ();
+			return (struct ttyent *)NULL;
+		}
+
+	__read_ttyent ();
+
+	return entry;
+}
+
+int
+setttyent ()
+{
+	if (tabfile)
+		rewind (tabfile);
+}
+
+int
+endttyent ()
+{
+	if (tabfile) {
+		fclose (tabfile);
+		tabfile = (FILE *)NULL;
+	}
+
+	__free_bufs ();
+}
+
+static void
+__free_bufs ()
+{
+	if (tabbuf) {
+		free (tabbuf);
+		tabbuf = (char *)NULL;
+	}
+
+	if (entry) {
+		free (entry);
+		entry = (struct ttyent *)NULL;
+	}
+}
+
+static void
+__read_ttyent ()
+{
+	char *c, dump[ENTRY_SIZE];
+	/* one label for gotos, used when discarding bad lines */
+restart:
+	*tabbuf = '#';
+	c = tabbuf;
+	while (*c == '#') {	/* skip comments */
+		if (!fgets (tabbuf, ENTRY_SIZE, tabfile)) {	/* EOF */
+			__free_bufs ();
+			return;
+		}
+		c = tabbuf;
+		while (isspace (*c) && *c) ++c;
+		if (!*c) goto restart;
+	}
+
+	/* discard the end of lines longer than ENTRY_SIZE */
+	if (tabbuf [strlen (tabbuf) - 1] != '\n')
+		do {
+			if (!fgets (dump, ENTRY_SIZE, tabfile)) break;
+		} while (dump [strlen (dump) - 1] != '\n');
+
+	entry->ty_name = c;	/* get name */
+	while (*c && !isspace (*c)) ++c;
+	if (!*c) goto restart;
+	*(c++) = '\0';
+	while (*c && isspace (*c)) ++c;
+	if (!*c) goto restart;
+	if (*c == '"') {	/* getty is quoted */
+		entry->ty_getty = ++c;
+		while (*c && *c != '"') ++c;
+		if (!*c) goto restart;
+		*(c++) = '\0';
+	} else {	/* getty in not quoted */
+		entry->ty_getty = c;
+		while (*c && !isspace (*c)) ++c;
+		if (!*c) goto restart;
+		*(c++) = '\0';
+	}
+	while (*c && isspace (*c)) ++c;
+	if (!*c) goto restart;
+	entry->ty_type = c;	/* term type */
+	while (*c && !isspace (*c)) ++c;
+	if (*c) *(c++) = '\0';
+
+	/* defaults for optional parts */
+	entry->ty_status = 0;
+	entry->ty_window = (char *)NULL;
+	entry->ty_comment = (char *)NULL;
+
+	/* check for remaining flags, don't truly enforce format */
+	read_flags (c, entry);
+}
+
+void
+read_flags (char *c, struct ttyent *entry)
+{
+	int ts_off = strlen (_TTYS_OFF),
+		ts_on = strlen (_TTYS_ON),
+		ts_local = strlen (_TTYS_LOCAL),
+		ts_secure = strlen (_TTYS_SECURE),
+		ts_window = strlen (_TTYS_WINDOW);
+
+	while (*c) {
+		if (!strncmp (c, _TTYS_OFF, ts_off)) {
+			entry->ty_status &= ~TTY_ON;
+			c += ts_off;
+		} else if (!strncmp (c, _TTYS_ON, ts_on)) {
+			entry->ty_status |= TTY_ON;
+			c += ts_on;
+		} else if (!strncmp (c, _TTYS_LOCAL, ts_local)) {
+			entry->ty_status |= TTY_LOCAL;
+			c += ts_local;
+		} else if (!strncmp (c, _TTYS_SECURE, ts_secure)) {
+			entry->ty_status |= TTY_SECURE;
+			c += ts_secure;
+		} else if (!strncmp (c, _TTYS_WINDOW, ts_window)) {
+			c += ts_window;
+			/* window="pathname of window thing" */
+			if (*c) break;
+			if (*++c) break;	/* skip the = */
+			if (*++c) break;	/* skip the quote */
+			entry->ty_window = c;
+			while (*c && *c != '"') ++c;
+			if (*c) *(c++) = '\0';
+		} else if (*c == '#') {
+			/* keep the trailing newline? */
+			++c;
+			while (isspace (*c)) ++c;
+			entry->ty_comment = c;
+			break;
+		}
+		while (isspace (*c)) ++c;
+	}
+}