#!/usr/local/bin/scsh -s
!#

;; -l ./stringhax.scm -s
;; !#


(define (downcase-string-german s)
  ;; korrekte Ersetzung von Umlauten 
  (let* ((slen (string-length s))
         (ns (make-string slen)))
    (do ((i (- slen 1) (- i 1)))
        ((< i 0) ns)
      (let ((ch (string-ref s i ))
            (repl #\space))
        (cond 
         ((char=? ch #\Ä) (set! repl #\ä))
         ((char=? ch #\Ü) (set! repl #\ü))
         ((char=? ch #\Ö) (set! repl #\ö))
         (else (set! repl (char-downcase ch))))
        (string-set! ns i repl )))))


(define (rename-them)
  (let ((file-list (glob "*.HTM")))
    (for-each (lambda(x) 
                (rename-file x 
                             (replace-extension 
                              (downcase-string-german x) ".html")))
			  file-list)))

(rename-them)