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 #include <linux/fb.h>
50
51 #include <asm/io.h>
52
53 #include <video/sticore.h>
54
55 /* switching to graphics mode */
56 #define BLANK 0
57 static int vga_is_gfx;
58
59 #define STI_DEF_FONT sticon_sti->font
60
61 /* borrowed from fbcon.c */
62 #define FNTREFCOUNT(fd) (fd->refcount)
63 #define FNTCRC(fd) (fd->crc)
64 static struct sti_cooked_font *font_data[MAX_NR_CONSOLES];
65
66 /* this is the sti_struct used for this console */
67 static struct sti_struct *sticon_sti;
68
sticon_startup(void)69 static const char *sticon_startup(void)
70 {
71 return "STI console";
72 }
73
sticon_putc(struct vc_data * conp,int c,int ypos,int xpos)74 static void sticon_putc(struct vc_data *conp, int c, int ypos, int xpos)
75 {
76 if (vga_is_gfx || console_blanked)
77 return;
78
79 if (conp->vc_mode != KD_TEXT)
80 return;
81
82 sti_putc(sticon_sti, c, ypos, xpos, font_data[conp->vc_num]);
83 }
84
sticon_putcs(struct vc_data * conp,const unsigned short * s,int count,int ypos,int xpos)85 static void sticon_putcs(struct vc_data *conp, const unsigned short *s,
86 int count, int ypos, int xpos)
87 {
88 if (vga_is_gfx || console_blanked)
89 return;
90
91 if (conp->vc_mode != KD_TEXT)
92 return;
93
94 while (count--) {
95 sti_putc(sticon_sti, scr_readw(s++), ypos, xpos++,
96 font_data[conp->vc_num]);
97 }
98 }
99
sticon_cursor(struct vc_data * conp,int mode)100 static void sticon_cursor(struct vc_data *conp, int mode)
101 {
102 unsigned short car1;
103
104 /* no cursor update if screen is blanked */
105 if (vga_is_gfx || console_blanked)
106 return;
107
108 car1 = conp->vc_screenbuf[conp->state.x + conp->state.y * conp->vc_cols];
109 switch (mode) {
110 case CM_ERASE:
111 sti_putc(sticon_sti, car1, conp->state.y, conp->state.x,
112 font_data[conp->vc_num]);
113 break;
114 case CM_MOVE:
115 case CM_DRAW:
116 switch (CUR_SIZE(conp->vc_cursor_type)) {
117 case CUR_UNDERLINE:
118 case CUR_LOWER_THIRD:
119 case CUR_LOWER_HALF:
120 case CUR_TWO_THIRDS:
121 case CUR_BLOCK:
122 sti_putc(sticon_sti, (car1 & 255) + (0 << 8) + (7 << 11),
123 conp->state.y, conp->state.x, font_data[conp->vc_num]);
124 break;
125 }
126 break;
127 }
128 }
129
sticon_scroll(struct vc_data * conp,unsigned int t,unsigned int b,enum con_scroll dir,unsigned int count)130 static bool sticon_scroll(struct vc_data *conp, unsigned int t,
131 unsigned int b, enum con_scroll dir, unsigned int count)
132 {
133 struct sti_struct *sti = sticon_sti;
134
135 if (vga_is_gfx)
136 return false;
137
138 sticon_cursor(conp, CM_ERASE);
139
140 switch (dir) {
141 case SM_UP:
142 sti_bmove(sti, t + count, 0, t, 0, b - t - count, conp->vc_cols,
143 font_data[conp->vc_num]);
144 sti_clear(sti, b - count, 0, count, conp->vc_cols,
145 conp->vc_video_erase_char, font_data[conp->vc_num]);
146 break;
147
148 case SM_DOWN:
149 sti_bmove(sti, t, 0, t + count, 0, b - t - count, conp->vc_cols,
150 font_data[conp->vc_num]);
151 sti_clear(sti, t, 0, count, conp->vc_cols,
152 conp->vc_video_erase_char, font_data[conp->vc_num]);
153 break;
154 }
155
156 return false;
157 }
158
sticon_set_def_font(int unit)159 static void sticon_set_def_font(int unit)
160 {
161 if (font_data[unit] != STI_DEF_FONT) {
162 if (--FNTREFCOUNT(font_data[unit]) == 0) {
163 kfree(font_data[unit]->raw_ptr);
164 kfree(font_data[unit]);
165 }
166 font_data[unit] = STI_DEF_FONT;
167 }
168 }
169
sticon_set_font(struct vc_data * vc,struct console_font * op,unsigned int vpitch)170 static int sticon_set_font(struct vc_data *vc, struct console_font *op,
171 unsigned int vpitch)
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) || (vpitch != 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);
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
sticon_font_default(struct vc_data * vc,struct console_font * op,char * name)263 static int sticon_font_default(struct vc_data *vc, struct console_font *op, char *name)
264 {
265 sticon_set_def_font(vc->vc_num);
266
267 return 0;
268 }
269
sticon_font_set(struct vc_data * vc,struct console_font * font,unsigned int vpitch,unsigned int flags)270 static int sticon_font_set(struct vc_data *vc, struct console_font *font,
271 unsigned int vpitch, unsigned int flags)
272 {
273 return sticon_set_font(vc, font, vpitch);
274 }
275
sticon_init(struct vc_data * c,int init)276 static void sticon_init(struct vc_data *c, int init)
277 {
278 struct sti_struct *sti = sticon_sti;
279 int vc_cols, vc_rows;
280
281 sti_set(sti, 0, 0, sti_onscreen_y(sti), sti_onscreen_x(sti), 0);
282 vc_cols = sti_onscreen_x(sti) / sti->font->width;
283 vc_rows = sti_onscreen_y(sti) / sti->font->height;
284 c->vc_can_do_color = 1;
285
286 if (init) {
287 c->vc_cols = vc_cols;
288 c->vc_rows = vc_rows;
289 } else {
290 vc_resize(c, vc_cols, vc_rows);
291 }
292 }
293
sticon_deinit(struct vc_data * c)294 static void sticon_deinit(struct vc_data *c)
295 {
296 int i;
297
298 /* free memory used by user font */
299 for (i = 0; i < MAX_NR_CONSOLES; i++)
300 sticon_set_def_font(i);
301 }
302
sticon_clear(struct vc_data * conp,int sy,int sx,int height,int width)303 static void sticon_clear(struct vc_data *conp, int sy, int sx, int height,
304 int width)
305 {
306 if (!height || !width)
307 return;
308
309 sti_clear(sticon_sti, sy, sx, height, width,
310 conp->vc_video_erase_char, font_data[conp->vc_num]);
311 }
312
sticon_switch(struct vc_data * conp)313 static int sticon_switch(struct vc_data *conp)
314 {
315 return 1; /* needs refreshing */
316 }
317
sticon_blank(struct vc_data * c,int blank,int mode_switch)318 static int sticon_blank(struct vc_data *c, int blank, int mode_switch)
319 {
320 if (blank == 0) {
321 if (mode_switch)
322 vga_is_gfx = 0;
323 return 1;
324 }
325 sti_clear(sticon_sti, 0, 0, c->vc_rows, c->vc_cols, BLANK,
326 font_data[c->vc_num]);
327 if (mode_switch)
328 vga_is_gfx = 1;
329 return 1;
330 }
331
sticon_build_attr(struct vc_data * conp,u8 color,enum vc_intensity intens,bool blink,bool underline,bool reverse,bool italic)332 static u8 sticon_build_attr(struct vc_data *conp, u8 color,
333 enum vc_intensity intens,
334 bool blink, bool underline, bool reverse,
335 bool italic)
336 {
337 u8 fg = color & 7;
338 u8 bg = (color & 0x70) >> 4;
339
340 if (reverse)
341 return (fg << 3) | bg;
342 else
343 return (bg << 3) | fg;
344 }
345
sticon_invert_region(struct vc_data * conp,u16 * p,int count)346 static void sticon_invert_region(struct vc_data *conp, u16 *p, int count)
347 {
348 int col = 1; /* vga_can_do_color; */
349
350 while (count--) {
351 u16 a = scr_readw(p);
352
353 if (col)
354 a = ((a) & 0x88ff) | (((a) & 0x7000) >> 4) | (((a) & 0x0700) << 4);
355 else
356 a = ((a & 0x0700) == 0x0100) ? 0x7000 : 0x7700;
357
358 scr_writew(a, p++);
359 }
360 }
361
362 static const struct consw sti_con = {
363 .owner = THIS_MODULE,
364 .con_startup = sticon_startup,
365 .con_init = sticon_init,
366 .con_deinit = sticon_deinit,
367 .con_clear = sticon_clear,
368 .con_putc = sticon_putc,
369 .con_putcs = sticon_putcs,
370 .con_cursor = sticon_cursor,
371 .con_scroll = sticon_scroll,
372 .con_switch = sticon_switch,
373 .con_blank = sticon_blank,
374 .con_font_set = sticon_font_set,
375 .con_font_default = sticon_font_default,
376 .con_build_attr = sticon_build_attr,
377 .con_invert_region = sticon_invert_region,
378 };
379
380
381
sticonsole_init(void)382 static int __init sticonsole_init(void)
383 {
384 int err, i;
385
386 /* already initialized ? */
387 if (sticon_sti)
388 return 0;
389
390 sticon_sti = sti_get_rom(0);
391 if (!sticon_sti)
392 return -ENODEV;
393
394 for (i = 0; i < MAX_NR_CONSOLES; i++)
395 font_data[i] = STI_DEF_FONT;
396
397 pr_info("sticon: Initializing STI text console on %s at [%s]\n",
398 sticon_sti->sti_data->inq_outptr.dev_name,
399 sticon_sti->pa_path);
400 console_lock();
401 err = do_take_over_console(&sti_con, 0, MAX_NR_CONSOLES - 1,
402 PAGE0->mem_cons.cl_class != CL_DUPLEX);
403 console_unlock();
404
405 return err;
406 }
407
408 module_init(sticonsole_init);
409 MODULE_LICENSE("GPL");
410