/*

 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.

 *

 * This code is free software; you can redistribute it and/or modify it

 * under the terms of the GNU General Public License version 2 only, as

 * published by the Free Software Foundation.

 *

 * This code 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 General Public License

 * version 2 for more details (a copy is included in the LICENSE file that

 * accompanied this code).

 *

 * You should have received a copy of the GNU General Public License version

 * 2 along with this work; if not, write to the Free Software Foundation,

 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.

 *

 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA

 * or visit www.oracle.com if you need additional information or have any

 * questions.

 *

 */

#include "precompiled.hpp"

#include "classfile/javaClasses.hpp"

#include "runtime/arguments.hpp"

#include "runtime/commandLineFlagRangeList.hpp"

#include "runtime/java.hpp"

#include "runtime/jniHandles.hpp"

#include "services/writeableFlags.hpp"

#define TEMP_BUF_SIZE 80

static void buffer_concat(char* buffer, const char* src) {

  strncat(buffer, src, TEMP_BUF_SIZE - 1 - strlen(buffer));

}

static void print_flag_error_message_bounds(const char* name, char* buffer) {

  CommandLineFlagRange* range = CommandLineFlagRangeList::find(name);

  if (range != NULL) {

    buffer_concat(buffer, "must have value in range ");

    stringStream stream;

    range->print(&stream);

    const char* range_string = stream.as_string();

    size_t j = strlen(buffer);

    for (size_t i=0; j<TEMP_BUF_SIZE-1; i++) {

      if (range_string[i] == '\0') {

        break;

      } else if (range_string[i] != ' ') {

        buffer[j] = range_string[i];

        j++;

      }

    }

    buffer[j] = '\0';

  }

}

static void print_flag_error_message_if_needed(Flag::Error error, const char* name, FormatBuffer<80>& err_msg) {

  if (error == Flag::SUCCESS) {

    return;

  }

  char buffer[TEMP_BUF_SIZE] = {'\0'};

  if ((error != Flag::MISSING_NAME) && (name != NULL)) {

    buffer_concat(buffer, name);

    buffer_concat(buffer, " error: ");

  } else {

    buffer_concat(buffer, "Error: ");

  }

  switch (error) {

    case Flag::MISSING_NAME:

      buffer_concat(buffer, "flag name is missing."); break;

    case Flag::MISSING_VALUE:

      buffer_concat(buffer, "parsing the textual form of the value."); break;

    case Flag::NON_WRITABLE:

      buffer_concat(buffer, "flag is not writeable."); break;

    case Flag::OUT_OF_BOUNDS:

      print_flag_error_message_bounds(name, buffer); break;

    case Flag::VIOLATES_CONSTRAINT:

      buffer_concat(buffer, "value violates its flag's constraint."); break;

    case Flag::INVALID_FLAG:

      buffer_concat(buffer, "there is no flag with the given name."); break;

    case Flag::ERR_OTHER:

      buffer_concat(buffer, "other, unspecified error related to setting the flag."); break;

    case Flag::SUCCESS:

      break;

  }

  err_msg.print("%s", buffer);

}

// set a boolean global flag

Flag::Error WriteableFlags::set_bool_flag(const char* name, const char* arg, Flag::Flags origin, FormatBuffer<80>& err_msg) {

  if ((strcasecmp(arg, "true") == 0) || (*arg == '1' && *(arg + 1) == 0)) {

    return set_bool_flag(name, true, origin, err_msg);

  } else if ((strcasecmp(arg, "false") == 0) || (*arg == '0' && *(arg + 1) == 0)) {

    return set_bool_flag(name, false, origin, err_msg);

  }

  err_msg.print("flag value must be a boolean (1/0 or true/false)");

  return Flag::WRONG_FORMAT;

}

Flag::Error WriteableFlags::set_bool_flag(const char* name, bool value, Flag::Flags origin, FormatBuffer<80>& err_msg) {

  Flag::Error err = CommandLineFlags::boolAtPut(name, &value, origin);

  print_flag_error_message_if_needed(err, name, err_msg);

  return err;

}

// set a int global flag

Flag::Error WriteableFlags::set_int_flag(const char* name, const char* arg, Flag::Flags origin, FormatBuffer<80>& err_msg) {

  int value;

  if (sscanf(arg, "%d", &value)) {

    return set_int_flag(name, value, origin, err_msg);

  }

  err_msg.print("flag value must be an integer");

  return Flag::WRONG_FORMAT;

}

Flag::Error WriteableFlags::set_int_flag(const char* name, int value, Flag::Flags origin, FormatBuffer<80>& err_msg) {

  Flag::Error err = CommandLineFlags::intAtPut(name, &value, origin);

  print_flag_error_message_if_needed(err, name, err_msg);

  return err;

}

