From 88147fee7e0717f424e821a4c51d4945d1c80a95 Mon Sep 17 00:00:00 2001 From: Syndamia Date: Tue, 6 Dec 2022 17:43:16 +0200 Subject: [io] New package io, implemented doread-lines and ask-for-stream --- src/io.lisp | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create mode 100644 src/io.lisp (limited to 'src/io.lisp') diff --git a/src/io.lisp b/src/io.lisp new file mode 100644 index 0000000..85e9b31 --- /dev/null +++ b/src/io.lisp @@ -0,0 +1,19 @@ +(in-package :senzill.io) + +(defmacro doread-lines ((var &key (ends '("end")) read-line-options) &rest body) + "Reads lines until NIL or input is inside ends. Each line is stored in var." + `(let ((,var (read-line ,@read-line-options))) + (loop until (or (member ,var ',ends :test 'string=) (not ,var)) do + ,@body + (setf ,var (read-line ,@read-line-options))))) + +(defmacro ask-for-stream ((var) &rest body) + "var is either *standard-input* or file stream, where the file stream is handled by with-open-stream" + `(let ((filename)) + (format t "File name (nothing for *standard-input*): ") + (force-output) + (setf filename (read-line)) + (if (string= filename "") + (let ((,var *standard-input*)) + ,@body) + (with-open-stream (,var (open filename)) ,@body)))) -- cgit v1.2.3