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

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

  Desktop shadows

  Copyright (c) 1993-97 M. Kimes
  Copyright (c) 2006 Steven H. Levine

  22 Jul 06 SHL Check more run time errors

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

#define INCL_DOS
#define INCL_WIN
#include <os2.h>

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

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

#pragma data_seg(DATA1)

static PSZ pszSrcFile = __FILE__;

#pragma alloc_text(SHADOW,CreateProgramObject,CreateDataObject,CreateFolderObject,CreateShadowObject)

HOBJECT CreateProgramObject(CHAR * objtitle, CHAR * location, CHAR * path,
			    CHAR * cnr)
{
  HOBJECT obj = (HOBJECT) 0;
  CHAR *s;

  if (!cnr)
    return obj;
  obj = WinCreateObject(WPProgram,
			objtitle,
			"NODELETE=NO;TEMPLATE=NO;NOCOPY=NO;NOMOVE=NO",
			(location) ? location : cnr, CO_FAILIFEXISTS);
  if (obj) {
    s = xmalloc(5192, pszSrcFile, __LINE__);
    if (s) {
      sprintf(s,
	      "EXENAME=%s%s%s%s%s;PARAMETERS=%%*;OBJECTID=<FM2_%s>",
	      (path) ? path : "",
	      (path) ? "\\" : "",
	      objtitle,
	      (path) ? ";STARTUPDIR=" : "", (path) ? path : "", objtitle);
      WinSetObjectData(obj, s);
      free(s);
    }
  }
  return obj;
}

HOBJECT CreateDataObject(CHAR * objtitle, CHAR * location, CHAR * path,
			 CHAR * cnr)
{

  HOBJECT obj = (HOBJECT) 0;
  CHAR s[1050], s2[1050], *p,
    *type[] = { "WPDataFile", "WPIcon", "WPBitmap" };

  if (!cnr)
    return obj;
  sprintf(s, "%s%s%s", (path) ? path : "", (path) ? "\\" : "", objtitle);
  p = strrchr(objtitle, '.');
  if (p) {
    if (!stricmp(p, ".ICO"))
      p = type[1];
    else if (!stricmp(p, ".BMP"))
      p = type[2];
    else
      p = type[0];
  }
  else
    p = type[0];
  obj = WinCreateObject(p,
			s,
			"NODELETE=NO;TEMPLATE=NO;NOCOPY=NO;NOMOVE=NO",
			(location) ? location : cnr, CO_FAILIFEXISTS);
  if (obj) {
    sprintf(s2,
	    "%s%s%sOBJECTID=<FM2_%s>",
	    objtitle,
	    (p == type[1]) ? "ICONFILE=" : "",
	    (p == type[1]) ? s : "", (p == type[1]) ? ";" : "", objtitle);
    WinSetObjectData(obj, s2);
  }
  return obj;
}

HOBJECT CreateFolderObject(CHAR * objtitle, CHAR * cnr)
{
  HOBJECT obj = (HOBJECT) 0;
  CHAR s[1050];

  if (!cnr)
    return obj;
  obj = WinCreateObject("WPFolder",
			objtitle,
			"NODELETE=NO;TEMPLATE=NO;NOCOPY=NO;NOMOVE=NO",
			cnr, CO_FAILIFEXISTS);
  if (obj) {
    sprintf(s, "OBJECTID=<FM2_%s>", objtitle);
    WinSetObjectData(obj, s);
  }
  return obj;
}

HOBJECT CreateShadowObject(CHAR * objtitle, CHAR * location, CHAR * path,
			   BOOL executable, CHAR * cnr)
{

  HOBJECT obj = (HOBJECT) 0;
  CHAR *s;

  if (!cnr)
    return obj;
  s = xmalloc(5192, pszSrcFile, __LINE__);
  if (s) {
    sprintf(s,
	    "SHADOWID=%s%s%s",
	    (path) ? path : "", (path) ? "\\" : "", objtitle);
    {					/* find an icon for it if possible */
      CHAR *p, temp[CCHMAXPATH + 1];

      sprintf(temp,
	      "%s%s%s", (path) ? path : "", (path) ? "\\" : "", objtitle);
      p = strrchr(temp, '.');
      if (p) {
	*p = 0;
	strcat(p, ".ICO");
	if (IsFile(temp) == 1)
	  sprintf(&s[strlen(s)], ";ICONFILE=%s", temp);
      }
    }
    if (executable)
      sprintf(&s[strlen(s)],
	      ";EXENAME=%s%s%s%s%s;PARAMETERS=%%*",
	      (path) ? path : "",
	      (path) ? "\\" : "",
	      objtitle, (path) ? ";STARTUPDIR=" : "", (path) ? path : "");
    strcat(s, ";NODELETE=NO;TEMPLATE=NO;NOCOPY=NO;NOMOVE=NO");
    sprintf(&s[strlen(s)], ";OBJECTID=<FM2_%s>", objtitle);
    obj = WinCreateObject("WPShadow",
			  objtitle,
			  s, (location) ? location : cnr, CO_FAILIFEXISTS);
    free(s);
  }
  return obj;
}

#pragma alloc_text(SHADOW2,MakeShadows,OpenObject)

