/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
/*
 * This file is part of the LibreOffice project.
 *
 * This Source Code Form is subject to the terms of the Mozilla Public
 * License, v. 2.0. If a copy of the MPL was not distributed with this
 * file, You can obtain one at http://mozilla.org/MPL/2.0/.
 *
 * This file incorporates work covered by the following license notice:
 *
 *   Licensed to the Apache Software Foundation (ASF) under one or more
 *   contributor license agreements. See the NOTICE file distributed
 *   with this work for additional information regarding copyright
 *   ownership. The ASF licenses this file to you under the Apache
 *   License, Version 2.0 (the "License"); you may not use this file
 *   except in compliance with the License. You may obtain a copy of
 *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
 */

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

#include "cppuoptions.hxx"

#ifdef SAL_UNX
#define SEPARATOR '/'
#else
#define SEPARATOR '\\'
#endif

bool CppuOptions::initOptions(int ac, char* av[], bool bCmdFile)
{
    bool    ret = true;
    int i=0;

    if (!bCmdFile)
    {
        bCmdFile = true;

        OString name(av[0]);
        sal_Int32 index = name.lastIndexOf(SEPARATOR);
        m_program = name.copy(index > 0 ? index+1 : 0);

        if (ac < 2)
        {
            fprintf(stderr, "%s", prepareHelp().getStr());
            ret = false;
        }

        i = 1;
    }
    else
    {
        i = 0;
    }

    char    *s=nullptr;
    for( ; i < ac; i++)
    {
        if (av[i][0] == '-')
        {
            switch (av[i][1])
            {
                case 'O':
                    if (av[i][2] == '\0')
                    {
                        if (i < ac - 1 && av[i+1][0] != '-')
                        {
                            i++;
                            s = av[i];
                        }
                        else
                        {
                            OString tmp("'-O', please check"_ostr);
                            if (i <= ac - 1)
                            {
                                tmp += OString::Concat(" your input '") + av[i+1] + "'";
                            }

                            throw IllegalArgument(tmp);
                        }
                    }
                    else
                    {
                        s = av[i] + 2;
                    }

                    m_options["-O"_ostr] = OString(s);
                    break;
                case 'n':
                    if (av[i][2] != 'D' || av[i][3] != '\0')
                    {
                        OString tmp = OString::Concat("'-nD', please check your input '") + av[i] + "'";
                        throw IllegalArgument(tmp);
                    }

                    m_options["-nD"_ostr] = OString();
                    break;
                case 'T':
                    if (av[i][2] == '\0')
                    {
                        if (i < ac - 1 && av[i+1][0] != '-')
                        {
                            i++;
                            s = av[i];
                        }
                        else
                        {
                            OString tmp("'-T', please check"_ostr);
                            if (i <= ac - 1)
                            {
                                tmp += OString::Concat(" your input '") + av[i+1] + "'";
                            }

                            throw IllegalArgument(tmp);
                        }
                    }
                    else
                    {
                        s = av[i] + 2;
                    }

                    if (m_options.count("-T"_ostr) > 0)
                    {
                        OString tmp = m_options["-T"_ostr] + ";" + s;
                        m_options["-T"_ostr] = tmp;
                    }
                    else
                    {
                        m_options["-T"_ostr] = OString(s);
                    }
                    break;
                case 'L':
                    if (av[i][2] != '\0')
                    {
                        OString tmp("'-L', please check"_ostr);
                        if (i <= ac - 1)
                        {
                            tmp += OString::Concat(" your input '") + av[i] + "'";
                        }

                        throw IllegalArgument(tmp);
                    }

                    if (isValid("-C"_ostr) || isValid("-CS"_ostr))
                    {
                        throw IllegalArgument("'-L' could not be combined with '-C' or '-CS' option"_ostr);
                    }
                    m_options["-L"_ostr] = OString();
                    break;
                case 'C':
                    if (av[i][2] == 'S')
                    {
                        if (av[i][3] != '\0')
                        {
                            OString tmp("'-CS', please check"_ostr);
                            if (i <= ac - 1)
                            {
                                tmp += OString::Concat(" your input '") + av[i] + "'";
                            }

                            throw IllegalArgument(tmp);
                        }

                        if (isValid("-L"_ostr) || isValid("-C"_ostr))
                        {
                            throw IllegalArgument("'-CS' could not be combined with '-L' or '-C' option"_ostr);
                        }
                        m_options["-CS"_ostr] = OString();
                        break;
                    }
                    else if (av[i][2] != '\0')
                    {
                        OString tmp("'-C', please check"_ostr);
                        if (i <= ac - 1)
                        {
                            tmp += OString::Concat(" your input '") + av[i] + "'";
                        }

                        throw IllegalArgument(tmp);
                    }

                    if (isValid("-L"_ostr) || isValid("-CS"_ostr))
                    {
                        throw IllegalArgument("'-C' could not be combined with '-L' or '-CS' option"_ostr);
                    }
                    m_options["-C"_ostr] = OString();
                    break;
                case 'G':
                    if (av[i][2] == 'c')
                    {
                        if (av[i][3] != '\0')
                        {
                            OString tmp("'-Gc', please check"_ostr);
                            if (i <= ac - 1)
                            {
                                tmp += OString::Concat(" your input '") + av[i] + "'";
                            }

                            throw IllegalArgument(tmp);
                        }

                        m_options["-Gc"_ostr] = OString();
                        break;
                    }
                    else if (av[i][2] != '\0')
                    {
                        OString tmp("'-G', please check"_ostr);
                        if (i <= ac - 1)
                        {
                            tmp += OString::Concat(" your input '") + av[i] + "'";
                        }

                        throw IllegalArgument(tmp);
                    }

                    m_options["-G"_ostr] = OString();
                    break;
                case 'X': // support for eXtra type rdbs
                {
                    if (av[i][2] == '\0')
                    {
                        if (i < ac - 1 && av[i+1][0] != '-')
                        {
                            i++;
                            s = av[i];
                        }
                        else
                        {
                            OString tmp("'-X', please check"_ostr);
                            if (i <= ac - 1)
                            {
                                tmp += OString::Concat(" your input '") + av[i+1] + "'";
                            }

                            throw IllegalArgument(tmp);
                        }
                    }
                    else
                    {
                        s = av[i] + 2;
                    }

                    m_extra_input_files.emplace_back(s );
                    break;
                }

                default:
                    throw IllegalArgument(OString::Concat("the option is unknown") + av[i]);
            }
        } else
        {
            if (av[i][0] == '@')
            {
                FILE* cmdFile = fopen(av[i]+1, "r");
                if( cmdFile == nullptr )
                {
                    fprintf(stderr, "%s", prepareHelp().getStr());
                    ret = false;
                }
                else
                {
                    int rargc=0;
                    char* rargv[512];
                    char  buffer[512];

                    while (fscanf(cmdFile, "%511s", buffer) != EOF && rargc < 512)
                    {
                        rargv[rargc]= strdup(buffer);
                        rargc++;
                    }
                    fclose(cmdFile);

                    ret = initOptions(rargc, rargv, bCmdFile);

                    for (int j=0; j < rargc; j++)
                    {
                        free(rargv[j]);
                    }
                }
            }
            else
            {
                m_inputFiles.emplace_back(av[i]);
            }
        }
    }

    return ret;
}

