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

#include <stdio.h>
#include <sgtty.h>

#define SP	' '
#define TB	'\t'
#define NL	'\n'

# define ESC 033
# define RHM 060
# define SI 017
# define DEL 0177
# define SET '1'
# define CLR '2'
# define MGN '9'
# define CR '\r'
# define BS '\b'

struct sysnod {
	char	*sysnam;
	int	sysval;
};

#define	DASI300 1
#define	DASI300S 2
#define DASI450 3
#define TN300 4
#define TTY37 5
#define HP	6
struct sysnod tty[] = {
	{"dasi300", DASI300},
	{"300", DASI300},
	{"dasi300s", DASI300S},
	{"300s", DASI300S},
	{"dasi450", DASI450},
	{"450", DASI450},
	{"37", TTY37},
	{"tty37", TTY37},
	{"tn300", TN300},
	{"terminet", TN300},
	{"tn", TN300},
	{"hp",	HP},
	{0, 0},
};
int	margset = 1;

syslook(w)
char *w;
{
	register struct sysnod *sp;

	for (sp = tty; sp->sysnam!=NULL; sp++)
		if (strcmp(sp->sysnam, w)==0)
			return(sp->sysval);
	return(0);
}

main(argc,argv)
int argc; char **argv;
{
	struct sgttyb tb;
	int type;

	type=0;
	if (argc>=2 && strcmp(argv[1],"-n")==0) {
		margset--; argc--; argv++;
	}
	if (argc>=2) {
		type=syslook(argv[1]);
	}

	switch(type) {

		case DASI300:	dasi300(); break;

		case DASI300S:	dasi300(); break;

		case DASI450:	dasi450(); break;

		case TN300:	tn300(); break;

		case TTY37:	tty37(); break;

		case HP:	hp2645(); break;

		default:
				gtty (0, &tb);
				if ( (tb.sg_flags & (LCASE|CRMOD)) == CRMOD) {
					/* test for CR map on, upper case off, i.e. terminet but not 33 */
					if ((tb.sg_ispeed) == B300) /* test for 300 baud */
						misc();
				}
				else if ((tb.sg_flags & (CRMOD|LCASE)) == 0 && (tb.sg_ispeed ) == B150) {
					/* apparent model 37 */
					tty37();
				}
	}
}

clear(n)
{
	escape(CLR); 
	delay(n);
	putchar(CR); nl();
}

delay(n)
{
	while (n--) putchar(DEL);
}

tabs(n)
{
	int i,j;

	if(margset) n--;

	for( i=0; i<n; ++i ){
		for( j=0; j<8; ++j ) {
			putchar(SP);
		}
		escape(SET);
	}
}

margin(n)
{
	int i;

	if(margset) {
		for( i=0; i<n; ++i) putchar(SP);
	}
}

escape(c)
{
	putchar(ESC); putchar(c);
}

bs(n)
{
	while (n--) putchar(BS);
}

nl()
{
	putchar(NL);
}


/* ======== terminal types ======== */

dasi450()
{
	struct sgttyb t;
	gtty(0,&t);
	t.sg_flags &= ~ALLDELAY;
	stty(0,&t);
	clear(8); bs(16); margin(8); escape(MGN); nl(); tabs(16);
	escape(RHM); nl();
}

tty37()
{
	putchar(SI); clear(40); bs(8); tabs(9); nl();
}

dasi300()
{
	clear(8); tabs(15); nl();
}

tn300()
{
	struct sgttyb t;
	gtty(0,&t);
	t.sg_flags &= ~ALLDELAY;
	t.sg_flags |= CR1|BS1;
	stty(0,&t);
	clear(8); margin(8); escape(SET); tabs(14); nl();
}

hp2645()
{
	escape('3'); /*clr*/
	putchar(CR);
	tabs(10);
	nl();
}

