|
ru.unix.bsd
- RU.UNIX.BSD ------------------------------------------------------------------
From : Alex Mogilnikov 2:5054/70 06 Apr 2006 14:59:01
To : Vadim Tzirulnicov.
Subject : Программирование портов ввода-вывода в FreeBSD
--------------------------------------------------------------------------------
04 Apr 06 16:10, Vadim Tzirulnicov. писал All:
VT> Решил реализовать это на пёрле с подключением модулей на Си, нагрузку
VT> подключать к LPT-порту.
======= lpt.pm ===========
package lpt;
require Exporter;
require 'sys/ioctl.ph';
require 'dev/ppbus/ppi.ph';
@ISA = qw(Exporter);
@EXPORT = qw(LPTReadStatus LPTWriteData LPTReadCtrl LPTWriteCtrl);
{
sub LPTWriteData {
local $data = pack("C",$_[1]);
ioctl($_[0],&PPISDATA,$data) or die "ioctl error: $!\n";
}
sub LPTReadStatus {
local $data = "a";
ioctl($_[0],&PPIGSTATUS,$data) or die "ioctl error: $!\n";
ord($data);
}
sub LPTReadCtrl {
local $data = "a";
ioctl($_[0],&PPIGCTRL,$data) or die "ioctl error: $!\n";
ord($data);
}
sub LPTWriteCtrl {
local $data = pack("C",$_[1]);
ioctl($_[0],&PPISCTRL,$data) or die "ioctl error: $!\n";
}
1;
}
==========================
Всего наилучшего, [Team PCAD 2000]
Алексей М.
... мне маны читать некогда, я программист (c) Andrew Wingorodov
---
* Origin: === Сисоп спит - почта идет === (2:5054/70)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
