[ новости /+++ | форум | теги | ]

Каталог документации / Раздел "Perl" / Оглавление документа

Низкоуровневое программирование параллельных портов под *nix

На языке с запрограммировать lpt порт можно например так(примеры более или менее продвинутых программ внизу текста по ссылкам):

#include <stdio.h>
#include <unistd.h>
#include <asm/io.h>

#define base 0x278
#define time 100000

int main(){
  int x = 0x32;
  printf("идет импульс в парралельный порт !\n");
  if (ioperm(base,3,1))
  printf("Couldn't get port at %x\n", base), exit(1);
  if (ioperm(base, 3, 1)) {perror("ioperm"); exit(1);}
  while(1){
    outb(x, base);
    usleep(time);
    outb(0, base);
    usleep(time);
  }
}
exit(0);

Использованы две функции, ioperm и outb. Первая устанавливает права на работу с портами ввода/вывода. Вторая пишет в порт, в основном она предназначена для использования в ядре. Функция inb соответственно читает из порта.

читая man ioperm:
Libc5 рассматривает ioperm как системный вызов, и поэтому в unistd.h есть ее прототип. В Glibc1 этого прототипа нет. В Glibc2, в sys/io.h и в sys/perm.h этот прототип есть. Второй вариант существует только в i386.

lpt порт - это несколько регистров, в которые можно писать командой скажем outb(). 278 порт это порт данных, если писать 0x5(двоичное 00000101 то 2,5 вольта будут, в соответствии с единицами в двоичном числе, на 2-м и 4-м контактах). Если же писать через /dev/lp, то получается аналогично, но придется выставлять внешний сигнал busy. Этот сигнал нужно выставлять или джампером на материнской плате, или в BIOS, в зависимости от марки платы. когда включается порт на материнской плате, то она устанавивает регистры на правильные порты и прерывания, затем, если сделать insmod linux, то драйвер прикрепляется на на соответствующие устройства и отвечает за обмен по принтерному протоколу, т.е. правильно выставляет сигналы strobe init.
(from некто john www.linux.org.ru)

Чтобы программировать порты на, скажем python, можно воспользоваться Simplified Wrapper and Interface Generator - SWIG.

Например программа пишущая в порт:

#include <asm/io.h>
int main(){
   iopl(3);
   outb(1, 0x378);
}

#include <asm/io.h> 

int py_iopl(int level){
  return iopl(level);
}
void py_outb(unsigned char val, int port){
  outb(val, port);
}                                                
unsigned char py_inb(int port)
{
  return inb(port);
}                                

>>>import io
>>>io.py_iopl(3)
>>>io.py_outb(10, 0x378)
>>>io.py_inb(0x378)
10
>>>

Для того, чтобы включить код на языке с в модуль perl, читаем man perlxstut или

http://www.perldoc.com/perl5.6.1/pod/perlxstut.html#EXAMPLE-1

именно первый пример!!!

создаем файл .xs с таким кодом(т.е. оно его конечно само создаст, но то что оно создало, надо вытереть):

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include <stdio.h>
#include <unistd.h>
#include <asm/io.h>

#define base 0x278
#define time 100000

MODULE = port           PACKAGE = port          

int
main()
CODE:
  int x = 0x32;
  printf("Пошел импульс в паралельный порт !\n");
  if (ioperm(base,3,1))
    printf("Couldn't get port at %x\n", base), exit(1);
  if (ioperm(base, 3, 1)) {perror("ioperm"); exit(1);}
  while(1){
    outb(x, base); /*посылаем 00110010 в порт*/
    usleep(time);
    outb(0, base);
    usleep(time);
  }
exit(0);

[root@mobile100 port]# perl Makefile.PL; make; make test
Writing Makefile for port
gcc -c  -fno-strict-aliasing -I/usr/local/include -O2 -march=i386 -mcpu=i686
-DVERSION=\"0.01\" -DXS_VERSION=\"0.01\" -fPIC
-I/usr/lib/perl5/5.6.0/i386-linux/CORE  port.c
Running Mkbootstrap for port ()
chmod 644 port.bs
LD_RUN_PATH="" gcc -o blib/arch/auto/port/port.so  -shared -L/usr/local/lib
port.o     
chmod 755 blib/arch/auto/port/port.so
cp port.bs blib/arch/auto/port/port.bs
chmod 644 blib/arch/auto/port/port.bs
Manifying blib/man3/port.3pm
PERL_DL_NONLAZY=1 /usr/bin/perl -Iblib/arch -Iblib/lib
-I/usr/lib/perl5/5.6.0/i386-linux -I/usr/lib/perl5/5.6.0 test.pl
1..1
ok 1
[root@mobile100 port]# 

и пишется скрипт:

#!/usr/bin/perl
use ExtUtils::testlib;
use Mytest;
Mytest::main();

File u.pl not changed so no update needed.
[root@mobile100 port]# ./u.pl
Пошел импульс в паралельный порт !

[root@mobile100 port]#

Cобственно почему такой суррогат и не выложил готовый модуль*.tar.gz, не разобрался с межпроцессорным взаимодействием между сишными и перловыми программами(имхо, только через IPC это сделать грамотно и можно, но это долго). Потому представляю вам, если более знакомы с межпроцессорным взаимодействием через pipe или семафоры самим написать данный код, перловая же часть более менее понятна.

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

Конфигурация машины(хотя это врядли важно, сишные библиотеки стандартные):

p266, ASUS.

[root@mobile100 perl]# uname --all 
Linux mobile100 2.2.19-3.asp #1 Fri Apr 6 14:49:33 MSD 2001 i686
unknown
[root@mobile100 perl]# 

где про это все прочитать можно:

1. http://www.opennet.dev/docs/RUS/Lpg/lpg.txt.html про пайпы и семафоры и пр. что как-раз не вышло.
2. http://www.linux.org.ru/books/HOWTO/Printing-HOWTO-3.html#ss3.1 там есть одна вещь, в биос компьютера должен быть включен parallel port *78/IRQ7, ну, вобщем чтобы не было там disabled, иначе тогда когда говоришь modprobe lp то в /proc/devices не добавляется lp, т.е. без драйвера обратиться к параллельному порту не получится.
3. http://www.thailinux.com/2001/01/21/topic4.html - немного программок, из латинского текста все ясно
4. http://www.opennet.dev/docs/HOWTO-RU/mini/IO-Port-Programming.html ну детальнейшее описание просто(про perl ни слова)...
5. Описание парралельного порта

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

Партнёры:

Хостинг: