//----------------------------------------------------------------------------------------------------------------------
//
//
//  This file is part of libpm library                                                           
//
//  Copyright (C) 2010, ..., 2016 Pierre Molinaro.
//
//  e-mail : pierre@pcmolinaro.name
//
//  This library 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 2 of the License, or (at your option)
//  any later version.
//
//  This program is distributed in the hope it will be useful, but WITHOUT ANY WARRANTY; without even the implied
//  warranty of MERCHANDIBILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
//  more details.
//
//----------------------------------------------------------------------------------------------------------------------

#include "all-predefined-types.h"
#include "galgas2/C_Compiler.h"
#include "command_line_interface/C_BoolCommandLineOption.h"
#include "command_line_interface/C_UIntCommandLineOption.h"
#include "command_line_interface/C_StringCommandLineOption.h"
#include "command_line_interface/F_Analyze_CLI_Options.h"
#include "galgas2/F_verbose_output.h"
#include "cLexiqueIntrospection.h"

//----------------------------------------------------------------------------------------------------------------------
//
//                     'GALGAS_application' class                                                
//
//----------------------------------------------------------------------------------------------------------------------

GALGAS_application::GALGAS_application (void) :
AC_GALGAS_root () {
}

//----------------------------------------------------------------------------------------------------------------------

GALGAS_application::GALGAS_application (const GALGAS_application & inSource) :
AC_GALGAS_root (inSource) {
}

//----------------------------------------------------------------------------------------------------------------------

GALGAS_application::~GALGAS_application (void) {
}

//----------------------------------------------------------------------------------------------------------------------

GALGAS_application & GALGAS_application::operator = (const GALGAS_application & /* inSource */) {
  return *this ;
}

//----------------------------------------------------------------------------------------------------------------------

typeComparisonResult GALGAS_application::objectCompare (const GALGAS_application & /* inOperand */) const {
  return kOperandNotValid ;
}

//----------------------------------------------------------------------------------------------------------------------

void GALGAS_application::description (C_String & ioString,
                                      const int32_t /* inIndentation */) const {
  ioString << "<@application:not built>" ;
}

//----------------------------------------------------------------------------------------------------------------------

GALGAS_bool GALGAS_application::constructor_verboseOutput (UNUSED_LOCATION_ARGS) {
  return GALGAS_bool (verboseOutput ()) ;
}

//----------------------------------------------------------------------------------------------------------------------

GALGAS_string GALGAS_application::constructor_system (UNUSED_LOCATION_ARGS) {
  #if COMPILE_FOR_WINDOWS == 1
    return GALGAS_string ("windows") ;
  #else
    return GALGAS_string ("unix") ;
  #endif
}

//----------------------------------------------------------------------------------------------------------------------

GALGAS__32_stringlist GALGAS_application::constructor_boolOptionNameList (LOCATION_ARGS) {
  GALGAS__32_stringlist result = GALGAS__32_stringlist::constructor_emptyList (THERE) ;
  TC_UniqueArray <C_String> array ;
  C_BoolCommandLineOption::getBoolOptionNameList (array) ;
  for (int32_t i=0 ; i<array.count () ; i+=2) {
    result.addAssign_operation (GALGAS_string (array (i COMMA_THERE)), GALGAS_string (array (i+1 COMMA_THERE)) COMMA_THERE) ;
  }
  return result ;
}

//----------------------------------------------------------------------------------------------------------------------

GALGAS_char GALGAS_application::constructor_boolOptionInvocationCharacter (const GALGAS_string & inDomainName,
                                                                           const GALGAS_string & inIdentifier
                                                                           COMMA_UNUSED_LOCATION_ARGS) {
  GALGAS_char result ;
  if (inDomainName.isValid () && inIdentifier.isValid ()) {
    const utf32 c = C_BoolCommandLineOption::getBoolOptionInvocationLetter (inDomainName.stringValue (), inIdentifier.stringValue ()) ;
    result = GALGAS_char (c) ;
  }
  return result ;
}

//----------------------------------------------------------------------------------------------------------------------

GALGAS_string GALGAS_application::constructor_boolOptionInvocationString (const GALGAS_string & inDomainName,
                                                                          const GALGAS_string & inIdentifier
                                                                          COMMA_UNUSED_LOCATION_ARGS) {
  GALGAS_string result ;
  if (inDomainName.isValid () && inIdentifier.isValid ()) {
    const C_String s = C_BoolCommandLineOption::getBoolOptionInvocationString (inDomainName.stringValue (), inIdentifier.stringValue ()) ;
    result = GALGAS_string (s) ;
  }
  return result ;
}

