////////////////////////////////////////////////////////////////////////
//
// Copyright (C) 2012-2021 The Octave Project Developers
//
// See the file COPYRIGHT.md in the top-level directory of this
// distribution or <https://octave.org/copyright/>.
//
// This file is part of Octave.
//
// Octave is free software: you can redistribute it and/or modify it
// under the terms of the GNU General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// Octave 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 for more details.
//
// You should have received a copy of the GNU General Public License
// along with Octave; see the file COPYING.  If not, see
// <https://www.gnu.org/licenses/>.
//
////////////////////////////////////////////////////////////////////////

#if defined (HAVE_CONFIG_H)
#  include "config.h"
#endif

#include "cdef-manager.h"
#include "cdef-utils.h"
#include "interpreter.h"
#include "ov-classdef.h"

namespace octave
{
  static octave_value
  make_fcn_handle (octave_builtin::fcn ff, const std::string& nm)
  {
    octave_value fcn (new octave_builtin (ff, nm));

    return octave_value (new octave_fcn_handle (fcn));
  }

  static octave_value_list
  class_get_properties (const octave_value_list& args, int /* nargout */)
  {
    octave_value_list retval;

    if (args.length () == 1 && args(0).type_name () == "object")
      {
        cdef_class cls (to_cdef (args(0)));

        retval(0) = cls.get_properties ();
      }

    return retval;
  }

  static octave_value_list
  class_get_methods (const octave_value_list& args, int /* nargout */)
  {
    octave_value_list retval;

    if (args.length () == 1 && args(0).type_name () == "object")
      {
        cdef_class cls (to_cdef (args(0)));

        retval(0) = cls.get_methods ();
      }

    return retval;
  }

  static octave_value_list
  class_get_superclasses (const octave_value_list& args, int /* nargout */)
  {
    octave_value_list retval;

    if (args.length () == 1 && args(0).type_name () == "object"
        && args(0).class_name () == "meta.class")
      {
        cdef_class cls (to_cdef (args(0)));

        Cell classes = cls.get ("SuperClasses").cell_value ();

        retval(0) = to_ov (lookup_classes (classes));
      }

    return retval;
  }

  static octave_value_list
  class_get_inferiorclasses (const octave_value_list& args, int /* nargout */)
  {
    octave_value_list retval;

    if (args.length () == 1 && args(0).type_name () == "object"
        && args(0).class_name () == "meta.class")
      {
        cdef_class cls (to_cdef (args(0)));

        Cell classes = cls.get ("InferiorClasses").cell_value ();

        retval(0) = to_ov (lookup_classes (classes));
      }

    return retval;
  }

  static octave_value_list
  class_fromName (const octave_value_list& args, int /* nargout */)
  {
    octave_value_list retval;

    if (args.length () != 1)
      error ("fromName: invalid number of parameters");

    std::string name = args(0).xstring_value ("fromName: CLASS_NAME must be a string");

    retval(0) = to_ov (lookup_class (name, false));

    return retval;
  }

  static octave_value_list
  class_fevalStatic (const octave_value_list& args, int nargout)
  {
    if (args.length () <= 1 || args(0).type_name () != "object")
      error ("fevalStatic: first argument must be a meta.class object");

    cdef_class cls (to_cdef (args(0)));

    std::string meth_name = args(1).xstring_value ("fevalStatic: method name must be a string");

    cdef_method meth = cls.find_method (meth_name);

    if (! meth.ok ())
      error ("fevalStatic: method not found: %s", meth_name.c_str ());

    if (! meth.is_static ())
      error ("fevalStatic: method '%s' is not static", meth_name.c_str ());

    return meth.execute (args.splice (0, 2), nargout, true, "fevalStatic");
  }

