如何最终确定包含指针的lisp：struct？

作者: 筱梨
发布时间: 2024-01-13 12:33:08 (6月前)
转自：

3 条回复

0#
回复此人
نسر الصحراء | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 以下是一些错误： </p> <OL> <LI> 将终结器附加到可能为null的指针 </LI> <LI> 我不确定你是否可以将终结者附加到外国指针上。也许你是。 </LI> <LI> 你需要小心终结者和gc。如果终结者引用它最终确定的对象，那么对象及其终结者将彼此保持活着（他们不能立即收集它们，因为终结者可能会在某处存储对象的引用，然后该对象将存活，因此不应该最终确定。 </LI> </醇> <P> 我不知道这是否正确，但它更好： </p> <pre> <code> (defun create-lcm (&optional (provider (null-pointer)) (let ((ptr (lcm_create provider))) (when (null-pointer-p ptr) (error 锟斤拷lcm creation error锟斤拷)) (flet ((finaliser () (lcm_destroy ptr))) (let ((result (%create-lcm :pointer ptr :provider provider :file-descriptor (lcm_get_fileno ptr)))) (tg:finalize result #'finaliser) result)))) </code> </pre> <P> 以下是一些错误的事情： </p> <OL> <LI> 如果有错误 <code> %create-lcm </code> 要么 <code> lcm_get_fileno </code> 然后终结者将无法运行 </LI> </醇> </DIV>

编辑
1#
回复此人
故人 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 你可能想读一下 <a href="https://github.com/rpav/cl-autowrap" rel="nofollow noreferrer"> <code> cl-autowrap </code> </A> ，特别用于包装 <EM> SDL 2 </EM> 在 <a href="https://github.com/lispgames/cl-sdl2" rel="nofollow noreferrer"> <code> cl-sdl2 </code> </A> 。该库提供了围绕指针的精简包装器，这些指针在完成时已经释放了内存。 </p> <P> 我认为使用终结器的推荐方法只是用它们来清理可能的泄漏，因为你几乎无法控制执行清理功能的时间和方式（例如哪个线程，哪个动态环境）。 </p> <P> 管理内存的一种方法是提前分配结构，并在不再需要它们时清理它们（池）。或者您可以定义一个函数或宏来定义一个范围，以便在输入内存时分配内存并在退出时使用unwind-protect释放： </p> <pre> <code> (defmacro with-lcm ((context &rest options) &body body) (let ((internal (gensym))) `(let* ((,internal (create-lcm ,@options)) (,context ,internal)) (unwind-protect (progn ,@body) (destroy-lcm ,internal))))) </code> </pre> </DIV>

编辑

登录后才能参与评论