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@6610 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
John Lenz 2004-11-02 02:50:30 +00:00
commit 2cdf91de5d
17 changed files with 305 additions and 181 deletions
Download patch file Download diff file Expand all files Collapse all files

4
SWIG/Examples/chicken/multimap/Makefile
View file

@ -23,8 +23,8 @@ $(TARGET): $(INTERFACE) $(SRCS)
clean::
$(MAKE) -f $(TOP)/Makefile chicken_clean
rm -f example.scm example-generic.scm example-clos.scm
rm -f example.scm
rm -f $(TARGET)
check::
csi -batch $(TARGET).so test-multimap.scm
env LD_LIBRARY_PATH=.:$$LD_LIBRARY_PATH csi test-multimap.scm

55
SWIG/Examples/chicken/multimap/test-multimap.scm
View file

@ -1,56 +1,59 @@
;; run with './multimap test-multimap.scm'
;; feel free to uncomment and comment sections
(load-library 'example "multimap.so")
(declare (uses example))
(display "(example:gcd 90 12): ")
(display (example:gcd 90 12))
(display "(gcd 90 12): ")
(display (gcd 90 12))
(display "\n")
(display "(example:gcd 90 'a): ")
;;(display (example:gcd 90 'a))
(display "(gcd 90 'a): ")
;;(display (gcd 90 'a))
(display "\n")
(display "(example:gcd 'b 12): ")
;;(display (example:gcd 'b 12))
(display "(gcd 'b 12): ")
;;(display (gcd 'b 12))
(display "\n")
(display "(example:circle 0.5 0.5): ")
(example:circle 0.5 0.5)
(display "(circle 0.5 0.5): ")
(circle 0.5 0.5)
(display "\n")
(display "(example:circle 1.0 1.0): ")
;;(example:circle 1.0 1.0)
(display "(circle 1.0 1.0): ")
;;(circle 1.0 1.0)
(display "\n")
(display "(example:circle 1 1): ")
;;(example:circle 1 1)
(display "(circle 1 1): ")
;;(circle 1 1)
(display "\n")
(display "(example:capitalize \"will this be all capital letters?\"): ")
(display (example:capitalize "will this be all capital letters?"))
(display "(capitalize \"will this be all capital letters?\"): ")
(display (capitalize "will this be all capital letters?"))
(display "\n")
(display "(example:capitalize 'a): ")
;;(display (example:capitalize 'a))
(display "(capitalize 'a): ")
;;(display (capitalize 'a))
(display "\n")
(display "(example:count \"jumpity little spider\" #\\t): ")
(display (example:count "jumpity little spider" #\t))
(display "(count \"jumpity little spider\" #\\t): ")
(display (count "jumpity little spider" #\t))
(display "\n")
(display "(example:gcdmain '#(\"hi\" \"there\")): ")
(display (example:gcdmain '#("hi" "there")))
(display "(gcdmain '#(\"hi\" \"there\")): ")
(display (gcdmain '#("hi" "there")))
(display "\n")
(display "(example:gcdmain '#(\"gcd\" \"9\" \"28\")): ")
(example:gcdmain '#("gcd" "9" "28"))
(display "(gcdmain '#(\"gcd\" \"9\" \"28\")): ")
(gcdmain '#("gcd" "9" "28"))
(display "\n")
(display "(example:gcdmain '#(\"gcd\" \"12\" \"90\")): ")
(example:gcdmain '#("gcd" "12" "90"))
(display "(gcdmain '#(\"gcd\" \"12\" \"90\")): ")
(gcdmain '#("gcd" "12" "90"))
(display "\n")
(display "(example:squarecubed 3: ")
(display (example:squareCubed 3))
(display "(squarecubed 3: ")
(display (squareCubed 3))
(display "\n")
(exit)