diff options
| -rw-r--r-- | Mac/Python/macsetfiletype.c | 13 |
1 files changed, 13 insertions, 0 deletions
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; +} + |