#!/usr/local/bin/scsh \
-e main -s
!#
;;; text file deletion for the morally robust
(define (true? x) (not (not x)))
;; Looses on file names with substring "text".
(define (textfile? name)
(true? (string-contains-ci (run/string (file ,name)) "text")))
;; somewhat more ambitious
(define (textfile? name)
(true? (regexp-search? (rx ,name ":" (* any) (w/nocase " text"))
(run/string (file ,name)))))
(define (find-filenames dir)
(run/strings (find ,dir -type f -print)))
(define (enforce-usage args)
(or (and (= (length args) 2)
(file-exists? (second args))
(file-directory? (second args)))
(begin (format #t
"USAGE: ~a DIRNAME --delete all text files in said dir.~%"
(first args))
(exit -1))))
(define (main args)
(enforce-usage args)
(for-each (lambda (fn)
(format #t "~a~%" fn)
(delete-file fn))
(filter textfile? (find-filenames (second args)))))
