Subversion Repositories planix.SVN

// support for acme; acid must be run with /acme/acid/$cputype/Acid


defn w(*code)
{
        local dir;

        printto("/tmp/acme.acid", eval code);
        rc("cat /tmp/acme.acid | wnew -d "+"Acid/-stk'("+itoa(pid)+")'");
}

defn procstk(pid, name)
{
        local dir;

        printto("/tmp/acme.acid", stk());
        rc("cat /tmp/acme.acid | wnew -d "+"Acid/-'"+name+"("+itoa(pid)+")'");
}

defn taskstk(tid, name)
{
        local dir;

        printto("/tmp/acme.acid", threadstk(tid));
        rc("cat /tmp/acme.acid | wnew -d "+"Acid/-"+name+"'("+itoa(pid)+")'");
}

defn _stk(pc, sp, link, dolocals)
{
        local stk;

        print("At pc:", pc, ":", fmt(pc, 'a'), " ");
        pfl(pc);

        stk = strace(pc, sp, link);

        while stk do {
                frame = head stk;
                print(fmt(frame[0], 'a'), "(");
                params(frame[2], frame[0]);
                print(") ");
                print("\n\tcalled from ", fmt(frame[1], 'a'), " ");
                pfl(frame[1]);
                stk = tail stk;
                if dolocals then
                        locals(frame[3], frame[0]);
        }
}

//defn _stk(pc, sp, dolocals)
//{
//      w(__stk(pc, sp, dolocals));
//}


defn params(param, name)
{
        while param do {
                sym = head param;
                print("*", fmt(name, 'a'), ":", sym[0], "=", sym[1]);
                param = tail param;
                if param then
                        print (",");
        }       
}

defn locals(l, name)
{
        local sym;

        while l do {
                sym = head l;
                print("\t*", fmt(name, 'a'), ":", sym[0], "=", sym[1], "\n");
                l = tail l;
        }       
}

defn bptab()                                    // print a table of breakpoints
{
        local lst, addr;

        lst = bplist;
        while lst do {
                addr = head lst;
                print("\tbpdel(", fmt(addr, 'a'), ")\n");
                lst = tail lst;
        }
}

defn procs()                    // print status of processes
{
        local c, lst, cpid;

        cpid = pid;
        lst = proclist;
        while lst do {
                np = head lst;
                setproc(np);
                if np == cpid then
                        print(">");
                print("\t", "setproc(", np, ")\t", status(np), " at ", fmt(*PC, 'a'), "\n");
                lst = tail lst;
        }
        pid = cpid;
        if pid != 0 then
                setproc(pid);
}

defn allstacks()                        // print stacks of processes and threads
{
        complex Proc P;
        local T, Tq;
        local c, lst, cpid;

        cpid = pid;
        P = (Proc)pq.$head;
        while P != 0 do{
                Tq = (Tqueue)P.threads;
                T = (Thread)Tq.$head;
                setproc(P.pid);
                while T != 0 do{
                        if(T.cmdname == 0) then taskstk(T, "unknown");
                        else taskstk(T, *(T.cmdname\s));
                        T = T.nextt;
                }
                P = P.next;
        }
        pid = cpid;
        if pid != 0 then
                setproc(pid);
}

print("/sys/lib/acid/acme");