modules/freetype2/builds/atari/FNames.SIC
author Brad Lassey <blassey@mozilla.com>
Thu, 11 Dec 2008 11:50:31 -0800
changeset 22693 9e5b08f9e9d96d15872c7b8c60312bb579be4115
permissions -rw-r--r--
Bug 463532 - import freetype2 into the tree r=ted sr=vlad

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