/*

 * Copyright (c) 2015, 2017, Oracle and/or its affiliates. All rights reserved.

 * 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/stringTable.hpp"

#include "classfile/symbolTable.hpp"

#include "gc/shared/referenceProcessor.hpp"

#include "runtime/arguments.hpp"

#include "runtime/commandLineFlagConstraintList.hpp"

#include "runtime/commandLineFlagConstraintsCompiler.hpp"

#include "runtime/commandLineFlagConstraintsGC.hpp"

#include "runtime/commandLineFlagConstraintsRuntime.hpp"

#include "runtime/os.hpp"

#include "utilities/macros.hpp"

#if INCLUDE_ALL_GCS

#include "gc/g1/g1_globals.hpp"

#endif

#ifdef COMPILER1

#include "c1/c1_globals.hpp"

#endif

#ifdef COMPILER2

#include "opto/c2_globals.hpp"

#endif

class CommandLineFlagConstraint_bool : public CommandLineFlagConstraint {

  CommandLineFlagConstraintFunc_bool _constraint;

  const bool* _ptr;

public:

  // the "name" argument must be a string literal

  CommandLineFlagConstraint_bool(const char* name, const bool* ptr,

                                 CommandLineFlagConstraintFunc_bool func,

                                 ConstraintType type) : CommandLineFlagConstraint(name, type), _constraint(func), _ptr(ptr) {}

  Flag::Error apply(bool verbose) {

    bool value = *_ptr;

    return _constraint(value, verbose);

  }

  Flag::Error apply_bool(bool value, bool verbose) {

    return _constraint(value, verbose);

  }

};

class CommandLineFlagConstraint_int : public CommandLineFlagConstraint {

  CommandLineFlagConstraintFunc_int _constraint;

  const int* _ptr;

public:

  // the "name" argument must be a string literal

  CommandLineFlagConstraint_int(const char* name, const int* ptr,

                                CommandLineFlagConstraintFunc_int func,

                                ConstraintType type) : CommandLineFlagConstraint(name, type), _constraint(func), _ptr(ptr) {}

  Flag::Error apply(bool verbose) {

    int value = *_ptr;

    return _constraint(value, verbose);

  }

  Flag::Error apply_int(int value, bool verbose) {

    return _constraint(value, verbose);

  }

};

class CommandLineFlagConstraint_intx : public CommandLineFlagConstraint {

  CommandLineFlagConstraintFunc_intx _constraint;

  const intx* _ptr;

public:

  // the "name" argument must be a string literal

  CommandLineFlagConstraint_intx(const char* name, const intx* ptr,

                                 CommandLineFlagConstraintFunc_intx func,

                                 ConstraintType type) : CommandLineFlagConstraint(name, type), _constraint(func), _ptr(ptr) {}

  Flag::Error apply(bool verbose) {

    intx value = *_ptr;

    return _constraint(value, verbose);

  }

  Flag::Error apply_intx(intx value, bool verbose) {

    return _constraint(value, verbose);

  }

};

class CommandLineFlagConstraint_uint : public CommandLineFlagConstraint {

  CommandLineFlagConstraintFunc_uint _constraint;

  const uint* _ptr;

public:

  // the "name" argument must be a string literal

  CommandLineFlagConstraint_uint(const char* name, const uint* ptr,

                                 CommandLineFlagConstraintFunc_uint func,

                                 ConstraintType type) : CommandLineFlagConstraint(name, type), _constraint(func), _ptr(ptr) {}

  Flag::Error apply(bool verbose) {

    uint value = *_ptr;

    return _constraint(value, verbose);

  }

  Flag::Error apply_uint(uint value, bool verbose) {

    return _constraint(value, verbose);

  }

};

class CommandLineFlagConstraint_uintx : public CommandLineFlagConstraint {

  CommandLineFlagConstraintFunc_uintx _constraint;

  const uintx* _ptr;

public:

  // the "name" argument must be a string literal

  CommandLineFlagConstraint_uintx(const char* name, const uintx* ptr,

                                  CommandLineFlagConstraintFunc_uintx func,

                                 ConstraintType type) : CommandLineFlagConstraint(name, type), _constraint(func), _ptr(ptr) {}

  Flag::Error apply(bool verbose) {

    uintx value = *_ptr;

    return _constraint(value, verbose);

  }

  Flag::Error apply_uintx(uintx value, bool verbose) {

    return _constraint(value, verbose);

  }

};

class CommandLineFlagConstraint_uint64_t : public CommandLineFlagConstraint {

  CommandLineFlagConstraintFunc_uint64_t _constraint;

  const uint64_t* _ptr;

public:

  // the "name" argument must be a string literal

  CommandLineFlagConstraint_uint64_t(const char* name, const uint64_t* ptr,

                                     CommandLineFlagConstraintFunc_uint64_t func,

                                 ConstraintType type) : CommandLineFlagConstraint(name, type), _constraint(func), _ptr(ptr) {}

  Flag::Error apply(bool verbose) {

    uint64_t value = *_ptr;

    return _constraint(value, verbose);

  }

  Flag::Error apply_uint64_t(uint64_t value, bool verbose) {

    return _constraint(value, verbose);

  }

};

class CommandLineFlagConstraint_size_t : public CommandLineFlagConstraint {

  CommandLineFlagConstraintFunc_size_t _constraint;

  const size_t* _ptr;

public:

  // the "name" argument must be a string literal

  CommandLineFlagConstraint_size_t(const char* name, const size_t* ptr,

                                   CommandLineFlagConstraintFunc_size_t func,

                                 ConstraintType type) : CommandLineFlagConstraint(name, type), _constraint(func), _ptr(ptr) {}

  Flag::Error apply(bool verbose) {

    size_t value = *_ptr;

    return _constraint(value, verbose);

  }

  Flag::Error apply_size_t(size_t value, bool verbose) {

    return _constraint(value, verbose);

  }

};

class CommandLineFlagConstraint_double : public CommandLineFlagConstraint {

  CommandLineFlagConstraintFunc_double _constraint;

  const double* _ptr;

public:

  // the "name" argument must be a string literal

  CommandLineFlagConstraint_double(const char* name, const double* ptr,

                                   CommandLineFlagConstraintFunc_double func,

                                 ConstraintType type) : CommandLineFlagConstraint(name, type), _constraint(func), _ptr(ptr) {}

  Flag::Error apply(bool verbose) {

    double value = *_ptr;

    return _constraint(value, verbose);

  }

  Flag::Error apply_double(double value, bool verbose) {

    return _constraint(value, verbose);

  }

};

// No constraint emitting

void emit_constraint_no(...)                                                      { /* NOP */ }

