[unix-history] / usr / src / cmd / getty.c

#
/*
 * getty -- adapt to terminal speed on dialup, and call login
 */

#include <sgtty.h>
#include <signal.h>
#define ERASE	'#'
#define KILL	'@'

struct sgttyb tmode;
struct tchars tchars = { '\177', '\034', '\021', '\023', '\004', '\377' };

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 '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,
	"*",
/* table '6' -- 2400 11/23 line */
	'6', '6',
	ANYP+RAW+NL1+CR1, ANYP+ECHO,
	B2400, B2400,
	"\n\rlogin: ",

};

#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;
	int tname;

	tname = '0';
	if (argc > 1)
		tname = argv[1][0];
	switch (tname) {

	case '3':		/* adapt to connect speed (212) */
		ioctl(0, TIOCGETP, &tmode);
		if (tmode.sg_ispeed==B300)
			tname = '0';
		else
			tname = '3';
		break;
	}
	for (;;) {
		for(tabp = itab; tabp < &itab[NITAB]; tabp++)
			if(tabp->tname == tname)
				break;
		if(tabp >= &itab[NITAB])
			tabp = itab;
		tmode.sg_flags = tabp->iflags;
		tmode.sg_ispeed = tabp->ispeed;
		tmode.sg_ospeed = tabp->ospeed;
		ioctl(0, TIOCSETP, &tmode);
		ioctl(0, TIOCSETC, &tchars);
		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);
}
Commit	Line	Data
41af962f KT	1	#
	2	/*
	3	* getty -- adapt to terminal speed on dialup, and call login
	4	*/
	5
	6	#include <sgtty.h>
	7	#include <signal.h>
	8	#define ERASE '#'
	9	#define KILL '@'
	10
	11	struct sgttyb tmode;
	12	struct tchars tchars = { '\177', '\034', '\021', '\023', '\004', '\377' };
	13
	14	struct tab {
	15	char tname; /* this table name */
	16	char nname; /* successor table name */
	17	int iflags; /* initial flags */
	18	int fflags; /* final flags */
	19	int ispeed; /* input speed */
	20	int ospeed; /* output speed */
	21	char message; / login message */
	22	} itab[] = {
	23
	24	/* table '0'-1-2-3 300,1200,150,110 */
	25
	26	'0', 1,
	27	ANYP+RAW+NL1+CR1, ANYP+ECHO+CR1,
	28	B300, B300,
	29	"\n\r\033;\007login: ",
	30
	31	1, 2,
	32	ANYP+RAW+NL1+CR1, ANYP+XTABS+ECHO+CRMOD+FF1,
	33	B1200, B1200,
	34	"\n\r\033;login: ",
	35
	36	2, 3,
	37	ANYP+RAW+NL1+CR1, EVENP+ECHO+FF1+CR2+TAB1+NL1,
	38	B150, B150,
	39	"\n\r\033:\006\006\017login: ",
	40
	41	3, '0',
	42	ANYP+RAW+NL1+CR1, ANYP+ECHO+CRMOD+XTABS+LCASE+CR1,
	43	B110, B110,
	44	"\n\rlogin: ",
	45
	46	/* table '-' -- Console TTY 110 */
	47	'-', '-',
	48	ANYP+RAW+NL1+CR1, ANYP+ECHO+CRMOD+XTABS+LCASE+CR1,
	49	B110, B110,
	50	"\n\rlogin: ",
	51
	52	/* table '1' -- 150 */
	53	'1', '1',
	54	ANYP+RAW+NL1+CR1, EVENP+ECHO+FF1+CR2+TAB1+NL1,
	55	B150, B150,
	56	"\n\r\033:\006\006\017login: ",
	57
	58	/* table '2' -- 9600 */
	59	'2', '2',
	60	ANYP+RAW+NL1+CR1, ANYP+XTABS+ECHO+CRMOD+FF1,
	61	B9600, B9600,
	62	"\n\r\033;login: ",
	63
	64	/* table '3'-'5' -- 1200,300 */
65	'3', '5',
66	ANYP+RAW+NL1+CR1, ANYP+XTABS+ECHO+CRMOD+FF1,
67	B1200, B1200,
68	"\n\r\033;login: ",
69
70	/* table '5'-'3' -- 300,1200 */
71	'5', '3',
72	ANYP+RAW+NL1+CR1, ANYP+ECHO+CR1,
73	B300, B300,
74	"\n\r\033;\007login: ",
75
76	/* table '4' -- Console Decwriter */
77	'4', '4',
78	ANYP+RAW, ANYP+ECHO+CRMOD+XTABS,
79	B300, B300,
80	"\n\rlogin: ",
81
82	/* table 'i' -- Interdata Console */
83	'i', 'i',
84	RAW+CRMOD, CRMOD+ECHO+LCASE,
85	0, 0,
86	"\n\rlogin: ",
87
88	/* table 'l' -- LSI Chess Terminal */
89	'l', 'l',
90	ANYP+RAW/+HUPCL/, ANYP+ECHO/+HUPCL/,
91	B300, B300,
92	"*",
93	/* table '6' -- 2400 11/23 line */
94	'6', '6',
95	ANYP+RAW+NL1+CR1, ANYP+ECHO,
96	B2400, B2400,
97	"\n\rlogin: ",
98
99	};
100
101	#define NITAB sizeof itab/sizeof itab[0]
102	#define EOT 04 /* EOT char */
103
104	char name[16];
105	int crmod;
106	int upper;
107	int lower;
108
109	char partab[] = {
110	0001,0201,0201,0001,0201,0001,0001,0201,
111	0202,0004,0003,0205,0005,0206,0201,0001,
112	0201,0001,0001,0201,0001,0201,0201,0001,
113	0001,0201,0201,0001,0201,0001,0001,0201,
114	0200,0000,0000,0200,0000,0200,0200,0000,
115	0000,0200,0200,0000,0200,0000,0000,0200,
116	0000,0200,0200,0000,0200,0000,0000,0200,
117	0200,0000,0000,0200,0000,0200,0200,0000,
118	0200,0000,0000,0200,0000,0200,0200,0000,
119	0000,0200,0200,0000,0200,0000,0000,0200,
120	0000,0200,0200,0000,0200,0000,0000,0200,
121	0200,0000,0000,0200,0000,0200,0200,0000,
122	0000,0200,0200,0000,0200,0000,0000,0200,
123	0200,0000,0000,0200,0000,0200,0200,0000,
124	0200,0000,0000,0200,0000,0200,0200,0000,
125	0000,0200,0200,0000,0200,0000,0000,0201
126	};
127
128	main(argc, argv)
129	char **argv;
130	{
131	register struct tab *tabp;
132	int tname;
133
134	tname = '0';
135	if (argc > 1)
136	tname = argv[1][0];
137	switch (tname) {
138
139	case '3': /* adapt to connect speed (212) */
140	ioctl(0, TIOCGETP, &tmode);
141	if (tmode.sg_ispeed==B300)
142	tname = '0';
143	else
144	tname = '3';
145	break;
146	}
147	for (;;) {
148	for(tabp = itab; tabp < &itab[NITAB]; tabp++)
149	if(tabp->tname == tname)
150	break;
151	if(tabp >= &itab[NITAB])
152	tabp = itab;
153	tmode.sg_flags = tabp->iflags;
154	tmode.sg_ispeed = tabp->ispeed;
155	tmode.sg_ospeed = tabp->ospeed;
156	ioctl(0, TIOCSETP, &tmode);
157	ioctl(0, TIOCSETC, &tchars);
158	puts(tabp->message);
159	if(getname()) {
160	tmode.sg_erase = ERASE;
161	tmode.sg_kill = KILL;
162	tmode.sg_flags = tabp->fflags;
163	if(crmod)
164	tmode.sg_flags \|= CRMOD;
165	if(upper)
166	tmode.sg_flags \|= LCASE;
167	if(lower)
168	tmode.sg_flags &= ~LCASE;
169	stty(0, &tmode);
170	putchr('\n');
171	execl("/bin/login", "login", name, 0);
172	exit(1);
173	}
174	tname = tabp->nname;
175	}
176	}
177
178	getname()
179	{
180	register char *np;
181	register c;
182	char cs;
183
184	crmod = 0;
185	upper = 0;
186	lower = 0;
187	np = name;
188	for (;;) {
189	if (read(0, &cs, 1) <= 0)
190	exit(0);
191	if ((c = cs&0177) == 0)
192	return(0);
193	if (c==EOT)
194	exit(1);
195	if (c=='\r' \|\| c=='\n' \|\| np >= &name[16])
196	break;
197	putchr(cs);
198	if (c>='a' && c <='z')
199	lower++;
200	else if (c>='A' && c<='Z') {
201	upper++;
202	c += 'a'-'A';
203	} else if (c==ERASE) {
204	if (np > name)
205	np--;
206	continue;
207	} else if (c==KILL) {
208	putchr('\r');
209	putchr('\n');
210	np = name;
211	continue;
212	} else if(c == ' ')
213	c = '_';
214	*np++ = c;
215	}
216	*np = 0;
217	if (c == '\r')
218	crmod++;
219	return(1);
220	}
221
222	puts(as)
223	char *as;
224	{
225	register char *s;
226
227	s = as;
228	while (*s)
229	putchr(*s++);
230	}
231
232	putchr(cc)
233	{
234	char c;
235	c = cc;
236	c \|= partab[c&0177] & 0200;
237	write(1, &c, 1);
238	}