reading csv funcs for gauche

csv.scm

(use file.util)
(use simply)

; =make-csv-row-name-hash
(define (make-csv-row-name-hash row);{{{
  (let1 hs (make-hash-table)
    (let loop((ls row) (i 0))
      (cond
        [(null? ls)
         hs
         ]
        [else
          (when (string? (car ls))
            (hash-table-put! hs (string->symbol (car ls)) i)
            )
          (loop (cdr ls) (++ i))
          ]
        )
      )
    )
  )
;}}}

; =csv->list
(define (csv->list file-name has-row-names?);{{{
  (let1 file-list (r fold (lambda (x res)
                            (cons (string-split x #/,/) res)
                            ) '() (file->list read-line file-name))
    (cond
      ; １行目がフィールド名の場合
      [(eq? #t has-row-names?)
       ; １行目のフィールド名をハッシュ化
       (let1 row-name-hs (make-csv-row-name-hash (car file-list))
         (r fold (lambda (x res)
                   ; フィールド名でrowを取れる無名関数
                   (cons (lambda (label)
                           (ref x (hash-table-get row-name-hs label))
                           ) res)
                   )
            '() (cdr file-list))
         )
       ]
      ; 全てがデータの場合
      [else
        (r fold (lambda (x res)
                  ; rowをindex番号で取れる無名関数
                  (cons (lambda (index)
                          (ref x index)
                          ) res)
                  ) '() file-list)
        ]
      )
    )
  )
;}}}