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

Add a whole bunch of chicken runme scripts, and fix the bugs exposed by those scripts

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@7155 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
John Lenz 2005-04-15 05:23:14 +00:00
commit 420ba48099
72 changed files with 1085 additions and 412 deletions
Download patch file Download diff file Expand all files Collapse all files

2
SWIG/Examples/chicken/simple/example.i
View file

@ -8,6 +8,6 @@
extern double My_variable;
extern int fact(int);
%name(mod) extern int my_mod(int n, int m);
%rename(mod) my_mod;
extern int my_mod(int n, int m);
extern char *get_time();

18
SWIG/Examples/chicken/simple/test-simple.scm
View file

@ -1,6 +1,5 @@
;; feel free to uncomment and comment sections
(load-library 'example "simple.so")
(declare (uses example))
(display "(My-variable): ")
(display (My-variable))
@ -14,31 +13,14 @@
(display (My-variable))
(display "\n")
(display "(My-variable 'a): ")
;;(display (My-variable 'a))
(display "\n")
(display "(My-variable 1.5 'b): ")
(display (My-variable 1.5 'b))
(display "\n")
(display "(fact 5): ")
(display (fact 5))
(display "\n")
(display "(fact 'a): ")
;;(display (fact 'a))
(display "\n")
(display "(mod 75 7): ")
(display (mod 75 7))
(display "\n")
(display "(my-mod 75 7): ")
(display (my-mod 75 7))
(display "\n")
(display "(get-time): ")
(display (get-time))
(display "\n")