puppet 3.8.7-x64-mingw32 → 4.0.0.rc1-x64-mingw32

data/lib/puppet/functions/hiera_hash.rb

@@ -1,32 +1,8 @@
 require 'hiera/puppet_function'
 
-# Returns a merged hash of matches from throughout the hierarchy. In cases where two or
-# more hashes share keys, the hierarchy  order determines which key/value pair will be
-#  used in the returned hash, with the pair in the highest priority data source winning.
+# @see lib/puppet/parser/functions/hiera_hash.rb for documentation
+# TODO: Move docs here when the format has been determined.
 #
-#  The function can be called in one of three ways:
-#  1. Using 1 to 3 arguments where the arguments are:
-#     'key'      [String] Required
-#           The key to lookup.
-#     'default`  [Any] Optional
-#           A value to return when there's no match for `key`. Optional
-#     `override` [Any] Optional
-#           An argument in the third position, providing a data source
-#           to consult for matching values, even if it would not ordinarily be
-#           part of the matched hierarchy. If Hiera doesn't find a matching key
-#           in the named override data source, it will continue to search through the
-#           rest of the hierarchy.
-#
-#  2. Using a 'key' and an optional 'override' parameter like in #1 but with a block to
-#     provide the default value. The block is called with one parameter (the key) and
-#     should return the value.
-#
-#  3. Like #1 but with all arguments passed in an array.
-#  `hiera_hash` expects that all values returned will be hashes. If any of the values
-#  found in the data sources are strings or arrays, puppet will raise a type mismatch error.
-#
-#  More thorough examples of `hiera_hash` are available at:
-#  <http://docs.puppetlabs.com/hiera/1/puppet.html#hiera-lookup-functions>
 Puppet::Functions.create_function(:hiera_hash, Hiera::PuppetFunction) do
   init_dispatch
 

data/lib/puppet/functions/hiera_include.rb

@@ -1,41 +1,8 @@
 require 'hiera/puppet_function'
 
-# Assigns classes to a node using an array merge lookup that retrieves the value for a user-specified key
-#   from a Hiera data source.
+# @see lib/puppet/parser/functions/hiera_include.rb for documentation
+# TODO: Move docs here when the format has been determined.
 #
-#  To use `hiera_include`, the following configuration is required:
-#  - A key name to use for classes, e.g. `classes`.
-#  - A line in the puppet `sites.pp` file (e.g. `/etc/puppet/manifests/sites.pp`)
-#    reading `hiera_include('classes')`. Note that this line must be outside any node
-#    definition and below any top-scope variables in use for Hiera lookups.
-#  - Class keys in the appropriate data sources. In a data source keyed to a node's role,
-#    one might have:
-#
-#            ---
-#            classes:
-#              - apache
-#              - apache::passenger
-#  The function can be called in one of three ways:
-#  1. Using 1 to 3 arguments where the arguments are:
-#     'key'      [String] Required
-#           The key to lookup.
-#     'default`  [Any] Optional
-#           A value to return when there's no match for `key`. Optional
-#     `override` [Any] Optional
-#           An argument in the third position, providing a data source
-#           to consult for matching values, even if it would not ordinarily be
-#           part of the matched hierarchy. If Hiera doesn't find a matching key
-#           in the named override data source, it will continue to search through the
-#          rest of the hierarchy.
-#
-#  2. Using a 'key' and an optional 'override' parameter like in #1 but with a block to
-#     provide the default value. The block is called with one parameter (the key) and
-#     should return the array to be used in the subsequent call to include.
-#
-#  3. Like #1 but with all arguments passed in an array.
-#
-#  More thorough examples of `hiera_include` are available at:
-#  <http://docs.puppetlabs.com/hiera/1/puppet.html#hiera-lookup-functions>
 Puppet::Functions.create_function(:hiera_include, Hiera::PuppetFunction) do
   init_dispatch
 
@@ -43,8 +10,8 @@ Puppet::Functions.create_function(:hiera_include, Hiera::PuppetFunction) do
     :array
   end
 
-  def post_lookup(scope, key, value)
+  def post_lookup(key, value)
     raise Puppet::ParseError, "Could not find data item #{key}" if value.nil?
-    call_function_with_scope(scope, 'include', value) unless value.empty?
+    call_function('include', value) unless value.empty?
   end
 end

