Linux IR HOWTO

Better red, than dead. - Unknown AuthorEss

cd /usr/src
tar xvzf patch-2_2.0-irdaXXX.tar.gz
cd linux
patch -p1 -l < ../patch-2_2.0-irdaXXX 

make dep && make all && make modules && make install && make modules_install

#define PF_IRDA          23
#define AF_IRDA          PF_IRDA

#define ARPHRD_IRDA      783
#define ETH_P_IRDA       0x0017

drivers
network
network.opts
obex

#! /bin/sh
#
# drivers
#
# Initialize and shutdown IrDA device drivers.
#
# This script should be invoked with two arguments. The first is the
# action to be taken, either "start", "stop", or "restart".
#

action=$1
device=$2

case "${action:?}" in
start)
    irattach /dev/ttyS2          # The third serial port is an IrDA port
    # irattach /dev/ttyS0 -d esi # Attach a ESI dongle to the first serial port
    # insmod pc87108             # If your machine as a pc87108 FIR chipset
    ;;
stop)
    killall irattach             # ... or something. Currently not used
    ;;
restart)
    /sbin/ifconfig ${device:?} down up
    ;;
esac

dagbnb /home/dagb/linux/irda-utils/irdaping/ # ./irdaping 0xf7be8388 
IrDA ping (0xf7be8388): 32 bytes
32 bytes from 0xf7be8388: irda_seq=0 time=102.466003 ms.
32 bytes from 0xf7be8388: irda_seq=1 time=102.202003 ms.
32 bytes from 0xf7be8388: irda_seq=2 time=102.170998 ms.
32 bytes from 0xf7be8388: irda_seq=3 time=101.633003 ms.

4 packets received by filter

dagbnb /home/dagb/linux/irda-utils/irdadump/ # ./irdadump 

20:18:15.305711 xid:cmd:saddr=0x05c589 > daddr=0xffffffff,S=6,s=0
20:18:15.385597 xid:cmd:saddr=0x05c589 > daddr=0xffffffff,S=6,s=1
20:18:15.465568 xid:cmd:saddr=0x05c589 > daddr=0xffffffff,S=6,s=2
20:18:15.545953 xid:cmd:saddr=0x05c589 > daddr=0xffffffff,S=6,s=3
20:18:15.625574 xid:cmd:saddr=0x05c589 > daddr=0xffffffff,S=6,s=4
20:18:15.705575 xid:cmd:saddr=0x05c589 > daddr=0xffffffff,S=6,s=5
20:18:15.785601 xid:cmd:saddr=0x05c589 > daddr=0xffffffff,S=6,s=255,info=Linux
20:18:18.075526 xid:cmd:saddr=0xb50c14b > daddr=0xffffffff,S=6,s=0
20:18:18.225498 xid:cmd:saddr=0xb50c14b > daddr=0xffffffff,S=6,s=1
20:18:18.375495 xid:cmd:saddr=0xb50c14b > daddr=0xffffffff,S=6,s=2
20:18:18.526355 xid:cmd:saddr=0xb50c14b > daddr=0xffffffff,S=6,s=3
20:18:18.675614 xid:cmd:saddr=0xb50c14b > daddr=0xffffffff,S=6,s=4
20:18:18.676364 xid:rsp:saddr=0x05c589 > daddr=0xb50c14b,S=6,s=4
20:18:18.765506 xid:cmd:saddr=0xb50c14b > daddr=0xffffffff,S=6,s=5
20:18:18.927221 xid:cmd:saddr=0xb50c14b > daddr=0xffffffff,S=6,s=255,info=Palm III
20:18:18.975796 snrm:cmd,ca=0xfe,pf=1
20:18:18.976534 ua:rsp,ca=0x58,pf=1
20:18:18.977145 ua:rsp,ca=0x58,pf=1
20:18:19.585627 rr:rsp,ca=0x58,nr=0,pf=1
20:18:19.585810 rr:rsp,ca=0x58,nr=0,pf=1
20:18:19.606413 i:cmd,ca=0x58,nr=0,ns=0,pf=1
20:18:19.606582 rr:rsp,ca=0x58,nr=1,pf=1
20:18:19.627708 rr:cmd,ca=0x58,nr=0,pf=1
20:18:19.627871 i:rsp,ca=0x58,nr=1,ns=0,pf=1
20:18:19.650571 disc:cmd,ca=0x58,pf=1
20:18:19.650736 ua:rsp,ca=0x58,pf=1
20:18:21.165524 xid:cmd:saddr=0xb50c14b > daddr=0xffffffff,S=6,s=0
20:18:21.315608 xid:cmd:saddr=0xb50c14b > daddr=0xffffffff,S=6,s=1
20:18:21.315793 xid:rsp:saddr=0x05c589 > daddr=0xb50c14b,S=6,s=1
20:18:21.395499 xid:cmd:saddr=0xb50c14b > daddr=0xffffffff,S=6,s=2
20:18:21.545516 xid:cmd:saddr=0xb50c14b > daddr=0xffffffff,S=6,s=3
20:18:21.695500 xid:cmd:saddr=0xb50c14b > daddr=0xffffffff,S=6,s=4
20:18:21.845840 xid:cmd:saddr=0xb50c14b > daddr=0xffffffff,S=6,s=5
20:18:22.007222 xid:cmd:saddr=0xb50c14b > daddr=0xffffffff,S=6,s=255,info=Palm III
20:18:22.056143 snrm:cmd,ca=0xfe,pf=1
20:18:22.056310 ua:rsp,ca=0xc8,pf=1
20:18:22.056381 ua:rsp,ca=0xc8,pf=1

