1/*-
2 * SPDX-License-Identifier: BSD-2-Clause-FreeBSD
3 *
4 * Copyright (c) 2003 Peter Grehan
5 * All rights reserved.
6 *
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions
9 * are met:
10 * 1. Redistributions of source code must retain the above copyright
11 *    notice, this list of conditions and the following disclaimer.
12 * 2. Redistributions in binary form must reproduce the above copyright
13 *    notice, this list of conditions and the following disclaimer in the
14 *    documentation and/or other materials provided with the distribution.
15 *
16 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
17 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
18 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
19 * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
20 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
21 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
22 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
23 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
24 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
25 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
26 * SUCH DAMAGE.
27 */
28
29#include <sys/cdefs.h>
30__FBSDID("$FreeBSD$");
31
32#include <sys/param.h>
33#include <sys/systm.h>
34#include <sys/module.h>
35#include <sys/bus.h>
36#include <sys/kernel.h>
37#include <sys/sysctl.h>
38#include <sys/limits.h>
39#include <sys/conf.h>
40#include <sys/cons.h>
41#include <sys/proc.h>
42#include <sys/fcntl.h>
43#include <sys/malloc.h>
44#include <sys/fbio.h>
45#include <sys/consio.h>
46
47#include <machine/bus.h>
48#include <machine/sc_machdep.h>
49#include <machine/vm.h>
50
51#include <sys/rman.h>
52
53#include <dev/fb/fbreg.h>
54#include <dev/syscons/syscons.h>
55
56#include <dev/ofw/openfirm.h>
57#include <dev/ofw/ofw_bus.h>
58#include <dev/ofw/ofw_pci.h>
59#include <powerpc/ofw/ofw_syscons.h>
60
61static int ofwfb_ignore_mmap_checks = 1;
62static int ofwfb_reset_on_switch = 1;
63static SYSCTL_NODE(_hw, OID_AUTO, ofwfb, CTLFLAG_RD | CTLFLAG_MPSAFE, 0,
64    "ofwfb");
65SYSCTL_INT(_hw_ofwfb, OID_AUTO, relax_mmap, CTLFLAG_RW,
66    &ofwfb_ignore_mmap_checks, 0, "relaxed mmap bounds checking");
67SYSCTL_INT(_hw_ofwfb, OID_AUTO, reset_on_mode_switch, CTLFLAG_RW,
68    &ofwfb_reset_on_switch, 0, "reset the framebuffer driver on mode switch");
69
70extern u_char dflt_font_16[];
71extern u_char dflt_font_14[];
72extern u_char dflt_font_8[];
73
74static int ofwfb_configure(int flags);
75
76static vi_probe_t ofwfb_probe;
77static vi_init_t ofwfb_init;
78static vi_get_info_t ofwfb_get_info;
79static vi_query_mode_t ofwfb_query_mode;
80static vi_set_mode_t ofwfb_set_mode;
81static vi_save_font_t ofwfb_save_font;
82static vi_load_font_t ofwfb_load_font;
83static vi_show_font_t ofwfb_show_font;
84static vi_save_palette_t ofwfb_save_palette;
85static vi_load_palette_t ofwfb_load_palette;
86static vi_set_border_t ofwfb_set_border;
87static vi_save_state_t ofwfb_save_state;
88static vi_load_state_t ofwfb_load_state;
89static vi_set_win_org_t ofwfb_set_win_org;
90static vi_read_hw_cursor_t ofwfb_read_hw_cursor;
91static vi_set_hw_cursor_t ofwfb_set_hw_cursor;
92static vi_set_hw_cursor_shape_t ofwfb_set_hw_cursor_shape;
93static vi_blank_display_t ofwfb_blank_display;
94static vi_mmap_t ofwfb_mmap;
95static vi_ioctl_t ofwfb_ioctl;
96static vi_clear_t ofwfb_clear;
97static vi_fill_rect_t ofwfb_fill_rect;
98static vi_bitblt_t ofwfb_bitblt;
99static vi_diag_t ofwfb_diag;
100static vi_save_cursor_palette_t ofwfb_save_cursor_palette;
101static vi_load_cursor_palette_t ofwfb_load_cursor_palette;
102static vi_copy_t ofwfb_copy;
103static vi_putp_t ofwfb_putp;
104static vi_putc_t ofwfb_putc;
105static vi_puts_t ofwfb_puts;
106static vi_putm_t ofwfb_putm;
107
108static video_switch_t ofwfbvidsw = {
109	.probe			= ofwfb_probe,
110	.init			= ofwfb_init,
111	.get_info		= ofwfb_get_info,
112	.query_mode		= ofwfb_query_mode,
113	.set_mode		= ofwfb_set_mode,
114	.save_font		= ofwfb_save_font,
115	.load_font		= ofwfb_load_font,
116	.show_font		= ofwfb_show_font,
117	.save_palette		= ofwfb_save_palette,
118	.load_palette		= ofwfb_load_palette,
119	.set_border		= ofwfb_set_border,
120	.save_state		= ofwfb_save_state,
121	.load_state		= ofwfb_load_state,
122	.set_win_org		= ofwfb_set_win_org,
123	.read_hw_cursor		= ofwfb_read_hw_cursor,
124	.set_hw_cursor		= ofwfb_set_hw_cursor,
125	.set_hw_cursor_shape	= ofwfb_set_hw_cursor_shape,
126	.blank_display		= ofwfb_blank_display,
127	.mmap			= ofwfb_mmap,
128	.ioctl			= ofwfb_ioctl,
129	.clear			= ofwfb_clear,
130	.fill_rect		= ofwfb_fill_rect,
131	.bitblt			= ofwfb_bitblt,
132	.diag			= ofwfb_diag,
133	.save_cursor_palette	= ofwfb_save_cursor_palette,
134	.load_cursor_palette	= ofwfb_load_cursor_palette,
135	.copy			= ofwfb_copy,
136	.putp			= ofwfb_putp,
137	.putc			= ofwfb_putc,
138	.puts			= ofwfb_puts,
139	.putm			= ofwfb_putm,
140};
141
142/*
143 * bitmap depth-specific routines
144 */
145static vi_blank_display_t ofwfb_blank_display8;
146static vi_putc_t ofwfb_putc8;
147static vi_putm_t ofwfb_putm8;
148static vi_set_border_t ofwfb_set_border8;
149
150static vi_blank_display_t ofwfb_blank_display32;
151static vi_putc_t ofwfb_putc32;
152static vi_putm_t ofwfb_putm32;
153static vi_set_border_t ofwfb_set_border32;
154
155VIDEO_DRIVER(ofwfb, ofwfbvidsw, ofwfb_configure);
156
157extern sc_rndr_sw_t txtrndrsw;
158RENDERER(ofwfb, 0, txtrndrsw, gfb_set);
159
160RENDERER_MODULE(ofwfb, gfb_set);
161
162/*
163 * Define the iso6429-1983 colormap
164 */
165static struct {
166	uint8_t	red;
167	uint8_t	green;
168	uint8_t	blue;
169} ofwfb_cmap[16] = {		/*  #     R    G    B   Color */
170				/*  -     -    -    -   ----- */
171	{ 0x00, 0x00, 0x00 },	/*  0     0    0    0   Black */
172	{ 0x00, 0x00, 0xaa },	/*  1     0    0  2/3   Blue  */
173	{ 0x00, 0xaa, 0x00 },	/*  2     0  2/3    0   Green */
174	{ 0x00, 0xaa, 0xaa },	/*  3     0  2/3  2/3   Cyan  */
175	{ 0xaa, 0x00, 0x00 },	/*  4   2/3    0    0   Red   */
176	{ 0xaa, 0x00, 0xaa },	/*  5   2/3    0  2/3   Magenta */
177	{ 0xaa, 0x55, 0x00 },	/*  6   2/3  1/3    0   Brown */
178	{ 0xaa, 0xaa, 0xaa },	/*  7   2/3  2/3  2/3   White */
179        { 0x55, 0x55, 0x55 },	/*  8   1/3  1/3  1/3   Gray  */
180	{ 0x55, 0x55, 0xff },	/*  9   1/3  1/3    1   Bright Blue  */
181	{ 0x55, 0xff, 0x55 },	/* 10   1/3    1  1/3   Bright Green */
182	{ 0x55, 0xff, 0xff },	/* 11   1/3    1    1   Bright Cyan  */
183	{ 0xff, 0x55, 0x55 },	/* 12     1  1/3  1/3   Bright Red   */
184	{ 0xff, 0x55, 0xff },	/* 13     1  1/3    1   Bright Magenta */
185	{ 0xff, 0xff, 0x80 },	/* 14     1    1  1/3   Bright Yellow */
186	{ 0xff, 0xff, 0xff }	/* 15     1    1    1   Bright White */
187};
188
189#define	TODO	printf("%s: unimplemented\n", __func__)
190
191static u_int16_t ofwfb_static_window[ROW*COL];
192
193static struct ofwfb_softc ofwfb_softc;
194
195static __inline int
196ofwfb_background(uint8_t attr)
197{
198	return (attr >> 4);
199}
200
201static __inline int
202ofwfb_foreground(uint8_t attr)
203{
204	return (attr & 0x0f);
205}
206
207static u_int
208ofwfb_pix32(struct ofwfb_softc *sc, int attr)
209{
210	u_int retval;
211
212	if (sc->sc_tag == &bs_le_tag)
213		retval = (ofwfb_cmap[attr].red << 16) |
214			(ofwfb_cmap[attr].green << 8) |
215			ofwfb_cmap[attr].blue;
216	else
217		retval = (ofwfb_cmap[attr].blue  << 16) |
218			(ofwfb_cmap[attr].green << 8) |
219			ofwfb_cmap[attr].red;
220
221	return (retval);
222}
223
224static int
225ofwfb_configure(int flags)
226{
227	struct ofwfb_softc *sc;
228        phandle_t chosen;
229        ihandle_t stdout;
230	phandle_t node;
231	uint32_t fb_phys;
232	int depth;
233	int disable;
234	int len;
235	int i;
236	char type[16];
237	static int done = 0;
238
239	disable = 0;
240	TUNABLE_INT_FETCH("hw.syscons.disable", &disable);
241	if (disable != 0)
242		return (0);
243
244	if (done != 0)
245		return (0);
246	done = 1;
247
248	sc = &ofwfb_softc;
249
250	chosen = OF_finddevice("/chosen");
251	OF_getprop(chosen, "stdout", &stdout, sizeof(stdout));
252        node = OF_instance_to_package(stdout);
253	if (node == -1) {
254		/*
255		 * The "/chosen/stdout" does not exist try
256		 * using "screen" directly.
257		 */
258		node = OF_finddevice("screen");
259	}
260	OF_getprop(node, "device_type", type, sizeof(type));
261	if (strcmp(type, "display") != 0)
262		return (0);
263
264	/* Only support 8 and 32-bit framebuffers */
265	OF_getprop(node, "depth", &depth, sizeof(depth));
266	if (depth == 8) {
267		sc->sc_blank = ofwfb_blank_display8;
268		sc->sc_putc = ofwfb_putc8;
269		sc->sc_putm = ofwfb_putm8;
270		sc->sc_set_border = ofwfb_set_border8;
271	} else if (depth == 32) {
272		sc->sc_blank = ofwfb_blank_display32;
273		sc->sc_putc = ofwfb_putc32;
274		sc->sc_putm = ofwfb_putm32;
275		sc->sc_set_border = ofwfb_set_border32;
276	} else
277		return (0);
278
279	if (OF_getproplen(node, "height") != sizeof(sc->sc_height) ||
280	    OF_getproplen(node, "width") != sizeof(sc->sc_width) ||
281	    OF_getproplen(node, "linebytes") != sizeof(sc->sc_stride))
282		return (0);
283
284	sc->sc_depth = depth;
285	sc->sc_node = node;
286	sc->sc_console = 1;
287	OF_getprop(node, "height", &sc->sc_height, sizeof(sc->sc_height));
288	OF_getprop(node, "width", &sc->sc_width, sizeof(sc->sc_width));
289	OF_getprop(node, "linebytes", &sc->sc_stride, sizeof(sc->sc_stride));
290
291	/*
292	 * Get the PCI addresses of the adapter. The node may be the
293	 * child of the PCI device: in that case, try the parent for
294	 * the assigned-addresses property.
295	 */
296	len = OF_getprop(node, "assigned-addresses", sc->sc_pciaddrs,
297	          sizeof(sc->sc_pciaddrs));
298	if (len == -1) {
299		len = OF_getprop(OF_parent(node), "assigned-addresses",
300		    sc->sc_pciaddrs, sizeof(sc->sc_pciaddrs));
301	}
302	if (len == -1)
303		len = 0;
304	sc->sc_num_pciaddrs = len / sizeof(struct ofw_pci_register);
305
306	/*
307	 * Grab the physical address of the framebuffer, and then map it
308	 * into our memory space. If the MMU is not yet up, it will be
309	 * remapped for us when relocation turns on.
310	 *
311	 * XXX We assume #address-cells is 1 at this point.
312	 */
313	if (OF_getproplen(node, "address") == sizeof(fb_phys)) {
314		OF_getprop(node, "address", &fb_phys, sizeof(fb_phys));
315		sc->sc_tag = &bs_be_tag;
316		bus_space_map(sc->sc_tag, fb_phys, sc->sc_height *
317		    sc->sc_stride, BUS_SPACE_MAP_PREFETCHABLE, &sc->sc_addr);
318	} else {
319		/*
320		 * Some IBM systems don't have an address property. Try to
321		 * guess the framebuffer region from the assigned addresses.
322		 * This is ugly, but there doesn't seem to be an alternative.
323		 * Linux does the same thing.
324		 */
325
326		fb_phys = sc->sc_num_pciaddrs;
327		for (i = 0; i < sc->sc_num_pciaddrs; i++) {
328			/* If it is too small, not the framebuffer */
329			if (sc->sc_pciaddrs[i].size_lo <
330			    sc->sc_stride*sc->sc_height)
331				continue;
332			/* If it is not memory, it isn't either */
333			if (!(sc->sc_pciaddrs[i].phys_hi &
334			    OFW_PCI_PHYS_HI_SPACE_MEM32))
335				continue;
336
337			/* This could be the framebuffer */
338			fb_phys = i;
339
340			/* If it is prefetchable, it certainly is */
341			if (sc->sc_pciaddrs[i].phys_hi &
342			    OFW_PCI_PHYS_HI_PREFETCHABLE)
343				break;
344		}
345		if (fb_phys == sc->sc_num_pciaddrs)
346			return (0);
347
348		OF_decode_addr(node, fb_phys, &sc->sc_tag, &sc->sc_addr, NULL);
349	}
350
351	ofwfb_init(0, &sc->sc_va, 0);
352
353	return (0);
354}
355
356static int
357ofwfb_probe(int unit, video_adapter_t **adp, void *arg, int flags)
358{
359	TODO;
360	return (0);
361}
362
363static int
364ofwfb_init(int unit, video_adapter_t *adp, int flags)
365{
366	struct ofwfb_softc *sc;
367	video_info_t *vi;
368	int cborder;
369	int font_height;
370
371	sc = (struct ofwfb_softc *)adp;
372	vi = &adp->va_info;
373
374	vid_init_struct(adp, "ofwfb", -1, unit);
375
376	/* The default font size can be overridden by loader */
377	font_height = 16;
378	TUNABLE_INT_FETCH("hw.syscons.fsize", &font_height);
379	if (font_height == 8) {
380		sc->sc_font = dflt_font_8;
381		sc->sc_font_height = 8;
382	} else if (font_height == 14) {
383		sc->sc_font = dflt_font_14;
384		sc->sc_font_height = 14;
385	} else {
386		/* default is 8x16 */
387		sc->sc_font = dflt_font_16;
388		sc->sc_font_height = 16;
389	}
390
391	/* The user can set a border in chars - default is 1 char width */
392	cborder = 1;
393	TUNABLE_INT_FETCH("hw.syscons.border", &cborder);
394
395	vi->vi_cheight = sc->sc_font_height;
396	vi->vi_width = sc->sc_width/8 - 2*cborder;
397	vi->vi_height = sc->sc_height/sc->sc_font_height - 2*cborder;
398	vi->vi_cwidth = 8;
399
400	/*
401	 * Clamp width/height to syscons maximums
402	 */
403	if (vi->vi_width > COL)
404		vi->vi_width = COL;
405	if (vi->vi_height > ROW)
406		vi->vi_height = ROW;
407
408	sc->sc_xmargin = (sc->sc_width - (vi->vi_width * vi->vi_cwidth)) / 2;
409	sc->sc_ymargin = (sc->sc_height - (vi->vi_height * vi->vi_cheight))/2;
410
411	/*
412	 * Avoid huge amounts of conditional code in syscons by
413	 * defining a dummy h/w text display buffer.
414	 */
415	adp->va_window = (vm_offset_t) ofwfb_static_window;
416
417	/*
418	 * Enable future font-loading and flag color support, as well as
419	 * adding V_ADP_MODECHANGE so that we ofwfb_set_mode() gets called
420	 * when the X server shuts down. This enables us to get the console
421	 * back when X disappears.
422	 */
423	adp->va_flags |= V_ADP_FONT | V_ADP_COLOR | V_ADP_MODECHANGE;
424
425	ofwfb_set_mode(&sc->sc_va, 0);
426
427	vid_register(&sc->sc_va);
428
429	return (0);
430}
431
432static int
433ofwfb_get_info(video_adapter_t *adp, int mode, video_info_t *info)
434{
435	bcopy(&adp->va_info, info, sizeof(*info));
436	return (0);
437}
438
439static int
440ofwfb_query_mode(video_adapter_t *adp, video_info_t *info)
441{
442	TODO;
443	return (0);
444}
445
446static int
447ofwfb_set_mode(video_adapter_t *adp, int mode)
448{
449	struct ofwfb_softc *sc;
450	char name[64];
451	ihandle_t ih;
452	int i, retval;
453
454	sc = (struct ofwfb_softc *)adp;
455
456	if (ofwfb_reset_on_switch) {
457		/*
458		 * Open the display device, which will initialize it.
459		 */
460
461		memset(name, 0, sizeof(name));
462		OF_package_to_path(sc->sc_node, name, sizeof(name));
463		ih = OF_open(name);
464
465		if (sc->sc_depth == 8) {
466			/*
467			 * Install the ISO6429 colormap - older OFW systems
468			 * don't do this by default
469			 */
470			for (i = 0; i < 16; i++) {
471				OF_call_method("color!", ih, 4, 1,
472						   ofwfb_cmap[i].red,
473						   ofwfb_cmap[i].green,
474						   ofwfb_cmap[i].blue,
475						   i,
476						   &retval);
477			}
478		}
479	}
480
481	ofwfb_blank_display(&sc->sc_va, V_DISPLAY_ON);
482
483	return (0);
484}
485
486static int
487ofwfb_save_font(video_adapter_t *adp, int page, int size, int width,
488    u_char *data, int c, int count)
489{
490	TODO;
491	return (0);
492}
493
494static int
495ofwfb_load_font(video_adapter_t *adp, int page, int size, int width,
496    u_char *data, int c, int count)
497{
498	struct ofwfb_softc *sc;
499
500	sc = (struct ofwfb_softc *)adp;
501
502	/*
503	 * syscons code has already determined that current width/height
504	 * are unchanged for this new font
505	 */
506	sc->sc_font = data;
507	return (0);
508}
509
510static int
511ofwfb_show_font(video_adapter_t *adp, int page)
512{
513
514	return (0);
515}
516
517static int
518ofwfb_save_palette(video_adapter_t *adp, u_char *palette)
519{
520	/* TODO; */
521	return (0);
522}
523
524static int
525ofwfb_load_palette(video_adapter_t *adp, u_char *palette)
526{
527	/* TODO; */
528	return (0);
529}
530
531static int
532ofwfb_set_border8(video_adapter_t *adp, int border)
533{
534	struct ofwfb_softc *sc;
535	int i, j;
536	uint8_t *addr;
537	uint8_t bground;
538
539	sc = (struct ofwfb_softc *)adp;
540
541	bground = ofwfb_background(border);
542
543	/* Set top margin */
544	addr = (uint8_t *) sc->sc_addr;
545	for (i = 0; i < sc->sc_ymargin; i++) {
546		for (j = 0; j < sc->sc_width; j++) {
547			*(addr + j) = bground;
548		}
549		addr += sc->sc_stride;
550	}
551
552	/* bottom margin */
553	addr = (uint8_t *) sc->sc_addr + (sc->sc_height - sc->sc_ymargin)*sc->sc_stride;
554	for (i = 0; i < sc->sc_ymargin; i++) {
555		for (j = 0; j < sc->sc_width; j++) {
556			*(addr + j) = bground;
557		}
558		addr += sc->sc_stride;
559	}
560
561	/* remaining left and right borders */
562	addr = (uint8_t *) sc->sc_addr + sc->sc_ymargin*sc->sc_stride;
563	for (i = 0; i < sc->sc_height - 2*sc->sc_xmargin; i++) {
564		for (j = 0; j < sc->sc_xmargin; j++) {
565			*(addr + j) = bground;
566			*(addr + j + sc->sc_width - sc->sc_xmargin) = bground;
567		}
568		addr += sc->sc_stride;
569	}
570
571	return (0);
572}
573
574static int
575ofwfb_set_border32(video_adapter_t *adp, int border)
576{
577	/* XXX Be lazy for now and blank entire screen */
578	return (ofwfb_blank_display32(adp, border));
579}
580
581static int
582ofwfb_set_border(video_adapter_t *adp, int border)
583{
584	struct ofwfb_softc *sc;
585
586	sc = (struct ofwfb_softc *)adp;
587
588	return ((*sc->sc_set_border)(adp, border));
589}
590
591static int
592ofwfb_save_state(video_adapter_t *adp, void *p, size_t size)
593{
594	TODO;
595	return (0);
596}
597
598static int
599ofwfb_load_state(video_adapter_t *adp, void *p)
600{
601	TODO;
602	return (0);
603}
604
605static int
606ofwfb_set_win_org(video_adapter_t *adp, off_t offset)
607{
608	TODO;
609	return (0);
610}
611
612static int
613ofwfb_read_hw_cursor(video_adapter_t *adp, int *col, int *row)
614{
615	*col = 0;
616	*row = 0;
617
618	return (0);
619}
620
621static int
622ofwfb_set_hw_cursor(video_adapter_t *adp, int col, int row)
623{
624
625	return (0);
626}
627
628static int
629ofwfb_set_hw_cursor_shape(video_adapter_t *adp, int base, int height,
630    int celsize, int blink)
631{
632	return (0);
633}
634
635static int
636ofwfb_blank_display8(video_adapter_t *adp, int mode)
637{
638	struct ofwfb_softc *sc;
639	int i;
640	uint32_t *addr;
641	uint32_t color;
642	uint32_t end;
643
644	sc = (struct ofwfb_softc *)adp;
645	addr = (uint32_t *) sc->sc_addr;
646	end = (sc->sc_stride/4) * sc->sc_height;
647
648	/* Splat 4 pixels at once. */
649	color = (ofwfb_background(SC_NORM_ATTR) << 24) |
650	    (ofwfb_background(SC_NORM_ATTR) << 16) |
651	    (ofwfb_background(SC_NORM_ATTR) << 8) |
652	    (ofwfb_background(SC_NORM_ATTR));
653
654	for (i = 0; i < end; i++)
655		*(addr + i) = color;
656
657	return (0);
658}
659
660static int
661ofwfb_blank_display32(video_adapter_t *adp, int mode)
662{
663	struct ofwfb_softc *sc;
664	int i;
665	uint32_t *addr, blank;
666
667	sc = (struct ofwfb_softc *)adp;
668	addr = (uint32_t *) sc->sc_addr;
669	blank = ofwfb_pix32(sc, ofwfb_background(SC_NORM_ATTR));
670
671	for (i = 0; i < (sc->sc_stride/4)*sc->sc_height; i++)
672		*(addr + i) = blank;
673
674	return (0);
675}
676
677static int
678ofwfb_blank_display(video_adapter_t *adp, int mode)
679{
680	struct ofwfb_softc *sc;
681
682	sc = (struct ofwfb_softc *)adp;
683
684	return ((*sc->sc_blank)(adp, mode));
685}
686
687static int
688ofwfb_mmap(video_adapter_t *adp, vm_ooffset_t offset, vm_paddr_t *paddr,
689    int prot, vm_memattr_t *memattr)
690{
691	struct ofwfb_softc *sc;
692	int i;
693
694	sc = (struct ofwfb_softc *)adp;
695
696	/*
697	 * Make sure the requested address lies within the PCI device's
698	 * assigned addrs
699	 */
700	for (i = 0; i < sc->sc_num_pciaddrs; i++)
701	  if (offset >= sc->sc_pciaddrs[i].phys_lo &&
702	    offset < (sc->sc_pciaddrs[i].phys_lo + sc->sc_pciaddrs[i].size_lo))
703		{
704			/*
705			 * If this is a prefetchable BAR, we can (and should)
706			 * enable write-combining.
707			 */
708			if (sc->sc_pciaddrs[i].phys_hi &
709			    OFW_PCI_PHYS_HI_PREFETCHABLE)
710				*memattr = VM_MEMATTR_WRITE_COMBINING;
711
712			*paddr = offset;
713			return (0);
714		}
715
716	/*
717	 * Hack for Radeon...
718	 */
719	if (ofwfb_ignore_mmap_checks) {
720		*paddr = offset;
721		return (0);
722	}
723
724	/*
725	 * This might be a legacy VGA mem request: if so, just point it at the
726	 * framebuffer, since it shouldn't be touched
727	 */
728	if (offset < sc->sc_stride*sc->sc_height) {
729		*paddr = sc->sc_addr + offset;
730		return (0);
731	}
732
733	/*
734	 * Error if we didn't have a better idea.
735	 */
736	if (sc->sc_num_pciaddrs == 0)
737		return (ENOMEM);
738
739	return (EINVAL);
740}
741
742static int
743ofwfb_ioctl(video_adapter_t *adp, u_long cmd, caddr_t data)
744{
745
746	return (0);
747}
748
749static int
750ofwfb_clear(video_adapter_t *adp)
751{
752	TODO;
753	return (0);
754}
755
756static int
757ofwfb_fill_rect(video_adapter_t *adp, int val, int x, int y, int cx, int cy)
758{
759	TODO;
760	return (0);
761}
762
763static int
764ofwfb_bitblt(video_adapter_t *adp, ...)
765{
766	TODO;
767	return (0);
768}
769
770static int
771ofwfb_diag(video_adapter_t *adp, int level)
772{
773	TODO;
774	return (0);
775}
776
777static int
778ofwfb_save_cursor_palette(video_adapter_t *adp, u_char *palette)
779{
780	TODO;
781	return (0);
782}
783
784static int
785ofwfb_load_cursor_palette(video_adapter_t *adp, u_char *palette)
786{
787	TODO;
788	return (0);
789}
790
791static int
792ofwfb_copy(video_adapter_t *adp, vm_offset_t src, vm_offset_t dst, int n)
793{
794	TODO;
795	return (0);
796}
797
798static int
799ofwfb_putp(video_adapter_t *adp, vm_offset_t off, uint32_t p, uint32_t a,
800    int size, int bpp, int bit_ltor, int byte_ltor)
801{
802	TODO;
803	return (0);
804}
805
806static int
807ofwfb_putc8(video_adapter_t *adp, vm_offset_t off, uint8_t c, uint8_t a)
808{
809	struct ofwfb_softc *sc;
810	int row;
811	int col;
812	int i;
813	uint32_t *addr;
814	u_char *p, fg, bg;
815	union {
816		uint32_t l;
817		uint8_t  c[4];
818	} ch1, ch2;
819
820
821	sc = (struct ofwfb_softc *)adp;
822        row = (off / adp->va_info.vi_width) * adp->va_info.vi_cheight;
823        col = (off % adp->va_info.vi_width) * adp->va_info.vi_cwidth;
824	p = sc->sc_font + c*sc->sc_font_height;
825	addr = (u_int32_t *)((uintptr_t)sc->sc_addr
826		+ (row + sc->sc_ymargin)*sc->sc_stride
827		+ col + sc->sc_xmargin);
828
829	fg = ofwfb_foreground(a);
830	bg = ofwfb_background(a);
831
832	for (i = 0; i < sc->sc_font_height; i++) {
833		u_char fline = p[i];
834
835		/*
836		 * Assume that there is more background than foreground
837		 * in characters and init accordingly
838		 */
839		ch1.l = ch2.l = (bg << 24) | (bg << 16) | (bg << 8) | bg;
840
841		/*
842		 * Calculate 2 x 4-chars at a time, and then
843		 * write these out.
844		 */
845		if (fline & 0x80) ch1.c[0] = fg;
846		if (fline & 0x40) ch1.c[1] = fg;
847		if (fline & 0x20) ch1.c[2] = fg;
848		if (fline & 0x10) ch1.c[3] = fg;
849
850		if (fline & 0x08) ch2.c[0] = fg;
851		if (fline & 0x04) ch2.c[1] = fg;
852		if (fline & 0x02) ch2.c[2] = fg;
853		if (fline & 0x01) ch2.c[3] = fg;
854
855		addr[0] = ch1.l;
856		addr[1] = ch2.l;
857		addr += (sc->sc_stride / sizeof(u_int32_t));
858	}
859
860	return (0);
861}
862
863static int
864ofwfb_putc32(video_adapter_t *adp, vm_offset_t off, uint8_t c, uint8_t a)
865{
866	struct ofwfb_softc *sc;
867	int row;
868	int col;
869	int i, j, k;
870	uint32_t *addr, fg, bg;
871	u_char *p;
872
873	sc = (struct ofwfb_softc *)adp;
874        row = (off / adp->va_info.vi_width) * adp->va_info.vi_cheight;
875        col = (off % adp->va_info.vi_width) * adp->va_info.vi_cwidth;
876	p = sc->sc_font + c*sc->sc_font_height;
877	addr = (uint32_t *)sc->sc_addr
878		+ (row + sc->sc_ymargin)*(sc->sc_stride/4)
879		+ col + sc->sc_xmargin;
880
881	fg = ofwfb_pix32(sc, ofwfb_foreground(a));
882	bg = ofwfb_pix32(sc, ofwfb_background(a));
883
884	for (i = 0; i < sc->sc_font_height; i++) {
885		for (j = 0, k = 7; j < 8; j++, k--) {
886			if ((p[i] & (1 << k)) == 0)
887				*(addr + j) = bg;
888			else
889				*(addr + j) = fg;
890		}
891		addr += (sc->sc_stride/4);
892	}
893
894	return (0);
895}
896
897static int
898ofwfb_putc(video_adapter_t *adp, vm_offset_t off, uint8_t c, uint8_t a)
899{
900	struct ofwfb_softc *sc;
901
902	sc = (struct ofwfb_softc *)adp;
903
904	return ((*sc->sc_putc)(adp, off, c, a));
905}
906
907static int
908ofwfb_puts(video_adapter_t *adp, vm_offset_t off, u_int16_t *s, int len)
909{
910	int i;
911
912	for (i = 0; i < len; i++) {
913		ofwfb_putc(adp, off + i, s[i] & 0xff, (s[i] & 0xff00) >> 8);
914	}
915	return (0);
916}
917
918static int
919ofwfb_putm(video_adapter_t *adp, int x, int y, uint8_t *pixel_image,
920    uint32_t pixel_mask, int size, int width)
921{
922	struct ofwfb_softc *sc;
923
924	sc = (struct ofwfb_softc *)adp;
925
926	return ((*sc->sc_putm)(adp, x, y, pixel_image, pixel_mask, size,
927	    width));
928}
929
930static int
931ofwfb_putm8(video_adapter_t *adp, int x, int y, uint8_t *pixel_image,
932    uint32_t pixel_mask, int size, int width)
933{
934	struct ofwfb_softc *sc;
935	int i, j, k;
936	uint8_t *addr;
937	u_char fg, bg;
938
939	sc = (struct ofwfb_softc *)adp;
940	addr = (u_int8_t *)((uintptr_t)sc->sc_addr
941		+ (y + sc->sc_ymargin)*sc->sc_stride
942		+ x + sc->sc_xmargin);
943
944	fg = ofwfb_foreground(SC_NORM_ATTR);
945	bg = ofwfb_background(SC_NORM_ATTR);
946
947	for (i = 0; i < size && i+y < sc->sc_height - 2*sc->sc_ymargin; i++) {
948		/*
949		 * Calculate 2 x 4-chars at a time, and then
950		 * write these out.
951		 */
952		for (j = 0, k = width; j < 8; j++, k--) {
953			if (x + j >= sc->sc_width - 2*sc->sc_xmargin)
954				continue;
955
956			if (pixel_image[i] & (1 << k))
957				addr[j] = (addr[j] == fg) ? bg : fg;
958		}
959
960		addr += (sc->sc_stride / sizeof(u_int8_t));
961	}
962
963	return (0);
964}
965
966static int
967ofwfb_putm32(video_adapter_t *adp, int x, int y, uint8_t *pixel_image,
968    uint32_t pixel_mask, int size, int width)
969{
970	struct ofwfb_softc *sc;
971	int i, j, k;
972	uint32_t fg, bg;
973	uint32_t *addr;
974
975	sc = (struct ofwfb_softc *)adp;
976	addr = (uint32_t *)sc->sc_addr
977		+ (y + sc->sc_ymargin)*(sc->sc_stride/4)
978		+ x + sc->sc_xmargin;
979
980	fg = ofwfb_pix32(sc, ofwfb_foreground(SC_NORM_ATTR));
981	bg = ofwfb_pix32(sc, ofwfb_background(SC_NORM_ATTR));
982
983	for (i = 0; i < size && i+y < sc->sc_height - 2*sc->sc_ymargin; i++) {
984		for (j = 0, k = width; j < 8; j++, k--) {
985			if (x + j >= sc->sc_width - 2*sc->sc_xmargin)
986				continue;
987
988			if (pixel_image[i] & (1 << k))
989				*(addr + j) = (*(addr + j) == fg) ? bg : fg;
990		}
991		addr += (sc->sc_stride/4);
992	}
993
994	return (0);
995}
996
997/*
998 * Define the syscons nexus device attachment
999 */
1000static void
1001ofwfb_scidentify(driver_t *driver, device_t parent)
1002{
1003	device_t child;
1004
1005	/*
1006	 * Add with a priority guaranteed to make it last on
1007	 * the device list
1008	 */
1009	child = BUS_ADD_CHILD(parent, INT_MAX, SC_DRIVER_NAME, 0);
1010}
1011
1012static int
1013ofwfb_scprobe(device_t dev)
1014{
1015	int error;
1016
1017	device_set_desc(dev, "System console");
1018
1019	error = sc_probe_unit(device_get_unit(dev),
1020	    device_get_flags(dev) | SC_AUTODETECT_KBD);
1021	if (error != 0)
1022		return (error);
1023
1024	/* This is a fake device, so make sure we added it ourselves */
1025	return (BUS_PROBE_NOWILDCARD);
1026}
1027
1028static int
1029ofwfb_scattach(device_t dev)
1030{
1031	return (sc_attach_unit(device_get_unit(dev),
1032	    device_get_flags(dev) | SC_AUTODETECT_KBD));
1033}
1034
1035static device_method_t ofwfb_sc_methods[] = {
1036  	DEVMETHOD(device_identify,	ofwfb_scidentify),
1037	DEVMETHOD(device_probe,		ofwfb_scprobe),
1038	DEVMETHOD(device_attach,	ofwfb_scattach),
1039	{ 0, 0 }
1040};
1041
1042static driver_t ofwfb_sc_driver = {
1043	SC_DRIVER_NAME,
1044	ofwfb_sc_methods,
1045	sizeof(sc_softc_t),
1046};
1047
1048static devclass_t	sc_devclass;
1049
1050DRIVER_MODULE(ofwfb, nexus, ofwfb_sc_driver, sc_devclass, 0, 0);
1051
1052/*
1053 * Utility routines from <dev/fb/fbreg.h>
1054 */
1055void
1056ofwfb_bcopy(const void *s, void *d, size_t c)
1057{
1058	bcopy(s, d, c);
1059}
1060
1061void
1062ofwfb_bzero(void *d, size_t c)
1063{
1064	bzero(d, c);
1065}
1066
1067void
1068ofwfb_fillw(int pat, void *base, size_t cnt)
1069{
1070	u_int16_t *bptr = base;
1071
1072	while (cnt--)
1073		*bptr++ = pat;
1074}
1075
1076u_int16_t
1077ofwfb_readw(u_int16_t *addr)
1078{
1079	return (*addr);
1080}
1081
1082void
1083ofwfb_writew(u_int16_t *addr, u_int16_t val)
1084{
1085	*addr = val;
1086}
1087