rice2 2.2.0

data/missing

@@ -0,0 +1,215 @@
+#! /bin/sh
+# Common wrapper for a few potentially missing GNU programs.
+
+scriptversion=2018-03-07.03; # UTC
+
+# Copyright (C) 1996-2020 Free Software Foundation, Inc.
+# Originally written by Fran,cois Pinard <pinard@iro.umontreal.ca>, 1996.
+
+# This program 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 2, or (at your option)
+# any later version.
+
+# This program 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 this program.  If not, see <https://www.gnu.org/licenses/>.
+
+# As a special exception to the GNU General Public License, if you
+# distribute this file as part of a program that contains a
+# configuration script generated by Autoconf, you may include it under
+# the same distribution terms that you use for the rest of that program.
+
+if test $# -eq 0; then
+  echo 1>&2 "Try '$0 --help' for more information"
+  exit 1
+fi
+
+case $1 in
+
+  --is-lightweight)
+    # Used by our autoconf macros to check whether the available missing
+    # script is modern enough.
+    exit 0
+    ;;
+
+  --run)
+    # Back-compat with the calling convention used by older automake.
+    shift
+    ;;
+
+  -h|--h|--he|--hel|--help)
+    echo "\
+$0 [OPTION]... PROGRAM [ARGUMENT]...
+
+Run 'PROGRAM [ARGUMENT]...', returning a proper advice when this fails due
+to PROGRAM being missing or too old.
+
+Options:
+  -h, --help      display this help and exit
+  -v, --version   output version information and exit
+
+Supported PROGRAM values:
+  aclocal   autoconf  autoheader   autom4te  automake  makeinfo
+  bison     yacc      flex         lex       help2man
+
+Version suffixes to PROGRAM as well as the prefixes 'gnu-', 'gnu', and
+'g' are ignored when checking the name.
+
+Send bug reports to <bug-automake@gnu.org>."
+    exit $?
+    ;;
+
+  -v|--v|--ve|--ver|--vers|--versi|--versio|--version)
+    echo "missing $scriptversion (GNU Automake)"
+    exit $?
+    ;;
+
+  -*)
+    echo 1>&2 "$0: unknown '$1' option"
+    echo 1>&2 "Try '$0 --help' for more information"
+    exit 1
+    ;;
+
+esac
+
+# Run the given program, remember its exit status.
+"$@"; st=$?
+
+# If it succeeded, we are done.
+test $st -eq 0 && exit 0
+
+# Also exit now if we it failed (or wasn't found), and '--version' was
+# passed; such an option is passed most likely to detect whether the
+# program is present and works.
+case $2 in --version|--help) exit $st;; esac
+
+# Exit code 63 means version mismatch.  This often happens when the user
+# tries to use an ancient version of a tool on a file that requires a
+# minimum version.
+if test $st -eq 63; then
+  msg="probably too old"
+elif test $st -eq 127; then
+  # Program was missing.
+  msg="missing on your system"
+else
+  # Program was found and executed, but failed.  Give up.
+  exit $st
+fi
+
+perl_URL=https://www.perl.org/
+flex_URL=https://github.com/westes/flex
+gnu_software_URL=https://www.gnu.org/software
+
+program_details ()
+{
+  case $1 in
+    aclocal|automake)
+      echo "The '$1' program is part of the GNU Automake package:"
+      echo "<$gnu_software_URL/automake>"
+      echo "It also requires GNU Autoconf, GNU m4 and Perl in order to run:"
+      echo "<$gnu_software_URL/autoconf>"
+      echo "<$gnu_software_URL/m4/>"
+      echo "<$perl_URL>"
+      ;;
+    autoconf|autom4te|autoheader)
+      echo "The '$1' program is part of the GNU Autoconf package:"
+      echo "<$gnu_software_URL/autoconf/>"
+      echo "It also requires GNU m4 and Perl in order to run:"
+      echo "<$gnu_software_URL/m4/>"
+      echo "<$perl_URL>"
+      ;;
+  esac
+}
+
+give_advice ()
+{
+  # Normalize program name to check for.
+  normalized_program=`echo "$1" | sed '
+    s/^gnu-//; t
+    s/^gnu//; t
+    s/^g//; t'`
+
+  printf '%s\n' "'$1' is $msg."
+
+  configure_deps="'configure.ac' or m4 files included by 'configure.ac'"
+  case $normalized_program in
+    autoconf*)
+      echo "You should only need it if you modified 'configure.ac',"
+      echo "or m4 files included by it."
+      program_details 'autoconf'
+      ;;
+    autoheader*)
+      echo "You should only need it if you modified 'acconfig.h' or"
+      echo "$configure_deps."
+      program_details 'autoheader'
+      ;;
+    automake*)
+      echo "You should only need it if you modified 'Makefile.am' or"
+      echo "$configure_deps."
+      program_details 'automake'
+      ;;
+    aclocal*)
+      echo "You should only need it if you modified 'acinclude.m4' or"
+      echo "$configure_deps."
+      program_details 'aclocal'
+      ;;
+   autom4te*)
+      echo "You might have modified some maintainer files that require"
+      echo "the 'autom4te' program to be rebuilt."
+      program_details 'autom4te'
+      ;;
+    bison*|yacc*)
+      echo "You should only need it if you modified a '.y' file."
+      echo "You may want to install the GNU Bison package:"
+      echo "<$gnu_software_URL/bison/>"
+      ;;
+    lex*|flex*)
+      echo "You should only need it if you modified a '.l' file."
+      echo "You may want to install the Fast Lexical Analyzer package:"
+      echo "<$flex_URL>"
+      ;;
+    help2man*)
+      echo "You should only need it if you modified a dependency" \
+           "of a man page."
+      echo "You may want to install the GNU Help2man package:"
+      echo "<$gnu_software_URL/help2man/>"
+    ;;
+    makeinfo*)
+      echo "You should only need it if you modified a '.texi' file, or"
+      echo "any other file indirectly affecting the aspect of the manual."
+      echo "You might want to install the Texinfo package:"
+      echo "<$gnu_software_URL/texinfo/>"
+      echo "The spurious makeinfo call might also be the consequence of"
+      echo "using a buggy 'make' (AIX, DU, IRIX), in which case you might"
+      echo "want to install GNU make:"
+      echo "<$gnu_software_URL/make/>"
+      ;;
+    *)
+      echo "You might have modified some files without having the proper"
+      echo "tools for further handling them.  Check the 'README' file, it"
+      echo "often tells you about the needed prerequisites for installing"
+      echo "this package.  You may also peek at any GNU archive site, in"
+      echo "case some other package contains this missing '$1' program."
+      ;;
+  esac
+}
+
+give_advice "$1" | sed -e '1s/^/WARNING: /' \
+                       -e '2,$s/^/         /' >&2
+
+# Propagate the correct exit status (expected to be 127 for a program
+# not found, 63 for a program that failed due to version mismatch).
+exit $st
+
+# Local variables:
+# eval: (add-hook 'before-save-hook 'time-stamp)
+# time-stamp-start: "scriptversion="
+# time-stamp-format: "%:y-%02m-%02d.%02H"
+# time-stamp-time-zone: "UTC0"
+# time-stamp-end: "; # UTC"
+# End:

