From: Tom London <tbl@research.uucp>
Date: Tue, 23 Jan 1979 00:51:09 +0000 (-0500)
Subject: Bell 32V development
X-Git-Tag: Bell-32V~315
X-Git-Url: https://git.subgeniuskitty.com/unix-history/.git/commitdiff_plain/9064754c74a52fb1e0c9e04b55507a35db7f5ae6

Bell 32V development
Work on file usr/src/cmd/getty.c

Co-Authored-By: John Reiser <jfr@research.uucp>
Synthesized-from: 32v
---

diff --git a/usr/src/cmd/getty.c b/usr/src/cmd/getty.c
new file mode 100644
index 0000000000..d675ce94a0
--- /dev/null
+++ b/usr/src/cmd/getty.c
@@ -0,0 +1,238 @@
+#
+/*
+ * getty -- adapt to terminal speed on dialup, and call login
+ */
+
+#include <sgtty.h>
+#include <signal.h>
+#define ERASE	'#'
+#define KILL	'@'
+
+struct sgttyb tmode;
+
+struct	tab {
+	char	tname;		/* this table name */
+	char	nname;		/* successor table name */
+	int	iflags;		/* initial flags */
+	int	fflags;		/* final flags */
+	int	ispeed;		/* input speed */
+	int	ospeed;		/* output speed */
+	char	*message;	/* login message */
+} itab[] = {
+
+/* table '0'-1-2-3 300,1200,150,110 */
+
+	'0', 1,
+	ANYP+RAW+NL1+CR1, ANYP+ECHO+CR1,
+	B300, B300,
+	"\n\r\033;\007login: ",
+
+	1, 2,
+	ANYP+RAW+NL1+CR1, ANYP+XTABS+ECHO+CRMOD+FF1,
+	B1200, B1200,
+	"\n\r\033;login: ",
+
+	2, 3,
+	ANYP+RAW+NL1+CR1, EVENP+ECHO+FF1+CR2+TAB1+NL1,
+	B150, B150,
+	"\n\r\033:\006\006\017login: ",
+
+	3, '0',
+	ANYP+RAW+NL1+CR1, ANYP+ECHO+CRMOD+XTABS+LCASE+CR1,
+	B110, B110,
+	"\n\rlogin: ",
+
+/* table '-' -- Console TTY 110 */
+	'-', '-',
+	ANYP+RAW+NL1+CR1, ANYP+ECHO+CRMOD+XTABS+LCASE+CR1,
+	B110, B110,
+	"\n\rlogin: ",
+
+/* table '1' -- 150 */
+	'1', '1',
+	ANYP+RAW+NL1+CR1, EVENP+ECHO+FF1+CR2+TAB1+NL1,
+	B150, B150,
+	"\n\r\033:\006\006\017login: ",
+
+/* table '2' -- 9600 */
+	'2', '2',
+	ANYP+RAW+NL1+CR1, ANYP+XTABS+ECHO+CRMOD+FF1,
+	B9600, B9600,
+	"\n\r\033;login: ",
+
+/* table '3'-'5' -- 1200,300 */
+	'3', '5',
+	ANYP+RAW+NL1+CR1, ANYP+XTABS+ECHO+CRMOD+FF1,
+	B1200, B1200,
+	"\n\r\033;login: ",
+
+/* table '5'-'3' -- 300,1200 */
+	'5', '3',
+	ANYP+RAW+NL1+CR1, ANYP+ECHO+CR1,
+	B300, B300,
+	"\n\r\033;\007login: ",
+
+/* table '4' -- Console Decwriter */
+	'4', '4',
+	ANYP+RAW, ANYP+ECHO+CRMOD+XTABS,
+	B300, B300,
+	"\n\rlogin: ",
+
+/* table '6' -- 2400  */
+	'6' , '6' ,
+	ANYP+RAW , ANYP+ECHO+CRMOD ,
+	B2400 , B2400 ,
+	"\n\r\007login : ",
+ 
+/* table '7' - - 4800 */
+	'7' , '7' ,
+	ANYP+RAW , ANYP+ECHO+CRMOD ,
+	B4800 , B4800 ,
+	"\n\r\007login : " ,
+ 
+/* table 'i' -- Interdata Console */
+	'i', 'i',
+	RAW+CRMOD, CRMOD+ECHO+LCASE,
+	0, 0,
+	"\n\rlogin: ",
+
+/* table 'l' -- LSI Chess Terminal */
+	'l', 'l',
+	ANYP+RAW/*+HUPCL*/, ANYP+ECHO/*+HUPCL*/,
+	B300, B300,
+	"*",
+};
+
+#define	NITAB	sizeof itab/sizeof itab[0]
+#define	EOT	04		/* EOT char */
+
+char	name[16];
+int	crmod;
+int	upper;
+int	lower;
+
+char partab[] = {
+	0001,0201,0201,0001,0201,0001,0001,0201,
+	0202,0004,0003,0205,0005,0206,0201,0001,
+	0201,0001,0001,0201,0001,0201,0201,0001,
+	0001,0201,0201,0001,0201,0001,0001,0201,
+	0200,0000,0000,0200,0000,0200,0200,0000,
+	0000,0200,0200,0000,0200,0000,0000,0200,
+	0000,0200,0200,0000,0200,0000,0000,0200,
+	0200,0000,0000,0200,0000,0200,0200,0000,
+	0200,0000,0000,0200,0000,0200,0200,0000,
+	0000,0200,0200,0000,0200,0000,0000,0200,
+	0000,0200,0200,0000,0200,0000,0000,0200,
+	0200,0000,0000,0200,0000,0200,0200,0000,
+	0000,0200,0200,0000,0200,0000,0000,0200,
+	0200,0000,0000,0200,0000,0200,0200,0000,
+	0200,0000,0000,0200,0000,0200,0200,0000,
+	0000,0200,0200,0000,0200,0000,0000,0201
+};
+
+main(argc, argv)
+char **argv;
+{
+	register struct tab *tabp;
+	char tname;
+
+/*
+	signal(SIGINT, SIG_IGN);
+	signal(SIGQUIT, SIG_DFL);
+*/
+	tname = '0';
+	if (argc > 1)
+		tname = argv[1][0];
+	for (;;) {
+		for(tabp = itab; tabp < &itab[NITAB]; tabp++)
+			if(tabp->tname == tname)
+				break;
+		if(tabp >= &itab[NITAB])
+			tabp = itab;
+		tmode.sg_ispeed = tabp->ispeed;
+		tmode.sg_ospeed = tabp->ospeed;
+		tmode.sg_flags = tabp->iflags;
+		tmode.sg_ispeed = tabp->ispeed;
+		tmode.sg_ospeed = tabp->ospeed;
+		stty(0, &tmode);
+		puts(tabp->message);
+		if(getname()) {
+			tmode.sg_erase = ERASE;
+			tmode.sg_kill = KILL;
+			tmode.sg_flags = tabp->fflags;
+			if(crmod)
+				tmode.sg_flags |= CRMOD;
+			if(upper)
+				tmode.sg_flags |= LCASE;
+			if(lower)
+				tmode.sg_flags &= ~LCASE;
+			stty(0, &tmode);
+			putchr('\n');
+			execl("/bin/login", "login", name, 0);
+			exit(1);
+		}
+		tname = tabp->nname;
+	}
+}
+
+getname()
+{
+	register char *np;
+	register c;
+	char cs;
+
+	crmod = 0;
+	upper = 0;
+	lower = 0;
+	np = name;
+	for (;;) {
+		if (read(0, &cs, 1) <= 0)
+			exit(0);
+		if ((c = cs&0177) == 0)
+			return(0);
+		if (c==EOT)
+			exit(1);
+		if (c=='\r' || c=='\n' || np >= &name[16])
+			break;
+		putchr(cs);
+		if (c>='a' && c <='z')
+			lower++;
+		else if (c>='A' && c<='Z') {
+			upper++;
+			c += 'a'-'A';
+		} else if (c==ERASE) {
+			if (np > name)
+				np--;
+			continue;
+		} else if (c==KILL) {
+			putchr('\r');
+			putchr('\n');
+			np = name;
+			continue;
+		} else if(c == ' ')
+			c = '_';
+		*np++ = c;
+	}
+	*np = 0;
+	if (c == '\r')
+		crmod++;
+	return(1);
+}
+
+puts(as)
+char *as;
+{
+	register char *s;
+
+	s = as;
+	while (*s)
+		putchr(*s++);
+}
+
+putchr(cc)
+{
+	char c;
+	c = cc;
+	c |= partab[c&0177] & 0200;
+	write(1, &c, 1);
+}