prj/tech/libsrc/appcore/appcore.cpp

   1 ///////////////////////////////////////////////////////////////////////////////
   2 // $Source: x:/prj/tech/libsrc/appcore/RCS/appcore.cpp $
   3 // $Author: TOML $
   4 // $Date: 1997/02/15 17:44:44 $
   5 // $Revision: 1.28 $
   6 //
   7
   8 #ifdef _WIN32
   9 #include <windows.h>
  10 #endif
  11
  12 #include <lg.h>
  13 #include <codewrit.h>
  14
  15 #include <appagg.h>
  16 #include <objcguid.h>
  17 #include <objcoll.h>
  18 #include <stdlib.h>
  19
  20 ///////////////////////////////////////////////////////////////////////////////
  21
  22 static IAggregate * pAppAggregate;
  23
  24 ///////////////////////////////////////////////////////////////////////////////
  25
  26 tResult _AppAggregateCreate(REFIID)
  27 {
  28     pAppAggregate = CreateGenericAggregate("Application Aggregate", kISetKeyLGGUIDs);
  29     AssertMsg(pAppAggregate, "Failed to create application aggregate!");
  30     _AppSetAggregate(pAppAggregate);
  31     return (pAppAggregate) ? NOERROR : E_FAIL;
  32 }
  33
  34 ///////////////////////////////////////
  35
  36 static BOOL g_fCallAppExit;
  37 static BOOL g_fReturnedFromMain;
  38
  39 void AppOnExit()
  40 {
  41     // Tell the app the components are about to go away
  42     if (g_fCallAppExit)
  43         AppExit();
  44     if (pAppAggregate)
  45     {
  46         pAppAggregate->End();
  47
  48         //
  49         // This module always retains 1 reference on the aggregate. However, this
  50         // function must handle the (not too unusual) case of closing without cleaning
  51         // up all reference counts.
  52         //
  53         ulong ulRefsRemaining = pAppAggregate->ReleaseAll();
  54         //AssertMsg1(!g_fReturnedFromMain || ulRefsRemaining == 1, "Reference of application object is incorrect on exit (was %d, expected 1)", ulRefsRemaining);
  55         pAppAggregate = NULL;
  56     }
  57 }
  58
  59 ///////////////////////////////////////////////////////////////////////////////
  60
  61 extern "C" {
  62
  63 int _g_referenceExtendedStartup = 0;
  64 extern int _g_referenceEntryPoint;
  65
  66 };
  67
  68 ///////////////////////////////////////////////////////////////////////////////
  69 //
  70 // This is the primary client entry-point
  71 //
  72
  73 extern "C"
  74 int LGAPI _AppMain(int argc, const char *argv[])
  75 {
  76     // Force link of main/WinMain/LibMain
  77     _g_referenceEntryPoint = 1;
  78
  79 #ifdef _WIN32
  80     // Allow our code to be self-modifying
  81     if (GetPrivateProfileInt("AppCore", "MakeAllCodeWritable", !!(g_fAppStartupFlags & kASF_MakeCodeWritable), "lg.ini"))
  82         MakeAllCodeWritable();
  83 #endif
  84
  85     // Increase the number of available handles in the standard buffered i/o
  86     #ifdef __WATCOMC__
  87     _grow_handles(60);
  88     #else
  89     #pragma message("Need a way to increase available file handles")
  90     #endif
  91
  92     // Create the core aggregate entity
  93     _AppAggregateCreate(IID_IAggregate);
  94
  95     // Tell the app to create the application-level COM objects
  96     if (AppCreateObjects(argc, argv) != NOERROR)
  97         return 1;
  98
  99     // Clean-up is done through exit()
 100     atexit(AppOnExit);
 101
 102     // Initialize the components
 103     if (pAppAggregate)
 104         pAppAggregate->Init();
 105
 106     // Tell the app the components are initialized
 107     if (AppInit() != NOERROR)
 108         return 1;
 109
 110     // Set flag indicating successful initialization, so should call AppExit()
 111     g_fCallAppExit = TRUE;
 112
 113     // Start the application
 114     int mainRetVal = AppMain(argc, argv);
 115     g_fReturnedFromMain = TRUE;
 116     return mainRetVal;
 117 }
 118
 119 ///////////////////////////////////////////////////////////////////////////////
 120 //
 121 // Symbol to Force inclusion of this extended startup code
 122 //
 123
 124 int __ExtendedStartup(void)
 125 {
 126     return 0;
 127 }