Фактор скрипт для изменения регистра всех файлов в каталоге


В отсутствие полноценного учебника, я учу себя программа в фактор языка, написав кучу функций, которые я в конечном итоге использовать в сценарии командной строки.

Одной распространенной операцией мне нравится выполнять это изменить регистр имен файлов, содержащихся в данном каталоге, в верхний или нижний регистр. Я написал следующий код для выполнения этой операции в фактор:

USING: fry kernel io.directories sequences unicode.case ;
IN: util.directories

: move-each-directory-file>lower ( pathname -- )
    [ dup >lower ] move-each-directory-file ;

: move-each-directory-file>upper ( pathname -- )
    [ dup >upper ] move-each-directory-file ;

: each-directory-file ( pathname quot -- )
    '[ [ @ ] each ] with-directory-files ; inline

: move-each-directory-file ( pathname quot -- )
    '[ @ move-file ] each-directory-file ; inline

Я постарались учесть как можно больше кода в многоразовые словарный запас. Я с нетерпением жду предложений по улучшению.



Комментарии