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

guile: fix std_map.i "$1 not found" error

Browse source
This commit is contained in:
Geert Janssens 2013-04-20 10:37:07 +02:00
commit 140829a826
1 changed files with 10 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

20
Lib/guile/std_map.i
View file

@ -109,8 +109,8 @@ namespace std {
} }
%typemap(out) map<K,T> { %typemap(out) map<K,T> {
SCM alist = SCM_EOL; SCM alist = SCM_EOL;
for (std::map<K,T >::reverse_iterator i=$1.rbegin(); for (std::map<K,T >::reverse_iterator i=$i.rbegin();
i!=$1.rend(); ++i) { i!=$i.rend(); ++i) {
K* key = new K(i->first); K* key = new K(i->first);
T* val = new T(i->second); T* val = new T(i->second);
SCM k = SWIG_NewPointerObj(key,$descriptor(K *), 1); SCM k = SWIG_NewPointerObj(key,$descriptor(K *), 1);
@ -251,8 +251,8 @@ namespace std {
} }
SCM keys() { SCM keys() {
SCM result = SCM_EOL; SCM result = SCM_EOL;
for (std::map<K,T >::reverse_iterator i=$1.rbegin(); for (std::map<K,T >::reverse_iterator i=self->rbegin();
i!=$1.rend(); ++i) { i!=self->rend(); ++i) {
K* key = new K(i->first); K* key = new K(i->first);
SCM k = SWIG_NewPointerObj(key,$descriptor(K *), 1); SCM k = SWIG_NewPointerObj(key,$descriptor(K *), 1);
result = scm_cons(k,result); result = scm_cons(k,result);
@ -471,8 +471,8 @@ namespace std {
} }
SCM keys() { SCM keys() {
SCM result = SCM_EOL; SCM result = SCM_EOL;
for (std::map<K,T >::reverse_iterator i=$1.rbegin(); for (std::map<K,T >::reverse_iterator i=self->rbegin();
i!=$1.rend(); ++i) { i!=self->rend(); ++i) {
SCM k = CONVERT_TO(i->first); SCM k = CONVERT_TO(i->first);
result = scm_cons(k,result); result = scm_cons(k,result);
} }
@ -683,8 +683,8 @@ namespace std {
} }
SCM keys() { SCM keys() {
SCM result = SCM_EOL; SCM result = SCM_EOL;
for (std::map<K,T >::reverse_iterator i=$1.rbegin(); for (std::map<K,T >::reverse_iterator i=self->rbegin();
i!=$1.rend(); ++i) { i!=self->rend(); ++i) {
K* key = new K(i->first); K* key = new K(i->first);
SCM k = SWIG_NewPointerObj(key,$descriptor(K *), 1); SCM k = SWIG_NewPointerObj(key,$descriptor(K *), 1);
result = scm_cons(k,result); result = scm_cons(k,result);
@ -895,8 +895,8 @@ namespace std {
} }
SCM keys() { SCM keys() {
SCM result = SCM_EOL; SCM result = SCM_EOL;
for (std::map<K,T >::reverse_iterator i=$1.rbegin(); for (std::map<K,T >::reverse_iterator i=self->rbegin();
i!=$1.rend(); ++i) { i!=self->rend(); ++i) {
SCM k = CONVERT_K_TO(i->first); SCM k = CONVERT_K_TO(i->first);
result = scm_cons(k,result); result = scm_cons(k,result);
} }