  static octave_value_list
  class_getConstant (const octave_value_list& args, int /* nargout */)
  {
    octave_value_list retval;

    if (args.length () != 2 || args(0).type_name () != "object"
        || args(0).class_name () != "meta.class")
      error ("getConstant: first argument must be a meta.class object");

    cdef_class cls = to_cdef (args(0));

    std::string prop_name = args(1).xstring_value ("getConstant: property name must be a string");

    cdef_property prop = cls.find_property (prop_name);

    if (! prop.ok ())
      error ("getConstant: property not found: %s",
             prop_name.c_str ());

    if (! prop.is_constant ())
      error ("getConstant: property '%s' is not constant",
             prop_name.c_str ());

    retval(0) = prop.get_value (true, "getConstant");

    return retval;
  }

#define META_CLASS_CMP(OP, CLSA, CLSB, FUN)                             \
  static octave_value_list                                              \
  class_ ## OP (const octave_value_list& args, int /* nargout */)       \
  {                                                                     \
    octave_value_list retval;                                           \
                                                                        \
    if (args.length () != 2                                             \
        || args(0).type_name () != "object"                             \
        || args(1).type_name () != "object"                             \
        || args(0).class_name () != "meta.class"                        \
        || args(1).class_name () != "meta.class")                       \
      error (#OP ": invalid arguments");                                \
                                                                        \
    cdef_class clsa = to_cdef (args(0));                                \
                                                                        \
    cdef_class clsb = to_cdef (args(1));                                \
                                                                        \
    retval(0) = FUN (CLSA, CLSB);                                       \
                                                                        \
    return retval;                                                      \
  }

  META_CLASS_CMP (lt, clsb, clsa, is_strict_superclass)
  META_CLASS_CMP (le, clsb, clsa, is_superclass)
  META_CLASS_CMP (gt, clsa, clsb, is_strict_superclass)
  META_CLASS_CMP (ge, clsa, clsb, is_superclass)
  META_CLASS_CMP (eq, clsa, clsb, operator==)
  META_CLASS_CMP (ne, clsa, clsb, operator!=)

  static octave_value_list
  property_get_defaultvalue (const octave_value_list& args, int /* nargout */)
  {
    octave_value_list retval;

    if (args.length () == 1 && args(0).type_name () == "object")
      {
        cdef_property prop (to_cdef (args(0)));

        retval(0) = prop.get ("DefaultValue");

        if (! retval(0).is_defined ())
          error_with_id ("Octave:class:NoDefaultDefined",
                         "no default value for property '%s'",
                         prop.get_name ().c_str ());
      }

    return retval;
  }

  static octave_value_list
  handle_delete (const octave_value_list& /* args */, int /* nargout */)
  {
    octave_value_list retval;

    // FIXME: implement this.  Wait, what is this supposed to do?

    return retval;
  }

  static octave_value_list
  package_get_classes (const octave_value_list& args, int /* nargout */)
  {
    octave_value_list retval (1, Matrix ());

    if (args.length () == 1 && args(0).type_name () == "object"
        && args(0).class_name () == "meta.package")
      {
        cdef_package pack (to_cdef (args(0)));

        retval(0) = pack.get_classes ();
      }

    return retval;
  }

  static octave_value_list
  package_get_functions (const octave_value_list& args, int /* nargout */)
  {
    octave_value_list retval (1, Matrix ());

    if (args.length () == 0 && args(0).type_name () == "object"
        && args(0).class_name () == "meta.package")
      {
        cdef_package pack (to_cdef (args(0)));

        retval(0) = pack.get_functions ();
      }

    return retval;
  }

  static octave_value_list
  package_get_packages (const octave_value_list& args, int /* nargout */)
  {
    octave_value_list retval (1, Matrix ());

    if (args.length () == 0 && args(0).type_name () == "object"
        && args(0).class_name () == "meta.package")
      {
        cdef_package pack (to_cdef (args(0)));

        retval(0) = pack.get_packages ();
      }

    return retval;
  }

  static octave_value_list
  package_getAllPackages (interpreter& interp,
                          const octave_value_list& /* args */, int /* nargout */)
  {
    std::map<std::string, cdef_package> toplevel_packages;

    load_path& lp = interp.get_load_path ();

    std::list<std::string> names = lp.get_all_package_names ();

    cdef_manager& cdm = interp.get_cdef_manager ();

    toplevel_packages["meta"] = cdm.find_package ("meta", false, false);

    for (const auto& nm : names)
      toplevel_packages[nm] = cdm.find_package (nm, false, true);

    Cell c (toplevel_packages.size (), 1);

    int i = 0;

    for (const auto& nm_pkg : toplevel_packages)
      c(i++,0) = to_ov (nm_pkg.second);

    return octave_value_list (octave_value (c));
  }

  static octave_value_list
  package_fromName (const octave_value_list& args, int /* nargout */)
  {
    octave_value_list retval;

    if (args.length () != 1)
      error ("fromName: invalid number of parameters");

    std::string name = args(0).xstring_value ("fromName: PACKAGE_NAME must be a string");

    retval(0) = to_ov (lookup_package (name, false));

    return retval;
  }

  cdef_manager::cdef_manager (interpreter& interp)
    : m_interpreter (interp), m_all_classes (), m_all_packages (),
      m_meta_class (), m_meta_property (), m_meta_method (),
      m_meta_package (), m_meta ()
  {
    type_info& ti = m_interpreter.get_type_info ();

    octave_classdef::register_type (ti);

    // bootstrap
    cdef_class tmp_handle = make_class ("handle");

    m_meta_class = make_meta_class ("meta.class", tmp_handle);

    tmp_handle.set_class (m_meta_class);
    m_meta_class.set_class (m_meta_class);

    // meta classes
    m_meta_property = make_meta_class ("meta.property", tmp_handle);

    m_meta_method = make_meta_class ("meta.method", tmp_handle);

    m_meta_package = make_meta_class ("meta.package", tmp_handle);

    cdef_class tmp_meta_event
      = make_meta_class ("meta.event", tmp_handle);

    cdef_class tmp_meta_dynproperty
      = make_meta_class ("meta.dynamicproperty", tmp_handle);

    // meta.class properties
    m_meta_class.install_property
      (make_attribute (m_meta_class, "Abstract"));

    m_meta_class.install_property
      (make_attribute (m_meta_class, "ConstructOnLoad"));

    m_meta_class.install_property
      (make_property (m_meta_class, "ContainingPackage"));

    m_meta_class.install_property
      (make_property (m_meta_class, "Description"));

    m_meta_class.install_property
      (make_property (m_meta_class, "DetailedDescription"));

    m_meta_class.install_property
      (make_property (m_meta_class, "Events"));

    m_meta_class.install_property
      (make_attribute (m_meta_class, "HandleCompatible"));

    m_meta_class.install_property
      (make_attribute (m_meta_class, "Hidden"));

    m_meta_class.install_property
      (make_property (m_meta_class, "InferiorClasses",
                      make_fcn_handle (class_get_inferiorclasses,
                                       "meta.class>get.InferiorClasses"),
                      "public", Matrix (), "private"));

    m_meta_class.install_property
      (make_property (m_meta_class, "Methods",
                      make_fcn_handle (class_get_methods,
                                       "meta.class>get.Methods"),
                      "public", Matrix (), "private"));

    m_meta_class.install_property
      (make_property (m_meta_class, "MethodList",
                      make_fcn_handle (class_get_methods,
                                       "meta.class>get.MethodList"),
                      "public", Matrix (), "private"));

    m_meta_class.install_property (make_attribute (m_meta_class, "Name"));

    m_meta_class.install_property
      (make_property (m_meta_class, "Properties",
                      make_fcn_handle (class_get_properties,
                                       "meta.class>get.Properties"),
                      "public", Matrix (), "private"));

    m_meta_class.install_property
      (make_property (m_meta_class, "PropertyList",
                      make_fcn_handle (class_get_properties,
                                       "meta.class>get.PropertyList"),
                      "public", Matrix (), "private"));

    m_meta_class.install_property (make_attribute (m_meta_class, "Sealed"));

    m_meta_class.install_property
      (make_property (m_meta_class, "SuperClasses",
                      make_fcn_handle (class_get_superclasses,
                                       "meta.class>get.SuperClasses"),
                      "public", Matrix (), "private"));

    m_meta_class.install_property
      (make_property (m_meta_class, "SuperclassList",
                      make_fcn_handle (class_get_superclasses,
                                       "meta.class>get.SuperclassList"),
                      "public", Matrix (), "private"));

    // FIXME: Matlab supports this property under "SuperclassList".
    //        Octave, however, has supported this under "SuperClassList".
    //        Alias the property.  Remove in Octave version 8.1.
    m_meta_class.install_property
      (make_property (m_meta_class, "SuperClassList",
                      make_fcn_handle (class_get_superclasses,
                                       "meta.class>get.SuperclassList"),
                      "public", Matrix (), "private"));

    // meta.class methods
    m_meta_class.install_method
      (make_method (m_meta_class, "fromName", class_fromName, "public", true));

    m_meta_class.install_method
      (make_method (m_meta_class, "fevalStatic", class_fevalStatic, "public",
                    false));

    m_meta_class.install_method
      (make_method (m_meta_class, "getConstant", class_getConstant, "public",
                    false));

    m_meta_class.install_method (make_method (m_meta_class, "eq", class_eq));
    m_meta_class.install_method (make_method (m_meta_class, "ne", class_ne));
    m_meta_class.install_method (make_method (m_meta_class, "lt", class_lt));
    m_meta_class.install_method (make_method (m_meta_class, "le", class_le));
    m_meta_class.install_method (make_method (m_meta_class, "gt", class_gt));
    m_meta_class.install_method (make_method (m_meta_class, "ge", class_ge));

    // meta.method properties
    m_meta_method.install_property
      (make_attribute (m_meta_method, "Abstract"));

    m_meta_method.install_property
      (make_attribute (m_meta_method, "Access"));

    m_meta_method.install_property
      (make_attribute (m_meta_method, "DefiningClass"));

    m_meta_method.install_property
      (make_attribute (m_meta_method, "Description"));

    m_meta_method.install_property
      (make_attribute (m_meta_method, "DetailedDescription"));

    m_meta_method.install_property
      (make_attribute (m_meta_method, "Hidden"));

    m_meta_method.install_property
      (make_attribute (m_meta_method, "Name"));

    m_meta_method.install_property
      (make_attribute (m_meta_method, "Sealed"));

    m_meta_method.install_property
      (make_attribute (m_meta_method, "Static"));

    // meta.property properties
    m_meta_property.install_property
      (make_attribute (m_meta_property, "Name"));

    m_meta_property.install_property
      (make_attribute (m_meta_property, "Description"));

    m_meta_property.install_property
      (make_attribute (m_meta_property, "DetailedDescription"));

    m_meta_property.install_property
      (make_attribute (m_meta_property, "Abstract"));

    m_meta_property.install_property
      (make_attribute (m_meta_property, "Constant"));

    m_meta_property.install_property
      (make_attribute (m_meta_property, "GetAccess"));

    m_meta_property.install_property
      (make_attribute (m_meta_property, "SetAccess"));

    m_meta_property.install_property
      (make_attribute (m_meta_property, "Dependent"));

    m_meta_property.install_property
      (make_attribute (m_meta_property, "Transient"));

    m_meta_property.install_property
      (make_attribute (m_meta_property, "Hidden"));

    m_meta_property.install_property
      (make_attribute (m_meta_property, "GetObservable"));

    m_meta_property.install_property
      (make_attribute (m_meta_property, "SetObservable"));

    m_meta_property.install_property
      (make_attribute (m_meta_property, "GetMethod"));

    m_meta_property.install_property
      (make_attribute (m_meta_property, "SetMethod"));

    m_meta_property.install_property
      (make_attribute (m_meta_property, "DefiningClass"));

    m_meta_property.install_property
      (make_property (m_meta_property, "DefaultValue",
                      make_fcn_handle (property_get_defaultvalue,
                                       "meta.property>get.DefaultValue"),
                      "public", Matrix (), "private"));

    m_meta_property.install_property
      (make_attribute (m_meta_property, "HasDefault"));

    // meta.property events
    // FIXME: add events

    // handle methods

    tmp_handle.install_method
      (make_method (tmp_handle, "delete", handle_delete));

    // meta.package properties

    m_meta_package.install_property
      (make_attribute (m_meta_package, "Name"));

    m_meta_package.install_property
      (make_property (m_meta_package, "ContainingPackage"));

    m_meta_package.install_property
      (make_property (m_meta_package, "ClassList",
                      make_fcn_handle (package_get_classes,
                                       "meta.package>get.ClassList"),
                      "public", Matrix (), "private"));

    m_meta_package.install_property
      (make_property (m_meta_package, "Classes",
                      make_fcn_handle (package_get_classes,
                                       "meta.package>get.Classes"),
                      "public", Matrix (), "private"));

    m_meta_package.install_property
      (make_property (m_meta_package, "FunctionList",
                      make_fcn_handle (package_get_functions,
                                       "meta.package>get.FunctionList"),
                      "public", Matrix (), "private"));

    m_meta_package.install_property
      (make_property (m_meta_package, "Functions",
                      make_fcn_handle (package_get_functions,
                                       "meta.package>get.Functions"),
                      "public", Matrix (), "private"));

    m_meta_package.install_property
      (make_property (m_meta_package, "PackageList",
                      make_fcn_handle (package_get_packages,
                                       "meta.package>get.PackageList"),
                      "public", Matrix (), "private"));

    m_meta_package.install_property
      (make_property (m_meta_package, "Packages",
                      make_fcn_handle (package_get_packages,
                                       "meta.package>get.Packages"),
                      "public", Matrix (), "private"));

    m_meta_package.install_method
      (make_method (m_meta_package, "fromName", package_fromName,
                    "public", true));

    m_meta_package.install_method
      (make_method (m_meta_package, "getAllPackages", package_getAllPackages,
                    "public", true));

    // create "meta" package
    cdef_package package_meta
      = m_meta
      = make_package ("meta");

    package_meta.install_class (m_meta_class, "class");
    package_meta.install_class (m_meta_property, "property");
    package_meta.install_class (m_meta_method, "method");
    package_meta.install_class (m_meta_package, "package");
    package_meta.install_class (tmp_meta_event, "event");
    package_meta.install_class (tmp_meta_dynproperty, "dynproperty");

    symbol_table& symtab = m_interpreter.get_symbol_table ();

    // install built-in classes into the symbol table
    symtab.install_built_in_function
      ("meta.class", m_meta_class.get_constructor_function ());

    symtab.install_built_in_function
      ("meta.method", m_meta_method.get_constructor_function ());

    symtab.install_built_in_function
      ("meta.property", m_meta_property.get_constructor_function ());

    symtab.install_built_in_function
      ("meta.package", m_meta_package.get_constructor_function ());

    // FIXME: meta.event and meta.dynproperty are not implemented
    //        and should not be installed into symbol table.

    //  symtab.install_built_in_function
    //    ("meta.event", tmp_meta_event.get_constructor_function ());

    //  symtab.install_built_in_function
    //    ("meta.dynproperty", tmp_meta_dynproperty.get_constructor_function ());
  }

  cdef_class
  cdef_manager::find_class (const std::string& name, bool error_if_not_found,
                            bool load_if_not_found)
  {
    auto it = m_all_classes.find (name);

    if (it == m_all_classes.end ())
      {
        if (load_if_not_found)
          {
            octave_value ov_cls;

            std::size_t pos = name.rfind ('.');

            if (pos == std::string::npos)
              ov_cls = m_interpreter.find (name);
            else
              {
                std::string pack_name = name.substr (0, pos);

                cdef_package pack = find_package (pack_name, false, true);

                if (pack.ok ())
                  ov_cls = pack.find (name.substr (pos+1));
              }

            if (ov_cls.is_defined ())
              it = m_all_classes.find (name);
          }
      }

    if (it == m_all_classes.end ())
      {
        if (error_if_not_found)
          error ("class not found: %s", name.c_str ());
      }
    else
      {
        cdef_class cls = it->second;

        if (! cls.is_builtin ())
          cls = lookup_class (cls);

        if (cls.ok ())
          return cls;
        else
          m_all_classes.erase (it);
      }

    return cdef_class ();
  }

  octave_value
  cdef_manager::find_method_symbol (const std::string& method_name,
                                    const std::string& class_name)
  {
    cdef_class cls = find_class (class_name, false, false);

    if (cls.ok ())
      {
        cdef_method meth = cls.find_method (method_name);

        if (meth.ok ())
          return octave_value (new octave_classdef_meta (meth));
      }

    return octave_value ();
  }

  cdef_package
  cdef_manager::find_package (const std::string& name, bool error_if_not_found,
                              bool load_if_not_found)
  {
    cdef_package retval;

    std::map<std::string, cdef_package>::const_iterator it
      = m_all_packages.find (name);

    if (it != m_all_packages.end ())
      {
        retval = it->second;

        if (! retval.ok ())
          error ("invalid package '%s'", name.c_str ());
      }
    else
      {
        load_path& lp = m_interpreter.get_load_path ();

        if (load_if_not_found && lp.find_package (name))
          {
            std::size_t pos = name.rfind ('.');

            if (pos == std::string::npos)
              retval = make_package (name, "");
            else
              {
                std::string parent_name = name.substr (0, pos);

                retval = make_package (name, parent_name);
              }
          }
        else if (error_if_not_found)
          error ("unknown package '%s'", name.c_str ());
      }

    return retval;
  }

  octave_value
  cdef_manager::find_package_symbol (const std::string& pack_name)
  {
    cdef_package pack = find_package (pack_name, false);

    if (pack.ok ())
      return octave_value (new octave_classdef_meta (pack));

    return octave_value ();
  }

  cdef_class
  cdef_manager::make_class (const std::string& name,
                            const std::list<cdef_class>& super_list)
  {
    cdef_class cls (name, super_list);

    cls.set_class (meta_class ());

    cls.put ("Abstract", false);
    cls.put ("ConstructOnLoad", false);
    cls.put ("ContainingPackage", Matrix ());
    cls.put ("Description", "");
    cls.put ("DetailedDescription", "");
    cls.put ("Events", Cell ());
    cls.put ("Hidden", false);
    cls.put ("InferiorClasses", Cell ());
    cls.put ("Methods", Cell ());
    cls.put ("Properties", Cell ());
    cls.put ("Sealed", false);

    if (name == "handle")
      {
        cls.put ("HandleCompatible", true);
        cls.mark_as_handle_class ();
      }
    else if (super_list.empty ())
      {
        cls.put ("HandleCompatible", false);
      }
    else
      {
        bool all_handle_compatible = true;
        bool has_handle_class = false;

        for (const auto& cl : super_list)
          {
            all_handle_compatible = all_handle_compatible
              && cl.get ("HandleCompatible").bool_value ();

            has_handle_class = has_handle_class || cl.is_handle_class ();
          }

        if (has_handle_class && ! all_handle_compatible)
          error ("%s: cannot mix handle and non-HandleCompatible classes",
                 name.c_str ());

        cls.put ("HandleCompatible", all_handle_compatible);
        if (has_handle_class)
          cls.mark_as_handle_class ();
      }

    if (! name.empty ())
      register_class (cls);

    return cls;
  }

  cdef_class
  cdef_manager::make_class (const std::string& name,
                            const cdef_class& super)
  {
    return make_class (name, std::list<cdef_class> (1, super));
  }

  cdef_class
  cdef_manager::make_meta_class (const std::string& name,
                                 const cdef_class& super)
  {
    cdef_class cls = make_class (name, super);

    cls.put ("Sealed", true);
    cls.mark_as_meta_class ();

    return cls;
  }

  cdef_property
  cdef_manager::make_property (const cdef_class& cls, const std::string& name,
                               const octave_value& get_method,
                               const std::string& get_access,
                               const octave_value& set_method,
                               const std::string& set_access)
  {
    cdef_property prop (name);

    prop.set_class (meta_property ());

    prop.put ("Description", "");
    prop.put ("DetailedDescription", "");
    prop.put ("Abstract", false);
    prop.put ("Constant", false);
    prop.put ("GetAccess", get_access);
    prop.put ("SetAccess", set_access);
    prop.put ("Dependent", false);
    prop.put ("Transient", false);
    prop.put ("Hidden", false);
    prop.put ("GetObservable", false);
    prop.put ("SetObservable", false);
    prop.put ("GetMethod", get_method);
    prop.put ("SetMethod", set_method);
    prop.put ("DefiningClass", to_ov (cls));
    prop.put ("DefaultValue", octave_value ());
    prop.put ("HasDefault", false);

    std::string class_name = cls.get_name ();

    if (! get_method.isempty ())
      make_function_of_class (class_name, get_method);
    if (! set_method.isempty ())
      make_function_of_class (class_name, set_method);

    return prop;
  }

  cdef_property
  cdef_manager::make_attribute (const cdef_class& cls, const std::string& name)
  {
    return make_property (cls, name, Matrix (), "public", Matrix (), "private");
  }

  cdef_method
  cdef_manager::make_method (const cdef_class& cls, const std::string& name,
                             const octave_value& fcn,
                             const std::string& m_access, bool is_static)
  {
    cdef_method meth (name);

    meth.set_class (meta_method ());

    meth.put ("Abstract", false);
    meth.put ("Access", m_access);
    meth.put ("DefiningClass", to_ov (cls));
    meth.put ("Description", "");
    meth.put ("DetailedDescription", "");
    meth.put ("Hidden", false);
    meth.put ("Sealed", true);
    meth.put ("Static", is_static);

    if (fcn.is_defined ())
      make_function_of_class (cls, fcn);

    meth.set_function (fcn);

    if (is_dummy_method (fcn))
      meth.mark_as_external (cls.get_name ());

    return meth;
  }

  cdef_method
  cdef_manager::make_method (const cdef_class& cls, const std::string& name,
                             octave_builtin::fcn ff,
                             const std::string& m_access, bool is_static)
  {
    octave_value fcn (new octave_builtin (ff, name));

    return make_method (cls, name, fcn, m_access, is_static);
  }

  cdef_method
  cdef_manager::make_method (const cdef_class& cls, const std::string& name,
                             octave_builtin::meth mm,
                             const std::string& m_access, bool is_static)
  {
    octave_value fcn (new octave_builtin (mm, name));

    return make_method (cls, name, fcn, m_access, is_static);
  }

  cdef_package
  cdef_manager::make_package (const std::string& nm, const std::string& parent)
  {
    cdef_package pack (nm);

    pack.set_class (meta_package ());

    if (parent.empty ())
      pack.put ("ContainingPackage", Matrix ());
    else
      pack.put ("ContainingPackage", to_ov (find_package (parent)));

    if (! nm.empty ())
      register_package (pack);

    return pack;
  }

  octave_value
  cdef_manager::find_method (const std::string& class_name,
                             const std::string& name) const
  {
    cdef_class cls = lookup_class (class_name);

    return cls.get_method (name);
  }
}
