convert.rkt

#! /usr/bin/env racket
#lang racket

(require racket/cmdline)
(require csv-reading) ;; $ raco pkg install csv-reading

(define (will-loop executor)
  (lambda ()
    (let loop ()
      (will-execute executor)
      (loop))))

(define will-executor (make-will-executor))

(define (will executor value destructor)
  (will-register executor value destructor)
  value)

;;

(define (print-list-items lst)
  (for-each
   (lambda (item)
     (display (string-trim item))
     (newline))
   lst))

(define (convert row)
  (print-list-items
    (string-split (car row) "|")))

(define make-csv-reader
  (make-csv-reader-maker
   '((separator-chars              #\;)
     (strip-leading-whitespace?  . #t)
     (strip-trailing-whitespace? . #t))))

(define (main)
  (void (thread (will-loop will-executor)))
  (let*
      ([filename (command-line #:args (filename) filename)]
       [filename-port (will
                       will-executor
                       (open-input-file filename)
                       (lambda (port) (close-input-port port)))]
       [reader (make-csv-reader filename-port)])
    (void (reader)) ;; Skip CSV header
    (csv-for-each convert reader))
  (void))

(main)