riddl 0.99.105

data/lib/riddl/utils/description.rb

@@ -0,0 +1,29 @@
+require File.expand_path(File.dirname(__FILE__) + '/../client')
+
+module Riddl
+  module Utils
+    module Description
+
+      class XML < Riddl::Implementation
+        def response
+          return Riddl::Parameter::Complex.new("riddl-description","text/xml",@a[0])
+        end
+      end
+
+      class Call < Riddl::Implementation
+        def response
+          client = Riddl::Client.new(@a[3],@a[4])
+
+          path = client.resource "/" + @a[5]
+          @status, result = if @a[0].nil?
+            path.request @m => [ Riddl::Header.new("RIDDL_DECLARATION_RESOURCE", @a[2]), Riddl::Header.new("RIDDL-DECLARATION-PATH", @a[1]) ] + @h.map{|a,b| Riddl::Header.new(a,b)} + @p
+          else 
+            path.request @m => [ Riddl::Header.new("RIDDL_DECLARATION_RESOURCE", @a[2]), Riddl::Header.new("RIDDL-DECLARATION-PATH", @a[1]) ] + @a[0].headers.map{|a,b| Riddl::Header.new(a,b)} + @a[0].response
+          end  
+          result
+        end
+      end
+      
+    end
+  end
+end

data/lib/riddl/utils/downloadify.rb

@@ -0,0 +1,14 @@
+require 'mime/types'
+require 'digest/md5'
+
+module Riddl
+  module Utils
+    class Downloadify < Riddl::Implementation
+      def response
+        mimetype = @p.find{|e|e.name == 'mimetype'}.value
+        content = @p.find{|e|e.name == 'content'}.value
+        Riddl::Parameter::Complex.new("content",mimetype,content,@r.last)
+      end  
+    end
+  end  
+end  

data/lib/riddl/utils/erbserve.rb

@@ -0,0 +1,23 @@
+require 'mime/types'
+require 'erb'
+
+module Riddl
+  module Utils
+    class ERBServe < Riddl::Implementation
+      def response
+        path = File.file?(@a[0]) ? @a[0] : "#{@a[0]}/#{@r[@match.length..-1].join('/')}".gsub(/\/+/,'/')
+        if File.directory?(path)
+          @status = 404
+          return []
+        end
+        if File.exists?(path)
+          __ERB_FILE__ = path
+          rval = ERB.new(File.read(path), 0, "%<>")
+          return Riddl::Parameter::Complex.new("data",MIME::Types.type_for(path).to_s,rval.result(binding))
+        end
+        @status = 404
+        []
+      end  
+    end
+  end  
+end

data/lib/riddl/utils/fileserve.rb

@@ -0,0 +1,31 @@
+require 'mime/types'
+require 'digest/md5'
+
+module Riddl
+  module Utils
+    class FileServe < Riddl::Implementation
+      def response
+        path = File.file?(@a[0]) ? @a[0] : "#{@a[0]}/#{@r[@match.length-1..-1].join('/')}".gsub(/\/+/,'/')
+
+        if File.directory?(path)
+          @status = 404
+          return []
+        end
+        if File.exists?(path)
+          mtime = File.mtime(path)
+          @headers << Riddl::Header.new("Last-Modified",mtime.httpdate)
+          @headers << Riddl::Header.new("ETag",Digest::MD5.hexdigest(mtime.httpdate))
+          htime = @env["HTTP_IF_MODIFIED_SINCE"].nil? ? Time.at(0) : Time.parse(@env["HTTP_IF_MODIFIED_SINCE"])
+          if htime == mtime
+            @headers << Riddl::Header.new("Connection","close")
+            @status = 304 # Not modified
+            return []
+          else 
+            return Riddl::Parameter::Complex.new("file",MIME::Types.type_for(path).first.to_s,File.open(path,'r'))
+          end  
+        end
+        @status = 404
+      end  
+    end
+  end  
+end  

data/lib/riddl/utils/notifications_producer.rb

