From: Marius Gavrilescu 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;