Module REXML::Functions

# File lib/rexml/functions.rb, line 277
def Functions::boolean( object=nil )
  if object.kind_of? String
    if object =~ /\d+/u
      return object.to_f != 0
    else
      return object.size > 0
    end
  elsif object.kind_of? Array
    object = object.find{|x| x and true}
  end
  return object ? true : false
end

# File lib/rexml/functions.rb, line 373
def Functions::ceiling( number )
  number(number).ceil
end

# File lib/rexml/functions.rb, line 324
def Functions::compare_language lang1, lang2
  lang2.downcase.index(lang1.downcase) == 0
end

# File lib/rexml/functions.rb, line 152
def Functions::concat( *objects )
  objects.join
end

# File lib/rexml/functions.rb, line 162
def Functions::contains( string, test )
  string(string).include?(string(test))
end

# File lib/rexml/functions.rb, line 19
def Functions::context=(value); @@context = value; end

# File lib/rexml/functions.rb, line 41
def Functions::count( node_set )
  node_set.size
end

# File lib/rexml/functions.rb, line 301
def Functions::false(  )
  false
end

# File lib/rexml/functions.rb, line 369
def Functions::floor( number )
  number(number).floor
end

# File lib/rexml/functions.rb, line 68
def Functions::get_namespace( node_set = nil )
  if node_set == nil
    yield @@context[:node] if defined? @@context[:node].namespace
  else
    if node_set.respond_to? :each
      node_set.each { |node| yield node if defined? node.namespace }
    elsif node_set.respond_to? :namespace
      yield node_set
    end
  end
end

# File lib/rexml/functions.rb, line 47
def Functions::id( object )
end

# File lib/rexml/functions.rb, line 306
def Functions::lang( language )
  lang = false
  node = @@context[:node]
  attr = nil
  until node.nil?
    if node.node_type == :element
      attr = node.attributes["xml:lang"]
      unless attr.nil?
        lang = compare_language(string(language), attr)
        break
      else
      end
    end
    node = node.parent
  end
  lang
end

# File lib/rexml/functions.rb, line 32
def Functions::last( )
  @@context[:size]
end

# File lib/rexml/functions.rb, line 51
def Functions::local_name( node_set=nil )
  get_namespace( node_set ) do |node|
    return node.local_name
  end
end

# File lib/rexml/functions.rb, line 389
def Functions::method_missing( id )
  puts "METHOD MISSING #{id.id2name}"
  XPath.match( @@context[:node], id.id2name )
end

# File lib/rexml/functions.rb, line 61
def Functions::name( node_set=nil )
  get_namespace( node_set ) do |node|
    node.expanded_name
  end
end

# File lib/rexml/functions.rb, line 16
def Functions::namespace_context ; @@namespace_context ; end

# File lib/rexml/functions.rb, line 14
def Functions::namespace_context=(x) ; @@namespace_context=x ; end

# File lib/rexml/functions.rb, line 57
def Functions::namespace_uri( node_set=nil )
  get_namespace( node_set ) {|node| node.namespace}
end

# File lib/rexml/functions.rb, line 224
def Functions::normalize_space( string=nil )
  string = string(@@context[:node]) if string.nil?
  if string.kind_of? Array
    string.collect{|x| string.to_s.strip.gsub(/\s+/um, ' ') if string}
  else
    string.to_s.strip.gsub(/\s+/um, ' ')
  end
end

# File lib/rexml/functions.rb, line 291
def Functions::not( object )
  not boolean( object )
end

# File lib/rexml/functions.rb, line 341
def Functions::number( object=nil )
  object = @@context[:node] unless object
  case object
  when true
    Float(1)
  when false
    Float(0)
  when Array
    number(string( object ))
  when Numeric
    object.to_f
  else
    str = string( object )
    # If XPath ever gets scientific notation...
    #if str =~ /^\s*-?(\d*\.?\d+|\d+\.)([Ee]\d*)?\s*$/
    if str =~ /^\s*-?(\d*\.?\d+|\d+\.)\s*$/
      str.to_f
    else
      (0.0 / 0.0)
    end
  end
end

# File lib/rexml/functions.rb, line 36
def Functions::position( )
  @@context[:index]
end

# File lib/rexml/functions.rb, line 385
def Functions::processing_instruction( node )
  node.node_type == :processing_instruction
end

