Return to isactive.c CVS log

Up to [CSRG BSD Unix] / 42BSD / ucb / pascal / pdx / runtime

Annotation of 42BSD/ucb/pascal/pdx/runtime/isactive.c, revision 1.1.1.1

1.1       root        1: /* Copyright (c) 1982 Regents of the University of California */
                      2: 
                      3: static char sccsid[] = "@(#)isactive.c 1.1 1/18/82";
                      4: 
                      5: /*
                      6:  * Decide a the given function is currently active.
                      7:  */
                      8: 
                      9: #include "defs.h"
                     10: #include "runtime.h"
                     11: #include "frame.rep"
                     12: #include "sym.h"
                     13: #include "machine.h"
                     14: #include "process.h"
                     15: 
                     16: BOOLEAN isactive(f)
                     17: SYM *f;
                     18: {
                     19:        if (isfinished(process)) {
                     20:                return(FALSE);
                     21:        } else {
                     22:                if (f == program) {
                     23:                        return(TRUE);
                     24:                }
                     25:                return(findframe(f) != NIL);
                     26:        }
                     27: }

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