;;;; string-interpolation-syntax.scm  -*- Scheme -*-
;;;; Kon Lovett, Jul '18
;;;; Kon Lovett, Sep '17

(module string-interpolation-syntax

(;export
  set-sharp-string-interpolation-syntax)

(import scheme
  (chicken base)
  (chicken syntax)
  (chicken read-syntax)
  (chicken type)
  (chicken port))

;;;

;(string --> string)
(: set-sharp-string-interpolation-syntax ((or boolean procedure) -> void))
;
(define (set-sharp-string-interpolation-syntax proc)
  (set-sharp-read-syntax! #\"
    (if (not proc)
      #f
      (let ((proc (if (boolean? proc) identity proc)))
        (lambda (rest-port)
          (call-with-input-string "\""
            (lambda (head-port)
              (let* ((port (make-concatenated-port head-port rest-port) )
                     (str (read port) ) )
                (proc str) ) ) ) ) ) ) ) )

) ;string-interpolation-syntax