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

More work on the chicken module. The test suite, zlib, and overload examples are still broken.

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@6610 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
John Lenz 2004-11-02 02:50:30 +00:00
commit 68372c5c2f
17 changed files with 305 additions and 181 deletions
Download patch file Download diff file Expand all files Collapse all files

43
Examples/chicken/simple/test-simple.scm
View file

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