From b3642579fd1f04d8ad6f4224ac36e5c821209aa0 Mon Sep 17 00:00:00 2001
From: Jack Jansen <jack.jansen@cwi.nl>
Date: Mon, 13 Feb 1995 11:31:51 +0000
Subject: Added getfiletype routine

---
 Mac/Python/macsetfiletype.c | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/Mac/Python/macsetfiletype.c b/Mac/Python/macsetfiletype.c
index 328f022..38b51ba 100644
--- 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;
+}
+
-- 
cgit v0.12