37 pacckets received by filter

# IrDA
alias tty-ldisc-11 irtty
alias char-major-161 ircomm-tty

dagbnb /usr/src/ > ll /dev/ir*
crw-------   1 dagb     161,   0 Aug 25 20:13 /dev/ircomm0
crw-rw-rw-   1 root     161,   1 Jun 18 13:44 /dev/ircomm1
crw-rw-rw-   1 root     161,  16 Jun 18 13:44 /dev/irlpt0
crw-rw-rw-   1 root     161,  17 Jun 18 13:44 /dev/irlpt1

Makefile
network*
network.redhat*
serial
drivers
network.opts
obex
printer

irattach /dev/ttyS2 &
irmanager -d 1           # -d 1 means: start discovery process

Device Drivers
  module "irtty" script="irattach /dev/ttyS2"
  module "smc_ircc" irq=11 port=0x34f

IrDA irda_device irda0 registered.

Serial driver version 4.25 with no serial options enabled
ttyS00 at 0x03f8 (irq = 4) is a 16550A     #first serial port /dev/ttyS0
ttyS01 at 0x3000 (irq = 10) is a 16550A    #e.g. infrared port
ttyS02 at 0x0300 (irq = 3) is a 16550A     #e.g. PCMCIA modem port

Jan  2 12:57:26 japh kernel: ttyS00 at 0x03f8 (irq = 4) is a 16550A
Jan  2 12:57:26 japh kernel: ttyS02 at 0x03e8 (irq = 4) is a 16550A
Jan  2 12:57:26 japh kernel: Linux Support for the IrDA (tm) protocols (Dag Brattli)
Jan  2 12:59:09 japh syslog: executing: 'echo 1 > /proc/sys/net/irda/discovery'
Jan  2 12:59:09 japh syslog: Setting discovery to 1 exited with status 1
Jan  2 12:59:09 japh syslog: + 0.1 Fri Jul 25 11:45:26 1997 Dag Brattli
Jan  2 12:59:09 japh syslog: + 0.1 Fri Jul 25 11:45:26 1997 Dag Brattli
Jan  2 12:59:09 japh syslog: Serial connection established.
Jan  2 12:59:09 japh kernel: IrDA irda_device irda0 registered.
Jan  2 13:01:22 japh syslog: executing: './drivers start '
Jan  2 13:01:22 japh syslog: Serial connection established.
Jan  2 13:01:42 japh syslogd: Printing partial message
Jan  2 13:01:42 japh 0.1 Fri Jul 25 11:45:26 1997 Dag Brattli 
Jan  2 13:02:49 japh kernel: IrDA Discovered: japh
Jan  2 13:02:49 japh kernel:     Services: Computer 

modprobe tekram         # or esi or actisys
irmanager -d 1          # 
irattach -d tekram      # or -d esi or -d actisys

modprobe tekram
modprobe esi
irattach /dev/ttyS0 -d esi &
irattach /dev/ttyS1 -d tekram &

irattach /dev/ttyS0 -d actisys     # for the 220L dongle 
irattach /dev/ttyS0 -d actisys+    # for the 220L+ dongle

irmanager -d 1
modprobe pc87108

/sbin/insmod irlpt_server 
/sbin/mknod /dev/irlptd c 10 `grep irlptd /proc/misc|cut -f 1` 

#/bin/sh
#
while (true)
do
cat /dev/irlptd | lpr
done

int discover_devices(int fd)
{
    struct irda_device_list *list;
    unsigned char buf[sizeof(struct irda_device_list) +
                      sizeof(struct irda_device_info) * MAX_DEVICES];
    int len;
    int daddr;
    int i;

    len = sizeof(struct irda_device_list) +
          sizeof(struct irda_device_info) * MAX_DEVICES;
    list = (struct irda_device_list *) buf;

    if (getsockopt(sfd, SOL_IRLMP, IRLMP_ENUMDEVICES, buf, &len)) {
        perror("getsockopt");
        exit(-1);
    }
    if (len > 0) {
        /* 
         * Just pick the first one, but we should really ask the 
         * user 
         */
        daddr = list->dev[0].daddr;

        printf("Discovered: (list len=%d)\n", list->len);

        for (i=0;i<list->len;i++) {
            printf("  name:  %s\n", list->dev[i].info);
            printf("  daddr: %08x\n", list->dev[i].daddr);
            printf("  saddr: %08x\n", list->dev[i].saddr);
            printf("\n");
        }
    }
    return daddr;
}

void client()
{
    struct sockaddr_irda peer;
    int addrlen = sizeof(struct sockaddr_irda);
    int daddr, actual;
    char buf[1024];

    fd = socket(AF_IRDA, SOCK_STREAM, 0);

    daddr = discover_devices(fd);

    peer.sir_family = AF_IRDA;
    strcpy(peer.sir_name, "P1284");
    peer.sir_addr = daddr;

    connect(fd, (struct sockaddr *) &daddr, sizeof(struct sockaddr_irda));

    /* Try to send something */
    actual = send(fd, "Testing", 8, 0);

    /* Try to read reply */
    actual = recv(fd, buf, 1024, 0); 
}

irmanager -d1
/sbin/modprobe pc87108  # remove irattach from /etc/irda/drivers, or
                        # substitute irattach with the modprobe!

modprobe irlan_client # not really necessary since irmanager should do this!

modprobe irlan_server

---------- irlib.h from the SDK 3.0 from palmpilot -----
// Options values for IrOpen
#define irOpenOptBackground     0x80000000              // Unsupported background task use
#define irOpenOptSpeed115200    0x0000003F              // sets max negotiated baud rate
#define irOpenOptSpeed57600     0x0000001F              // default is 57600
#define irOpenOptSpeed9600      0x00000003
-------------- end quote --------------------------------