// No constraint emitting if function argument is NOT provided

void emit_constraint_bool(const char* /*name*/, const bool* /*value*/)            { /* NOP */ }

void emit_constraint_ccstr(const char* /*name*/, const ccstr* /*value*/)          { /* NOP */ }

void emit_constraint_ccstrlist(const char* /*name*/, const ccstrlist* /*value*/)  { /* NOP */ }

void emit_constraint_int(const char* /*name*/, const int* /*value*/)              { /* NOP */ }

void emit_constraint_intx(const char* /*name*/, const intx* /*value*/)            { /* NOP */ }

void emit_constraint_uint(const char* /*name*/, const uint* /*value*/)            { /* NOP */ }

void emit_constraint_uintx(const char* /*name*/, const uintx* /*value*/)          { /* NOP */ }

void emit_constraint_uint64_t(const char* /*name*/, const uint64_t* /*value*/)    { /* NOP */ }

void emit_constraint_size_t(const char* /*name*/, const size_t* /*value*/)        { /* NOP */ }

void emit_constraint_double(const char* /*name*/, const double* /*value*/)        { /* NOP */ }

// CommandLineFlagConstraint emitting code functions if function argument is provided

void emit_constraint_bool(const char* name, const bool* ptr, CommandLineFlagConstraintFunc_bool func, CommandLineFlagConstraint::ConstraintType type) {

  CommandLineFlagConstraintList::add(new CommandLineFlagConstraint_bool(name, ptr, func, type));

}

