#lang racket
(require racket/generator)
(require "csv-reader.rkt")
(require "csv-writer.rkt")
(provide make-csv-reader)
(provide make-csv-writer)
(provide row-gen->list)
(define file-path "/home/pragungoyal/simple-csv/Book5.csv")
(define a (open-input-file file-path #:mode 'text ))
(define csv-reader (make-csv-reader))
(define b (csv-reader a))
(define c (for/list ([m (in-producer b)]
#:break (eof-object? m))
m))
(define csv-maker (make-csv-writer #:delimiter "\t" #:lineterminator "\n"))
(define data '(("name" "location")
("James" "Tokyo")
("Bob" "Shanghai")
("Steven" "Austin")))
(csv-maker data)