# IrDA
alias tty-ldisc-11 irtty
alias char-major-161 ircomm-tty

#! /bin/sh
#
# drivers
#
# Initialize and shutdown IrDA device drivers.
#
# This script should be invoked with two arguments.  The first is the
# action to be taken, either "start", "stop", or "restart".
#

action=$1
device=$2

case "${action:?}" in
start)
        /usr/local/sbin/irattach /dev/ttyS0          # The third serial port is an IrDA port
        # irattach /dev/ttyS0 -d esi # Attach a ESI dongle to the first serial port
        # irattach /dev/ttyS0 -d tekram
        # insmod pc87108             # If your machine as a pc87108 FIR chipset
        # modprobe uircc             # Sharp UIRCC chipset
    ;;
stop)
        killall irattach             # ... or something. Currently not used
    ;;
restart)
        /sbin/ifconfig ${device:?} down up
    ;;
esac

#! /bin/sh
# Copyright (c) 1995-1998 SuSE GmbH Nuernberg, Germany.
#
# Author: hm
#
# /sbin/init.d/irda
#
#   and symbolic its link
#
# /sbin/rc<skeleton>
#

. /etc/rc.config

# Determine the base and follow a runlevel link name.
base=${0##*/}
link=${base#*[SK][0-9][0-9]}

# Force execution if not called by a runlevel directory.
test $link = $base && START_IRDA=yes
test "$START_IRDA" = yes || exit 0

# The echo return value for success (defined in /etc/rc.config).
return=$rc_done
case "$1" in
    start)
        echo -n "Starting service irda"
        ## Start daemon with startproc(8). If this fails
        ## the echo return value is set appropriate.

        startproc /usr/local/sbin/irattach /dev/ttyS0 || return=$rc_failed
        startproc /usr/local/sbin/irmanager -s1 -d0 || return=$rc_failed

        echo -e "$return"
        ;;
    stop)
        echo -n "Shutting down service irda"
        ## Stop daemon with killproc(8) and if this fails
        ## set echo the echo return value.

        killproc -TERM /usr/local/sbin/irmanager || return=$rc_failed
        killproc -TERM /usr/local/sbin/irattach || return=$rc_failed
        for i in ircomm_tty ircomm irtty irda ; do 
                rmmod $i; 
        done

        echo -e "$return"
        ;;
    restart)
        ## If first returns OK call the second, if first or
        ## second command fails, set echo return value.
        $0 stop  &&  $0 start  ||  return=$rc_failed
        ;;
    reload)
        ## Choose ONE of the following two cases:

        ## First possibility: A few services accepts a signal
        ## to reread the (changed) configuration.

        #echo -n "Reload service foo"
        #killproc -HUP /usr/sbin/foo || return=$rc_failed
        #echo -e "$return"

        ## Exclusive possibility: Some services must be stopped
        ## and started to force a new load of the configuration.

        #$0 stop  &&  $0 start  ||  return=$rc_failed
        ;;
    status)
        echo -n "Checking for service foo: "
        ## Check status with checkproc(8), if process is running
        ## checkproc will return with exit status 0.

        #checkproc /usr/sbin/foo && echo OK || echo No process
        ;;
    probe)
        ## Optional: Probe for the necessity of a reload,
        ## give out the argument which is required for a reload.

        #test /etc/foo.conf -nt /var/run/foo.pid && echo reload
        ;;
    *)
        echo "Usage: $0 {start|stop|status|restart|reload[|probe]}"
        exit 1
        ;;
esac

# Inform the caller not only verbosely and set an exit status.
test "$return" = "$rc_done" || exit 1
exit 0

dip -t
> port irnine
> term

alias tty-ldisc-11 irtty
alias char-major-60 ircomm_tty

<ABORT stuff>
"" \d\d\d\d\d\dATZE0
OK ATD<phone number to call)
CONNECT \d\c

noauth
connect "/usr/sbin/chat -v -f /etc/chatscripts/sh888"
/dev/ircomm
115200
defaultroute
noipdefault
user <your username> # don't forget to add your password to chap secrets or chat script

0>1: UUUUUUUUUUUUUUUUUUUUUUUU
line 0: LE *DTR *RTS ST SR CTS CD RI *DSR
line 1: LE *DTR *RTS ST SR CTS CD RI *DSR
0>1: UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU
UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU
UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU
UUUUUUUUUUUUUUU\x1e\x00\x0c\x02\x00\x09\x00\x01\x00\x0d\x00\x00\x02\x01@\x00P\x
06
1>0: \x18\x00\x00\x00\xfc\x18\x00\x00\x00\x00\x00\x00\xc0\xf0
0>1: \x1e\x00\x0c\x02\x00\x09\x00\x01\x00\x0d\x00\x00\x02\x01@\x00P\x06
1>0: \x18\x00\x00\x00\x18\x00\x00\xc0\xf0\x18\x00\x00\x00\x00\x00\x00\xc0\xf0
0>1: \x1e\x00\x0cd\x00\x06\x00\x01\x00\x10\x01`\x13\x13
1>0: \x18\x00\x00\xf0\x00\x00\xfc
0>1: \x1e\x00\x0cd\x00\x06\x00\x01\x00\x10\x01`\x13\x13

Discover:
0:xxxxxxxx:81.01
        01  IR_HINT_PNP     01  IR_HINT_TELEPHONY (IrMC ?)
        80  IR_HINT_EXT

