source: trunk/dll/instant.c@ 469

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

  $Id: instant.c 342 2006-07-26 02:00:11Z root $

  Instant command

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

  01 Aug 04 SHL Rework lstrip/rstrip usage
  14 Jul 06 SHL Use Runtime_Error

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

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

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

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

#pragma data_seg(DATA1)

static PSZ pszSrcFile = __FILE__;

#pragma alloc_text(INSTANT,InstantDlgProc)

#define hwndMLE            WinWindowFromID(hwnd,BAT_MLE)

static INT batches = 0;

MRESULT EXPENTRY InstantDlgProc (HWND hwnd,ULONG msg,MPARAM mp1,MPARAM mp2)
{
  CHAR  *path;
  APIRET rc;
  static CHAR *bat = NULL;
  static HWND  myhwnd = (HWND)0;

  switch(msg) {
    case WM_INITDLG:
      if (myhwnd) {
        Runtime_Error(pszSrcFile, __LINE__, "busy");
        WinSendMsg(myhwnd,WM_SYSCOMMAND,MPFROM2SHORT(SC_RESTORE,0),MPVOID);
        WinSetActiveWindow(HWND_DESKTOP,myhwnd);
        WinDismissDlg(hwnd,0);
        break;
      }
      if (!mp2) {
        Runtime_Error(pszSrcFile, __LINE__, "no data");
        WinDismissDlg(hwnd,0);
        break;
      }
      WinSetWindowPtr(hwnd,0,mp2);
      path = (CHAR *)mp2;
      {
        CHAR s[CCHMAXPATH + 81];

        sprintf(s,
                GetPString(IDS_INSTANTTITLETEXT),
                path);
        WinSetWindowText(hwnd,s);
      }
      WinSendMsg(hwndMLE,
                 MLM_SETTEXTLIMIT,
                 MPFROMLONG((LONG)(10240L)),
                 MPVOID);
      WinSendMsg(hwndMLE,
                 MLM_FORMAT,
                 MPFROM2SHORT(MLFIE_NOTRANS,0),
                 MPVOID);
      if(bat) {

        ULONG tlen = strlen(bat);
        IPT   iptOffset = 0L;

        WinSendMsg(hwndMLE,MLM_SETIMPORTEXPORT,
                   MPFROMP(bat),
                   MPFROMLONG(12287L));
        WinSendMsg(hwndMLE,MLM_IMPORT,MPFROMP(&iptOffset),MPFROMP(tlen));
        DosFreeMem(bat);
        bat = NULL;
      }
      break;

    case WM_COMMAND:
      switch(SHORT1FROMMP(mp1)) {
        case DID_OK:
          path = (CHAR *)WinQueryWindowPtr(hwnd,0);
          {
            CHAR  s[CCHMAXPATH + 1];
            FILE *fp;
            IPT   iptOffset = 0L;
            LONG  len,tlen,mem;
            CHAR *rexx = "";

            mem = MLEgetlen(hwndMLE);
            if(mem) {
              rc = DosAllocMem((PVOID)&bat,mem,
                                PAG_COMMIT | PAG_READ | PAG_WRITE);
              if(rc || !bat) {
                Dos_Error(MB_CANCEL,rc,HWND_DESKTOP,pszSrcFile,__LINE__,GetPString(IDS_OUTOFMEMORY));
                WinDismissDlg(hwnd,0);
                break;
              }
              tlen = (LONG)WinSendMsg(hwndMLE,MLM_QUERYTEXTLENGTH,MPVOID,MPVOID);
              if(!tlen)
                Runtime_Error(pszSrcFile, __LINE__, "no data");
              else {
                WinSendMsg(hwndMLE,MLM_SETIMPORTEXPORT,
                           MPFROMP(bat),
                           MPFROMLONG(mem));
                len = (LONG)WinSendMsg(hwndMLE,MLM_EXPORT,
                                       MPFROMP(&iptOffset),
                                       MPFROMP(&tlen));
                bat[len] = 0;
                lstrip(bat);
                while(strlen(bat) && bat[strlen(bat) - 1] == '\n' ||
                      bat[strlen(bat) - 1] == ' ') {
                  // fixme to understand
                  stripcr(bat);
                  rstrip(bat);
                  stripcr(bat);
                  rstrip(bat);
                }
                if(!*bat)
                  Runtime_Error(pszSrcFile, __LINE__, "no data");
                else {
                  sprintf(s,"%s%sFMTMP%d.CMD",path,
                          (path[strlen(path) - 1] == '\\') ? "" : "\\",
                          batches++);
                  fp = fopen(s,"w");
                  if(!fp)
                    Runtime_Error(pszSrcFile, __LINE__, "fopen");
                  else {
                    if(!strncmp(bat,"/*",2)) {
                      rexx = "'";
                      fprintf(fp,
                              "%s\n",
                              GetPString(IDS_REXXCOMMENT));
                    }
                    fprintf(fp,"%s%c:%s\n",rexx,toupper(*path),rexx);
                    fprintf(fp,"%sCD \"%s%s\"%s\n",rexx,path,
                            (strlen(path) < 3) ? "\\" : "",rexx);
                    fprintf(fp,"%s",bat);
                    fprintf(fp,"\n%sDEL \"%s\"%s\n",rexx,s,rexx);
                    fclose(fp);
                    runemf2(WINDOWED | SEPARATE,
                            hwnd,
                            path,
                            NULL,
                            "%s /C \"%s\"",
                            GetCmdSpec(FALSE),
                            s);
                  }
                }
              }
            }
          }
          WinDismissDlg(hwnd,0);
          break;

        case DID_CANCEL:
          WinDismissDlg(hwnd,0);
          break;

        case IDM_HELP:
          path = WinQueryWindowPtr(hwnd,0);
          rc = saymsg(MB_YESNOCANCEL,
                        hwnd,
                        GetPString(IDS_INSTANTHELPTITLETEXT),
                        GetPString(IDS_INSTANTHELPTEXT),
                        path,(strlen(path) < 3) ? "\\" : "",path,
                        (path[strlen(path) - 1] == '\\') ? "" : "\\",
                        batches);
          if(rc ==  MBID_YES)
            runemf2(WINDOWED | INVISIBLE | BACKGROUND,
                    hwnd,
                    NULL,
                    NULL,
                    "%s /C HELP BATCH",
                    GetCmdSpec(FALSE));
          else if(rc == MBID_CANCEL)
            WinDismissDlg(hwnd,0);
          break;
      }
      return 0;

    case WM_CLOSE:
    case WM_DESTROY:
      myhwnd = (HWND)0;
      break;
  }
  return WinDefDlgProc(hwnd,msg,mp1,mp2);
}