% cd /usr/lnclude; h2ph sys/syscall.h

Однако многие заголовочные файлы включают другие заголовочные файлы; иными словами, придется преобразовать йк все:

% cd /usr/lnclude; h2ph -.h •/*.h

Если вы получите сообщение о слишком большом количестве файлов или если некоторые файлы в подкаталогах не будут найдены, попробуйте другую команду:

% cd /usr/include; find . -папе .h -print xargs h2ph

Комментарий

Файлы с расширением .ph создаются утилитой h2ph, которая преобразует директивы препроцессора С из #1пс1ис1е-файлов в Perl. Это делается для того, чтобы программа на Perl могла работать с теми же константами, что и программа на С. Утилита h2xs обычно оказывается более удачным решением, поскольку вместо кода Perl, имитирующего код С, она предоставляет откомпилированный код С. Однако работа с h2xs требует намного большего опыта программирования (по крайней мере, в том, что касается С), чем h2ph.

Если процесс преобразования Н2рк работает, все прекрасно. Если нет - что ж, вам не повезло. Усложнение системных архитектур и заголовочных файлов приводит к более частым отказам h2ph. Если повезет, необходимые константы уже будут присутствовать в модулях Fcntl, Socket или POSIX. В частности, модуль POSIX реализует константы из sys/file.h, sys/ermo.h и sys/wait.h. Кроме того, он обеспечивает выполнение нестандартных операций с терминалом (см. рецепт 15.8).

Так что же можно сделать с файлом .ph? Рассмотрим несколько примеров. В первом примере непереносимая функция syscall используется для вызова системной функции gettimeofday. Перед вами реализация модуля FineTime, описанного в рецепте 12.11.

# Файл FineTime.рт package main; require sys/syscall.ph; die "No SYS gettimeofday in sys/syscall.ph" unless defined &SYS gettimeofday;

package FineTime;

use strict; require Exporter; use vars qw(@ISA @EXPORT OK); ©ISA = qw(Exporter); @EXPORT OK = qw(time);

sub timeO {

my Stv = pack("LL", ()); # presize buffer to two longs syscall(&main::SYS gettimeofday, Stv, undef) >= 0 or die "gettimeofday; $!";

12.14. Применение h2ph для преобразования заголовочных файлов С 435

myCSseconds, Smicroseconds) = unpackCLL", $tv); return Sseconds + (Smicroseconds / 1 000 000);

>

Если вам приходится вызывать require для старых файлов .р1 или .ph, сделайте это из главного пакета (package main в приведенном выше коде). Эти старые библиотеки всегда помещают свои символические имена в текущий пакет, а main служит «местом встречи». Чтобы использовать имя, уточните его, как мы поступили с main:: SYS gettimeofday.

Файл sys/ioctl.ph, если вам удастся построить его в своей системе, открывает доступ к функциям ввода/вывода вашей системы через функции ioctl. К их числу принадлежит функция TIOCSTI из примера 12.1. Сокращение TIOCSTI означает «управление терминальным вводом/выводом, имитация терминального ввода» (terminal I/O control, simulate terminal input). В системах, где эта функция реализована, она вставляет один символ в поток устройства, чтобы при следующем чтении из устройства со стороны любого процесса был получен вставленный символ.

Пример 12.1. jam

#!/usr/bin/perl -w

# jam - вставка символов в STDIN

require sys/ioctl.ph;

die "no TIOCSTI" unless defined mOCSTI;

sub jam {

local SSIG{TTOU} = "IGNORE"; # "Остановка для вывода на терминал" local TTY; п Создать локальный манипулятор open(TTY, "+</dev/tty") or die "no tty; $i";

for (split( , $ [0])) {

ioctKTTY, &TI0CSTI, $ ) or die "bad TIOCSTI; S!";

close(TTY);

jam("@ARGV\n");

Поскольку преобразование sys/ioctl.h может вызвать некоторые сложности, вероятно, для получения кода TIOCSTI вам придется запустить следующую программу на С:

% cat > tio.c «EOF && со tio.c && а.out

#include <sys/ioctl.h>

mainO { printf("%#08x\n", TIOCSTI); }

0x005412

Функция ioctl также часто применяется для определения размеров текущего окна в строках/столбцах и даже в пикселях. Исходный текст программы приведен в примере 12.2.

436 Глава 12 • Пакеты, библиотеки и модули Пример 12.2. winsz

#! /usr/bin/perl

# winsz - определение размеров окна в символах и пикселях require sys/ioctl.ph;

die "no TIOCGWINSZ " unless defined &TIOCGWINSZ;

open(TTY, "+</dev/tty") or die "No tty: $!";

unless (loctKTTY, &TIOCGWINSZ, $winsize=)) {

die sprintf "$0: ioctl TIOCGWINSZ (%08x: $i)\n", &TI0CGWINSZ;

($row, Scol, Sxpixel, Sypixel) = unpackCS4, Swinsize); print (row,col) = ($row,Scol)";

print " (xpixel,ypixel) = (Sxpixel,Sypixel)" if Sxpixel Sypixel; print "\n",

Как видите, для экспериментов с файлами .ph, распаковкой двоичных данных и вызовами syscall и ioctl необходимо хорошо знать прикладной интерфейс С, обычно скрьшаемый Perl. Единственное, что требует такого же уровня знаний С - это интерфейс XS. Одни считают, что программисты должны бороться с искушением и за версту обходить подобные непереносимые решения. По мнению других, жесткие требования, поставленные перед рядовым программистом, оправдывают самые отчаянные меры.

К счастью, все большее распространение получают менее хрупкие механизмы. Для большинства этих функций появились модули CPAN. Теоретически они работают надежнее, чем обращения к файлам .ph.

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

Описание функций syscall и ioctl вperlmod{i); инструкции по работе с h2ph в файле INSTALL исходной поставки Perl; h2ph{\); рецепт 12.15.

12.15. Применение h2xs для создания модулей с кодом С

Проблема

Вам хотелось бы работать с функциями С из Perl.

Решение

Воспользуйтесь утилитой h2xs для построения необходимых файлов шаблонов, заполните их соответствующим образом и введите:

% perl Makefile. PL % make

Комментарий

При написании модуля Perl необязательно ограничиваться одним Perl. Как и для любого другого модуля, выберите имя и вызовите для него утилиту h2xs. Мы со-