ref: c5c19dfe4998fa40de5f58f61439fd5fd65c9056
dir: /sys/src/cmd/aux/vga/main.c/
#include <u.h>
#include <libc.h>
#include <bio.h>
#include "pci.h"
#include "vga.h"
Biobuf stdout;
static int iflag, lflag, pflag, rflag;
static char *dbname = "/lib/vgadb";
static char monitordb[128];
static void
dump(Vga* vga)
{
Ctlr *ctlr;
Attr *attr;
int i;
if(vga->mode)
dbdumpmode(vga->mode);
for(attr = vga->attr; attr; attr = attr->next)
Bprint(&stdout, "vga->attr: %s=%s\n", attr->attr, attr->val);
for(ctlr = vga->link; ctlr; ctlr = ctlr->link){
if(ctlr->dump == 0)
continue;
trace("%s->dump\n", ctlr->name);
if(ctlr->flag && ctlr->flag != Fsnarf){
printitem(ctlr->name, "flag");
printflag(ctlr->flag);
Bprint(&stdout, "\n");
}
(*ctlr->dump)(vga, ctlr);
ctlr->flag |= Fdump;
}
for(i=0; i < nelem(vga->edid); i++){
if(vga->edid[i])
printedid(vga->edid[i]);
}
Bprint(&stdout, "\n");
}
void
resyncinit(Vga* vga, Ctlr* ctlr, ulong on, ulong off)
{
Ctlr *link;
trace("%s->resyncinit on 0x%8.8luX off 0x%8.8luX\n",
ctlr->name, on, off);
for(link = vga->link; link; link = link->link){
link->flag |= on;
link->flag &= ~off;
if(link == ctlr)
continue;
if(link->init == 0 || (link->flag & Finit) == 0)
continue;
link->flag &= ~Finit;
trace("%s->init 0x%8.8luX\n", link->name, link->flag);
(*link->init)(vga, link);
}
}
void
sequencer(Vga* vga, int on)
{
static uchar seq01;
static int state = 1;
char *s;
if(on)
s = "on";
else
s = "off";
trace("sequencer->enter %s\n", s);
if(on){
if(vga)
seq01 = vga->sequencer[0x01];
if(state == 0){
seq01 |= 0x01;
vgaxo(Seqx, 0x01, seq01);
vgaxo(Seqx, 0x00, 0x03);
}
}
else{
vgaxo(Seqx, 0x00, 0x01);
seq01 = vgaxi(Seqx, 0x01);
vgaxo(Seqx, 0x01, seq01|0x20);
}
state = on;
trace("sequencer->leave %s\n", s);
}
static void
linear(Vga* vga)
{
char buf[256];
char *p;
/*
* Set up for linear addressing: try to allocate the
* kernel memory map then read the base-address back.
* vga->linear is a compatibility hack.
*/
if(vga->linear == 0){
vga->ctlr->flag &= ~Ulinear;
return;
}
if(vga->ctlr->flag & Ulinear){
/*
* If there's already an aperture don't bother trying
* to set up a new one.
*/
vgactlr("addr", buf);
if(strtoul(buf, 0, 0)==0 && (buf[0]!='p' || buf[1]!=' ' || strtoul(buf+2, 0, 0)==0)){
sprint(buf, "0x%lux 0x%lux", vga->apz ? vga->apz : vga->vmz, vga->vma);
vgactlw("linear", buf);
vgactlr("addr", buf);
}
trace("linear->addr %s\n", buf);
/*
* old: addr 0x12345678
* new: addr p 0x12345678 v 0x82345678 size 0x123
*/
if(buf[0]=='p' && buf[1]==' '){
vga->vmb = strtoull(buf+2, 0, 0);
p = strstr(buf, "size");
if(p)
vga->apz = strtoul(p+4, 0, 0);
}else
vga->vmb = strtoull(buf, 0, 0);
}
else
vgactlw("linear", "0");
}
static Mode*
dbedidmode(Vga *vga, char *type, char *size)
{
char buf[32], *p;
int i, x, y, z;
Modelist *l;
Mode *m;
z = 32;
x = y = 0;
snprint(buf, sizeof(buf), "%s", size);
if((p = strchr(buf, 'x')) != nil){
*p++ = 0;
x = atoi(buf);
y = atoi(p);
if((p = strchr(p, 'x')) != nil){
*p++ = 0;
z = atoi(p);
}
}
for(i=0; i<nelem(vga->edid); i++){
if(vga->edid[i] == nil)
continue;
for(l = vga->edid[i]->modelist; l != nil; l = l->next)
if(strcmp(l->name, type) == 0)
goto found;
}
for(i=0; i<nelem(vga->edid); i++){
if(vga->edid[i] == nil)
continue;
for(l = vga->edid[i]->modelist; l != nil; l = l->next)
if((x == 0 || l->x == x) && (y == 0 || l->y == y))
goto found;
}
return nil;
found:
m = alloc(sizeof(Mode));
*m = *((Mode*)l);
m->z = z;
x = m->x;
y = m->y;
snprint(m->type, sizeof(m->type), "%s", type);
snprint(m->size, sizeof(m->size), "%dx%dx%d", x, y, z);
return m;
}
char*
chanstr[32+1] = {
[1] "k1",
[2] "k2",
[4] "k4",
[8] "m8",
[16] "r5g6b5",
[24] "r8g8b8",
[32] "x8r8g8b8",
};
static void
usage(void)
{
fprint(2, "usage: aux/vga [ -BcdilpvV ] [ -b bios-id ] [ -m monitor ] [ -x db ] [ -t tilt ] [ mode [ virtualsize ] ]\n");
exits("usage");
}
void
main(int argc, char** argv)
{
char *bios, buf[256], sizeb[256], *p, *vsize, *psize, *tilt;
char *type, *vtype;
int virtual, len;
Ctlr *ctlr;
Vga *vga;
fmtinstall('H', encodefmt);
Binit(&stdout, 1, OWRITE);
tilt = getenv("tiltscreen");
bios = getenv("vgactlr");
if((type = getenv("monitor")) == nil)
type = "vga";
psize = vsize = "640x480x8";
ARGBEGIN{
default:
usage();
break;
case 'b':
bios = EARGF(usage());
break;
case 'B':
dumpbios(0x10000);
exits(0);
case 'c':
cflag = 1;
break;
case 'd':
dflag = 1;
break;
case 'i':
iflag = 1;
break;
case 'l':
lflag = 1;
break;
case 'm':
type = EARGF(usage());
break;
case 'p':
pflag = 1;
break;
case 'r':
/*
* rflag > 1 means "leave me alone, I know what I'm doing."
*/
rflag++;
break;
case 't':
tilt = EARGF(usage());
break;
case 'v':
vflag = 1;
break;
case 'V':
vflag = 1;
Vflag = 1;
break;
case 'x':
dbname = EARGF(usage());
break;
}ARGEND
virtual = 0;
switch(argc){
default:
usage();
break;
case 1:
vsize = psize = argv[0];
break;
case 2:
psize = argv[0];
vsize = argv[1];
virtual = 1;
break;
case 0:
break;
}
if(lflag && strcmp(vsize, "text") == 0){
vesatextmode();
vgactlw("textmode", "");
exits(0);
}
vga = alloc(sizeof(Vga));
if(bios){
if((vga->offset = strtol(bios, &p, 0)) == 0 || *p++ != '=')
error("main: bad BIOS string format - %s\n", bios);
len = strlen(p);
vga->bios = alloc(len+1);
strncpy(vga->bios, p, len);
trace("main->BIOS %s\n", bios);
}
/*
* Try to identify the VGA card and grab
* registers. Print them out if requested.
* If monitor=vesa or our vga controller can't be found
* in vgadb, try vesa modes; failing that, try vga.
*/
if(strcmp(type, "vesa") == 0 || dbctlr(dbname, vga) == 0 ||
vga->ctlr == 0)
if(dbvesa(vga) == 0 || vga->ctlr == 0){
Bprint(&stdout, "%s: controller not in %s, not vesa\n",
argv0, dbname);
dumpbios(256);
type = "vga";
vsize = psize = "640x480x1";
virtual = 0;
vga->ctlr = &generic;
vga->link = &generic;
}
trace("main->snarf\n");
for(ctlr = vga->link; ctlr; ctlr = ctlr->link){
if(ctlr->snarf == 0)
continue;
trace("%s->snarf\n", ctlr->name);
(*ctlr->snarf)(vga, ctlr);
}
if(pflag)
dump(vga);
for(ctlr = vga->link; ctlr; ctlr = ctlr->link)
if(ctlr->flag & Ferror)
error("%r\n");
if(iflag || lflag){
if(getenv(type))
snprint(monitordb, sizeof monitordb, "/env/%s", type);
else
strecpy(monitordb, monitordb+sizeof monitordb, dbname);
if(vga->vesa){
strcpy(monitordb, "vesa bios");
vga->mode = dbvesamode(vga, psize);
}else {
vga->mode = dbmode(monitordb, type, psize);
if(vga->mode == nil)
vga->mode = dbedidmode(vga, type, psize);
}
if(vga->mode == nil)
error("main: %s@%s not in %s\n", type, psize, monitordb);
/*
* because vga programs shb/ehb (Crt02, Crt03) the same as
* shs/ehs (Crt04, Crt05), only shb/ehb is specified in vgadb
* meaning the horizontal sync pulse start and end position.
*/
if(vga->mode->shs == 0)
vga->mode->shs = vga->mode->shb;
if(vga->mode->ehs == 0)
vga->mode->ehs = vga->mode->ehb;
if(virtual){
if((p = strchr(vsize, 'x')) == nil)
error("bad virtual size %s\n", vsize);
vga->virtx = atoi(vsize);
vga->virty = atoi(p+1);
if(vga->virtx < vga->mode->x || vga->virty < vga->mode->y)
error("virtual size smaller than physical size\n");
}
else{
vga->virtx = vga->mode->x;
vga->virty = vga->mode->y;
}
trace("vmf %d vmdf %d vf1 %lud vbw %lud\n",
vga->mode->frequency, vga->mode->deffrequency,
vga->f[1], vga->mode->videobw);
if(vga->mode->frequency == 0 && vga->mode->videobw != 0 && vga->f[1] != 0){
/*
* boost clock as much as possible subject
* to video and memory bandwidth constraints
*/
ulong bytes, freq, membw;
double rr;
freq = vga->mode->videobw;
if(freq > vga->f[1])
freq = vga->f[1];
rr = (double)freq/(vga->mode->ht*vga->mode->vt);
if(rr > 85.0) /* >85Hz is ridiculous */
rr = 85.0;
bytes = (vga->mode->x*vga->mode->y*vga->mode->z)/8;
membw = rr*bytes;
if(vga->membw != 0 && membw > vga->membw){
membw = vga->membw;
rr = (double)membw/bytes;
}
freq = rr*(vga->mode->ht*vga->mode->vt);
vga->mode->frequency = freq;
trace("using frequency %lud rr %.2f membw %lud\n",
freq, rr, membw);
}
else if(vga->mode->frequency == 0)
vga->mode->frequency = vga->mode->deffrequency;
for(ctlr = vga->link; ctlr; ctlr = ctlr->link){
if(ctlr->options == 0)
continue;
trace("%s->options\n", ctlr->name);
(*ctlr->options)(vga, ctlr);
}
/*
* skip init for vesa - vesa will do the registers for us
*/
if(!vga->vesa)
for(ctlr = vga->link; ctlr; ctlr = ctlr->link){
if(ctlr->init == 0)
continue;
trace("%s->init\n", ctlr->name);
(*ctlr->init)(vga, ctlr);
}
if(strcmp(vga->mode->chan, "") == 0){
if(vga->mode->z < nelem(chanstr) && chanstr[vga->mode->z])
strcpy(vga->mode->chan, chanstr[vga->mode->z]);
else
error("%s: unknown channel type to use for depth %d\n", vga->ctlr->name, vga->mode->z);
}
if(iflag || pflag)
dump(vga);
if(lflag){
trace("main->load\n");
if(vga->vmz && (vga->virtx*vga->virty*vga->mode->z)/8 > vga->vmz)
error("%s: not enough video memory - %lud\n",
vga->ctlr->name, vga->vmz);
if(vga->ctlr->type)
vtype = vga->ctlr->type;
else if(p = strchr(vga->ctlr->name, '-')){
strncpy(buf, vga->ctlr->name, p - vga->ctlr->name);
buf[p - vga->ctlr->name] = 0;
vtype = buf;
}
else
vtype = vga->ctlr->name;
/*
* VESA must be set up before linear.
* Set type to vesa for linear.
*/
if(vga->vesa){
vesa.load(vga, vga->vesa);
if(vga->vesa->flag&Ferror)
error("vesa load error\n");
vgactlw("type", vesa.name);
} else
vgactlw("type", vtype);
/*
* The new draw device needs linear mode set
* before size.
*/
linear(vga);
/*
* Linear is over so switch to other driver for
* acceleration.
*/
if(vga->vesa && strcmp(vesa.name, vtype))
vgactlw("type", vtype);
sprint(buf, "%ludx%ludx%d %s",
vga->virtx, vga->virty,
vga->mode->z, vga->mode->chan);
if(rflag){
vgactlr("size", sizeb);
if(rflag < 2 && strcmp(buf, sizeb) != 0)
error("bad refresh: %s != %s\n",
buf, sizeb);
}
else
vgactlw("size", buf);
/*
* No fiddling with registers if VESA set
* things up already. Sorry.
*/
if(!vga->vesa){
/*
* Turn off the display during the load.
*/
sequencer(vga, 0);
for(ctlr = vga->link; ctlr; ctlr = ctlr->link){
if(ctlr->load == 0 || ctlr == &vesa)
continue;
trace("%s->load\n", ctlr->name);
(*ctlr->load)(vga, ctlr);
}
sequencer(vga, 1);
}
vgactlw("drawinit", "");
if(vga->hwgc == 0 || cflag)
vgactlw("hwgc", "soft");
else
vgactlw("hwgc", vga->hwgc->name);
if(vga->virtx != vga->mode->x || vga->virty != vga->mode->y){
sprint(buf, "%dx%d", vga->mode->x, vga->mode->y);
vgactlw("actualsize", buf);
}
if(tilt != nil && *tilt != '\0')
vgactlw("tilt", tilt);
if(pflag)
dump(vga);
}
}
trace("main->exits\n");
exits(0);
}