ref: fa7d6ab2171c9cfa8b9b45a2a6f6a0fdd2e4a190
dir: /builds/atari/FNames.SIC/
/* 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); }