···

       
423
       
 
       
      else if isInt x then "int"

     

       
424
       
 
       
      else "string";

     

       
425
       
 
       


     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
426
       
 
       
}

     

···

       
423
       
 
       
      else if isInt x then "int"

     

       
424
       
 
       
      else "string";

     

       
425
       
 
       


     

       
426
       
+
       
  /* deprecated:

     

       
427
       
+
       


     

       
428
       
+
       
     For historical reasons, imap has an index starting at 1.

     

       
429
       
+
       


     

       
430
       
+
       
     But for consistency with the rest of the library we want an index

     

       
431
       
+
       
     starting at zero.

     

       
432
       
+
       
  */

     

       
433
       
+
       
  imap = imap1;

     

       
434
       
 
       
}

     

···

       
77
       
 
       
  */

     

       
78
       
 
       
  foldl' = builtins.foldl' or foldl;

     

       
79
       
 
       


     

       
80
       
-
       
  /* Map with index

     

       
81
       
 
       


     

       
82
       
-
       
     FIXME(zimbatm): why does this start to count at 1?

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
83
       
 
       


     

       
84
       
 
       
     Example:

     

       
85
       
-
       
       imap (i: v: "${v}-${toString i}") ["a" "b"]

     

       
86
       
 
       
       => [ "a-1" "b-2" ]

     

       
87
       
 
       
  */

     

       
88
       
-
       
  imap = f: list: genList (n: f (n + 1) (elemAt list n)) (length list);

     

       
89
       
 
       


     

       
90
       
 
       
  /* Map and concatenate the result.

     

       
91
       
 
       


     

···

       
77
       
 
       
  */

     

       
78
       
 
       
  foldl' = builtins.foldl' or foldl;

     

       
79
       
 
       


     

       
80
       
+
       
  /* Map with index starting from 0

     

       
81
       
 
       


     

       
82
       
+
       
     Example:

     

       
83
       
+
       
       imap0 (i: v: "${v}-${toString i}") ["a" "b"]

     

       
84
       
+
       
       => [ "a-0" "b-1" ]

     

       
85
       
+
       
  */

     

       
86
       
+
       
  imap0 = f: list: genList (n: f n (elemAt list n)) (length list);

     

       
87
       
+
       


     

       
88
       
+
       
  /* Map with index starting from 1

     

       
89
       
 
       


     

       
90
       
 
       
     Example:

     

       
91
       
+
       
       imap1 (i: v: "${v}-${toString i}") ["a" "b"]

     

       
92
       
 
       
       => [ "a-1" "b-2" ]

     

       
93
       
 
       
  */

     

       
94
       
+
       
  imap1 = f: list: genList (n: f (n + 1) (elemAt list n)) (length list);

     

       
95
       
 
       


     

       
96
       
 
       
  /* Map and concatenate the result.

     

       
97
       
 
       


     

···

       
98
       
 
       
  /* Close a set of modules under the ‘imports’ relation. */

     

       
99
       
 
       
  closeModules = modules: args:

     

       
100
       
 
       
    let

     

       
101
       
