From: Marius Gavrilescu <marius@ieval.ro>
Date: Thu, 6 Sep 2018 13:00:06 +0000 (+0300)
Subject: Add repl.png and three unused files
X-Git-Url: http://git.ieval.ro/?a=commitdiff_plain;h=52e4bb145ca19c9ef91f57f7ca8dab0a507cb03f;p=clump.git

Add repl.png and three unused files
---

diff --git a/repl.png b/repl.png
new file mode 100644
index 0000000..9beb0ee
Binary files /dev/null and b/repl.png differ
diff --git a/sbcl-init-for-test.l b/sbcl-init-for-test.l
new file mode 100644
index 0000000..8c97e41
--- /dev/null
+++ b/sbcl-init-for-test.l
@@ -0,0 +1,7 @@
+(defmacro named-lambda (name args &body body)
+  `(labels ((,name ,args ,@body))
+     #',name))
+
+(defun reverse-list (&rest args)
+  (reverse args))
+
diff --git a/sbcl-test-script.l b/sbcl-test-script.l
new file mode 100644
index 0000000..61a931c
--- /dev/null
+++ b/sbcl-test-script.l
@@ -0,0 +1,16 @@
+(defmacro named-lambda (name args &body body)
+  `(labels ((,name ,args ,@body))
+     #',name))
+
+(defun reverse-list (&rest args)
+  (reverse args))
+
+(defun fake-repl ()
+  (do ((+eof+ (gensym)))
+      (nil)
+	(setf - (read *standard-input* nil +eof+))
+	(when (eq - +eof+) (return-from fake-repl))
+	(format t "~A~%" (eval -))))
+
+(setq *print-pretty* 'nil)
+(fake-repl)
diff --git a/write-to-serial.pl b/write-to-serial.pl
new file mode 100644
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;