← Back to branch summary

~oif-team/ubuntu/natty/qt4-x11/xi2.1

« back to all changes in this revision

Viewing changes to src/3rdparty/freetype/builds/atari/FNames.SIC

  • Committer: Bazaar Package Importer
  • Author(s): Adam Conrad
  • Date: 2005-08-24 04:09:09 UTC
  • Revision ID: james.westby@ubuntu.com-20050824040909-xmxe9jfr4a0w5671
Tags: upstream-4.0.0
Import upstream version 4.0.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/3rdparty/freetype/builds/atari/FNames.SIC
 
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
}