Add repl.png and three unused files

[clump.git] / write-to-serial.pl

diff --git a/write-to-serial.pl b/write-to-serial.pl
new file mode 100644 (file)
index 0000000..24c1d06
--- /dev/null
+++ b/write-to-serial.pl
@@ -0,0 +1,21 @@
+#!/usr/bin/perl
+use v5.14;
+use warnings;
+
+use Device::SerialPort;
+
+my $program;
+read STDIN, $program, 1000000;
+
+my $port = Device::SerialPort->new($ARGV[0] // '/dev/ttyUSB1') or die "$!";
+$port->baudrate(300);
+$port->parity('none');
+$port->databits(8);
+$port->stopbits(2);
+$port->handshake('none');
+
+$port->write_settings or die "$!";
+
+my $bytes_written = $port->write($program);
+my $bytes_to_write = length $program;
+die "Only wrote $bytes_written instead of $bytes_to_write" unless $bytes_written == $bytes_to_write;