home *** CD-ROM | disk | FTP | other *** search
- // OCL - OS/2 Class Library
- // (c) Cubus 1995
- // All Rights Reserved
- // OPMinit.cpp
-
-
- // OPMinit a base class for PM-Applications and threads
-
-
- /*
- * Redistribution and use in source and binary forms, with or without
- * modification, are permitted provided that the following conditions
- * are met:
- * 1. Redistributions of source code must retain the above copyright
- * notice, this list of conditions and the following disclaimer.
- * 2. Neither the name Cubus nor the name Team OCL may be used to
- * endorse or promote products derived from this software
- * without specific prior written permission.
- * 3. See OCL.INF for a detailed copyright notice.
- *
- * THIS SOFTWARE IS PROVIDED ``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 REGENTS 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.
- */
-
- // $Header: W:/Projects/OCL/Source/rcs/OPMinit.cpp 1.50 1996/08/11 23:49:26 B.STEIN Release $
-
- #define __OCL_SOURCE__
-
- #define OINCL_OSTRING
- #define OINCL_BASE
-
- #include <ocl.hpp>
- #include <OPMinit.hpp>
-
- // constructor inititializes PM
-
-
- OPMinit::OPMinit(const ULONG queueSize)
- {
- _hab = WinInitialize(0);
-
- if(_hab)
- _hmq = WinCreateMsgQueue(_hab, queueSize);
- else
- throw OVioException(OCL::error(130), 0);
- }
-
-
- // destructor terminates PM
-
- OPMinit::~OPMinit()
- {
- if (_hmq)
- WinDestroyMsgQueue(_hmq);
- if (_hab)
- WinTerminate(_hab);
- }
-
-
- PSZ OPMinit::isOfType() const
- {
- return("OPMinit");
- }
-
-
- HAB OPMinit::anchor()
- {
- return(_hab);
- }
-
- HMQ OPMinit::mqueue()
- {
- return(_hmq);
- }
-
-
- // end of source
-