misc()
{
	tabs(14); nl();
}
Commit	Line	Data
a570deab KT	1	#include <stdio.h>
	2	#include <sgtty.h>
	3
	4	#define SP ' '
	5	#define TB '\t'
	6	#define NL '\n'
	7
	8	# define ESC 033
	9	# define RHM 060
	10	# define SI 017
	11	# define DEL 0177
	12	# define SET '1'
	13	# define CLR '2'
	14	# define MGN '9'
	15	# define CR '\r'
	16	# define BS '\b'
	17
	18	struct sysnod {
	19	char *sysnam;
	20	int sysval;
	21	};
	22
	23	#define DASI300 1
	24	#define DASI300S 2
	25	#define DASI450 3
	26	#define TN300 4
	27	#define TTY37 5
	28	#define HP 6
	29	struct sysnod tty[] = {
	30	{"dasi300", DASI300},
	31	{"300", DASI300},
	32	{"dasi300s", DASI300S},
	33	{"300s", DASI300S},
	34	{"dasi450", DASI450},
	35	{"450", DASI450},
	36	{"37", TTY37},
	37	{"tty37", TTY37},
	38	{"tn300", TN300},
	39	{"terminet", TN300},
	40	{"tn", TN300},
	41	{"hp", HP},
	42	{0, 0},
	43	};
	44	int margset = 1;
	45
	46	syslook(w)
	47	char *w;
	48	{
	49	register struct sysnod *sp;
	50
	51	for (sp = tty; sp->sysnam!=NULL; sp++)
	52	if (strcmp(sp->sysnam, w)==0)
	53	return(sp->sysval);
	54	return(0);
	55	}
	56
	57	main(argc,argv)
	58	int argc; char **argv;
	59	{
	60	struct sgttyb tb;
	61	int type;
	62
	63	type=0;
	64	if (argc>=2 && strcmp(argv[1],"-n")==0) {
65	margset--; argc--; argv++;
66	}
67	if (argc>=2) {
68	type=syslook(argv[1]);
69	}
70
71	switch(type) {
72
73	case DASI300: dasi300(); break;
74
75	case DASI300S: dasi300(); break;
76
77	case DASI450: dasi450(); break;
78
79	case TN300: tn300(); break;
80
81	case TTY37: tty37(); break;
82
83	case HP: hp2645(); break;
84
85	default:
86	gtty (0, &tb);
87	if ( (tb.sg_flags & (LCASE\|CRMOD)) == CRMOD) {
88	/* test for CR map on, upper case off, i.e. terminet but not 33 */
89	if ((tb.sg_ispeed) == B300) /* test for 300 baud */
90	misc();
91	}
92	else if ((tb.sg_flags & (CRMOD\|LCASE)) == 0 && (tb.sg_ispeed ) == B150) {
93	/* apparent model 37 */
94	tty37();
95	}
96	}
97	}
98
99	clear(n)
100	{
101	escape(CLR);
102	delay(n);
103	putchar(CR); nl();
104	}
105
106	delay(n)
107	{
108	while (n--) putchar(DEL);
109	}
110
111	tabs(n)
112	{
113	int i,j;
114
115	if(margset) n--;
116
117	for( i=0; i<n; ++i ){
118	for( j=0; j<8; ++j ) {
119	putchar(SP);
120	}
121	escape(SET);
122	}
123	}
124
125	margin(n)
126	{
127	int i;
128
129	if(margset) {
130	for( i=0; i<n; ++i) putchar(SP);
131	}
132	}
133
134	escape(c)
135	{
136	putchar(ESC); putchar(c);
137	}
138
139	bs(n)
140	{
141	while (n--) putchar(BS);
142	}
143
144	nl()
145	{
146	putchar(NL);
147	}
148
149
150
151	/* ======== terminal types ======== */
152
153	dasi450()
154	{
155	struct sgttyb t;
156	gtty(0,&t);
157	t.sg_flags &= ~ALLDELAY;
158	stty(0,&t);
159	clear(8); bs(16); margin(8); escape(MGN); nl(); tabs(16);
160	escape(RHM); nl();
161	}
162
163	tty37()
164	{
165	putchar(SI); clear(40); bs(8); tabs(9); nl();
166	}
167
168	dasi300()
169	{
170	clear(8); tabs(15); nl();
171	}
172
173	tn300()
174	{
175	struct sgttyb t;
176	gtty(0,&t);
177	t.sg_flags &= ~ALLDELAY;
178	t.sg_flags \|= CR1\|BS1;
179	stty(0,&t);
180	clear(8); margin(8); escape(SET); tabs(14); nl();
181	}
182
183	hp2645()
184	{
185	escape('3'); /clr/
186	putchar(CR);
187	tabs(10);
188	nl();
189	}
190
191	misc()
192	{
193	tabs(14); nl();
194	}