123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407 |
- /*
- * VGA controller
- */
- #include "u.h"
- #include "../port/lib.h"
- #include "mem.h"
- #include "dat.h"
- #include "fns.h"
- #include "io.h"
- #include "../port/error.h"
- #define Image IMAGE
- #include <draw.h>
- #include <memdraw.h>
- #include <cursor.h>
- #include "screen.h"
- extern uchar *vgabios;
- enum {
- Qdir,
- Qvgactl,
- Qvgabios,
- };
- static Dirtab vgadir[] = {
- ".", { Qdir, 0, QTDIR }, 0, 0550,
- "vgactl", { Qvgactl, 0 }, 0, 0660,
- "vgabios", { Qvgabios, 0 }, 0x10000, 0440,
- };
- static void
- vgareset(void)
- {
- /* reserve the 'standard' vga registers */
- if(ioalloc(0x2b0, 0x2df-0x2b0+1, 0, "vga") < 0)
- panic("vga ports already allocated");
- if(ioalloc(0x3c0, 0x3da-0x3c0+1, 0, "vga") < 0)
- panic("vga ports already allocated");
- conf.monitor = 1;
- }
- static Chan*
- vgaattach(char* spec)
- {
- if(*spec && strcmp(spec, "0"))
- error(Eio);
- return devattach('v', spec);
- }
- Walkqid*
- vgawalk(Chan* c, Chan *nc, char** name, int nname)
- {
- return devwalk(c, nc, name, nname, vgadir, nelem(vgadir), devgen);
- }
- static int
- vgastat(Chan* c, uchar* dp, int n)
- {
- return devstat(c, dp, n, vgadir, nelem(vgadir), devgen);
- }
- static Chan*
- vgaopen(Chan* c, int omode)
- {
- return devopen(c, omode, vgadir, nelem(vgadir), devgen);
- }
- static void
- vgaclose(Chan*)
- {
- }
- static void
- checkport(int start, int end)
- {
- /* standard vga regs are OK */
- if(start >= 0x2b0 && end <= 0x2df+1)
- return;
- if(start >= 0x3c0 && end <= 0x3da+1)
- return;
- if(iounused(start, end))
- return;
- error(Eperm);
- }
- static long
- vgaread(Chan* c, void* a, long n, vlong off)
- {
- int len;
- char *p, *s;
- VGAscr *scr;
- ulong offset = off;
- char chbuf[30];
- switch((ulong)c->qid.path){
- case Qdir:
- return devdirread(c, a, n, vgadir, nelem(vgadir), devgen);
- case Qvgactl:
- scr = &vgascreen[0];
- p = malloc(READSTR);
- if(waserror()){
- free(p);
- nexterror();
- }
- len = 0;
- if(scr->dev)
- s = scr->dev->name;
- else
- s = "cga";
- len += snprint(p+len, READSTR-len, "type %s\n", s);
- if(scr->gscreen) {
- len += snprint(p+len, READSTR-len, "size %dx%dx%d %s\n",
- scr->gscreen->r.max.x, scr->gscreen->r.max.y,
- scr->gscreen->depth, chantostr(chbuf, scr->gscreen->chan));
- if(Dx(scr->gscreen->r) != Dx(physgscreenr)
- || Dy(scr->gscreen->r) != Dy(physgscreenr))
- len += snprint(p+len, READSTR-len, "actualsize %dx%d\n",
- physgscreenr.max.x, physgscreenr.max.y);
- }
- len += snprint(p+len, READSTR-len, "blanktime %lud\n", blanktime);
- len += snprint(p+len, READSTR-len, "hwaccel %s\n", hwaccel ? "on" : "off");
- len += snprint(p+len, READSTR-len, "hwblank %s\n", hwblank ? "on" : "off");
- snprint(p+len, READSTR-len, "addr 0x%lux\n", scr->paddr);
- n = readstr(offset, a, n, p);
- poperror();
- free(p);
- return n;
- case Qvgabios:
- if(vgabios == nil)
- error(Egreg);
- if(offset&0x80000000)
- offset &= ~0x800E0000;
- if(offset+n > 0x10000)
- n = 0x10000-offset;
- if(n < 0)
- return 0;
- memmove(a, vgabios+offset, n);
- return n;
- default:
- error(Egreg);
- break;
- }
- return 0;
- }
- static char Ebusy[] = "vga already configured";
- static void
- vgactl(char* a)
- {
- int align, i, n, size, x, y, z;
- char *chanstr, *field[6], *p;
- ulong chan;
- VGAscr *scr;
- extern VGAdev *vgadev[];
- extern VGAcur *vgacur[];
- Rectangle r;
- n = tokenize(a, field, nelem(field));
- if(n < 1)
- error(Ebadarg);
- scr = &vgascreen[0];
- if(strcmp(field[0], "hwgc") == 0){
- if(n < 2)
- error(Ebadarg);
- if(strcmp(field[1], "off") == 0){
- lock(&cursor);
- if(scr->cur){
- if(scr->cur->disable)
- scr->cur->disable(scr);
- scr->cur = nil;
- }
- unlock(&cursor);
- return;
- }
- for(i = 0; vgacur[i]; i++){
- if(strcmp(field[1], vgacur[i]->name))
- continue;
- lock(&cursor);
- if(scr->cur && scr->cur->disable)
- scr->cur->disable(scr);
- scr->cur = vgacur[i];
- if(scr->cur->enable)
- scr->cur->enable(scr);
- unlock(&cursor);
- return;
- }
- }
- else if(strcmp(field[0], "type") == 0){
- if(n < 2)
- error(Ebadarg);
- for(i = 0; vgadev[i]; i++){
- if(strcmp(field[1], vgadev[i]->name))
- continue;
- if(scr->dev && scr->dev->disable)
- scr->dev->disable(scr);
- scr->dev = vgadev[i];
- if(scr->dev->enable)
- scr->dev->enable(scr);
- return;
- }
- }
- else if(strcmp(field[0], "size") == 0){
- if(n < 3)
- error(Ebadarg);
- if(drawhasclients())
- error(Ebusy);
- x = strtoul(field[1], &p, 0);
- if(x == 0 || x > 2048)
- error(Ebadarg);
- if(*p)
- p++;
- y = strtoul(p, &p, 0);
- if(y == 0 || y > 2048)
- error(Ebadarg);
- if(*p)
- p++;
- z = strtoul(p, &p, 0);
- chanstr = field[2];
- if((chan = strtochan(chanstr)) == 0)
- error("bad channel");
- if(chantodepth(chan) != z)
- error("depth, channel do not match");
- cursoroff(1);
- deletescreenimage();
- if(screensize(x, y, z, chan))
- error(Egreg);
- vgascreenwin(scr);
- cursoron(1);
- return;
- }
- else if(strcmp(field[0], "actualsize") == 0){
- if(scr->gscreen == nil)
- error("set the screen size first");
- if(n < 2)
- error(Ebadarg);
- x = strtoul(field[1], &p, 0);
- if(x == 0 || x > 2048)
- error(Ebadarg);
- if(*p)
- p++;
- y = strtoul(p, nil, 0);
- if(y == 0 || y > 2048)
- error(Ebadarg);
- if(x > scr->gscreen->r.max.x || y > scr->gscreen->r.max.y)
- error("physical screen bigger than virtual");
- r = Rect(0,0,x,y);
- if(!eqrect(r, scr->gscreen->r)){
- if(scr->cur == nil || scr->cur->doespanning == 0)
- error("virtual screen not supported");
- }
- physgscreenr = r;
- return;
- }
- else if(strcmp(field[0], "palettedepth") == 0){
- if(n < 2)
- error(Ebadarg);
- x = strtoul(field[1], &p, 0);
- if(x != 8 && x != 6)
- error(Ebadarg);
- scr->palettedepth = x;
- return;
- }
- else if(strcmp(field[0], "drawinit") == 0){
- if(scr && scr->dev && scr->dev->drawinit)
- scr->dev->drawinit(scr);
- return;
- }
- else if(strcmp(field[0], "linear") == 0){
- if(n < 2)
- error(Ebadarg);
- size = strtoul(field[1], 0, 0);
- if(n < 3)
- align = 0;
- else
- align = strtoul(field[2], 0, 0);
- if(screenaperture(size, align))
- error("not enough free address space");
- return;
- }
- /* else if(strcmp(field[0], "memset") == 0){
- if(n < 4)
- error(Ebadarg);
- memset((void*)strtoul(field[1], 0, 0), atoi(field[2]), atoi(field[3]));
- return;
- }
- */
- else if(strcmp(field[0], "blank") == 0){
- if(n < 1)
- error(Ebadarg);
- drawblankscreen(1);
- return;
- }
- else if(strcmp(field[0], "blanktime") == 0){
- if(n < 2)
- error(Ebadarg);
- blanktime = strtoul(field[1], 0, 0);
- return;
- }
- else if(strcmp(field[0], "hwaccel") == 0){
- if(n < 2)
- error(Ebadarg);
- if(strcmp(field[1], "on") == 0)
- hwaccel = 1;
- else if(strcmp(field[1], "off") == 0)
- hwaccel = 0;
- return;
- }
- else if(strcmp(field[0], "hwblank") == 0){
- if(n < 2)
- error(Ebadarg);
- if(strcmp(field[1], "on") == 0)
- hwblank = 1;
- else if(strcmp(field[1], "off") == 0)
- hwblank = 0;
- return;
- }
- error(Ebadarg);
- }
- static long
- vgawrite(Chan* c, void* a, long n, vlong off)
- {
- char *p;
- ulong offset = off;
- switch((ulong)c->qid.path){
- case Qdir:
- error(Eperm);
- case Qvgactl:
- if(offset || n >= READSTR)
- error(Ebadarg);
- p = malloc(READSTR);
- if(waserror()){
- free(p);
- nexterror();
- }
- memmove(p, a, n);
- p[n] = 0;
- vgactl(p);
- poperror();
- free(p);
- return n;
- default:
- error(Egreg);
- break;
- }
- return 0;
- }
- Dev vgadevtab = {
- 'v',
- "vga",
- vgareset,
- devinit,
- devshutdown,
- vgaattach,
- vgawalk,
- vgastat,
- vgaopen,
- devcreate,
- vgaclose,
- vgaread,
- devbread,
- vgawrite,
- devbwrite,
- devremove,
- devwstat,
- };
|