Return to srcdir.c CVS log

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

Annotation of researchv9/jtools/src/pi/srcdir.c, revision 1.1.1.1

1.1       root        1: #include "srcdir.h"
                      2: #include "process.pri"
                      3: #include "symbol.h"
                      4: #include "srctext.pri"
                      5: #include "symtab.pub"
                      6: SRCFILE("srcdir.c")
                      7: 
                      8: SrcDir::SrcDir(Process *p)
                      9: {
                     10:        trace( "%d.SrcDir(%d)", this, p );      VOK;
                     11:        process = p;
                     12: }
                     13: 
                     14: void SrcDir::banner()
                     15: {
                     16:        trace( "%d.banner()", this );   VOK;
                     17:        if( pad ){
                     18:                pad->name( "Src Files" );
                     19:                pad->banner( "Source Files: %s", process->procpath );
                     20:        }
                     21: }
                     22: 
                     23: void SrcDir::hostclose()
                     24: {
                     25:        trace( "%d.hostclose()", this );        VOK;
                     26:        if( pad ) delete pad;
                     27:        pad = 0;
                     28: }
                     29: 
                     30: char *SrcDir::help()
                     31: {
                     32:        trace( "%d.help()", this );     OK("SrcDir::help");
                     33:        return "<path> {set source path prefix}";
                     34: }
                     35: 
                     36: char *SrcDir::kbd(char *s)
                     37: {
                     38:        trace( "%d.kbd(%s)", this, s ); OK("kbd");
                     39:        process->_prefix = sf("%s",s);
                     40:        pad->insert( 1, SELECTLINE|DONT_CUT, "    prefix: %s", s );
                     41:        return 0;
                     42: }
                     43: 
                     44: void SrcDir::open()
                     45: {
                     46:        Menu    m;
                     47:        long    k = 2;
                     48:        Source  *r;
                     49: 
                     50:        trace( "%d.open()", this );     VOK;
                     51:        if( !pad ){
                     52:                r = process->symtab()->root();
                     53:                if( !r ) return;
                     54:                if( !(Symbol*)r->rsib ){
                     55:                        r->srctext->open();
                     56:                        return;
                     57:                }
                     58:                pad = new Pad( this );
                     59:                banner();
                     60:                pad->options(SORTED);
                     61:                pad->makecurrent();
                     62:                m.last( "open source file", (Action)&SrcText::open);
                     63: // wait for complaints...
                     64: //             m.last( "file statics", (Action)&SrcText::promote);
                     65:                for( ; r; r = (Source*)((Symbol*)r->rsib) )
                     66:                    pad->insert( k++, DONT_CUT, (PadRcv*)r->srctext, m, r->_text );
                     67:        }
                     68:        pad->makecurrent();
                     69: }

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