Подтвердить что ты не робот

Вызов функции C из Perl внутри встроенного приложения C

Хорошо, это очень интересный вопрос, и, возможно, не будет никакого простого способа сделать это, но подумал, что я бы бросил это там, прежде чем решить, что изменение Perl - это мой основной ответ.

Итак, у меня есть приложение C, которое вызывает Perl-скрипты встроенным способом. Все это прекрасно работает и денди, и это довольно удивительно, что я могу передавать информацию и получать информацию обратно. ОДНАКО, теперь на следующее завоевание; Мне нужно, чтобы мои встроенные script могли вызвать некоторые функции в приложении C, которые ORIGINALLY CALLED IT.

Это важно, потому что XSUB требует, чтобы он был внешней библиотекой; но я не хочу, чтобы это была внешняя библиотека, я хочу, чтобы это был прямой вызов функции (ов) C. Теперь, возможно, это можно сделать через XSUB, и я только что читал и понимал это неправильно.

Application -(run)-> Perl

Application <-(function_x())- Perl

Application -(returnfunction_x)-> Perl

Причина, по которой эта внешняя библиотека не может быть внешней, заключается в том, что я полагаюсь на данные, которые создаются/сохраняются только в приложении.

4b9b3361

ОТВЕТЫ

Ответ 1

XSUB фактически не требуют наличия внешней библиотеки. Они просто предоставляют возможность вызова функции c из perl-пространства и обеспечивают некоторое удобство при сопоставлении вызывающих соглашений между C и Perl.

Все, что вам нужно сделать, это зарегистрировать XSUB, скомпилированные в приложение для встраивания, с помощью встроенного интерпретатора perl.

#include "XSUB.h"

XS(XS_some_func);
XS(XS_some_func)
{
    dXSARGS;
    char *str_from_perl, *str_from_c;

    /* get SV*s from the stack usign ST(x) and friends, do stuff to them */
    str_from_perl = SvPV_nolen(ST(0));

    /* do your c thing calling back to your application, or whatever */
    str_from_c = some_c_func(str_from_perl);

    /* pack up the c retval into an sv again and return it on the stack */
    mXPUSHp(c_str);
    XSRETURN(1);
}

/* register the above XSUB with the perl interpreter after creating it */
newXS("Some::Perl::function", XS_some_func, __FILE__);

При встраивании perl такие вещи обычно выполняются в функции xs_init, которую вы передаете в parse_perl.

EXTERN_C void boot_DynaLoader (pTHX_ CV* cv);

static void
xs_init (pTHX)
{
    newXS("Some::Perl::function", XS_some_func, __FILE__);
    /* possibly also boot DynaLoader and friends. perlembed has more
     * details on this, and ExtUtils::Embed helps as well. */
    newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
}

perl_parse(my_perl, xs_init, argc, my_argv, NULL);

После этого вы сможете позвонить в XSUB как Some::Perl::function из perl-пространства и что XSUB, в свою очередь, сможет возвращать ваше приложение любым способом, который он хочет.