Outdated egg!

This is an egg for CHICKEN 4, the unsupported old release. You're almost certainly looking for the CHICKEN 5 version of this egg, if it exists.

If it does not exist, there may be equivalent functionality provided by another egg; have a look at the egg index. Otherwise, please consider porting this egg to the current version of CHICKEN.

Outdated egg!
The "Easy" Foreign Function Interface
Authors
License
Version History

The "Easy" Foreign Function Interface

Note: see bind for a newer version of this extension that provides a simplified interface and better coops integration.

This extension provides a parser for a restricted subset of C and C++ that allows the easy generation of foreign variable declarations, procedure bindings and C++ class wrappers. The parser is invoked via the foreign-parse form, which extracts binding information and generates the necessary code. An example:

(foreign-declare "
#include <math.h>
")

(foreign-parse "extern double sin(double);")

(print (sin 3.14))

The parser would generate code that is equivalent to

(foreign-declare "
#include <math.h>
")

(define sin (foreign-lambda double "sin" double))

Note that the read syntax #>[SPEC] ... <# provides a somewhat simpler way of using the parser. The example above could alternatively be expressed as

#>!
extern double sin(double);
<#

(print (sin 3.14))

Another example, here using C++. Consider the following class:

// file: foo.h

class Foo {
 private:
  int x_;
 public:
  Foo(int x);
  void setX(int x);
  int getX();
};

To generate a wrapper class that provides generic functions for the constructor and the setX and getX methods, we can use the following class definition:

; file: test-foo.scm

(require-extension tinyclos)

#>!
#include "Foo.h"
<#

(define x (make <Foo> 99))
(print (getX x))              ; prints ''99''
(setX x 42)
(print (getX x))              ; prints ''42''
(destroy x)

Provided the file foo.o contains the implementation of the class Foo, the given example could be compiled like this (assuming a UNIX like environment):

% csc -X easyffi test-foo.scm foo.o -c++

To use the C++ interface, the tinyclos extension is needed.

Here is another example, a minimal Hello world application for QT. We can see the three different ways of embedding C/C++ code in Scheme:

; compile like this: 
; csc -X easyffi hello.scm -c++ -C -IQTDIR/include -L "-LQTDIR/lib -lqt"

(require-extension tinyclos)

; Include into generated code, but don't parse:
#>
#include <qapplication.h>
#include <qpushbutton.h>
<#

; Parse but don't embed: we only want wrappers for a few classes:
#>?
class QWidget 
{
public:
  void resize(int, int);
  void show();
};

class QApplication 
{
public:
  QApplication(int, char **);
  ~QApplication();
  void setMainWidget(QWidget *);
  void exec();
};

class QPushButton : public QWidget
{
public:
  QPushButton(char *, QWidget *);
  ~QPushButton();
}
<#

(define a (apply make <QApplication> (receive (argc+argv))))
(define hello (make <QPushButton> "hello world!" #f))
(resize hello 100 30)
(setMainWidget a hello)
(show hello)
(exec a)
(destroy hello)
(destroy a)

Usage

To use this facility, you can either run it in the interpreter and generate files with wrapper code and interact using an API, or you can load it as a compiler extension. To do the latter, pass -X easyffi to csc (or -extend easyffi to chicken). -R easyffi works also, but will not make the special read-syntax available.

This extension defines the easyffi module.

To see the expanded code generated during compilation, compile with -debug F.

A command-line tool named chicken-wrap is also available that translates C source or header files into Scheme code. Enter

 % chicken-wrap -help

for more information.

The API provides the following procedures:

parse-easy-ffi

[procedure] (parse-easy-ffi STRING)

Parses the C/C++ code in STRING and returns a list of top-level expressions representing compilable bindings to the defintions contained.

register-ffi-macro

[procedure] (register-ffi-macro STRING)

Defines a preprocessor macro named STRING for allowing conditional processing using #ifdef ... #endif.

check-c-syntax

[procedure] (check-c-syntax STRING)

Perform a superficial C/C++ syntax check and signal an error if any lexical or syntactic errors are detected.

foreign-parse

[syntax] (foreign-parse STRING ...)

Parse given strings and generate foreign-interface bindings.

foreign-parse/declare

[syntax] (foreign-parse/declare STRING ...)

Parse and include strings into the generated code.

foreign-include-path

[syntax] (foreign-include-path STRING ...)

Appends the paths given in STRING ... to the list of available include paths to be searched when an #include ... form is processed by foreign-parse.

#> ... <# Syntax

Occurrences of the special read syntax #>[SPEC ...] ...<# will be handled according to SPEC:

If SPEC is the ? character, the text following up to the next <# will be processed as a (declare (foreign-parse "...")) declaration (the code will be processed by the FFI parser described in this section).
If SPEC is the ! character, the text will be embedded as (foreign-parse/declare "..."). It will be both included verbatim in the declaration section of the generated C/C++ file and processed by the FFI parser.
If SPEC is the : character, the text will be so it will be executed at the location where it appears.
If SPEC is a list of the form (TAG ...), then each TAG (which should be a symbol) specifies what should be done with the text:

 declare   (foreign-declare "...")
 parse     (foreign-parse "...")
 execute   (foreign-code "...")

If any other character follows the #>, then the complete text will be included verbatim in the declaration part of the generated file (as in a foreign-declare form).

General operation

The parser will generally perform the following functions

Translate macro, enum-definitions and constants into define-foreign-variable or define-constant forms
Translate function prototypes into foreign-lambda forms
Translate variable declarations into accessor procedures
Handle basic preprocessor operations
Translate simple C++ class definitions into TinyCLOS wrapper classes and methods

Basic token-substitution of macros defined via #define is performed. The preprocessor commands #ifdef, #ifndef, #else, #endif, #undef and #error are handled. The preprocessor commands #if and #elif are not supported and will signal an error when encountered by the parser, because C expressions (even if constant) are not parsed. The preprocessor command #pragma is allowed but will be ignored.

During processing of foreign-parse declarations the macro CHICKEN is defined (similar to the C compiler option -DCHICKEN).

Macro- and type-definitions are available in subsequent foreign-parse declarations. C variables declared generate a procedure with zero or one argument with the same name as the variable. When called with no arguments, the procedure returns the current value of the variable. When called with an argument, then the variable is set to the value of that argument. C and C++ style comments are supported. Variables declared as const will generate normal Scheme variables, bound to the initial value of the variable.

Function-, member-function and constructor/destructor definitions may be preceded by the ___safe qualifier, which marks the function as (possibly) performing a callback into Scheme. If a wrapped function calls back into Scheme code, and ___safe has not been given very strange and hard to debug problems will occur.

Functions and member functions prefixed with ___discard and a result type that maps to a Scheme string (c-string), will have their result type changed to c-string* instead.

Constants (as declared by #define or enum) are not visible outside of the current Compilation units unless the export_constants pseudo declaration has been used. Only numeric or character constants are directly supported.

Function-arguments may be preceded by ___in, ___out and ___inout qualifiers to specify values that are passed by reference to a function, or returned by reference. Only basic types (booleans, numbers and characters) can be passed using this method. During the call a pointer to a temporary piece of storage containing the initial value (or a random value, for ___out parameters) will be allocated and passed to the wrapped function. This piece of storage is subject to garbage collection and will move, should a callback into Scheme occur that triggers a garbage collection. Multiple __out and ___inout parameters will be returned as multiple values, preceded by the normal return value of thhe function (if not void). Here is a simple example:

#>!
#ifndef CHICKEN
#include <math.h>
#endif

double modf(double x, ___out double *iptr);
<#

(let-values ([(frac int) (modf 33.44)])
  ...)

Function-arguments may be preceded by ___length(ID), where ID designates the name of another argument that must refer to a number vector or string argument. The value of the former argument will be computed at run-time and thus can be omitted:

#>!
(require-extension srfi-4)

double sumarray(double *arr, ___length(arr) int len)
{
  double sum = 0;

  while(len--) sum += *(arr++);

  return sum;
}
<#

(print (sumarray (f64vector 33 44 55.66)))

The length variable may be positioned anywhere in the argument list. Length markers may only be specified for arguments passed as SRFI-4 byte-vectors, byte-vectors (as provided by the lolevel library unit) or strings.

Structure and union definitions containing actual field declarations generate getter procedures (and SRFI-17 setters when declared ___mutable or the mutable_fields pseudo declaration has been used) The names of these procedures are computed by concatenating the struct (or union) name, a hyphen ("-") and the field name. Structure definitions with fields may not be used in positions where a type specifier is normally expected. The field accessors operate on struct/union pointers only. Additionally a zero-argument procedure named make-<structname> will be generated that allocates enough storage to hold an instance of the structure (or union). Prefixing the definition with ___abstract will omit the creation procedure.

#>!
struct My_struct { int x; ___mutable float y; };

typedef struct My_struct My_struct;

My_struct *make_struct(int x, float y) 
{
  My_struct *s = (My_struct *)malloc(sizeof(My_struct));
  s->x = x;
  s->y = y;
  return s;
}
<#

will generate the following definitions:

(make-My_struct) -> PTR
(My_struct-x PTR) -> INT
(My_struct-y PTR) -> FLOAT
(set! (My_struct-y PTR) FLOAT)
(make_struct INT FLOAT) -> PTR

Nested structs or unions are not supported (but pointers to nested structs/unions are).

All specially handled tokens preceded with ___ are defined as C macros in the headerfile chicken.h and will usually expand into nothing, so they don't invalidate the processed source code.

C++ namespace declarations of the form namespace NAME @{ ... @} recognized but will be completely ignored.

Keep in mind that this is not a fully general C/C++ parser. Taking an arbitrary headerfile and feeding it to CHICKEN will in most cases not work or generate riduculuous amounts of code. This FFI facility is for carefully written headerfiles, and for declarations directly embedded into Scheme code.

Pseudo declarations

Using the ___declare(DECL, VALUE) form, pseudo declarations can be embedded into processed C/C++ code to provide additional control over the wrapper generation. Pseudo declarations will be ignored when processed by the system's C/C++ compiler.

abstract [values: <string>]

Marks the C++ class given in <string> as being abstract, i.e. no constructor will be defined. Alternatively, a class definition may be prefixed with ___abstract.

class_finalizers [values: yes, no]

Automatically generates calls to set-finalizer! so that any unused references to instances of subsequently defined C++ class wrappers will be destroyed. This should be used with care: if the embedded C++ object which is represented by the reclaimed TinyCLOS instance is still in use in foreign code, then unpredictable things will happen.

mutable_fields [values: yes, no]

Specifies that all struct or union fields should generate setter procedures (the default is to generate only setter procedures for fields declared ___mutable).

destructor_name [values: <string>]

Specifies an alternative name for destructor methods (the default is destroy.

export_constants [values: yes (default), no]

Define a global variable for constant-declarations (as with #define or enum), making the constant available outside the current compilation unit. Use the values yes/1 for switching constant export on, or no/0 for switching it off.

exception_handler [values: <string>]

Defines C++ code to be executed when an exception is triggered inside a C++ class member function. The code should be one or more catch forms that perform any actions that should be taken in case an exception is thrown by the wrapped member function:

#>!
___declare(exception_handler, "catch(...) { return 0; }")

class Foo {
 public:
  Foo *bar(bool f) { if(f) throw 123; else return this; }
};
<#

(define f1 (make <Foo>))
(print (bar f1 #f))
(print (bar f1 #t))

will print <Foo> and #f, respectively.

full_specialization [values: yes, no]

Enables full specialization mode. In this mode all wrappers for functions, member functions and static member functions are created as fully specialized TinyCLOS methods. This can be used to handle overloaded C++ functions properly. Only a certain set of foreign argument types can be mapped to TinyCLOS classes, as listed in the following table:

char             <char>
bool             <bool>
c-string         <string>
unsigned-char    <exact>
byte             <exact>
unsigned-byte    <exact>
[unsigned-]int   <exact>
[unsigned-]short <exact>
[unsigned-]long  <integer>
[unsigned-]integer     <integer>
float            <inexact>
double           <inexact>
number           <number>
(enum _)char     <exact>
(const T)char    (as T)
(function ...)   <pointer>
c-pointer        <pointer>
(pointer _)      <pointer>
(c-pointer _)    <pointer>
u8vector         <u8vector>
s8vector         <s8vector>
u16vector        <u16vector>
s16vector        <s16vector>
u32vector        <u32vector>
s32vector        <s32vector>
f32vector        <f32vector>
f64vector        <f64vector>

All other foreign types are specialized as <top>.

Full specialization can be enabled globally, or only for sections of code by enclosing it in

___declare(full_specialization, yes)
...
int foo(int x);
int foo(char *x);
...
___declare(full_specialization, no)

Alternatively, member function definitions may be prefixed by ___specialize for specializing only specific members.

prefix [values: <string>]

Sets a prefix that should be be added to all generated Scheme identifiers. For example

___declare(prefix, "mylib:")
#define SOME_CONST     42

would generate the following code:

(define-constant mylib:SOME_CONST 42)

To switch prefixing off, use the values no or 0. Prefixes are not applied to Class names.

rename [value: <string>]

Defines to what a certain C/C++ name should be renamed. The value for this declaration should have the form "<c-name>;<scheme-name>", where <c-name> specifies the C/C++ identifier occurring in the parsed text and <scheme-name> gives the name used in generated wrapper code.

scheme [value: <string>]

Embeds the Scheme expression <string> in the generated Scheme code.

substitute [value: <string>]

Declares a name-substitution for all generated Scheme identifiers. The value for this declaration should be a string containing a regular expression and a replacement string (separated by the ; character):

___declare(substitute, "^SDL_;sdl:")

extern void SDL_Quit();

generates

(define sdl:Quit
  (foreign-lambda integer "SDL_Quit") )

transform [values: <string>]

Defines an arbitrary transformation procedure for names that match a given regular expression. The value should be a string containing a regular expression and a Scheme expression that evaluates to a procedure of one argument. If the regex matches, the procedure will be called at compile time with the match-result (as returned by string-match) and should return a string with the desired transformations applied:

(require-for-syntax 'srfi-13)

#>!
___declare(transform, "([A-Z]+)_(.*);(lambda (x) (string-append (cadr x) \"-\" (string-downcase (caddr x))))")

void FOO_Bar(int x) { return x * 2; }
<#

(print (FOO-bar 33))

default_renaming [value: <string>]

Chooses a standard name-transformation, converting underscores (_) to hyphens (-) and transforming CamelCase into camel-case. All uppercase characters are also converted to lowercase. The result is prefixed with the argument string (equivalent to the prefix pseudo declaration).

type [value: <string>]

Declares a foreign type transformation, similar to define-foreign-type. The value should be a list of two to four items, separated by the ; character: a C typename, a Scheme foreign type specifier and optional argument- and result-value conversion procedures.

;;;; foreign type that converts to unicode (assumes 4-byte wchar_t):
;
; - Note: this is rather kludgy and is only meant to demonstrate the `type'
;         pseudo-declaration

(require-extension srfi-4)

(define mbstowcs (foreign-lambda int "mbstowcs" nonnull-u32vector c-string int))

(define (str->ustr str)
  (let* ([len (string-length str)]
         [us (make-u32vector (add1 len) 0)] )
    (mbstowcs us str len)
    us) )

#>!
___declare(type, "unicode;nonnull-u32vector;str->ustr")

static void foo(unicode ws)
{
  printf("\"%ls\"\n", ws);
}
<#

(foo "this is a test!")

opaque [value: <string>]

Similar to type, but provides automatic argument- and result conversions to wrap a value into a structure:

#>?
___declare(opaque, "myfile;(pointer \"FILE\")")

myfile fopen(char *, char *);
<#

(fopen "somefile" "r")   ==> <myfile>

___declare(opaque, "TYPENAME;TYPE") is basically equivalent to ___declare(type, "TYPENAME;TYPE;TYPE->RECORD;RECORD->TYPE") where TYPE->RECORD and RECORD->TYPE are compiler-generated conversion functions that wrap objects of type TYPE into a record and back.

Grammar

The parser understand the following grammar:

PROGRAM = PPCOMMAND
        | DECLARATION ";"

PPCOMMAND = "#define" ID [TOKEN ...]
          | "#ifdef" ID
          | "#ifndef" ID
          | "#else"
          | "#endif"
          | "#undef" ID
          | "#error" TOKEN ...
          | "#include" INCLUDEFILE
          | "#import" INCLUDEFILE
          | "#pragma" TOKEN ...

DECLARATION = FUNCTION
            | VARIABLE
            | ENUM
            | TYPEDEF
            | CLASS
            | CONSTANT
            | STRUCT
            | NAMESPACE
            | "___declare" "(" PSEUDODECL "," <tokens> ")"

STRUCT = ("struct" | "union") ID ["{" {["___mutable"] TYPE {"*"} ID {"," {"*"} ID}} "}]

NAMESPACE = "namespace" ID "{" DECLARATION ... "}"

INCLUDEFILE = "\"" ... "\""
            | "<" ... ">"

FUNCTION = {"___safe" | "___specialize" | "___discard"} [STORAGE] TYPE ID "(" ARGTYPE "," ... ")" [CODE]
         | {"___safe" | "___specialize" | "___discard"} [STORAGE] TYPE ID "(" "void" ")" [CODE]

ARGTYPE = [IOQUALIFIER] TYPE [ID ["[" ... "]"]]

IOQUALIFIER = "___in" | "___out" | "___inout" | LENQUALIFIER

LENQUALIFIER = "___length" "(" ID ")"

VARIABLE = [STORAGE] ENTITY ["=" INITDATA]

ENTITY = TYPE ID ["[" ... "]"]

STORAGE = "extern" | "static" | "volatile" | "inline"

CONSTANT = "const" TYPE ID "=" INITDATA

PSEUDODECL = "export_constants"
           | "prefix"
           | "substitute"
           | "abstract"
           | "type"
           | "scheme"
           | "rename"
           | "transform"
           | "full_specialization"
           | "destructor_name"
           | "class_finalizers"
           | "exception_handler"
           | "mutable_fields"

ENUM = "enum" "{" ID ["=" (NUMBER | ID)] "," ... "}"

TYPEDEF = "typedef" TYPE ["*" ...] [ID]

TYPE = ["const"] BASICTYPE [("*" ... | "&" | "<" TYPE "," ... ">" | "(" "*" [ID] ")" "(" TYPE "," ... ")")]

BASICTYPE = ["unsigned" | "signed"] "int" 
          | ["unsigned" | "signed"] "char" 
          | ["unsigned" | "signed"] "short" ["int"]
          | ["unsigned" | "signed"] "long" ["int"]
          | ["unsigned" | "signed"] "___byte" 
          | "size_t"
          | "float"
          | "double"
          | "void"
          | "bool"
          | "___bool"
          | "___scheme_value"
          | "___scheme_pointer"
          | "___byte_vector"
          | "___pointer" TYPE "*"
          | "C_word"
          | "___fixnum"
          | "___number"
          | "___symbol"
          | "___u32"
          | "___s32"
          | "___s64"
          | "__int64"
          | "int64_t"
          | "struct" ID
          | "union" ID
          | "enum" ID
          | ID

CLASS = ["___abstract"] "class" ID [":" [QUALIFIER] ID "," ...] "{" MEMBER ... "}"

MEMBER = [QUALIFIER ":"] ["virtual"] (MEMBERVARIABLE | CONSTRUCTOR | DESTRUCTOR | MEMBERFUNCTION)

MEMBERVARIABLE = TYPE ID ["=" INITDATA]

MEMBERFUNCTION = {"___safe" | "static" | "___specialize" | "___discard"} TYPE ID "(" ARGTYPE "," ... ")" ["const"] ["=" "0"] [CODE]
               | {"___safe" | "static" | "___specialize" | "___discard"} TYPE ID "(" "void" ")" ["const"] ["=" "0"] [CODE]

CONSTRUCTOR = ["___safe"] ["explicit"] ID "(" ARGTYPE "," ... ")" [BASECONSTRUCTORS] [CODE]

DESTRUCTOR = ["___safe"] "~" ID "(" ["void"] ")" [CODE]

QUALIFIER = ("public" | "private" | "protected")

NUMBER = <a C integer or floating-point number, in decimal, octal or hexadecimal notation>

INITDATA = <everything up to end of chunk>

BASECONSTRUCTORS = <everything up to end of chunk>

CODE = <everything up to end of chunk>

The following table shows how argument-types are translated:

[unsigned] char          char
[unsigned] short         [unsigned-]short
[unsigned] int           [unsigned-]integer
[unsigned] long          [unsigned-]long
___u32                   unsigned-integer32
___s32                   integer32
___s64                   integer64
int64_t                  integer64
__int64                  integer64
float                    float
double                   double
size_t                   unsigned-integer
bool                     int
___bool                  int
___fixnum                int
___number                number
___symbol                symbol
___scheme_value          scheme-object
C_word                   scheme-object
___scheme_pointer        scheme-pointer
char *                   c-string
signed char *            s8vector
[signed] short *         s16vector
[signed] int *           s32vector
[signed] long *          s32vector
unsigned char *          u8vector
unsigned short *         u16vector
unsigned int *           u32vector
unsigned long *          u32vector
float *                  f32vector
double *                 f64vector
___byte_vector           byte-vector
CLASS *                  (instance CLASS <CLASS>)
CLASS &                  (instance-ref CLASS <CLASS>)
TYPE *                   (pointer TYPE)
TYPE &                   (ref TYPE)
TYPE<T1, ...>            (template TYPE T1 ...)
TYPE1 (*)(TYPE2, ...)    (function TYPE1 (TYPE2 ...))

The following table shows how result-types are translated:

void                     void
[unsigned] char          char
[unsigned] short         [unsigned-]short
[unsigned] int           [unsigned-]integer
[unsigned] long          [unsigned-]long
___u32                   unsigned-integer32
___s32                   integer32
___s64                   integer64
int64_t                  integer64
__int64                  integer64
float                    float
double                   double
size_t                   unsigned-integer
bool                     bool
___bool                  bool
___fixnum                int
___number                number
___symbol                symbol
___scheme_value          scheme-object
char *                   c-string
TYPE *                   (pointer TYPE)
TYPE &                   (ref TYPE)
TYPE<T1, ...>            (template TYPE T1 ...)
TYPE1 (*)(TYPE2, ...)    (function TYPE1 (TYPE2 ...))
CLASS *                  (instance CLASS <CLASS>)
CLASS &                  (instance-ref CLASS <CLASS>)

The ___pointer argument marker disables automatic simplification of pointers to numbers: normally arguments of type int * are handled as SRFI-4 s32vector number vectors. To force treatment as a pointer argument, precede the argument type with ___pointer.

C notes

Foreign variable definitions for macros are not exported from the current compilation unit, but definitions for C variables and functions are.

foreign-parse does not embed the text into the generated C file, use foreign-declare for that (or even better, use the #>! ... <# syntax which does both).

Functions with variable number of arguments are not supported.

C++ notes

Each C++ class defines a TinyCLOS class, which is a subclass of <c++-object>. Instances of this class contain a single slot named this, which holds a pointer to a heap-allocated C++ instance. The name of the TinyCLOS class is obtained by putting the C++ classname between angled brackets (<...>). TinyCLOS classes are not seen by C++ code.

The C++ constructor is invoked by the initialize generic, which accepts as many arguments as the constructor. If no constructor is defined, a default-constructor will be provided taking no arguments. To allow creating class instances from pointers created in foreign code, the initialize generic will optionally accept an arguments list of the form 'this POINTER, where POINTER is a foreign pointer object. This will create a TinyCLOS instance for the given C++ object.

To release the storage allocated for a C++ instance invoke the destroy generic (the name can be changed by using the destructor_name pseudo declaration).

Static member functions are wrapped in a Scheme procedure named <class>::<member>.

Member variables and non-public member functions are ignored.

Virtual member functions are not seen by C++ code. Overriding a virtual member function with a TinyCLOS method will not work when the member function is called by C++.

Operator functions and default arguments are not supported.

Exceptions must be explicitly handled by user code and may not be thrown beyond an invocation of C++ by Scheme code.

Authors

felix winkelmann

License

Copyright (c) 2000-2007, Felix L. Winkelmann
All rights reserved.

Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following
conditions are met:

  Redistributions of source code must retain the above copyright notice, this list of conditions and the following
    disclaimer. 
  Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following
    disclaimer in the documentation and/or other materials provided with the distribution. 
  Neither the name of the author nor the names of its contributors may be used to endorse or promote
    products derived from this software without specific prior written permission.

THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS
OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR
CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
POSSIBILITY OF SUCH DAMAGE.

Version History

1.99.6: fixed broken handling of "___pointer"
1.99.5: fixed use of removed pointer type in CHICKEN 4.6.4
1.99.4: changed category to obsolete
1.99.3: added regex dependency
1.99.2: use regex as extension, not unit (for CHICKEN 4.6.3)
1.97: removed -host option from setup script
1.96: fixed bug in warning message that caused sprintf expansion to fail
1.91: fixed number parsing bug [Thanks to Shawn Rutledge]
1.9: removed use of obsolete reader hack
1.8: removed deprecated ___callback
1.7: added chicken-wrap tool
1.6: fixed error in handling of base constructors [Thanks to Carlos Pita]
1.5: added foreign-include-path [this missing interface was reported by Carlos Pita]
1.4: fixed bug in parser that ignored preprocessor commands in some situations [Thanks to Tony Sidaway]
1.3: struct-member write-access uses SRFI-17 set!
1.2: handles #define ID (NUM) and shows output in compiler with -debug F
1.1: simplified .setup script
1.0: moved from base distribution into separate extension