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 }