#define INCL_DOS
#define INCL_WIN

#include <os2.h>
#include <stdarg.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
#include "dll\fm3dll.h"
#include "dll\version.h"
#include "dll\fm3str.h"

HMTX av2Sem;


VOID APIENTRY deinit (ULONG why) {

  /* cleanup */

  DosCloseMutexSem(av2Sem);
  if(DosOpenMutexSem("\\SEM32\\AV2",&av2Sem)) {

    static CHAR         s[CCHMAXPATH];
    CHAR               *enddir;
    HDIR                search_handle;
    ULONG               num_matches;
    static FILEFINDBUF3 f;

    save_dir(s);
    if(s[strlen(s) - 1] != '\\')
      strcat(s,"\\");
    enddir = &s[strlen(s)];
    if(*ArcTempRoot) {
      strcat(s,ArcTempRoot);
      strcat(s,"*");
      search_handle = HDIR_CREATE;
      num_matches = 1L;
      if(!DosFindFirst(s,
                       &search_handle,
                       FILE_NORMAL | FILE_DIRECTORY |
                       FILE_SYSTEM | FILE_READONLY | FILE_HIDDEN |
                       FILE_ARCHIVED,
                       &f,
                       sizeof(FILEFINDBUF3),
                       &num_matches,
                       FIL_STANDARD)) {
        do {
          strcpy(enddir,f.achName);
          if(f.attrFile & FILE_DIRECTORY) {
            wipeallf("%s\\*",s);
            DosDeleteDir(s);
          }
          else
            unlinkf("%s",s);
        } while(!DosFindNext(search_handle,
                             &f,
                             sizeof(FILEFINDBUF3),
                             &num_matches));
        DosFindClose(search_handle);
      }
    }
  }
  else
    DosCloseMutexSem(av2Sem);

  DosExitList(EXLST_REMOVE,deinit);
}


int main (int argc,char *argv[]) {

  HAB          hab;
  HMQ          hmq;
  QMSG         qmsg;
  HWND         hwndFrame = (HWND)0;
  static CHAR  fullname[CCHMAXPATH];
  CHAR        *thisarg = NULL;
  INT          x;

  *fullname = 0;
  strcpy(appname,"AV/2");
  fAmAV2 = TRUE;
  DosError(FERR_DISABLEHARDERR);
  for(x = 1;x < argc;x++) {
    if(!strchr("/;,`\'",*argv[x]) &&
       !thisarg &&
       (IsFile(argv[x]) == 1 ||
        (strchr(argv[x],'?') || strchr(argv[x],'*') ||
         !strchr(argv[x],'.')))) {
      thisarg = argv[x];
      break;
    }
  }
  DosExitList(EXLST_ADD,deinit);
  if(DosOpenMutexSem("\\SEM32\\AV2",
                     &av2Sem))
    DosCreateMutexSem("\\SEM32\\AV2",
                      &av2Sem,
                      DC_SEM_SHARED,
                      FALSE);
  if(thisarg) {
    if(DosQueryPathInfo(thisarg,
                        FIL_QUERYFULLNAME,
                        fullname,
                        sizeof(fullname)))
      strcpy(fullname,thisarg);
    if(*fullname && (strchr(fullname,'?') ||
                     strchr(fullname,'*') ||
                     !strchr(fullname,'.'))) {

      static FILEFINDBUF3 ffb;
      ULONG               nm;
      HDIR                hdir;
      CHAR               *enddir;

      if(!strchr(fullname,'.'))
        strcat(fullname,".*");
      enddir = strrchr(fullname,'\\');
      if(enddir) {
        enddir++;
        hdir = HDIR_CREATE;
        nm = 1L;
        if(!DosFindFirst(fullname,
                         &hdir,
                         FILE_NORMAL | FILE_SYSTEM |
                         FILE_READONLY | FILE_HIDDEN | FILE_ARCHIVED,
                         &ffb,
                         sizeof(FILEFINDBUF3),
                         &nm,
                         FIL_STANDARD)) {
          strcpy(enddir,ffb.achName);
          DosFindClose(hdir);
        }
      }
    }
  }
  hab = WinInitialize(0);
  if(hab) {
    hmq = WinCreateMsgQueue(hab,1024);
    if(hmq) {
      {
        static CHAR path[CCHMAXPATH];
        CHAR       *env;
        FILESTATUS3 fs;

        env = getenv("FM3INI");
        if(env && *env) {
          DosError(FERR_DISABLEHARDERR);
          if(!DosQueryPathInfo(env,
                               FIL_QUERYFULLNAME,
                               path,
                               sizeof(path))) {
            DosError(FERR_DISABLEHARDERR);
            if(!DosQueryPathInfo(path,
                                 FIL_STANDARD,
                                 &fs,
                                 (ULONG)sizeof(fs))) {
              if(!(fs.attrFile & FILE_DIRECTORY)) {
                env = strrchr(path,'\\');
                if(env)
                  *env = 0;
              }
              DosError(FERR_DISABLEHARDERR);
              if(!DosQueryPathInfo(path,
                                   FIL_STANDARD,
                                   &fs,
                                   (ULONG)sizeof(fs))) {
                if(fs.attrFile & FILE_DIRECTORY)
                  switch_to(path);
              }
            }
          }
        }
      }
      if(InitFM3DLL(hab,argc,argv)) {
        if(CheckVersion(VERMAJOR,VERMINOR)) {
         fAmAV2 = TRUE;
          if(!*fullname) {
            strcpy(fullname,"*");
            if(!insert_filename(HWND_DESKTOP,
                                fullname,
                                TRUE,
                                FALSE) ||
               !*fullname || *fullname == '*')
              goto Abort;
          }
          if(*fullname) {
            if(ExecAssociation(HWND_DESKTOP,fullname) == -1) {
              hwndFrame = StartArcCnr(HWND_DESKTOP,
                                      (HWND)0,
                                      fullname,
                                      0,
                                      NULL);
              if(!hwndFrame) {

                CHAR *p = strrchr(fullname,'.');

                if(p) {
                  if(!stricmp(p,".INI"))
                    hwndFrame = StartIniEditor(HWND_DESKTOP,
                                               fullname,
                                               0);
                }
                if(!ShowMultimedia(fullname))
                  hwndFrame = StartMLEEditor(HWND_DESKTOP,
                                             1,
                                             ((*fullname) ?
                                              fullname :
                                              NULL),
                                             (HWND)0);
              }
              if(hwndFrame && WinIsWindow(hab,hwndFrame)) {
                if(hwndHelp)
                  WinAssociateHelpInstance(hwndHelp,hwndFrame);
                for(;;) {
                  if(!WinGetMsg(hab,&qmsg,(HWND)0,0,0)) {
                    if(!WinIsWindow(hab,hwndFrame))
                      break;
                    if(qmsg.hwnd)
                      qmsg.msg = WM_CLOSE;
                    else
                      break;
                  }
                  if(hwndBubble &&
                     ((qmsg.msg > (WM_BUTTON1DOWN - 1) &&
                       qmsg.msg < (WM_BUTTON3DBLCLK + 1)) ||
                      (qmsg.msg > (WM_CHORD - 1) &&
                       qmsg.msg < (WM_BUTTON3CLICK + 1))) &&
                     WinIsWindowVisible(hwndBubble))
                    WinShowWindow(hwndBubble,FALSE);
                  WinDispatchMsg(hab,&qmsg);
                }
                DosSleep(125L);
              }
            }
          }
        }
      }
Abort:
      DosSleep(125L);
      WinDestroyMsgQueue(hmq);
    }
    WinTerminate(hab);
  }
  return 0;
}