home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / oclsrc15.zip / OCL / Source / OApp.cpp < prev    next >
Encoding:
C/C++ Source or Header  |  1996-08-12  |  4.2 KB  |  201 lines
  1. // OCL - OS/2 Class Library
  2. // (c) Cubus 1995
  3. // All Rights Reserved
  4. // OApp.cpp
  5.  
  6. /*
  7.  * Redistribution and use in source and binary forms, with or without
  8.  * modification, are permitted provided that the following conditions
  9.  * are met:
  10.  * 1. Redistributions of source code must retain the above copyright
  11.  *    notice, this list of conditions and the following disclaimer.
  12.  * 2. Neither the name Cubus nor the name Team OCL may be used to
  13.  *    endorse or promote products derived from this software
  14.  *    without specific prior written permission.
  15.  * 3. See OCL.INF for a detailed copyright notice.
  16.  *
  17.  *              THIS SOFTWARE IS PROVIDED ``AS IS'' AND
  18.  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  19.  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  20.  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  21.  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  22.  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  23.  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  24.  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  25.  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  26.  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  27.  * SUCH DAMAGE.
  28.  */
  29.  
  30. // $Header: W:/Projects/OCL/Source/rcs/OApp.cpp 1.50 1996/08/11 23:49:06 B.STEIN Release $
  31.  
  32. #define __OCL_SOURCE__
  33.  
  34. #define OINCL_OSTRING
  35. #define OINCL_BASE
  36.  
  37. #include <ocl.hpp>
  38. #include <OCommand.hpp>
  39. #include <OApp.hpp>
  40.  
  41.  
  42. // OApp
  43.  
  44.  
  45. pOApp OApp::currentOApp = (pOApp)NULL;
  46.  
  47.  
  48. OApp::OApp(ULONG queueSize) 
  49.   : init(queueSize)
  50. {
  51.  if (!OApp::currentOApp)
  52.    OApp::currentOApp = this;
  53. }
  54.  
  55.  
  56. OApp::OApp(const ULONG num, CHAR *Parms[], ULONG queueSize)
  57.   : OAppBase(num, Parms),
  58.     init(queueSize)
  59. {
  60.  if (!OApp::currentOApp)
  61.    OApp::currentOApp = this;
  62. }
  63.  
  64.  
  65. OApp::~OApp() 
  66. {
  67.  if (OApp::currentOApp == this)
  68.    OApp::currentOApp = NULL;
  69. }
  70.  
  71.  
  72. PSZ OApp::isOfType() const
  73. { 
  74.  return("OApp"); 
  75. }
  76.  
  77.  
  78. OApp& OApp::current()
  79. {
  80.  if(OApp::currentOApp)
  81.    return(*OApp::currentOApp);
  82.  else
  83.    throw OVioException(OCL::error(131), 0);
  84. }
  85.  
  86.  
  87. HAB OApp::anchor()
  88. {
  89.  return(init.anchor());
  90. }
  91.  
  92.  
  93. HMQ OApp::mqueue()
  94. {
  95.  return(init.anchor());
  96. }
  97.  
  98.  
  99. BOOL OApp::OCMDTrace(const HWND hwnd,
  100.                      const ULONG msg,
  101.                      const MPARAM mp1,
  102.                      const MPARAM mp2)
  103. {
  104.  pOCommandHandler pcm = (pOCommandHandler) WinQueryWindowULong(hwnd, QWL_USER);
  105.  
  106.  if (pcm) {
  107.    pcm->hwnd = hwnd;
  108.    return(pcm->OCommand(msg, mp1, mp2)); }
  109.  else
  110.    return(FALSE);
  111. }
  112.  
  113.  
  114. BOOL OApp::QuitPosted() 
  115. {
  116.  return(FALSE); 
  117. } 
  118.  
  119. BOOL OApp::TasklistKill() 
  120. {
  121.  return(FALSE); 
  122. }
  123.  
  124.  
  125. BOOL OApp::ShutdownPosted() 
  126. {
  127.  return(FALSE); 
  128. }
  129.  
  130.  
  131. // message loop
  132.  
  133. void OApp::run()
  134. {
  135.  BOOL dispatched = FALSE;
  136.  
  137.  while(TRUE)
  138.    {
  139.     if (!WinGetMsg(init.anchor(), &qmsg, NULLHANDLE, 0, 0))
  140.      {
  141.       if (qmsg.hwnd == NULLHANDLE) {
  142.         if (!ShutdownPosted()) return; }
  143.       else if (qmsg.hwnd == HWNDFROMMP(qmsg.mp2)) {
  144.         if (!TasklistKill()) return; }
  145.       else if (!QuitPosted())
  146.         return;
  147.       else
  148.         dispatched = TRUE;
  149.      }
  150.     else 
  151.       dispatched = FALSE;
  152.  
  153.     if (!dispatched) 
  154.       WinDispatchMsg(init.anchor(), &qmsg);    // default processing
  155.    }
  156. }
  157.  
  158. void OApp::forceQuit()
  159. {
  160.  WinPostMsg(NULLHANDLE, WM_QUIT, NULL, NULL);
  161. }
  162.  
  163.  
  164. pOCommandHandler OApp::NullHandler()
  165. {
  166.  return(&OCMD_NullHandler);
  167. }
  168.  
  169.  
  170. void OApp::Shutdown()
  171. {
  172.  WinShutdownSystem(init.anchor(), init.mqueue());
  173. }
  174.  
  175.  
  176. void OApp::Reboot()
  177. {
  178.  HFILE  hf;
  179.  ULONG  dummy;
  180.  
  181.  if (!DosOpen("DOS$", &hf, &dummy, 0L, FILE_NORMAL, FILE_OPEN,
  182.               OPEN_ACCESS_WRITEONLY | OPEN_SHARE_DENYNONE | OPEN_FLAGS_FAIL_ON_ERROR, 0L))
  183.   {
  184.    ULONG ulParmLength = 0;
  185.    ULONG ulDataLength = 0;
  186.  
  187.    WinBroadcastMsg(HWND_DESKTOP, WM_CLOSE, NULL, NULL, BMSG_SEND | BMSG_DESCENDANTS);
  188.    SyncDisks();
  189.    DosSleep(2000);
  190.    DosBeep(100, 1000);
  191.    DosShutdown(0L);
  192.    DosDevIOCtl(hf, 0xd5, 0xab,           // Reboot
  193.                NULL, 0L, &ulParmLength,
  194.                NULL, 0L, &ulDataLength );
  195.    DosClose(hf);
  196.   }
  197. }
  198.  
  199.  
  200. // end of source
  201.