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

  $Id$

  Desktop shadows

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

  22 Jul 06 SHL Check more run time errors
  16 Jun 07 SHL Update for OpenWatcom
  06 Aug 07 SHL Use BldFullPathName
  20 Aug 07 GKY Move #pragma alloc_text to end for OpenWatcom compat

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

#define INCL_DOS
#define INCL_WIN
#define INCL_LONGLONG
#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__;

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;
  BldFullPathName(s, path, objtitle);
  // 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];

      BldFullPathName(temp, path, objtitle);
      // 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;
}

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 (DosQueryAppType(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(1);
    }
  }
}

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;
}

#pragma alloc_text(SHADOW,CreateProgramObject,CreateDataObject,CreateFolderObject,CreateShadowObject)
#pragma alloc_text(SHADOW2,MakeShadows,OpenObject)