data/lib/puppet/functions/inline_epp.rb

@@ -70,8 +70,7 @@
 #     Hello <%= $x %> <%= $y %>!
 #     END
 #
-# @since 3.5
-# @note Requires Future Parser
+# @since 4.0.0
 #
 Puppet::Functions.create_function(:inline_epp, Puppet::Functions::InternalFunction) do
 

data/lib/puppet/functions/lookup.rb

@@ -0,0 +1,234 @@
+# Looks up data defined using Data Binding, and Data Providers using different strategies. The lookup searches in
+# Data Bindings first (if configured; typically Hiera), then in the environments data provider (if any), and last in
+# the module's data provider (if any) of the module the call to lookup originates from. Thus, the global Data Binding
+# has higher priority than data provided in the environment, which has higher priority than data provided in a module,
+#
+# The lookup function can be called in one of these ways:
+#
+#     lookup(name)
+#     lookup(name, value_type)
+#     lookup(name, value_type, merge)
+#     lookup(name, value_type, merge, default_value)
+#     lookup(options_hash)
+#     lookup(name, options_hash)
+#
+# The function may optionally be called with a code block / lambda with the following signature:
+#
+#     lookup(...) |$name| { ... }
+#
+# The block, if present, is mutually exclusive to the `default_value` and will be called with the `name` used in the
+# lookup when no value is found. The value produced by the block then becomes the value produced by the lookup.
+#
+# The meaning of the parameters or content of the options hash is:
+#
+# * `name` - The name or array of names to lookup (first found is returned)
+# * `value_type` - The type to assert. Defaults to 'Data' See 'Type Specification' below.
+# * `default_value` - The default value if there was no value found (must comply with the data type)
+# * `override` - a hash with map from names to values that are used instead of the underlying bindings. If the name
+#   is found here it wins. Defaults to an empty hash.
+# * `default_values_hash` - a hash with map from names to values that are used as a last resort to obtain a value.
+#   Defaults to an empty hash.
+# * `merge` - A string of type Enum[unique, hash, merge] or a hash with the key 'strategy' set to that string. See
+#   'Merge Strategies' below.
+#
+# It is not permitted to pass the `name` as both a parameter and in the options hash.
+#
+# The search will proceed as follows:
+# 1. For each name given in the `name` array (or once, if it's just one name):
+#   - If a matching key is found in the `override` hash, it's value is immediately type checked and returned
+#   - Search and optionally merge Data Binding, environment data providers, and module data providers
+#   - Type check and return the value if a matching key is found
+# 2. For each name given in the `name` array (or once, if it's just one name):
+#   - Type check and return the value if a matching key is found in the `default_values_hash`
+# 3. Type check and return either the given `default_value` or the result of calling the code block if either exist
+# 4. Raise an error indicating that no matching value was found
+#
+# *Merge Strategies*
+#
+# The default behavior of the lookup is to return the first value that is found for the given `name`. The optional
+# `merge` parameter will change this so that a lookup makes an attempt to find values in all three sources (the Data
+# Binder, the environment, and the module scope) and then merge these values according to the given strategy. This
+# does not apply to values found in the 'override' hash. Such values are returned immediately without merging.
+# Note that `merge` is passed on to allow the underlying provider to return a merged result
+#
+# The valid strategies are:
+#  - 'hash' Performs a simple hash-merge by overwriting keys of lower lookup priority. Merged values must be of Hash type
+#  - 'unique' Appends everything to an array containing no nested arrays and where all duplicates have been removed. Can
+#    append values of Scalar or Array[Scalar] type
+#  - 'deep' Performs a deep merge on values of Array and Hash type. See documentation for the DeepMerge gem's deep_merge
+#    operation for details and options.
+#
+# The 'deep' strategy can use additional options to control its behavior. Options can be passed as top level
+# keys in the `merge` parameter when it is a given as a hash. Recognized options are:
+#  - 'knockout_prefix' Set to string value to signify prefix which deletes elements from existing element. Defaults is _undef_
+#  - 'sort_merged_arrays' Set to _true_ to sort all arrays that are merged together. Default is _false_
+#  - 'unpack_arrays' Set to string value used as a deliminator to join all array values and then split them again. Default is _undef_
+#  - 'merge_hash_arrays' Set to _true_ to merge hashes within arrays. Default is _false_
+#
+# *Type Specification*
+#
+# The type specification is a type in the Puppet Type System, e.g.:
+#   * `Integer`, an integral value with optional range e.g.:
+#     * `Integer[0, default]` - 0 or positive
+#     * `Integer[default, -1]` - negative,
+#     * `Integer[1,100]` - value between 1 and 100 inclusive
+#   * `String`- any string
+#   * `Float` - floating point number (same signature as for Integer for `Integer` ranges)
+#   * `Boolean` - true of false (strict)
+#   * `Array` - an array (of Data by default), or parameterized as `Array[<element_type>]`, where
+#     `<element_type>` is the expected type of elements
+#   * `Hash`,  - a hash (of default `Literal` keys and `Data` values), or parameterized as
+#     `Hash[<value_type>]`, `Hash[<key_type>, <value_type>]`, where `<key_type>`, and
+#     `<value_type>` are the types of the keys and values respectively
+#     (key is `Literal` by default).
+#   * `Data` - abstract type representing any `Literal` (including _undef_), `Array[Data]`, or `Hash[Literal, Data]`
+#   * `Pattern[<p1>, <p2>, ..., <pn>]` - an enumeration of valid patterns (one or more) where
+#      a pattern is a regular expression string or regular expression,
+#      e.g. `Pattern['.com$', '.net$']`, `Pattern[/[a-z]+[0-9]+/]`
+#   * `Enum[<s1>, <s2>, ..., <sn>]`, - an enumeration of exact string values (one or more)
+#      e.g. `Enum[blue, red, green]`.
+#   * `Variant[<t1>, <t2>,...<tn>]` - matches one of the listed types (at least one must be given)
+#     e.g. `Variant[Integer[8000,8999], Integer[20000, 99999]]` to accept a value in either range
+#   * `Regexp`- a regular expression (i.e. the result is a regular expression, not a string
+#      matching a regular expression).
+#
+# For more options and details about types, see the Puppet Language Reference
+#
+# *Handling of undef*
+#
+# When no match is found for the given `name` when searching all sources, (including the `override`and
+# `default_values_hash`), then the value used is either the `default_value` or the value produced by the given block.
+# If neither is provided, then the lookup will always raise an error. Note that this only applies when there's no
+# match for the given `name`. It does not happen when a value is found and that value happens to be _undef_.
+#
+# *Validation of returned value*
+#
+# The produced value is subject to type validation using the `value_type` (if given) and an error is raised unless
+# the resulting value is of correct type.
+#
+# *Examples*
+#
+# When called with one argument; **the name**, it
+# returns the bound value with the given name after having  asserted it has the default datatype `Data`:
+#
+#     lookup('the_name')
+#
+# When called with two arguments; **the name**, and **the expected type**, it
+# returns the bound value with the given name after having asserted it has the given data
+# type ('String' in the example):
+#
+#     lookup('the_name', String)
+#
+# When called with four arguments, **the name**, the **expected type**, the **merge** strategy, and a
+# **default value**, it returns the bound value with the given name, or the default after having asserted the value
+# has the given data type:
+#
+#     lookup('the_name', String, undef, 'Fred')
+#     lookup('the_name', Array[String], 'unique', [Fred])
+#
+# Using a lambda to provide a default value by calling a function:
+#
+#     lookup('the_size', Integer[1,100]) |$name| {
+#       obtain_size_default()
+#     }
+#
+# There are two ways to make lookup return undef when no matching key was found instead of raising an error.
+# Either call it with four arguments (the `merge` argument must be present even when using the default strategy
+# to ensure that the four argument variant is used):
+#
+#      $are_you_there = lookup('peekaboo', Optional[String], undef, undef)
+#
+# or call it using an options hash:
+#
+#      $are_you_there = lookup('peekaboo', { 'default_value' => undef })
+#      $are_you_there = lookup({ 'name' => 'peekaboo', 'default_value' => undef })
+#
+# or with a block that produces an undef value:
+#
+#      $are_you_there = lookup('peekaboo', Optional[String]) |$name| { undef }
+#
+# - Since 4.0.0
+Puppet::Functions.create_function(:lookup, Puppet::Functions::InternalFunction) do
+  name_t = 'Variant[String,Array[String]]'
+  value_type_t = 'Optional[Type]'
+  default_value_t = 'Any'
+  override_t = 'Optional[Hash[String,Any]]'
+  default_values_hash_t = 'Optional[Hash[String,Any]]'
+  merge_t = 'Optional[Variant[String[1],Hash[String,Scalar]]]'
+  block_t = "Callable[#{name_t}]"
+  option_pairs =
+      "value_type=>#{value_type_t},"\
+      "default_value=>Optional[#{default_value_t}],"\
+      "override=>#{override_t},"\
+      "default_values_hash=>#{default_values_hash_t},"\
+      "merge=>#{merge_t}"\
+
+  dispatch :lookup_1 do
+    scope_param
+    param           name_t,       :name
+    optional_param  value_type_t, :value_type
+    optional_param  merge_t,      :merge
+  end
+
+  dispatch :lookup_2 do
+    scope_param
+    param  name_t,         :name
+    param  value_type_t,   :value_type
+    param  merge_t,        :merge
+    param default_value_t, :default_value
+  end
+
+  dispatch :lookup_3 do
+    scope_param
+    param           name_t,       :name
+    optional_param  value_type_t, :value_type
+    optional_param  merge_t,      :merge
+    required_block_param block_t, :block
+  end
+
+  # Lookup without name. Name then becomes a required entry in the options hash
+  dispatch :lookup_4 do
+    scope_param
+    param "Struct[{name=>#{name_t},#{option_pairs}}]", :options_hash
+    optional_block_param block_t, :block
+  end
+
+  # Lookup using name and options hash.
+  dispatch :lookup_5 do
+    scope_param
+    param 'Variant[String,Array[String]]', :name
+    param "Struct[{#{option_pairs}}]", :options_hash
+    optional_block_param block_t, :block
+  end
+
+  def lookup_1(scope, name, value_type=nil, merge=nil)
+    Puppet::Pops::Lookup.lookup(scope, name, value_type, nil, false, {}, {}, merge)
+  end
+
+  def lookup_2(scope, name, value_type, merge, default_value)
+    Puppet::Pops::Lookup.lookup(scope, name, value_type, default_value, true, {}, {}, merge)
+  end
+
+  def lookup_3(scope, name, value_type=nil, merge=nil, &block)
+    Puppet::Pops::Lookup.lookup(scope, name, value_type, nil, false, {}, {}, merge, &block)
+  end
+
+  def lookup_4(scope, options_hash, &block)
+    Puppet::Pops::Lookup.lookup(scope, options_hash['name'], *hash_args(options_hash), &block)
+  end
+
+  def lookup_5(scope, name, options_hash, &block)
+    Puppet::Pops::Lookup.lookup(scope, name, *hash_args(options_hash), &block)
+  end
+
+  def hash_args(options_hash)
+    [
+        options_hash['value_type'],
+        options_hash['default_value'],
+        options_hash.include?('default_value'),
+        options_hash['override'] || {},
+        options_hash['default_values_hash'] || {},
+        options_hash['merge']
+    ]
+  end
+end

