/* 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); | |
} |