Added getfiletype routine

This commit is contained in:
Jack Jansen 1995-02-13 11:31:51 +00:00
parent 7f7f274839
commit b3642579fd
1 changed files with 13 additions and 0 deletions

View File

@ -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;
}