Return to kernmaster.c CVS log

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

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

1.1     ! root        1: #include "hostcore.h"
        !             2: #include "master.pri"
        !             3: #include "process.pri"
        !             4: #include "symtab.pri"
        !             5: #include <CC/stdio.h>
        !             6: SRCFILE("kernmaster.c")
        !             7: 
        !             8: Process        *KernMaster::domakeproc(char *p, char *s, char* c)
        !             9: {
        !            10:        return (Process*) new KernProcess(child, p, s, c);
        !            11: }
        !            12: 
        !            13: extern char *UNIX;
        !            14: 
        !            15: KernMaster::KernMaster(SymTab *s)
        !            16: {
        !            17:        trace( "%d.KernMaster()", this );       VOK;
        !            18:        pad = new Pad( (PadRcv*) this );                /* this code cannot */
        !            19:        pad->options(TRUNCATE|SORTED);                  /* be in base ctor */
        !            20:        pad->name("kpi");
        !            21:        pad->banner("Kernel pi:");
        !            22:        pad->makecurrent();
        !            23:        core = new KernCore(0,this);
        !            24:        core->_symtab = s;
        !            25:        refresh();
        !            26: }
        !            27: 
        !            28: void KernMaster::refresh()
        !            29: {
        !            30:        trace( "%d.refresh()", this );  VOK;
        !            31:        pad->clear();
        !            32:        findcores("/tmp/dump");
        !            33:        findcores("/u/d");
        !            34:        findcores("/usr/dumps");
        !            35:        findcores("/usr1/dumps");
        !            36:        findcores("/usr2/dumps");
        !            37:        findcores("/usrc/dumps");
        !            38:        findcores(".");
        !            39:        for( Process *p = child; p; p = p->sibling )
        !            40:                if( p->core ) insert(p);
        !            41: }
        !            42: 
        !            43: void KernMaster::findcores(char *dir)
        !            44: {
        !            45:        FILE *fp, *Popen(char*,char*);
        !            46:        void Pclose(FILE *);
        !            47:        char file[16], n;
        !            48:        int fd;
        !            49: 
        !            50:        trace( "%d.findcores(%s)", this, dir ); VOK;
        !            51:        fd = open(dir, 0);
        !            52:        if( fd < 0 ) return;
        !            53:        close(fd);
        !            54:        if( !(fp = Popen( sf("ls -t %s", dir), "r")) )
        !            55:                return;
        !            56:        for( int i = 0; i < 5; ++i ){
        !            57:                if( !fgets(file, 16, fp) )
        !            58:                        break;
        !            59:                if( 1 == sscanf(file, "vmcore.%d", &n) )
        !            60:                        makeproc(sf("%s/vmcore.%d",dir,n),sf("%s/unix.%d",dir,n));
        !            61:        }
        !            62:        Pclose(fp);
        !            63: }
        !            64: char *KernMaster::kbd(char *s)
        !            65: {
        !            66:        char *corep, core[64], syms[64], star = 0;
        !            67:        KernProcess *p;
        !            68: 
        !            69:        trace( "%d.kbd(%s)", this, s );         OK("kbd");
        !            70:        while( *s == ' ' ) ++s;
        !            71:        while( *s==' ' ) ++s;
        !            72:        switch( *s ){
        !            73:        case '*':
        !            74:                star = 1;
        !            75:                for( ++s; *s==' '; ++s ) {}
        !            76:        default:
        !            77:                switch( sscanf(s, "%s %s \n", corep = core, syms) ){
        !            78:                case 1: syms[0] = '\0';
        !            79:                case 2: p = (KernProcess*) makeproc(corep, syms[0]?syms:0, 0);
        !            80:                        if( star && p ) p->open();
        !            81:                        break;
        !            82:                default:
        !            83:                return help();
        !            84:                }
        !            85:        }
        !            86:        return 0;
        !            87: }
        !            88: 
        !            89: char *KernMaster::help()
        !            90: {
        !            91:        trace( "%d.help()", this );
        !            92:        return ".../vmcore.N [.../unix.N] {identify system dump}";
        !            93: }

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