(module grouper-capturer (main analyse-fichier)) ;; (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 (eof-object? ligne) ligne (begin (analyse ligne) (boucle (read-line flux)))))) ;; (define (analyse ligne) (let* ((regexp "(ranum|cox)") (result (if (pregexp-match regexp ligne) (pregexp-replace* regexp ligne "--\\1--")))) (if result (print ligne #\newline result))))