data/lib/puppet/functions/map.rb

@@ -29,9 +29,7 @@
 #      # Turns hash into array of keys
 #      $a.map |$key,$val|{ $key }
 #
-# @since 3.4 for Array and Hash
-# @since 3.5 for other enumerables, and support for blocks with 2 parameters
-# @note requires `parser = future`
+# @since 4.0.0
 #
 Puppet::Functions.create_function(:map) do
   dispatch :map_Hash_2 do

data/lib/puppet/functions/match.rb

@@ -14,17 +14,17 @@
 #   "abc123".match(/([a-z]+)([1-9]+)/)  # => ["abc", "123"]
 #
 # See the documentation for "The Puppet Type System" for more information about types.
-# @since 3.7.0
+# @since 4.0.0
 #
 Puppet::Functions.create_function(:match) do
   dispatch :match do
-    param 'String', 'string'
-    param 'Variant[Any, Type]', 'pattern'
+    param 'String', :string
+    param 'Variant[Any, Type]', :pattern
   end
 
   dispatch :enumerable_match do
-    param 'Array[String]', 'string'
-    param 'Variant[Any, Type]', 'pattern'
+    param 'Array[String]', :string
+    param 'Variant[Any, Type]', :pattern
   end
 
   def initialize(closure_scope, loader)

