Return to printlist.c CVS log

Up to [CSRG BSD Unix] / 42BSD / ucb / gprof

Annotation of 42BSD/ucb/gprof/printlist.c, revision 1.1.1.1

1.1       root        1: #ifndef lint
                      2:     static     char *sccsid = "@(#)printlist.c 1.2 (Berkeley) 6/18/82";
                      3: #endif lint
                      4: 
                      5: #include "gprof.h"
                      6: 
                      7:     /*
                      8:      * these are the lists of names:
                      9:      * there is the list head and then the listname
                     10:      * is a pointer to the list head
                     11:      * (for ease of passing to stringlist functions).
                     12:      */
                     13: struct stringlist      fhead = { 0 , 0 };
                     14: struct stringlist      *flist = &fhead;
                     15: struct stringlist      Fhead = { 0 , 0 };
                     16: struct stringlist      *Flist = &Fhead;
                     17: struct stringlist      ehead = { 0 , 0 };
                     18: struct stringlist      *elist = &ehead;
                     19: struct stringlist      Ehead = { 0 , 0 };
                     20: struct stringlist      *Elist = &Ehead;
                     21: 
                     22: addlist( listp , funcname )
                     23:     struct stringlist  *listp;
                     24:     char               *funcname;
                     25: {
                     26:     struct stringlist  *slp;
                     27: 
                     28:     slp = (struct stringlist *) malloc( sizeof(struct stringlist));
                     29:     if ( slp == (struct stringlist *) 0 ) {
                     30:        fprintf( stderr, "gprof: ran out room for printlist\n" );
                     31:        done();
                     32:     }
                     33:     slp -> next = listp -> next;
                     34:     slp -> string = funcname;
                     35:     listp -> next = slp;
                     36: }
                     37: 
                     38: bool
                     39: onlist( listp , funcname )
                     40:     struct stringlist  *listp;
                     41:     char               *funcname;
                     42: {
                     43:     struct stringlist  *slp;
                     44: 
                     45:     for ( slp = listp -> next ; slp ; slp = slp -> next ) {
                     46:        if ( ! strcmp( slp -> string , funcname ) ) {
                     47:            return TRUE;
                     48:        }
                     49:        if ( funcname[0] == '_' && ! strcmp( slp -> string , &funcname[1] ) ) {
                     50:            return TRUE;
                     51:        }
                     52:     }
                     53:     return FALSE;
                     54: }

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