70b9df5ee9
dynamic-link and load-extension work without passing the .so or .dll as the shared library extension, so these have been dropped so the examples and test-suite work on Cygwin. Also update documentation and use the 'lib' prefix as that is what we commonly name the shared libraries.
30 lines
524 B
Scheme
30 lines
524 B
Scheme
;;; Test out some multi-argument typemaps
|
|
|
|
(dynamic-call "scm_init_example_module" (dynamic-link "./libexample"))
|
|
|
|
; Call the GCD function
|
|
|
|
(define x 42)
|
|
(define y 105)
|
|
(define g (gcd x y))
|
|
|
|
(display "The gcd of ")
|
|
(display x)
|
|
(display " and ")
|
|
(display y)
|
|
(display " is ")
|
|
(display g)
|
|
(newline)
|
|
|
|
; Call the gcdmain() function
|
|
(gcdmain #("gcdmain" "42" "105"))
|
|
|
|
; Call the count function
|
|
(display (count "Hello World" #\l))
|
|
(newline)
|
|
|
|
; Call the capitalize function
|
|
(display (capitalize "hello world"))
|
|
(newline)
|
|
|
|
(exit 0)
|