blob: 9b03f3ce653623c2056db48ba49a9cfa2954f904 (
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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
(defun get-csv (: (stream *stdin*))
(if (stringp stream)
(upd stream make-string-input-stream))
(enumlet (rfield qfield cr qcr quot)
(let ((record (vec))
(field (str 0))
(state rfield)
(done nil))
(while (not done)
(let ((ch (get-char stream)))
(caseql* state
(rfield (caseql* ch
(#\return (set state cr))
(#\newline (vec-push record field)
(set done t))
(#\, (vec-push record field)
(set field (str 0)))
(#\" (cond
((empty field)
(set state qfield))
(t
(string-extend field ch))))
(nil (vec-push record field)
(set done t))
(t (string-extend field ch))))
(qfield (caseql* ch
(#\" (set state quot))
(#\return (set state qcr))
(nil (vec-push record field)
(set done t))
(t (string-extend field ch))))
(cr (caseql* ch
(#\newline (vec-push record field)
(set done t))
(#\return (string-extend field ch))
(#\, (string-extend field #\return)
(vec-push record field)
(set field (str 0)
state rfield))
(nil (string-extend field #\return)
(vec-push record field)
(set done t))
(t (string-extend field #\return)
(string-extend field ch)
(set state rfield))))
(qcr (caseql* ch
(#\newline (string-extend field ch)
(set state qfield))
(#\return (string-extend field ch))
(nil (string-extend field #\return)
(vec-push record field)
(set done t))
(#\" (string-extend field #\return)
(set state quot))
(t (string-extend field #\return)
(string-extend field ch)
(set state qfield))))
(quot (caseql* ch
(#\, (vec-push record field)
(set field (str 0)
state rfield))
(#\" (string-extend field ch)
(set state qfield))
(#\newline (vec-push record field)
(set done t))
(#\return (set state cr))
(nil (vec-push record field)
(set done t))
(t (string-extend field ch)
(set state rfield)))))))
record)))
|