! Copyright 2010, Checkie.
! License?  We don't need no stinkin' license!
USING: io.directories kernel sequences unicode.case ;
IN: directory-utilities

! directory-files>lower ( pathname -- )
!   Changes filenames to lowercase in directory specified by pathname.
! directory-files>upper ( pathname -- )
!   Changes filenames to uppercase in directory specified by pathname.

: directory-files>case ( pathname >case-quot -- ) swap [ [ dup pick call( old-pathname -- new-pathname ) move-file ] each ] with-directory-files drop ;

: directory-files>lower ( pathname -- ) [ >lower ] directory-files>case ;
: directory-files>upper ( pathname -- ) [ >upper ] directory-files>case ;