Added getfiletype routine

b3642579 · Jack Jansen · 7f7f2748 · b3642579
Kaydet (Commit) b3642579 authored Şub 13, 1995 tarafından Jack Jansen
Hide whitespace changes
Inline Side-by-side

Showing with 13 additions and 0 deletions

macsetfiletype.c Mac/Python/macsetfiletype.c +13 -0

No files found.
--- 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;
+}
+