Device info query:
\006Device\012DeviceName
        4e 6f 6b 69 61 20 36 31 30 30           Nokia 6100

insmod irda 
insmod irtty 
irattach /dev/cua0

alias char-major-60 ircomm_tty

T1:23:respawn:/sbin/getty -L -w irnine 38400 vt100

Sep 4 10:01:02 monolith kernel: parse_control:instruction(0x12)
Sep 4 10:01:02 monolith kernel: data:03

# set ircomm protocol engine to client-only mode
options ircomm ircomm_cs=1

irattach /dev/ttyS0 &    (my ESI dongle)
irattach /dev/ttyS2 &    (my builtin IrDA port)

insmod irlan_client
insmod irobex

Serial driver version 4.25 with no serial options enabled
ttyS00 at 0x03f8 (irq = 4) is a 16550A     #first serial port /dev/ttyS0
ttyS01 at 0x3000 (irq = 10) is a 16550A    #e.g. infrared port
ttyS02 at 0x0300 (irq = 3) is a 16550A     #e.g. PCMCIA modem port

IBM0002   IBM Thinkpad Infrared Port
IBM0034   IBM Thinkpad Infrared Port
PNP0510   Generic IRDA-compatible device
PNP8294   IrDA Infrared NDIS driver (Microsoft-supplied)
PNP8389   Peer IrLAN infrared driver (Microsoft-supplied)

-rw-rw-r--   1 ratbert  ratbert       743 Apr  3  1997 smcirlap.inf 
-rw-rw-r--   1 ratbert  ratbert     17021 Mar 24  1997 smcirlap.vxd 
-rw-rw-r--   1 ratbert  ratbert      1903 Jul 18  1997 smcser.inf 
-rw-rw-r--   1 ratbert  ratbert     31350 Jun  7  1997 smcser.vxd 

     In current devNode:
           Size      = 78
           Handle    = 14
           ID        = 0x1105D041 = 'PNP0511' -- Generic IrDA SIR
           Types:  Base = 0x07, Sub = 0x00,  Interface = 0x02
                Comm. Device, RS-232, 16550-compatible
           Attribute = 0x80
                CAN be disabled
                CAN be configured
                BOTH Static & Dynamic configuration
      Allocated Resource Descriptor Block TAG's:
           TAG=0x47, Length=7 I/O Tag, 16-bit Decode
                                   Min=0x03E8, Max=0x03E8
                                   Align=0x00, Range=0x08
           TAG=0x22, Length=2 IRQ Tag, Mask=0x0010
           TAG=0x79, Length=1 END Tag, Data=0x2F

     In current devNode:
          Size      = 529
          Handle    = 14
          ID        = 0x10F0A34D = 'SMCF010' -- SMC IrCC
          Types:  Base = 0x07, Sub = 0x00,  Interface = 0x02
               Comm. Device, RS-232, 16550-compatible
          Attribute = 0x80
               CAN be disabled
               CAN be configured
               BOTH Static & Dynamic configuration 

     Allocated Resource Descriptor Block TAG's:
          TAG=0x47, Length=7 I/O Tag, 16-bit Decode
                                  Min=0x02F8, Max=0x02F8
                                  Align=0x00, Range=0x08
          TAG=0x22, Length=2 IRQ Tag, Mask=0x0008
          TAG=0x47, Length=7 I/O Tag, 16-bit Decode
                                  Min=0x02E8, Max=0x02E8
                                  Align=0x00, Range=0x08
          TAG=0x2A, Length=2 DMA Tag, Mask=0x02, Info=0x08
          TAG=0x79, Length=1 END Tag, Data=0x00

    LEDs        Encode/Decode        SIR/FIR

   HSDL-1001    HSDL-7001          UART 16550/
                                  MicroController
   ______      ______________      ____________
  |      |    |              |    |            |
