Совсем не XS, но возможно даст кое какие идеи как генерировать:
https://metacpan.org/source/SHAY/perl-5.26.1/lib/Symbol.pm#L100
22.11.2017, 22:21, "Толян II via Moscow-pm" <moscow-pm@pm.org>:
То, что надо. С несущественными изменениями полет нормальный :)
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 <moscow-pm@pm.org> написал:Добрый день,
22 ноября 2017 г., 16:30 пользователь Толян II via Moscow-pm
<moscow-pm@pm.org> написал:
> Понадобилось в 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
moscow-pm@pm.org | http://moscow.pm.org
Moscow.pm mailing list
moscow-pm@pm.org | http://moscow.pm.org
-- Moscow.pm mailing list moscow-pm@pm.org | http://moscow.pm.org
