-- converteerd alle bestand namen naar kleine letters .

-- kleur definitie , als je het leuk vind .
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  -- ansi code (Linux,Dos)
         color_red=27&"[0;1;31;47m"     -- esc[0;bright;forground;background
         color_white=27&"[0;37;40m"     -- 47m background = black
         color_black=27&"[0;30;47m"     -- 40m background = white
         color_yellow=27&"[0;1;33;40m" 
         color_green=27&"[0;1;32;40m"
enddef

sequence pad , cmd
cmd=command_line()   -- command line bestaat als eerste uit het uittevoeren programma naam
                     -- gevolgd door het opgegeven aantal parameters

-- zoek uit of het een vertaalde versie is .
if match("peu",cmd[1])
then -- interpreter
 if length(cmd)<3  -- bepaal het aantal elementen van cmd 
 then puts(1,"Use is : peu conv2lower directory\n") abort(0)
 else pad=cmd[3]
 end if
else -- vertaald (bind)
 if length(cmd) <2 -- bepaal het aantal elementen van cmd
 then puts(1,"Use is : conv2lower directory\n") abort(0)
 else pad=cmd[2]
 end if
end if

if change_dir(pad) -- ga naar de gewenste directory 
then -- resultaat ongelijk 0 betekend niet gevonden
 ifdef win32  -- MSwindows console kent geen ANSI code meer
 puts(1,"Directory ")
 text_color(color_red)   -- zet voorgrond kleur rood
 puts(1,pad)
 text_color(color_white) -- aangenomen dat de cmd.exe een zwarte achtergrond heeft .
 puts(1," not found\n") 
 elsedef  -- meeste Linux(Dos) console's kennen de ANSI code nog
 puts(1,"Directory " & color_red & pad & color_black & " not found\n") -- & cancat operator
 enddef
 abort(1) -- exit , beeindig met fout melding = 1
end if

sequence dirs=dir("./*") -- dir() geeft alle folders en bestanden
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) -- exit , beeindig met melding = 0 is oke