blob: d6dd4b376978398de4118ac431534b25f51bb4f7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
(in-package #:input)
(defstruct input
(cursor 0)
(file nil :read-only t)
(data nil :read-only t))
(defun has-data? (input)
(< (input-cursor input)
(length (input-data input))))
(defun element (input)
(char (input-data input)
(input-cursor input)))
(defun advance (input)
(let ((new-input (copy-structure input)))
(incf (input-cursor new-input))
new-input))
(declaim (ftype (function (simple-string) (values input &optional)) from-string))
(defun from-string (str)
(make-input :data str))
(declaim (ftype (function (simple-string) (values input &optional)) from-file))
(defun from-file (filename)
(make-input :file filename :data (str:read-file filename)))
(defun generate-report (input message)
(let ((line 0) (column 0))
(dotimes (i (input-cursor input))
(let ((c (char (input-data input) i)))
(case c
(#\Newline
(incf line)
(setf column 1))
(t (incf column)))))
(if (input-file input)
(format nil "~a:~a:~a: ~a" (input-file input) line column message)
(format nil "~a:~a: ~a" line column message))))
|