VOID MakeShadows(HWND hwnd, CHAR ** list, ULONG Shadows, CHAR * cnr,
		 CHAR * foldername)
{
  INT x = 0;
  CHAR szBuff[CCHMAXPATH + 8];
  HOBJECT obj = (HOBJECT) 0;
  FILESTATUS3 fsa;

  *szBuff = 0;
  if (foldername)
    strcpy(szBuff, foldername);
  if (list) {
    if ((list[0] && list[1]) || Shadows > 1) {

      STRINGINPARMS sip;

      sip.help = GetPString(IDS_MAKESHADOWHELPTEXT);
      sip.ret = szBuff;
      sip.prompt = GetPString(IDS_MAKESHADOWPROMPTTEXT);
      sip.inputlen = CCHMAXPATHCOMP;
      sip.title = GetPString(IDS_MAKESHADOWTITLETEXT);
      if (WinDlgBox(HWND_DESKTOP,
		    hwnd, InputDlgProc, FM3ModHandle, STR_FRAME, &sip)) {
	if (*szBuff) {
	  obj = CreateFolderObject(szBuff, cnr);
	  if (!obj) {
	    saymsg(MB_CANCEL | MB_ICONEXCLAMATION,
		   hwnd,
		   GetPString(IDS_ERRORTEXT),
		   GetPString(IDS_MAKESHADOWCREATEFAILEDTEXT), szBuff);
	    return;
	  }
	}
      }
      else
	return;
    }
    while (list[x]) {
      if (!DosQueryPathInfo(list[x],
			    FIL_STANDARD, &fsa,
			    (ULONG) sizeof(FILESTATUS3))) {

	ULONG apt;
	CHAR *p, *pp, szDir[CCHMAXPATH + 1], szBuffer[CCHMAXPATH + 1];

	if (DosQAppType(list[x], &apt))
	  apt = 0;
	p = strrchr(list[x], '.');
	if (p) {
	  if (!stricmp(p, ".BAT") || !stricmp(p, ".CMD"))
	    apt |= FAPPTYP_BOUND;
	}
	*szBuffer = 0;
	p = strrchr(list[x], '\\');
	if (!p)
	  p = strrchr(list[x], ':');
	if (p)
	  p++;
	else
	  p = list[x];
	strcpy(szDir, list[x]);
	pp = strrchr(szDir, '\\');
	if (!pp) {
	  pp = strrchr(szDir, ':');
	  if (pp) {
	    pp++;
	    *pp = '\\';
	    pp++;
	  }
	}
	if (pp)
	  *pp = 0;
	else
	  *szDir = 0;
	if (obj && *szBuff)
	  sprintf(szBuffer, "<FM2_%s>", szBuff);
	else
	  *szBuffer = 0;
	if ((fsa.attrFile & FILE_DIRECTORY) || Shadows)
	  CreateShadowObject(p, (obj) ? szBuffer : NULL, szDir, 0, cnr);
	else if (!(apt & (FAPPTYP_NOTWINDOWCOMPAT | FAPPTYP_WINDOWCOMPAT | FAPPTYP_WINDOWAPI | FAPPTYP_BOUND | FAPPTYP_DOS | FAPPTYP_WINDOWSREAL | FAPPTYP_WINDOWSPROT | 0x1000)))	/* not an executable app? */
	  CreateDataObject(p, (obj) ? szBuffer : NULL, szDir, cnr);
	else
	  CreateProgramObject(p, (obj) ? szBuffer : NULL, szDir, cnr);
      }
      x++;
      DosSleep(1L);
    }
  }
}

VOID OpenObject(CHAR * filename, CHAR * type, HWND hwnd)
{
  HOBJECT hWPSObject;

  if (!type)
    type = Default;
  if ((*filename == '<' &&
       filename[strlen(filename) - 1] == '>') || IsFile(filename) != -1) {
    hWPSObject = WinQueryObject(filename);
    if (hWPSObject != NULLHANDLE) {	/* got something; try to to open it */

      CHAR s[CCHMAXPATH];
      HWND hwndDesktop;

      if (hwnd) {
	hwndDesktop = WinQueryDesktopWindow((HAB) 0, NULLHANDLE);
	WinSetFocus(HWND_DESKTOP, hwndDesktop);
      }
      sprintf(s, "OPEN=%s", type);
      if (!WinSetObjectData(hWPSObject, s) && hwnd)
	WinSetFocus(HWND_DESKTOP, hwnd);
    }
  }
}

BOOL RunSeamless(CHAR * exename, CHAR * args, HWND hwnd)
{
  CHAR settings[1024 + CCHMAXPATH + 80];
  BOOL ret;

  sprintf(settings,
	  "EXENAME=%s;PROGTYPE=SEAMLESS;PARAMETERS=%s;OPEN=DEFAULT",
	  exename, args);
  if (hwnd)
    WinSetFocus(HWND_DESKTOP, HWND_DESKTOP);
  ret = WinCreateObject(WPProgram,
			exename,
			settings, "<WP_NOWHERE>", CO_REPLACEIFEXISTS);
  if (!ret && hwnd)
    WinSetWindowPos(hwnd, HWND_TOP, 0, 0, 0, 0, SWP_ZORDER | SWP_ACTIVATE);
  return ret;
}