Перед тем как вводить команду make, необходимо сгенерировать make-файл для текущей системной конфигурации с помощью щаблона Makefile.PL. Вот как это делается:

% perl Makefile.PL

Если код XS вызывает библиотечный код, отсутствующий в нормальном наборе библиотек Perl, сначала добавьте в Makefile.pl новую строку. Например, если мы хотим подключить библиотеку librpm.a из каталога /usr/redhat/lib, то нам надо изменить строку Makefile.PL:

LIBS =>[], # e.g , -Im

и привести ее к виду:

LIBS => [-L/usr/redhat/lib -Irpm],

Наконец, отредактируйте файлы FineTime.pm и FineTime.xs. В первом случае большая часть работы уже сделана за нас. Нам остается создать список экспортируемых функций. На этот раз мы помещаем его в @EXPORT OK, чтобы нужные функции запращивались пользователем по имени. Файл FineTime.pm выглядит так:

package Finelime; use strict;

use vars qw($VERSION @ISA @EXPORT OK),

require Exporter;

require OynaLoader;

@ISA = qw(Exporter OynaLoader);

@EXPORT OK = qw(time);

SVERSION = 0.01;

bootstrap Finelime $VERSI0N;

здадим функцию FineTime::time с той же семантикой, что и в предыдущем рецепте, но на этот раз реализуем ее на С.

Сначала выполните следующую команду:

% h2xs -СП Finelime

Если бы у нас был файл .h с объявлениями прототипов функций, его можно было бы включить, но поскольку мы нищем модуль с нуля, используется флаг -с - тем самым мы отказываемся от построения кода, преобразующего директивы #def 1пе. Флаг -п требует создать для модуля каталог FineTime/, в котором будут находиться следующие файлы:

Маке автоматически преобразует файл FineTimejcs в FineTime.c и общую библиотеку, которая на больщинстве платформ будет называться FineTime. Преобразование выполняется утилитой xsubpp, описанной в ее собственной странице руководства nperlxstut{\). Xsubpp автоматически вызывается в процессе построения.

Кроме хороших познаний в С, вы также должны разбираться в интерфейсе С-Рег1, который называется XS (eXternal Subroutine). Подробности и нюансы XS выходят за рамки этой книги. Автоматически сгенерированный файл FineTimejcs содержит заголовочные файлы, специфические для Perl, а также объявление MODULE. Мы добавили несколько дополнительных файлов и переписали код новой функции time. На С пока не похоже, но после заверщения работы xsubpp все придет в норму.

Использованный нами файл FineTimejcs выглядит так:

#include <unistd.h> #include <sys/time.h> #include •EXTERN.h" #include "perl.h" #include "XSUB.h"

MODULE = FineTime PACKAGE = FineTime

double time() CODE:

struct timeval tv;

gettimeofday(&tv,0);

RETVAL = tv.tv sec + ((double) tv.tv usec) / 1000000; OUTPUT: RETVAL

Определение функции с именем, присутствующем в стандартной библиотеке С, не вызовет проблем при компиляции - это не настоящее имя, а лишь псевдоним, используемый Perl. Компоновщик С увидит функцию с именем XS FineTime time, поэтому конфликта не будет.

При выполнении команды make insta-ll происходит следующее (с небольшими исправлениями);

% make install

mkdir ./blib/lib/auto/FineTime

cp FineTime.pm ./blib/lib/FineTime.pm

/usr/local/bin/perl -I/usr/lib/perl5/i686-linux/5.00403 -I/usr/lib/perl5 /usr/lib/perl5/ExtUtils/xsubpp -typemap

/usr/lib/perl5/ExtUtils/typemap FineTime.xs FineTime.tc && mv FineTime.tc FineTime.ccc -c -Dbool=cbar -DHAS B00L

-02-DVERSI0N=\"0.01\" -DXS VERSI0N=\"0.01\- -fpic

-I/usr/lib/perl5/i686-linux/5.00403/C0RE FineTime.cRunning Mkbootstrap for FineTime () chmod 644 FineTime.bs

LD RUN PATH="" cc -o blib/arch/auto/FineTime/FineTime.so

-shared -L/usr/local/lib FineTime.о chmod 755 blib/arch/auto/FineTime/FineTime.so

ср FineTime.bs ./blib/arch/auto/FineTime/FineTime.bs chmod 644 blib/arch/auto/FineTime/FineTime. bs

Installing /home/tchrist/perllib/i686-linux/./auto/FineTime/FineTime.so

Installing /home/tchrist/perllib/i686-linux/./auto/FineTime/FineTime, bs

Installing /home/tchrist/perllib/./FineTime.pm

Writing /home/tchrist/perllib/i686-linux/auto/FineTime/.packlist

Appending installation info to /home/tchrist/perllib/i686-linux/perllocal.pod

Когда все будет готово, в интерпретаторе вводится следующая команда:

% perl -I "/perllib -MFineTime=time -le 1 while print time() head

888177070.090978

888177070.09132

888177070.091389

888177070.091453

888177070.091515

888177070.091577

888177070.091639

888177070.0917

888177070.091763

888177070.091864

> Смотри также-

Документация по стандартному модулю ExtUtils::MakeMaker; h2ph(i) ихзи-bpp(i). Вызовы функций С из Perl описаны в perlxstut(l) и perlxs(l), а вызовы функций Perl из С - в perlembed(l). Внутренний API Perl рассматривается в perlcaH(i) iiperlguts(l). По адресу http: www.perl.com/CPAN/authors/Dean Roehrich/ находится подробное руководство по XS с рекомендациями по организации интерфейса с С++.

12.16. Документирование модуля в формате pod

Проблема

Вы хотите документировать свой модуль, но не знаете, какой формат следует использовать.

Решение

Включите документацию в файл модуля в формате pod.

Комментарий

Сокращение pod означает «plain old documentation*, то есть «простая документация». Документация в формате pod включается в программу с применением очень простого формата разметки. Как известно, программисты сначала пищут программу, а документацию... не пищут вообще. Формат pod был разработан для максимальной простоты документирования, чтобы с этой задачей справился даже лентяй. Иногда это даже помогает.