Initial version of FSSpec and Alias code. Non-functional as of now.

1 files changed, 76 insertions, 0 deletions

diff --git a/Mac/Compat/nfullpath.c b/Mac/Compat/nfullpath.c
new file mode 100644
index 0000000..6e7e1b6
--- /dev/null
+++ b/Mac/Compat/nfullpath.c
@@ -0,0 +1,76 @@
+/* GET FULL PATHNAME OF A FILE.
+** Original by Guido, modified by Jack to handle FSSpecs 
+** (and only tested under MetroWerks, so far)
+*/
+
+#if defined(MPW) || defined(__MWERKS__)
+#include <Files.h>
+#endif
+#ifdef THINK_C_PRE_5_0
+#include <HFS.h>
+#endif
+
+#include "nfullpath.h"
+
+/* Mac file system parameters */
+#define MAXPATH 256	/* Max path name length+1 */
+#define SEP ':'		/* Separator in path names */
+#define ROOTID 2	/* DirID of a volume's root directory */
+
+/* Macro to find out whether we can do HFS-only calls: */
+#define FSFCBLen (* (short *) 0x3f6)
+#define hfsrunning() (FSFCBLen > 0)
+
+int
+nfullpath(fsp, retbuf)
+	FSSpec *fsp;
+	char *retbuf;
+{
+	union {
+		HFileInfo f;
+		DirInfo d;
+		WDPBRec w;
+		VolumeParam v;
+	} pb;
+	static char cwd[2*MAXPATH];
+	unsigned char namebuf[MAXPATH];
+	short err;
+	int dir;
+	long dirid;
+	char *next= cwd + sizeof cwd - 1;
+	int len;
+	
+	
+	if (!hfsrunning())
+		return -1;
+	
+	dir  = fsp->vRefNum;
+	dirid = fsp->parID;
+	/* Stuff the filename into the buffer */
+	len = fsp->name[0];
+	*next = '\0';
+	next -= len+1;
+	memcpy(next, &fsp->name[1], len);
+	
+	for (;;) {
+		pb.d.ioNamePtr= namebuf;
+		pb.d.ioVRefNum= dir;
+		pb.d.ioFDirIndex= -1;
+		pb.d.ioDrDirID= dirid;
+		err= PBGetCatInfo((CInfoPBPtr)&pb.d, 0);
+		if (err != noErr) {
+			return err;
+		}
+		*--next= SEP;
+		len= namebuf[0];
+		if ( len + strlen(next) >= MAXPATH )
+			return -1;
+		next -= len;
+		memcpy(next, (char *)namebuf+1, len);
+		if (pb.d.ioDrDirID == ROOTID)
+			break;
+		dirid= pb.d.ioDrParID;
+	}
+	strcpy(retbuf, next);
+	return 0;
+}