38 lines
709 B
Plaintext
38 lines
709 B
Plaintext
/* 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);
|
|
}
|