jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Changed module technique from <module_name>- to <module_name>: which

Browse source 
conforms with chicken "egg" standard.  Got rid of ##csi#run for
relinking the Scheme interpreter as no longer needed.  Changed all
documentation to reflect both changes.


git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@4411 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Jonah Beckford 2003-02-27 02:00:15 +00:00
commit 3def239916
20 changed files with 681 additions and 682 deletions
Download patch file Download diff file Expand all files Collapse all files

40
SWIG/Examples/chicken/overload/test-overload.scm
View file

@ -5,30 +5,30 @@
(display "
Trying low level code ...
(example-foo 1)
(example-foo \"some string\")
(define A-FOO (example-new-Foo))
(define ANOTHER-FOO (example-new-Foo A-FOO)) ;; copy constructor
(example-Foo-bar A-FOO 2)
(example-Foo-bar ANOTHER-FOO \"another string\" 3)
(example:foo 1)
(example:foo \"some string\")
(define A-FOO (example:new-Foo))
(define ANOTHER-FOO (example:new-Foo A-FOO)) ;; copy constructor
(example:Foo-bar A-FOO 2)
(example:Foo-bar ANOTHER-FOO \"another string\" 3)
")
(example-foo 1)
(example-foo "some string")
(define A-FOO (example-new-Foo))
(define ANOTHER-FOO (example-new-Foo A-FOO)) ;; copy constructor
(example-Foo-bar A-FOO 2)
(example-Foo-bar ANOTHER-FOO "another string" 3)
(example:foo 1)
(example:foo "some string")
(define A-FOO (example:new-Foo))
(define ANOTHER-FOO (example:new-Foo A-FOO)) ;; copy constructor
(example:Foo-bar A-FOO 2)
(example:Foo-bar ANOTHER-FOO "another string" 3)
;; TinyCLOS
;; --------
(display "
Trying TinyCLOS code ...
(+example-foo+ 1)
(+example-foo+ \"some string\")
(define A-FOO (make <example-Foo>))
(define ANOTHER-FOO (make <example-Foo> A-FOO)) ;; copy constructor
(+example:foo+ 1)
(+example:foo+ \"some string\")
(define A-FOO (make <example:Foo>))
(define ANOTHER-FOO (make <example:Foo> A-FOO)) ;; copy constructor
(-bar- A-FOO 2)
(-bar- ANOTHER-FOO \"another string\" 3)
")
@ -38,9 +38,9 @@ Trying TinyCLOS code ...
;; After generic methods are defined, can include TinyCLOS code
(include "example_clos")
(+example-foo+ 1)
(+example-foo+ "some string")
(define A-FOO (make <example-Foo>))
(define ANOTHER-FOO (make <example-Foo> A-FOO)) ;; copy constructor
(+example:foo+ 1)
(+example:foo+ "some string")
(define A-FOO (make <example:Foo>))
(define ANOTHER-FOO (make <example:Foo> A-FOO)) ;; copy constructor
(-bar- A-FOO 2)
(-bar- ANOTHER-FOO "another string" 3)