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
|
(use gauche.regexp)
(use gauche.charconv)
(define (escape str)
(set! str (regexp-replace-all #/&/ str "&"))
(set! str (regexp-replace-all #/</ str "<"))
(set! str (regexp-replace-all #/\"/ str """))
(set! str (regexp-replace-all #/@/ str "@"))
(set! str (regexp-replace-all #/>/ str ">"))
str)
(define (read-file-and-escape file)
(call-with-input-file file
(lambda (in)
(escape (port->string in)))
:encoding 'utf-8))
(define (main args)
(call-with-input-file (cadr args)
(lambda (in)
(let* ((content (port->string in))
(content (regexp-replace-all #/#\{(.*?)\}/ content
(lambda (m)
(string-append
"<pre>\n"
(read-file-and-escape (rxmatch-substring m 1))
"</pre>\n")))))
(display content)))
:encoding 'eucjp)
0)
|
