PageRenderTime 39ms CodeModel.GetById 12ms RepoModel.GetById 0ms app.codeStats 0ms

/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. (load-library 'example "multimap.so")
  4. (display "(gcd 90 12): ")
  5. (display (gcd 90 12))
  6. (display "\n")
  7. (display "(gcd 90 'a): ")
  8. ;;(display (gcd 90 'a))
  9. (display "\n")
  10. (display "(gcd 'b 12): ")
  11. ;;(display (gcd 'b 12))
  12. (display "\n")
  13. (display "(circle 0.5 0.5): ")
  14. (circle 0.5 0.5)
  15. (display "\n")
  16. (display "(circle 1.0 1.0): ")
  17. ;;(circle 1.0 1.0)
  18. (display "\n")
  19. (display "(circle 1 1): ")
  20. ;;(circle 1 1)
  21. (display "\n")
  22. (display "(capitalize \"will this be all capital letters?\"): ")
  23. (display (capitalize "will this be all capital letters?"))
  24. (display "\n")
  25. (display "(capitalize 'a): ")
  26. ;;(display (capitalize 'a))
  27. (display "\n")
  28. (display "(count \"jumpity little spider\" #\\t): ")
  29. (display (count "jumpity little spider" #\t))
  30. (display "\n")
  31. (display "(gcdmain '#(\"hi\" \"there\")): ")
  32. (display (gcdmain '#("hi" "there")))
  33. (display "\n")
  34. (display "(gcdmain '#(\"gcd\" \"9\" \"28\")): ")
  35. (gcdmain '#("gcd" "9" "28"))
  36. (display "\n")
  37. (display "(gcdmain '#(\"gcd\" \"12\" \"90\")): ")
  38. (gcdmain '#("gcd" "12" "90"))
  39. (display "\n")
  40. (display "(squarecubed 3: ")
  41. (call-with-values (lambda() (squareCubed 3))
  42. (lambda (a b) (printf "~A ~A" a b)))
  43. (display "\n")
  44. (exit)