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

[allegrocl] see CHANGES.current.

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@9528 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Mikel Bancroft 2006-11-07 19:34:18 +00:00
commit be61c5347b
3 changed files with 12 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
CHANGES.current
View file

@ -1,6 +1,12 @@
Version 1.3.30 (in progress) Version 1.3.30 (in progress)
=========================== ===========================
11/07/2006: mutandiz
[allegrocl]
allegrocl.swg: swig-defvar updated to allow specifying of
non-default foreign type (via :ftype keyword arg).
allegrocl.cxx: Specify proper access type for enum values.
11/03/2006: wsfulton 11/03/2006: wsfulton
[Java/C#] Fix const std::string& return types for directors as reported by [Java/C#] Fix const std::string& return types for directors as reported by
Mark Donselzmann Mark Donselzmann

4
Lib/allegrocl/allegrocl.swg
View file

@ -504,10 +504,10 @@ $body)"
`(cl::eval-when (compile load eval) `(cl::eval-when (compile load eval)
(cl::in-package ,(package-name-for-namespace namespace)))) (cl::in-package ,(package-name-for-namespace namespace))))
(defswig2 swig-defvar (name mangled-name &key type) (defswig2 swig-defvar (name mangled-name &key type (ftype :unsigned-natural))
(cl::let ((symbol (id-convert-and-export name :type type))) (cl::let ((symbol (id-convert-and-export name :type type)))
`(cl::eval-when (compile load eval) `(cl::eval-when (compile load eval)
(ff:def-foreign-variable (,symbol ,mangled-name))))) (ff:def-foreign-variable (,symbol ,mangled-name) :type ,ftype))))
) ;; eval-when ) ;; eval-when

7
Source/Modules/allegrocl.cxx
View file

@ -1353,9 +1353,9 @@ void emit_enum_type(Node *n) {
// walk children. // walk children.
Node *c; Node *c;
for (c = firstChild(n); c; c = nextSibling(c)) { for(c = firstChild(n); c; c=nextSibling(c)) {
String *mangled_name = mangle_name(c, "ACL_ENUM", Getattr(c, "allegrocl:package")); String *mangled_name = mangle_name(c, "ACL_ENUM", Getattr(c,"allegrocl:package"));
Printf(f_clhead, "(swig-defvar \"%s\" \"%s\" :type :constant)\n", Getattr(c, "sym:name"), mangled_name); Printf(f_clhead, "(swig-defvar \"%s\" \"%s\" :type :constant :ftype :signed-long)\n", Getattr(c, "sym:name"), mangled_name);
Delete(mangled_name); Delete(mangled_name);
} }
} }
@ -2129,6 +2129,7 @@ IDargs *id_converter_arguments(Node *n) {
result->arity = NewStringf("%d", result->arity = NewStringf("%d",
// emit_num_arguments(Getattr(n, "wrap:parms"))); // emit_num_arguments(Getattr(n, "wrap:parms")));
emit_num_lin_arguments(Getattr(n, "wrap:parms"))); emit_num_lin_arguments(Getattr(n, "wrap:parms")));
Printf(stderr, "got arity of '%s' node '%s' '%x'\n", result->arity, Getattr(n,"name"), Getattr(n,"wrap:parms"));
} }
SetVoid(n, "allegrocl:id-converter-args", result); SetVoid(n, "allegrocl:id-converter-args", result);