![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to srctext.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv9 / jtools / src / pi|
Return to srctext.c CVS log | Up to [Research Unix] / researchv9 / jtools / src / pi |
1.1 root 1: #include "symbol.h"
2: #include "srctext.pri"
3: #include "core.pub"
4: #include "symtab.pub"
5: #include "process.pub"
6: #include "bpts.pub"
7: #include "expr.pub"
8: #include "format.pub"
9: #include "frame.pri"
10: #include <CC/sys/types.h>
11: #include <CC/sys/stat.h>
12: #include <sys/dir.h>
13: SRCFILE("srctext.c")
14:
15: SrcText::SrcText(Source *s, long c)
16: {
17: trace( "%d.SrcText(%d,%d)", this, s, c ); VOK;
18: source = s;
19: compiletime = c;
20: path = source->_text;
21: prevpat = "<no pattern>";
22: }
23:
24: Core *SrcText::core() { return source->symtab->core(); }
25:
26: Process *SrcText::process() { return core()->process(); }
27:
28: void DoNothing(){}
29:
30: void SrcText::promote()
31: {
32: Menu m;
33: trace( "%d.promote()", this ); VOK;
34: if( promoted ){
35: process()->openglobals();
36: return;
37: }
38: Var *v;
39: BlkVars bv(source->blk);
40: int limit = 25;
41: while( limit-->0 && (v = bv.gen()) )
42: m.sort(sf("%s\240Sta",v->_text), (Action)&Frame::pickvar, (long)v);
43: char *t = sf("\276 %s", basename(source->text()));
44: m.first( t, (Action)&DoNothing );
45: process()->openglobals(&m);
46: promoted = 1;
47: }
48:
49: char *SrcText::read(Menu &m)
50: {
51: Func *fun;
52: register int l;
53: struct stat fdstat;
54: register char *p;
55: Menu sub;
56:
57: trace("%d.read(%d) path=%s", this, m, path); OK("SrcText::read");
58: if( edge ) return 0;
59: if( fstat(fd, &fdstat) )
60: return SysErr("cannot stat");
61: if( fdstat.st_size == 0 )
62: return "null file";
63: if( !compiletime ) compiletime = source->symtab->modtime();
64: if( modified(fd) > compiletime && !warned ){
65: ++warned;
66: trace( "%d>%d", modified(fd), compiletime );
67: return sf("modified since compilation at %24s",ctime(&compiletime));
68: }
69: warned = 0;
70: fun = (Func*)source->child;
71: long n = 0;
72: while( fun ){
73: Bls toc;
74: if( lastline < fun->lines.hi ) lastline = fun->lines.hi;
75: if( strlen(fun->text())<=32 && fun->lines.lo>0 ){
76: toc.af( "%s\256%d", fun->text(), fun->lines.lo );
77: sub.sort( toc.text, (Action) &SrcText::select, fun->lines.lo );
78: ++n;
79: }
80: fun = (Func*)fun->rsib;
81: }
82: if( lastline <= 0 )
83: return "not referenced by symbol table (cc -g?)";
84: m.last(sub.index(n>4 ? "index by fcn " : 0));
85: edge = new char*[lastline+1];
86: body = new char[fdstat.st_size];
87: if( !ReadOK( fd, body, fdstat.st_size ) )
88: return SysErr( "read error" );
89: l = 1;
90: p = body;
91: while( l <= lastline && *p ){ /* should check p stays in body */
92: edge[l++] = p;
93: while( *p && *p != '\n' ) ++p;
94: *p++ = '\0';
95: trace( "%d %s", l-1, edge[l-1] );
96: }
97: pad->lines(l-1);
98: return 0;
99: }
100:
101: void SrcText::open()
102: {
103: Menu m;
104: char *error = 0;
105: struct stat stbuf;
106:
107: trace( "%d.open() path=%s", this, path ); VOK;
108: if( pad && edge ){
109: pad->makecurrent();
110: return;
111: }
112: if( !pad ) pad = new Pad( (PadRcv*) this );
113: pad->options( TRUNCATE );
114: pad->banner( "Source Text: %s", process()->prefix(path) );
115: pad->name( basename(path) );
116: pad->tabs(4);
117: pad->error(0);
118: if( !edge ){
119: pad->menu( ZIndex );
120: pad->lines(0);
121: if( (fd = ::open(process()->prefix(path),0)) < 0 )
122: error= SysErr( "cannot open:" );
123: if( !error ){
124: if( ::fstat( fd, &stbuf ) )
125: error = "cannot stat";
126: else if( (stbuf.st_mode&S_IFMT) == S_IFDIR )
127: error = "is a directory";
128: }
129: if( !error ) error = read(m);
130: if( fd >= 0 ) close(fd);
131: if( !error ){
132: if( core()->online() ){
133: Action a = (Action)&SrcText::stmtstep;
134: Menu sub;
135: for( long i = 5; i <= 50; i += 5 )
136: sub.last(sf("step %3d stmts",i), a, i);
137: sub.last("step 100 stmts", a, 100);
138: sub.last("step 500 stmts", a, 500);
139: m.first("step into fcn", (Action)&SrcText::stepinto );
140: m.first(sub.index("step >4 stmts"));
141: m.first("step 4 stmts ", a, 4);
142: m.first("step 3 stmts ", a, 3);
143: m.first("step 2 stmts ", a, 2);
144: m.first("step 1 stmt ", a, 1);
145: }
146: m.first( "current stmt", (Action)&SrcText::currentstmt );
147: if( core()->online() )
148: m.first( "run", (Action)&SrcText::go );
149: }
150: }
151: m.first( sf( "reopen %s",basename(path)) ,(Action)&SrcText::reopen );
152: pad->menu(m);
153: pad->error( error );
154: pad->makecurrent();
155: }
156:
157: void SrcText::reopen()
158: {
159: trace( "%d.reopen()", this ); VOK;
160: free();
161: open();
162: }
163:
164: void SrcText::free()
165: {
166: trace( "%d.free()", this ); VOK;
167: if( edge ) { delete edge; edge = 0; }
168: if( body ) { delete body; body = 0; }
169: }
170:
171: void SrcText::userclose()
172: {
173: trace( "%d.userclose()", this ); VOK;
174: free();
175: if( pad ){
176: delete pad;
177: pad = 0;
178: }
179: }
180:
181: #define NONBPT 0
182: #define SETBPT 1
183: #define SETCLR 2
184: #define CLRBPT 3
185:
186: void SrcText::linereq(long i, Attrib a) /* profile hot spot ... */
187: {
188: Stmt *stmt = 0;
189: Bls t;
190: static Index *ix;
191: int bpty;
192:
193: trace( "%d.linereq(%d,0x%X)", this, i, a ); VOK;
194: if (!ix) {
195: ix = new Index[4];
196: for(int i = 0; i < 4; i++)
197: ix[i] = Index(0,0);
198: }
199: if( ix[0].null() ){ /* ... that's better */
200: Menu m[4];
201: for( bpty = NONBPT; bpty <= CLRBPT; ++bpty ){
202: m[bpty].last( "assembler", (Action) &Stmt::asmblr );
203: m[bpty].last( "open frame", (Action) &Stmt::openframe );
204: }
205: m[SETBPT].first( "cond bpt", (Action) &Stmt::conditional, (long)Q_BPT);
206: m[SETBPT].first( "trace on", (Action) &Stmt::settrace );
207: m[SETBPT].first( "set bpt", (Action) &Stmt::dobpt, 1 );
208:
209: m[SETCLR].first( "trace on", (Action) &Stmt::settrace );
210: m[SETCLR].first( "set bpt", (Action) &Stmt::dobpt, 1 );
211: m[SETCLR].first( "clear bpt", (Action) &Stmt::dobpt, 0 );
212:
213: m[CLRBPT].first( "clear bpt", (Action) &Stmt::dobpt, 0 );
214: for( bpty = NONBPT; bpty <= CLRBPT; ++bpty )
215: ix[bpty] = m[bpty].index();
216: }
217: if( !edge ) open();
218: if( !edge ) return;
219: if( i<1 || i>lastline ) return;
220: bpty = NONBPT;
221: stmt = source->stmtafter(i);
222: if( stmt && core()->online() ){
223: if( !process()->bpts()->isbpt(stmt) ){
224: bpty = SETBPT;
225: if( stmt->lineno==i && stmt->condition==Q_BPT ){
226: bpty = SETCLR;
227: t.af( "if( ? ) >>>" );
228: }
229: } else {
230: bpty = CLRBPT;
231: if( stmt->lineno == i ){
232: if( stmt->condition )
233: t.af("if(%s)", stmt->condtext->text);
234: t.af( ">>>" );
235: }
236: }
237: }
238: t.af("%s", edge[i] ? edge[i] : "");
239: pad->insert(i, (Attrib)a|ACCEPT_KBD, (PadRcv*)stmt, ix[bpty], "%s", t.text);
240: }
241:
242: char *SrcText::srcline(long i)
243: {
244: trace( "%d.srcline(%d)", this, i ); OK("SrcText::srcline");
245: if( !edge || i<1 || i>lastline ) return "";
246: return edge[i];
247: }
248:
249: void SrcText::select(long i, long svp)
250: {
251: trace( "%d.select(%d,%d)", this, i, svp ); VOK;
252: if( svp!=SVP || edge ) linereq(i, SELECTLINE);
253: }
254:
255: void SrcText::go()
256: {
257: trace( "%d.go()", this ); VOK;
258: process()->go();
259: }
260:
261: void SrcText::currentstmt()
262: {
263: trace( "%d.currentstmt()", this ); VOK;
264: core()->process()->currentstmt();
265: }
266:
267: void SrcText::stmtstep(long i)
268: {
269: trace( "%d.stmtstep()", this ); VOK;
270: process()->stmtstep(i);
271: }
272:
273: void SrcText::stepinto()
274: {
275: trace( "%d.stepinto()", this ); VOK;
276: process()->stepinto();
277: }
278:
279: char *SrcText::kbd(char *s)
280: {
281: trace( "%d.kbd(%s)", this, s ); OK("kbd");
282: if( edge ){
283: if( *s == '/' )
284: return contextsearch( lastline, s+1, 1 );
285: else if( *s == '?' )
286: return contextsearch( 1, s+1, -1 );
287: else if( alldigits(s) )
288: select( atoi(s) );
289: else
290: return help();
291: } else {
292: path = sf("%s",s);
293: reopen();
294: }
295: return 0;
296: }
297:
298: char *SrcText::help()
299: {
300: trace( "%d.help()", this ); OK("SrcText::help");
301: return edge ? "<line number> {display line} | [/?]<string> {search}"
302: : "<path> {change source file name}";
303: }
304:
305: char *SrcText::contextsearch(int from, char *pat, int dir)
306: {
307: trace( "%d.contextsearch(%d,%s,%d)", this, from, pat?pat:"", dir );
308: OK("contextsearch");
309: if( !pat || !*pat || !strcmp(pat,"?") || !strcmp(pat,"/") )
310: pat = prevpat;
311: prevpat = sf("%s", pat);
312: int patlen = strlen(pat);
313: register char pat0 = *pat;
314: for( int probe = from+dir; probe != from; probe += dir ){
315: if( probe == 0 ) probe = lastline;
316: if( probe == lastline+1 ) probe = 1;
317: register char *p;
318: for( p = edge[probe]; *p; ++p ){
319: if( *p == pat0 && !strncmp(p, pat, patlen) ){
320: linereq(probe, SELECTLINE);
321: return 0;
322: }
323: }
324: }
325: return sf("%s: not found", pat);
326: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.