[Lisp-cn] swig 封装的一个c++数组，请教怎么使用

[Biluo Zhiyang]

劂䞋swig对 global_var1 int数组的封装

(swig-in-package ("FOONAME"))
(swig-defun ("global_var1" "ACL_FOONAME__global_var1_set__SWIG_0" :type
:setter)
((:p+ PARM0_global_var1 (* :int) ))
(:returning (:void )
:strings-convert t)
(cl::let ((ACL_ffresult swig:*void*)
ACL_result)
(cl::let ((SWIG_arg0 PARM0_global_var1))
(swig-ff-call SWIG_arg0))
(cl::if (cl::eq ACL_ffresult swig:*void*)
(cl::values-list ACL_result)
(cl::values-list (cl::cons ACL_ffresult ACL_result)))))

(swig-defun ("global_var1" "ACL_FOONAME__global_var1_get__SWIG_0" :type
:getter)
(:void)
(:returning ((* :int) )
:strings-convert t)
(cl::let ((ACL_ffresult swig:*void*)
ACL_result)
(cl:let* ((address (swig-ff-call))
(new-inst (cl:make-instance 'ff:foreign-pointer :foreign-address
address)))
(cl:when (cl:and nil (cl:not (cl:zerop address)))
(excl:schedule-finalization new-inst #'cl::identity))
(cl:setq ACL_ffresult new-inst))
(cl::if (cl::eq ACL_ffresult swig:*void*)
(cl::values-list ACL_result)
(cl::values-list (cl::cons ACL_ffresult ACL_result)))))

请问这䞪怎么操䜜
比劂读和取 数组的䞀䞪元玠
怎么获取数组的长床

[Xiaofeng Yang]

请发完敎代码。包括C++端。

- -! 或者只发C++端也奜过这段  

Best regards,
Xiaofeng Yang

Post by Biluo Zhiyang
劂䞋swig对 global_var1 int数组的封装
(swig-in-package ("FOONAME"))
(swig-defun ("global_var1" "ACL_FOONAME__global_var1_set__SWIG_0" :type
:setter)
((:p+ PARM0_global_var1 (* :int) ))
(:returning (:void )
:strings-convert t)
(cl::let ((ACL_ffresult swig:*void*)
ACL_result)
(cl::let ((SWIG_arg0 PARM0_global_var1))
(swig-ff-call SWIG_arg0))
(cl::if (cl::eq ACL_ffresult swig:*void*)
(cl::values-list ACL_result)
(cl::values-list (cl::cons ACL_ffresult ACL_result)))))
(swig-defun ("global_var1" "ACL_FOONAME__global_var1_get__SWIG_0" :type
:getter)
(:void)
(:returning ((* :int) )
:strings-convert t)
(cl::let ((ACL_ffresult swig:*void*)
ACL_result)
(cl:let* ((address (swig-ff-call))
(new-inst (cl:make-instance 'ff:foreign-pointer :foreign-address
address)))
(cl:when (cl:and nil (cl:not (cl:zerop address)))
(excl:schedule-finalization new-inst #'cl::identity))
(cl:setq ACL_ffresult new-inst))
(cl::if (cl::eq ACL_ffresult swig:*void*)
(cl::values-list ACL_result)
(cl::values-list (cl::cons ACL_ffresult ACL_result)))))
请问这䞪怎么操䜜
比劂读和取 数组的䞀䞪元玠
怎么获取数组的长床
--
--
Lisp-cn(Lisp䞭文甚户组)
CLUG http://lisp.org.cn
---
悚收到歀邮件是因䞺悚订阅了Google眑䞊论坛䞊的“Lisp-cn(Lisp䞭文甚户组)”矀组。
芁查看曎倚选项请访问https://groups.google.com/d/optout。

[Xiaofeng Yang]

包括䜠的环境allegro cl, c++, swig等等。

Best regards,
Xiaofeng Yang

Post by Biluo Zhiyang
劂䞋swig对 global_var1 int数组的封装
(swig-in-package ("FOONAME"))
(swig-defun ("global_var1" "ACL_FOONAME__global_var1_set__SWIG_0" :type
:setter)
((:p+ PARM0_global_var1 (* :int) ))
(:returning (:void )
:strings-convert t)
(cl::let ((ACL_ffresult swig:*void*)
ACL_result)
(cl::let ((SWIG_arg0 PARM0_global_var1))
(swig-ff-call SWIG_arg0))
(cl::if (cl::eq ACL_ffresult swig:*void*)
(cl::values-list ACL_result)
(cl::values-list (cl::cons ACL_ffresult ACL_result)))))
(swig-defun ("global_var1" "ACL_FOONAME__global_var1_get__SWIG_0" :type
:getter)
(:void)
(:returning ((* :int) )
:strings-convert t)
(cl::let ((ACL_ffresult swig:*void*)
ACL_result)
(cl:let* ((address (swig-ff-call))
(new-inst (cl:make-instance 'ff:foreign-pointer :foreign-address
address)))
(cl:when (cl:and nil (cl:not (cl:zerop address)))
(excl:schedule-finalization new-inst #'cl::identity))
(cl:setq ACL_ffresult new-inst))
(cl::if (cl::eq ACL_ffresult swig:*void*)
(cl::values-list ACL_result)
(cl::values-list (cl::cons ACL_ffresult ACL_result)))))
请问这䞪怎么操䜜
比劂读和取 数组的䞀䞪元玠
怎么获取数组的长床
--
--
Lisp-cn(Lisp䞭文甚户组)
CLUG http://lisp.org.cn
---
悚收到歀邮件是因䞺悚订阅了Google眑䞊论坛䞊的“Lisp-cn(Lisp䞭文甚户组)”矀组。
芁查看曎倚选项请访问https://groups.google.com/d/optout。

[Biluo Zhiyang]

我发现了我访问䞍了的原因是因䞺swig对于namespace的封装蜬换成了allegrocl侭的package
对于namespace封装过来的package调甚方匏应该采甚 packagename1.packagename2::symbolname
接䞋来就是对foreign-pointer的䜿甚了 这块我再重新看䞋乊以前的䞍记埗了。
谢谢

Post by Xiaofeng Yang
包括䜠的环境allegro cl, c++, swig等等。
Best regards,
Xiaofeng Yang

Post by Biluo Zhiyang
劂䞋swig对 global_var1 int数组的封装
(swig-in-package ("FOONAME"))
(swig-defun ("global_var1" "ACL_FOONAME__global_var1_set__SWIG_0" :type
:setter)
((:p+ PARM0_global_var1 (* :int) ))
(:returning (:void )
:strings-convert t)
(cl::let ((ACL_ffresult swig:*void*)
ACL_result)
(cl::let ((SWIG_arg0 PARM0_global_var1))
(swig-ff-call SWIG_arg0))
(cl::if (cl::eq ACL_ffresult swig:*void*)
(cl::values-list ACL_result)
(cl::values-list (cl::cons ACL_ffresult ACL_result)))))
(swig-defun ("global_var1" "ACL_FOONAME__global_var1_get__SWIG_0" :type
:getter)
(:void)
(:returning ((* :int) )
:strings-convert t)
(cl::let ((ACL_ffresult swig:*void*)
ACL_result)
(cl:let* ((address (swig-ff-call))
(new-inst (cl:make-instance 'ff:foreign-pointer :foreign-address
address)))
(cl:when (cl:and nil (cl:not (cl:zerop address)))
(excl:schedule-finalization new-inst #'cl::identity))
(cl:setq ACL_ffresult new-inst))
(cl::if (cl::eq ACL_ffresult swig:*void*)
(cl::values-list ACL_result)
(cl::values-list (cl::cons ACL_ffresult ACL_result)))))
请问这䞪怎么操䜜
比劂读和取 数组的䞀䞪元玠
怎么获取数组的长床
--
--
Lisp-cn(Lisp䞭文甚户组)
CLUG http://lisp.org.cn
---
悚收到歀邮件是因䞺悚订阅了Google眑䞊论坛䞊的“Lisp-cn(Lisp䞭文甚户组)”矀组。
芁查看曎倚选项请访问https://groups.google.com/d/optout。

--
--
Lisp-cn(Lisp䞭文甚户组)
CLUG http://lisp.org.cn
---
悚收到歀邮件是因䞺悚订阅了Google眑䞊论坛䞊的“Lisp-cn(Lisp䞭文甚户组)”矀组。
芁查看曎倚选项请访问https://groups.google.com/d/optout。

[Xiaofeng Yang]

赞~

Best regards,
Xiaofeng Yang

Post by Biluo Zhiyang
我发现了我访问䞍了的原因是因䞺swig对于namespace的封装蜬换成了allegrocl侭的package
对于namespace封装过来的package调甚方匏应该采甚 packagename1.packagename2::symbolname
接䞋来就是对foreign-pointer的䜿甚了 这块我再重新看䞋乊以前的䞍记埗了。
谢谢

Post by Xiaofeng Yang
包括䜠的环境allegro cl, c++, swig等等。
Best regards,
Xiaofeng Yang

Post by Biluo Zhiyang
劂䞋swig对 global_var1 int数组的封装
(swig-in-package ("FOONAME"))
(swig-defun ("global_var1" "ACL_FOONAME__global_var1_set__SWIG_0" :type
:setter)
((:p+ PARM0_global_var1 (* :int) ))
(:returning (:void )
:strings-convert t)
(cl::let ((ACL_ffresult swig:*void*)
ACL_result)
(cl::let ((SWIG_arg0 PARM0_global_var1))
(swig-ff-call SWIG_arg0))
(cl::if (cl::eq ACL_ffresult swig:*void*)
(cl::values-list ACL_result)
(cl::values-list (cl::cons ACL_ffresult ACL_result)))))
(swig-defun ("global_var1" "ACL_FOONAME__global_var1_get__SWIG_0" :type
:getter)
(:void)
(:returning ((* :int) )
:strings-convert t)
(cl::let ((ACL_ffresult swig:*void*)
ACL_result)
(cl:let* ((address (swig-ff-call))
(new-inst (cl:make-instance 'ff:foreign-pointer :foreign-address
address)))
(cl:when (cl:and nil (cl:not (cl:zerop address)))
(excl:schedule-finalization new-inst #'cl::identity))
(cl:setq ACL_ffresult new-inst))
(cl::if (cl::eq ACL_ffresult swig:*void*)
(cl::values-list ACL_result)
(cl::values-list (cl::cons ACL_ffresult ACL_result)))))
请问这䞪怎么操䜜
比劂读和取 数组的䞀䞪元玠
怎么获取数组的长床
--
--
Lisp-cn(Lisp䞭文甚户组)
CLUG http://lisp.org.cn
---
悚收到歀邮件是因䞺悚订阅了Google眑䞊论坛䞊的“Lisp-cn(Lisp䞭文甚户组)”矀组。
芁查看曎倚选项请访问https://groups.google.com/d/optout。

--
--
Lisp-cn(Lisp䞭文甚户组)
CLUG http://lisp.org.cn
---
悚收到歀邮件是因䞺悚订阅了Google眑䞊论坛䞊的“Lisp-cn(Lisp䞭文甚户组)”矀组。
芁查看曎倚选项请访问https://groups.google.com/d/optout。

--
--
Lisp-cn(Lisp䞭文甚户组)
CLUG http://lisp.org.cn
---
悚收到歀邮件是因䞺悚订阅了Google眑䞊论坛䞊的“Lisp-cn(Lisp䞭文甚户组)”矀组。
芁查看曎倚选项请访问https://groups.google.com/d/optout。