@@ -0,0 +1,310 @@
+module Riddl
+  module Utils
+    module Notifications
+
+      module Producer
+      
+        def self::implementation(backend,handler=nil,details=:production) 
+          unless handler.nil? || (handler.is_a? Riddl::Utils::Notifications::Producer::HandlerBase)
+            raise "handler not a subclass of HandlerBase"
+          end
+          Proc.new do
+            on resource "notifications" do
+              run Riddl::Utils::Notifications::Producer::Overview if get
+              on resource "topics" do
+                run Riddl::Utils::Notifications::Producer::Topics, backend if get
+              end
+              on resource "subscriptions" do
+                run Riddl::Utils::Notifications::Producer::Subscriptions, backend, details if get
+                run Riddl::Utils::Notifications::Producer::CreateSubscription, backend, handler if post 'subscribe'
+                on resource do
+                  run Riddl::Utils::Notifications::Producer::Subscription, backend, details if get 'request'
+                  run Riddl::Utils::Notifications::Producer::UpdateSubscription, backend, handler if put 'details'
+                  run Riddl::Utils::Notifications::Producer::DeleteSubscription, backend, handler if delete 'delete'
+                  on resource 'ws' do
+                    run Riddl::Utils::Notifications::Producer::WS, backend, handler if websocket
+                  end
+                end
+              end
+            end  
+          end
+        end  
+      
+        class HandlerBase #{{{
+          def initialize(data)
+            @data = data
+            @key = nil
+            @topics = []
+          end
+          def key(k)
+            @key = k
+            self
+          end
+          def topics(t)
+            @topics = t
+            self
+          end
+          def ws_open(socket); end
+          def ws_close; end
+          def ws_message(socket,data); end
+          def create; end
+          def delete; end
+          def update; end
+        end #}}}
+
+        class Backend #{{{
+          attr_reader :topics
+
+          class Sub #{{{
+            def initialize(name)
+              @name = name
+            end  
+            def modify(&block)
+              XML::Smart.modify(@name,"<subscription xmlns='http://riddl.org/ns/common-patterns/notifications-producer/1.0'/>") do |doc|
+                doc.register_namespace 'n', 'http://riddl.org/ns/common-patterns/notifications-producer/1.0'
+                block.call doc
+              end
+            end
+            def delete
+              FileUtils::rm_rf(File.dirname(@name))
+            end
+            def to_s
+              File.read(@name)
+            end
+            def view(&block)
+              XML::Smart.open_unprotected(@name) do |doc|
+                doc.register_namespace 'n', 'http://riddl.org/ns/common-patterns/notifications-producer/1.0'
+                block.call doc
+              end  
+            end
+          end #}}}
+
+          class Subs #{{{
+            def initialize(target)
+              @target = target
+            end
+
+            def each(&block)
+              keys.each do |key|
+                doc = XML::Smart.open_unprotected(@target + '/' + key + '/subscription.xml')
+                doc.register_namespace 'n', 'http://riddl.org/ns/common-patterns/notifications-producer/1.0'
+                block.call doc, key
+              end  
+            end
+
+            def [](key)
+              f = @target + '/' + key + '/subscription.xml'
+              File.exists?(f) ? Sub.new(f) : nil
+            end
+
+            def create(&block)
+              key = nil
+              begin
+                continue = true
+                key      = Digest::MD5.hexdigest(Kernel::rand().to_s)
+                Dir.mkdir(@target + '/' + key) rescue continue = false
+              end until continue
+              producer_secret = Digest::MD5.hexdigest(Kernel::rand().to_s)
+              consumer_secret = Digest::MD5.hexdigest(Kernel::rand().to_s)
+              File.open(@target + '/' + key + '/producer-secret','w') { |f| f.write producer_secret }
+              File.open(@target + '/' + key + '/consumer-secret','w') { |f| f.write consumer_secret }
+              XML::Smart::modify(@target + '/' + key + '/subscription.xml',"<subscription xmlns='http://riddl.org/ns/common-patterns/notifications-producer/1.0'/>") do |doc|
+                block.call doc, key
+              end
+              [key, producer_secret, consumer_secret]
+            end
+
+            def keys
+              if File.directory?(@target)
+                Dir[@target + '/*'].map do |d|
+                  File.directory?(d) ? File.basename(d) : nil
+                end.compact
+              else
+                []
+              end
+            end
+          end #}}}
+
+          def initialize(topics,target)
+            @target = target.gsub(/^\/+/,'/')
+
+            FileUtils::mkdir_p(@target) unless File.exists?(@target)
+
+            raise "topics file not found" unless File.exists?(topics)
+            @topics = XML::Smart.open_unprotected(topics.gsub(/^\/+/,'/'))
+            @topics.register_namespace 'n', 'http://riddl.org/ns/common-patterns/notifications-producer/1.0'
+          end  
+
+          def subscriptions
+            Subs.new(@target)
+          end
+
+        end #}}}
+
+        class Overview < Riddl::Implementation #{{{ 
+          def response
+            Riddl::Parameter::Complex.new("overview","text/xml") do
+              <<-END
+                <overview xmlns='http://riddl.org/ns/common-patterns/notifications-producer/1.0'>
+                  <topics/>
+                  <subscriptions/>
+                </overview>
+              END
+            end
+
+          end
+        end #}}}
+        
+        class Topics < Riddl::Implementation #{{{
+          def response
+            backend = @a[0]
+            Riddl::Parameter::Complex.new("overview","text/xml") do
+              backend.topics.to_s
+            end
+          end
+        end #}}}
+        
+        class Subscriptions < Riddl::Implementation #{{{
+          def response
+            backend = @a[0]
+            details = @a[1]
+            Riddl::Parameter::Complex.new("subscriptions","text/xml") do
+              ret = XML::Smart::string <<-END
+                <subscriptions details='#{details}' xmlns='http://riddl.org/ns/common-patterns/notifications-producer/1.0'/>
+              END
+              backend.subscriptions.each do |doc,key|
+                if doc.root.attributes['url']
+                  ret.root.add('subscription', :id => key, :url => doc.root.attributes['url'])
+                else  
+                  ret.root.add('subscription', :id => key)
+                end  
+              end
+              ret.to_s
+            end
+          end
+        end #}}}
+       
+        class Subscription < Riddl::Implementation #{{{
+          def response
+            backend = @a[0]
+            Riddl::Parameter::Complex.new("subscription","text/xml") do
+              backend.subscriptions[@r.last].to_s
+            end
+          end
+        end #}}}
+        
+        class CreateSubscription < Riddl::Implementation #{{{
+          def response
+            backend = @a[0]
+            handler = @a[1]
+
+            url = @p[0].name == 'url' ? @p.shift.value : nil
+
+            topics = []
+            key, consumer_secret, producer_secret = backend.subscriptions.create do |doc,key|
+              doc.root.attributes['url'] = url if url
+              while @p.length > 0
+                topic = @p.shift.value
+                base = @p.shift
+                type = base.name
+                items = base.value.split(',')
+                t = if topics.include?(topic)
+                  doc.find("/n:subscription/n:topic[@id='#{topic}']").first
+                else
+                  topics << topic
+                  doc.root.add('topic', :id => topic)
+                end
+                items.each do |i|
+                  t.add(type[0..-2], i)
+                end
+              end
+            end  
+
+            handler.key(key).topics(topics).create unless handler.nil?
+            [
+              Riddl::Parameter::Simple.new('key',key),
+              Riddl::Parameter::Simple.new('producer-secret',producer_secret),
+              Riddl::Parameter::Simple.new('consumer-secret',consumer_secret)
+            ]  
+          end
+        end #}}}
+
+        class DeleteSubscription < Riddl::Implementation #{{{
+          def response
+            backend = @a[0]
+            handler = @a[1]
+            key     = @r.last
+
+            backend.subscriptions[key].delete
+            handler.key(key).delete unless handler.nil?
+            return
+          end
+        end #}}}
+        
+        class UpdateSubscription < Riddl::Implementation #{{{
+          def response
+            backend = @a[0]
+            handler = @a[1]
+            key     = @r.last
+
+            muid = @p.shift.value
+            url  = @p[0].name == 'url' ? @p.shift.value : nil
+
+            # TODO check if message is valid (with producer secret)
+            unless backend.subscriptions[key]
+              @status = 404
+              return # subscription not found
+            end
+
+            topics = []
+            backend.subscriptions[key].modify do |doc|
+              if url.nil?
+                doc.find('/n:subscription/@url').delete_all!
+              else
+                doc.root.attributes['url'] = url
+              end
+              doc.root.children.delete_all!
+              while @p.length > 1
+                topic = @p.shift.value
+                base = @p.shift
+                type = base.name
+                items = base.value.split(',')
+                t = if topics.include?(topic)
+                  doc.find("/n:subscription/n:topic[@id='#{topic}']").first
+                else
+                  topics << topic
+                  doc.root.add('topic', :id => topic)
+                end
+                items.each do |i|
+                  t.add(type[0..-2], i)
+                end
+              end
+            end  
+
+            handler.key(key).topics(topics).update unless handler.nil?
+            nil
+          end
+        end #}}}
+                  
+        class WS < Riddl::WebSocketImplementation #{{{
+          def onopen
+            @backend = @a[0]
+            @handler = @a[1]
+            @key     = @r[-2]
+            @handler.key(@key).ws_open(self) unless @handler.nil?
+          end
+
+          def onmessage(data)
+            @handler.key(@key).ws_message(data) unless @handler.nil?
+          end
+
+          def onclose
+            @handler.key(@key).ws_close() unless @handler.nil?
+          end
+        end #}}}
+        
+      end  
+
+    end
+  end
+end

