Commits

Anonymous committed fc6e962

Added getfiletype routine

  • Participants
  • Parent commits 07913fb
  • Branches legacy-trunk

Comments (0)

Files changed (1)

Mac/Python/macsetfiletype.c

 	return SetFInfo(pname, 0, &info);
 }
 
+long
+getfiletype(name)
+char *name;
+{
+	FInfo info;
+	unsigned char *pname;
+	
+	pname = (StringPtr) Pstring(name);
+	if ( GetFInfo(pname, 0, &info) < 0 )
+		return -1;
+	return info.fdType;
+}
+