#include "stdafx.h"
#pragma hdrstop
#include "zipop.h"
#include "enter.h"
#include "dz_errs.h"

#undef _DZ_FILE_
#define _DZ_FILE_ DZ_ZIPMAIN_CPP

/* DLLmain.c * Copyright (C) 1997 Mike White and Eric W. Engler
* Permission is granted to any individual or institution to use, copy, or
* redistribute this software so long as all of the original files are included,
* that it is not sold for profit, and that this copyright notice is retained.
* This version modified by Chris Vleghert BCB/Delphi Zip.
** distributed under LGPL license
** see license.txt for details

  Copyright (c) 1990-2007 Info-ZIP.  All rights reserved.

  See the accompanying file LICENSE, version 2007-Mar-4 or later
  (the contents of which are also included in zip.h) for terms of use.
  If, for some reason, all these files are missing, the Info-ZIP license
  also may be found at:  ftp://ftp.info-zip.org/pub/infozip/license.html

  parts Copyright (C) 1997 Mike White, Eric W. Engler
************************************************************************
 Copyright (C) 2009, 2010  by Russell J. Peters, Roger Aelbrecht

   This file is part of TZipMaster Version 1.9.

    TZipMaster is free software: you can redistribute it and/or modify
    it under the terms of the GNU Lesser General Public License as published by
    the Free Software Foundation, either version 3 of the License, or
    (at your option) any later version.

    TZipMaster is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU Lesser General Public License for more details.

    You should have received a copy of the GNU Lesser General Public License
    along with TZipMaster.  If not, see <http://www.gnu.org/licenses/>.

    contact: problems@delphizip.org (include ZipMaster in the subject).
    updates: http://www.delphizip.org
    DelphiZip maillist subscribe at http://www.freelists.org/list/delphizip 
************************************************************************/

#include <signal.h>
#include <stdarg.h>
#include <direct.h>

long ZipOp::Exec(const DllCommands *C)
{
    try
	{
        if (Verbose < 0)
            Notify(0,  _T("trace is on, ZipExec [%d %d %d]"), FCount,
                   ZCount, UCount);

		ZipSetParam(C);

        ftempath = CB->UserArg(zcbTempPath, 0, 0);
        if (!ftempath.IsEmpty())
        {
            // Temporary path -b
            ftempath = StrIncSep(ftempath);
//            ftempdir = 1;
        }

        //  fzipfile
        // in this state, we need the name of the zip file
        DZStrW tmp = CB->UserArg(zcbFilename, 0, 0);
        if (tmp.IsEmpty() && !fSS)
        {
            // Something screwed up, we don't have a filename
            Notify(DZ_ERM_BAD_OPTIONS, _T("No zip filename received"));
			throw DZException(DZ_ERM_GENERAL);
        }

		fzipfile = ziptyp(tmp);

        if (Verbose)
        {
            DZStrW tmp(DZ_Banner());
            Notify(IVERBOSE, _T("Using %s"), tmp.c_str());

            if (Verbose < 0)
                Notify(ITRACE, _T("root = %s"), fRootDir.c_str());
        }

        if (Verbose < 0)
        {
            GiveTime();
            GiveGlobals();
		}

		if (fSS)
		{
			ZipStreamStream();
			ffiles_acted_on++;
			CB->UserCB(zacEndOfBatch); // done with in-memory compression
		}
		else
		{
			if (!ZipSelect(C))
			{
				if (Abort_Flag || ZipProcess() != 0)
					ffiles_acted_on = 0;

				if (fBatchStarted)
					CB->UserCB(zacEndOfBatch); // done with a batch of files

				diag(_T("*** BACK FROM CALL TO ZipProcess ***"));
			}
		}

		if (Verbose)
			Notify(0, _T("Files acted on = %d"), ffiles_acted_on);

		if (Abort_Flag)
		{
			if (Abort_Flag & (GA_EXCEPT | GA_EXCEPT2))
              return -DZ_ERR_CALLBACK;
            if (Abort_Flag & GA_ABORT)
              return -DZ_ERR_ABORT;
            if (Abort_Flag & GA_CANCEL)
              return -DZ_ERR_CANCELLED;
        }
    }
    catch (DZException &E)
    {
		OutputDebugString(L"Exec - exception");
        DZError(E.ErrNo, E.Msg);

        if (fBatchStarted)
            CB->UserCB(zacEndOfBatch);

        return -DZ_ERR(E.ErrNo);
//        throw;
    }

    return ffiles_acted_on;
}

int ZipOp::ZipSetParam(const DllCommands *C)
{
    int ii;                               

    ii = C->fLevel;

    if (ii < 0)
        ii = 0;
    else
        if (ii > 9)
            ii = 9;

    flevel = ii;

    if (Verbose < 0)
        Notify(ITRACE, _T("setting compression level to %d"), flevel);

    faction = C->fOptions.OpIsDelete ? PURGE : ADD;

    if (C->fOptions.Freshen) // Freshen zip file--overwrite only -f
    {
        if (faction != ADD)
        {
            Notify(DZ_ERM_BAD_OPTIONS, _T("invalid options"));
			throw DZException(DZ_ERM_BAD_OPTIONS);
        }

        faction = FRESHEN;
    }

    if (C->fOptions.Update) // Update zip file--overwrite only if newer -u
    {
        if (faction != ADD)
        {
            Notify(DZ_ERM_BAD_OPTIONS, _T("invalid options"));
			throw DZException(DZ_ERM_BAD_OPTIONS);
        }

        faction = UPDATE;
    }

//    fzcomment = CB->UserArg(zcbComment, 0, 0);
//    if (fzcomment)
//        fzcomlen = strlen(fzcomment);
/* **** */
    fzcomment = CB->UserZCmnt();
    if (fzcomment)
        fzcomlen = fzcomment.Length();
/* **** */

    fGPassword = CB->UserArg(zcbPassword, 0, 0);

    return 0;
}


//#ifdef DZ_LOGGING
char w(bool v)
{
    if (v)
        return '+';

    return '-';
}

void ZipOp::GiveGlobals(void)
{
//    if (!Verbose)
//        return;

    DZStrW tmp;

    tmp.Format(_T("g%c j%c J%c" /* k%c"*/), w(fAllowGrow), w(fpathput),
               w(fjunk_sfx));//, w(fdosify));

    Notify(IVERBOSE, _T("%s m%c o%c S%c t%c"), tmp.c_str() , w(fdispose), w(flatest),
           w(fhidden_files), w(fbefore));
}
//#endif