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

  $Id: defview.c 557 2007-03-09 18:38:41Z 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_SS | 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);
    }
  }
}