cpee 2.0.28 → 2.1.4

data/cockpit/templates.legacy/convert_cpee2.rb

@@ -1,15 +0,0 @@
-#!/usr/bin/ruby
-require 'xml/smart'
-
-Dir['*.xml'].each do |f|
-  XML::Smart.modify(f) do |doc|
-    doc.register_namespace 'd', 'http://cpee.org/ns/description/1.0'
-    doc.register_namespace 'p', 'http://riddl.org/ns/common-patterns/properties/1.0'
-    if doc.root.qname.name == 'testset'
-      doc.find('//attributes | //endpoints | //dataelements | //positions | //transformation | //handlerwrapper | //description').each do |e|
-        e.namespaces[nil] = 'http://cpee.org/ns/properties/2.0'
-        e.namespace = nil
-      end
-    end
-  end
-end

data/lib/cpee/controller.rb

@@ -1,199 +0,0 @@
-# This file is part of CPEE.
-#
-# CPEE is free software: you can redistribute it and/or modify it under the terms
-# of the GNU General Public License as published by the Free Software Foundation,
-# either version 3 of the License, or (at your option) any later version.
-#
-# CPEE is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
-# PARTICULAR PURPOSE.  See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# CPEE (file COPYING in the main directory).  If not, see
-# <http://www.gnu.org/licenses/>.
-
-require 'weel'
-require 'json'
-require 'redis'
-require 'securerandom'
-require 'riddl/client'
-require_relative 'value_helper'
-require_relative 'attributes_helper'
-require_relative 'message'
-require_relative 'redis'
-
-require 'ostruct'
-class ParaStruct < OpenStruct
-  def to_json(*a)
-    table.to_json
-  end
-end
-def →(a); ParaStruct.new(a); end
-def ⭐(a); ParaStruct.new(a); end
-
-module CPEE
-
-  class Controller
-    def initialize(id,dir,opts)
-      CPEE::redis_connect(opts)
-
-      @redis = opts[:redis]
-      @votes = []
-
-      @id = id
-
-      @attributes = {}
-      @redis.keys("instance:#{id}/attributes/*").each do |key|
-        @attributes[File.basename(key)] = @redis.get(key)
-      end
-
-      @attributes_helper = AttributesHelper.new
-      @thread = nil
-      @opts = opts
-      @instance = nil
-      @loop_guard = {}
-
-      @callback_keys = {}
-      @psredis = @opts[:redis_dyn].call
-
-      Thread.new do
-        @psredis.psubscribe('callback-response:*','callback-end:*') do |on|
-          on.pmessage do |pat, what, message|
-            if pat == 'callback-response:*' && @callback_keys.has_key?(what[18..-1])
-              index = message.index(' ')
-              mess = message[index+1..-1]
-              instance = message[0...index]
-              m = JSON.parse(mess)
-              resp = []
-              m['content']['values'].each do |e|
-                if e[1][0] == 'simple'
-                  resp << Riddl::Parameter::Simple.new(e[0],e[1][1])
-                elsif e[1][0] == 'complex'
-                  resp << Riddl::Parameter::Complex.new(e[0],e[1][1],File.open(e[1][2]))
-                end
-              end
-              @callback_keys[what[18..-1]].send(:callback,resp,m['content']['headers'])
-            end
-            if pat == 'callback-end:*'
-              @callback_keys.delete(what[13..-1])
-            end
-          end
-        end
-      end
-    end
-
-    attr_reader :id
-    attr_reader :attributes
-    attr_reader :loop_guard
-
-    def uuid
-      @attributes['uuid']
-    end
-
-    def attributes_translated
-      @attributes_helper.translate(attributes,dataelements,endpoints)
-    end
-
-    def host
-      @opts[:host]
-    end
-    def base_url
-      @opts[:url]
-    end
-    def instance_url
-      File.join(@opts[:url].to_s,@id.to_s)
-    end
-    def instance_id
-      @id
-    end
-    def base
-      base_url
-    end
-    def instance=(inst)
-      @instance = inst
-    end
-    def endpoints
-      @instance.endpoints
-    end
-    def dataelements
-      @instance.data
-    end
-
-    def start
-      if vote("state/change", :state => 'running')
-        @thread = @instance.start
-        @thread.join
-      else
-        @thread = @instance.stop
-        @thread.join
-      end
-    end
-
-    def stop
-      ### tell the instance to stop
-      @instance.stop
-      ### end all votes or it will not work
-      Thread.new do # doing stuff in trap context is a nono. but in a thread its fine :-)
-        @votes.each do |key|
-          CPEE::Message::send(:'vote-response',key,base,@id,uuid,info,true,@redis)
-        end
-      end
-      @thread.join if !@thread.nil? && @thread.alive?
-    end
-
-    def info
-      @attributes['info']
-    end
-
-    def notify(what,content={})
-      content[:attributes] = attributes_translated
-      CPEE::Message::send(:event,what,base,@id,uuid,info,content,@redis)
-    end
-
-    def vote(what,content={})
-      topic, name = what.split('/')
-      handler = File.join(topic,'vote',name)
-      votes = []
-      @redis.smembers("instance:#{id}/handlers/#{handler}").each do |client|
-        voteid = Digest::MD5.hexdigest(Kernel::rand().to_s)
-        content[:key] = voteid
-        content[:attributes] = attributes_translated
-        content[:subscription] = client
-        votes << voteid
-        CPEE::Message::send(:vote,what,base,@id,uuid,info,content,@redis)
-      end
-
-      if votes.length > 0
-        @votes += votes
-        psredis = @opts[:redis_dyn].call
-        collect = []
-        psredis.subscribe(votes.map{|e| ['vote-response:' + e.to_s] }.flatten) do |on|
-          on.message do |what, message|
-            index = message.index(' ')
-            mess = message[index+1..-1]
-            m = JSON.parse(mess)
-            collect << ((m['content'] == true || m['content'] == 'true') || false)
-            @votes.delete m['name']
-            cancel_callback m['name']
-            if collect.length >= votes.length
-              psredis.unsubscribe
-            end
-          end
-        end
-        !collect.include?(false)
-      else
-        true
-      end
-    end
-
-    def callback(hw,key,content)
-      CPEE::Message::send(:callback,'activity/content',base,@id,uuid,info,content.merge(:key => key),@redis)
-      @callback_keys[key] = hw
-    end
-
-    def cancel_callback(key)
-      CPEE::Message::send(:'callback-end',key,base,@id,uuid,info,{},@redis)
-    end
-  end
-
-end

