home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / C / Libraries / maclibunix / rename.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-06  |  229 b   |  15 lines  |  [TEXT/R*ch]
  1. /* Rename emulator.
  2.    Public domain by Guido van Rossum, CWI, Amsterdam (July 1987). */
  3.  
  4. #include "macdefs.h"
  5.  
  6. int
  7. rename(old, new)
  8.     char *old, *new;
  9. {
  10.     if (Rename(old, 0, new) == noErr)
  11.         return 0;
  12.     errno= EPERM;
  13.     return -1;
  14. }
  15.