home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / Python 1.1 / Mac / getbootvol.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-08-19  |  376 b   |  19 lines  |  [TEXT/KAHL]
  1. /* Return the name of the boot volume (not the current directory).
  2.    Public domain by Guido van Rossum, CWI, Amsterdam (July 1987).
  3. */
  4.  
  5. #include "macdefs.h"
  6.  
  7. char *
  8. getbootvol()
  9. {
  10.     short vrefnum;
  11.     static unsigned char name[32];
  12.     
  13.     (void) GetVol(name, &vrefnum);
  14.     p2cstr(name);
  15.         /* Shouldn't fail; return ":" if it does */
  16.     strcat((char *)name, ":");
  17.     return (char *)name;
  18. }
  19.