builds/atari/FNames.SIC

   1 /* the following changes file names for PureC projects */
   2
   3 if (argc > 0)
   4 {
   5         ordner = argv[0];
   6         if (basename(ordner) == "") /* ist Ordner */
   7         {
   8                 ChangeFilenames(ordner);
   9         }
  10 }
  11
  12 proc ChangeFilenames(folder)
  13 local i,entries,directory,file;
  14 {
  15         entries = filelist(directory,folder);
  16         for (i = 0; i < entries; ++i)
  17         {
  18                 file = directory[i,0];
  19                 if ((directory[i,3]&16) > 0) /* subdirectory */
  20                 {
  21                         ChangeFilenames(folder+file+"\\");
  22                 }
  23                 else
  24                 {
  25                         if ((stricmp(suffix(file),".h")==0)|(stricmp(suffix(file),".c")==0))
  26                         ChangeFilename(folder,file);
  27                 }
  28         }
  29 }
  30
  31 proc ChangeFilename(path,datei)
  32 local newfile,err;
  33 {
  34         newfile=datei;
  35         newfile[0]=(newfile[0] | 32) ^ 32;
  36         err=files.rename("-q",path+datei,newfile);
  37 }