C++ wrap

[Hans Aberg]

I have written a bit on a C++ wrap - has this been done? I use  
templates to get a static typed style similar to that of Haskell,  
which can be overridden at need. Some example code below.

  Hans


----
#include "src/guile.hh"

#include <iostream>
#include <list>
#include <utility>


int inner_main(std::pair<int, char**>* argp) {
  for (int i = 0; i < argp->first; ++i)
    std::cout << argp->second[i] << std::endl;

  using namespace scm;

  integer x = 2567575364397498ull;
  integer y = (uint64_t)2567575364397500ull;

  out << "-x = " << -x << "\ny = " << y << newline;

  // Checking object references and mutative operations:
  object w = x;
  ++x;
  out << "w = " << w << newline;
  out << "x = " << x << newline;

  function2<integer, integer, integer> f("-");
  // Using C++ output:
  std::cout << "f(x, y) = " << (char*)string(f(x, y), 10) << std::endl;

  // Loading a module, and using a function in it:

  object("(use-modules (ice-9 pretty-print))");
  function<> pretty("pretty-print");

  const char* text =
  "'(define (foo) (lambda (x) \
  (cond ((zero? x) #t) ((negative? x) -x) (else \
  (if (= x 1) 2 (* x x x))))))";

  out << "Function:\n";
  pretty(object(text));

  list<> ks(std::list<integer>(5, 6));
  out << "std::list<integer>(5, 6) = " << ks << newline << flush;

  function1<number, number> inc("(lambda (x) (+ x 1))");
  out << "inc(integer(3)) = " << inc(integer(3)) << newline;

  return EXIT_SUCCESS;
}


int main(int argc, char **argv) {
  std::pair<int, char**> arg(argc, argv);
  return scm::with_guile<std::pair<int, char**>*, int>(inner_main) 
(&arg);
}
----
$ g++ test.cc -lguile -o test && ./test
./test

-x = -2567575364397498
y = 2567575364397500
f(x, y) = -2
Function:
(define (foo)
  (lambda (x)
    (cond ((zero? x) #t)
          ((negative? x) -x)
          (else (if (= x 1) 2 (* x x x))))))
std::list<integer>(5, 6) = (6 6 6 6 6)
inc(integer(3)) = 4
----