Паскаль / do9 / iriepas201 / Irie Pascal / samples / lowname

program lowname;
var
   param : integer;

   procedure syntax;
   begin
      writeln('lowname');
      writeln('SYNTAX: lowname file(s) ...');
      halt
   end;

   procedure ConvertFile(fname : filename);
   var
      f : text;
   begin
      writeln(fname, ' -> ', lowercase(fname));
      assign(f, fname);
      rename(f, lowercase(fname))
   end;

   procedure ConvertTextFiles(f : filename);
   var
      DirPart, NamePart, ExtPart : filename;
      fname : filename;
      d : Dir;

   begin (* ConvertTextFiles *)
      f := fexpand(f);
      writeln(f);
      fsplit(f, DirPart, NamePart, ExtPart);
      NamePart := NamePart + ExtPart;
      OpenDir(d, DirPart);
      repeat
         ReadDir(d, fname);
         if fname <> '' then    (* if there are more files in directory *)
            begin
               if FileMatch(NamePart, fname) then
                  begin
                     if fname <> lowercase(fname) then
                        ConvertFile(DirPart+fname)
                  end
            end
      until fname = '';
      CloseDir(d)
   end; (* ConvertTextFiles *)

begin
   if paramcount = 0 then
      syntax;
   for param := 1 to paramcount do
      ConvertTextFiles(paramstr(param));
end.