//----------------------------------------------------------------------------------------------------------------------

GALGAS_string GALGAS_application::constructor_boolOptionCommentString (const GALGAS_string & inDomainName,
                                                                       const GALGAS_string & inIdentifier
                                                                       COMMA_UNUSED_LOCATION_ARGS) {
  GALGAS_string result ;
  if (inDomainName.isValid () && inIdentifier.isValid ()) {
    const C_String s = C_BoolCommandLineOption::getBoolOptionCommentString (inDomainName.stringValue (), inIdentifier.stringValue ()) ;
    result = GALGAS_string (s) ;
  }
  return result ;
}

//----------------------------------------------------------------------------------------------------------------------

GALGAS_bool GALGAS_application::constructor_boolOptionValue (const GALGAS_string & inDomainName,
                                                             const GALGAS_string & inIdentifier
                                                             COMMA_UNUSED_LOCATION_ARGS) {
  GALGAS_bool result ;
  if (inDomainName.isValid () && inIdentifier.isValid ()) {
    const bool v = C_BoolCommandLineOption::getBoolOptionValue (inDomainName.stringValue (), inIdentifier.stringValue ()) ;
    result = GALGAS_bool (v) ;
  }
  return result ;
}

//----------------------------------------------------------------------------------------------------------------------

void GALGAS_application::class_method_setBoolOptionValue (GALGAS_string inDomainName,
                                                          GALGAS_string inIdentifier,
                                                          GALGAS_bool inValue
                                                          COMMA_UNUSED_LOCATION_ARGS) {
  if (inDomainName.isValid () && inIdentifier.isValid () && inValue.isValid ()) {
    C_BoolCommandLineOption::setBoolOptionValue (inDomainName.stringValue (),
                                                 inIdentifier.stringValue (),
                                                 inValue.boolValue ()) ;
  }
}

//----------------------------------------------------------------------------------------------------------------------
//   @UINT options                                                                               
//----------------------------------------------------------------------------------------------------------------------

GALGAS__32_stringlist GALGAS_application::constructor_uintOptionNameList (LOCATION_ARGS) {
  GALGAS__32_stringlist result = GALGAS__32_stringlist::constructor_emptyList (THERE) ;
  TC_UniqueArray <C_String> array ;
  C_UIntCommandLineOption::getUIntOptionNameList (array) ;
  for (int32_t i=0 ; i<array.count () ; i+=2) {
    result.addAssign_operation (GALGAS_string (array (i COMMA_THERE)), GALGAS_string (array (i+1 COMMA_THERE)) COMMA_THERE) ;
  }
  return result ;
}

//----------------------------------------------------------------------------------------------------------------------


GALGAS_char GALGAS_application::constructor_uintOptionInvocationCharacter (const GALGAS_string & inDomainName,
                                                                           const GALGAS_string & inIdentifier
                                                                           COMMA_UNUSED_LOCATION_ARGS) {
  GALGAS_char result ;
  if (inDomainName.isValid () && inIdentifier.isValid ()) {
    const utf32 c = C_UIntCommandLineOption::getUIntOptionInvocationLetter (inDomainName.stringValue (), inIdentifier.stringValue ()) ;
    result = GALGAS_char (c) ;
  }
  return result ;
}

//----------------------------------------------------------------------------------------------------------------------

GALGAS_string GALGAS_application::constructor_uintOptionInvocationString (const GALGAS_string & inDomainName,
                                                                          const GALGAS_string & inIdentifier
                                                                          COMMA_UNUSED_LOCATION_ARGS) {
  GALGAS_string result ;
  if (inDomainName.isValid () && inIdentifier.isValid ()) {
    const C_String s = C_UIntCommandLineOption::getUIntOptionInvocationString (inDomainName.stringValue (), inIdentifier.stringValue ()) ;
    result = GALGAS_string (s) ;
  }
  return result ;
}

//----------------------------------------------------------------------------------------------------------------------

GALGAS_string GALGAS_application::constructor_uintOptionCommentString (const GALGAS_string & inDomainName,
                                                                       const GALGAS_string & inIdentifier
                                                                       COMMA_UNUSED_LOCATION_ARGS) {
  GALGAS_string result ;
  if (inDomainName.isValid () && inIdentifier.isValid ()) {
    const C_String s = C_UIntCommandLineOption::getUIntOptionCommentString (inDomainName.stringValue (), inIdentifier.stringValue ()) ;
    result = GALGAS_string (s) ;
  }
  return result ;
}

