Return to batch.c CVS log

Up to [Research Unix] / researchv9 / jtools / src / pi

Annotation of researchv9/jtools/src/pi/batch.c, revision 1.1

1.1     ! root        1: #include "master.pri"
        !             2: #include "process.pri"
        !             3: #include "frame.pub"
        !             4: #include "hostcore.h"
        !             5: #include "format.pub"
        !             6: #include <CC/stdio.h>
        !             7: #include "expr.pub"
        !             8: #include "symbol.h"
        !             9: SRCFILE("batch.c")
        !            10: 
        !            11: void BatchProcess::open()
        !            12: {
        !            13:        core = (Core*) new HostCore(this, master);
        !            14:        char *error = core->open();
        !            15:        if( error ){
        !            16:                fprintf(stderr, "%s\n", error);
        !            17:                exit(1);
        !            18:        }
        !            19:        CallStk *c = core->callstack();
        !            20:        for( long l = c->size-1; l>=0; --l )
        !            21:                if( l<32 || l>c->size-32 ){
        !            22:                Frame f = c->frame(l);
        !            23:                Bls t;
        !            24:                f.addsymbols();
        !            25:                printf("%s\n", f.text(t));
        !            26:                if( f.func ){
        !            27:                        BlkVars bv(f.func->blk(f.pc));
        !            28:                        Var *v;
        !            29:                        while( v = bv.gen() ){
        !            30:                                Bls tt;
        !            31:                                if( v->disc() == U_ARG ) continue;
        !            32:                                Expr *e = E_Sym(v);
        !            33:                                e->evaltext(&f, tt);
        !            34:                                printf("\t%s\n", tt.text);
        !            35:                        }
        !            36:                }
        !            37:        }
        !            38: }
        !            39: 
        !            40: BatchMaster::BatchMaster(char *c, char *a)
        !            41: {
        !            42:        new BatchProcess(c, a)->open();
        !            43: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.