data/post-autoconf.rb

@@ -0,0 +1,22 @@
+require 'fileutils'
+require 'find'
+
+def process(file)
+  puts "Post-processing #{file}"
+  File.open(file) do |input|
+    File.open("#{file}.pp", "w") do |output|
+      input.each_line do |line|
+        yield output, line
+      end
+    end
+  end
+  FileUtils.mv("#{file}.pp", "#{file}")
+end
+
+process("configure") do |out, line|
+  # autoconf doesn't properly enclose $srcdir and $am_aux_dir in quotes
+  line.gsub!(/([^"'])(\$srcdir)/, '\1"\2"')
+  line.gsub!(/([^"'])(\$am_aux_dir)/, '\1\"\2\"')
+  out.puts line
+end
+FileUtils.chmod(0700, "configure")

data/post-automake.rb

@@ -0,0 +1,28 @@
+require 'fileutils'
+require 'find'
+
+def process(file)
+  puts "Post-processing #{file}"
+  File.open(file) do |input|
+    File.open("#{file}.pp", "w") do |output|
+      input.each_line do |line|
+        yield output, line
+      end
+    end
+  end
+  FileUtils.mv("#{file}.pp", "#{file}")
+end
+
+Find.find(".") do |file|
+  if file =~ /Makefile.in$/ then
+    process(file) do |out, line|
+      # automake doesn't properly enclose $distdir in quotes
+      if line !~ /echo / then
+        line.gsub!(/([^"'])(\$\(distdir\))/, '\1"\2"')
+      end
+      line.gsub!(/(\$\(MKDIR_P\).*`)/, 'eval \1')
+      out.puts line
+    end
+  end
+end
+

data/rice/Address_Registration_Guard.cpp

@@ -0,0 +1,22 @@
+#include "Address_Registration_Guard.hpp"
+
+bool Rice::Address_Registration_Guard::enabled = true;
+bool Rice::Address_Registration_Guard::exit_handler_registered = false;
+
+static void disable_all_guards(VALUE)
+{
+    Rice::Address_Registration_Guard::disable();
+}
+
+void Rice::Address_Registration_Guard::registerExitHandler()
+{
+    if (exit_handler_registered) return;
+    rb_set_end_proc(&disable_all_guards, Qnil);
+    exit_handler_registered = true;
+}
+
+void Rice::Address_Registration_Guard::disable()
+{
+    enabled = false;
+}
+

data/rice/Address_Registration_Guard.hpp

@@ -0,0 +1,7 @@
+#ifndef Rice__Address_Registration_Guard__hpp_
+#define Rice__Address_Registration_Guard__hpp_
+
+#include "Address_Registration_Guard_defn.hpp"
+#include "Address_Registration_Guard.ipp"
+
+#endif // Rice__Address_Registration_Guard__hpp_

data/rice/Address_Registration_Guard.ipp

@@ -0,0 +1,37 @@
+#include "Object.hpp"
+#include <algorithm>
+
+inline Rice::Address_Registration_Guard::
+Address_Registration_Guard(VALUE * address)
+  : address_(address)
+{
+  registerExitHandler();
+  rb_gc_register_address(address);
+}
+
+inline Rice::Address_Registration_Guard::
+Address_Registration_Guard(Object * object)
+  : address_(const_cast<VALUE *>(&object->value()))
+{
+  registerExitHandler();
+  rb_gc_register_address(address_);
+}
+
+inline Rice::Address_Registration_Guard::
+~Address_Registration_Guard()
+{
+  if (enabled)
+    rb_gc_unregister_address(address_);
+}
+
+inline VALUE * Rice::Address_Registration_Guard::
+address() const
+{
+  return address_;
+}
+
+inline void Rice::Address_Registration_Guard::
+swap(Rice::Address_Registration_Guard & other)
+{
+  std::swap(address_, other.address_);
+}

data/rice/Address_Registration_Guard_defn.hpp

@@ -0,0 +1,75 @@
+#ifndef Rice__Address_Registration_Guard_defn__hpp_
+#define Rice__Address_Registration_Guard_defn__hpp_
+
+#include "Object_defn.hpp"
+#include "detail/ruby.hpp"
+#include "detail/Not_Copyable.hpp"
+
+namespace Rice
+{
+
+//! A guard to register a given address with the GC.
+/*! Calls rb_gc_register_address upon construction and
+ *  rb_gc_unregister_address upon destruction.
+ *  For example:
+ *  \code
+ *    Class Foo
+ *    {
+ *    public:
+ *      Foo()
+ *        : string_(rb_str_new2())
+ *        , guard_(&string_);
+ * 
+ *    private:
+ *      VALUE string_;
+ *      Address_Registration_Guard guard_;
+ *    };
+ *  \endcode
+ */
+class Address_Registration_Guard
+  : private detail::Not_Copyable
+{
+public:
+  //! Register an address with the GC.
+  /*  \param address The address to register with the GC.  The address
+   *  must point to a valid ruby object (RObject).
+   */
+  Address_Registration_Guard(VALUE * address);
+
+  //! Register an Object with the GC.
+  /*! \param object The Object to register with the GC.  The object must
+   *  not be destroyed before the Address_Registration_Guard is
+   *  destroyed.
+   */
+  Address_Registration_Guard(Object * object);
+
+  //! Unregister an address/Object with the GC.
+  /*! Destruct an Address_Registration_Guard.  The address registered
+   *  with the Address_Registration_Guard when it was constructed will
+   *  be unregistered from the GC.
+   */
+  ~Address_Registration_Guard();
+
+  //! Get the address that is registered with the GC.
+  VALUE * address() const;
+
+  //! Swap with another Address_Registration_Guard.
+  void swap(Address_Registration_Guard & other);
+
+  /** Called during Ruby's exit process since we should not call
+   * rb_gc unregister_address there
+   */
+  static void disable();
+
+private:
+  static bool enabled;
+  static bool exit_handler_registered;
+
+  static void registerExitHandler();
+
+  VALUE * address_;
+};
+
+} // namespace Rice
+
+#endif // Rice__Address_Registration_Guard_defn__hpp_

data/rice/Arg.hpp

@@ -0,0 +1,8 @@
+#ifndef Rice__Arg__hpp_
+#define Rice__Arg__hpp_
+
+#include "Arg_impl.hpp"
+#include "detail/Arguments.hpp"
+#include "Arg_operators.hpp"
+
+#endif // Rice__Arg__hpp_

data/rice/Arg_impl.hpp

@@ -0,0 +1,129 @@
+#ifndef Rice__Arg_Impl_hpp_
+#define Rice__Arg_Impl_hpp_
+
+namespace Rice {
+
+  //! Helper for defining default arguments of a method
+  /*! This class exposes the ability to define the default values of a
+   *  wrapped method. Inspired by how Boost.Python handles keyword and
+   *  default arguments, the syntax is simple:
+   *
+   *  \code
+   *    define_method(
+   *      "method",
+   *      &method,
+   *      (Arg("arg1"), Arg("arg2") = 3, Arg("arg3") = true)
+   *    );
+   *  \endcode
+   *
+   *  which means "for method &method, it takes 3 arguments
+   *  [arg1, arg2, arg3]. Of these arguments, arg2's default is 3
+   *  and arg3's default is true.
+   *
+   *  It may be required to explicitly cast the type of the default
+   *  value to prevent compilation errors.
+   */
+  class Arg
+  {
+    public:
+      //! Initialize a new Arg with the name of the argument
+      /*! We require the name of the argument because 1) it makes code
+       *  easier to read and 2) hopefully Ruby gets keyword arguments
+       *  in the future and this means Rice will be ready for it.
+       */
+      Arg(const char* name)
+        : name_(name)
+        , defaultValue(0)
+      {}
+
+      //! Copy Constructor
+      Arg(const Arg& other)
+        : name_(other.name()),
+          defaultValue(other.defaultValue ? other.defaultValue->clone() : 0)
+      {}
+
+      virtual ~Arg()
+      {
+        if(defaultValue) {
+          delete defaultValue;
+        }
+      }
+
+      //! Set the default value for this Arg
+      /*! Set the default value for this argument.
+       *  If this isn't called on this Arg, then this
+       *  Arg is required in the method call.
+       *
+       *  \param val the value to store as default
+       */
+      template<typename Arg_Type>
+      Arg& operator=(Arg_Type val)
+      {
+        defaultValue = new type<Arg_Type>(val);
+        return *this;
+      }
+
+      //! Check if this Arg has a default value associated with it
+      bool hasDefaultValue() const {
+        return defaultValue != 0;
+      }
+
+      //! Return the default value associated with this Arg
+      /*! \return the type saved to this Arg
+       */
+      template<typename Arg_Type>
+      Arg_Type getDefaultValue()
+      {
+        return static_cast< type<Arg_Type>* >(defaultValue)->held;
+      }
+
+      //! Get the name of this Arg
+      const char* name() const
+      {
+        return name_;
+      }
+
+    private:
+
+      //! Name of the argument
+      const char* name_;
+
+      /**
+       * The following is a stripped down version of
+       * Boost.Any.
+       */
+
+      class type_base
+      {
+        public:
+          virtual ~type_base() {}
+          virtual type_base* clone() const = 0;
+      };
+
+      template<typename Type>
+      class type : public type_base
+      {
+        public:
+          type(Type value)
+            :held(value)
+          {}
+
+          virtual ~type() { }
+
+          virtual type_base* clone() const
+          {
+            return new type(held);
+          }
+
+          Type held;
+      };
+
+    public:
+
+      //! Our saved default value
+      type_base* defaultValue;
+  };
+
+}
+
+#endif // Rice__Arg_Impl_hpp_