home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume25 / trash / part01 / myname.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-03-22  |  374 b   |  26 lines
  1. char    *
  2. myname()
  3. {
  4.     static char    *s_myname;
  5.  
  6.     if (s_myname == (char *)0)
  7.     {
  8.         extern char    *strrchr();
  9.         extern char    **gargv;
  10.  
  11.         if (gargv == (char **)0)
  12.         {
  13.             /*
  14.              * Klutz - you forgot to initialise gargv in main().
  15.              */
  16.             s_myname = "?";
  17.         }
  18.         else if ((s_myname = strrchr(*gargv, '/')) == (char *)0)
  19.             s_myname = *gargv;
  20.         else
  21.             s_myname++;
  22.     }
  23.  
  24.     return s_myname;
  25. }
  26.