data/lib/cpee/transform.rb

@@ -1,95 +0,0 @@
-def transform(descxml,tdesc,tdesctype,tdata,tdatatype,tendp,tendptype,opts)
-  desc = XML::Smart::string(descxml)
-  desc.register_namespace  'p', 'http://cpee.org/ns/description/1.0'
-
-  dslx = nil
-  dsl = nil
-  de = {}
-  ep = {}
-
-  if desc.root.children.empty?
-    tdesctype = tdatatype = tendptype = 'clean'
-  end
-
-  ### description transformation, including dslx to dsl
-  addit = if tdesctype == 'copy' || tdesc.empty?
-    desc
-  elsif tdesctype == 'rest' && !tdesc.empty?
-    srv = Riddl::Client.interface(tdesc,opts[:transformation_service])
-    status, res = srv.post [
-      Riddl::Parameter::Complex.new("description","text/xml",descxml),
-      Riddl::Parameter::Simple.new("type","description")
-    ]
-    if status >= 200 && status < 300
-      XML::Smart::string(res[0].value.read).root
-    else
-      raise 'Could not extract dslx'
-    end
-  elsif tdesctype == 'xslt' && !tdesc.empty?
-    trans = XML::Smart::open_unprotected(tdesc)
-    desc.transform_with(trans).root
-  elsif tdesctype == 'clean'
-    XML::Smart::open_unprotected(opts[:empty_dslx]).root
-  else
-    nil
-  end
-  unless addit.nil?
-    trans = XML::Smart::open_unprotected(opts[:transformation_dslx])
-    dslx = addit.to_s
-    dsl = addit.transform_with(trans).to_s
-  end
-
-  ### dataelements extraction
-  addit = if tdatatype == 'rest' && !tdata.empty?
-    srv = Riddl::Client.interface(tdata,@opts[:transformation_service])
-    status, res = srv.post [
-      Riddl::Parameter::Complex.new("description","text/xml",descxml),
-      Riddl::Parameter::Simple.new("type","dataelements")
-    ]
-    if status >= 200 && status < 300
-      res
-    else
-      raise 'Could not extract dataelements'
-    end
-  elsif tdatatype == 'xslt' && !tdata.empty?
-    trans = XML::Smart::open_unprotected(tdata)
-    desc.transform_with(trans)
-  elsif tdatatype == 'clean'
-    []
-  else
-    nil
-  end
-  unless addit.nil?
-    addit.each_slice(2).each do |k,v|
-      de[k.value.to_sym] = v.value
-    end
-  end
-
-  ### endpoints extraction
-  addit = if tendptype == 'rest' && !tdata.empty?
-    srv = Riddl::Client.interface(tendp,@opts[:transformation_service])
-    status, res = srv.post [
-      Riddl::Parameter::Complex.new("description","text/xml",descxml),
-      Riddl::Parameter::Simple.new("type","endpoints")
-    ]
-    if status >= 200 && status < 300
-      res
-    else
-      raise 'Could not extract endpoints'
-    end
-  elsif tendptype == 'xslt' && !tdata.empty?
-    trans = XML::Smart::open_unprotected(tendp.text)
-    desc.transform_with(trans)
-  elsif tendptype == 'clean'
-    []
-  else
-    nil
-  end
-  unless addit.nil?
-    addit.each_slice(2).each do |k,v|
-      ep[k.value.to_sym] = v.value
-    end
-  end
-
-  [dslx, dsl, de, ep]
-end

