4.3BSD - /usr/src/ucb/pascal/pdx/runtime/isactive.c

   1: /*
   2:  * Copyright (c) 1980 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[] = "@(#)isactive.c	5.1 (Berkeley) 6/6/85";
   9: #endif not lint
  10: /*
  11:  * Decide a the given function is currently active.
  12:  */
  13: 
  14: #include "defs.h"
  15: #include "runtime.h"
  16: #include "frame.rep"
  17: #include "sym.h"
  18: #include "machine.h"
  19: #include "process.h"
  20: 
  21: BOOLEAN isactive(f)
  22: SYM *f;
  23: {
  24:     if (isfinished(process)) {
  25:         return(FALSE);
  26:     } else {
  27:         if (f == program) {
  28:             return(TRUE);
  29:         }
  30:         return(findframe(f) != NIL);
  31:     }
  32: }

Defined functions

Defined variables