85ace8facd
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@4313 626c5289-ae23-0410-ae9c-e8d60b6d4f22
24 lines
783 B
Scheme
24 lines
783 B
Scheme
(declare (unit precsi))
|
|
(declare (uses example))
|
|
|
|
;; display prelude to csi
|
|
(display "multimap\n\n")
|
|
|
|
(display " A SWIG example for the CHICKEN compiler\n")
|
|
(display " Author: Jonah Beckford, November 2002\n\n")
|
|
|
|
(display "C Procedures:\n")
|
|
(display " int gcd (int n, int m);\n")
|
|
(display " int gcdmain (int argc, char *argv[]);")
|
|
(display " int count (char *bytes, int len, char c);")
|
|
(display " void capitalize (char *str, int len);")
|
|
(display " void circle (double x, double y);")
|
|
(display "\n")
|
|
|
|
(display "Scheme Procedures:\n")
|
|
(display " (example-gcd %n %m)\n")
|
|
(display " (example-gcdmain '(%string %string ...))\n")
|
|
(display " (example-count %string %character)\n")
|
|
(display " (example-capitalize %string)\n")
|
|
(display " (example-circle %x %y)\n")
|
|
(display "\n")
|