vidcontrol.c revision 2089 
1/*-
2 * Copyright (c) 1994 S�ren Schmidt
3 * All rights reserved.
4 *
5 * Redistribution and use in source and binary forms, with or without
6 * modification, are permitted provided that the following conditions
7 * are met:
8 * 1. Redistributions of source code must retain the above copyright
9 *    notice, this list of conditions and the following disclaimer.
10 * 2. Redistributions in binary form must reproduce the above copyright
11 *    notice, this list of conditions and the following disclaimer in the
12 *    documentation and/or other materials provided with the distribution.
13 * 3. The name of the author may not be used to endorse or promote products
14 *    derived from this software withough specific prior written permission
15 *
16 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
17 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
18 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
19 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
20 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
21 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
22 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
23 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
24 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
25 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
26 *
27 *	$Id: vidcontrol.c,v 1.4 1994/05/26 04:13:59 jkh Exp $
28 */
29
30#include <ctype.h>
31#include <stdio.h>
32#include <machine/console.h>
33#include <sys/errno.h>
34#include "path.h"
35
36
37char 	legal_colors[16][16] = {
38	"black", "blue", "green", "cyan",
39	"red", "magenta", "brown", "white",
40	"grey", "lightblue", "lightgreen", "lightcyan",
41	"lightred", "lightmagenta", "yellow", "lightwhite"
42	};
43int 	hex = 0;
44int 	number, verbose = 0;
45char 	letter;
46struct 	vid_info info;
47
48
49char *
50nextarg(int ac, char **av, int *indp, int oc)
51{
52	if (*indp < ac)
53		return(av[(*indp)++]);
54	fprintf(stderr, "%s: option requires two arguments -- %c\n", av[0], oc);
55	usage();
56	exit(1);
57	return("");
58}
59
60
61char *
62mkfullname(const char *s1, const char *s2, const char *s3)
63{
64static char	*buf = NULL;
65static int	bufl = 0;
66int		f;
67
68
69	f = strlen(s1) + strlen(s2) + strlen(s3) + 1;
70	if (f > bufl)
71		if (buf)
72			buf = (char *)realloc(buf, f);
73		else
74			buf = (char *)malloc(f);
75	if (!buf) {
76		bufl = 0;
77		return(NULL);
78	}
79
80	bufl = f;
81	strcpy(buf, s1);
82	strcat(buf, s2);
83	strcat(buf, s3);
84	return(buf);
85}
86
87
88void
89load_scrnmap(char *filename)
90{
91	FILE *fd;
92	int i, size;
93	char *name;
94	scrmap_t scrnmap;
95	char *prefix[]  = {"", "", SCRNMAP_PATH, SCRNMAP_PATH, NULL};
96	char *postfix[] = {"", ".scm", "", ".scm"};
97
98	for (i=0; prefix[i]; i++) {
99		name = mkfullname(prefix[i], filename, postfix[i]);
100		if (fd = fopen(name, "r"))
101			break;
102	}
103	if (fd == NULL) {
104		perror("screenmap file not found");
105		return;
106	}
107	size = sizeof(scrnmap);
108	if (decode(fd, &scrnmap) != size) {
109		rewind(fd);
110		if (fread(&scrnmap, 1, size, fd) != size) {
111			fprintf(stderr, "bad scrnmap file\n");
112			close(fd);
113			return;
114		}
115	}
116	if (ioctl(0, PIO_SCRNMAP, &scrnmap) < 0)
117		perror("can't load screenmap");
118	close(fd);
119}
120
121
122void
123load_default_scrnmap()
124{
125	int i;
126	scrmap_t scrnmap;
127
128	for (i=0; i<256; i++)
129		*((char*)&scrnmap + i) = i;
130	if (ioctl(0, PIO_SCRNMAP, &scrnmap) < 0)
131		perror("can't load default screenmap");
132}
133
134
135void
136print_scrnmap()
137{
138	unsigned char map[256];
139	int i;
140
141	if (ioctl(0, GIO_SCRNMAP, &map) < 0) {
142		perror("getting scrnmap");
143		return;
144	}
145	for (i=0; i<sizeof(map); i++) {
146		if (i > 0 && i % 16 == 0)
147			fprintf(stdout, "\n");
148		if (hex)
149			fprintf(stdout, " %02x", map[i]);
150		else
151			fprintf(stdout, " %03d", map[i]);
152	}
153	fprintf(stdout, "\n");
154
155}
156
157
158void
159load_font(char *type, char *filename)
160{
161	FILE	*fd;
162	int	i, io, size;
163	char	*name, *fontmap;
164	char	*prefix[]  = {"", "", FONT_PATH, FONT_PATH, NULL};
165	char	*postfix[] = {"", ".fnt", "", ".fnt"};
166
167	for (i=0; prefix[i]; i++) {
168		name = mkfullname(prefix[i], filename, postfix[i]);
169		if (fd = fopen(name, "r"))
170			break;
171	}
172	if (fd == NULL) {
173		perror("font file not found");
174		return;
175	}
176	if (!strcmp(type, "8x8")) {
177		size = 8*256;
178		io = PIO_FONT8x8;
179	}
180	else if (!strcmp(type, "8x14")) {
181		size = 14*256;
182		io = PIO_FONT8x14;
183	}
184	else if (!strcmp(type, "8x16")) {
185		size = 16*256;
186		io = PIO_FONT8x16;
187	}
188	else {
189		perror("bad font size specification");
190		close(fd);
191		return;
192	}
193	fontmap = (char*) malloc(size);
194	if (decode(fd, fontmap) != size) {
195		rewind(fd);
196		if (fread(fontmap, 1, size, fd) != size) {
197			fprintf(stderr, "bad font file\n");
198			close(fd);
199			free(fontmap);
200			return;
201		}
202	}
203	if (ioctl(0, io, fontmap) < 0)
204		perror("can't load font");
205	close(fd);
206	free(fontmap);
207}
208
209
210void
211set_screensaver_timeout(char *arg)
212{
213	int nsec;
214
215	if (!strcmp(arg, "off"))
216		nsec = 0;
217	else {
218		nsec = atoi(arg);
219		if ((*arg == '\0') || (nsec < 1)) {
220			fprintf(stderr, "argument must be a positive number\n");
221			return;
222		}
223	}
224	if (ioctl(0, CONS_BLANKTIME, &nsec) == -1)
225		perror("setting screensaver period");
226}
227
228
229void
230set_screensaver_type(char *type)
231{
232	ssaver_t saver;
233	int i, e;
234
235	if (!strcmp(type, "help")) {
236		i = 0;
237		printf("available screen saver types:\n");
238		do {
239			saver.num = i;
240			e = ioctl(0, CONS_GSAVER, &saver);
241			i ++;
242			if (e == 0)
243				printf("\t%s\n", saver.name);
244		} while (e == 0);
245		if (e == -1 && errno != EIO)
246			perror("getting screensaver info");
247	} else {
248		i = 0;
249		do {
250			saver.num = i;
251			e = ioctl(0, CONS_GSAVER, &saver);
252			i ++;
253			if (e == 0 && !strcmp(type, saver.name)) {
254				if (ioctl(0, CONS_SSAVER, &saver) == -1)
255					perror("setting screensaver type");
256				return;
257			}
258		} while (e == 0);
259		if (e == -1 && errno != EIO)
260			perror("getting screensaver info");
261		else
262			fprintf(stderr, "%s: No such screensaver\n", type);
263	}
264}
265
266void
267set_cursor_values(char *size)
268{
269	int start, end;
270	int n;
271	char *v1;
272
273	start = strtol(size, &v1, 0);
274	if ((start < 0) || (*v1 != '.'))
275		goto badopt;
276	size = ++v1;
277	end = strtol(size, &v1, 0);
278	if ((end < 0) || (*size == '\0') || (*v1 != '\0')) {
279badopt:
280		fprintf(stderr,
281			"argument to -c must be start.end\n");
282		return;
283	}
284	if (verbose)
285		fprintf(stderr, "setting cursor to %d.%d\n", start, end);
286	fprintf(stdout, "[=%d;%dC", start, end);
287}
288
289
290int
291video_mode(int argc, char **argv, int *index)
292{
293	int mode;
294
295	if (*index < argc) {
296		if (!strcmp(argv[*index], "80x25"))
297			mode = CONS_80x25TEXT;
298		else if (!strcmp(argv[*index], "80x50"))
299			mode = CONS_80x50TEXT;
300		else
301			return;
302		if (ioctl(0, mode, NULL) < 0)
303			perror("Cannot set videomode");
304		(*index)++;
305	}
306	return;
307}
308
309
310int
311get_color_number(char *color)
312{
313	int i;
314
315	for (i=0; i<16; i++)
316		if (!strcmp(color, legal_colors[i]))
317			return i;
318	return -1;
319}
320
321
322int
323set_normal_colors(int argc, char **argv, int *index)
324{
325	int color;
326
327	if (*index < argc && (color = get_color_number(argv[*index])) != -1) {
328		(*index)++;
329		fprintf(stderr, "[=%dF", color);
330		if (*index < argc
331		    && (color = get_color_number(argv[*index])) != -1
332		    && color < 8) {
333			(*index)++;
334			fprintf(stderr, "[=%dG", color);
335		}
336	}
337}
338
339
340set_reverse_colors(int argc, char **argv, int *index)
341{
342	int color;
343
344	if ((color = get_color_number(argv[*(index)-1])) != -1) {
345		fprintf(stderr, "[=%dH", color);
346		if (*index < argc
347		    && (color = get_color_number(argv[*index])) != -1
348		    && color < 8) {
349			(*index)++;
350			fprintf(stderr, "[=%dI", color);
351		}
352	}
353}
354
355
356set_border_color(char *arg)
357{
358	int color;
359
360	if ((color = get_color_number(arg)) != -1) {
361		fprintf(stderr, "[=%dA", color);
362	}
363	else
364		usage();
365}
366
367
368test_frame()
369{
370	int i;
371
372	fprintf(stdout, "[=0G\n\n");
373	for (i=0; i<8; i++) {
374		fprintf(stdout, "[=15F[=0G        %2d [=%dF%-16s"
375				"[=15F[=0G        %2d [=%dF%-16s        "
376				"[=15F %2d [=%dGBACKGROUND[=0G\n",
377			i, i, legal_colors[i], i+8, i+8,
378			legal_colors[i+8], i, i);
379	}
380	fprintf(stdout, "[=%dF[=%dG[=%dH[=%dI\n",
381		info.mv_norm.fore, info.mv_norm.back,
382		info.mv_rev.fore, info.mv_rev.back);
383}
384
385
386usage()
387{
388	fprintf(stderr,
389"Usage: vidcontrol mode             (available modes: 80x25, 80x50)\n"
390"                  show             (show available colors)\n"
391"                  fgcol bgcol      (set fore- & background colors)\n"
392"                  -r fgcol bgcol   (set reverse fore- & background colors)\n"
393"                  -b color         (set border color)\n"
394"                  -c n.m           (set cursor start line n & end line m)\n"
395#if 0
396"                  -d               (dump screenmap to stdout)\n"
397#endif
398"                  -l filename      (load srceenmap file filename)\n"
399"                  -L               (load default screenmap)\n"
400"                  -f DxL filename  (load font, D dots wide & L lines high)\n"
401"                  -s saver | help  (set screensaver type or help for a list)\n"
402"                  -t N             (set screensaver timeout in seconds)\n"
403	);
404}
405
406
407void
408main(int argc, char **argv)
409{
410	extern char	*optarg;
411	extern int	optind;
412	int		opt;
413
414
415	info.size = sizeof(info);
416	if (ioctl(0, CONS_GETINFO, &info) < 0) {
417		perror("Must be on a vty");
418		exit(1);
419	}
420	while((opt = getopt(argc, argv, "b:c:df:l:Lr:s:t:vx")) != -1)
421		switch(opt) {
422			case 'c':
423				set_cursor_values(optarg);
424				break;
425			case 'b':
426				set_border_color(optarg);
427				break;
428			case 'd':
429				print_scrnmap();
430				break;
431			case 'f':
432				load_font(optarg,
433					nextarg(argc, argv, &optind, 'f'));
434				break;
435			case 'l':
436				load_scrnmap(optarg);
437				break;
438			case 'L':
439				load_default_scrnmap();
440				break;
441			case 'r':
442				set_reverse_colors(argc, argv, &optind);
443				break;
444			case 's':
445				set_screensaver_type(optarg);
446				break;
447			case 't':
448				set_screensaver_timeout(optarg);
449				break;
450			case 'v':
451				verbose = 1;
452				break;
453			case 'x':
454				hex = 1;
455				break;
456			default:
457				usage();
458				exit(1);
459		}
460	if (video_mode(argc, argv, &optind)) ;
461	if (set_normal_colors(argc, argv, &optind)) ;
462	if (optind < argc && !strcmp(argv[optind], "show")) {
463		test_frame();
464		optind++;
465	}
466	if ((optind != argc) || (argc == 1)) {
467		usage();
468		exit(1);
469	}
470	exit(0);
471}
472
473