src/rt/aed.c

#ifndef lint
static const char       RCSid[] = "$Id: aed.c,v 2.5 2003/08/20 10:00:09 schorsch Exp $";
#endif
/*
 *  aed.c - driver for AED 512 terminal.
 */

#include "copyright.h"

#include  <stdio.h>

#include  "rterror.h"
#include  "color.h"
#include  "driver.h"


        /* AED command characters */

#define AEDFMT  "1888N" /* Format string to send to AED */
#define CSTAT   0100    /* Console status: lower case */
#define SCT     75      /* Set color lookup table */
#define SEC     67      /* Set color for vector drawing */
#define MOV     81      /* Set CAP (current access pointer) to x, y */
#define OPT     40      /* Miscellaneous terminal control */
#define SEN     71      /* Set encoding types */
#define RST     48      /* Reset terminal */
#define FFD     12      /* Clear screen */
#define EJC     85      /* Enable Joystick cursor positioning */
#define DJC     100     /* Disable Joystick cursor positioning */
#define SCC     99      /* Set Cursor Colors */
#define SCP     93      /* Set Cursor Parameters */
#define DFR     111     /* Draw Filled Rectangle */
#define RCP     106     /* Read Cursor Position */
#define ESC     27      /* Escape starts a command sequence */
#define SCS     96      /* Set Console Status */
#define END     1       /* Ctrl-A used to terminate command mode */

#define BLK     0       /* color table entry for black */
#define WHT     7       /* color table entry for white */

#define command(c)      (putc(ESC, stdout), putc(c, stdout))
#define byte(b)         putc(b, stdout)
#define string(s)       fputs(s, stdout)
#define flush()         fflush(stdout)

#define  GAMMA          2.5             /* exponent for color correction */

#define  NCOLORS        248             /* our color table size */
#define  MINPIX         8               /* minimum hardware color */

#define  NCOLS          512             /* maximum # columns for output */
#define  NROWS          483-COMHT       /* maximum # rows for output */
#define  COMHT          16              /* height of command line */
#define  COMCW          63              /* maximum chars on command line */

static void aed_errout(char*);
static void longwait(int t);
static void aedgetcap(int  *xp, int *yp);
static void aedsetcap(int  x, int y);
static dr_newcolrf_t anewcolr;
static void aedcoord(int  x, int y);

static dr_closef_t aed_close;
static dr_clearf_t aed_clear;
static dr_paintrf_t aed_paintr;
static dr_getcurf_t aed_getcur;
static dr_comoutf_t comout;

static struct driver  aed_driver = {
        aed_close, aed_clear, aed_paintr, aed_getcur,
        aed_comout, NULL, NULL,
        1.0, NCOLS, NROWS
};


struct driver *
aed_init(name, id)                      /* open AED */
char  *name, *id;
{
        if (ttyset(&aed_driver, fileno(stdin)) < 0) {   /* set tty driver */
                eputs("cannot access terminal\n");
                return(NULL);
        }
        command(RST);                                   /* reset AED */
        longwait(2);
        command(OPT);
        byte(6); byte(1);                               /* AED command set */
        command(SEN);
        string(AEDFMT);
        command(SCS);                                   /* set console status */
        byte(CSTAT);
        command(SCC);                                   /* set cursor type */
        byte(BLK); byte(WHT); byte(15);
        command(SCP);
        byte('+'); byte(0); byte(1);
        make_gmap(GAMMA);                               /* make color map */
        erract[USER].pf =                               /* set error vector */
        erract[SYSTEM].pf =
        erract[INTERNAL].pf =
        erract[CONSISTENCY].pf = aed_errout;
        erract[COMMAND].pf = aed_errout;
        if (erract[WARNING].pf != NULL)
                erract[WARNING].pf = aed_errout;
        return(&aed_driver);
}


static void
aed_close(void)                                 /* close AED */
{
        erract[USER].pf =                       /* reset error vector */
        erract[SYSTEM].pf =
        erract[INTERNAL].pf =
        erract[CONSISTENCY].pf = eputs;
        erract[COMMAND].pf = NULL;
        if (erract[WARNING].pf != NULL)
                erract[WARNING].pf = wputs;
        aedsetcap(0, 0);                        /* go to bottom */
        command(SEC);
        byte(WHT);                              /* white text */
        byte(END);
        byte('\n');                             /* scroll */
        flush();
        ttydone();
}


static
aed_clear(x, y)                                 /* clear AED */
int  x, y;
{
        command(FFD);
        new_ctab(NCOLORS);                      /* init color table */
        flush();
}