data/lib/riddl/utils/properties.rb

@@ -0,0 +1,474 @@
+module Riddl
+  module Utils
+    module Properties
+
+      VERSION_MAJOR = 1
+      VERSION_MINOR = 0
+      PROPERTIES_SCHEMA_XSL_RNG = "#{File.dirname(__FILE__)}/../ns/common-patterns/properties/#{VERSION_MAJOR}.#{VERSION_MINOR}/properties.schema.xsl"
+
+      def self::implementation(backend,handler=nil,details=:production)
+        unless handler.nil? || (handler.is_a? Riddl::Utils::Properties::HandlerBase)
+          raise "handler not a subclass of HandlerBase"
+        end
+        Proc.new do
+          run          Riddl::Utils::Properties::All,           backend, handler if get    '*'
+          run          Riddl::Utils::Properties::Query,         backend, handler if get    'query'
+          on resource 'schema' do
+            run        Riddl::Utils::Properties::Schema,        backend          if get
+            on resource 'rng' do
+              run      Riddl::Utils::Properties::RngSchema,     backend          if get
+            end  
+          end
+          on resource 'values' do
+            run        Riddl::Utils::Properties::Properties,    backend, handler if get
+            run        Riddl::Utils::Properties::AddProperty,   backend, handler if post   'property'
+            run        Riddl::Utils::Properties::AddProperties, backend, handler if put    'properties'
+            on resource do
+              run      Riddl::Utils::Properties::GetContent,    backend, handler if get
+              run      Riddl::Utils::Properties::DelContent,    backend, handler if delete
+              run      Riddl::Utils::Properties::AddContent,    backend, handler if post   'addcontent'
+              run      Riddl::Utils::Properties::UpdContent,    backend, handler if put    'updcontent'
+              on resource do
+                run    Riddl::Utils::Properties::GetContent,    backend, handler if get
+                run    Riddl::Utils::Properties::DelContent,    backend, handler if delete
+                run    Riddl::Utils::Properties::UpdContent,    backend, handler if put    'updcontent'
+                on resource do
+                  run  Riddl::Utils::Properties::GetContent,    backend, handler if get
+                end
+              end
+            end
+          end  
+        end
+      end  
+
+      # Overloadable and Backends
+      class HandlerBase #{{{
+        def initialize(data)
+          @data = data
+          @property = nil
+        end
+        def property(p)
+          @property = p
+          self
+        end  
+        def create; end
+        def read;   end
+        def update; end
+        def delete; end
+      end #}}}
+
+      class Backend #{{{
+        attr_reader :schema, :data, :rng 
+
+        def initialize(schema,target,init=nil)
+          @target = target.gsub(/^\/+/,'/')
+          @schemas = {}
+          @rngs = {}
+
+          if schema.is_a? Hash
+            schema.each { |k,v| add_schema k, v }
+          elsif schema.is_a? String  
+            add_schema 'default', schema
+          end
+          raise "no schemas provided" if @schemas.length == 0
+          @schema = @schemas.first[1]
+          @rng = @rngs.first[1]
+
+          FileUtils::mkdir_p(File::dirname(@target)) unless File.exists?(@target)
+          FileUtils::cp init, @target                if init and not File.exists?(@target)
+
+          raise "properties file not found" unless File.exists?(@target)
+          @data = XML::Smart.open_unprotected(@target)
+          @data.register_namespace 'p', 'http://riddl.org/ns/common-patterns/properties/1.0'
+          @mutex = Mutex.new
+        end
+
+        def activate_schema(name)
+          if @schemas[name]
+            @schema = @schemas[name]
+            @rng = @rngs[name]
+            true
+          else
+            false
+          end
+        end
+
+        def add_schema(key,name)
+          raise "schema file not found" unless File.exists?(name)
+          @schemas[key] = XML::Smart.open_unprotected(name.gsub(/^\/+/,'/'))
+          @schemas[key].register_namespace 'p', 'http://riddl.org/ns/common-patterns/properties/1.0'
+          if !File::exists?(Riddl::Utils::Properties::PROPERTIES_SCHEMA_XSL_RNG)
+            raise "properties schema transformation file not found"
+          end  
+          @rngs[key] = @schemas[key].transform_with(XML::Smart.open_unprotected(Riddl::Utils::Properties::PROPERTIES_SCHEMA_XSL_RNG))
+        end
+        private :add_schema
+
+        def modifiable?(property)
+          @schema.find("boolean(/p:properties/p:#{property}[@modifiable='true'])") || schema.find("boolean(/p:properties/p:optional/p:#{property}[@modifiable='true'])")
+        end
+        def valid_state?(property,current,new)
+          @schema.find("boolean(/p:properties/p:#{property}/p:#{current}/p:#{new}[@putable='true'])") || schema.find("boolean(/p:properties/p:optional/p:#{property}/p:#{current}/p:#{new}[@putable='true'])")
+        end
+        def is_state?(property)
+          @schema.find("boolean(/p:properties/p:#{property}[@type='state'])") || schema.find("boolean(/p:properties/p:optional/p:#{property}[@type='state'])")
+        end
+        def init_state?(property,new)
+          @schema.find("boolean(/p:properties/p:#{property}/p:#{new}[position()=1])") || schema.find("boolean(/p:properties/p:optional/p:#{property}/p:#{new}[position()=1])")
+        end
+        def property_type(property)
+          exis = @schema.find("/p:properties/*[name()='#{property}']|/p:properties/p:optional/*[name()='#{property}']")
+          exis.any? ? exis.first.attributes['type'].to_sym : nil
+        end
+
+        def modify(&block)
+          tdoc = @data.root.to_doc
+          tdoc.register_namespace 'p', 'http://riddl.org/ns/common-patterns/properties/1.0'
+          @mutex.synchronize do
+            block.call tdoc
+            if tdoc.validate_against(@rng)
+              block.call @data
+              @data.save_as(@target)
+              true
+            else
+              false
+            end
+          end  
+        end
+       end #}}}
+
+      # Just reading
+      class All < Riddl::Implementation #{{{
+        def response
+          backend = @a[0]
+          handler = @a[1]
+          handler.read unless handler.nil?
+          return Riddl::Parameter::Complex.new("document","text/xml",backend.data.to_s)
+        end
+      end #}}}
+
+      class Properties < Riddl::Implementation #{{{
+        def response
+          backend = @a[0]
+          handler = @a[1]
+          handler.read unless handler.nil?
+
+          ret = XML::Smart.string("<properties xmlns=\"http://riddl.org/ns/common-patterns/properties/1.0\"/>")
+          backend.schema.find("/p:properties/*[name()!='optional']|/p:properties/p:optional/*").each do |r|
+            ret.root.add("property",r.qname.to_s)
+          end
+          return Riddl::Parameter::Complex.new("keys","text/xml",ret.to_s)
+        end
+      end #}}} 
+
+      class Query < Riddl::Implementation #{{{
+        def response
+          backend = @a[0]
+          handler = @a[1]
+          handler.read unless handler.nil?
+          query = (@p[0].value.to_s.strip.empty? ? '*' : @p[0].value)
+
+          begin
+            e = backend.data.find(query)
+          rescue => e
+            prop = XML::Smart::string("<not-existing xmlns=\"http://riddl.org/ns/common-patterns/properties/1.0\"/>").to_s
+            return Riddl::Parameter::Complex.new("value","text/xml",prop.to_s)
+          end
+          if e.class == XML::Smart::Dom::NodeSet
+            if e.any?
+              prop = XML::Smart::string("<value xmlns=\"http://riddl.org/ns/common-patterns/properties/1.0\"/>")
+              prop.root.add(e)
+            else
+              prop = XML::Smart::string("<not-existing xmlns=\"http://riddl.org/ns/common-patterns/properties/1.0\"/>").to_s
+            end
+            return Riddl::Parameter::Complex.new("value","text/xml",prop.to_s)
+          else
+            return Riddl::Parameter::Simple.new("value",e.to_s)
+          end
+        end
+      end #}}}
+
+      class RngSchema < Riddl::Implementation #{{{
+        def response
+          backend = @a[0]
+          Riddl::Parameter::Complex.new("document-schema","text/xml",backend.rng.to_s)
+        end
+      end #}}}
+
+      class Schema < Riddl::Implementation #{{{
+        def response
+          backend = @a[0]
+          return Riddl::Parameter::Complex.new("document-schema","text/xml",backend.schema.to_s)
+        end
+      end #}}}
+
+      class GetContent < Riddl::Implementation #{{{
+        def response
+          backend = @a[0]
+          handler = @a[1]
+
+          handler.property(@r[1]).read unless handler.nil?
+
+          if ret = extract_values(backend,@r[1],Riddl::Protocols::HTTP::Parser::unescape(@r[2..-1].join('/')))
+            ret
+          else
+            @status = 404
+          end
+        end
+        
+        def extract_values(backend,property,minor=nil)
+          case backend.property_type(property)
+            when :complex
+              res = backend.data.find("/p:properties/*[name()=\"#{property}\"]#{minor == '' ? '' : "/p:#{minor}"}")
+              if res.any?
+                prop = XML::Smart::string("<value xmlns=\"http://riddl.org/ns/common-patterns/properties/1.0\"/>")
+                if res.length == 1
+                  prop.root.add(res.first.children)
+                else  
+                  prop.root.add(res)
+                end  
+                return Riddl::Parameter::Complex.new("value","text/xml",prop.to_s)
+              else
+                prop = XML::Smart::string("<not-existing xmlns=\"http://riddl.org/ns/common-patterns/properties/1.0\"/>")
+              end
+            when :simple, :state
+              res = backend.data.find("string(/p:properties/*[name()=\"#{property}\"]#{minor})")
+              return Riddl::Parameter::Simple.new("value",res.to_s)
+            when :arbitrary
+              res = backend.data.find("/p:properties/*[name()=\"#{property}\"]")
+              if res.any?
+                c = res.first.children
+                if c.length == 1 && c.first.class == XML::Smart::Dom::Element
+                  return Riddl::Parameter::Complex.new("content","text/xml",c.first.dump)
+                else
+                  return Riddl::Parameter::Complex.new("content","text/plain",c.first.to_s)
+                end
+              else
+                prop = XML::Smart::string("<not-existing xmlns=\"http://riddl.org/ns/common-patterns/properties/1.0\"/>")
+                return Riddl::Parameter::Complex.new("content","text/xml",prop.to_s)
+              end
+          end
+          nil
+        end
+        private :extract_values
+
+      end #}}}
+      
+      # Modifiable
+      class AddProperty < Riddl::Implementation #{{{
+        def response
+          backend = @a[0]
+          handler = @a[1]
+
+          property = @p[0].value
+          ct       = @p[1]
+          value    = ct.name == 'value' ? ct.value : nil
+          content  = ct.name == 'content' ? ct.value : nil
+
+          unless backend.modifiable?(property)
+            @status = 500
+            return # change properties.schema
+          end
+
+          path = "/p:properties/*[name()=\"#{property}\"]"
+          nodes = backend.data.find(path)
+          if nodes.any?
+            @status = 404
+            return # this property does not exist
+          end
+
+          if backend.is_state?(property)
+            unless backend.init_state?(property,value)
+              @status = 404
+              return # not a valid state from here on
+            end
+          end  
+
+          newstuff = value.nil? ? XML::Smart.string(content).root.children : value
+          backend.modify do |doc|
+            ele = doc.root.add property
+            if value.nil?
+              ele.add newstuff
+            else
+              ele.text = newstuff
+            end  
+          end || begin
+            @status = 400
+            return # bad request
+          end
+          
+          handler.property(property).create unless handler.nil?
+          return
+        end
+      end #}}}
+      
+      class AddProperties < Riddl::Implementation #{{{
+        def response
+          backend = @a[0]
+          handler = @a[1]
+
+          0.upto(@p.length/2-1) do |i|
+            property = @p[i*2].value
+            ct       = @p[i*2+1]
+            value    = ct.name == 'value' ? ct.value : nil
+            content  = ct.name == 'content' ? ct.value : nil
+
+            unless backend.modifiable?(property)
+              @status = 500
+              return # change properties.schema
+            end
+
+            path = "/p:properties/*[name()=\"#{property}\"]"
+            nodes = backend.data.find(path)
+            if nodes.empty?
+              @status = 404
+              return # this property does not exist
+            end
+
+            if backend.is_state?(property)
+              unless backend.valid_state?(property,nodes.first.to_s,value)
+                @status = 404
+                return # not a valid state from here on
+              end
+            end  
+
+            newstuff = value.nil? ? XML::Smart.string(content).root.children : value
+            backend.modify do |doc|
+              nodes = doc.find(path)
+              nods = nodes.map{|ele| ele.children.delete_all!; ele}
+              nods.each do |ele| 
+                if value.nil?
+                  ele.add newstuff
+                else
+                  ele.text = newstuff
+                end  
+              end  
+            end || begin
+              @status = 400
+              return # bad request
+            end
+            
+            handler.property(property).create unless handler.nil?
+          end
+          return
+        end
+      end #}}}
+
+      class AddContent < Riddl::Implementation #{{{
+        def response
+          backend = @a[0]
+          handler = @a[1]
+
+          property = @r[1]
+          value = @p.detect{|p| p.name == 'value'}.value
+
+          unless backend.modifiable?(property)
+            @status = 500
+            return # change properties.schema
+          end
+
+          path = "/p:properties/p:#{property}"
+          node = backend.data.find(path)
+          if node.empty?
+            @status = 404
+            return # this property does not exist
+          end  
+
+          newstuff = XML::Smart.string(value)
+          backend.modify do |doc|
+            node = doc.find(path)
+            node.first.add newstuff.root
+          end || begin
+            @status = 400
+            return # bad request
+          end
+
+          handler.property(property).create unless handler.nil?
+        end
+      end #}}}
+
+      class DelContent < Riddl::Implementation #{{{
+        def response
+          backend = @a[0]
+          handler = @a[1]
+
+          property = @r[1]
+          minor    = Riddl::Protocols::HTTP::Parser::unescape(@r[2])
+
+          unless backend.modifiable?(property)
+            @status = 500
+            return # change properties.schema
+          end
+
+          path = "/p:properties/*[name()=\"#{property}\"]#{minor.nil? ? '' : "/p:#{minor}"}"
+          nodes = backend.data.find(path)
+          if nodes.empty?
+            @status = 404
+            return # this property does not exist
+          end
+
+          backend.modify do |doc|
+            doc.find(path).delete_all!
+          end || begin
+            @status = 400
+            return # bad request
+          end
+
+          handler.property(property).delete unless handler.nil?
+          return
+        end
+      end #}}} 
+
+      class UpdContent < Riddl::Implementation #{{{
+        def response
+          backend = @a[0]
+          handler = @a[1]
+
+          property = @r[1]
+          value    = @p.detect{|p| p.name == 'value'}; value = value.nil? ? value : value.value
+          content  = @p.detect{|p| p.name == 'content'}; content = content.nil? ? content : content.value
+          minor    = @r[2]
+
+          unless backend.modifiable?(property)
+            @status = 500
+            return # change properties.schema
+          end
+
+          path = "/p:properties/*[name()=\"#{property}\"]#{minor.nil? ? '' : "/p:#{minor}"}"
+          nodes = backend.data.find(path)
+          if nodes.empty?
+            @status = 404
+            return # this property does not exist
+          end
+
+          if backend.is_state?(property)
+            unless backend.valid_state?(property,nodes.first.to_s,value)
+              @status = 404
+              return # not a valid state from here on
+            end
+          end  
+
+          newstuff = value.nil? ? XML::Smart.string(content).root.children : value
+          backend.modify do |doc|
+            nodes = doc.root.find(path)
+            nods = nodes.map{|ele| ele.children.delete_all!; ele}
+            nods.each do |ele| 
+              if value.nil?
+                ele.add newstuff
+              else
+                ele.text = newstuff
+              end
+            end  
+          end || begin
+            @status = 400
+            return # bad request
+          end
+          
+          handler.property(property).update unless handler.nil?
+          return
+        end
+      end #}}}
+
+    end
+  end
+end