file type

setftype.c

@@ -0,0 +1,58 @@
+#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;
+}