file-conv.scm

#!/usr/bin/env gosh
(use file.util)


(define (main args)
  (let1 lines (file->list read-line "temp.tmpl")
       (let loop ((r "")
                  (lis lines))
         (if (null? lis)
           (print r)
           (loop (string-append r (regexp-replace-all #/id/ (car lis) (cadr args)) "\n")
                 (cdr lis)))))
  0)