aboutsummaryrefslogtreecommitdiff
path: root/freetype/builds/atari/FNames.SIC
blob: f3657179d919530820462ad3ade981da4b356349 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
/* 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);
}