Mac/Python/macsetfiletype.c

   1
   2 /*
   3  *  macsetfiletype - Set the mac's idea of file type
   4  *
   5  */
   6
   7 #include "macdefs.h"
   8
   9 int
  10 setfiletype(name, creator, type)
  11 char *name;
  12 long creator, type;
  13 {
  14         FInfo info;
  15         unsigned char *pname;
  16
  17         pname = (StringPtr) Pstring(name);
  18         if ( GetFInfo(pname, 0, &info) < 0 )
  19                 return -1;
  20         info.fdType = type;
  21         info.fdCreator = creator;
  22         return SetFInfo(pname, 0, &info);
  23 }
  24
  25 long
  26 getfiletype(name)
  27 char *name;
  28 {
  29         FInfo info;
  30         unsigned char *pname;
  31
  32         pname = (StringPtr) Pstring(name);
  33         if ( GetFInfo(pname, 0, &info) < 0 )
  34                 return -1;
  35         return info.fdType;
  36 }
  37