From fa39132cdc677dec30c0e6f048ac69901e11f4ac Mon Sep 17 00:00:00 2001
From: Charles Lehner <celehner1@gmail.com>
Date: Sun, 28 Sep 2014 11:18:27 -0400
Subject: [PATCH] Add GetWDInfo glue

---
 libretro/glue.c | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/libretro/glue.c b/libretro/glue.c
index aa3963faf6..8f57ad7a0f 100644
--- a/libretro/glue.c
+++ b/libretro/glue.c
@@ -187,3 +187,18 @@ pascal OSErr Create (ConstStr255Param fileName, short vRefNum, OSType creator,
 	// save finder info
 	return PBSetFInfoSync(&pb);
 }
+
+pascal OSErr GetWDInfo(short wdRefNum, short *vRefNum, long *dirID,
+		long *procID)
+{
+	OSErr err;
+	WDPBRec	pb;
+	memset(&pb, 0, sizeof(pb));
+	pb.ioVRefNum = wdRefNum;
+	err = PBGetWDInfo(&pb, false);
+	*vRefNum = pb.ioWDVRefNum;
+	*dirID = pb.ioWDDirID;
+	*procID = pb.ioWDProcID;
+	return err;
+}
+