1 files changed, 18 insertions, 0 deletions
diff --git a/Mac/Compat/getbootvol.c b/Mac/Compat/getbootvol.c
new file mode 100644
index 0000000..8f5d28c
--- /dev/null
+++ b/Mac/Compat/getbootvol.c
@@ -0,0 +1,18 @@
+/* Return the name of the boot volume (not the current directory).
+   Public domain by Guido van Rossum, CWI, Amsterdam (July 1987).
+*/
+
+#include "macdefs.h"
+
+char *
+getbootvol()
+{
+	short vrefnum;
+	static unsigned char name[32];
+	
+	(void) GetVol(name, &vrefnum);
+	p2cstr(name);
+		/* Shouldn't fail; return ":" if it does */
+	strcat((char *)name, ":");
+	return (char *)name;
+}