Возможно вы искали: 'Картлэнд'

November 28 2024 06:52:29

Статистика

Статей: 87772
Просмотров: 93097738

Игры

Injustice: Gods Among Us ...
Dark Souls 2 Dark Souls II - вторая часть самой хардкорной ролевой игры 2011-2012 года, с новым героем, сюжето...
Battlefield 4 Battlefield 4 - продолжение венценосного мультиплеер-ориентированного шутера от первого ли...

Кино

Steins;Gate Любители японской анимации уже давно поняли ,что аниме сериалы могут дать порой гораздо больше пи...
Ку! Кин-дза-дза Начинающий диджей Толик и всемирно известный виолончелист Владимир Чижов встречают на шумной моск...

Обзоры на игры

• Обзор Ibara [PCB/PS2]	17930
• Обзор The Walking ...	18320
• Обзор DMC: Devil M...	19459
• Обзор на игру Valk...	15461
• Обзор на игру Stars!	17309
• Обзор на Far Cry 3	17503
• Обзор на Resident ...	15545
• Обзор на Chivalry:...	17036
• Обзор на игру Kerb...	17532
• Обзор игры 007: Fr...	16144

Превью о играх

• Превью к игре Comp...	17564
• Превью о игре Mage...	14078
• Превью Incredible ...	14320
• Превью Firefall	13081
• Превью Dead Space 3	15919
• Превью о игре SimC...	14325
• Превью к игре Fuse	15030
• Превью Red Orche...	15153
• Превью Gothic 3	15880
• Превью Black & W...	17004

Главная » Статьи » Разное » Вcтраивание perl-скрипта в программу на С (perl gcc lib)

Вcтраивание perl-скрипта в программу на С (perl gcc lib)

Ключевые слова: perl, gcc, lib, (найти похожие документы)

Date: Mon, 24 Mar 2003 21:42:37 +0500
From: Andrey Sapozhnikov <sapa@icb.chel.su>
Newsgroups: ftn.ru.perl
Subject: Вcтраивание perl-скрипта в программу на С

> Использую Perl API для вcтраивания perl-скрипта в мою программу на С.
> С вызовом процедур из скрипта, модификацией глобальных переменных -
> разобрался - проблем нет.
>
> Вопрос назрел:
> Hа C реализована некая callback-функция. Как её можно вызвать из perl ?

Упрощеный вариант:

#include <EXTERN.h>
#include <perl.h>
#include <perlio.h>
#include <XSUB.h>

static PerlInterpreter *my_perl;

STATIC void
c_callback(pTHX_ CV *cv)
{
dXSARGS;
if (items != 0)
croak("Usage: callback();");

printf("hello from cn");
XSRETURN_YES;
}

EXTERN_C void boot_DynaLoader (pTHX_ CV* cv);

EXTERN_C void
xs_init(pTHX)
{
char *file = __FILE__;
newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
newXSproto("main::callback", c_callback, file, "");
}

int main(int argc, char **argv, char **env)
{
char *myargv[]={ "","test.pl",NULL};
my_perl = perl_alloc();
perl_construct(my_perl);

perl_parse(my_perl, xs_init, 2, myargv, NULL);

call_argv("perl_sub", G_DISCARD, NULL);

perl_destruct(my_perl);
perl_free(my_perl);
}

передавать ссылку никуда не нужно, функция callback() будет
видна в пространстве имен main и в своей функции perl_sub
Вы можете ее просто вызвать по имени. Однако, если Вам
понадобится в будущем чуть больше функциональности, рекомендую
сразу писать расширение как XS (perldoc perlxs, perldoc perlxstut).

P.S. Я в этом примере заодно инициализировал DynaLoader. Почти
наверняка Вам это пригодится.

Ссылки

HTML:
[BB Url]:

Похожие статьи
Название	Добавил	Добавлено
• Вcтраивание perl-скрипта в программ...	Vova	08.05.2012

Ни одного комментария? Будешь первым :).

Пожалуйста, авторизуйтесь для добавления комментария.

Статьи

Рецензия на Pressure Чтобы обратить на себя внимание, начинающие маленькие разработчики, как правило, уходят в жанры, ...
Рецензия на Lost Chron... Игры, сделанные без любви и старания, похожи на воздушный шар – оболочка есть, а внутри пусто. Lo...
Рецензия на The Bridge «Верх» и «низ» в The Bridge — понятия относительные. Прогуливаясь под аркой, можно запросто перей...
Рецензия на SimCity Когда месяц назад состоялся релиз SimCity, по Сети прокатилось цунами народного гнева – глупые ош...
Рецензия на Strategy &... Название Strategy & Tactics: World War II вряд ли кому-то знакомо. Зато одного взгляда на ее скри...
Рецензия на игру Scrib... По сложившейся традиции в информационной карточке игры мы приводим в пример несколько похожих игр...
Рецензия на игру Walki... Зомби и продукция-по-лицензии — которые и сами по себе не лучшие представители игровой биосферы —...