data/lib/instantiation.xml

@@ -1,125 +0,0 @@
-<description datatypeLibrary="http://www.w3.org/2001/XMLSchema-datatypes" xmlns="http://riddl.org/ns/description/1.0" xmlns:xi="http://www.w3.org/2001/XInclude">
-  <message name="xmlsimple">
-    <parameter name="xml" mimetype="*/xml"/>
-  </message>
-  <message name="xml">
-    <parameter name="behavior" type="string">
-      <choice>
-        <value>fork_ready</value>
-        <value>fork_running</value>
-        <value>wait_ready</value>
-        <value>wait_running</value>
-      </choice>
-    </parameter>
-    <parameter name="xml" mimetype="*/xml"/>
-    <optional>
-      <parameter name="init" type="string"/>
-    </optional>
-  </message>
-  <message name="url_info">
-    <parameter name="info" type="string"/>
-    <parameter name="behavior" type="string">
-      <choice>
-        <value>fork_ready</value>
-        <value>fork_running</value>
-        <value>wait_ready</value>
-        <value>wait_running</value>
-      </choice>
-    </parameter>
-    <parameter name="url" type="string"/>
-    <optional>
-      <parameter name="init" type="string"/>
-    </optional>
-    <optional>
-      <parameter name="endpoints" type="string"/>
-    </optional>
-    <optional>
-      <parameter name="stream" type="string"/>
-    </optional>
-  </message>
-  <message name="url">
-    <parameter name="behavior" type="string">
-      <choice>
-        <value>fork_ready</value>
-        <value>fork_running</value>
-        <value>wait_ready</value>
-        <value>wait_running</value>
-      </choice>
-    </parameter>
-    <parameter name="url" type="string"/>
-    <optional>
-      <parameter name="init" type="string"/>
-    </optional>
-    <optional>
-      <parameter name="endpoints" type="string"/>
-    </optional>
-    <optional>
-      <parameter name="stream" type="string"/>
-    </optional>
-  </message>
-  <message name="git">
-    <parameter name="behavior" type="string">
-      <choice>
-        <value>fork_ready</value>
-        <value>fork_running</value>
-        <value>wait_ready</value>
-        <value>wait_running</value>
-      </choice>
-    </parameter>
-    <parameter name="repo" type="string"/>
-    <parameter name="branch" type="string"/>
-    <parameter name="path" type="string"/>
-    <optional>
-      <parameter name="init" type="string"/>
-    </optional>
-    <optional>
-      <parameter name="endpoints" type="string"/>
-    </optional>
-    <optional>
-      <parameter name="stream" type="string"/>
-    </optional>
-  </message>
-  <message name="instance">
-    <parameter name="behavior" type="string">
-      <choice>
-        <value>fork_ready</value>
-        <value>fork_running</value>
-        <value>wait_ready</value>
-        <value>wait_running</value>
-        <value>wait_stopped_running</value>
-        <value>wait_finished_running</value>
-      </choice>
-    </parameter>
-    <parameter name="instance" type="integer"/>
-    <optional>
-      <parameter name="init" type="string"/>
-    </optional>
-  </message>
-
-  <message name="result">
-    <parameter name="instance" mimetype="application/json"/>
-  </message>
-
-  <resource>
-    <post in="xmlsimple" out="result"/>
-    <resource relative="xml">
-      <post in="xml" out="result"/>
-    </resource>
-    <resource relative="instance">
-      <post in="instance" out="result"/>
-    </resource>
-    <resource relative="url">
-      <post in="url" out="result"/>
-      <post in="url_info" out="result"/>
-    </resource>
-    <resource relative="git">
-      <post in="git" out="result"/>
-    </resource>
-    <resource relative="callback">
-      <resource>
-        <post/>
-      </resource>
-    </resource>
-  </resource>
-
-</description>

data/server/resources/backend/instance.rb

@@ -1,23 +0,0 @@
-class Instance < WEEL
-  handlerwrapper DefaultHandlerWrapper
-
-  endpoint :timeout => "http://gruppe.wst.univie.ac.at/~mangler/services/timeout.php"
-  data :x => ''
-  # search Position.new(:a1,:after,nil)
-
-  control flow do
-    call :a1, :timeout, parameters: { :label => "Step 1", :method => :post, :arguments => [⭐(:name => :timeout, :value => ->{ "2" })] }, finalize: <<-END
-      p 'xxx1'
-			data.x += \"a1,\"
-		END
-		call :a2, :timeout, parameters: { :label => "Step 2", :method => :post, :arguments => [⭐(:name => :timeout, :value => ->{ "4" })] }, finalize: <<-END
-      p 'xxx2'
-			data.x += \"a2,\"
-		END
-		call :a3, :timeout, parameters: { :label => "Step 3", :method => :post, :arguments => [⭐(:name => :timeout, :value => ->{ "4" })] }, finalize: <<-END
-      p 'xxx3'
-			data.x += \"a3,\"
-		END
-  end
-end
-