void emit_constraint_int(const char* name, const int* ptr, CommandLineFlagConstraintFunc_int func, CommandLineFlagConstraint::ConstraintType type) {

  CommandLineFlagConstraintList::add(new CommandLineFlagConstraint_int(name, ptr, func, type));

}

void emit_constraint_intx(const char* name, const intx* ptr, CommandLineFlagConstraintFunc_intx func, CommandLineFlagConstraint::ConstraintType type) {

  CommandLineFlagConstraintList::add(new CommandLineFlagConstraint_intx(name, ptr, func, type));

}

void emit_constraint_uint(const char* name, const uint* ptr, CommandLineFlagConstraintFunc_uint func, CommandLineFlagConstraint::ConstraintType type) {

  CommandLineFlagConstraintList::add(new CommandLineFlagConstraint_uint(name, ptr, func, type));

}

void emit_constraint_uintx(const char* name, const uintx* ptr, CommandLineFlagConstraintFunc_uintx func, CommandLineFlagConstraint::ConstraintType type) {

  CommandLineFlagConstraintList::add(new CommandLineFlagConstraint_uintx(name, ptr, func, type));

}

void emit_constraint_uint64_t(const char* name, const uint64_t* ptr, CommandLineFlagConstraintFunc_uint64_t func, CommandLineFlagConstraint::ConstraintType type) {

  CommandLineFlagConstraintList::add(new CommandLineFlagConstraint_uint64_t(name, ptr, func, type));

}

void emit_constraint_size_t(const char* name, const size_t* ptr, CommandLineFlagConstraintFunc_size_t func, CommandLineFlagConstraint::ConstraintType type) {

  CommandLineFlagConstraintList::add(new CommandLineFlagConstraint_size_t(name, ptr, func, type));

}

void emit_constraint_double(const char* name, const double* ptr, CommandLineFlagConstraintFunc_double func, CommandLineFlagConstraint::ConstraintType type) {

  CommandLineFlagConstraintList::add(new CommandLineFlagConstraint_double(name, ptr, func, type));

}

// Generate code to call emit_constraint_xxx function

#define EMIT_CONSTRAINT_PRODUCT_FLAG(type, name, value, doc)      ); emit_constraint_##type(#name,&name

#define EMIT_CONSTRAINT_COMMERCIAL_FLAG(type, name, value, doc)   ); emit_constraint_##type(#name,&name

#define EMIT_CONSTRAINT_DIAGNOSTIC_FLAG(type, name, value, doc)   ); emit_constraint_##type(#name,&name

#define EMIT_CONSTRAINT_EXPERIMENTAL_FLAG(type, name, value, doc) ); emit_constraint_##type(#name,&name

#define EMIT_CONSTRAINT_MANAGEABLE_FLAG(type, name, value, doc)   ); emit_constraint_##type(#name,&name

#define EMIT_CONSTRAINT_PRODUCT_RW_FLAG(type, name, value, doc)   ); emit_constraint_##type(#name,&name

#define EMIT_CONSTRAINT_PD_PRODUCT_FLAG(type, name, doc)          ); emit_constraint_##type(#name,&name

#define EMIT_CONSTRAINT_PD_DIAGNOSTIC_FLAG(type, name, doc)       ); emit_constraint_##type(#name,&name

#ifndef PRODUCT

#define EMIT_CONSTRAINT_DEVELOPER_FLAG(type, name, value, doc)    ); emit_constraint_##type(#name,&name

