PageRenderTime 49ms CodeModel.GetById 23ms RepoModel.GetById 0ms app.codeStats 0ms

/trunk/Examples/guile/multimap/runme.scm

#
Lisp | 30 lines | 16 code | 9 blank | 5 comment | 0 complexity | 3d1328c09f36919c64dba9987f3df222 MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0 
    

  1. ;;; Test out some multi-argument typemaps
    2. 

  2. 

  3. (use-modules (example))
    4. 

  4. 

  5. ; Call the GCD function
    6. 

  6. 

  7. (define x 42)
    8. 

  8. (define y 105)
    9. 

  9. (define g (gcd x y))
    10. 

  10. 

  11. (display "The gcd of ")
    12. 

  12. (display x)
    13. 

  13. (display " and ")
    14. 

  14. (display y)
    15. 

  15. (display " is ")
    16. 

  16. (display g)
    17. 

  17. (newline)
    18. 

  18. 

  19. ;  Call the gcdmain() function
    20. 

  20. (gcdmain #("gcdmain" "42" "105"))
    21. 

  21. 

  22. ; Call the count function
    23. 

  23. (display (count "Hello World" #\l))
    24. 

  24. (newline)
    25. 

  25. 

  26. ; Call the capitalize function
    27. 

  27. (display (capitalize "hello world"))
    28. 

  28. (newline)
    29. 

  29. 

  30. 

  31.