#define INCL_DOS
#define INCL_DOSERRORS
#define INCL_WIN

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

#pragma alloc_text(MKDIR,MassMkdir,SetDir,PMMkDir,SetTargetDir)


APIRET MassMkdir (HWND hwndClient,CHAR *dir) {

  APIRET last,was = 0;
  CHAR  *p;
  CHAR   s[CCHMAXPATH];

  if(DosQueryPathInfo(dir,
                      FIL_QUERYFULLNAME,
                      s,
                      sizeof(s)))
    strcpy(s,dir);
  p = s;
  while(*p) {
    if(*p == '/')
      *p = '\\';
    p++;
  }
  p = s;
  do {
    p = strchr(p,'\\');
    if(p &&
       p > s &&
       *(p - 1) == ':')
      p = strchr(p + 1,'\\');
    if(p &&
       *p) {
      *p = 0;
      was = 1;
    }
    else
      was = 0;
    last = DosCreateDir(s,NULL);
    if(!last)
      Broadcast((HAB)0,
                hwndClient,
                UM_UPDATERECORD,
                MPFROMP(s),
                MPVOID);
    else if(last == ERROR_ACCESS_DENIED) {
      if(!IsFile(s))
        last = 0;
    }
    if(was) {
      *p = '\\';
      p++;
    }
  }
  while(p &&
        *p);
  return last;
}


APIRET SetDir (HWND hwndClient,HWND hwnd,CHAR *dir,INT flags) {

  /*
   * bitmapped flags:
   * 1 = don't ask to create if non-existent
   */

  CHAR        s[CCHMAXPATH],*p;
  APIRET      ret = 0,error;
  INT         isfile;

  if(DosQueryPathInfo(dir,
                      FIL_QUERYFULLNAME,
                      s,
                      sizeof(s)))
    strcpy(s,dir);
  while((p = strchr(s,'/')) != NULL)
    *p = '\\';
  while(strlen(s) > 3 &&
        s[strlen(s) - 1] == '\\')
    s[strlen(s) - 1] = 0;
  if(IsFullName(s)) {
    if(driveflags[toupper(*s) - 'A'] & (DRIVE_IGNORE | DRIVE_INVALID)) {
      if(!(flags & 1))
        saymsg(MB_CANCEL,
               hwnd,
               GetPString(IDS_NOPETEXT),
               GetPString(IDS_DRIVEISTEXT),
               toupper(*s),
               ((driveflags[toupper(*s) - 'A'] & DRIVE_IGNORE) != 0) ?
                GetPString(IDS_BEINGIGNOREDTEXT) :
                GetPString(IDS_INVALIDTEXT));
      return -5;
    }
  }
  isfile = IsFile(s);
  if(isfile == -1) {
    if(IsFullName(s)) {
      if(driveflags[toupper(*s) - 'A'] & DRIVE_NOTWRITEABLE) {
        if(!(flags & 1))
          saymsg(MB_CANCEL,
                 hwnd,
                 GetPString(IDS_NOPETEXT),
                 GetPString(IDS_DRIVEISTEXT),
                 toupper(*s),
                 GetPString(IDS_NOWRITETEXT));
        return -4;
      }
    }
    if(!(flags & 1)) {
      if(saymsg(MB_YESNO,
                hwnd,
                GetPString(IDS_CONFIRMTEXT),
                GetPString(IDS_NODIRCREATEDIRTEXT),
                s) !=
         MBID_YES)
        return -3;
    }
    error = MassMkdir(hwndClient,s);
    if(error) {
      Dos_Error(MB_CANCEL,
                error,
                hwnd,
                __FILE__,
                __LINE__,
                GetPString(IDS_CREATEDIRFAILEDTEXT),
                s);
      ret = -1;
    }
  }
  else if(isfile) {
    saymsg(MB_CANCEL | MB_ICONEXCLAMATION,
           hwnd,
           GetPString(IDS_ERRORTEXT),
           GetPString(IDS_EXISTSNOTDIRTEXT),
           s);
    ret = -2;
  }
  return ret;
}


BOOL PMMkDir (HWND hwnd,CHAR *filename,BOOL copy) {

  STRINGINPARMS sip;
  CHAR          szBuff[CCHMAXPATH];
  APIRET        error;

Over:
  sip.help = GetPString(IDS_MKDIRHELPTEXT);
  sip.ret = szBuff;
  if(filename)
    strcpy(szBuff,filename);
  else
    save_dir2(szBuff);
  MakeValidDir(szBuff);
  if(*szBuff &&
     szBuff[strlen(szBuff) - 1] != '\\')
    strcat(szBuff,"\\");
  sip.prompt = GetPString(IDS_MKDIRPROMPTTEXT);
  sip.inputlen = CCHMAXPATH - 1;
  sip.title = GetPString(IDS_MKDIRTITLETEXT);
  if(WinDlgBox(HWND_DESKTOP,
               hwnd,
               InputDlgProc,
               FM3ModHandle,
               STR_FRAME,
               &sip) &&
     *szBuff) {
    if((strchr(szBuff,'?') ||
        strchr(szBuff,'*')) ||
       IsFile(szBuff) == 1 ||
       IsRoot(szBuff)) {
      saymsg(MB_ENTER | MB_ICONEXCLAMATION,
             hwnd,
             GetPString(IDS_ERRORTEXT),
             GetPString(IDS_DIRNAMEERRORTEXT),
             szBuff);
      goto Over;
    }
    error = MassMkdir(hwnd,
                      szBuff);
    if(error)
      Dos_Error(MB_ENTER,
                error,
                hwnd,
                __FILE__,
                __LINE__,
                GetPString(IDS_CREATEDIRFAILEDTEXT),
                szBuff);
    else {
      if(copy &&
         filename)
        strcpy(filename,
               szBuff);
      return TRUE;
    }
  }
  return FALSE;
}


void SetTargetDir (HWND hwnd,BOOL justshow) {

  char temp[CCHMAXPATH + 12];

  if(!justshow) {
    strcpy(temp,
           targetdir);
    if(WinDlgBox(HWND_DESKTOP,
                 hwnd,
                 WalkTargetDlgProc,
                 FM3ModHandle,
                 WALK_FRAME,
                 MPFROMP(temp)) &&
       *temp) {
      strcpy(targetdir,temp);
      if(!fChangeTarget)
        PrfWriteProfileString(fmprof,
                              appname,
                              "Targetdir",
                              targetdir);
    }
    else {
      if(*targetdir &&
         saymsg(MB_YESNOCANCEL,
                hwnd,
                GetPString(IDS_CLEARTARGETTITLETEXT),
                "%s",
                GetPString(IDS_CLEARTARGETTEXT)) == MBID_YES) {
        *targetdir = 0;
        PrfWriteProfileString(fmprof,
                              appname,
                              "Targetdir",
                              NULL);
      }
    }
  }

  if(hwndBack) {
    if(fShowTarget)
      sprintf(temp,
              "%s%s%s%s",
              GetPString(IDS_TARGETDIRTITLETEXT),
              (*targetdir) ? "" : "<",
              (*targetdir) ?
               targetdir :
               GetPString(IDS_NONE),
              (*targetdir) ? "" : ">");
    else
      *temp = 0;
    WinSetWindowText(hwndBack,temp);
  }
}