Added getfiletype routine

diff --git a/Mac/Python/macsetfiletype.c b/Mac/Python/macsetfiletype.c
index 328f02290db76382599cb2f0a87e4b2f7f57d03a..38b51ba33a5a0c5399ef39c9a5ea07c086b481d7 100644 (file)
--- 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;
+}
+