2009-02-09 09:51:03 -07:00
|
|
|
|
/* String manipulation functions. */
|
|
|
|
|
|
2009-05-24 04:57:46 -06:00
|
|
|
|
let lib = import ./default.nix;
|
|
|
|
|
|
2012-08-13 12:19:31 -06:00
|
|
|
|
inherit (builtins) add sub lessThan length;
|
2009-05-24 04:57:46 -06:00
|
|
|
|
|
|
|
|
|
in
|
2009-02-09 09:51:03 -07:00
|
|
|
|
|
|
|
|
|
rec {
|
2012-08-13 12:19:31 -06:00
|
|
|
|
inherit (builtins) stringLength substring head tail;
|
2009-02-09 09:51:03 -07:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# Concatenate a list of strings.
|
|
|
|
|
concatStrings = lib.fold (x: y: x + y) "";
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# Map a function over a list and concatenate the resulting strings.
|
|
|
|
|
concatMapStrings = f: list: concatStrings (map f list);
|
2011-08-18 20:42:34 -06:00
|
|
|
|
concatImapStrings = f: list: concatStrings (lib.imap f list);
|
2012-03-28 09:43:39 -06:00
|
|
|
|
|
2009-02-09 09:51:03 -07:00
|
|
|
|
|
|
|
|
|
# Place an element between each element of a list, e.g.,
|
|
|
|
|
# `intersperse "," ["a" "b" "c"]' returns ["a" "," "b" "," "c"].
|
|
|
|
|
intersperse = separator: list:
|
2012-08-13 12:19:31 -06:00
|
|
|
|
if list == [] || length list == 1
|
2009-02-09 09:51:03 -07:00
|
|
|
|
then list
|
|
|
|
|
else [(head list) separator]
|
|
|
|
|
++ (intersperse separator (tail list));
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# Concatenate a list of strings with a separator between each element, e.g.
|
|
|
|
|
# concatStringsSep " " ["foo" "bar" "xyzzy"] == "foo bar xyzzy"
|
|
|
|
|
concatStringsSep = separator: list:
|
|
|
|
|
concatStrings (intersperse separator list);
|
|
|
|
|
|
|
|
|
|
|
2009-04-05 12:05:11 -06:00
|
|
|
|
# Construct a Unix-style search path consisting of each `subDir"
|
|
|
|
|
# directory of the given list of packages. For example,
|
|
|
|
|
# `makeSearchPath "bin" ["x" "y" "z"]' returns "x/bin:y/bin:z/bin".
|
2012-03-28 09:43:39 -06:00
|
|
|
|
makeSearchPath = subDir: packages:
|
2009-04-05 12:05:11 -06:00
|
|
|
|
concatStringsSep ":" (map (path: path + "/" + subDir) packages);
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# Construct a library search path (such as RPATH) containing the
|
|
|
|
|
# libraries for a set of packages, e.g. "${pkg1}/lib:${pkg2}/lib:...".
|
|
|
|
|
makeLibraryPath = makeSearchPath "lib";
|
2009-02-09 09:51:03 -07:00
|
|
|
|
|
|
|
|
|
|
2011-01-05 05:54:37 -07:00
|
|
|
|
# Idem for Perl search paths.
|
|
|
|
|
makePerlPath = makeSearchPath "lib/perl5/site_perl";
|
2012-03-28 09:43:39 -06:00
|
|
|
|
|
2011-01-05 05:54:37 -07:00
|
|
|
|
|
2009-02-09 09:51:03 -07:00
|
|
|
|
# Dependening on the boolean `cond', return either the given string
|
|
|
|
|
# or the empty string.
|
|
|
|
|
optionalString = cond: string: if cond then string else "";
|
|
|
|
|
|
2012-03-28 09:43:39 -06:00
|
|
|
|
|
2009-02-09 09:51:03 -07:00
|
|
|
|
# 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;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# Convert a string to a list of characters (i.e. singleton strings).
|
|
|
|
|
# For instance, "abc" becomes ["a" "b" "c"]. This allows you to,
|
|
|
|
|
# e.g., map a function over each character. However, note that this
|
|
|
|
|
# will likely be horribly inefficient; Nix is not a general purpose
|
|
|
|
|
# programming language. Complex string manipulations should, if
|
|
|
|
|
# appropriate, be done in a derivation.
|
|
|
|
|
stringToCharacters = s: let l = stringLength s; in
|
|
|
|
|
if l == 0
|
|
|
|
|
then []
|
2009-10-06 03:21:58 -06:00
|
|
|
|
else map (p: substring p 1 s) (lib.range 0 (sub l 1));
|
2009-02-09 09:51:03 -07:00
|
|
|
|
|
2012-03-28 09:43:39 -06:00
|
|
|
|
|
2009-10-06 03:21:52 -06:00
|
|
|
|
# Manipulate a string charcater by character and replace them by strings
|
|
|
|
|
# before concatenating the results.
|
|
|
|
|
stringAsChars = f: s:
|
|
|
|
|
concatStrings (
|
|
|
|
|
map f (stringToCharacters s)
|
|
|
|
|
);
|
|
|
|
|
|
2012-03-28 09:43:39 -06:00
|
|
|
|
|
2009-05-06 10:06:41 -06:00
|
|
|
|
# same as vim escape function.
|
|
|
|
|
# Each character contained in list is prefixed by "\"
|
|
|
|
|
escape = list : string :
|
2009-10-06 03:21:52 -06:00
|
|
|
|
stringAsChars (c: if lib.elem c list then "\\${c}" else c) string;
|
2009-05-06 10:06:41 -06:00
|
|
|
|
|
2012-03-28 09:43:39 -06:00
|
|
|
|
|
2009-05-06 10:06:41 -06:00
|
|
|
|
# still ugly slow. But more correct now
|
|
|
|
|
# [] for zsh
|
|
|
|
|
escapeShellArg = lib.escape (stringToCharacters "\\ ';$`()|<>\t*[]");
|
2009-02-09 09:51:03 -07:00
|
|
|
|
|
2012-03-28 09:43:39 -06:00
|
|
|
|
|
2009-10-06 03:21:52 -06:00
|
|
|
|
# replace characters by their substitutes. This function is equivalent to
|
|
|
|
|
# the `tr' command except that one character can be replace by multiple
|
|
|
|
|
# ones. e.g.,
|
|
|
|
|
# replaceChars ["<" ">"] ["<" ">"] "<foo>" returns "<foo>".
|
|
|
|
|
replaceChars = del: new: s:
|
|
|
|
|
let
|
|
|
|
|
subst = c:
|
|
|
|
|
(lib.fold
|
|
|
|
|
(sub: res: if sub.fst == c then sub else res)
|
|
|
|
|
{fst = c; snd = c;} (lib.zipLists del new)
|
|
|
|
|
).snd;
|
|
|
|
|
in
|
|
|
|
|
stringAsChars subst s;
|
|
|
|
|
|
2012-03-28 09:43:39 -06:00
|
|
|
|
|
2009-02-24 09:19:08 -07:00
|
|
|
|
# Compares strings not requiring context equality
|
|
|
|
|
# Obviously, a workaround but works on all Nix versions
|
|
|
|
|
eqStrings = a: b: (a+(substring 0 0 b)) == ((substring 0 0 a)+b);
|
2009-09-28 12:22:37 -06:00
|
|
|
|
|
2012-03-28 09:43:39 -06:00
|
|
|
|
|
2009-09-28 12:22:37 -06:00
|
|
|
|
# Cut a string with a separator and produces a list of strings which were
|
|
|
|
|
# separated by this separator. e.g.,
|
|
|
|
|
# `splitString "." "foo.bar.baz"' returns ["foo" "bar" "baz"].
|
|
|
|
|
splitString = sep: s:
|
|
|
|
|
let
|
|
|
|
|
sepLen = stringLength sep;
|
|
|
|
|
sLen = stringLength s;
|
|
|
|
|
lastSearch = sub sLen sepLen;
|
|
|
|
|
startWithSep = startAt:
|
|
|
|
|
substring startAt sepLen s == sep;
|
|
|
|
|
|
|
|
|
|
recurse = index: startAt:
|
|
|
|
|
let cutUntil = i: [(substring startAt (sub i startAt) s)]; in
|
|
|
|
|
if lessThan index lastSearch then
|
|
|
|
|
if startWithSep index then
|
|
|
|
|
let restartAt = add index sepLen; in
|
|
|
|
|
cutUntil index ++ recurse restartAt restartAt
|
|
|
|
|
else
|
|
|
|
|
recurse (add index 1) startAt
|
|
|
|
|
else
|
|
|
|
|
cutUntil sLen;
|
|
|
|
|
in
|
|
|
|
|
recurse 0 0;
|
2009-10-06 03:21:39 -06:00
|
|
|
|
|
2012-03-28 09:43:39 -06:00
|
|
|
|
|
2009-10-06 03:21:39 -06:00
|
|
|
|
# return the suffix of the second argument if the first argument match its
|
|
|
|
|
# prefix. e.g.,
|
|
|
|
|
# `removePrefix "foo." "foo.bar.baz"' returns "bar.baz".
|
|
|
|
|
removePrefix = pre: s:
|
|
|
|
|
let
|
|
|
|
|
preLen = stringLength pre;
|
|
|
|
|
sLen = stringLength s;
|
|
|
|
|
in
|
|
|
|
|
if pre == substring 0 preLen s then
|
|
|
|
|
substring preLen (sub sLen preLen) s
|
|
|
|
|
else
|
|
|
|
|
s;
|
|
|
|
|
|
2012-03-19 12:04:47 -06:00
|
|
|
|
# Return true iff string v1 denotes a version older than v2.
|
|
|
|
|
versionOlder = v1: v2: builtins.compareVersions v2 v1 == 1;
|
|
|
|
|
|
2012-10-05 11:45:27 -06:00
|
|
|
|
|
|
|
|
|
# Get the version of the specified derivation, as specified in its
|
|
|
|
|
# ‘name’ attribute.
|
|
|
|
|
getVersion = drv: (builtins.parseDrvName drv.name).version;
|
|
|
|
|
|
|
|
|
|
|
2013-02-24 11:28:38 -07:00
|
|
|
|
# Extract name with version from URL. Ask for separator which is
|
2012-09-13 03:59:23 -06:00
|
|
|
|
# supposed to start extension
|
|
|
|
|
nameFromURL = url: sep: let
|
|
|
|
|
components = splitString "/" url;
|
|
|
|
|
filename = lib.last components;
|
|
|
|
|
name = builtins.head (splitString sep filename);
|
|
|
|
|
in
|
|
|
|
|
assert ! eqStrings name filename;
|
|
|
|
|
name;
|
|
|
|
|
|
2013-02-24 11:28:24 -07:00
|
|
|
|
|
|
|
|
|
# Create an --{enable,disable}-<feat> string that can be passed to
|
|
|
|
|
# standard GNU Autoconf scripts.
|
|
|
|
|
enableFeature = enable: feat: "--${if enable then "enable" else "disable"}-${feat}";
|
|
|
|
|
|
2009-02-24 09:19:08 -07:00
|
|
|
|
}
|