blob: 96a55bb33dce73d7ae926bc506f0c0e3f548031c (
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
41
|
(define cadr (x) (car (cdr x)))
(define caddr (x) (car (cdr (cdr x))))
(define cadddr (x) (car (cdr (cdr (cdr x)))))
(define not (x) (if x 0 1))
(define or (x y) (if x 1 (if y 1 0)))
(define and (x y) (if x (if y 1 0) 0))
(define YY (recur) (lambda (f) (lambda (a) (f ((recur recur) f) a))))
(define Y (YY YY))
(define for (start end f)
(if (<= start end)
(do (f start) (for (+ start 1) end f))
'()))
(define stdin (sys-stdin))
(define stdout (sys-stdout))
(define stderr (sys-stderr))
(define with-open-file (path mode f)
(let ((fid (sys-open-file mode path)))
(let ((value (f fid)))
(do
(sys-close-file fid)
value))))
(define read-until (fid predicate)
(let ((helper (lambdarec rec (s)
(let ((ch (sys-get-char fid)))
(if (predicate ch) s (rec (concat s ch)))))))
(helper "")))
(define read-until-eof (fid)
(read-until fid null?))
(define read-file (path)
(with-open-file path 0 read-until-eof))
(define read-line (fid)
(read-until fid (lambda (ch) (or (= ch "\n") (null? ch)))))
|