puppet-parse 0.0.1 → 0.0.2

data/lib/vendor/puppet/parser/functions/extlookup.rb

@@ -0,0 +1,152 @@
+require 'csv'
+
+module Puppet::Parser::Functions
+  newfunction(:extlookup,
+  :type => :rvalue,
+  :doc => "This is a parser function to read data from external files, this version
+uses CSV files but the concept can easily be adjust for databases, yaml
+or any other queryable data source.
+
+The object of this is to make it obvious when it's being used, rather than
+magically loading data in when an module is loaded I prefer to look at the code
+and see statements like:
+
+    $snmp_contact = extlookup(\"snmp_contact\")
+
+The above snippet will load the snmp_contact value from CSV files, this in its
+own is useful but a common construct in puppet manifests is something like this:
+
+    case $domain {
+      \"myclient.com\": { $snmp_contact = \"John Doe <john@myclient.com>\" }
+      default:        { $snmp_contact = \"My Support <support@my.com>\" }
+    }
+
+Over time there will be a lot of this kind of thing spread all over your manifests
+and adding an additional client involves grepping through manifests to find all the
+places where you have constructs like this.
+
+This is a data problem and shouldn't be handled in code, a using this function you
+can do just that.
+
+First you configure it in site.pp:
+
+    $extlookup_datadir = \"/etc/puppet/manifests/extdata\"
+    $extlookup_precedence = [\"%{fqdn}\", \"domain_%{domain}\", \"common\"]
+
+The array tells the code how to resolve values, first it will try to find it in
+web1.myclient.com.csv then in domain_myclient.com.csv and finally in common.csv
+
+Now create the following data files in /etc/puppet/manifests/extdata:
+
+    domain_myclient.com.csv:
+      snmp_contact,John Doe <john@myclient.com>
+      root_contact,support@%{domain}
+      client_trusted_ips,192.168.1.130,192.168.10.0/24
+
+    common.csv:
+      snmp_contact,My Support <support@my.com>
+      root_contact,support@my.com
+
+Now you can replace the case statement with the simple single line to achieve
+the exact same outcome:
+
+   $snmp_contact = extlookup(\"snmp_contact\")
+
+The above code shows some other features, you can use any fact or variable that
+is in scope by simply using %{varname} in your data files, you can return arrays
+by just having multiple values in the csv after the initial variable name.
+
+In the event that a variable is nowhere to be found a critical error will be raised
+that will prevent your manifest from compiling, this is to avoid accidentally putting
+in empty values etc.  You can however specify a default value:
+
+   $ntp_servers = extlookup(\"ntp_servers\", \"1.${country}.pool.ntp.org\")
+
+In this case it will default to \"1.${country}.pool.ntp.org\" if nothing is defined in
+any data file.
+
+You can also specify an additional data file to search first before any others at use
+time, for example:
+
+    $version = extlookup(\"rsyslog_version\", \"present\", \"packages\")
+    package{\"rsyslog\": ensure => $version }
+
+This will look for a version configured in packages.csv and then in the rest as configured
+by $extlookup_precedence if it's not found anywhere it will default to `present`, this kind
+of use case makes puppet a lot nicer for managing large amounts of packages since you do not
+need to edit a load of manifests to do simple things like adjust a desired version number.
+
+Precedence values can have variables embedded in them in the form %{fqdn}, you could for example do:
+
+    $extlookup_precedence = [\"hosts/%{fqdn}\", \"common\"]
+
+This will result in /path/to/extdata/hosts/your.box.com.csv being searched.
+
+This is for back compatibility to interpolate variables with %. % interpolation is a workaround for a problem that has been fixed: Puppet variable interpolation at top scope used to only happen on each run.") do |args|
+
+  key = args[0]
+
+  default  = args[1]
+  datafile = args[2]
+
+  raise Puppet::ParseError, ("extlookup(): wrong number of arguments (#{args.length}; must be <= 3)") if args.length > 3
+
+  extlookup_datadir = undef_as('',lookupvar('::extlookup_datadir'))
+
+  extlookup_precedence = undef_as([],lookupvar('::extlookup_precedence')).collect { |var| var.gsub(/%\{(.+?)\}/) { lookupvar("::#{$1}") } }
+
+  datafiles = Array.new
+
+  # if we got a custom data file, put it first in the array of search files
+  if datafile != ""
+    datafiles << extlookup_datadir + "/#{datafile}.csv" if File.exists?(extlookup_datadir + "/#{datafile}.csv")
+  end
+
+  extlookup_precedence.each do |d|
+    datafiles << extlookup_datadir + "/#{d}.csv"
+  end
+
+  desired = nil
+
+  datafiles.each do |file|
+    if desired.nil?
+      if File.exists?(file)
+        result = CSV.read(file).find_all do |r|
+          r[0] == key
+        end
+
+        # return just the single result if theres just one,
+        # else take all the fields in the csv and build an array
+        if result.length > 0
+          if result[0].length == 2
+            val = result[0][1].to_s
+
+            # parse %{}'s in the CSV into local variables using lookupvar()
+            while val =~ /%\{(.+?)\}/
+              val.gsub!(/%\{#{$1}\}/, lookupvar($1))
+            end
+
+            desired = val
+          elsif result[0].length > 1
+            length = result[0].length
+            cells = result[0][1,length]
+
+            # Individual cells in a CSV result are a weird data type and throws
+            # puppets yaml parsing, so just map it all to plain old strings
+            desired = cells.map do |c|
+              # parse %{}'s in the CSV into local variables using lookupvar()
+              while c =~ /%\{(.+?)\}/
+                c.gsub!(/%\{#{$1}\}/, lookupvar($1))
+              end
+
+              c.to_s
+            end
+          end
+        end
+      end
+    end
+  end
+
+  desired || default or raise Puppet::ParseError, "No match found for '#{key}' in any data file during extlookup()"
+  end
+end

data/lib/vendor/puppet/parser/functions/fail.rb

@@ -0,0 +1,4 @@
+Puppet::Parser::Functions::newfunction(:fail, :doc => "Fail with a parse error.") do |vals|
+    vals = vals.collect { |s| s.to_s }.join(" ") if vals.is_a? Array
+    raise Puppet::ParseError, vals.to_s
+end

data/lib/vendor/puppet/parser/functions/file.rb

@@ -0,0 +1,23 @@
+# Returns the contents of a file
+
+      Puppet::Parser::Functions::newfunction(
+        :file, :type => :rvalue,
+
+    :doc => "Return the contents of a file.  Multiple files
+    can be passed, and the first file that exists will be read in.") do |vals|
+      ret = nil
+      vals.each do |file|
+        unless Puppet::Util.absolute_path?(file)
+          raise Puppet::ParseError, "Files must be fully qualified"
+        end
+        if FileTest.exists?(file)
+          ret = File.read(file)
+          break
+        end
+      end
+      if ret
+        ret
+      else
+        raise Puppet::ParseError, "Could not find any files from #{vals.join(", ")}"
+      end
+end

data/lib/vendor/puppet/parser/functions/fqdn_rand.rb

@@ -0,0 +1,13 @@
+require 'digest/md5'
+
+Puppet::Parser::Functions::newfunction(:fqdn_rand, :type => :rvalue, :doc =>
+  "Generates random numbers based on the node's fqdn. Generated random values
+  will be a range from 0 up to and excluding n, where n is the first parameter.
+  The second argument specifies a number to add to the seed and is optional, for example:
+
+      $random_number = fqdn_rand(30)
+      $random_number_seed = fqdn_rand(30,30)") do |args|
+    max = args.shift
+    srand(Digest::MD5.hexdigest([lookupvar('::fqdn'),args].join(':')).hex)
+    rand(max).to_s
+end

data/lib/vendor/puppet/parser/functions/generate.rb

@@ -0,0 +1,37 @@
+# Runs an external command and returns the results
+Puppet::Parser::Functions::newfunction(:generate, :type => :rvalue,
+    :doc => "Calls an external command on the Puppet master and returns
+    the results of the command.  Any arguments are passed to the external command as
+    arguments.  If the generator does not exit with return code of 0,
+    the generator is considered to have failed and a parse error is
+    thrown.  Generators can only have file separators, alphanumerics, dashes,
+    and periods in them.  This function will attempt to protect you from
+    malicious generator calls (e.g., those with '..' in them), but it can
+    never be entirely safe.  No subshell is used to execute
+    generators, so all shell metacharacters are passed directly to
+    the generator.") do |args|
+
+      raise Puppet::ParseError, "Generators must be fully qualified" unless Puppet::Util.absolute_path?(args[0])
+
+      if Puppet.features.microsoft_windows?
+        valid = args[0] =~ /^[a-z]:(?:[\/\\][\w.-]+)+$/i
+      else
+        valid = args[0] =~ /^[-\/\w.]+$/
+      end
+
+      unless valid
+        raise Puppet::ParseError,
+          "Generators can only contain alphanumerics, file separators, and dashes"
+      end
+
+      if args[0] =~ /\.\./
+        raise Puppet::ParseError,
+          "Can not use generators with '..' in them."
+      end
+
+      begin
+        Dir.chdir(File.dirname(args[0])) { Puppet::Util.execute(args) }
+      rescue Puppet::ExecutionFailure => detail
+        raise Puppet::ParseError, "Failed to execute generator #{args[0]}: #{detail}"
+      end
+end

data/lib/vendor/puppet/parser/functions/include.rb

@@ -0,0 +1,24 @@
+# Include the specified classes
+Puppet::Parser::Functions::newfunction(:include, :doc => "Evaluate one or more classes.") do |vals|
+    vals = [vals] unless vals.is_a?(Array)
+
+    # The 'false' disables lazy evaluation.
+    klasses = compiler.evaluate_classes(vals, self, false)
+
+    missing = vals.find_all do |klass|
+      ! klasses.include?(klass)
+    end
+
+    unless missing.empty?
+      # Throw an error if we didn't evaluate all of the classes.
+      str = "Could not find class"
+      str += "es" if missing.length > 1
+
+      str += " " + missing.join(", ")
+
+      if n = namespaces and ! n.empty? and n != [""]
+        str += " in namespaces #{@namespaces.join(", ")}"
+      end
+      self.fail Puppet::ParseError, str
+    end
+end

data/lib/vendor/puppet/parser/functions/inline_template.rb

@@ -0,0 +1,21 @@
+Puppet::Parser::Functions::newfunction(:inline_template, :type => :rvalue, :doc =>
+  "Evaluate a template string and return its value.  See 
+  [the templating docs](http://docs.puppetlabs.com/guides/templating.html) for 
+  more information.  Note that if multiple template strings are specified, their 
+  output is all concatenated and returned as the output of the function.") do |vals|
+  
+  require 'erb'
+
+    vals.collect do |string|
+      # Use a wrapper, so the template can't get access to the full
+      # Scope object.
+
+      wrapper = Puppet::Parser::TemplateWrapper.new(self)
+      begin
+        wrapper.result(string)
+      rescue => detail
+        raise Puppet::ParseError,
+          "Failed to parse inline template: #{detail}"
+      end
+    end.join("")
+end

data/lib/vendor/puppet/parser/functions/md5.rb

@@ -0,0 +1,5 @@
+require 'digest/md5'
+
+Puppet::Parser::Functions::newfunction(:md5, :type => :rvalue, :doc => "Returns a MD5 hash value from a provided string.") do |args|
+      Digest::MD5.hexdigest(args[0])
+end

data/lib/vendor/puppet/parser/functions/realize.rb

@@ -0,0 +1,14 @@
+# This is just syntactic sugar for a collection, although it will generally
+# be a good bit faster.
+
+Puppet::Parser::Functions::newfunction(:realize, :doc => "Make a virtual object real.  This is useful
+    when you want to know the name of the virtual object and don't want to
+    bother with a full collection.  It is slightly faster than a collection,
+    and, of course, is a bit shorter.  You must pass the object using a
+    reference; e.g.: `realize User[luke]`." ) do |vals|
+    coll = Puppet::Parser::Collector.new(self, :nomatter, nil, nil, :virtual)
+    vals = [vals] unless vals.is_a?(Array)
+    coll.resources = vals.flatten
+
+    compiler.add_collection(coll)
+end

data/lib/vendor/puppet/parser/functions/regsubst.rb

@@ -0,0 +1,119 @@
+# Copyright (C) 2009 Thomas Bellman
+#
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+#
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+# IN NO EVENT SHALL THOMAS BELLMAN BE LIABLE FOR ANY CLAIM, DAMAGES OR
+# OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
+# ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
+# OTHER DEALINGS IN THE SOFTWARE.
+#
+# Except as contained in this notice, the name of Thomas Bellman shall
+# not be used in advertising or otherwise to promote the sale, use or
+# other dealings in this Software without prior written authorization
+# from Thomas Bellman.
+
+module Puppet::Parser::Functions
+
+  newfunction(
+  :regsubst, :type => :rvalue,
+
+  :doc => "
+Perform regexp replacement on a string or array of strings.
+
+* *Parameters* (in order):
+    * _target_  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.
+    * _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.
+    * _replacement_  Replacement string. Can contain backreferences to what was matched using \\0 (whole match), \\1 (first set of parentheses), and so on.
+    * _flags_  Optional. String of single letter flags for how the regexp is interpreted:
+        - *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.
+    * _encoding_  Optional.  How to handle multibyte characters.  A single-character string with the following values:
+        - *N*         None
+        - *E*         EUC
+        - *S*         SJIS
+        - *U*         UTF-8
+
+* *Examples*
+
+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')
+") \
+  do |args|
+    unless args.length.between?(3, 5)
+
+      raise(
+        Puppet::ParseError,
+
+          "regsubst(): got #{args.length} arguments, expected 3 to 5")
+    end
+    target, regexp, replacement, flags, lang = args
+    reflags = 0
+    operation = :sub
+    if flags == nil
+      flags = []
+    elsif flags.respond_to?(:split)
+      flags = flags.split('')
+    else
+
+      raise(
+        Puppet::ParseError,
+
+          "regsubst(): bad flags parameter #{flags.class}:`#{flags}'")
+    end
+    flags.each do |f|
+      case f
+      when 'G' then operation = :gsub
+      when 'E' then reflags |= Regexp::EXTENDED
+      when 'I' then reflags |= Regexp::IGNORECASE
+      when 'M' then reflags |= Regexp::MULTILINE
+      else raise(Puppet::ParseError, "regsubst(): bad flag `#{f}'")
+      end
+    end
+    begin
+      re = Regexp.compile(regexp, reflags, lang)
+    rescue RegexpError, TypeError
+
+      raise(
+        Puppet::ParseError,
+
+          "regsubst(): Bad regular expression `#{regexp}'")
+    end
+    if target.respond_to?(operation)
+      # String parameter -> string result
+      result = target.send(operation, re, replacement)
+    elsif target.respond_to?(:collect) and
+      target.respond_to?(:all?) and
+      target.all? { |e| e.respond_to?(operation) }
+      # Array parameter -> array result
+      result = target.collect { |e|
+        e.send(operation, re, replacement)
+      }
+    else
+
+      raise(
+        Puppet::ParseError,
+
+          "regsubst(): bad target #{target.class}:`#{target}'")
+    end
+    return result
+  end
+end

data/lib/vendor/puppet/parser/functions/require.rb

@@ -0,0 +1,57 @@
+# Requires the specified classes
+
+  Puppet::Parser::Functions::newfunction(
+    :require,
+
+    :doc =>"Evaluate one or more classes,  adding the required class as a dependency.
+
+The relationship metaparameters work well for specifying relationships
+between individual resources, but they can be clumsy for specifying
+relationships between classes.  This function is a superset of the
+'include' function, adding a class relationship so that the requiring
+class depends on the required class.
+
+Warning: using require in place of include can lead to unwanted dependency cycles.
+
+For instance the following manifest, with 'require' instead of 'include' would produce a nasty dependence cycle, because notify imposes a before between File[/foo] and Service[foo]:
+
+    class myservice {
+      service { foo: ensure => running }
+    }
+
+    class otherstuff {
+      include myservice
+      file { '/foo': notify => Service[foo] }
+    }
+
+Note that this function only works with clients 0.25 and later, and it will
+fail if used with earlier clients.
+
+") do |vals|
+  # Verify that the 'include' function is loaded
+  method = Puppet::Parser::Functions.function(:include)
+
+  send(method, vals)
+  if resource.metaparam_compatibility_mode?
+    warning "The 'require' function is only compatible with clients at 0.25 and above; including class but not adding dependency"
+  else
+    vals = [vals] unless vals.is_a?(Array)
+
+    vals.each do |klass|
+      # lookup the class in the scopes
+      if classobj = find_hostclass(klass)
+        klass = classobj.name
+      else
+        raise Puppet::ParseError, "Could not find class #{klass}"
+      end
+
+      # This is a bit hackish, in some ways, but it's the only way
+      # to configure a dependency that will make it to the client.
+      # The 'obvious' way is just to add an edge in the catalog,
+      # but that is considered a containment edge, not a dependency
+      # edge, so it usually gets lost on the client.
+      ref = Puppet::Resource.new(:class, klass)
+      resource.set_parameter(:require, [resource[:require]].flatten.compact << ref)
+    end
+  end
+end

data/lib/vendor/puppet/parser/functions/search.rb

@@ -0,0 +1,7 @@
+Puppet::Parser::Functions::newfunction(:search, :doc => "Add another namespace for this class to search.
+    This allows you to create classes with sets of definitions and add
+    those classes to another class's search path.") do |vals|
+    vals.each do |val|
+      add_namespace(val)
+    end
+end

data/lib/vendor/puppet/parser/functions/sha1.rb

@@ -0,0 +1,5 @@
+require 'digest/sha1'
+
+Puppet::Parser::Functions::newfunction(:sha1, :type => :rvalue, :doc => "Returns a SHA1 hash value from a provided string.") do |args|
+      Digest::SHA1.hexdigest(args[0])
+end

data/lib/vendor/puppet/parser/functions/shellquote.rb

@@ -0,0 +1,61 @@
+# Copyright (C) 2009 Thomas Bellman
+#
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+#
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+# IN NO EVENT SHALL THOMAS BELLMAN BE LIABLE FOR ANY CLAIM, DAMAGES OR
+# OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
+# ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
+# OTHER DEALINGS IN THE SOFTWARE.
+#
+# Except as contained in this notice, the name of Thomas Bellman shall
+# not be used in advertising or otherwise to promote the sale, use or
+# other dealings in this Software without prior written authorization
+# from Thomas Bellman.
+
+Puppet::Parser::Functions.newfunction(:shellquote, :type => :rvalue, :doc => "\
+    Quote and concatenate arguments for use in Bourne shell.
+
+    Each argument is quoted separately, and then all are concatenated
+    with spaces.  If an argument is an array, the elements of that
+    array is interpolated within the rest of the arguments; this makes
+    it possible to have an array of arguments and pass that array to
+    shellquote instead of having to specify each argument
+    individually in the call.
+    ") \
+do |args|
+  safe = 'a-zA-Z0-9@%_+=:,./-'    # Safe unquoted
+  dangerous = '!"`$\\'            # Unsafe inside double quotes
+
+  result = []
+  args.flatten.each do |word|
+    if word.length != 0 and word.count(safe) == word.length
+      result << word
+    elsif word.count(dangerous) == 0
+      result << ('"' + word + '"')
+    elsif word.count("'") == 0
+      result << ("'" + word + "'")
+    else
+      r = '"'
+      word.each_byte do |c|
+        r += "\\" if dangerous.include?(c)
+        r += c.chr
+      end
+      r += '"'
+      result << r
+    end
+  end
+
+  return result.join(" ")
+end

data/lib/vendor/puppet/parser/functions/split.rb

@@ -0,0 +1,29 @@
+module Puppet::Parser::Functions
+
+  newfunction(
+  :split, :type => :rvalue,
+
+    :doc => "\
+Split a string variable into an array using the specified split regexp.
+
+*Example:*
+
+    $string     = 'v1.v2:v3.v4'
+    $array_var1 = split($string, ':')
+    $array_var2 = split($string, '[.]')
+    $array_var3 = split($string, '[.:]')
+
+`$array_var1` now holds the result `['v1.v2', 'v3.v4']`,
+while `$array_var2` holds `['v1', 'v2:v3', 'v4']`, and
+`$array_var3` holds `['v1', 'v2', 'v3', 'v4']`.
+
+Note that in the second example, we split on a literal string that contains
+a regexp meta-character (.), which must be escaped.  A simple
+way to do that for a single character is to enclose it in square
+brackets; a backslash will also escape a single character.") do |args|
+
+  raise Puppet::ParseError, ("split(): wrong number of arguments (#{args.length}; must be 2)") if args.length != 2
+
+  return args[0].split(Regexp.compile(args[1]))
+  end
+end

data/lib/vendor/puppet/parser/functions/sprintf.rb

@@ -0,0 +1,39 @@
+# Copyright (C) 2009 Thomas Bellman
+#
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+#
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+# IN NO EVENT SHALL THOMAS BELLMAN BE LIABLE FOR ANY CLAIM, DAMAGES OR
+# OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
+# ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
+# OTHER DEALINGS IN THE SOFTWARE.
+#
+# Except as contained in this notice, the name of Thomas Bellman shall
+# not be used in advertising or otherwise to promote the sale, use or
+# other dealings in this Software without prior written authorization
+# from Thomas Bellman.
+
+module Puppet::Parser::Functions
+
+  newfunction(
+  :sprintf, :type => :rvalue,
+
+    :doc => "Perform printf-style formatting of text.
+
+      The first parameter is format string describing how the rest of the parameters should be formatted.  See the documentation for the `Kernel::sprintf` function in Ruby for all the details.") do |args|
+    raise Puppet::ParseError, 'sprintf() needs at least one argument' if args.length < 1
+    fmt = args.shift
+    return sprintf(fmt, *args)
+  end
+end

data/lib/vendor/puppet/parser/functions/tag.rb

@@ -0,0 +1,6 @@
+# Tag the current scope with each passed name
+Puppet::Parser::Functions::newfunction(:tag, :doc => "Add the specified tags to the containing class
+  or definition.  All contained objects will then acquire that tag, also.
+  ") do |vals|
+    self.resource.tag(*vals)
+end

data/lib/vendor/puppet/parser/functions/tagged.rb

@@ -0,0 +1,18 @@
+# Test whether a given tag is set.  This functions as a big OR -- if any of the specified tags are unset, we return false.
+Puppet::Parser::Functions::newfunction(:tagged, :type => :rvalue, :doc => "A boolean function that
+  tells you whether the current container is tagged with the specified tags.
+  The tags are ANDed, so that all of the specified tags must be included for
+  the function to return true.") do |vals|
+    configtags = compiler.catalog.tags
+    resourcetags = resource.tags
+
+    retval = true
+    vals.each do |val|
+      unless configtags.include?(val) or resourcetags.include?(val)
+        retval = false
+        break
+      end
+    end
+
+    return retval
+end