//----------------------------------------------------------------------------------------------------------------------

GALGAS_uint GALGAS_application::constructor_uintOptionValue (const GALGAS_string & inDomainName,
                                                             const GALGAS_string & inIdentifier
                                                             COMMA_UNUSED_LOCATION_ARGS) {
  GALGAS_uint result ;
  if (inDomainName.isValid () && inIdentifier.isValid ()) {
    const uint32_t v = C_UIntCommandLineOption::getUIntOptionValue (inDomainName.stringValue (), inIdentifier.stringValue ()) ;
    result = GALGAS_uint (v) ;
  }
  return result ;
}

//----------------------------------------------------------------------------------------------------------------------

void GALGAS_application::class_method_setUIntOptionValue (GALGAS_string inDomainName,
                                                          GALGAS_string inIdentifier,
                                                          GALGAS_uint inValue
                                                          COMMA_UNUSED_LOCATION_ARGS) {
  if (inDomainName.isValid () && inIdentifier.isValid () && inValue.isValid ()) {
    C_UIntCommandLineOption::setUIntOptionValue (inDomainName.stringValue (),
                                                 inIdentifier.stringValue (),
                                                 inValue.uintValue ()) ;
  }
}

//----------------------------------------------------------------------------------------------------------------------

void GALGAS_application::class_method_exit (GALGAS_uint inValue
                                            COMMA_UNUSED_LOCATION_ARGS) {
  if (inValue.isValid ()) {
    exit (int (inValue.uintValue ())) ;
  }else{
    exit (1) ;
  }
}

//----------------------------------------------------------------------------------------------------------------------
//   STRING OPTION                                                                               
//----------------------------------------------------------------------------------------------------------------------

GALGAS__32_stringlist GALGAS_application::constructor_stringOptionNameList (LOCATION_ARGS) {
  GALGAS__32_stringlist result = GALGAS__32_stringlist::constructor_emptyList (THERE) ;
  TC_UniqueArray <C_String> array ;
  C_StringCommandLineOption::getStringOptionNameList (array) ;
  for (int32_t i=0 ; i<array.count () ; i+=2) {
    result.addAssign_operation (GALGAS_string (array (i COMMA_THERE)), GALGAS_string (array (i+1 COMMA_THERE)) COMMA_THERE) ;
  }
  return result ;
}

//----------------------------------------------------------------------------------------------------------------------

GALGAS_char GALGAS_application::constructor_stringOptionInvocationCharacter (const GALGAS_string & inDomainName,
                                                                             const GALGAS_string & inIdentifier
                                                                             COMMA_UNUSED_LOCATION_ARGS) {
  GALGAS_char result ;
  if (inDomainName.isValid () && inIdentifier.isValid ()) {
    const utf32 c = C_StringCommandLineOption::getStringOptionInvocationLetter (inDomainName.stringValue (), inIdentifier.stringValue ()) ;
    result = GALGAS_char (c) ;
  }
  return result ;
}

//----------------------------------------------------------------------------------------------------------------------

GALGAS_string GALGAS_application::constructor_stringOptionInvocationString (const GALGAS_string & inDomainName,
                                                                            const GALGAS_string & inIdentifier
                                                                            COMMA_UNUSED_LOCATION_ARGS) {
  GALGAS_string result ;
  if (inDomainName.isValid () && inIdentifier.isValid ()) {
    const C_String s = C_StringCommandLineOption::getStringOptionInvocationString (inDomainName.stringValue (), inIdentifier.stringValue ()) ;
    result = GALGAS_string (s) ;
  }
  return result ;
}

//----------------------------------------------------------------------------------------------------------------------

GALGAS_string GALGAS_application::constructor_stringOptionCommentString (const GALGAS_string & inDomainName,
                                                                         const GALGAS_string & inIdentifier
                                                                         COMMA_UNUSED_LOCATION_ARGS) {
  GALGAS_string result ;
  if (inDomainName.isValid () && inIdentifier.isValid ()) {
    const C_String s = C_StringCommandLineOption::getStringOptionCommentString (inDomainName.stringValue (), inIdentifier.stringValue ()) ;
    result = GALGAS_string (s) ;
  }
  return result ;
}

