;;
;;  CSV parser combinators specialized for lists of characters.
;;
;;   Copyright 2009-2013 Ivan Raikov and the Okinawa Institute of Science
;;   and Technology.
;;
;;
;;   This program is free software: you can redistribute it and/or
;;   modify it under the terms of the GNU General Public License as
;;   published by the Free Software Foundation, either version 3 of
;;   the License, or (at your option) any later version.
;;
;;   This program is distributed in the hope that it will be useful,
;;   but WITHOUT ANY WARRANTY; without even the implied warranty of
;;   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
;;   General Public License for more details.
;;
;;   A full copy of the GPL license can be found at
;;   <http://www.gnu.org/licenses/>.

(module csv-char-list

	(
	 csv-parser make-format 
	 list->csv-record csv-record->list csv-record?
	 )

   (import scheme chicken srfi-1)

   (require-extension utils data-structures utf8 utf8-srfi-13 typeclass input-classes)

   (require-library abnf csv)
   (import (only abnf <CoreABNF>  <Token> <CharLex> 
		 CharLex->CoreABNF Input->Token 
		 Token->CharLex 
		 )
	   (only csv make-parser make-format csv-record?
		 list->csv-record csv-record->list
		 CoreABNF->CSV <CSV>  )

	   )

(define char-list-<Input>
  (make-<Input> null? car cdr))

(define char-list-<Token>
  (Input->Token char-list-<Input>))

(define char-list-<CharLex>
  (Token->CharLex char-list-<Token>))

(define char-list-<CoreABNF>
  (CharLex->CoreABNF char-list-<CharLex>))

(define char-list-<CSV>
  (CoreABNF->CSV char-list-<CoreABNF> ))


(define char-list-<CSV>
  (CoreABNF->CSV char-list-<CoreABNF> ))


(define csv-parser (make-parser char-list-<CSV>))

)