Changeset 506 for trunk/src/peldr/pe.cpp

Timestamp:

Aug 16, 1999, 3:56:54 PM (26 years ago)

Author:

sandervl

Message:

* empty log message *

File:

• trunk/src/peldr/pe.cpp (modified) (6 diffs)

trunk/src/peldr/pe.cpp

@@ -1 @@
-/* $Id: pe.cpp,v 1.4 1999-06-20 14:02:13 sandervl Exp $ */
+/* $Id: pe.cpp,v 1.5 1999-08-16 13:54:07 sandervl Exp $ */
 
-/*
- *
- * Project Odin Software License can be found in LICENSE.TXT
- *
- */
 /*
  * PELDR main exe loader code
  *
  * Copyright 1998 Sander van Leeuwen (sandervl@xs4all.nl)
+ *
+ *
+ * Project Odin Software License can be found in LICENSE.TXT
  *
  */
@@ -16 +14 @@
 #define INCL_DOSPROCESS          /* DOS Process values       */
 #define INCL_DOSMISC             /* DOS Miscellanous values  */
+#define INCL_DOSMODULEMGR
 #define INCL_WIN
-#include <os2wrap.h>    //Odin32 OS/2 api wrappers
+#include <os2.h>
+#include <bseord.h>
 #include <stdio.h>
 #include <string.h>
@@ -28 +28 @@
 #include <windll.h>
 #include <wprocess.h>
+#include "pe.h"
 
 char INFO_BANNER[]      = "Usage: PE winexe commandline";
@@ -40 +41 @@
 char fullpath[CCHMAXPATH];
 
-void UpCase(char *mixedcase);
+typedef HAB  (* APIENTRY WININITIALIZEPROC)(ULONG flOptions);
+typedef BOOL (* APIENTRY WINTERMINATEPROC)(HAB hab);
+typedef HMQ  (* APIENTRY WINCREATEMSGQUEUEPROC) (HAB hab, LONG cmsg);
+typedef BOOL (* APIENTRY WINDESTROYMSGQUEUEPROC) (HMQ hmq);
+typedef ULONG (* APIENTRY WINMESSAGEBOXPROC) (HWND hwndParent,
+                                              HWND hwndOwner,
+                                              PCSZ  pszText,
+                                              PCSZ  pszCaption,
+                                              ULONG idWindow,
+                                              ULONG flStyle);
+
+WININITIALIZEPROC      MyWinInitialize      = 0;
+WINTERMINATEPROC       MyWinTerminate       = 0;
+WINCREATEMSGQUEUEPROC  MyWinCreateMsgQueue  = 0;
+WINDESTROYMSGQUEUEPROC MyWinDestroyMsgQueue = 0;
+WINMESSAGEBOXPROC      MyWinMessageBox      = 0;
+
+WIN32CTOR              CreateWin32Exe       = 0;
 
 int main(int argc, char *argv[])
@@ -51 +69 @@
  PTIB   ptib;
  Win32Exe *WinExe;
- APIRET rc;
+ APIRET  rc;
+ HMODULE hmodPMWin, hmodKernel32;
 
-  if ((hab = WinInitialize(0)) == 0L) /* Initialize PM     */
-        return(1);
+  printf("memory allocated at %X\n", ReserveMem());
 
-  hmq = WinCreateMsgQueue(hab, 0);
+  rc = DosLoadModule(exeName, sizeof(exeName), "PMWIN.DLL", &hmodPMWin);
+  rc = DosQueryProcAddr(hmodPMWin, ORD_WIN32INITIALIZE, NULL, (PFN *)&MyWinInitialize);
+  rc = DosQueryProcAddr(hmodPMWin, ORD_WIN32TERMINATE, NULL, (PFN *)&MyWinTerminate);
+  rc = DosQueryProcAddr(hmodPMWin, ORD_WIN32CREATEMSGQUEUE, NULL, (PFN *)&MyWinCreateMsgQueue);
+  rc = DosQueryProcAddr(hmodPMWin, ORD_WIN32DESTROYMSGQUEUE, NULL, (PFN *)&MyWinDestroyMsgQueue);
+  rc = DosQueryProcAddr(hmodPMWin, ORD_WIN32MESSAGEBOX, NULL, (PFN *)&MyWinMessageBox);
 
+  rc = DosLoadModule(exeName, sizeof(exeName), "KERNEL32.DLL", &hmodKernel32);
+  rc = DosQueryProcAddr(hmodKernel32, 0, "CreateWin32Exe", (PFN *)&CreateWin32Exe);
+
+  if ((hab = MyWinInitialize(0)) == 0L) /* Initialize PM     */
+        return(1);
+
+  hmq = MyWinCreateMsgQueue(hab, 0);
+  
   if(argc < 2) {
-        WinMessageBox(HWND_DESKTOP, NULL, INFO_BANNER, szErrorTitle, 0, MB_OK | MB_ERROR | MB_MOVEABLE);
-        return(0);
+        MyWinMessageBox(HWND_DESKTOP, NULL, INFO_BANNER, szErrorTitle, 0, MB_OK | MB_ERROR | MB_MOVEABLE);
+        return(0);
   }
 
   strcpy(exeName, argv[1]);
-  UpCase(exeName);
+  strupr(exeName);
   if(strstr(exeName, ".EXE") == NULL) {
         strcat(exeName, ".EXE");
   }
-  WinExe = new Win32Exe(exeName);
+  WinExe = CreateWin32Exe(exeName);
   if(WinExe == NULL) {
-        WinMessageBox(HWND_DESKTOP, HWND_DESKTOP, szMemErrorMsg, szErrorTitle, 0, MB_OK | MB_ERROR | MB_MOVEABLE);
+        MyWinMessageBox(HWND_DESKTOP, HWND_DESKTOP, szMemErrorMsg, szErrorTitle, 0, MB_OK | MB_ERROR | MB_MOVEABLE);
         return(1);
   }
   rc = DosGetInfoBlocks(&ptib, &ppib);
   if(rc) {
-        WinMessageBox(HWND_DESKTOP, HWND_DESKTOP, szInteralErrorMsg, szErrorTitle, 0, MB_OK | MB_ERROR | MB_MOVEABLE);
+        MyWinMessageBox(HWND_DESKTOP, HWND_DESKTOP, szInteralErrorMsg, szErrorTitle, 0, MB_OK | MB_ERROR | MB_MOVEABLE);
         delete WinExe;
         return(1);
@@ -107 +138 @@
   delete WinExe;
 
-  if(hmq) WinDestroyMsgQueue( hmq );             /* Tidy up...                   */
-  WinTerminate( hab );                   /* Terminate the application    */
+  if(hmq) MyWinDestroyMsgQueue( hmq );             /* Tidy up...                   */
+  MyWinTerminate( hab );                   /* Terminate the application    */
+
+  DosFreeModule(hmodPMWin);
+  DosFreeModule(hmodKernel32);
   return(0);
 }
 //******************************************************************************
 //******************************************************************************
-void UpCase(char *mixedcase)
-{
- int i;
-
-  for(i=0;i<strlen(mixedcase);i++) {
-        if(mixedcase[i] >= 'a' && mixedcase[i] <= 'z') {
-                mixedcase[i] += 'A' - 'a';
-        }
-  }
-}
-//******************************************************************************
-//******************************************************************************