static void
pmcinit(void)
{
int i, j, ncores, nr;
Mach *mp;
_pmcupdate = pmcupdate;
ncores = 0;
nr = pmcnregs();
for(i = 0; i < MACHMAX; i++)
if((mp = sys->machptr[i]) != nil && mp->online){
ncores++;
for(j = 0; j < nr; j++)
pmcnull(&mp->pmc[j].PmcCtl);
}
topdirinit(ncores);
ctrdirinit();
}
static int32_t
pmcwrite(Chan *c, void *a, int32_t n, int64_t mm)
{
Proc *up = externup();
Cmdbuf *cb;
Cmdtab *ct;
uint32_t type;
char str[64]; /* 0x0000000000000000\0 */
AcPmcArg p;
AcCtrArg ctr;
uint64_t coreno;
Mach *mp;
if (c->qid.type == QTDIR)
error(Eperm);
if (c->qid.path == Qgctl)
error(Eperm);
if (n >= sizeof(str))
error(Ebadctl);
pmcnull(&p);
coreno = (uint64_t)c->aux;
p.coreno = coreno;
type = PMCTYPE(c->qid.path);
p.regno = PMCID(c->qid.path);
memmove(str, a, n);
str[n] = '\0';
mp = up->ac;
ctr.coreno = coreno;
ctr.regno = p.regno;
if (type == Qdata) {
/* I am a handler for a proc in the core, run an RPC*/
if (mp != nil && mp->machno == coreno) {
if (runac(mp, acpmcsetctr, 0, &ctr, sizeof(AcCtrArg)) < 0)
n = -1;
} else {
if (pmcsetctr(coreno, strtoull(str, 0, 0), p.regno) < 0)
n = -1;
}
return n;
}
/* TODO: should iterate through multiple lines */
if (strncmp(str, "set ", 4) == 0){
memmove(p.descstr, (char *)str + 4, n - 4);
p.descstr[n - 4] = '\0';
p.nodesc = 0;
} else {
cb = parsecmd(a, n);
if(waserror()){
free(cb);
nexterror();
}
ct = lookupcmd(cb, pmcctlmsg, nelem(pmcctlmsg));
switch(ct->index){
case Enable:
p.enab = 1;
break;
case Disable:
p.enab = 0;
break;
case User:
p.user = 1;
break;
case Os:
p.os = 1;
break;
case NoUser:
p.user = 0;
break;
case NoOs:
p.os = 0;
break;
case Reset:
p.reset = 1;
break;
case Debug:
pmcdebug = ~pmcdebug;
break;
default:
cmderror(cb, "invalid ctl");
break;
}
free(cb);
poperror();
}
/* I am a handler for a proc in the core, run an RPC*/
if (mp != nil && mp->machno == coreno) {
if (runac(mp, acpmcsetctl, 0, &p, sizeof(AcPmcArg)) < 0)
n = -1;
} else {
if (pmcsetctl(coreno, &p, p.regno) < 0)
n = -1;
}
return n;
}