data/lib/puppet/functions/reduce.rb

@@ -57,9 +57,7 @@
 #       Integer[1,4].reduce |$memo, $x| { $memo + $x }
 #       #=> 10
 #
-# @since 3.2 for Array and Hash
-# @since 3.5 for additional enumerable types
-# @note requires `parser = future`.
+# @since 4.0.0
 #
 Puppet::Functions.create_function(:reduce) do
 

data/lib/puppet/functions/regsubst.rb

@@ -0,0 +1,79 @@
+# Perform regexp replacement on a string or array of strings.
+#
+# @example
+#
+# Get the third octet from the node's IP address:
+#
+#   $i3 = regsubst($ipaddress,'^(\\d+)\\.(\\d+)\\.(\\d+)\\.(\\d+)$','\\3')
+#
+# Put angle brackets around each octet in the node's IP address:
+#
+#   $x = regsubst($ipaddress, /([0-9]+)/, '<\\1>', 'G')
+#
+# @param target [Array[String]|String]
+#      The string or array of strings to operate on.  If an array, the replacement will be
+#      performed on each of the elements in the array, and the return value will be an array.
+# @param regexp [String|Regexp|Type[Regexp]]
+#      The regular expression matching the target string.  If you want it anchored at the start
+#      and or end of the string, you must do that with ^ and $ yourself.
+# @param replacement [String]
+#      Replacement string. Can contain backreferences to what was matched using \\0 (whole match),
+#      \\1 (first set of parentheses), and so on.
+# @param flags [String]
+#      Optional. String of single letter flags for how the regexp is interpreted (E, I, and M cannot be used
+#      if pattern is a precompiled regexp):
+#        - *E*         Extended regexps
+#        - *I*         Ignore case in regexps
+#        - *M*         Multiline regexps
+#        - *G*         Global replacement; all occurrences of the regexp in each target string will be replaced.  Without this, only the first occurrence will be replaced.
+# @param encoding [String]
+#      Optional. How to handle multibyte characters when compiling the regexp (must not be used when pattern is a
+#      precompiled regexp). A single-character string with the following values:
+#        - *N*         None
+#        - *E*         EUC
+#        - *S*         SJIS
+#        - *U*         UTF-8
+# @return [Array[String]|String] The result of the substitution. Result type is the same as for the target parameter.
+#
+Puppet::Functions.create_function(:regsubst) do
+  dispatch :regsubst_string do
+    param          'Variant[Array[String],String]',  :target
+    param          'String',                         :pattern
+    param          'String',                         :replacement
+    optional_param 'Optional[Pattern[/^[GEIM]*$/]]', :flags
+    optional_param "Enum['N','E','S','U']",          :encoding
+  end
+
+  dispatch :regsubst_regexp do
+    param          'Variant[Array[String],String]',  :target
+    param          'Variant[Regexp,Type[Regexp]]',   :pattern
+    param          'String',                         :replacement
+    optional_param 'Pattern[/^G?$/]',                :flags
+  end
+
+  def regsubst_string(target, pattern, replacement, flags = nil, encoding = nil)
+    re_flags = 0
+    operation = :sub
+    if !flags.nil?
+      flags.split(//).each do |f|
+        case f
+        when 'G' then operation = :gsub
+        when 'E' then re_flags |= Regexp::EXTENDED
+        when 'I' then re_flags |= Regexp::IGNORECASE
+        when 'M' then re_flags |= Regexp::MULTILINE
+        end
+      end
+    end
+    inner_regsubst(target, Regexp.compile(pattern, re_flags, encoding), replacement, operation)
+  end
+
+  def regsubst_regexp(target, pattern, replacement, flags = nil)
+    pattern = pattern.pattern if pattern.is_a?(Puppet::Pops::Types::PRegexpType)
+    inner_regsubst(target, pattern, replacement, operation = flags == 'G' ? :gsub : :sub)
+  end
+
+  def inner_regsubst(target, re, replacement, op)
+    target.respond_to?(op) ? target.send(op, re, replacement) : target.collect { |e| e.send(op, re, replacement) }
+  end
+  private :inner_regsubst
+end