26 lines
641 B
Plaintext
26 lines
641 B
Plaintext
(print "Debug starts")
|
|
|
|
(define csv_list '())
|
|
(for f (ls-dir "tests/divi")
|
|
(if (regex-search? f "^divi_2021-02-0[1].*\.csv$")
|
|
(do
|
|
(define filename (+ "tests/divi/" f))
|
|
; (print filename)
|
|
(define csv_str (read-file filename))
|
|
(define csv_file_list (parse-csv csv_str))
|
|
(define csv_list (+ csv_list csv_file_list))
|
|
; (for x csv_file_list
|
|
; (print x)
|
|
; (define csv_list (+ csv_list csv_file_list))
|
|
; )
|
|
)
|
|
))
|
|
|
|
(for x csv_list
|
|
(print x))
|
|
|
|
; (if (> 1 10)
|
|
; (print "aaa"))
|
|
|
|
(print "Debug ends")
|