Diff of /sandbox/mark/trunk.no.wait.on.single.object/interpreter/platform/windows/SystemInitialization.cpp [000000] .. [r8591] Maximize Restore

  Switch to side-by-side view

--- a
+++ b/sandbox/mark/trunk.no.wait.on.single.object/interpreter/platform/windows/SystemInitialization.cpp
@@ -0,0 +1,86 @@
+/*----------------------------------------------------------------------------*/
+/*                                                                            */
+/* Copyright (c) 1995, 2004 IBM Corporation. All rights reserved.             */
+/* Copyright (c) 2005-2009 Rexx Language Association. All rights reserved.    */
+/*                                                                            */
+/* This program and the accompanying materials are made available under       */
+/* the terms of the Common Public License v1.0 which accompanies this         */
+/* distribution. A copy is also available at the following address:           */
+/* http://www.oorexx.org/license.html                          */
+/*                                                                            */
+/* Redistribution and use in source and binary forms, with or                 */
+/* without modification, are permitted provided that the following            */
+/* conditions are met:                                                        */
+/*                                                                            */
+/* Redistributions of source code must retain the above copyright             */
+/* notice, this list of conditions and the following disclaimer.              */
+/* Redistributions in binary form must reproduce the above copyright          */
+/* notice, this list of conditions and the following disclaimer in            */
+/* the documentation and/or other materials provided with the distribution.   */
+/*                                                                            */
+/* Neither the name of Rexx Language Association nor the names                */
+/* of its contributors may be used to endorse or promote products             */
+/* derived from this software without specific prior written permission.      */
+/*                                                                            */
+/* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS        */
+/* "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT          */
+/* LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS          */
+/* FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT   */
+/* OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,      */
+/* SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED   */
+/* TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA,        */
+/* OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY     */
+/* OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING    */
+/* NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS         */
+/* SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.               */
+/*                                                                            */
+/*----------------------------------------------------------------------------*/
+/******************************************************************************/
+/*  wininit.c - dllentrypoint for oryxk.dll                                   */
+/*                                                                            */
+/******************************************************************************/
+#include <stdio.h>                          /* Get printf, FILE type, etc.    */
+#include <string.h>                         /* Get strcpy, strcat, etc.       */
+#include <stdlib.h>                         /* Get system, max_path etc...    */
+#include "RexxCore.h"
+#include "SystemInterpreter.hpp"
+
+/*
+ */
+/********************************************************************/
+/*                                                                  */
+/* Function name:      DllMain                                      */
+/*                                                                  */
+/* Description:        EntryPoint for REXX.DLL                      */
+/*                                                                  */
+/* Function:           Called by O/S whenever a process attaches    */
+/*                     or detaches from the DLL.                    */
+/*                     This entry point is used to initialize the   */
+/*                     memory manager, and check to make sure       */
+/*                     it is functioning.                           */
+/*                                                                  */
+/* Inputs:             Defined by DllEntryPoint function of Windows */
+/*                                                                  */
+/* Outputs:            true if successful, false if failure.        */
+/*                                                                  */
+/* Notes:                                                           */
+/*                                                                  */
+/*                                                                  */
+/********************************************************************/
+BOOL WINAPI DllMain(
+  HINSTANCE hinstDll,
+  DWORD fdwReason,
+  LPVOID lpvReserved)
+{
+   if (fdwReason == DLL_PROCESS_ATTACH)
+   {
+       // perform the interpreter start up
+       SystemInterpreter::processStartup(hinstDll);
+   }
+   else if (fdwReason == DLL_PROCESS_DETACH)
+   {
+       SystemInterpreter::processShutdown();
+   }
+   return TRUE;
+}
+