# File lib/rexml/functions.rb, line 377
def Functions::round( number )
  begin
    number(number).round
  rescue FloatDomainError
    number(number)
  end
end

# File lib/rexml/functions.rb, line 157
def Functions::starts_with( string, test )
  string(string).index(string(test)) == 0
end

# File lib/rexml/functions.rb, line 115
def Functions::string( object=nil )
  #object = @context unless object
  if object.instance_of? Array
    string( object[0] )
  elsif defined? object.node_type
    if object.node_type == :attribute
      object.value
    elsif object.node_type == :element || object.node_type == :document
      string_value(object)
    else
      object.to_s
    end
  elsif object.nil?
    return ""
  else
    object.to_s
  end
end

# File lib/rexml/functions.rb, line 219
def Functions::string_length( string )
  string(string).length
end

# File lib/rexml/functions.rb, line 139
def Functions::string_value( o )
  rv = ""
  o.children.each { |e|
    if e.node_type == :text
      rv << e.to_s
    elsif e.node_type == :element
      rv << string_value( e )
    end
  }
  rv
end

# File lib/rexml/functions.rb, line 186
def Functions::substring( string, start, length=nil )
  ruby_string = string(string)
  ruby_length = if length.nil?
                  ruby_string.length.to_f
                else
                  number(length)
                end
  ruby_start = number(start)

  # Handle the special cases
  return '' if (
    ruby_length.nan? or
    ruby_start.nan? or
    ruby_start.infinite?
  )

  infinite_length = ruby_length.infinite? == 1
  ruby_length = ruby_string.length if infinite_length

  # Now, get the bounds.  The XPath bounds are 1..length; the ruby bounds
  # are 0..length.  Therefore, we have to offset the bounds by one.
  ruby_start = ruby_start.round - 1
  ruby_length = ruby_length.round

  if ruby_start < 0
   ruby_length += ruby_start unless infinite_length
   ruby_start = 0
  end
  return '' if ruby_length <= 0
  ruby_string[ruby_start,ruby_length]
end

# File lib/rexml/functions.rb, line 178
def Functions::substring_after( string, test )
  ruby_string = string(string)
  return $1 if ruby_string =~ /#{test}(.*)/
  ""
end

# File lib/rexml/functions.rb, line 167
def Functions::substring_before( string, test )
  ruby_string = string(string)
  ruby_index = ruby_string.index(string(test))
  if ruby_index.nil?
    ""
  else
    ruby_string[ 0...ruby_index ]
  end
end

# File lib/rexml/functions.rb, line 364
def Functions::sum( nodes )
  nodes = [nodes] unless nodes.kind_of? Array
  nodes.inject(0) { |r,n| r += number(string(n)) }
end

# File lib/rexml/functions.rb, line 21
def Functions::text( )
  if @@context[:node].node_type == :element
    return @@context[:node].find_all{|n| n.node_type == :text}.collect{|n| n.value}
  elsif @@context[:node].node_type == :text
    return @@context[:node].value
  else
    return false
  end
end

# File lib/rexml/functions.rb, line 234
def Functions::translate( string, tr1, tr2 )
  from = string(tr1)
  to = string(tr2)

  # the map is our translation table.
  #
  # if a character occurs more than once in the
  # from string then we ignore the second &
  # subsequent mappings
  #
  # if a character maps to nil then we delete it
  # in the output.  This happens if the from
  # string is longer than the to string
  #
  # there's nothing about - or ^ being special in
  # http://www.w3.org/TR/xpath#function-translate
  # so we don't build ranges or negated classes

  map = Hash.new
  0.upto(from.length - 1) { |pos|
    from_char = from[pos]
    unless map.has_key? from_char
      map[from_char] =
      if pos < to.length
        to[pos]
      else
        nil
      end
    end
  }

  if ''.respond_to? :chars
    string(string).chars.collect { |c|
      if map.has_key? c then map[c] else c end
    }.compact.join
  else
    string(string).unpack('U*').collect { |c|
      if map.has_key? c then map[c] else c end
    }.compact.pack('U*')
  end
end

# File lib/rexml/functions.rb, line 296
def Functions::true( )
  true
end

# File lib/rexml/functions.rb, line 17
def Functions::variables ; @@variables ; end

# File lib/rexml/functions.rb, line 15
def Functions::variables=(x) ; @@variables=x ; end