[Quest API] Use binding library for perl apis (#2216)

* Add perlbind library

* Convert perl apis to perlbind

libs/perlbind/src/package.cpp

@@ -0,0 +1,88 @@
+#include <perlbind/perlbind.h>
+
+namespace perlbind {
+
+namespace detail {
+  extern "C" void xsub(PerlInterpreter* my_perl, CV* cv);
+} // namespace detail
+
+void package::add_impl(const char* name, detail::function_base* function)
+{
+  std::string export_name = m_name + "::" + name;
+
+  // the sv is assigned a magic metamethod table to delete the function
+  // object when perl frees the sv
+  SV* sv = newSViv(PTR2IV(function));
+  sv_magicext(sv, nullptr, PERL_MAGIC_ext, &detail::function_base::mgvtbl, nullptr, 0);
+
+  CV* cv = get_cv(export_name.c_str(), 0);
+  if (!cv)
+  {
+    cv = newXS(export_name.c_str(), &detail::xsub, __FILE__);
+    CvXSUBANY(cv).any_ptr = function;
+  }
+  else // function exists, remove target to search overloads when called
+  {
+    CvXSUBANY(cv).any_ptr = nullptr;
+  }
+
+  // create an array with same name to store overloads in the CV's GV
+  AV* av = GvAV(CvGV(cv));
+  if (!av)
+  {
+    av = get_av(export_name.c_str(), GV_ADD);
+  }
+
+  array overloads = reinterpret_cast<AV*>(SvREFCNT_inc(av));
+  overloads.push_back(sv); // giving only ref to GV array
+}
+
+extern "C" void detail::xsub(PerlInterpreter* my_perl, CV* cv)
+{
+  // croak does not unwind so inner calls throw exceptions to prevent leaks
+  try
+  {
+    detail::xsub_stack stack(my_perl, cv);
+
+    auto target = static_cast<detail::function_base*>(CvXSUBANY(cv).any_ptr);
+    if (target)
+    {
+      return target->call(stack);
+    }
+
+    // find first compatible overload
+    AV* av = GvAV(CvGV(cv));
+
+    array functions = reinterpret_cast<AV*>(SvREFCNT_inc(av));
+    for (const auto& function : functions)
+    {
+      auto func = INT2PTR(detail::function_base*, SvIV(function.sv()));
+      if (func->is_compatible(stack))
+      {
+        return func->call(stack);
+      }
+    }
+
+    SV* err = newSVpvf("no overload of '%s' matched the %d argument(s):\n (%s)\ncandidates:\n ",
+                       stack.name().c_str(), stack.size(), stack.types().c_str());
+
+    for (const auto& function : functions)
+    {
+      auto func = INT2PTR(detail::function_base*, SvIV(function.sv()));
+      Perl_sv_catpvf(aTHX_ err, "%s\n ", func->get_signature().c_str());
+    }
+
+    err = sv_2mortal(err);
+    throw std::runtime_error(SvPV_nolen(err));
+  }
+  catch (std::exception& e)
+  {
+    Perl_croak(aTHX_ "%s", e.what());
+  }
+  catch (...)
+  {
+    Perl_croak(aTHX_ "unhandled exception");
+  }
+}
+
+} // namespace perlbind