sequence color_red,color_white,color_yellow,color_green,color_black
ifdef win32
color_red=12
color_white=7
color_black=0
color_yellow=14
color_green=10
elsedef
color_red=27&"[0;1;31;47m"
color_white=27&"[0;37;40m"
color_black=27&"[0;30;47m"
color_yellow=27&"[0;1;33;40m"
color_green=27&"[0;1;32;40m"
enddef
sequence pad , cmd
cmd=command_line()
if match("peu",cmd[1])
then
if length(cmd)<3
then puts(1,"Use is : peu conv2lower directory\n") abort(0)
else pad=cmd[3]
end if
else
if length(cmd) <2
then puts(1,"Use is : conv2lower directory\n") abort(0)
else pad=cmd[2]
end if
end if
if change_dir(pad)
then
ifdef win32
puts(1,"Directory ")
text_color(color_red)
puts(1,pad)
text_color(color_white)
puts(1," not found\n")
elsedef
puts(1,"Directory " & color_red & pad & color_black & " not found\n")
enddef
abort(1)
end if
sequence dirs=dir("./*")
sequence oldname,newname
for i=1 to length(dirs) do
oldname=dirs[i][1]
newname=lower(oldname)
if oldname!=newname then
renamef(oldname,newname)
end if
end for
puts(1,"Done\n")
abort(0)