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

Chicken test suite should at least run now... still generates a bunch of errors

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@6611 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
John Lenz 2004-11-02 03:10:50 +00:00
commit ae49beb41c
25 changed files with 27 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
SWIG/Examples/Makefile.in
View file

@ -747,7 +747,7 @@ CHICKEN_MAIN =
# SWIG produces $(ISRCS) (the C wrapper file)
# and $(CHICKEN_GENERATED_SCHEME) (the Scheme wrapper file):
CHICKEN_GENERATED_SCHEME = `echo $(INTERFACE:.i=.scm) | sed 's/_/-/g'`
CHICKEN_GENERATED_SCHEME = $(INTERFACE:.i=.scm)
CHICKEN_COMPILED_SCHEME = $(INTERFACE:.i=_chicken.c)
CHICKEN_COMPILED_OBJECT = $(CHICKEN_COMPILED_SCHEME:.c=.@OBJEXT@)

1
SWIG/Examples/test-suite/chicken/casts_runme.ss
View file

@ -1 +1,2 @@
(load-library 'casts "casts.so")
(include "../schemerunme/casts.scm")

1
SWIG/Examples/test-suite/chicken/char_constant_runme.ss
View file

@ -1 +1,2 @@
(load-library 'char_constant "char_constant.so")
(include "../schemerunme/char_constant.scm")

1
SWIG/Examples/test-suite/chicken/class_ignore_runme.ss
View file

@ -1 +1,2 @@
(load-library 'class_ignore "class_ignore.so")
(include "../schemerunme/class_ignore.scm")

1
SWIG/Examples/test-suite/chicken/constover_runme.ss
View file

@ -1 +1,2 @@
(load-library 'constover "constover.so")
(include "../schemerunme/constover.scm")

1
SWIG/Examples/test-suite/chicken/contract_runme.ss
View file

@ -1 +1,2 @@
(load-library 'contract "contract.so")
(include "../schemerunme/contract.scm")

1
SWIG/Examples/test-suite/chicken/cpp_namespace_runme.ss
View file

@ -1 +1,2 @@
(load-library 'cpp_namespace "cpp_namespace.so")
(include "../schemerunme/cpp_namespace.scm")

1
SWIG/Examples/test-suite/chicken/dynamic_cast_runme.ss
View file

@ -1 +1,2 @@
(load-library 'dynamic_cast "dynamic_cast.so")
(include "../schemerunme/dynamic_cast.scm")

1
SWIG/Examples/test-suite/chicken/import_nomodule_runme.ss
View file

@ -1 +1,2 @@
(load-library 'import_nomodule "import_nomodule.so")
(include "../schemerunme/import_nomodule.scm")

2
SWIG/Examples/test-suite/chicken/imports_runme.ss
View file

@ -1 +1,3 @@
(load-library 'imports_a "imports_a.so")
(load-library 'imports_b "imports_b.so")
(include "../schemerunme/imports.scm")

1
SWIG/Examples/test-suite/chicken/inherit_missing_runme.ss
View file

@ -1 +1,2 @@
(load-library 'inherit_missing "inherit_missing.so")
(include "../schemerunme/inherit_missing.scm")

1
SWIG/Examples/test-suite/chicken/list_vector_runme.ss
View file

@ -1 +1,2 @@
(load-library 'list_vector "list_vector.so")
(include "../schemerunme/list_vector.scm")

3
SWIG/Examples/test-suite/chicken/multivalue_runme.ss
View file

@ -1,3 +1,4 @@
;; this doesn't work yet :(
;;(include "../schemerunme/multivalue.scm")
(load-library 'multivalue "multivalue.so")
(include "../schemerunme/multivalue.scm")
(exit 0)

1
SWIG/Examples/test-suite/chicken/name_runme.ss
View file

@ -1 +1,2 @@
(load-library 'name "name.so")
(include "../schemerunme/name.scm")

1
SWIG/Examples/test-suite/chicken/overload_complicated_runme.ss
View file

@ -1 +1,2 @@
(load-library 'overload_complicated "overload_complicated.so")
(include "../schemerunme/overload_complicated.scm")

1
SWIG/Examples/test-suite/chicken/overload_copy_runme.ss
View file

@ -1 +1,2 @@
(load-library 'overload_copy "overload_copy.so")
(include "../schemerunme/overload_copy.scm")

1
SWIG/Examples/test-suite/chicken/overload_extend_runme.ss
View file

@ -1 +1,2 @@
(load-library 'overload_extend "overload_extend.so")
(include "../schemerunme/overload_extend.scm")

1
SWIG/Examples/test-suite/chicken/overload_simple_runme.ss
View file

@ -1 +1,2 @@
(load-library 'overload_simple "overload_simple.so")
(include "../schemerunme/overload_simple.scm")

1
SWIG/Examples/test-suite/chicken/overload_subtype_runme.ss
View file

@ -1 +1,2 @@
(load-library 'overload_subtype "overload_subtype.so")
(include "../schemerunme/overload_subtype.scm")

1
SWIG/Examples/test-suite/chicken/pointer_in_out_runme.ss
View file

@ -1 +1,2 @@
(load-library 'pointer_in_out "pointer_in_out.so")
(include "../schemerunme/pointer_in_out.scm")

1
SWIG/Examples/test-suite/chicken/reference_global_vars_runme.ss
View file

@ -1 +1,2 @@
(load-library 'reference_global_vars "reference_global_vars.so")
(include "../schemerunme/reference_global_vars.scm")

1
SWIG/Examples/test-suite/chicken/typedef_inherit_runme.ss
View file

@ -1 +1,2 @@
(load-library 'typedef_inherit "typedef_inherit.so")
(include "../schemerunme/typedef_inherit.scm")

1
SWIG/Examples/test-suite/chicken/typename_runme.ss
View file

@ -1 +1,2 @@
(load-library 'typename "typename.so")
(include "../schemerunme/typename.scm")

1
SWIG/Examples/test-suite/chicken/unions_runme.ss
View file

@ -1 +1,2 @@
(load-library 'unions "unions.so")
(include "../schemerunme/unions.scm")

2
SWIG/Source/Modules/chicken.cxx
View file

@ -1058,7 +1058,7 @@ CHICKEN::membervariableHandler(Node *n)
if (!Getattr(n,"feature:immutable")) {
if (closclassname) {
Printv(closcode, " ':swig-set (lambda (x y) (", chickenPrimitiveName(setfunc), " x (slot-ref y 'swig-this))\n");
Printv(closcode, " ':swig-set (lambda (x y) (", chickenPrimitiveName(setfunc), " x (slot-ref y 'swig-this))\n", NIL);
} else {
Printv(closcode, " ':swig-set ", chickenPrimitiveName(setfunc), ")\n", NIL);
}