//----------------------------------------------------------------------------------------------------------------------

GALGAS_string GALGAS_application::constructor_stringOptionValue (const GALGAS_string & inDomainName,
                                                                 const GALGAS_string & inIdentifier
                                                                 COMMA_UNUSED_LOCATION_ARGS) {
  GALGAS_string result ;
  if (inDomainName.isValid () && inIdentifier.isValid ()) {
    const C_String v = C_StringCommandLineOption::getStringOptionValue (inDomainName.stringValue (), inIdentifier.stringValue ()) ;
    result = GALGAS_string (v) ;
  }
  return result ;
}

//----------------------------------------------------------------------------------------------------------------------

void GALGAS_application::class_method_setStringOptionValue (GALGAS_string inDomainName,
                                                            GALGAS_string inIdentifier,
                                                            GALGAS_string inValue
                                                            COMMA_UNUSED_LOCATION_ARGS) {
  if (inDomainName.isValid () && inIdentifier.isValid () && inValue.isValid ()) {
    C_StringCommandLineOption::setStringOptionValue (inDomainName.stringValue (),
                                                     inIdentifier.stringValue (),
                                                     inValue.stringValue ()) ;
  }
}

//----------------------------------------------------------------------------------------------------------------------
//  Version strings
//----------------------------------------------------------------------------------------------------------------------

GALGAS_string GALGAS_application::constructor_projectVersionString (UNUSED_LOCATION_ARGS) {
  return GALGAS_string (projectVersionString ()) ;
}

//----------------------------------------------------------------------------------------------------------------------

GALGAS_string GALGAS_application::constructor_galgasVersionString (UNUSED_LOCATION_ARGS) {
  return GALGAS_string (galgasVersionString ()) ;
}

//----------------------------------------------------------------------------------------------------------------------
//  Command line arguments
//----------------------------------------------------------------------------------------------------------------------

GALGAS_uint GALGAS_application::constructor_commandLineArgumentCount (UNUSED_LOCATION_ARGS) {
  return GALGAS_uint (commandLineArgumentCount ()) ;
}

//----------------------------------------------------------------------------------------------------------------------

GALGAS_string GALGAS_application::constructor_commandLineArgumentAtIndex (const GALGAS_uint & inIndex,
                                                                          C_Compiler * inCompiler
                                                                          COMMA_LOCATION_ARGS) {
  GALGAS_string result ;
  if (inIndex.isValid ()) {
    const uint32_t idx = inIndex.uintValue () ;
    if (idx < commandLineArgumentCount ()) {
      result = GALGAS_string (commandLineArgumentAtIndex (idx)) ;
    }else{
      C_String message ;
      message << "@application.commandLineArgumentAtIndex: index "
              << cStringWithUnsigned (idx)
              << " >= argument count = "
              << cStringWithUnsigned (commandLineArgumentCount ()) ;
      inCompiler->onTheFlySemanticError (message COMMA_THERE) ;
    }
  }
  return result ;
}

//----------------------------------------------------------------------------------------------------------------------*

GALGAS_stringset GALGAS_application::constructor_keywordIdentifierSet (LOCATION_ARGS) {
  GALGAS_stringset result = GALGAS_stringset::constructor_emptySet (THERE) ;
  TC_UniqueArray <C_String> list ;
  cLexiqueIntrospection::getKeywordListNames (list) ;
  for (int32_t i=0 ; i < list.count () ; i++) {
    result.addAssign_operation (GALGAS_string (list (i COMMA_HERE)) COMMA_HERE) ;
  }
  return result ;
}

//----------------------------------------------------------------------------------------------------------------------*

GALGAS_stringlist GALGAS_application::constructor_keywordListForIdentifier (const GALGAS_string & inIdentifier
                                                                            COMMA_LOCATION_ARGS) {
  GALGAS_stringlist result ;
  if (inIdentifier.isValid ()) {
    result = GALGAS_stringlist::constructor_emptyList (THERE) ;
    TC_UniqueArray <C_String> list ;
    bool found = false ;
    cLexiqueIntrospection::getKeywordListForIdentifier (inIdentifier.stringValue(), found, list) ;
    for (int32_t i=0 ; i < list.count () ; i++) {
      result.addAssign_operation (GALGAS_string (list (i COMMA_HERE)) COMMA_HERE) ;
    }
  }
  return result ;
}

//----------------------------------------------------------------------------------------------------------------------