tor-browser

The Tor Browser
git clone https://git.dasho.dev/tor-browser.git
Log | Files | Refs | README | LICENSE

FNames.SIC (709B)

      1 /* the following changes file names for PureC projects */
      2 
      3 if (argc > 0)
      4 {
      5 	ordner = argv[0];
      6 	if (basename(ordner) == "") /* ist Ordner */
      7 	{
      8 		ChangeFilenames(ordner);
      9 	}
     10 }
     11 
     12 proc ChangeFilenames(folder)
     13 local i,entries,directory,file;
     14 {
     15 	entries = filelist(directory,folder);
     16 	for (i = 0; i < entries; ++i)
     17 	{
     18 		file = directory[i,0];
     19 		if ((directory[i,3]&16) > 0) /* subdirectory */
     20 		{
     21 			ChangeFilenames(folder+file+"\\");
     22 		}
     23 		else
     24 		{
     25 			if ((stricmp(suffix(file),".h")==0)|(stricmp(suffix(file),".c")==0))
     26 			ChangeFilename(folder,file);
     27 		}
     28 	}
     29 }
     30 
     31 proc ChangeFilename(path,datei)
     32 local newfile,err;
     33 {
     34 	newfile=datei;
     35 	newfile[0]=(newfile[0] | 32) ^ 32;
     36 	err=files.rename("-q",path+datei,newfile);
     37 }