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

   1: /* $Header$ */
   2: 
   3: /*
   4:  * Author: Peter J. Nicklin
   5:  */
   6: 
   7: /*
   8:  * mkalias() constructs a project directory alias from a pathname.
   9:  */
  10: #include "path.h"
  11: 
  12: char *
  13: mkalias(pathname)
  14:     char *pathname;
  15: {
  16:     register char *ls;      /* last separator character */
  17:     register char *p;       /* pathname pointer */
  18: 
  19:     for (ls = p = pathname; *p != '\0'; p++)
  20:         if ((*p == _PSC || *p == _PPSC) && p[1] != '\0')
  21:             ls = p+1;
  22:     return(ls);
  23: }

Defined functions