#define INCL_DOS
#define INCL_WIN

#include <os2.h>
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <share.h>
#include "fm3dll.h"
#include "fm3dlg.h"
#include "fm3str.h"

/* prototypes */
static BOOL decode (FILE *in, FILE *out);
static void outdec (char *p, FILE *f, int n);

/* single character decode */
#define DEC(c)	(((c) - ' ') & 077)

#pragma alloc_text(UUD,UUD,decode,outdec)
#pragma alloc_text(MERGE,MergeDlgProc)


int UUD (char *filename,CHAR *dest) {

	FILE *in, *out;
  int   mode,ret = 0;
  char  buf[80];
  char  fakedest[CCHMAXPATH];

  if(!dest)
    dest = fakedest;
  in = _fsopen(filename,"r",SH_DENYWR);
  if(!in) {
    saymsg(MB_CANCEL,
           HWND_DESKTOP,
           GetPString(IDS_ERRORTEXT),
           GetPString(IDS_COMPCANTOPENTEXT),
           filename);
    return ret;
  }

	/* search for header line */
  for(;;) {
    if(!fgets(buf,sizeof(buf),in)) {
      fclose(in);
      saymsg(MB_CANCEL,
             HWND_DESKTOP,
             GetPString(IDS_ERRORTEXT),
             GetPString(IDS_UUDNOBEGINTEXT),
             filename);
      return ret;
		}
    buf[sizeof(buf) - 1] = 0;
    if(!strncmp(buf,"begin ",6))
			break;
	}
  *dest = 0;
  sscanf(buf,"begin %o %259s",&mode,dest);
  dest[CCHMAXPATH - 1] = 0;
  { /* place dest in same directory as filename by default... */
    char build[CCHMAXPATH],*p;

    strcpy(build,filename);
    p = strrchr(build,'\\');
    if(p) {
      p++;
      *p = 0;
    }
    else
      strcat(build,"\\");
    strncat(build,dest,CCHMAXPATH - strlen(dest));
    strcpy(dest,build);
  }

  if(!export_filename(HWND_DESKTOP,dest,FALSE)) {
    fclose(in);
    return ret;
  }

	/* create output file */
  out = _fsopen(dest,"ab+",SH_DENYWR);
  if(!out) {
    fclose(in);
    saymsg(MB_CANCEL,
           HWND_DESKTOP,
           GetPString(IDS_ERRORTEXT),
           GetPString(IDS_UUDCANTOPENFORTEXT),
           dest,
           filename);
    return ret;
	}

//  chmod(dest,mode);

  ret = 1;
  if(decode(in,out)) {
//    saymsg(MB_ENTER,HWND_DESKTOP,"UUD error","File \"%s\" is short.",filename);
//    ret = -1;
  }
  if(!fgets(buf,sizeof(buf),in) || strcmp(buf,"end\n")) {
//    saymsg(MB_ENTER,HWND_DESKTOP,"UUD error","No end line or garbage at end of \"%s\"",
//           filename);
//    ret = -1;
	}
  fclose(in);
  fclose(out);
  return ret;
}


/*
 * copy from in to out, decoding as you go along.
 */
static BOOL decode (FILE *in, FILE *out) {

  char  buf[80];
	char *bp;
  int   n;

  for(;;) {
		/* for each input line */
    if(!fgets(buf,sizeof(buf),in))
      return FALSE;
    buf[sizeof(buf) - 1] = 0;
    n = DEC(buf[0]);
    if(n <= 0)
			break;
		bp = &buf[1];
		while (n > 0) {
			outdec(bp, out, n);
			bp += 4;
			n -= 3;
		}
	}
  return TRUE;
}

/*
 * output a group of 3 bytes (4 input characters).
 * the input chars are pointed to by p, they are to
 * be output to file f.  n is used to tell us not to
 * output all of them at the end of the file.
 */
static void outdec (char *p, FILE *f, int n) {

	int c1, c2, c3;

  c1 = DEC(*p)   << 2 | DEC(p[1]) >> 4;
	c2 = DEC(p[1]) << 4 | DEC(p[2]) >> 2;
	c3 = DEC(p[2]) << 6 | DEC(p[3]);
  if(n >= 1)
		putc(c1, f);
  if(n >= 2)
		putc(c2, f);
  if(n >= 3)
		putc(c3, f);
}


