home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / ocl150a.zip / OCL / Source / OCreate.cpp < prev    next >
C/C++ Source or Header  |  1996-08-12  |  4KB  |  149 lines
  1. // OCL - OS/2 Class Library
  2. // (c) Cubus 1995
  3. // All Rights Reserved
  4. // OCreate.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.  
  31. // $Header: W:/Projects/OCL/Source/rcs/OCreate.cpp 1.50 1996/08/11 23:49:12 B.STEIN Release $
  32.  
  33. #define __OCL_SOURCE__
  34.  
  35. #define OINCL_OSTRING
  36. #define OINCL_BASE
  37.  
  38. #include <ocl.hpp>
  39. #include <OCreate.hpp>
  40. #include <OMessage.hpp>
  41.  
  42. // member functions
  43.  
  44. OCreate::OCreate() : Created((HOBJECT)NULL)
  45.   {}
  46.  
  47. OCreate::~OCreate()
  48.   {}
  49.  
  50. PSZ OCreate::isOfType() const
  51. { 
  52.  return("OCreate"); 
  53. }
  54.  
  55.  
  56. void OCreate::Create()
  57. {
  58.  if (!File)
  59.    return;
  60.  
  61.  if (!Location)
  62.    Location << (PSZ) "<WP_DESKTOP>";
  63.  
  64.  
  65.  if (is(".INF"))
  66.    CreateBook();
  67.  else if (is(".EXE") | is(".COM") |
  68.            is(".BAT") | is(".CMD"))
  69.    CreateExe();
  70.  else
  71.    CreateDoc();
  72.  Title << (PSZ)NULL;
  73.  File << (PSZ)NULL;
  74. }
  75.  
  76.  
  77. void OCreate::CreateBook()
  78. {
  79.  PSZ Setup = new CHAR[3*CCHMAXPATH];
  80.  
  81.  if (!Title)
  82.   {
  83. #ifndef __IBMCPP__
  84.    ifstream file((PCSZ)File);
  85. #else
  86.    ifstream file(File);
  87. #endif
  88.    PSZ BTitle = new CHAR[50];
  89.    BTitle[0] = '\0';
  90.    file.seekg(107L);
  91.    file.getline(BTitle, 48);
  92.    if (strlen(BTitle) > 0)
  93.      Title << BTitle;
  94.    else
  95.      Title << File;
  96.    file.close();
  97.    delete[] BTitle;
  98.   }
  99.  
  100.  sprintf(Setup, "EXENAME=VIEW.EXE;PARAMETERS=%s", File.getText());
  101.  Created = WinCreateObject("WPProgram", Title,
  102.                            Setup, Location, CO_REPLACEIFEXISTS);
  103.  delete[] Setup;
  104. }
  105.  
  106.  
  107. void OCreate::CreateExe()
  108. {
  109.  PSZ Setup = new CHAR[2*CCHMAXPATH];
  110.  PSZ Dir   = new CHAR[CCHMAXPATH];
  111.  
  112.  strcpy(Dir, File);
  113.  strcpy(strrchr(Dir, '\\'), "");
  114.  
  115.  if (!Title)
  116.    Title << File;
  117.  
  118.  sprintf(Setup, "EXENAME=%s;STARTUPDIR=%s", File.getText(), Dir);
  119.  Created = WinCreateObject("WPProgram", Title,
  120.                            Setup, Location, CO_REPLACEIFEXISTS);
  121.  delete[] Setup;
  122.  delete[] Dir;
  123. }
  124.  
  125.  
  126. void OCreate::CreateDoc()
  127. {
  128.  PSZ Setup = new CHAR[2*CCHMAXPATH];
  129.  
  130.  if (!Viewer)
  131.    Viewer << (PSZ) "E.EXE";
  132.  
  133.  Title << OCL::error(38);
  134.  Title + File;
  135.  sprintf(Setup, "EXENAME=%s;PARAMETERS=\"%s\"", Viewer.getText(), File.getText());
  136.  Created = WinCreateObject("WPProgram", Title,
  137.                            Setup, Location, CO_REPLACEIFEXISTS);
  138.  delete[] Setup;
  139. }
  140.  
  141.  
  142. BOOL OCreate::is(PCSZ Ext) 
  143. {
  144.  return(strstr(strupr(File), Ext)!=NULL); 
  145. }
  146.  
  147.  
  148. // end of source
  149.