/tags/rel-1-3-25/SWIG/Examples/chicken/multimap/test-multimap.scm
Lisp | 59 lines | 37 code | 15 blank | 7 comment | 0 complexity | 37fa3ee04b88ee9f62bd1d6c7c6d6222 MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0
1;; run with './multimap test-multimap.scm' 2;; feel free to uncomment and comment sections 3 4(load-library 'example "multimap.so") 5 6(display "(gcd 90 12): ") 7(display (gcd 90 12)) 8(display "\n") 9 10(display "(gcd 90 'a): ") 11;;(display (gcd 90 'a)) 12(display "\n") 13 14(display "(gcd 'b 12): ") 15;;(display (gcd 'b 12)) 16(display "\n") 17 18(display "(circle 0.5 0.5): ") 19(circle 0.5 0.5) 20(display "\n") 21 22(display "(circle 1.0 1.0): ") 23;;(circle 1.0 1.0) 24(display "\n") 25 26(display "(circle 1 1): ") 27;;(circle 1 1) 28(display "\n") 29 30(display "(capitalize \"will this be all capital letters?\"): ") 31(display (capitalize "will this be all capital letters?")) 32(display "\n") 33 34(display "(capitalize 'a): ") 35;;(display (capitalize 'a)) 36(display "\n") 37 38(display "(count \"jumpity little spider\" #\\t): ") 39(display (count "jumpity little spider" #\t)) 40(display "\n") 41 42(display "(gcdmain '#(\"hi\" \"there\")): ") 43(display (gcdmain '#("hi" "there"))) 44(display "\n") 45 46(display "(gcdmain '#(\"gcd\" \"9\" \"28\")): ") 47(gcdmain '#("gcd" "9" "28")) 48(display "\n") 49 50(display "(gcdmain '#(\"gcd\" \"12\" \"90\")): ") 51(gcdmain '#("gcd" "12" "90")) 52(display "\n") 53 54(display "(squarecubed 3: ") 55(call-with-values (lambda() (squareCubed 3)) 56 (lambda (a b) (printf "~A ~A" a b))) 57(display "\n") 58 59(exit)