source: trunk/dll/defview.c@ 551

/***********************************************************************

  $Id: defview.c 551 2007-02-28 01:33:51Z gyoung $

  Copyright (c) 1993-98 M. Kimes
  Copyright (c) 2003, 2006 Steven H.Levine

  Default file viewer

  20 Nov 03 SHL ShowMultimedia: try to convince fmplay to not play exes (Gregg Young)
  14 Jul 06 SHL Use Runtime_Error

***********************************************************************/

#define INCL_DOS
#define INCL_WIN
#define INCL_GPI
#define INCL_MMIOOS2
#include <os2.h>
#include <os2me.h>

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>

#include "fm3dll.h"
#include "fm3dlg.h"

static PSZ pszSrcFile = __FILE__;

#pragma alloc_text(DEFVIEW,DefaultView,ShowMultimedia,DefaultViewKeys)

BOOL ShowMultimedia(CHAR * filename)
{

  static BOOL no_mmos2 = FALSE;
  BOOL played = FALSE;
  CHAR loaderror[CCHMAXPATH];
  HMODULE MMIOModHandle = NULLHANDLE;
  PMMIOIDENTIFYFILE pMMIOIdentifyFile = NULL;
  FOURCC fccStorageSystem = 0;
  MMFORMATINFO mmFormatInfo;
  APIRET rc;

  if (no_mmos2 || !filename || !*filename)
    return played;

  /* load MMPM/2, if available. */
  *loaderror = 0;
  rc = DosLoadModule(loaderror, sizeof(loaderror), "MMIO", &MMIOModHandle);
  if (rc) {
    no_mmos2 = TRUE;
    return played;
  }
  else {
    if (DosQueryProcAddr(MMIOModHandle,
                         0,
                         "mmioIdentifyFile", (PFN *) & pMMIOIdentifyFile)) {
      DosFreeModule(MMIOModHandle);
      no_mmos2 = TRUE;
      return played;
    }
  }

  /* attempt to identify the file using MMPM/2 */
  memset(&mmFormatInfo, 0, sizeof(MMFORMATINFO));
  mmFormatInfo.ulStructLen = sizeof(MMFORMATINFO);
  rc = pMMIOIdentifyFile(filename,
                         0L,
                         &mmFormatInfo,
                         &fccStorageSystem, 0L, MMIO_FORCE_IDENTIFY_FF);
  /* free module handle */
  DosFreeModule(MMIOModHandle);

  /* if identified and not FOURCC_DOS */
  if (!rc && mmFormatInfo.fccIOProc != FOURCC_DOS) {
    if (mmFormatInfo.ulMediaType == MMIO_MEDIATYPE_IMAGE &&
        (mmFormatInfo.ulFlags & MMIO_CANREADTRANSLATED)) {
      /* is an image that can be translated */
      runemf2(SEPARATE | WINDOWED,
              HWND_DESKTOP,
              NULL,
              NULL,
              "%sIMAGE.EXE \"%s\"",
              (fAddUtils) ? "UTILS\\" : NullStr, filename);
      played = TRUE;
    }
    else if (mmFormatInfo.ulMediaType != MMIO_MEDIATYPE_IMAGE) {
      /* is a multimedia file (WAV, MID, AVI, etc.) */
      runemf2(SEPARATE | WINDOWED,
              HWND_DESKTOP,
              NULL,
              NULL,
              "%sFM2PLAY.EXE \"%s\"",
              (fAddUtils) ? "UTILS\\" : NullStr, filename);
      played = TRUE;
    }
  }

  return played;
}

VOID DefaultViewKeys(HWND hwnd, HWND hwndFrame, HWND hwndParent,
                     SWP * swp, CHAR * filename)
{
  if ((shiftstate & (KC_CTRL | KC_SHIFT)) == (KC_CTRL | KC_SHIFT))
    DefaultView(hwnd, hwndFrame, hwndParent, swp, 4, filename);
  else if (shiftstate & KC_CTRL)
    DefaultView(hwnd, hwndFrame, hwndParent, swp, 2, filename);
  else if (shiftstate & KC_SHIFT)
    DefaultView(hwnd, hwndFrame, hwndParent, swp, 1, filename);
  else
    DefaultView(hwnd, hwndFrame, hwndParent, swp, 0, filename);
}

