59 lines
1.1 KiB
C
59 lines
1.1 KiB
C
#pragma optimize 79
|
|
|
|
#include <GSOS.h>
|
|
|
|
#include <stdlib.h>
|
|
#include <gno/gno.h>
|
|
|
|
extern int parse_ftype(const char *cp, Word size, Word *ftype, Word *atype);
|
|
|
|
int setfiletype(const char *filename)
|
|
{
|
|
int pd;
|
|
int i;
|
|
|
|
Word ftype;
|
|
Word atype;
|
|
int rv;
|
|
|
|
FileInfoRecGS info;
|
|
|
|
// find the extension in the filename.
|
|
|
|
pd = -1;
|
|
for (i = 0; ; ++i)
|
|
{
|
|
char c;
|
|
|
|
c = filename[i];
|
|
if (c == 0) break;
|
|
if (c == '.') pd = i;
|
|
}
|
|
|
|
// pd == position of final .
|
|
// i == strlen
|
|
|
|
if (pd == -1) return 0;
|
|
if (pd + 1 >= i) return 0;
|
|
pd++; // skip past it...
|
|
|
|
if (!parse_ftype(filename + pd, i - pd, &ftype, &atype))
|
|
return 0;
|
|
|
|
info.pCount = 4;
|
|
info.pathname = (GSString255Ptr)__C2GSMALLOC(filename);
|
|
info.access = 0xe3;
|
|
info.auxType = atype;
|
|
info.fileType = ftype;
|
|
|
|
//GetFileInfoGS(&info);
|
|
//if (_toolErr) return 0;
|
|
|
|
SetFileInfoGS(&info);
|
|
rv = _toolErr;
|
|
if (_toolErr)
|
|
|
|
free(info.pathname);
|
|
return rv ? 0 : 1;
|
|
}
|