| /* the following changes file names for PureC projects */ |
| |
| if (argc > 0) |
| { |
| ordner = argv[0]; |
| if (basename(ordner) == "") /* ist Ordner */ |
| { |
| ChangeFilenames(ordner); |
| } |
| } |
| |
| proc ChangeFilenames(folder) |
| local i,entries,directory,file; |
| { |
| entries = filelist(directory,folder); |
| for (i = 0; i < entries; ++i) |
| { |
| file = directory[i,0]; |
| if ((directory[i,3]&16) > 0) /* subdirectory */ |
| { |
| ChangeFilenames(folder+file+"\\"); |
| } |
| else |
| { |
| if ((stricmp(suffix(file),".h")==0)|(stricmp(suffix(file),".c")==0)) |
| ChangeFilename(folder,file); |
| } |
| } |
| } |
| |
| proc ChangeFilename(path,datei) |
| local newfile,err; |
| { |
| newfile=datei; |
| newfile[0]=(newfile[0] | 32) ^ 32; |
| err=files.rename("-q",path+datei,newfile); |
| } |
