mirror of https://github.com/swig/swig
59 lines
1.4 KiB
Scheme
59 lines
1.4 KiB
Scheme
;; feel free to uncomment and comment sections
|
|
|
|
(load-library 'example "multimap.so")
|
|
|
|
(display "(gcd 90 12): ")
|
|
(display (gcd 90 12))
|
|
(display "\n")
|
|
|
|
(display "(circle 0.5 0.5): ")
|
|
(display (circle 0.5 0.5))
|
|
(display "\n")
|
|
|
|
(display "(circle 1.0 1.0): ")
|
|
(handle-exceptions exvar
|
|
(if (= (car exvar) 9)
|
|
(display "success: exception thrown")
|
|
(display "an incorrect exception was thrown"))
|
|
(begin
|
|
(circle 1.0 1.0)
|
|
(display "an exception was not thrown when it should have been")))
|
|
(display "\n")
|
|
|
|
(display "(circle 1 1): ")
|
|
(handle-exceptions exvar
|
|
(if (= (car exvar) 9)
|
|
(display "success: exception thrown")
|
|
(display "an incorrect exception was thrown"))
|
|
(begin
|
|
(circle 1 1)
|
|
(display "an exception was not thrown when it should have been")))
|
|
(display "\n")
|
|
|
|
(display "(capitalize \"will this be all capital letters?\"): ")
|
|
(display (capitalize "will this be all capital letters?"))
|
|
(display "\n")
|
|
|
|
(display "(count \"jumpity little spider\" #\\t): ")
|
|
(display (count "jumpity little spider" #\t))
|
|
(display "\n")
|
|
|
|
(display "(gcdmain '#(\"hi\" \"there\")): ")
|
|
(display (gcdmain '#("hi" "there")))
|
|
(display "\n")
|
|
|
|
(display "(gcdmain '#(\"gcd\" \"9\" \"28\")): ")
|
|
(gcdmain '#("gcd" "9" "28"))
|
|
(display "\n")
|
|
|
|
(display "(gcdmain '#(\"gcd\" \"12\" \"90\")): ")
|
|
(gcdmain '#("gcd" "12" "90"))
|
|
(display "\n")
|
|
|
|
(display "squarecubed 3: ")
|
|
(call-with-values (lambda() (squareCubed 3))
|
|
(lambda (a b) (printf "~A ~A" a b)))
|
|
(display "\n")
|
|
|
|
(exit)
|