Совсем не XS, но возможно даст кое какие идеи как генерировать:
https://metacpan.org/source/SHAY/perl-5.26.1/lib/Symbol.pm#L100
22.11.2017, 22:21, "Толян II via Moscow-pm" <[email protected]>:
То, что надо. С несущественными изменениями полет нормальный :)
SV* gv = newSV(0);
gv_init_pvn(gv, gv_stashpvn("OK", 0, 0), "VICTORY", 7, GV_ADDMULTI);
,--22 ноября 2017 г., 18:53 пользователь Sergey Aleynikov via Moscow-pm <[email protected]> написал:Добрый день,
22 ноября 2017 г., 16:30 пользователь Толян II via Moscow-pm
<[email protected]> написал:
> Понадобилось в perlxs генерировать анонимные typeglob.
Минимальный код выглядит примерно так,
SV* gv = newSV(0);
gv_init_pvn(gv, gv_stashpvn("main", 4, 0), "test", 4, GV_ADDMULTI);
Но, в зависимости от того, как будете использовать результат, он может
значительно измениться - т.к. какие-то функции ждут валидного EGV и
т.д.
Best regards,
Sergey Aleynikov
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org
Moscow.pm mailing list
[email protected] | http://moscow.pm.org
-- Moscow.pm mailing list [email protected] | http://moscow.pm.org
