Return to printlist.c CVS log

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

Annotation of 43BSD/ucb/gprof/printlist.c, revision 1.1

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

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