|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Yuri Kostylev 2:5050/61 27 Aug 2001 15:14:09 To : artur+usenet@niif.spb.su Subject : Re: XS How? -------------------------------------------------------------------------------- .RFC-X-Complaints-To: news@udmts.elektra.ru .RFC-NNTP-Posting-Date: 27 Aug 2001 11:14:09 GMT From: Yuri Kostylev <yuri@yk.udmts.elektra.ru> artur+usenet@niif.spb.su wrote: YK>> Возникла необходимость сделать обёртку для библиотечной YK>> функции. Описана она таким образом: int Func(char YK>> *in, char **out); Одна проблема - out необходимо YK>> впоследствии освобождать посредством некой библиотечной YK>> функции Free(char *) А пользоваться ей хотелось YK>> бы так: $s = Package::Func(' some data '); Hе могу YK>> въехать, как в .xs создать и вернуть перловую строку, YK>> а ресурс перед возвратом из враппера освободить законным YK>> способом. Что-то в peldoc perlxs не обнаружил намеков.... aunss> perldoc perlxstut? Там вообще примитив. Пришлось пока сделать некий изврат типа вспомогательной функции извлечения char * из T_PTROBJ Вроде работает, но плохо. Периодически отшибается модперл по segm. fault.... Можно каки-либо образом в xs аллоцировать перловую строку, скопировать туда данные? -- богатства тамплиеров. Это, конечно, жалкие крохи по сравнению с их возможностями. --- ifmail v.2.14.os-p7 * Origin: Udmts InterNetNews site (2:5050/61@fidonet) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/170793c32451a.html, оценка из 5, голосов 10
|