kc3-lang/freetype/builds/atari/FNames.SIC

Branch : - branch - master v2.13 - tag -

• Show log

  Commit

• Author : Werner Lemberg
  Date : 2006-05-10 13:58:14
  Hash : 37827608
  Message : convert to Unix line endings

• builds/atari/FNames.SIC

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