misc/libfreetype/builds/atari/FNames.SIC
author koda
Mon, 25 Apr 2011 01:46:54 +0200
changeset 5172 88f2e05288ba
permissions -rw-r--r--
aaand let's add freetype as well while we are at it other smaller changes

/* 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);
}