trasmitter/sender-chip.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91

#!/usr/bin/env perl 
use strict;
use warnings;
use Time::HiRes qw(usleep sleep gettimeofday tv_interval);
 
# my $base = do { 
#     open my $fh,'<','/sys/class/gpio/gpiochip405/base' or die "can't get base: $!"; 
#     my $line = <$fh>; 
#     chomp($line); 
#     $line; 
# }; 
 
sub gpio_enable {
    my ($pin,$state) = @_;
 
    if ($state) {
        open my $fh,'>','/sys/class/gpio/export' or die "Can't export: $!";
        print $fh $pin,"\n";
    }
    else {
        open my $fh,'>','/sys/class/gpio/unexport' or die "Can't unexport: $!";
        print $fh $pin,"\n";
    }
}
 
sub gpio_direction {
    my ($pin,$direction) = @_;
 
    my $file = "/sys/class/gpio/gpio$pin/direction";
    open my $fh,'>',$file
        or die "Can't direction $file: $!";
    print $fh ($direction ? 'out' : 'in' ),"\n";
}
 
sub gpio_write {
    my ($pin,$value) = @_;
 
    open my $fh,'>',"/sys/class/gpio/gpio$pin/value"
        or die "Can't write: $!";
    print $fh $value,"\n";
}
 
my $pin = 132; # CSID0 
#my $pin = $base+0; # XIO0 
 
gpio_enable($pin,1);
gpio_direction($pin,1);
gpio_write($pin,0);
$SIG{INT} = sub {warn"disabling";gpio_enable($pin,0) };
END { warn"disabling";gpio_enable($pin,0) }
 
my $width = 370; # this seems to provide pulse widths close enough to 
                 # what we need, it's 106 samples at 192kHz 
 
sub send_array {
    my $state = 1;
    for (@_) {
        gpio_write($pin,$state);
        usleep($width*$_);
        $state = $state ? 0 : 1;
    }
}
 
my @prologue = (
    1,1, 1,1, 1,1, 1,1, 1,1, 1,1,
    2,3, 1,1, 2,2, 1,1, 1,1, 2,1,
    1,1, 1,1, 1,2, 1,1, 1,1, 1,1,
    1,1, 1,1,
);
my @epilogue = (
  1,2, 2,2, 1,3, # the last value doesn't much matter 
);
 
my @on_signal = (
    2,2, 1,1, 1,1, 1,1, 1,1, 2,1, 1,1,
);
my @off_signal = (
    1,1, 1,1, 1,1, 1,1, 1,1, 2,2, 2,1,
);
 
my @train = (
    @prologue,
    ( $ARGV[0] ? @on_signal : @off_signal ),
    @epilogue,
);
 
send_array(@train);
sleep(1);
send_array(@train);
sleep(2);
send_array(@train);