Changeset 1844 for trunk/src/kernel32/winimagepe2lx.cpp

Timestamp:

Nov 26, 1999, 1:05:20 AM (26 years ago)

Author:

sandervl

Message:

Allow executable api exports

File:

• trunk/src/kernel32/winimagepe2lx.cpp (modified) (3 diffs)

trunk/src/kernel32/winimagepe2lx.cpp

@@ -1 @@
-/* $Id: winimagepe2lx.cpp,v 1.5 1999-11-18 08:55:06 bird Exp $ */
+/* $Id: winimagepe2lx.cpp,v 1.6 1999-11-26 00:05:19 sandervl Exp $ */
 
 /*
@@ -16 +16 @@
 #define INCL_DOSERRORS          /* DOS Error values */
 #define INCL_DOSPROFILE         /* DosQuerySysState (Toolkit 4.5) */
+#define INCL_DOSMODULEMGR   /* DOS Module management */
 
 #define ALIGN(a, alignment) (((a) + (alignment - 1UL)) & ~(alignment - 1UL))
@@ -524 +525 @@
 }
 
+/**
+ * Gets pointer to an exported procedure by procedure name.
+ * @returns   Address of exported procedure. 0UL if not found.
+ * @param     name  Exported procedure name.
+ * @status    completely implemented.
+ * @author    Sander van Leeuwen
+ * @remark
+ */
+ULONG Win32Pe2LxImage::getApi(char *name)
+{
+    APIRET      rc;
+    ULONG       ulApiAddr;
+
+    rc = DosQueryProcAddr(hinstance, 0, name, (PFN *)&ulApiAddr);
+    return rc == NO_ERROR ? ulApiAddr : 0;
+}
+
+
+/**
+ * Gets pointer to an exported procedure by ordinal.
+ * @returns   Pointer to an exported procedure. 0UL if not found.
+ * @param     ordinal  Export ordinal number.
+ * @status    completely implemented.
+ * @author    Sander van Leeuwen
+ * @remark    FIXME:
+ *            This function should be implemented for both Exe and Dll images!
+ *            It could be done similar in both peldr image and pe2lx images by
+ *            accessing PE structures.
+ */
+ULONG Win32Pe2LxImage::getApi(int ordinal)
+{
+    APIRET      rc;
+    ULONG       ulApiAddr;
+
+    rc = DosQueryProcAddr(hinstance, ordinal, NULL, (PFN *)&ulApiAddr);
+
+    return rc == NO_ERROR ? ulApiAddr : 0;
+}