static void
aed_paintr(col, xmin, ymin, xmax, ymax)         /* paint a rectangle */
COLOR  col;
int  xmin, ymin, xmax, ymax;
{
        int  ndx;

        ndx = get_pixel(col, anewcolr);         /* calls anewcolr() */
        command(SEC);                           /* draw rectangle */
        byte(ndx+MINPIX);
        aedsetcap(xmin, ymin+COMHT);
        command(DFR);
        aedcoord(xmax-1, ymax+(-1+COMHT));
        flush();
}


static int
aed_getcur(xp, yp)                      /* get cursor position */
int  *xp, *yp;
{
        int  com;

        command(EJC);                   /* enable cursor */
        com = getch();                  /* get key */
        command(DJC);                   /* disable cursor */
        aedgetcap(xp, yp);              /* get cursor position */
        *yp -= COMHT;                   /* convert coordinates */
        return(com);                    /* return key hit */
}


static void
aed_comout(out)                         /* output to command line */
register char  *out;
{
        static int  newl = 1;
        static int  inmsg = 0;

        while (*out) {
                if (newl) {                     /* new line */
                        command(SEC);
                        byte(BLK);
                        aedsetcap(0, 0);
                        command(DFR);
                        aedcoord(NCOLS-1, COMHT-1);
                        aedsetcap(1, 4);
                        command(SEC);           /* white text */
                        byte(WHT);
                        byte(END);
                        newl = 0;
                }
                switch (*out) {
                case '\n':                      /* end of line */
                        newl = 1;
                /* fall through */
                case '\r':
                        inmsg = 0;
                        byte('\r');
                        break;
                case '\b':                      /* back space */
                        if (inmsg > 0 && --inmsg < COMCW)
                                byte('\b');
                        break;
                default:                        /* character */
                        if (inmsg++ < COMCW)
                                byte(*out);
                        break;
                }
                out++;
        }
        flush();
}


static void
aed_errout(msg)                         /* print an error message */
char  *msg;
{
        aed_comout(msg);
        if (*msg && msg[strlen(msg)-1] == '\n')
                longwait(2);
}


/*
 * aedsetcap - sets AED's current access pointer to (x, y).
 */

static void
aedsetcap(x, y)
register int  x, y;
{
        command(MOV);
        aedcoord(x, y);
}

/*
 * aedcoord - puts out an (x, y) coordinate in AED 8 bit format.
 */

static void
aedcoord(x, y)
register int  x, y;
{
        byte(((x >> 4) & 0x30) | ((y >> 8) & 0x3));
        byte(x & 0xff);
        byte(y & 0xff);
}


static void
aedgetcap(xp, yp)               /* get cursor postion */
int  *xp, *yp;
{
        register int  c;
                                /* get cursor postition */
        command(RCP);
        flush();
        c = getch();
        *xp = (c & 0x30) << 4;
        *yp = (c & 0x3) << 8;
        *xp |= getch();
        *yp |= getch();
}


static void
anewcolr(index, r, g, b)                /* enter a color into our table */
int  index;
int  r, g, b;
{
        command(SCT);
        byte((index+MINPIX)&255);
        byte(1);
        byte(r);
        byte(g);
        byte(b);
        flush();
}


