Return to master.c CVS log

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

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

1.1     ! root        1: #include "master.pri"
        !             2: #include "process.pri"
        !             3: SRCFILE("master.c")
        !             4: 
        !             5: char *Master::kbd(char*s)              { return PadRcv::kbd(s); }
        !             6: char *Master::help()                   { return PadRcv::help(); }
        !             7: 
        !             8: Master::Master()
        !             9: {
        !            10:        trace( "%d.Master()", this );
        !            11:        child = 0;
        !            12:        core = 0;
        !            13: }
        !            14: 
        !            15: Process *Master::makeproc(char* proc, char *stab, char *comment)
        !            16: {
        !            17:        Process *p;
        !            18: 
        !            19:        for( p = child; p; p = p->sibling )
        !            20:                if( !p->isdead
        !            21:                 && eqstr(proc,p->procpath)
        !            22:                 && eqstr(stab,p->stabpath) ){
        !            23:                        p->comment = comment?sf("%s", comment):(char *)0;
        !            24:                        insert(p);
        !            25:                        return p;
        !            26:                }
        !            27:        child = domakeproc(proc, stab, comment);
        !            28:        child->master = this;
        !            29:        insert(child);
        !            30:        return child;
        !            31: }
        !            32: 
        !            33: void Master::insert(Process *p)
        !            34: {
        !            35:        trace( "%d.insert(%d)", this, p ); VOK;
        !            36:        IF_LIVE( !p || p->disc()!=U_PROCESS ) return;
        !            37:        if( p->isdead ){
        !            38:                pad->removeline( (long)p );
        !            39:                return;
        !            40:        }
        !            41:        char *pp = p->procpath;
        !            42:        char *sp = p->stabpath;
        !            43:        char *ct = p->comment;
        !            44:        pad->insert( (long)p, SELECTLINE, (PadRcv*)p, p->carte(),
        !            45:                "%s %s %s", pp?pp:"", sp?sp:"", ct?ct:"");
        !            46: }
        !            47: 
        !            48: Process *Master::search(char *path)
        !            49: {
        !            50:        Process *p;
        !            51:        OK(0);
        !            52:        for( p = child; p; p = p->sibling )
        !            53:                if( eqstr(path, p->procpath) && p->core ) return p;
        !            54:        return 0;
        !            55: }

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