/tags/rel-1-3-25/SWIG/Examples/chicken/multimap/test-multimap.scm

 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)