/*************************************************************************
 *
 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
 * 
 * Copyright 2000, 2010 Oracle and/or its affiliates.
 *
 * OpenOffice.org - a multi-platform office productivity suite
 *
 * This file is part of OpenOffice.org.
 *
 * OpenOffice.org is free software: you can redistribute it and/or modify
 * it under the terms of the GNU Lesser General Public License version 3
 * only, as published by the Free Software Foundation.
 *
 * OpenOffice.org 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 version 3 for more details
 * (a copy is included in the LICENSE file that accompanied this code).
 *
 * You should have received a copy of the GNU Lesser General Public License
 * version 3 along with OpenOffice.org.  If not, see
 * <http://www.openoffice.org/license.html>
 * for a copy of the LGPLv3 License.
 *
 ************************************************************************/

// MARKER(update_precomp.py): autogen include statement, do not remove
#include "precompiled_idlc.hxx"
#include <idlc/idlc.hxx>
#include <idlc/astmodule.hxx>
#include <rtl/strbuf.hxx>
#include <osl/file.hxx>
#include <osl/thread.h>

#if defined(SAL_W32) || defined(SAL_OS2)
#include <io.h>
#include <direct.h>
#include <errno.h>
#endif

#ifdef SAL_UNX
#include <unistd.h>
#include <sys/stat.h>
#include <errno.h>
#endif

#include <string.h>

using namespace ::rtl;
using namespace ::osl;

StringList* pCreatedDirectories = NULL;

static sal_Bool checkOutputPath(const OString& completeName)
{
    OString sysPathName = convertToAbsoluteSystemPath(completeName);
	OStringBuffer buffer(sysPathName.getLength());

	if ( sysPathName.indexOf( SEPARATOR ) == -1 )
		return sal_True;

    sal_Int32 nIndex = 0;
	OString token(sysPathName.getToken(0, SEPARATOR, nIndex));
	const sal_Char* p = token.getStr();
	if (strcmp(p, "..") == 0
        || *(p+1) == ':'
        || strcmp(p, ".") == 0)
	{
		buffer.append(token);
		buffer.append(SEPARATOR);
	}
    else
        nIndex = 0;
		
    do
	{
		buffer.append(sysPathName.getToken(0, SEPARATOR, nIndex));

		if ( buffer.getLength() > 0 && nIndex != -1 )
		{
#if defined(SAL_UNX) || defined(SAL_OS2)
			if (mkdir((char*)buffer.getStr(), 0777) == -1)
#else
			if (mkdir((char*)buffer.getStr()) == -1)
#endif
			{
				if (errno == ENOENT)
				{	
					fprintf(stderr, "%s: cannot create directory '%s'\n", 
							idlc()->getOptions()->getProgramName().getStr(), buffer.getStr());
					return sal_False;
				}
	        } else
			{
				if ( !pCreatedDirectories )
					pCreatedDirectories = new StringList();
				pCreatedDirectories->push_front(buffer.getStr());				
			}
		}
        buffer.append(SEPARATOR);
	} while( nIndex != -1 );
	return sal_True;
}	

static sal_Bool cleanPath()
{
	if ( pCreatedDirectories )
	{
		StringList::iterator iter = pCreatedDirectories->begin();
		StringList::iterator end = pCreatedDirectories->end();
		while ( iter != end )
		{
//#ifdef SAL_UNX
//			if (rmdir((char*)(*iter).getStr(), 0777) == -1)
//#else
			if (rmdir((char*)(*iter).getStr()) == -1)
//#endif
			{
				fprintf(stderr, "%s: cannot remove directory '%s'\n", 
						idlc()->getOptions()->getProgramName().getStr(), (*iter).getStr());
				return sal_False;
			}
			++iter;
		}
		delete pCreatedDirectories;
	}
	return sal_True;
}

void removeIfExists(const OString& pathname)
{
    unlink(pathname.getStr());
}
	
sal_Int32 SAL_CALL produceFile(const OString& regFileName)
{
	Options* pOptions = idlc()->getOptions();

    OString regTmpName = regFileName.replaceAt(regFileName.getLength() -3, 3, "_idlc_");

	if ( !checkOutputPath(regFileName) )	
	{
		fprintf(stderr, "%s: could not create path of registry file '%s'.\n", 
				pOptions->getProgramName().getStr(), regFileName.getStr());
		return 1;
	}	

	removeIfExists(regTmpName);
    OString urlRegTmpName = convertToFileUrl(regTmpName);

	Registry regFile;
	if ( regFile.create(OStringToOUString(urlRegTmpName, RTL_TEXTENCODING_UTF8)) != REG_NO_ERROR )
	{
		fprintf(stderr, "%s: could not create registry file '%s'\n", 
				pOptions->getProgramName().getStr(), regTmpName.getStr());
		removeIfExists(regTmpName);
		removeIfExists(regFileName);
		cleanPath();
		return 1;	
	}

	RegistryKey rootKey;
	if ( regFile.openRootKey(rootKey) != REG_NO_ERROR )
	{
		fprintf(stderr, "%s: could not open root of registry file '%s'\n", 
				pOptions->getProgramName().getStr(), regFileName.getStr());
		removeIfExists(regTmpName);
		removeIfExists(regFileName);
		cleanPath();
		return 1;			
	}

	// produce registry file 
	if ( !idlc()->getRoot()->dump(rootKey) )
	{
		rootKey.releaseKey();
		regFile.close();
		regFile.destroy(OStringToOUString(regFileName, RTL_TEXTENCODING_UTF8));
		removeIfExists(regFileName);
		cleanPath();
		return 1;
	} 

	rootKey.releaseKey();
	if ( regFile.close() != REG_NO_ERROR )
	{
		fprintf(stderr, "%s: could not close registry file '%s'\n", 
				pOptions->getProgramName().getStr(), regFileName.getStr());
		removeIfExists(regTmpName);
		removeIfExists(regFileName);
		cleanPath();
		return 1;
	}

	removeIfExists(regFileName);

    if ( File::move(OStringToOUString(regTmpName, osl_getThreadTextEncoding()),
                    OStringToOUString(regFileName, osl_getThreadTextEncoding())) != FileBase::E_None ) {
		fprintf(stderr, "%s: cannot rename temporary registry '%s' to '%s'\n", 
				idlc()->getOptions()->getProgramName().getStr(), 
				regTmpName.getStr(), regFileName.getStr());
		removeIfExists(regTmpName);
		cleanPath();
		return 1;
    }
	removeIfExists(regTmpName);
    
	return 0;
}