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

#!/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 = 400; # this seems to provide pulse widths close enough to 
                 # what we need, it's 106 samples at 192kHz 
while (1) {
    for (0..50) {
        gpio_write($pin,1);
        usleep($width);
        gpio_write($pin,0);
        usleep($width);
    }
    sleep(0.5);
}