home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / C / Utilities / uupc 3.1 / (mail π) / macinit.c next >
Encoding:
C/C++ Source or Header  |  1992-03-01  |  479 b   |  33 lines  |  [TEXT/KAHL]
  1. /*            macinit.c
  2.  
  3.  
  4.  
  5.  
  6. */
  7.  
  8. #ifdef THINK_C
  9. # include "unixlibproto.h"
  10. #endif THINK_C
  11.  
  12. #include    <stdio.h>
  13.  
  14. #include "macinit.proto.h"
  15.  
  16. #include "macinit.proto.h"
  17.  
  18.  
  19. macinit(void)
  20. {
  21.     SysEnvRec SysEnv;
  22.     int i;
  23.     
  24.     SysEnvirons(1, &SysEnv);
  25.     
  26.     if ((i = OpenRFPerm("\pUUPC Settings", 0, fsRdPerm)) == -1 &&
  27.         (i = OpenRFPerm("\pUUPC Settings", SysEnv.sysVRefNum, fsRdPerm)) == -1) {
  28.         fprintf( stderr, "ERROR: Can't find \"UUPC Settings\" file here or in System Folder\r" );
  29.     }
  30.     return 0;
  31. }
  32.  
  33.