blob: 5ff500825a4435b80573b5faeeae203dadac73a1 (
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
|
(defun read-all ()
(let ((line (read-line *standard-input* nil)))
(if line
(concatenate 'string line '(#\linefeed) (read-all))
"")))
(setq *temper-open* "{%")
(setq *temper-close* "%}")
(defun parse (input)
(let ((pos (search *temper-open* input)))
(if (null pos)
(list "\"" input "\"")
(let* ((before (subseq input 0 pos))
(input (subseq input pos))
(end-pos (search *temper-close* input))
(close-len (length *temper-close*))
(code (subseq input close-len end-pos))
(input (subseq input (+ end-pos close-len))))
(append (list "\"" before "\"" code) (parse input))))))
(setq res (append '("(concatenate 'string ") (parse (read-all)) '(" ) ") ))
(setq str (format nil "~{~A~^ ~}" res))
(princ str)
; (print (eval (read-from-string str)))
; (read-from-string (parse (read-all)))
|