static void
longwait(t)             /* longer wait */
int  t;
{
        flush();
        sleep(t);
}
Revision:	2.6
Committed:	Tue Mar 30 16:13:00 2004 UTC (20 years, 1 month ago) by schorsch
Content type:	text/plain
Branch:	MAIN
CVS Tags:	rad3R6P1, rad3R6
Changes since 2.5:	+8 -7 lines
Log Message:	Continued ANSIfication. There are only bits and pieces left now.
#	User	Rev	Content
1	greg	1.1	#ifndef lint
2	schorsch	2.6	static const char RCSid[] = "$Id: aed.c,v 2.5 2003/08/20 10:00:09 schorsch Exp $";
3	greg	1.1	#endif
4			/*
5			* aed.c - driver for AED 512 terminal.
6	greg	2.3	*/
7
8	greg	2.4	#include "copyright.h"
9	greg	1.1
10			#include <stdio.h>
11
12	schorsch	2.5	#include "rterror.h"
13			#include "color.h"
14	greg	1.1	#include "driver.h"
15
16
17			/* AED command characters */
18
19			#define AEDFMT "1888N" /* Format string to send to AED */
20			#define CSTAT 0100 /* Console status: lower case */
21			#define SCT 75 /* Set color lookup table */
22			#define SEC 67 /* Set color for vector drawing */
23			#define MOV 81 /* Set CAP (current access pointer) to x, y */
24			#define OPT 40 /* Miscellaneous terminal control */
25			#define SEN 71 /* Set encoding types */
26			#define RST 48 /* Reset terminal */
27			#define FFD 12 /* Clear screen */
28			#define EJC 85 /* Enable Joystick cursor positioning */
29			#define DJC 100 /* Disable Joystick cursor positioning */
30			#define SCC 99 /* Set Cursor Colors */
31			#define SCP 93 /* Set Cursor Parameters */
32			#define DFR 111 /* Draw Filled Rectangle */
33			#define RCP 106 /* Read Cursor Position */
34			#define ESC 27 /* Escape starts a command sequence */
35			#define SCS 96 /* Set Console Status */
36			#define END 1 /* Ctrl-A used to terminate command mode */
37
38			#define BLK 0 /* color table entry for black */
39			#define WHT 7 /* color table entry for white */
40
41			#define command(c) (putc(ESC, stdout), putc(c, stdout))
42			#define byte(b) putc(b, stdout)
43			#define string(s) fputs(s, stdout)
44			#define flush() fflush(stdout)
45
46	greg	1.3	#define GAMMA 2.5 /* exponent for color correction */
47	greg	1.1
48	greg	1.3	#define NCOLORS 248 /* our color table size */
49	greg	1.2	#define MINPIX 8 /* minimum hardware color */
50	greg	1.1
51			#define NCOLS 512 /* maximum # columns for output */
52	greg	1.6	#define NROWS 483-COMHT /* maximum # rows for output */
53	greg	1.1	#define COMHT 16 /* height of command line */
54			#define COMCW 63 /* maximum chars on command line */
55
56	schorsch	2.5	static void aed_errout(char*);
57			static void longwait(int t);
58			static void aedgetcap(int xp, int yp);
59			static void aedsetcap(int x, int y);
60	schorsch	2.6	static dr_newcolrf_t anewcolr;
61	schorsch	2.5	static void aedcoord(int x, int y);
62	schorsch	2.6
63			static dr_closef_t aed_close;
64			static dr_clearf_t aed_clear;
65			static dr_paintrf_t aed_paintr;
66			static dr_getcurf_t aed_getcur;
67			static dr_comoutf_t comout;
68	greg	1.1
69			static struct driver aed_driver = {
70			aed_close, aed_clear, aed_paintr, aed_getcur,
71	greg	1.7	aed_comout, NULL, NULL,
72	greg	1.6	1.0, NCOLS, NROWS
73	greg	1.1	};
74
75
76			struct driver *
77	greg	1.5	aed_init(name, id) /* open AED */
78			char name, id;
79	greg	1.1	{
80			if (ttyset(&aed_driver, fileno(stdin)) < 0) { /* set tty driver */
81	gregl	2.2	eputs("cannot access terminal\n");
82	greg	1.1	return(NULL);
83			}
84			command(RST); /* reset AED */
85			longwait(2);
86			command(OPT);
87			byte(6); byte(1); /* AED command set */
88			command(SEN);
89			string(AEDFMT);
90			command(SCS); /* set console status */
91			byte(CSTAT);
92			command(SCC); /* set cursor type */
93			byte(BLK); byte(WHT); byte(15);
94			command(SCP);
95			byte('+'); byte(0); byte(1);
96	greg	1.4	make_gmap(GAMMA); /* make color map */
97	gregl	2.2	erract[USER].pf = /* set error vector */
98			erract[SYSTEM].pf =
99			erract[INTERNAL].pf =
100			erract[CONSISTENCY].pf = aed_errout;
101			erract[COMMAND].pf = aed_errout;
102			if (erract[WARNING].pf != NULL)
103			erract[WARNING].pf = aed_errout;
104	greg	1.1	return(&aed_driver);
105			}
106
107
108	schorsch	2.5	static void
109			aed_close(void) /* close AED */
110	greg	1.1	{
111	gregl	2.2	erract[USER].pf = /* reset error vector */
112			erract[SYSTEM].pf =
113			erract[INTERNAL].pf =
114			erract[CONSISTENCY].pf = eputs;
115			erract[COMMAND].pf = NULL;
116			if (erract[WARNING].pf != NULL)
117			erract[WARNING].pf = wputs;
118	greg	1.1	aedsetcap(0, 0); /* go to bottom */
119			command(SEC);
120			byte(WHT); /* white text */
121			byte(END);
122			byte('\n'); /* scroll */
123			flush();
124			ttydone();
125			}
126
127
128			static
129			aed_clear(x, y) /* clear AED */
130			int x, y;
131			{
132			command(FFD);
133	greg	1.4	new_ctab(NCOLORS); /* init color table */
134	greg	1.3	flush();
135	greg	1.1	}
136
137
138	schorsch	2.5	static void
139	greg	1.1	aed_paintr(col, xmin, ymin, xmax, ymax) /* paint a rectangle */
140			COLOR col;
141			int xmin, ymin, xmax, ymax;
142			{
143	greg	1.3	int ndx;
144
145	greg	1.4	ndx = get_pixel(col, anewcolr); /* calls anewcolr() */
146	greg	1.3	command(SEC); /* draw rectangle */
147			byte(ndx+MINPIX);
148	greg	1.1	aedsetcap(xmin, ymin+COMHT);
149			command(DFR);
150			aedcoord(xmax-1, ymax+(-1+COMHT));
151			flush();
152			}
153
154
155			static int
156			aed_getcur(xp, yp) /* get cursor position */
157			int xp, yp;
158			{
159			int com;
160
161			command(EJC); /* enable cursor */
162			com = getch(); /* get key */
163			command(DJC); /* disable cursor */
164			aedgetcap(xp, yp); /* get cursor position */
165			yp -= COMHT; / convert coordinates */
166			return(com); /* return key hit */
167			}
168
169
170	schorsch	2.5	static void
171	greg	1.1	aed_comout(out) /* output to command line */
172			register char *out;
173			{
174			static int newl = 1;
175			static int inmsg = 0;
176
177			while (*out) {
178			if (newl) { /* new line */
179			command(SEC);
180			byte(BLK);
181			aedsetcap(0, 0);
182			command(DFR);
183			aedcoord(NCOLS-1, COMHT-1);
184			aedsetcap(1, 4);
185			command(SEC); /* white text */
186			byte(WHT);
187			byte(END);
188			newl = 0;
189			}
190			switch (*out) {
191			case '\n': /* end of line */
192			newl = 1;
193			/* fall through */
194			case '\r':
195			inmsg = 0;
196			byte('\r');
197			break;
198			case '\b': /* back space */
199			if (inmsg > 0 && --inmsg < COMCW)
200			byte('\b');
201			break;
202			default: /* character */
203			if (inmsg++ < COMCW)
204			byte(*out);
205			break;
206			}
207			out++;
208			}
209			flush();
210			}
211
212
213	schorsch	2.5	static void
214	greg	1.1	aed_errout(msg) /* print an error message */
215			char *msg;
216			{
217			aed_comout(msg);
218			if (*msg && msg[strlen(msg)-1] == '\n')
219			longwait(2);
220			}
221
222
223			/*
224			* aedsetcap - sets AED's current access pointer to (x, y).
225			*/
226
227	schorsch	2.5	static void
228	greg	1.1	aedsetcap(x, y)
229			register int x, y;
230			{
231			command(MOV);
232			aedcoord(x, y);
233			}
234
235			/*
236			* aedcoord - puts out an (x, y) coordinate in AED 8 bit format.
237			*/
238
239	schorsch	2.5	static void
240	greg	1.1	aedcoord(x, y)
241			register int x, y;
242			{
243			byte(((x >> 4) & 0x30) \| ((y >> 8) & 0x3));
244			byte(x & 0xff);
245			byte(y & 0xff);
246			}
247
248
249	schorsch	2.5	static void
250	greg	1.1	aedgetcap(xp, yp) /* get cursor postion */
251			int xp, yp;
252			{
253			register int c;
254			/* get cursor postition */
255			command(RCP);
256			flush();
257			c = getch();
258			*xp = (c & 0x30) << 4;
259			*yp = (c & 0x3) << 8;
260			*xp \|= getch();
261			*yp \|= getch();
262			}
263
264
265	schorsch	2.5	static void
266	greg	1.3	anewcolr(index, r, g, b) /* enter a color into our table */
267			int index;
268			int r, g, b;
269	greg	1.1	{
270	greg	1.3	command(SCT);
271			byte((index+MINPIX)&255);
272			byte(1);
273			byte(r);
274			byte(g);
275			byte(b);
276			flush();
277	greg	1.1	}
278
279
280	schorsch	2.5	static void
281	greg	1.1	longwait(t) /* longer wait */
282			int t;
283			{
284			flush();
285			sleep(t);
286			}