misc/libfreetype/builds/atari/FNames.SIC
changeset 5172 88f2e05288ba
equal deleted inserted replaced
5171:f9283dc4860d 5172:88f2e05288ba
       
     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 }