jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add an (almost empty) chapter on MzScheme.

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@6112 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Matthias Köppe 2004-08-23 13:50:20 +00:00
commit 5aafe88b82
2 changed files with 58 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

57
SWIG/Doc/Manual/Mzscheme.html Normal file
View file

@ -0,0 +1,57 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<!-- Hand-written HTML -->
<html>
<head>
<title>SWIG and MzScheme</title>
</head>
<body bgcolor="#ffffff">
<H1><a name="MzScheme"></a>18 SWIG and MzScheme</H1>
<!-- INDEX -->
<ul>
<li><a href="#MzScheme_nn2">Creating native MzScheme structures</a>
</ul>
<!-- INDEX -->
<p>
This section contains information on SWIG's support of MzScheme.
<H2><a name="MzScheme_nn2"></a>Creating native MzScheme structures</H2>
Example interface file:
<blockquote>
<pre>
/* define a macro for the struct creation */
%define handle_ptr(TYPE,NAME)
%typemap(mzscheme,argout) TYPE *NAME{
Scheme_Object *o = SWIG_NewStructFromPtr($1, $*1_mangle);
SWIG_APPEND_VALUE(o);
}
%typemap(mzscheme,in,numinputs=0) TYPE *NAME (TYPE temp) {
$1 = &temp;
}
%enddef
/* setup the typemaps for the pointer to an output parameter cntrs */
handle_ptr(struct diag_cntrs, cntrs);
</pre>
</blockquote>
Then in scheme, you can use regular struct access procedures like
<blockquote>
<pre>
; suppose a function created a struct foo as
; (define foo (make-diag-cntrs (#x1 #x2 #x3) (make-inspector))
; Then you can do
(format "0x~x" (diag-cntrs-field1 foo))
(format "0x~x" (diag-cntrs-field2 foo))
;etc...
</pre>
</blockquote>
That's pretty much it. It works with nested structs as well.
</body>
</html>

1
SWIG/Doc/Manual/chapters
View file

@ -18,6 +18,7 @@ Chicken.html
Guile.html
Java.html
Modula3.html
MzScheme.html
Ocaml.html
Perl5.html
Php.html