4.3BSD - /usr/src/new/spms/src/lib/libspms/src/getcwp.c

   1: /* $Header$ */
   2: 
   3: /*
   4:  * Author: Peter J. Nicklin
   5:  */
   6: 
   7: /*
   8:  * getcwp() returns the pathname of the current working project. If the
   9:  * PROJECT environment variable is undefined or a null string, null is
  10:  * returned.
  11:  */
  12: #include "null.h"
  13: 
  14: char *
  15: getcwp()
  16: {
  17:     extern char *_PROJECT;      /* project root directory pathname */
  18:     void getproject();      /* get PROJECT environment variable */
  19: 
  20:     if (_PROJECT == NULL)
  21:         getproject();
  22:     return(_PROJECT);
  23: }

Defined functions