misc/libfreetype/builds/atari/FNames.SIC
author nemo
Sun, 26 Jun 2011 15:23:45 -0400
changeset 5319 51d8e4747876
parent 5172 88f2e05288ba
permissions -rw-r--r--
bounce. tweak of values, remove friction modifier, move to weapon, to match timer behaviour
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
5172
88f2e05288ba aaand let's add freetype as well while we are at it
koda
parents:
diff changeset
     1
/* the following changes file names for PureC projects */
88f2e05288ba aaand let's add freetype as well while we are at it
koda
parents:
diff changeset
     2
88f2e05288ba aaand let's add freetype as well while we are at it
koda
parents:
diff changeset
     3
if (argc > 0)
88f2e05288ba aaand let's add freetype as well while we are at it
koda
parents:
diff changeset
     4
{
88f2e05288ba aaand let's add freetype as well while we are at it
koda
parents:
diff changeset
     5
	ordner = argv[0];
88f2e05288ba aaand let's add freetype as well while we are at it
koda
parents:
diff changeset
     6
	if (basename(ordner) == "") /* ist Ordner */
88f2e05288ba aaand let's add freetype as well while we are at it
koda
parents:
diff changeset
     7
	{
88f2e05288ba aaand let's add freetype as well while we are at it
koda
parents:
diff changeset
     8
		ChangeFilenames(ordner);
88f2e05288ba aaand let's add freetype as well while we are at it
koda
parents:
diff changeset
     9
	}
88f2e05288ba aaand let's add freetype as well while we are at it
koda
parents:
diff changeset
    10
}
88f2e05288ba aaand let's add freetype as well while we are at it
koda
parents:
diff changeset
    11
88f2e05288ba aaand let's add freetype as well while we are at it
koda
parents:
diff changeset
    12
proc ChangeFilenames(folder)
88f2e05288ba aaand let's add freetype as well while we are at it
koda
parents:
diff changeset
    13
local i,entries,directory,file;
88f2e05288ba aaand let's add freetype as well while we are at it
koda
parents:
diff changeset
    14
{
88f2e05288ba aaand let's add freetype as well while we are at it
koda
parents:
diff changeset
    15
	entries = filelist(directory,folder);
88f2e05288ba aaand let's add freetype as well while we are at it
koda
parents:
diff changeset
    16
	for (i = 0; i < entries; ++i)
88f2e05288ba aaand let's add freetype as well while we are at it
koda
parents:
diff changeset
    17
	{
88f2e05288ba aaand let's add freetype as well while we are at it
koda
parents:
diff changeset
    18
		file = directory[i,0];
88f2e05288ba aaand let's add freetype as well while we are at it
koda
parents:
diff changeset
    19
		if ((directory[i,3]&16) > 0) /* subdirectory */
88f2e05288ba aaand let's add freetype as well while we are at it
koda
parents:
diff changeset
    20
		{
88f2e05288ba aaand let's add freetype as well while we are at it
koda
parents:
diff changeset
    21
			ChangeFilenames(folder+file+"\\");
88f2e05288ba aaand let's add freetype as well while we are at it
koda
parents:
diff changeset
    22
		}
88f2e05288ba aaand let's add freetype as well while we are at it
koda
parents:
diff changeset
    23
		else
88f2e05288ba aaand let's add freetype as well while we are at it
koda
parents:
diff changeset
    24
		{
88f2e05288ba aaand let's add freetype as well while we are at it
koda
parents:
diff changeset
    25
			if ((stricmp(suffix(file),".h")==0)|(stricmp(suffix(file),".c")==0))
88f2e05288ba aaand let's add freetype as well while we are at it
koda
parents:
diff changeset
    26
			ChangeFilename(folder,file);
88f2e05288ba aaand let's add freetype as well while we are at it
koda
parents:
diff changeset
    27
		}
88f2e05288ba aaand let's add freetype as well while we are at it
koda
parents:
diff changeset
    28
	}
88f2e05288ba aaand let's add freetype as well while we are at it
koda
parents:
diff changeset
    29
}
88f2e05288ba aaand let's add freetype as well while we are at it
koda
parents:
diff changeset
    30
88f2e05288ba aaand let's add freetype as well while we are at it
koda
parents:
diff changeset
    31
proc ChangeFilename(path,datei)
88f2e05288ba aaand let's add freetype as well while we are at it
koda
parents:
diff changeset
    32
local newfile,err;
88f2e05288ba aaand let's add freetype as well while we are at it
koda
parents:
diff changeset
    33
{
88f2e05288ba aaand let's add freetype as well while we are at it
koda
parents:
diff changeset
    34
	newfile=datei;
88f2e05288ba aaand let's add freetype as well while we are at it
koda
parents:
diff changeset
    35
	newfile[0]=(newfile[0] | 32) ^ 32;
88f2e05288ba aaand let's add freetype as well while we are at it
koda
parents:
diff changeset
    36
	err=files.rename("-q",path+datei,newfile);
88f2e05288ba aaand let's add freetype as well while we are at it
koda
parents:
diff changeset
    37
}