// set a uint global flag

Flag::Error WriteableFlags::set_uint_flag(const char* name, const char* arg, Flag::Flags origin, FormatBuffer<80>& err_msg) {

  uint value;

  if (sscanf(arg, "%u", &value)) {

    return set_uint_flag(name, value, origin, err_msg);

  }

  err_msg.print("flag value must be an unsigned integer");

  return Flag::WRONG_FORMAT;

}

Flag::Error WriteableFlags::set_uint_flag(const char* name, uint value, Flag::Flags origin, FormatBuffer<80>& err_msg) {

  Flag::Error err = CommandLineFlags::uintAtPut(name, &value, origin);

  print_flag_error_message_if_needed(err, name, err_msg);

  return err;

}

// set a intx global flag

Flag::Error WriteableFlags::set_intx_flag(const char* name, const char* arg, Flag::Flags origin, FormatBuffer<80>& err_msg) {

  intx value;

  if (sscanf(arg, INTX_FORMAT, &value)) {

    return set_intx_flag(name, value, origin, err_msg);

  }

  err_msg.print("flag value must be an integer");

  return Flag::WRONG_FORMAT;

}

Flag::Error WriteableFlags::set_intx_flag(const char* name, intx value, Flag::Flags origin, FormatBuffer<80>& err_msg) {

  Flag::Error err = CommandLineFlags::intxAtPut(name, &value, origin);

  print_flag_error_message_if_needed(err, name, err_msg);

  return err;

}

// set a uintx global flag

Flag::Error WriteableFlags::set_uintx_flag(const char* name, const char* arg, Flag::Flags origin, FormatBuffer<80>& err_msg) {

  uintx value;

  if (sscanf(arg, UINTX_FORMAT, &value)) {

    return set_uintx_flag(name, value, origin, err_msg);

  }

  err_msg.print("flag value must be an unsigned integer");

  return Flag::WRONG_FORMAT;

}

Flag::Error WriteableFlags::set_uintx_flag(const char* name, uintx value, Flag::Flags origin, FormatBuffer<80>& err_msg) {

  Flag::Error err = CommandLineFlags::uintxAtPut(name, &value, origin);

  print_flag_error_message_if_needed(err, name, err_msg);

  return err;

}

// set a uint64_t global flag

Flag::Error WriteableFlags::set_uint64_t_flag(const char* name, const char* arg, Flag::Flags origin, FormatBuffer<80>& err_msg) {

  uint64_t value;

  if (sscanf(arg, UINT64_FORMAT, &value)) {

    return set_uint64_t_flag(name, value, origin, err_msg);

  }

  err_msg.print("flag value must be an unsigned 64-bit integer");

  return Flag::WRONG_FORMAT;

}

Flag::Error WriteableFlags::set_uint64_t_flag(const char* name, uint64_t value, Flag::Flags origin, FormatBuffer<80>& err_msg) {

  Flag::Error err = CommandLineFlags::uint64_tAtPut(name, &value, origin);

  print_flag_error_message_if_needed(err, name, err_msg);

  return err;

}

// set a size_t global flag

Flag::Error WriteableFlags::set_size_t_flag(const char* name, const char* arg, Flag::Flags origin, FormatBuffer<80>& err_msg) {

  size_t value;

  if (sscanf(arg, SIZE_FORMAT, &value)) {

    return set_size_t_flag(name, value, origin, err_msg);

  }

  err_msg.print("flag value must be an unsigned integer");

  return Flag::WRONG_FORMAT;

}

Flag::Error WriteableFlags::set_size_t_flag(const char* name, size_t value, Flag::Flags origin, FormatBuffer<80>& err_msg) {

  Flag::Error err = CommandLineFlags::size_tAtPut(name, &value, origin);

  print_flag_error_message_if_needed(err, name, err_msg);

  return err;

}

// set a string global flag using value from AttachOperation

Flag::Error WriteableFlags::set_ccstr_flag(const char* name, const char* value, Flag::Flags origin, FormatBuffer<80>& err_msg) {

  Flag::Error err = CommandLineFlags::ccstrAtPut((char*)name, &value, origin);

  print_flag_error_message_if_needed(err, name, err_msg);

  return err;

}

/* sets a writeable flag to the provided value

 *

 * - return status is one of the WriteableFlags::err enum values

 * - an eventual error message will be generated to the provided err_msg buffer

 */

Flag::Error WriteableFlags::set_flag(const char* flag_name, const char* flag_value, Flag::Flags origin, FormatBuffer<80>& err_msg) {

  return set_flag(flag_name, &flag_value, set_flag_from_char, origin, err_msg);

}

/* sets a writeable flag to the provided value

 *

 * - return status is one of the WriteableFlags::err enum values

 * - an eventual error message will be generated to the provided err_msg buffer

 */

