Return to xrefb.c CVS log

Up to [Research Unix] / researchv10no / cmd / xref

Annotation of researchv10no/cmd/xref/xrefb.c, revision 1.1.1.1

1.1       root        1: #include "ctype.h"
                      2: #include "output.h"
                      3: #include "input.h"
                      4: #define eqstr(a,b) (cf(a,b)==0)
                      5: #define cpstr(x) movstr(w,x)
                      6: #define MAXW 128
                      7: 
                      8: char   w[MAXW];
                      9: char   word();
                     10: int    width=120;
                     11: 
                     12: main(argc,argv)
                     13: int    argc;
                     14: char   *argv[];
                     15: {
                     16:        char f1[MAXW], f2[MAXW];
                     17:        FILEBLK f;
                     18:        char first;
                     19: 
                     20:        /* args ? */
                     21:        if(argc>1) {
                     22:                width=atoi(argv[1]);
                     23:        }
                     24: 
                     25:        initf(0);
                     26:        f1[0]=0; f2[0]=0;
                     27: 
                     28:        while(eof==0) {
                     29:                word();
                     30: 
                     31:                if(w[0]!=first) {
                     32:                        first=w[0];
                     33:                        newline();
                     34:                }
                     35: 
                     36:                if(eqstr(w,f1)) {
                     37:                        word();
                     38:                        if(!eqstr(w,f2)) {
                     39:                                print("\n%16t%s", w);
                     40:                                ensure(32);
                     41:                                cpstr(f2);
                     42:                        }
                     43:                }else{  cpstr(f1);
                     44:                        print("\n%s", f1);
                     45:                        ensure(16);
                     46:                        word(); cpstr(f2);
                     47:                        print("%s", f2);
                     48:                        ensure(32);
                     49:                }
                     50: 
                     51:                word();
                     52:                if(charpos()>=width) {
                     53:                        print("\n%32t");
                     54:                }
                     55:                print("%s %4t", w);
                     56:        }
                     57:        exit(0);
                     58: }
                     59: 
                     60: ensure(n)
                     61: int    n;
                     62: {
                     63:        if(charpos()<n-1)
                     64:                print("%T",n);
                     65:        else    print("\n%T",n);
                     66: }
                     67: 
                     68: char   word()
                     69: {
                     70:        register char *p=w;
                     71:        register char c;
                     72: 
                     73:        while((c=readc())!=':' && c!='\n' && c!=EOF) {
                     74:                if(p<&w[MAXW]) {
                     75:                        *p++ = c;
                     76:                }
                     77:        }
                     78:        *p++ = 0;
                     79:        return(c&0377);
                     80: }

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