OString CppuOptions::prepareHelp()
{
    OString help = "\nusing: " +
        m_program + " [-options] file_1 ... file_n\nOptions:\n"
        "    -O<path>   = path describes the root directory for the generated output.\n"
        "                 The output directory tree is generated under this directory.\n"
        "    -T<name>   = name specifies a type or a list of types. The output for this\n"
        "      [t1;...]   type is generated. If no '-T' option is specified,\n"
        "                 then output for all types is generated.\n"
        "                 Example: 'com.sun.star.uno.XInterface' is a valid type.\n"
        "    -L         = UNO type functions are generated lightweight, that means only\n"
        "                 the name and typeclass are given and everything else is retrieved\n"
        "                 from the type library dynamically. The default is that UNO type\n"
        "                 functions provides enough type information for bootstrapping C++.\n"
        "                 '-L' should be the default for external components.\n"
        "    -C         = UNO type functions are generated comprehensive that means all\n"
        "                 necessary information is available for bridging the type in UNO.\n"
        "    -nD        = no dependent types are generated.\n"
        "    -G         = generate only target files which does not exists.\n"
        "    -Gc        = generate only target files which content will be changed.\n"
        "    -X<file>   = extra types which will not be taken into account for generation.\n\n" +
        prepareVersion();

    return help;
}

OString CppuOptions::prepareVersion() const
{
    OString version = m_program + " Version 2.0\n\n";
    return version;
}


/* vim:set shiftwidth=4 softtabstop=4 expandtab: */