Added getfiletype routine

1995-02-13 11:31:51 +00:00 · 1995-02-13 11:31:51 +00:00 · b3642579fd
parent 7f7f274839
commit b3642579fd
1 changed files with 13 additions and 0 deletions
--- a/Mac/Python/macsetfiletype.c
+++ b/Mac/Python/macsetfiletype.c
@ -22,3 +22,16 @@ long creator, type;
 	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;
+}
+