-
       
      toClosureList = file: parentKey: imap (n: x:

     

       
102
       
 
       
        if isAttrs x || isFunction x then

     

       
103
       
 
       
          let key = "${parentKey}:anon-${toString n}"; in

     

       
104
       
 
       
          unifyModuleSyntax file key (unpackSubmodule (applyIfFunction key) x args)

     

···

       
98
       
 
       
  /* Close a set of modules under the ‘imports’ relation. */

     

       
99
       
 
       
  closeModules = modules: args:

     

       
100
       
 
       
    let

     

       
101
       
+
       
      toClosureList = file: parentKey: imap1 (n: x:

     

       
102
       
 
       
        if isAttrs x || isFunction x then

     

       
103
       
 
       
          let key = "${parentKey}:anon-${toString n}"; in

     

       
104
       
 
       
          unifyModuleSyntax file key (unpackSubmodule (applyIfFunction key) x args)

     

···

       
33
       
 
       
       concatImapStrings (pos: x: "${toString pos}-${x}") ["foo" "bar"]

     

       
34
       
 
       
       => "1-foo2-bar"

     

       
35
       
 
       
  */

     

       
36
       
-
       
  concatImapStrings = f: list: concatStrings (lib.imap f list);

     

       
37
       
 
       


     

       
38
       
 
       
  /* Place an element between each element of a list

     

       
39
       
 
       


     
···

       
70
       
 
       
       concatImapStringsSep "-" (pos: x: toString (x / pos)) [ 6 6 6 ]

     

       
71
       
 
       
       => "6-3-2"

     

       
72
       
 
       
  */

     

       
73
       
-
       
  concatImapStringsSep = sep: f: list: concatStringsSep sep (lib.imap f list);

     

       
74
       
 
       


     

       
75
       
 
       
  /* Construct a Unix-style search path consisting of each `subDir"

     

       
76
       
 
       
     directory of the given list of packages.

     

···

       
33
       
 
       
       concatImapStrings (pos: x: "${toString pos}-${x}") ["foo" "bar"]

     

       
34
       
 
       
       => "1-foo2-bar"

     

       
35
       
 
       
  */

     

       
36
       
+
       
  concatImapStrings = f: list: concatStrings (lib.imap1 f list);

     

       
37
       
 
       


     

       
38
       
 
       
  /* Place an element between each element of a list

     

       
39
       
 
       


     
···

       
70
       
 
       
       concatImapStringsSep "-" (pos: x: toString (x / pos)) [ 6 6 6 ]

     

       
71
       
 
       
       => "6-3-2"

     

       
72
       
 
       
  */

     

       
73
       
+
       
  concatImapStringsSep = sep: f: list: concatStringsSep sep (lib.imap1 f list);

     

       
74
       
 
       


     

       
75
       
 
       
  /* Construct a Unix-style search path consisting of each `subDir"

     

       
76
       
 
       
     directory of the given list of packages.

     

···

       
179
       
 
       
      description = "list of ${elemType.description}s";

     

       
180
       
 
       
      check = isList;

     

       
181
       
 
       
      merge = loc: defs:

     

       
182
       
-
       
        map (x: x.value) (filter (x: x ? value) (concatLists (imap (n: def:

     

       
183
       
 
       
          if isList def.value then

     

       
184
       
-
       
            imap (m: def':

     

       
185
       
 
       
              (mergeDefinitions

     

       
186
       
 
       
                (loc ++ ["[definition ${toString n}-entry ${toString m}]"])

     

       
187
       
 
       
                elemType

     
···

       
220
       
 
       
          if isList def.value then

     

       
221
       
 
       
            { inherit (def) file;

     

       
222
       
 
       
              value = listToAttrs (

     

       
223
       
-
       
                imap (elemIdx: elem:

     

       
224
       
 
       
                  { name = elem.name or "unnamed-${toString defIdx}.${toString elemIdx}";

     

       
225
       
 
       
                    value = elem;

     

       
226
       
 
       
                  }) def.value);

     
···

       
233
       
 
       
        name = "loaOf";

     

       
234
       
 
       
        description = "list or attribute set of ${elemType.description}s";

     

       
235
       
 
       
        check = x: isList x || isAttrs x;

     

       
236
       
-
       
        merge = loc: defs: attrOnly.merge loc (imap convertIfList defs);

     

       
237
       
 
       
        getSubOptions = prefix: elemType.getSubOptions (prefix ++ ["<name?>"]);

     

       
238
       
 
       
        getSubModules = elemType.getSubModules;

     

       
239
       
 
       
        substSubModules = m: loaOf (elemType.substSubModules m);

     

···

       
179
       
 
       
      description = "list of ${elemType.description}s";

     

       
180
       
 
       
      check = isList;

     

       
181
       
 
       
      merge = loc: defs:

     

       
182
       
+
       
        map (x: x.value) (filter (x: x ? value) (concatLists (imap1 (n: def:

     

       
183
       
 
       
          if isList def.value then

     

       
184
       
+
       
            imap1 (m: def':

     

       
185
       
 
       
              (mergeDefinitions

     

       
186
       
 
       
                (loc ++ ["[definition ${toString n}-entry ${toString m}]"])

     

       
187
       
 
       
                elemType

     
···

       
220
       
 
       
          if isList def.value then

     

       
221
       
 
       
            { inherit (def) file;

     

       
222
       
 
       
              value = listToAttrs (

     

       
223
       
+
       
                imap1 (elemIdx: elem:

     

       
224
       
 
       
                  { name = elem.name or "unnamed-${toString defIdx}.${toString elemIdx}";

     

       
225
       
 
       
                    value = elem;

     

       
226
       
 
       
                  }) def.value);

     
···

       
233
       
 
       
        name = "loaOf";

     

       
234
       
 
       
        description = "list or attribute set of ${elemType.description}s";

     

       
235
       
 
       
        check = x: isList x || isAttrs x;

     

       
236
       
+
       
        merge = loc: defs: attrOnly.merge loc (imap1 convertIfList defs);

     

       
237
       
 
       
        getSubOptions = prefix: elemType.getSubOptions (prefix ++ ["<name?>"]);

     

       
238
       
 
       
        getSubModules = elemType.getSubModules;

     

       
239
       
 
       
        substSubModules = m: loaOf (elemType.substSubModules m);

     

···

       
17
       
 
       
    #   }

     

       
18
       
 
       
    merge = loc: defs:

     

       
19
       
 
       
      zipAttrs

     

       
20
       
-
       
        (flatten (imap (n: def: imap (m: def':

     

       
21
       
 
       
          maintainer.merge (loc ++ ["[${toString n}-${toString m}]"])

     

       
22
       
 
       
            [{ inherit (def) file; value = def'; }]) def.value) defs));

     

       
23
       
 
       
  };

     

···

       
17
       
 
       
    #   }

     

       
18
       
 
       
    merge = loc: defs:

     

       
19
       
 
       
      zipAttrs

     

       
20
       
+
       
        (flatten (imap1 (n: def: imap1 (m: def':

     

       
21
       
 
       
          maintainer.merge (loc ++ ["[${toString n}-${toString m}]"])

     

       
22
       
 
       
            [{ inherit (def) file; value = def'; }]) def.value) defs));

     

       
23
       
 
       
  };

     

···

       
44
       
 
       


     

       
45
       
 
       
  cniConfig = pkgs.buildEnv {

     

       
46
       
 
       
    name = "kubernetes-cni-config";

     

       
47
       
-
       
    paths = imap (i: entry:

     

       
48
       
 
       
      pkgs.writeTextDir "${toString (10+i)}-${entry.type}.conf" (builtins.toJSON entry)

     

       
49
       
 
       
    ) cfg.kubelet.cni.config;

     

       
50
       
 
       
  };

     

···

       
44
       
 
       


     

       
45
       
 
       
  cniConfig = pkgs.buildEnv {

     

       
46
       
 
       
    name = "kubernetes-cni-config";

     

       
47
       
+
       
    paths = imap1 (i: entry:

     

       
48
       
 
       
      pkgs.writeTextDir "${toString (10+i)}-${entry.type}.conf" (builtins.toJSON entry)

     

       
49
       
 
       
    ) cfg.kubelet.cni.config;

     

       
50
       
 
       
  };

     

···

       
11
       
 
       


     

       
12
       
 
       
  trim = chars: str: let

     

       
13
       
 
       
      nonchars = filter (x : !(elem x.value chars))

     

       
14
       
-
       
                  (imap (i: v: {ind = (sub i 1); value = v;}) (stringToCharacters str));

     

       
15
       
 
       
    in

     

       
16
       
 
       
      if length nonchars == 0 then ""

     

       
17
       
 
       
      else substring (head nonchars).ind (add 1 (sub (last nonchars).ind (head nonchars).ind)) str;

     

···

       
11
       
 
       


     

       
12
       
 
       
  trim = chars: str: let

     

       
13
       
 
       
      nonchars = filter (x : !(elem x.value chars))

     

       
14
       
+
       
                  (imap0 (i: v: {ind = i; value = v;}) (stringToCharacters str));

     

       
15
       
 
       
    in

     

       
16
       
 
       
      if length nonchars == 0 then ""

     

       
17
       
 
       
      else substring (head nonchars).ind (add 1 (sub (last nonchars).ind (head nonchars).ind)) str;

     

···

       
253
       
 
       
           { source = overrideNameserversScript;

     

       
254
       
 
       
             target = "NetworkManager/dispatcher.d/02overridedns";

     

       
255
       
 
       
           }

     

       
256
       
-
       
      ++ lib.imap (i: s: {

     

       
257
       
 
       
        inherit (s) source;

     

       
258
       
 
       
        target = "NetworkManager/dispatcher.d/${dispatcherTypesSubdirMap.${s.type}}03userscript${lib.fixedWidthNumber 4 i}";

     

       
259
       
 
       
      }) cfg.dispatcherScripts;

     

···

       
253
       
 
       
           { source = overrideNameserversScript;

     

       
254
       
 
       
             target = "NetworkManager/dispatcher.d/02overridedns";

     

       
255
       
 
       
           }

     

       
256
       
+
       
      ++ lib.imap1 (i: s: {

     

       
257
       
 
       
        inherit (s) source;

     

       
258
       
 
       
        target = "NetworkManager/dispatcher.d/${dispatcherTypesSubdirMap.${s.type}}03userscript${lib.fixedWidthNumber 4 i}";

     

       
259
       
 
       
      }) cfg.dispatcherScripts;

     

···

       
71
       
 
       
      name = "multihead${toString num}";

     

       
72
       
 
       
      inherit config;

     

       
73
       
 
       
    };

     

       
74
       
-
       
  in imap mkHead cfg.xrandrHeads;

     

       
75
       
 
       


     

       
76
       
 
       
  xrandrDeviceSection = let

     

       
77
       
 
       
    monitors = flip map xrandrHeads (h: ''

     

···

       
71
       
 
       
      name = "multihead${toString num}";

     

       
72
       
 
       
      inherit config;

     

       
73
       
 
       
    };

     

       
74
       
+
       
  in imap1 mkHead cfg.xrandrHeads;

     

       
75
       
 
       


     

       
76
       
 
       
  xrandrDeviceSection = let

     

       
77
       
 
       
    monitors = flip map xrandrHeads (h: ''

     

···

       
18
       
 
       
    inherit stdenv requireFile writeText fetchurl haskellPackages;

     

       
19
       
 
       
  };

     

       
20
       
 
       


     

       
21
       
-
       
  remixPacks = imap (num: sha256: fetchurl rec {

     

       
22
       
 
       
    name = "uqm-remix-disc${toString num}.uqm";

     

       
23
       
 
       
    url = "mirror://sourceforge/sc2/${name}";

     

       
24
       
 
       
    inherit sha256;

     

···

       
18
       
 
       
    inherit stdenv requireFile writeText fetchurl haskellPackages;

     

       
19
       
 
       
  };

     

       
20
       
 
       


     

       
21
       
+
       
  remixPacks = imap1 (num: sha256: fetchurl rec {

     

       
22
       
 
       
    name = "uqm-remix-disc${toString num}.uqm";

     

       
23
       
 
       
    url = "mirror://sourceforge/sc2/${name}";

     

       
24
       
 
       
    inherit sha256;