MRESULT EXPENTRY MergeDlgProc (HWND hwnd,ULONG msg,MPARAM mp1,MPARAM mp2) {

  WORKER *wk;

  switch(msg) {
    case WM_INITDLG:
      if(mp2) {
        WinSetWindowPtr(hwnd,0,mp2);
        wk = (WORKER *)mp2;
        if(wk->li && wk->li->list && wk->li->list[0]) {
          WinSendDlgItemMsg(hwnd,MRG_TARGETNAME,EM_SETTEXTLIMIT,
                            MPFROM2SHORT(CCHMAXPATH,0),MPVOID);
          PostMsg(hwnd,UM_UNDO,MPVOID,MPVOID);
        }
        else
          WinDismissDlg(hwnd,0);
      }
      else
        WinDismissDlg(hwnd,0);
      break;

    case UM_UNDO:
      WinSendDlgItemMsg(hwnd,MRG_LISTBOX,LM_DELETEALL,MPVOID,MPVOID);
      wk = WinQueryWindowPtr(hwnd,0);
      if(wk) {

        INT   x,numfiles = 0;
        SHORT start;
        CHAR *p;

        WinSetDlgItemText(hwnd,MRG_TARGETNAME,wk->li->targetpath);
        start = 0;
        p = strrchr(wk->li->targetpath,'\\');
        if(p)
          start = (p + 1) - wk->li->targetpath;
        WinSendDlgItemMsg(hwnd,MRG_TARGETNAME,EM_SETSEL,
                          MPFROM2SHORT(start,CCHMAXPATH),MPVOID);
        for(x = 0;wk->li->list[x];x++) {
          if(IsFile(wk->li->list[x]) == 1) {
            numfiles++;
            WinSendDlgItemMsg(hwnd,MRG_LISTBOX,LM_INSERTITEM,
                              MPFROM2SHORT(LIT_END,0),
                              MPFROMP(wk->li->list[x]));
          }
        }
        WinCheckButton(hwnd,MRG_BINARY,(wk->li->type == IDM_MERGEBINARY));
        if(!numfiles) {
          saymsg(MB_CANCEL | MB_ICONEXCLAMATION,
                 hwnd,
                 GetPString(IDS_SILLYERRORTEXT),
                 GetPString(IDS_MERGEWASTETEXT));
          WinDismissDlg(hwnd,0);
        }
      }
      return 0;

    case WM_CONTROL:
      switch(SHORT1FROMMP(mp1)) {
        case MRG_LISTBOX:
          switch(SHORT2FROMMP(mp1)) {
            case LN_ENTER:
              {
                SHORT x;
                CHAR  szBuffer[CCHMAXPATH];

                x = (SHORT)WinSendDlgItemMsg(hwnd,MRG_LISTBOX,LM_QUERYSELECTION,
                                             MPFROMSHORT(LIT_FIRST),MPVOID);
                if(x >= 0) {
                  *szBuffer = 0;
                  WinSendDlgItemMsg(hwnd,MRG_LISTBOX,LM_QUERYITEMTEXT,
                                    MPFROM2SHORT(x,CCHMAXPATH),
                                    MPFROMP(szBuffer));
                  if(*szBuffer)
                    QuickEdit(hwnd,szBuffer);
                }
              }
              break;
          }
          break;
      }
      break;

    case WM_ADJUSTWINDOWPOS:
      PostMsg(hwnd,UM_SETDIR,MPVOID,MPVOID);
      break;

    case UM_SETDIR:
      PaintRecessedWindow(WinWindowFromID(hwnd,MRG_HELP),(HPS)0,FALSE,TRUE);
      return 0;

    case WM_COMMAND:
      switch(SHORT1FROMMP(mp1)) {
        case IDM_UNDO:
          PostMsg(hwnd,UM_UNDO,MPVOID,MPVOID);
          break;

        case MRG_CHANGETARGET:
          wk = WinQueryWindowPtr(hwnd,0);
          if(wk) {

            CHAR filename[CCHMAXPATH];

            strcpy(filename,wk->li->targetpath);
            if(export_filename(HWND_DESKTOP,filename,FALSE) && *filename) {
              strcpy(wk->li->targetpath,filename);
              WinSetDlgItemText(hwnd,MRG_TARGETNAME,wk->li->targetpath);
            }
          }
          break;

        case MRG_REMOVE:
          {
            SHORT x;

            x = (SHORT)WinSendDlgItemMsg(hwnd,MRG_LISTBOX,LM_QUERYSELECTION,
                                         MPFROMSHORT(LIT_FIRST),MPVOID);
            if(x >= 0)
              WinSendDlgItemMsg(hwnd,MRG_LISTBOX,LM_DELETEITEM,
                                MPFROMSHORT(x),MPVOID);
          }
          break;

        case MRG_BOTTOM:
        case MRG_TOP:
          {
            SHORT x;
            CHAR  szBuffer[CCHMAXPATH];

            x = (SHORT)WinSendDlgItemMsg(hwnd,MRG_LISTBOX,LM_QUERYSELECTION,
                                         MPFROMSHORT(LIT_FIRST),MPVOID);
            if(x >= 0) {
              *szBuffer = 0;
              WinSendDlgItemMsg(hwnd,MRG_LISTBOX,LM_QUERYITEMTEXT,
                                MPFROM2SHORT(x,CCHMAXPATH),
                                MPFROMP(szBuffer));
              if(*szBuffer) {
                WinSendDlgItemMsg(hwnd,MRG_LISTBOX,LM_DELETEITEM,
                                  MPFROMSHORT(x),MPVOID);
                if(SHORT1FROMMP(mp1) == MRG_TOP)
                  WinSendDlgItemMsg(hwnd,MRG_LISTBOX,LM_INSERTITEM,
                                    MPFROM2SHORT(0,0),
                                    MPFROMP(szBuffer));
                else
                  WinSendDlgItemMsg(hwnd,MRG_LISTBOX,LM_INSERTITEM,
                                    MPFROM2SHORT(LIT_END,0),
                                    MPFROMP(szBuffer));
              }
            }
          }
          break;

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

        case IDM_HELP:
          if(hwndHelp)
            WinSendMsg(hwndHelp,HM_DISPLAY_HELP,
                       MPFROM2SHORT(HELP_MERGE,0),
                       MPFROMSHORT(HM_RESOURCEID));
          break;

        case DID_OK:
          wk = WinQueryWindowPtr(hwnd,0);
          if(wk) {

            BOOL   append,binary;
            CHAR **list = NULL,**test,szBuffer[CCHMAXPATH];
            INT    numfiles = 0,numalloc = 0,error;
            SHORT  x,y;

            *szBuffer = 0;
            WinQueryDlgItemText(hwnd,
                                MRG_TARGETNAME,
                                CCHMAXPATH,
                                szBuffer);
            if(!*szBuffer) {
              DosBeep(50,100);
              WinSetFocus(HWND_DESKTOP,
                          WinWindowFromID(hwnd,MRG_TARGETNAME));
              break;
            }
            if(DosQueryPathInfo(szBuffer,
                                FIL_QUERYFULLNAME,
                                wk->li->targetpath,
                                CCHMAXPATH)) {
              DosBeep(50,100);
              WinSetFocus(HWND_DESKTOP,
                          WinWindowFromID(hwnd,MRG_TARGETNAME));
              break;
            }
            WinSetDlgItemText(hwnd,
                              MRG_TARGETNAME,
                              szBuffer);
            append = WinQueryButtonCheckstate(hwnd,MRG_APPEND);
            binary = WinQueryButtonCheckstate(hwnd,MRG_BINARY);
            wk->li->type = (append && binary) ? IDM_MERGEBINARYAPPEND :
                            (append) ? IDM_MERGETEXTAPPEND :
                             (binary) ? IDM_MERGEBINARY :
                                        IDM_MERGETEXT;
            x = (SHORT)WinSendDlgItemMsg(hwnd,
                                         MRG_LISTBOX,
                                         LM_QUERYITEMCOUNT,
                                         MPVOID,
                                         MPVOID);
            for(y = 0;y < x;y++) {
              *szBuffer = 0;
              WinSendDlgItemMsg(hwnd,
                                MRG_LISTBOX,
                                LM_QUERYITEMTEXT,
                                MPFROM2SHORT(y,CCHMAXPATH),
                                MPFROMP(szBuffer));
              if(*szBuffer) {
                error = AddToList(szBuffer,
                                  &list,
                                  &numfiles,
                                  &numalloc);
                if(error) {
                  DosBeep(250,100);
                  break;
                }
              }
            }
            if(numfiles && list && numfiles + 1 < numalloc) {
              test = realloc(list,sizeof(CHAR *) * (numfiles + 1));
              if(test)
                list = test;
            }
            if(list && list[0]) {
              FreeList(wk->li->list);
              wk->li->list = list;
            }
            else {
              DosBeep(50,100);
              break;
            }
          }
          WinDismissDlg(hwnd,1);
          break;
      }
      return 0;
  }
  return WinDefDlgProc(hwnd,msg,mp1,mp2);
}