ref: 466cf20d3524b8e42edc333a6d2df2a01e99a95b
dir: /sys/src/cmd/aux/vga/db.c/
#include <u.h>
#include <libc.h>
#include <bio.h>
#include <ndb.h>
#include "pci.h"
#include "vga.h"
static Ndb*
dbopen(char* dbname)
{
Ndb *db;
if((db = ndbopen(dbname)) == 0)
error("dbopen: %s: %r\n", dbname);
return db;
}
Attr*
mkattr(Attr *tail, char *attr, char *fmt, ...)
{
char val[1024];
va_list list;
Attr *a;
va_start(list, fmt);
vsnprint(val, sizeof(val), fmt, list);
va_end(list);
a = alloc(sizeof(Attr));
a->attr = alloc(strlen(attr)+1);
strcpy(a->attr, attr);
a->val = alloc(strlen(val)+1);
strcpy(a->val, val);
a->next = tail;
return a;
}
static void
addattr(Attr** app, Ndbtuple* t)
{
Attr *l;
for(l = *app; l; l = l->next)
app = &l->next;
*app = mkattr(nil, t->attr, "%s", t->val);
}
char*
dbattr(Attr* ap, char* attr)
{
while(ap){
if(strcmp(ap->attr, attr) == 0)
return ap->val;
ap = ap->next;
}
return 0;
}
static Ctlr*
addctlr(Vga* vga, char* val)
{
Ctlr **ctlr;
char name[Namelen+1], *p;
int i;
/*
* A controller name may have an extension on the end
* following a '-' which can be used as a speed grade or
* subtype. Do the match without the extension.
* The linked copy of the controller struct gets the
* full name with extension.
*/
strncpy(name, val, Namelen);
name[Namelen] = 0;
if(p = strchr(name, '-'))
*p = 0;
for(i = 0; ctlrs[i]; i++){
if(strcmp(ctlrs[i]->name, name))
continue;
for(ctlr = &vga->link; *ctlr; ctlr = &((*ctlr)->link))
;
*ctlr = alloc(sizeof(Ctlr));
**ctlr = *ctlrs[i];
strncpy((*ctlr)->name, val, Namelen);
return *ctlr;
}
fprint(2, "dbctlr: unknown controller \"%s\" ctlr\n", val);
return 0;
}
int
dbbios(Vga *vga, Ndbtuple *tuple)
{
char *bios, *p, *string;
int len;
long offset, offset1;
Ndbtuple *t;
for(t = tuple->entry; t; t = t->entry){
if((offset = strtol(t->attr, 0, 0)) == 0)
continue;
string = t->val;
len = strlen(string);
if(p = strchr(t->attr, '-')) {
if((offset1 = strtol(p+1, 0, 0)) < offset+len)
continue;
} else
offset1 = offset+len;
if(vga->offset) {
if(offset > vga->offset || vga->offset+len > offset1)
continue;
offset = vga->offset;
offset1 = offset+len;
}
for(; offset+len<=offset1; offset++) {
if(vga->bios)
bios = vga->bios;
else
bios = readbios(len, offset);
if(strncmp(bios, string, len) == 0){
if(vga->bios == 0){
vga->bios = alloc(len+1);
strncpy(vga->bios, bios, len);
}
addattr(&vga->attr, t);
return 1;
}
}
}
return 0;
}
int
dbpci(Vga *vga, Ndbtuple *tuple)
{
int did, vid;
Ndbtuple *t, *td;
Pcidev *pci;
for(t = tuple->entry; t; t = t->entry){
if(strcmp(t->attr, "vid") != 0 || (vid=strtol(t->val, 0, 0)) == 0)
continue;
for(td = t->line; td != t; td = td->line){
if(strcmp(td->attr, "did") != 0)
continue;
if(strcmp(td->val, "*") == 0)
did = 0;
else if((did=strtol(td->val, 0, 0)) == 0)
continue;
for(pci=nil; pci=pcimatch(pci, vid, did);)
if(pci->ccrb == 3)
break;
if(pci == nil)
continue;
vga->pci = pci;
addattr(&vga->attr, t);
addattr(&vga->attr, td);
return 1;
}
}
return 0;
}
static void
save(Vga *vga, Ndbtuple *tuple)
{
Ctlr *c;
Ndbtuple *t;
for(t = tuple->entry; t; t = t->entry){
if(strcmp(t->attr, "ctlr") == 0){
vga->ctlr = addctlr(vga, t->val);
if(strcmp(t->val, "vesa") == 0)
vga->vesa = vga->ctlr;
}else if(strcmp(t->attr, "ramdac") == 0)
vga->ramdac = addctlr(vga, t->val);
else if(strcmp(t->attr, "clock") == 0)
vga->clock = addctlr(vga, t->val);
else if(strcmp(t->attr, "hwgc") == 0)
vga->hwgc = addctlr(vga, t->val);
else if(strcmp(t->attr, "link") == 0){
c = addctlr(vga, t->val);
if(strcmp(t->val, "vesa") == 0)
vga->vesa = c;
}else if(strcmp(t->attr, "linear") == 0)
vga->linear = strtol(t->val, 0, 0);
else if(strcmp(t->attr, "membw") == 0)
vga->membw = strtol(t->val, 0, 0)*1000000;
else if(strcmp(t->attr, "vid")==0 || strcmp(t->attr, "did")==0)
{}
else if(strtol(t->attr, 0, 0) == 0)
addattr(&vga->attr, t);
}
}
int
dbctlr(char* name, Vga* vga)
{
Ndb *db;
Ndbs s;
Ndbtuple *tuple;
Ndbtuple *pcituple;
db = dbopen(name);
/*
* Search vgadb for a matching BIOS string or PCI id.
* If we have both, the BIOS string wins.
*/
pcituple = nil;
for(tuple = ndbsearch(db, &s, "ctlr", ""); tuple; tuple = ndbsnext(&s, "ctlr", "")){
if(!pcituple && dbpci(vga, tuple))
pcituple = tuple;
if(dbbios(vga, tuple)){
save(vga, tuple);
if(pcituple && pcituple != tuple)
ndbfree(pcituple);
ndbfree(tuple);
ndbclose(db);
return 1;
}
if(tuple != pcituple)
ndbfree(tuple);
}
if(pcituple){
save(vga, pcituple);
ndbfree(pcituple);
}
ndbclose(db);
if(pcituple)
return 1;
return 0;
}
static int
dbmonitor(Ndb* db, Mode* mode, char* type, char* size)
{
Ndbs s;
Ndbtuple *t, *tuple;
char *p, attr[Namelen+1], val[Namelen+1], buf[2*Namelen+1];
int clock, x, i;
/*
* Clock rate hack.
* If the size is 'XxYxZ@NMHz' then override the database entry's
* 'clock=' with 'N*1000000'.
*/
clock = 0;
strcpy(buf, size);
if(p = strchr(buf, '@')){
*p++ = 0;
if((clock = strtol(p, &p, 0)) && strcmp(p, "MHz") == 0)
clock *= 1000000;
}
memset(mode, 0, sizeof(Mode));
if((p = strchr(buf, 'x')) && (p = strchr(p+1, 'x'))){
*p++ = 0;
mode->z = atoi(p);
}
strcpy(attr, type);
strcpy(val, buf);
if(p = ndbgetvalue(db, &s, attr, "", "videobw", nil)){
mode->videobw = strtol(p, 0, 0)*1000000UL;
free(p);
}
if(mode->x == 0 && ((mode->x = strtol(val, &p, 0)) == 0 || *p++ != 'x'))
return 0;
if(mode->y == 0 && (mode->y = strtol(p, &p, 0)) == 0)
return 0;
i = 0;
buggery:
if((tuple = ndbsearch(db, &s, attr, val)) == 0)
return 0;
for(t = tuple->entry; t; t = t->entry){
if(strcmp(t->attr, "clock") == 0 && mode->frequency == 0)
mode->frequency = strtod(t->val, 0)*1000000;
else if(strcmp(t->attr, "defaultclock") == 0 && mode->deffrequency == 0)
mode->deffrequency = strtod(t->val, 0)*1000000;
else if(strcmp(t->attr, "ht") == 0 && mode->ht == 0)
mode->ht = strtol(t->val, 0, 0);
else if(strcmp(t->attr, "shb") == 0 && mode->shb == 0)
mode->shb = strtol(t->val, 0, 0);
else if(strcmp(t->attr, "ehb") == 0 && mode->ehb == 0)
mode->ehb = strtol(t->val, 0, 0);
else if(strcmp(t->attr, "shs") == 0 && mode->shs == 0)
mode->shs = strtol(t->val, 0, 0);
else if(strcmp(t->attr, "ehs") == 0 && mode->ehs == 0)
mode->ehs = strtol(t->val, 0, 0);
else if(strcmp(t->attr, "vt") == 0 && mode->vt == 0)
mode->vt = strtol(t->val, 0, 0);
else if(strcmp(t->attr, "vrs") == 0 && mode->vrs == 0)
mode->vrs = strtol(t->val, 0, 0);
else if(strcmp(t->attr, "vre") == 0 && mode->vre == 0)
mode->vre = strtol(t->val, 0, 0);
else if(strcmp(t->attr, "hsync") == 0)
mode->hsync = *t->val;
else if(strcmp(t->attr, "vsync") == 0)
mode->vsync = *t->val;
else if(strcmp(t->attr, "interlace") == 0)
mode->interlace = *t->val;
else if(strcmp(t->attr, "include") == 0 /*&& strcmp(t->val, val) != 0*/){
strcpy(attr, t->attr);
strcpy(val, t->val);
ndbfree(tuple);
if(i++ > 5)
error("dbmonitor: implausible include depth at %s=%s\n", attr, val);
goto buggery;
}
else if(strcmp(t->attr, "include") == 0){
print("warning: bailed out of infinite loop in attr %s=%s\n", attr, val);
}
else
addattr(&mode->attr, t);
}
ndbfree(tuple);
if((x = strtol(size, &p, 0)) == 0 || x != mode->x || *p++ != 'x')
return 0;
if((x = strtol(p, &p, 0)) == 0 || x != mode->y || *p++ != 'x')
return 0;
if((x = strtol(p, &p, 0)) == 0 || x != mode->z)
return 0;
if(clock)
mode->frequency = clock;
return 1;
}
Mode*
dbmode(char* name, char* type, char* size)
{
Ndb *db;
Ndbs s;
Ndbtuple *t, *tuple;
Mode *mode;
char attr[Namelen+1];
ulong videobw;
db = dbopen(name);
mode = alloc(sizeof(Mode));
strcpy(attr, type);
videobw = 0;
/*
* Look for the attr=size entry.
*/
if(dbmonitor(db, mode, attr, size)){
strcpy(mode->type, type);
strcpy(mode->size, size);
ndbclose(db);
return mode;
}
if(mode->videobw && videobw == 0) /* we at least found that; save it away */
videobw = mode->videobw;
/*
* Not found. Look for an attr="" entry and then
* for an alias=attr within.
*/
buggery:
for(tuple = ndbsearch(db, &s, attr, ""); tuple; tuple = ndbsnext(&s, attr, "")){
for(t = tuple->entry; t; t = t->entry){
if(strcmp(t->attr, "alias"))
continue;
strcpy(attr, t->val);
if(dbmonitor(db, mode, attr, size)){
strcpy(mode->type, type);
strcpy(mode->size, size);
ndbfree(tuple);
ndbclose(db);
if(videobw)
mode->videobw = videobw;
return mode;
}
/*
* Found an alias but no match for size,
* restart looking for attr="" with the
* new attr.
*/
ndbfree(tuple);
goto buggery;
}
ndbfree(tuple);
}
free(mode);
ndbclose(db);
return 0;
}
void
dbdumpmode(Mode* mode)
{
Attr *attr;
Bprint(&stdout, "dbdumpmode\n");
Bprint(&stdout, "type=%s, size=%s\n", mode->type, mode->size);
Bprint(&stdout, "frequency=%d\n", mode->frequency);
Bprint(&stdout, "x=%d (0x%X), y=%d (0x%X), z=%d (0x%X)\n",
mode->x, mode->x, mode->y, mode->y, mode->z, mode->z);
Bprint(&stdout, "ht=%d (0x%X), shb=%d (0x%X), ehb=%d (0x%X)\n",
mode->ht, mode->ht, mode->shb, mode->shb, mode->ehb, mode->ehb);
Bprint(&stdout, "shs=%d (0x%X), ehs=%d (0x%X)\n",
mode->shs, mode->shs, mode->ehs, mode->ehs);
Bprint(&stdout, "vt=%d (0x%X), vrs=%d (0x%X), vre=%d (0x%X)\n",
mode->vt, mode->vt, mode->vrs, mode->vrs, mode->vre, mode->vre);
Bprint(&stdout, "hsync=%c, vsync=%c, interlace=%c\n",
mode->hsync, mode->vsync, mode->interlace);
for(attr = mode->attr; attr; attr = attr->next)
Bprint(&stdout, "mode->attr: %s=%s\n", attr->attr, attr->val);
}