#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)

;(define filename "C:\\Users\\Pragun\\Desktop\\BentoData Analysis\\xxx.csv")
;(write-csv filename data)