xref: /openbmc/linux/drivers/video/console/sticon.c (revision 79f382b9) 
1 /*
2  *  linux/drivers/video/console/sticon.c - console driver using HP's STI firmware
3  *
4  *	Copyright (C) 2000 Philipp Rumpf <prumpf@tux.org>
5  *	Copyright (C) 2002-2020 Helge Deller <deller@gmx.de>
6  *
7  *  Based on linux/drivers/video/vgacon.c and linux/drivers/video/fbcon.c,
8  *  which were
9  *
10  *	Created 28 Sep 1997 by Geert Uytterhoeven
11  *	Rewritten by Martin Mares <mj@ucw.cz>, July 1998
12  *	Copyright (C) 1991, 1992  Linus Torvalds
13  *			    1995  Jay Estabrook
14  *	Copyright (C) 1995 Geert Uytterhoeven
15  *	Copyright (C) 1993 Bjoern Brauel
16  *			   Roman Hodek
17  *	Copyright (C) 1993 Hamish Macdonald
18  *			   Greg Harp
19  *	Copyright (C) 1994 David Carter [carter@compsci.bristol.ac.uk]
20  *
21  *	      with work by William Rucklidge (wjr@cs.cornell.edu)
22  *			   Geert Uytterhoeven
23  *			   Jes Sorensen (jds@kom.auc.dk)
24  *			   Martin Apel
25  *	      with work by Guenther Kelleter
26  *			   Martin Schaller
27  *			   Andreas Schwab
28  *			   Emmanuel Marty (core@ggi-project.org)
29  *			   Jakub Jelinek (jj@ultra.linux.cz)
30  *			   Martin Mares <mj@ucw.cz>
31  *
32  *  This file is subject to the terms and conditions of the GNU General Public
33  *  License.  See the file COPYING in the main directory of this archive for
34  *  more details.
35  *
36  */
37 
38 #include <linux/init.h>
39 #include <linux/kernel.h>
40 #include <linux/console.h>
41 #include <linux/errno.h>
42 #include <linux/vt_kern.h>
43 #include <linux/kd.h>
44 #include <linux/selection.h>
45 #include <linux/module.h>
46 #include <linux/slab.h>
47 #include <linux/font.h>
48 #include <linux/crc32.h>
49 
50 #include <asm/io.h>
51 
52 #include "../fbdev/sticore.h"
53 
54 /* switching to graphics mode */
55 #define BLANK 0
56 static int vga_is_gfx;
57 
58 #define STI_DEF_FONT	sticon_sti->font
59 
60 /* borrowed from fbcon.c */
61 #define FNTREFCOUNT(fd)	(fd->refcount)
62 #define FNTCRC(fd)	(fd->crc)
63 static struct sti_cooked_font *font_data[MAX_NR_CONSOLES];
64 
65 /* this is the sti_struct used for this console */
66 static struct sti_struct *sticon_sti;
67 
68 static const char *sticon_startup(void)
69 {
70     return "STI console";
71 }
72 
73 static void sticon_putc(struct vc_data *conp, int c, int ypos, int xpos)
74 {
75     if (vga_is_gfx || console_blanked)
76 	    return;
77 
78     if (conp->vc_mode != KD_TEXT)
79     	    return;
80 
81     sti_putc(sticon_sti, c, ypos, xpos, font_data[conp->vc_num]);
82 }
83 
84 static void sticon_putcs(struct vc_data *conp, const unsigned short *s,
85 			 int count, int ypos, int xpos)
86 {
87     if (vga_is_gfx || console_blanked)
88 	    return;
89 
90     if (conp->vc_mode != KD_TEXT)
91     	    return;
92 
93     while (count--) {
94 	sti_putc(sticon_sti, scr_readw(s++), ypos, xpos++,
95 		 font_data[conp->vc_num]);
96     }
97 }
98 
99 static void sticon_cursor(struct vc_data *conp, int mode)
100 {
101     unsigned short car1;
102 
103     /* no cursor update if screen is blanked */
104     if (vga_is_gfx || console_blanked)
105 	return;
106 
107     car1 = conp->vc_screenbuf[conp->state.x + conp->state.y * conp->vc_cols];
108     switch (mode) {
109     case CM_ERASE:
110 	sti_putc(sticon_sti, car1, conp->state.y, conp->state.x,
111 		 font_data[conp->vc_num]);
112 	break;
113     case CM_MOVE:
114     case CM_DRAW:
115 	switch (CUR_SIZE(conp->vc_cursor_type)) {
116 	case CUR_UNDERLINE:
117 	case CUR_LOWER_THIRD:
118 	case CUR_LOWER_HALF:
119 	case CUR_TWO_THIRDS:
120 	case CUR_BLOCK:
121 	    sti_putc(sticon_sti, (car1 & 255) + (0 << 8) + (7 << 11),
122 		     conp->state.y, conp->state.x, font_data[conp->vc_num]);
123 	    break;
124 	}
125 	break;
126     }
127 }
128 
129 static bool sticon_scroll(struct vc_data *conp, unsigned int t,
130 		unsigned int b, enum con_scroll dir, unsigned int count)
131 {
132     struct sti_struct *sti = sticon_sti;
133 
134     if (vga_is_gfx)
135         return false;
136 
137     sticon_cursor(conp, CM_ERASE);
138 
139     switch (dir) {
140     case SM_UP:
141 	sti_bmove(sti, t + count, 0, t, 0, b - t - count, conp->vc_cols,
142 		  font_data[conp->vc_num]);
143 	sti_clear(sti, b - count, 0, count, conp->vc_cols,
144 		  conp->vc_video_erase_char, font_data[conp->vc_num]);
145 	break;
146 
147     case SM_DOWN:
148 	sti_bmove(sti, t, 0, t + count, 0, b - t - count, conp->vc_cols,
149 		  font_data[conp->vc_num]);
150 	sti_clear(sti, t, 0, count, conp->vc_cols,
151 		  conp->vc_video_erase_char, font_data[conp->vc_num]);
152 	break;
153     }
154 
155     return false;
156 }
157 
158 static int sticon_set_def_font(int unit, struct console_font *op)
159 {
160 	if (font_data[unit] != STI_DEF_FONT) {
161 		if (--FNTREFCOUNT(font_data[unit]) == 0) {
162 			kfree(font_data[unit]->raw_ptr);
163 			kfree(font_data[unit]);
164 		}
165 		font_data[unit] = STI_DEF_FONT;
166 	}
167 
168 	return 0;
169 }
170 
171 static int sticon_set_font(struct vc_data *vc, struct console_font *op)
172 {
173 	struct sti_struct *sti = sticon_sti;
174 	int vc_cols, vc_rows, vc_old_cols, vc_old_rows;
175 	int unit = vc->vc_num;
176 	int w = op->width;
177 	int h = op->height;
178 	int size, i, bpc, pitch;
179 	struct sti_rom_font *new_font;
180 	struct sti_cooked_font *cooked_font;
181 	unsigned char *data = op->data, *p;
182 
183 	if ((w < 6) || (h < 6) || (w > 32) || (h > 32)
184 	    || (op->charcount != 256 && op->charcount != 512))
185 		return -EINVAL;
186 	pitch = ALIGN(w, 8) / 8;
187 	bpc = pitch * h;
188 	size = bpc * op->charcount;
189 
190 	new_font = kmalloc(sizeof(*new_font) + size, STI_LOWMEM);
191 	if (!new_font)
192 		return -ENOMEM;
193 
194 	new_font->first_char = 0;
195 	new_font->last_char = op->charcount - 1;
196 	new_font->width = w;
197 	new_font->height = h;
198 	new_font->font_type = STI_FONT_HPROMAN8;
199 	new_font->bytes_per_char = bpc;
200 	new_font->underline_height = 0;
201 	new_font->underline_pos = 0;
202 
203 	cooked_font = kzalloc(sizeof(*cooked_font), GFP_KERNEL);
204 	if (!cooked_font) {
205 		kfree(new_font);
206 		return -ENOMEM;
207 	}
208 	cooked_font->raw = new_font;
209 	cooked_font->raw_ptr = new_font;
210 	cooked_font->width = w;
211 	cooked_font->height = h;
212 	FNTREFCOUNT(cooked_font) = 0;	/* usage counter */
213 
214 	p = (unsigned char *) new_font;
215 	p += sizeof(*new_font);
216 	for (i = 0; i < op->charcount; i++) {
217 		memcpy(p, data, bpc);
218 		data += pitch*32;
219 		p += bpc;
220 	}
221 	FNTCRC(cooked_font) = crc32(0, new_font, size + sizeof(*new_font));
222 	sti_font_convert_bytemode(sti, cooked_font);
223 	new_font = cooked_font->raw_ptr;
224 
225 	/* check if font is already used by other console */
226 	for (i = 0; i < MAX_NR_CONSOLES; i++) {
227 		if (font_data[i] != STI_DEF_FONT
228 		    && (FNTCRC(font_data[i]) == FNTCRC(cooked_font))) {
229 			kfree(new_font);
230 			kfree(cooked_font);
231 			/* current font is the same as the new one */
232 			if (i == unit)
233 				return 0;
234 			cooked_font = font_data[i];
235 			new_font = cooked_font->raw_ptr;
236 			break;
237 		}
238 	}
239 
240 	/* clear screen with old font: we now may have less rows */
241 	vc_old_rows = vc->vc_rows;
242 	vc_old_cols = vc->vc_cols;
243 	sti_clear(sticon_sti, 0, 0, vc_old_rows, vc_old_cols,
244 		  vc->vc_video_erase_char, font_data[vc->vc_num]);
245 
246 	/* delete old font in case it is a user font */
247 	sticon_set_def_font(unit, NULL);
248 
249 	FNTREFCOUNT(cooked_font)++;
250 	font_data[unit] = cooked_font;
251 
252 	vc_cols = sti_onscreen_x(sti) / cooked_font->width;
253 	vc_rows = sti_onscreen_y(sti) / cooked_font->height;
254 	vc_resize(vc, vc_cols, vc_rows);
255 
256 	/* need to repaint screen if cols & rows are same as old font */
257 	if (vc_cols == vc_old_cols && vc_rows == vc_old_rows)
258 		update_screen(vc);
259 
260 	return 0;
261 }
262 
263 static int sticon_font_default(struct vc_data *vc, struct console_font *op, char *name)
264 {
265 	return sticon_set_def_font(vc->vc_num, op);
266 }
267 
268 static int sticon_font_set(struct vc_data *vc, struct console_font *font,
269 			   unsigned int flags)
270 {
271 	return sticon_set_font(vc, font);
272 }
273 
274 static void sticon_init(struct vc_data *c, int init)
275 {
276     struct sti_struct *sti = sticon_sti;
277     int vc_cols, vc_rows;
278 
279     sti_set(sti, 0, 0, sti_onscreen_y(sti), sti_onscreen_x(sti), 0);
280     vc_cols = sti_onscreen_x(sti) / sti->font->width;
281     vc_rows = sti_onscreen_y(sti) / sti->font->height;
282     c->vc_can_do_color = 1;
283 
284     if (init) {
285 	c->vc_cols = vc_cols;
286 	c->vc_rows = vc_rows;
287     } else {
288 	vc_resize(c, vc_cols, vc_rows);
289     }
290 }
291 
292 static void sticon_deinit(struct vc_data *c)
293 {
294     int i;
295 
296     /* free memory used by user font */
297     for (i = 0; i < MAX_NR_CONSOLES; i++)
298 	sticon_set_def_font(i, NULL);
299 }
300 
301 static void sticon_clear(struct vc_data *conp, int sy, int sx, int height,
302 			 int width)
303 {
304     if (!height || !width)
305 	return;
306 
307     sti_clear(sticon_sti, sy, sx, height, width,
308 	      conp->vc_video_erase_char, font_data[conp->vc_num]);
309 }
310 
311 static int sticon_switch(struct vc_data *conp)
312 {
313     return 1;	/* needs refreshing */
314 }
315 
316 static int sticon_blank(struct vc_data *c, int blank, int mode_switch)
317 {
318     if (blank == 0) {
319 	if (mode_switch)
320 	    vga_is_gfx = 0;
321 	return 1;
322     }
323     sti_clear(sticon_sti, 0, 0, c->vc_rows, c->vc_cols, BLANK,
324 	      font_data[c->vc_num]);
325     if (mode_switch)
326 	vga_is_gfx = 1;
327     return 1;
328 }
329 
330 static u8 sticon_build_attr(struct vc_data *conp, u8 color,
331 			    enum vc_intensity intens,
332 			    bool blink, bool underline, bool reverse,
333 			    bool italic)
334 {
335     u8 attr = ((color & 0x70) >> 1) | ((color & 7));
336 
337     if (reverse) {
338 	color = ((color >> 3) & 0x7) | ((color & 0x7) << 3);
339     }
340 
341     return attr;
342 }
343 
344 static void sticon_invert_region(struct vc_data *conp, u16 *p, int count)
345 {
346     int col = 1; /* vga_can_do_color; */
347 
348     while (count--) {
349 	u16 a = scr_readw(p);
350 
351 	if (col)
352 		a = ((a) & 0x88ff) | (((a) & 0x7000) >> 4) | (((a) & 0x0700) << 4);
353 	else
354 		a = ((a & 0x0700) == 0x0100) ? 0x7000 : 0x7700;
355 
356 	scr_writew(a, p++);
357     }
358 }
359 
360 static const struct consw sti_con = {
361 	.owner			= THIS_MODULE,
362 	.con_startup		= sticon_startup,
363 	.con_init		= sticon_init,
364 	.con_deinit		= sticon_deinit,
365 	.con_clear		= sticon_clear,
366 	.con_putc		= sticon_putc,
367 	.con_putcs		= sticon_putcs,
368 	.con_cursor		= sticon_cursor,
369 	.con_scroll		= sticon_scroll,
370 	.con_switch		= sticon_switch,
371 	.con_blank		= sticon_blank,
372 	.con_font_set		= sticon_font_set,
373 	.con_font_default	= sticon_font_default,
374 	.con_build_attr		= sticon_build_attr,
375 	.con_invert_region	= sticon_invert_region,
376 };
377 
378 
379 
380 static int __init sticonsole_init(void)
381 {
382     int err, i;
383 
384     /* already initialized ? */
385     if (sticon_sti)
386 	 return 0;
387 
388     sticon_sti = sti_get_rom(0);
389     if (!sticon_sti)
390 	return -ENODEV;
391 
392     for (i = 0; i < MAX_NR_CONSOLES; i++)
393 	font_data[i] = STI_DEF_FONT;
394 
395     pr_info("sticon: Initializing STI text console.\n");
396     console_lock();
397     err = do_take_over_console(&sti_con, 0, MAX_NR_CONSOLES - 1,
398 		PAGE0->mem_cons.cl_class != CL_DUPLEX);
399     console_unlock();
400 
401     return err;
402 }
403 
404 module_init(sticonsole_init);
405 MODULE_LICENSE("GPL");
406