#define EMIT_CONSTRAINT_PD_DEVELOPER_FLAG(type, name, doc)        ); emit_constraint_##type(#name,&name

#define EMIT_CONSTRAINT_NOTPRODUCT_FLAG(type, name, value, doc)   ); emit_constraint_##type(#name,&name

#else

#define EMIT_CONSTRAINT_DEVELOPER_FLAG(type, name, value, doc)    ); emit_constraint_no(#name,&name

#define EMIT_CONSTRAINT_PD_DEVELOPER_FLAG(type, name, doc)        ); emit_constraint_no(#name,&name

#define EMIT_CONSTRAINT_NOTPRODUCT_FLAG(type, name, value, doc)   ); emit_constraint_no(#name,&name

#endif

#ifdef _LP64

#define EMIT_CONSTRAINT_LP64_PRODUCT_FLAG(type, name, value, doc) ); emit_constraint_##type(#name,&name

#else

#define EMIT_CONSTRAINT_LP64_PRODUCT_FLAG(type, name, value, doc) ); emit_constraint_no(#name,&name

#endif

// Generate func argument to pass into emit_constraint_xxx functions

#define EMIT_CONSTRAINT_CHECK(func, type)                         , func, CommandLineFlagConstraint::type

// the "name" argument must be a string literal

#define INITIAL_CONSTRAINTS_SIZE 72

GrowableArray<CommandLineFlagConstraint*>* CommandLineFlagConstraintList::_constraints = NULL;

CommandLineFlagConstraint::ConstraintType CommandLineFlagConstraintList::_validating_type = CommandLineFlagConstraint::AtParse;

// Check the ranges of all flags that have them or print them out and exit if requested