VOID DefaultView(HWND hwnd, HWND hwndFrame, HWND hwndParent, SWP * swp,
                 ULONG flags, CHAR * filename)
{
  /*
   * bitmapped flags:
   * ---------------
   * 1  = View directly
   * 2  = Open WPS default view
   * 4  = Open WPS settings view
   * 8  = Edit
   * 16 = Info
   * 32 = No view info
   */

  HWND hwndArc = (HWND) 0;
  char *p, *dummy[3];

  if (!hwndParent)
    hwndParent = HWND_DESKTOP;

  if (flags & 32) {
    flags &= (~16);
    if (!IsFile(filename)) {
      Runtime_Error(pszSrcFile, __LINE__, "%s not found", filename);
      return;
    }
  }

  if (flags & 1)                        /* directly view the file */
    goto ViewIt;

  if (flags & 2) {                      /* open default WPS view of file */
    OpenObject(filename, Default, hwnd);
    return;
  }

  if (flags & 4) {                      /* open WPS settings notebook for file */
    OpenObject(filename, Settings, hwnd);
    return;
  }

  if ((flags & 16) || !IsFile(filename)) {      /* open info for directories */

    char fullname[CCHMAXPATH];

    if (!IsFullName(filename)) {
      if (!DosQueryPathInfo(filename,
                            FIL_QUERYFULLNAME, fullname, sizeof(fullname)))
        filename = fullname;
    }
    if (IsFullName(filename) &&
        !(driveflags[toupper(*filename) - 'A'] & DRIVE_INVALID)) {
      if (!IsRoot(filename)) {
        dummy[0] = filename;
        dummy[1] = NULL;
        WinDlgBox(HWND_DESKTOP,
                  HWND_DESKTOP,
                  FileInfoProc, FM3ModHandle, FLE_FRAME, (PVOID) dummy);
      }
      else
        WinDlgBox(HWND_DESKTOP,
                  HWND_DESKTOP,
                  DrvInfoProc, FM3ModHandle, INFO_FRAME, (PVOID) filename);
    }
    return;
  }

  if (flags & 8) {                      /* edit file */

    ULONG type = IDM_EDITTEXT;

    dummy[0] = filename;
    dummy[1] = NULL;
    if (TestBinary(filename))
      type = IDM_EDITBINARY;
    switch (type) {
    case IDM_EDITBINARY:
      if (*bined) {
        ExecOnList((HWND) 0, bined, WINDOWED | SEPARATE, NULL, dummy, NULL);
        break;
      }
      /* else intentional fallthru */
    case IDM_EDITTEXT:
      if (*editor)
        ExecOnList((HWND) 0, editor, WINDOWED | SEPARATE, NULL, dummy, NULL);
      else {
        type = (type == IDM_EDITTEXT) ? 8 : (type == IDM_EDITBINARY) ? 16 : 0;
        type |= 4;
        StartMLEEditor(hwndParent, type, filename, hwndFrame);
      }
      break;
    }
    return;
  }

  if (ExecAssociation(hwnd, filename) == -1) {
    hwndArc = StartArcCnr((fExternalArcboxes || !swp ||
                           strcmp(realappname, FM3Str)) ?
                          HWND_DESKTOP :
                          hwndParent, hwndFrame, filename, 4, NULL);
    if (!hwndArc) {
      if (!fCheckMM || !ShowMultimedia(filename)) {
        if (!IsExecutable(filename) || !ExecFile(hwnd, filename)) {
          p = strrchr(filename, '.');
          if (!p)
            p = ".";
          if (stricmp(p, ".INI") || !StartIniEditor(hwndParent, filename, 4)) {
            if (stricmp(p, ".HLP") || !ViewHelp(filename)) {
            ViewIt:
              if (*viewer) {
                dummy[0] = filename;
                dummy[1] = NULL;
                ExecOnList(hwnd,
                           viewer,
                           WINDOWED | SEPARATE |
                           ((fViewChild) ? CHILD : 0), NULL, dummy, NULL);
              }
              else
                StartMLEEditor(hwndParent, 5, filename, hwndFrame);
            }
          }
        }
      }
    }
    else {
      if ((swp &&
           !fExternalArcboxes &&
           !strcmp(realappname, FM3Str)) &&
          !ParentIsDesktop(hwnd, hwndParent))
        WinSetWindowPos(hwndArc,
                        HWND_TOP,
                        swp->x,
                        swp->y,
                        swp->cx,
                        swp->cy,
                        SWP_MOVE | SWP_SIZE | SWP_SHOW |
                        SWP_ZORDER | SWP_ACTIVATE);
    }
  }
}