C++ wrap

[Hans Aberg <haberg@math.su.se>]

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
----