Initial work for G-code sender and more intensive usage of Boost

1 files changed, 26 insertions, 0 deletions

diff --git a/utils/send-gcode.pl b/utils/send-gcode.pl
new file mode 100644
index 000000000..63affd506
--- /dev/null
+++ b/utils/send-gcode.pl
@@ -0,0 +1,26 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+BEGIN {
+    use FindBin;
+    use lib "$FindBin::Bin/../lib";
+}
+
+use Slic3r;
+
+my $serial = Slic3r::GCode::Sender->new($ARGV[0], $ARGV[1]);
+
+$serial->send($ARGV[2]);
+
+exit;
+
+while (1) {
+    $serial->send("1");
+    sleep 1;
+    $serial->send("0");
+    sleep 1;
+}
+
+__END__