void CommandLineFlagConstraintList::init(void) {

  _constraints = new (ResourceObj::C_HEAP, mtArguments) GrowableArray<CommandLineFlagConstraint*>(INITIAL_CONSTRAINTS_SIZE, true);

  emit_constraint_no(NULL RUNTIME_FLAGS(EMIT_CONSTRAINT_DEVELOPER_FLAG,

                                        EMIT_CONSTRAINT_PD_DEVELOPER_FLAG,

                                        EMIT_CONSTRAINT_PRODUCT_FLAG,

                                        EMIT_CONSTRAINT_PD_PRODUCT_FLAG,

                                        EMIT_CONSTRAINT_DIAGNOSTIC_FLAG,

                                        EMIT_CONSTRAINT_PD_DIAGNOSTIC_FLAG,

                                        EMIT_CONSTRAINT_EXPERIMENTAL_FLAG,

                                        EMIT_CONSTRAINT_NOTPRODUCT_FLAG,

                                        EMIT_CONSTRAINT_MANAGEABLE_FLAG,

                                        EMIT_CONSTRAINT_PRODUCT_RW_FLAG,

                                        EMIT_CONSTRAINT_LP64_PRODUCT_FLAG,

                                        IGNORE_RANGE,

                                        EMIT_CONSTRAINT_CHECK,

                                        IGNORE_WRITEABLE));

  EMIT_CONSTRAINTS_FOR_GLOBALS_EXT

  emit_constraint_no(NULL ARCH_FLAGS(EMIT_CONSTRAINT_DEVELOPER_FLAG,

                                     EMIT_CONSTRAINT_PRODUCT_FLAG,

                                     EMIT_CONSTRAINT_DIAGNOSTIC_FLAG,

                                     EMIT_CONSTRAINT_EXPERIMENTAL_FLAG,

                                     EMIT_CONSTRAINT_NOTPRODUCT_FLAG,

                                     IGNORE_RANGE,

                                     EMIT_CONSTRAINT_CHECK,

                                     IGNORE_WRITEABLE));

#ifdef COMPILER1

  emit_constraint_no(NULL C1_FLAGS(EMIT_CONSTRAINT_DEVELOPER_FLAG,

                                   EMIT_CONSTRAINT_PD_DEVELOPER_FLAG,

                                   EMIT_CONSTRAINT_PRODUCT_FLAG,

                                   EMIT_CONSTRAINT_PD_PRODUCT_FLAG,

                                   EMIT_CONSTRAINT_DIAGNOSTIC_FLAG,

                                   EMIT_CONSTRAINT_PD_DIAGNOSTIC_FLAG,

                                   EMIT_CONSTRAINT_NOTPRODUCT_FLAG,

                                   IGNORE_RANGE,

                                   EMIT_CONSTRAINT_CHECK,

                                   IGNORE_WRITEABLE));

#endif // COMPILER1

#ifdef COMPILER2

  emit_constraint_no(NULL C2_FLAGS(EMIT_CONSTRAINT_DEVELOPER_FLAG,

                                   EMIT_CONSTRAINT_PD_DEVELOPER_FLAG,

                                   EMIT_CONSTRAINT_PRODUCT_FLAG,

                                   EMIT_CONSTRAINT_PD_PRODUCT_FLAG,

                                   EMIT_CONSTRAINT_DIAGNOSTIC_FLAG,

                                   EMIT_CONSTRAINT_PD_DIAGNOSTIC_FLAG,

                                   EMIT_CONSTRAINT_EXPERIMENTAL_FLAG,

                                   EMIT_CONSTRAINT_NOTPRODUCT_FLAG,

                                   IGNORE_RANGE,

                                   EMIT_CONSTRAINT_CHECK,

                                   IGNORE_WRITEABLE));

#endif // COMPILER2

#if INCLUDE_ALL_GCS

  emit_constraint_no(NULL G1_FLAGS(EMIT_CONSTRAINT_DEVELOPER_FLAG,

                                   EMIT_CONSTRAINT_PD_DEVELOPER_FLAG,

                                   EMIT_CONSTRAINT_PRODUCT_FLAG,

                                   EMIT_CONSTRAINT_PD_PRODUCT_FLAG,

                                   EMIT_CONSTRAINT_DIAGNOSTIC_FLAG,

                                   EMIT_CONSTRAINT_PD_DIAGNOSTIC_FLAG,

                                   EMIT_CONSTRAINT_EXPERIMENTAL_FLAG,

                                   EMIT_CONSTRAINT_NOTPRODUCT_FLAG,

                                   EMIT_CONSTRAINT_MANAGEABLE_FLAG,

                                   EMIT_CONSTRAINT_PRODUCT_RW_FLAG,

                                   IGNORE_RANGE,

                                   EMIT_CONSTRAINT_CHECK,

                                   IGNORE_WRITEABLE));

#endif // INCLUDE_ALL_GCS

}

CommandLineFlagConstraint* CommandLineFlagConstraintList::find(const char* name) {

  CommandLineFlagConstraint* found = NULL;

  for (int i=0; i<length(); i++) {

    CommandLineFlagConstraint* constraint = at(i);

    if (strcmp(constraint->name(), name) == 0) {

      found = constraint;

      break;

    }

  }

  return found;

}

// Find constraints by name and return only if found constraint's type is equal or lower than current validating type.

CommandLineFlagConstraint* CommandLineFlagConstraintList::find_if_needs_check(const char* name) {

  CommandLineFlagConstraint* found = NULL;

  CommandLineFlagConstraint* constraint = find(name);

  if (constraint && (constraint->type() <= _validating_type)) {

    found = constraint;

  }

  return found;

}

// Check constraints for specific constraint type.

bool CommandLineFlagConstraintList::check_constraints(CommandLineFlagConstraint::ConstraintType type) {

  guarantee(type > _validating_type, "Constraint check is out of order.");

  _validating_type = type;

  bool status = true;

  for (int i=0; i<length(); i++) {

    CommandLineFlagConstraint* constraint = at(i);

    if (type != constraint->type()) continue;

    if (constraint->apply(true) != Flag::SUCCESS) status = false;

  }

  return status;

}