(||   TXD|<---|IR_TXD     TXD|<---|SOUT        |
  |      |    |              |    |            |
  |      |    |           RCV|--->|SIN         |
  |      |    |              |    |            |
(||   RCV|--->|IR_RCV  16XCLK|<---|BAUDOUT     |
  |      |    |          NRST|-+  |            |
   ------      --------------  |   ------------
                               V

uname -a
cat /proc/net/irda/irlan
cat /proc/net/irda/irlap
irdadump 

root@duckman:~# ls /proc/sys/net/irda/* /proc/net/irda/*
/proc/net/irda/discovery        /proc/net/irda/irlmp            /proc/sys/net/irda/devname
/proc/net/irda/irda_device      /proc/net/irda/irttp            /proc/sys/net/irda/discovery
/proc/net/irda/irias            /proc/sys/net/irda/compression
/proc/net/irda/irlap            /proc/sys/net/irda/debug

option irda irda_debug=3
option irlpt_client_debug=3 irlpt_common_debug=3

*/*                     -/var/log/all

"start")
        echo 1 >/proc/sys/net/ipv4/conf/all/forwarding
        ./ifup ifcfg-${device} 
        /sbin/irdaipcfg ${localnet} ${device} 
    ;;
"stop")
        host=`cat /var/run/host.${device}`
        if [ .$host != . ]; then
          /sbin/arp -d ${host} dev ${localnet}
          /sbin/route delete ${host} dev ${device}
        fi
        ./ifdown ifcfg-${device}
        /sbin/ifconfig ${device} down
    ;;

#!/bin/sh 
echo "$0 : remove irda module" 
rmmod irport.o 
rmmod irtty.o 
rmmod irda.o 

dagbnb ~/linux/test/ > cat /etc/sysconfig/pcmcia 
PCMCIA=yes
PCIC=i82365
PCIC_OPTS="irq_list=7,9,10"
CORE_OPTS=

#!/bin/sh

# You may have problems if kerneld is running!

killall irattach
killall irmanager

sleep 1

rm -f /dev/ircomm 
mknod /dev/ircomm c 60 64

rmmod ircomm_tty
rmmod ircomm
rmmod irtty
rmmod irda

insmod irda
insmod irtty
insmod ircomm
insmod ircomm_tty

irmanager    # executes 'irattach /dev/ttyS1' based on /etc/irda/drivers

# Now start your favorite PPP software on /dev/ircomm

# The 'no activity on link' happens if you move the phone out of IR sight, this is no problem once the phone is back in sight!

# Mar 10 12:31:41 octagon kernel: Linux-2.2 Support for the IrDA (tm) Protocols (Dag Brattli)
# Mar 10 12:31:41 octagon kernel: IrCOMM_common, $Revision: 1.13 $ $Date: 1998/10/13 12:59:05 $ (Takahide Higuchi)
# Mar 10 12:31:41 octagon kernel: IrVTD, $Revision: 1.2 $ $Date: 1998/09/27 08:37:04 $ (Takahide Higuchi)
# Mar 10 12:31:41 octagon irmanager: executing: './drivers start  0'
# Mar 10 12:31:41 octagon irmanager: + 0.1 Fri Jul 25 11:45:26 1997 Dag Brattli
# Mar 10 12:31:41 octagon irattach: Serial connection established.
# Mar 10 12:31:41 octagon kernel: IrDA device irda0 registered.
# Mar 10 12:31:41 octagon irmanager: + 0.1 Fri Jul 25 11:45:26 1997 Dag Brattli
# ...  
# Mar 11 13:13:43 octagon kernel: IrLAP, no activity on link!

#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <string.h>
#include <fcntl.h>
#include <termios.h>
#include <ctype.h>
#include <sys/types.h>
#include <sys/time.h>
#include <sys/ioctl.h>

#define BUFSIZE 1024

int
read_and_print(int fd, int sec, int usec)
{
    int             rc,l,i;
    char            buf[BUFSIZE+1];
    fd_set          set;
    struct timeval  tv;

    if (sec || usec) {
        FD_ZERO(&set);
        FD_SET(fd,&set);
        tv.tv_sec  = sec;

        tv.tv_usec = usec;
        if (0 == select(fd+1,&set,NULL,NULL,&tv))
            return -1;
    }

    switch (rc = read(fd,buf,BUFSIZE)) {
    case 0:
        printf("EOF");
        exit(0);
        break;
    case -1:
        perror("read");
        exit(1);
    default:
        for (l = 0; l < rc; l+= 16) {
            printf("%04x  ",l);
            for (i = l; i < l+16; i++) {
                if (i < rc)
                    printf("%02x ",buf[i]);
                else
                    printf("-- ");
                if ((i%4) == 3)
                    printf(" ");
            }
            for (i = l; i < l+16; i++) {

                if (i < rc)
                    printf("%c",isalnum(buf[i]) ? buf[i] : '.');
            }
            printf("\n");
        }
        break;
    }
    return rc;
}

void
setlines(int fd, int rts, int dtr)
{
    int lines = 0;

    if (rts) lines |= TIOCM_RTS;
    if (dtr) lines |= TIOCM_DTR;

    ioctl(fd,TIOCMSET,&lines);
}

int main(int argc, char *argv[])
{
    int                 ser,i;
    struct termios      saved_attributes,tattr;
    struct winsize      win;
    char                buf[16];

    if (-1 == (ser = open("/dev/ttyS1",O_RDWR))) {
        perror("open /dev/ttyS1");
        exit(1);
    }

    /* Set the terminal mode */
    tcgetattr (ser, &tattr);
    cfmakeraw (&tattr);
    cfsetospeed (&tattr,B9600);
    cfsetispeed (&tattr,B9600);
    tcsetattr (ser, 0, &tattr);

    setlines(ser,0,0);
#if 0
    tcsendbreak(ser,0);
#endif

    /* main loop */
    fprintf(stderr,"setup done\n");
    while (-1 != read_and_print(ser,30,0)) {
        usleep(100000);
    }

    return 0;
}

/*********************************************************************
 *                
 * Filename:      psion5.c
 * Version:       0.1
 * Description:   User space application for Psion 5 Palmtop Computers
 * Status:        Experimental.
 * Author:        Fons Botman <budely@tref.nl>
 * Created at:    Mon Apr 19 21:51:29 CEST 1999
 * 
 *     Copyright (c) 1999, Fons Botman, All Rights Reserved.
 *      
 *     This program is free software; you can redistribute it and/or 
 *     modify it under the terms of the GNU General Public License as 
 *     published by the Free Software Foundation; either version 2 of 
 *     the License, or (at your option) any later version.
 *  
 *     Neither Fons Botman nor anyone else admit liability nor
 *     provide warranty for any of this software. This material is 
 *     provided "AS-IS" and at no charge.
 *     
 ********************************************************************/

#include <unistd.h>
#include <stdlib.h>
#include <string.h>
#include <fcntl.h>
#include <stdio.h>
#include <errno.h>
#include <assert.h>
#include <signal.h>
#include <time.h>
#include <sys/types.h>
#include <utime.h>

#include <sys/stat.h>
#include <sys/ioctl.h>
#include <netinet/in.h>

#include <sys/socket.h>
#include <linux/types.h>
#include <linux/irda.h>

#ifndef AF_IRDA
#define AF_IRDA 23
#endif /* AF_IRDA */

#define MAX_DEVICES 10

int discover_devices(int fd)
{
        struct irda_device_list *list;
        unsigned char *buf;
        int len;
        int i;
        int daddr = 0;

        len = sizeof(struct irda_device_list) +
                sizeof(struct irda_device_info) * MAX_DEVICES;

        /* FIXME */
        system("echo 150 > /proc/sys/net/irda/slot_timeout");

        if (!(buf = malloc(len))) {
                fprintf(stderr, "Could not allocate discovery buffer.\n");
                exit(1);
        }
        list = (struct irda_device_list *) buf;

        /* FIXME: discovery does not return when there are no devices */
        if (getsockopt(fd, SOL_IRLMP, IRLMP_ENUMDEVICES, buf, &len)) {
                perror("getsockopt");
                exit(-1);
        }

        if (len > 0) {
                printf("Discovered:\n");

                for (i=0;i<list->len;i++) {
                        printf("  daddr: %08x", list->dev[i].daddr);
                        printf("  saddr: %08x", list->dev[i].saddr);
                        printf("  name:  %s\n", list->dev[i].info);
                        daddr = list->dev[i].daddr;
                }
        } else {
                printf("No devices discovered.\n");
        }

        return daddr;
}

int irttp_get_mtu(int fd) {
        int mtu;
        int len = sizeof(int);
        /* Check what the IrTTP data size is */
        if (getsockopt(fd, SOL_IRLMP, IRTTP_MAX_SDU_SIZE, 
                       (void *)&mtu, &len)) {
                return -1;
        }
        return mtu;
}

int sendfile(char* filename) {
        int fd;
        struct sockaddr_irda peer;
        int daddr;
        FILE* f;
        int buflen;
        char *buf;
        int rc;
        struct stat s;
        int cnt;
        int t0, tx, t;
        unsigned long long int fdatell;

        fd = socket(AF_IRDA, SOCK_STREAM, 0);
        if (fd < 0) {
                perror("socket");
                if (errno == EINVAL) 
                        fprintf(stderr, "Is IrDA active?, perhaps run irmanager\n");
                exit(-1);
        }

        /* FIXME: We should use a better/any device selection mechanism */
        daddr = discover_devices(fd);
        if (!daddr) {
                fprintf(stderr,"No IRDA device found\n");
                exit(1);
        }

        peer.sir_family = AF_IRDA;
        peer.sir_addr = daddr;
        strcpy(peer.sir_name, "Epoc32:EikonIr:v1.0");

        if (connect(fd, (struct sockaddr *) &peer, 
                    sizeof(struct sockaddr_irda))) {
                perror("connect");
                if (errno == ENETUNREACH)
                        /* P5: System ^L IrDA is active, 
                           but IR-receive not selected */
                        fprintf(stderr, 
                                "No Psion5 or IR-receive is not selected\n");
                exit(-1);
        }
        printf("Connected to %x\n", daddr);

        buflen = irttp_get_mtu(fd);
        printf("mtu = %d\n", buflen);
        if (buflen < 2) {
                perror("irttp_get_mtu");
                exit(1);
        }
        if (!(buf = malloc(buflen))) {
                perror("malloc");
                exit(1);
        }
        /* 
           FIXME : I got strange results when the buffer size was less than 
           the mtu (e.g. 200), the psion did not seem to see the frames were 
           not full length, and stopped after the number of frames based on 
           the full mtu size.
           investigate.
        */

        /* 
           FIXME : psion connects to port 2, but does not get error back
           from us. Linux bug?
        */

        if (!(f = fopen(filename,"rb"))) {
                perror(filename);
                exit(1);
        }

        rc = stat(filename,&s);
        if (rc != 0) {
                perror("stat");
                exit(1);
        }

        /* FIXME map psion mode bits to unix filemodes */

        fdatell = 62168263200000000ULL + 1000000 * 
                ( s.st_mtime & 0x00000000FFFFFFFFULL);
        printf("date: %Ld\n", (unsigned long long) s.st_mtime);
        printf("date: %Ld\n", fdatell);
        sprintf(buf,"FILE %d %d %lu %lu %s", 
                (int) s.st_size,
                32 | (s.st_mode & S_IWUSR ? 0 : 1),
                (unsigned long) ((unsigned long long int) fdatell >> 32),
                (unsigned long) (fdatell & 0x00000000FFFFFFFFULL),
                filename);
        rc = write(fd,buf,strlen(buf));
        if (rc != strlen(buf)) {
                perror("write");
                fprintf(stderr,"rc = %d, strlen=%d\n", 
                        rc, strlen(buf));
                exit(1);
        }
        printf("sent: %s\n", buf);
        rc = read(fd,buf,buflen-1);
        printf("Received (%d) ", rc);
        if (rc < 0) {
                perror("reply error");
                exit(1);
        }
        if (rc == 0) {
                fprintf(stderr, "EOF on reply?\n");
                exit(1);
        }
        if (rc < buflen) {
                buf[rc] = 0;
        }
        /* should be "ACK Y" */
        if (0 != strcmp(buf,"ACK Y")) {
                fprintf(stderr, "Unexpected response: %s\n", buf);
                exit(1);
        }
        printf("%s\n", buf);

        cnt = 0;
        t0 = tx = t = time(NULL);

        while (!ferror(f) && !feof(f)) {
                int wrc;

                rc = fread(buf, 1, buflen, f);
                if (rc == 0) continue;

                wrc = write(fd,buf,rc);
                if (wrc < 0) {
                        perror("write");
                        exit(1);
                }
                if (wrc < rc) {
                        fprintf(stderr, "Problem: only sent %d of %d\n", 
                                wrc, rc);
                        exit(1);
                }

                /* progress indication */
                t = time(NULL);
                cnt += rc;
                if (t - t0 == 0 || cnt == 0 || tx == t)
                        /* avoid division errors */
                        /* only once per second */
                        continue;
                tx = t;
                printf("sent %d/%lu bytes=%4g%% in %d sec," 
                       " %g Kbytes/s, to go %li sec  \r", 
                       cnt, s.st_size, 100.0 * cnt / s.st_size, t - t0,
                       cnt / 1000.0 / (t - t0), 
                       ( s.st_size - cnt ) * (t - t0) / cnt);
                fflush(stdout);
        }
        if (ferror(f)) {
                perror("ferror");
                exit(1);
        }
        if (cnt != s.st_size) {
                printf("Warning: "
                       "file size changed: initial: %lu, actual: %d\n",
                       s.st_size, cnt);
        }
        if (t == t0) t++;       /* white lie for fast transfers */
        printf("\r%79s\r","");  /* Cleanup the progress line */
        printf("Sent %s, %d bytes in %d sec. %g KBytes/sec\n",
               filename, cnt, t - t0, cnt / 1000.0 / (t - t0));

        /* Check for close on the other side */
        rc = read(fd,buf,buflen);
        if (rc > 0) {
                fprintf(stderr, "Strange: the other side responded.\n");
                fprintf(stderr, "rc=%d, data:%s\n", rc, buf);
                exit(1);
        }
        if (rc == 0) {
                fprintf(stderr, "Received end of file.\n");
        }
        if (rc == -1) {
                if (errno == EPERM) {
                        /* Strange error code to get in this case */
                        printf("Other side closed connection, OK\n");
                } else {
                        perror("last read");
                        exit(1);
                }
        }

        close(fd);
        return 0;
}

int handle_client(int cfd) {
        int buflen;
        char* buf;
        int rc;

        /* fields of file transfer header */
        unsigned int fsize;
        unsigned int fmode;
        unsigned int fdate1;
        unsigned int fdate2;
        char* fname;

        unsigned int fdate;
        unsigned long long int fdatell;

        FILE* f;
        int cnt;

        int t0, tx, t;

        buflen = irttp_get_mtu(cfd);
        printf("mtu=%d\n", buflen);
        if (buflen < 2) {
                perror("irttp_get_mtu");
                exit(1);
        }
        if (!(buf = malloc(buflen))) {
                fprintf(stderr, "malloc buf failed\n");
                exit(1);
        }

        /* Wait for the other side to send a header */
        /* 
           Sample headers received:
           DATA 185
           FILE 55175 32 14689800 2691219200 Data
                size mode datehi  datelo     name
        */

        rc = read(cfd, buf, buflen);
        if (rc < 0) {
                perror("1st read");
                exit(1);
        }
        if (rc == 0) {
                perror("1st read 0");
                exit(1);
        }
        assert(rc < buflen);
        buf[rc] = 0;
        printf("%s\n", buf);

        fsize = 0;
        fdate = 0;
        if (0 == strncmp(buf, "FILE ", 5)) {
                cnt = 0; /* to be safe */
                rc = sscanf(buf, "FILE %u %u %u %u %n", 
                            &fsize, &fmode, &fdate1, &fdate2,
                            &cnt);
                if (!(rc == 4 || rc == 5)) {
                                /* grumble */
                        fprintf(stderr, "sscanf rc=%d\n", rc);
                        exit(1);
                }
                assert(cnt < buflen);
                fname = strdup(buf+cnt);
                fdatell = ((unsigned long long int) fdate1 << 32) + fdate2;
                fdate = ( fdatell - 62168263200000000ULL) / 1000000 ;

                printf("filename: %s\n", fname);
                printf("filesize: %d\n", fsize);
                printf("Filemode: %d", fmode);
                printf("%s", (fmode &  1 ? ", Readonly" : ""));
                printf("%s", (fmode &  2 ? ", Hidden" : ""));
                printf("%s", (fmode & 32 ? ", Modified" : ""));
                printf("%s", (fmode & ~35 ? ", Unknown" : ""));
                printf("\n");
                printf("fdate1:   %u = 0x%x\n", fdate1, fdate1);
                printf("fdate2:   %u = 0x%x\n", fdate2, fdate2);
                printf("filedate: %Ld\n", fdatell);
                printf("filedate: %d = %s", fdate, 
                       asctime(gmtime((time_t*)&fdate)));

                if (!(f = fopen(fname,"wb"))) {
                        perror(fname);
                        exit(1);
                }
        } else if (0 == strncmp(buf, "DATA ", 5)) {
                cnt = 0; /* to be safe */
                rc = sscanf(buf, "DATA %d", &fsize);
                if (rc != 1) {
                        fprintf(stderr, "sscanf rc=%d\n", rc);
                        exit(1);
                }
                assert(cnt < buflen);
                fname = strdup("/tmp/psion5-data");
                if (!(f = fopen(fname,"wb"))) {
                        perror(fname);
                        exit(1);
                }
        } else {
                fprintf(stderr, "Unknown data type: %s\n", buf);
                                /* exit(1); */
        }

        rc = write(cfd,"ACK Y",5);
        if (rc != 5) {
                perror("1st write");
                fprintf(stderr,"1st write rc = %d\n", rc);
                exit(1);
        }

        cnt = 0;
        t0 = tx = t = time(NULL);
        while (cnt < fsize) {
                int wrc;
                rc = read(cfd,buf,buflen);
                if (rc < 0) {
                        perror("data read");
                                /* EPERM on disconnect ? */
                        exit(1);
                }
                if (rc == 0) {
                        perror("data read 0");
                        exit(1);
                }
                wrc = fwrite(buf,rc,1,f);
                if (wrc != 1) {
                        perror("fwrite");
                        exit(1);
                }
                cnt += rc;

                /* progress indication */
                t = time(NULL);
                if (t - t0 == 0 || cnt == 0 || tx == t)
                        /* avoid division errors */
                        /* only once per second */
                        continue;
                tx = t;
                printf("got %d/%u bytes=%g%% in %d sec,"
                       " %g Kbytes/s, to go %i sec  \r", 
                       cnt, fsize, 100.0 * cnt / fsize, t - t0,
                       cnt / 1000.0 / (t - t0), 
                       ( fsize - cnt ) * (t - t0) / cnt);
                fflush(stdout);
        }

        if (cnt != fsize) {
                printf("Warning: "
                       "file size changed: initial: %u, actual: %d\n",
                       fsize, cnt);
        }
        if (t == t0) t++;       /* white lie for fast transfers */
        printf("\r%79s\r","");  /* Cleanup the progress line */
        printf("Received %s, %d bytes in %d sec. %g KBytes/sec\n",
               fname, cnt, t - t0, cnt / 1000.0 / (t - t0));

        rc = fclose(f);
        if (rc != 0) {
                perror("fclose");
                exit(1);
        }
        if (fdate) {
                struct utimbuf utb;
                utb.actime = fdate;
                utb.modtime = fdate;
                rc = utime(fname,&utb);
                if (rc != 0) {
                        perror(fname);
                }
        }
        free(fname);
        close(cfd);
        return 0;
}

int receivefile(int mode)
{
        /* 
           The Psion 5 tries the following connections:
           Epoc32:EikonIr:v1.0  IrDA:TinyTP:LsapSel
           IrDA:IrCOMM          Parameters
           IrLPT                IrDA:IrLMP:LsapSel
           connect on 2

           Warning: discovery reply after 101ms
        */

        int addrlen = sizeof(struct sockaddr_irda);
        /* int oflags; */
        /* int mtu; */
        int fd;
        struct sockaddr_irda peer;
        int cfd;

        /* Create socket */
        fd = socket(AF_IRDA, SOCK_STREAM, 0);
        if (fd < 0) {
                perror("socket");
                exit(-1);
        }

        /* Bind local service */
        peer.sir_family = AF_IRDA;
        strcpy(peer.sir_name, "Epoc32:EikonIr:v1.0");
        peer.sir_lsap_sel = LSAP_ANY;

        if (bind(fd, (struct sockaddr*)&peer, sizeof(struct sockaddr_irda))) {
                        perror("bind");
                        return -1;
        }

        if (listen(fd, 2)) {
                perror("listen");
                return -1;
        }

        /* FIXME: allow more simultaneous clients */
        for (;;) {
                cfd = accept(fd, (struct sockaddr *) &peer, &addrlen);
                if (cfd < 0) {
                        perror("accept");
                        return -1;
                }

                if (handle_client(cfd))
                        break;

                if (mode == 1)
                        break;
        }

        sleep(1);
        close(fd);
        return 0;
}

int
main(int argc, char* argv[]) {
        char* argv0 = argv[0];

        if (argc <= 1) {
                fprintf(stderr, "Usage: %s [-s file] [-r] [-d]\n", argv0);
                fprintf(stderr, "\t-s file\tSend file to the Psion\n");
                fprintf(stderr, "\t-r\tReceive a file from the Psion\n");
                fprintf(stderr, "\t-b\tReceive multiple files (batch mode)\n");
                exit(1);
        }

        /* skip program name */
        argv++; argc--;

        for ( ; argc>0 && argv[0] ; argc-- , argv++) {
                if (0 == strcmp(argv[0],"-s")) {
                        /* FIXME: sending multiple files does not
                           work yet. We need to wait for the user
                           to select receive again on the psion */
                        if (argv[1] && 0 == strcmp(argv[1],"--")) {
                                /* Allow the user to send ANY filename */
                                argv++; argv++;
                                for ( ; argv[1] ; argv++ , argc--) {
                                        sendfile(argv[1]);
                                }
                        } else {
                                /* Send files upto next switch */
                                while (argv[1] && *argv[1] != '-') {
                                        sendfile(argv[1]);
                                        argv++; argc--;
                                }
                        }
                } else if (argv[0] && 0 == strcmp(argv[0],"-r")) {
                        receivefile(1);
                } else if (argv[0] && 0 == strcmp(argv[0],"-b")) 
                        receivefile(0);
                else {
                        fprintf(stderr,"Error: unknown switch %s\n", argv[0]);
                        fprintf(stderr,"Call without args for usage: %s\n", 
                                argv0);
                        exit(1);
                }
        }
        return 0;
}

Linux IR HOWTO

Werner Heuser, < wehe@snafu.de >

IrDA subsystem support

IrDA protocols

IrDA protocol options

IrDA compressors

Infrared-port device drivers

IrTTY (uses serial driver)

Dongle support

FIR support

irmanager

irattach

load_misc

/etc/irda

irdaping

irdadump

gnobex

irkbd

irdalib

obex

SIR

Dongle Connection - Infrared Adapters for the Serial Port

Dongle Connection - Infrared Motherboard Adapter

Fast InfraRed (FIR)

Prerequisites

Adding support for IrDA

Starting IrDA - First Steps

Configuration Files

Ericsson

NOKIA

Introduction

Connection between Linux/IrDA and Window$95 IrDA(TM)

Connection Methods

Compression

SIR

FIR