Flag::Error WriteableFlags::set_flag(const char* flag_name, jvalue flag_value, Flag::Flags origin, FormatBuffer<80>& err_msg) {

  return set_flag(flag_name, &flag_value, set_flag_from_jvalue, origin, err_msg);

}

// a writeable flag setter accepting either 'jvalue' or 'char *' values

Flag::Error WriteableFlags::set_flag(const char* name, const void* value, Flag::Error(*setter)(Flag*,const void*,Flag::Flags,FormatBuffer<80>&), Flag::Flags origin, FormatBuffer<80>& err_msg) {

  if (name == NULL) {

    err_msg.print("flag name is missing");

    return Flag::MISSING_NAME;

  }

  if (value == NULL) {

    err_msg.print("flag value is missing");

    return Flag::MISSING_VALUE;

  }

  Flag* f = Flag::find_flag((char*)name, strlen(name));

  if (f) {

    // only writeable flags are allowed to be set

    if (f->is_writeable()) {

      return setter(f, value, origin, err_msg);

    } else {

      err_msg.print("only 'writeable' flags can be set");

      return Flag::NON_WRITABLE;

    }

  }

  err_msg.print("flag %s does not exist", name);

  return Flag::INVALID_FLAG;

}

// a writeable flag setter accepting 'char *' values

Flag::Error WriteableFlags::set_flag_from_char(Flag* f, const void* value, Flag::Flags origin, FormatBuffer<80>& err_msg) {

  char* flag_value = *(char**)value;

  if (flag_value == NULL) {

    err_msg.print("flag value is missing");

    return Flag::MISSING_VALUE;

  }

  if (f->is_bool()) {

    return set_bool_flag(f->_name, flag_value, origin, err_msg);

  } else if (f->is_int()) {

    return set_int_flag(f->_name, flag_value, origin, err_msg);

  } else if (f->is_uint()) {

    return set_uint_flag(f->_name, flag_value, origin, err_msg);

  } else if (f->is_intx()) {

    return set_intx_flag(f->_name, flag_value, origin, err_msg);

  } else if (f->is_uintx()) {

    return set_uintx_flag(f->_name, flag_value, origin, err_msg);

  } else if (f->is_uint64_t()) {

    return set_uint64_t_flag(f->_name, flag_value, origin, err_msg);

  } else if (f->is_size_t()) {

    return set_size_t_flag(f->_name, flag_value, origin, err_msg);

  } else if (f->is_ccstr()) {

    return set_ccstr_flag(f->_name, flag_value, origin, err_msg);

  } else {

    ShouldNotReachHere();

  }

  return Flag::ERR_OTHER;

}

// a writeable flag setter accepting 'jvalue' values

Flag::Error WriteableFlags::set_flag_from_jvalue(Flag* f, const void* value, Flag::Flags origin,

                                                 FormatBuffer<80>& err_msg) {

  jvalue new_value = *(jvalue*)value;

  if (f->is_bool()) {

    bool bvalue = (new_value.z == JNI_TRUE ? true : false);

    return set_bool_flag(f->_name, bvalue, origin, err_msg);

  } else if (f->is_int()) {

    int ivalue = (int)new_value.j;

    return set_int_flag(f->_name, ivalue, origin, err_msg);

  } else if (f->is_uint()) {

    uint uvalue = (uint)new_value.j;

    return set_uint_flag(f->_name, uvalue, origin, err_msg);

  } else if (f->is_intx()) {

    intx ivalue = (intx)new_value.j;

    return set_intx_flag(f->_name, ivalue, origin, err_msg);

  } else if (f->is_uintx()) {

    uintx uvalue = (uintx)new_value.j;

    return set_uintx_flag(f->_name, uvalue, origin, err_msg);

  } else if (f->is_uint64_t()) {

    uint64_t uvalue = (uint64_t)new_value.j;

    return set_uint64_t_flag(f->_name, uvalue, origin, err_msg);

  } else if (f->is_size_t()) {

    size_t svalue = (size_t)new_value.j;

    return set_size_t_flag(f->_name, svalue, origin, err_msg);

  } else if (f->is_ccstr()) {

    oop str = JNIHandles::resolve_external_guard(new_value.l);

    if (str == NULL) {

      err_msg.print("flag value is missing");

      return Flag::MISSING_VALUE;

    }

    ccstr svalue = java_lang_String::as_utf8_string(str);

    Flag::Error ret = WriteableFlags::set_ccstr_flag(f->_name, svalue, origin, err_msg);

    if (ret != Flag::SUCCESS) {

      FREE_C_HEAP_ARRAY(char, svalue);

    }

    return ret;

  } else {

    ShouldNotReachHere();

  }

  return Flag::ERR_OTHER;

}