(module Spip-AsciiDoc (main analyse-fichier) (import Spad-Grammar)) (define (analyse-fichier args) (let ((un-fichier (cadr args))) (call-with-input-file un-fichier lire-des-lignes))) (define (lire-des-lignes flux) (let boucle ((ligne (read-line flux))) (if (not (eof-object? ligne)) (let ((port (open-input-string ligne))) (print (read/rp spad:the-grammar port)) (boucle (read-line flux))))))