# 2.11BSD#431 - /usr/src/ucb/PORT/pascal/pdx/runtime/isactive.c

##### Functions

    isactive          X

       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

isactive defined in line 21; never used

#### Defined variables

sccsid defined in line 8; never used

Last modified: 1985-06-06 Generated: 2016-12-26 | Generated by src2html V0.67 page hit count: 659 |