alioth/nixpkgs
3
0
Fork 0
forked from mirrors/nixpkgs
Code Releases Activity

* Filter out *~ files in cleanSource.

Browse source 
svn path=/nixpkgs/trunk/; revision=7803
This commit is contained in:
Eelco Dolstra 2007-01-29 14:53:23 +00:00
parent bffcfd2d78
commit 83a82a22e5
1 changed files with 19 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
pkgs/lib/default.nix
View file

@ -2,7 +2,8 @@
let
inherit (builtins) head tail isList;
inherit (builtins)
head tail isList stringLength substring lessThan sub;
in
@ -82,12 +83,23 @@ rec {
else head xs == head ys && eqLists (tail xs) (tail ys);
# Bring in a path as a source, filtering out all hidden Subversion
# directories. TODO: filter out backup files (*~) etc.
# Determine whether a filename ends in the given suffix.
hasSuffix = ext: fileName:
let lenFileName = stringLength fileName;
lenExt = stringLength ext;
in !(lessThan lenFileName lenExt) &&
substring (sub lenFileName lenExt) lenFileName fileName == ext;
# Bring in a path as a source, filtering out all Subversion and CVS
# directories, as well as backup files (*~).
cleanSource =
let filter = name: type:
type != "directory"
|| baseNameOf (toString name) != ".svn";
let filter = name: type: let baseName = baseNameOf (toString name); in ! (
# Filter out Subversion and CVS directories.
(type == "directory" && (name == ".svn" || name == "CVS")) ||
# Filter out backup files.
(hasSuffix "~" name)
);
in src: builtins.filterSource filter src;