Labeled TSV reader/writer casual implementation.

ltsv.scm

;;; -*- mode: scheme; coding: utf-8 -*-

(define-module text.ltsv
  (use srfi-13)
  (use text.csv)
  (export-all))

(select-module text.ltsv)

(define ltsv-reader
  (let1 tsv-reader (make-csv-reader #\tab)
    (^ [in]
       (let1 rec (tsv-reader in)
         (if (eof-object? rec)
             rec
             (map (cut string-split <> #\: 1) rec))))))

(define ltsv-writer
  (let1 tsv-writer (make-csv-writer #\tab)
    (^ [rec out]
       (tsv-writer out (map (cut string-join <> ":") rec)))))

This implementation works only with current HEAD Gauche.