ref: 05089e8a07dd18544032f7c0bb7179e7315ecbab
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); }