commit | b3642579fd1f04d8ad6f4224ac36e5c821209aa0 | [log] [tgz] |
---|---|---|
author | Jack Jansen <jack.jansen@cwi.nl> | Mon Feb 13 11:31:51 1995 +0000 |
committer | Jack Jansen <jack.jansen@cwi.nl> | Mon Feb 13 11:31:51 1995 +0000 |
tree | 92ee7d631aa3f2313491710b3c1a993bb8d8629d | |
parent | 7f7f27483996ae9fcb2ed4fb0a3690280cda7b4a [diff] |
Added getfiletype routine
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 @@ 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; +} +