(use easyffi tinyclos)

(foreign-parse/declare #<<EOF

class Foo {
  char *name_;
public:
  Foo(char *name) { name_ = name; }
  ~Foo() {}
  char *name() { return name_; }
  Foo *bar(Foo *x) { return x; }
};

EOF
)

(define-method (print-object (x <Foo>) out)
  (fprintf out "#<Foo ~a>" (name x)))

(define x (make <Foo> "foo1"))
(pp x)
(pp (bar x (make <Foo> "foo2")))
(destroy x)