libisi 0.3.0

data/lib/libisi/parameter/base.rb

@@ -0,0 +1,41 @@
+# Copyright (C) 2007-2010 Logintas AG Switzerland
+#
+# This file is part of Libisi.
+#
+# Libisi 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.
+#
+# Libisi 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 Libisi.  If not, see <http://www.gnu.org/licenses/>.
+
+# object:
+# Object to work on
+# * a Class: For class methods
+# * a Object: For instance methods
+# * a Hash of Attributes: For pseudo instance functions
+# * nil: For normal functions without context (default)
+#
+# arguments:
+# Array of arguments (ARGV?)
+# default: []
+#
+# parameters:
+# Hash of options
+# default: {}
+class BaseParameter
+
+  attr_accessor :object, :arguments, :options  
+  def initialize
+    @object = nil
+    @arguments = []
+    @options = {}    
+  end
+
+end

data/lib/libisi/property.rb

@@ -0,0 +1,27 @@
+# Copyright (C) 2007-2010 Logintas AG Switzerland
+#
+# This file is part of Libisi.
+#
+# Libisi 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.
+#
+# Libisi 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 Libisi.  If not, see <http://www.gnu.org/licenses/>.
+
+require "libisi/base.rb"
+require "libisi/concept/base.rb"
+require "libisi/property/base.rb"
+class Property < Base
+
+  def self.create(concept, val, options = {})
+    BaseProperty.new(concept, val)
+  end
+  
+end

data/lib/libisi/property/base.rb

@@ -0,0 +1,28 @@
+# Copyright (C) 2007-2010 Logintas AG Switzerland
+#
+# This file is part of Libisi.
+#
+# Libisi 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.
+#
+# Libisi 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 Libisi.  If not, see <http://www.gnu.org/licenses/>.
+
+class BaseProperty
+
+  attr_reader :base_class, :name
+
+  def initialize(base_class, name, options = {})
+    @base_class = base_class
+    @name = name
+  end
+
+    
+end

data/lib/libisi/reciever/base.rb

@@ -0,0 +1,31 @@
+# Copyright (C) 2007-2010 Logintas AG Switzerland
+#
+# This file is part of Libisi.
+#
+# Libisi 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.
+#
+# Libisi 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 Libisi.  If not, see <http://www.gnu.org/licenses/>.
+
+class BaseReciever
+
+  attr_accessor :create_block
+  
+  def initialize(recieving_concept, options = {}, &block)
+    raise "No create block given" unless block
+    @create_block = block
+  end
+
+  def get
+    @create_block.call(self.get_io)
+  end
+
+end

data/lib/libisi/reciever/socket.rb

@@ -0,0 +1,31 @@
+# Copyright (C) 2007-2010 Logintas AG Switzerland
+#
+# This file is part of Libisi.
+#
+# Libisi 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.
+#
+# Libisi 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 Libisi.  If not, see <http://www.gnu.org/licenses/>.
+
+require "libisi/reciever/base"
+require "socket"
+class SocketReciever < BaseReciever
+  
+  def initialize(port, options = {}, &block)
+    super
+    @server = TCPServer.new(port)
+  end
+
+  def get_io    
+    @server.accept    
+  end
+
+end

data/lib/libisi/relation.rb

@@ -0,0 +1,23 @@
+# Copyright (C) 2007-2010 Logintas AG Switzerland
+#
+# This file is part of Libisi.
+#
+# Libisi 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.
+#
+# Libisi 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 Libisi.  If not, see <http://www.gnu.org/licenses/>.
+
+require "libisi/base.rb"
+require "libisi/concept/base.rb"
+class Relation < Base
+
+  
+end

data/lib/libisi/request.rb

@@ -0,0 +1,22 @@
+# Copyright (C) 2007-2010 Logintas AG Switzerland
+#
+# This file is part of Libisi.
+#
+# Libisi 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.
+#
+# Libisi 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 Libisi.  If not, see <http://www.gnu.org/licenses/>.
+
+require "libisi/base.rb"
+
+class Request < Base
+  
+end

data/lib/libisi/request/base.rb

@@ -0,0 +1,29 @@
+# Copyright (C) 2007-2010 Logintas AG Switzerland
+#
+# This file is part of Libisi.
+#
+# Libisi 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.
+#
+# Libisi 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 Libisi.  If not, see <http://www.gnu.org/licenses/>.
+
+class BaseRequest
+  
+  attr_accessor :environment, :task
+
+  def initialize(env, task, options = {})
+    @environment = env
+    @task = task
+  end
+  
+  def execute; environment.execute(task); end
+
+end

data/lib/libisi/request/http.rb

@@ -0,0 +1,129 @@
+# Copyright (C) 2007-2010 Logintas AG Switzerland
+#
+# This file is part of Libisi.
+#
+# Libisi 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.
+#
+# Libisi 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 Libisi.  If not, see <http://www.gnu.org/licenses/>.
+
+require "libisi/request/base"
+require "libisi/environment/http"
+require "libisi/function/base"
+require "libisi/task/base"
+require "libisi/parameter/base"
+require "uri"
+require "cgi"
+
+class HttpRequest < BaseRequest
+
+
+  # Splits a ordinary http url into 
+  # * HttpEnvironment
+  # * Task(Function and Parameters)
+  def HttpRequest.from_uri(uri, options = {})
+    raise "Unexpected uri provided #{uri.parse}" unless uri.class == URI::HTTP
+    options = {
+      :root => URI::HTTP.build(:scheme => uri.scheme,
+		       :userinfo => uri.userinfo,
+		       :host => uri.host,
+		       :port => uri.port,
+		       :path => "/")
+    }.merge(options)
+        
+    unless uri.to_s.starts_with?(options[:root].to_s)
+      raise "URI #{uri.to_s} does not start with root #{options[:root].to_s}"
+    end
+
+    # take the rest of the path as context, function name and arguments
+    path_rest = uri.path[options[:root].path.length..-1]
+    
+    # environment
+    env = HttpEnvironment.new(options[:root])
+
+    # task
+    task = HttpTask.from_path_with_parameters(path_rest + "?" + uri.query)
+
+    HttpRequest.new(env, task)
+  end
+  
+end
+=begin
+#!/usr/bin/ruby
+
+# hello.pl -- my first perl script!
+
+
+cgi = CGI.new('html4')
+
+page = nil
+page = $1 if cgi["old_link"] =~ /([^\/]+\.cgi)/
+
+NEW_ROOT = "https://todo.kapozh.imsec.ch/kapozilla/"
+unless page
+ uri = NEW_ROOT
+else
+  uri = URI.parse("#{NEW_ROOT}#{page}")
+
+  ps = cgi.params.map {|name, vals|
+   next if name == "old_link"
+   vals.map {|val| "#{name}=#{CGI.escape(val)}"}
+  }.compact.flatten.join("&")
+  uri = uri.to_s + "?" + ps
+end
+
+uri = uri.to_s
+
+# Ask the cgi object to send some text out to the browser.
+cgi.out {
+ cgi.html {
+   cgi.body {
+     cgi.h1 { 'KapoZilla ist umgezogen' } +
+     cgi.p { 'Die von Ihnen gew&auml;hlte URL ist nicht mehr g&uuml;ltig. Sie zeigt auf eine fr&uuml;here Instanz von KapoZilla.'} +
+     cgi.p {
+      if page
+        'Der neue, richtige Link lautet: ' +
+        cgi.a(uri) { uri }
+      else
+        'Die neue Instanz befindet sich hier: ' + cgi.a(uri) {uri}
+      end +
+      '<br><br>Bitte passen Sie Ihre URL entsprechend an.'
+     }
+   }
+ }
+}
+
+exit 0
+
+print "Content-type: text/html\n\n"
+
+print <<EOF
+<HTML>
+<HEAD>
+<TITLE>KapoZilla Moved</TITLE>
+</HEAD>
+
+<BODY>
+<H1>KapoZilla ist umgezogen</H1>
+
+<P>
+Die von Ihnen gew&auml;hlte URL ist nicht mehr g&uuml;ltig. Sie zeigt auf eine f&uuml;hrere
+Instaz von KapoZilla.
+
+Der neue, richtige Link ist<br>
+#{URI.parse(ARGV[0]).inspect}<br>
+Bitte passen Sie Ihre URL entsprechend an.
+</P>
+
+</BODY>
+</HTML>
+EOF
+=end

data/lib/libisi/response/base.rb

@@ -0,0 +1,27 @@
+# Copyright (C) 2007-2010 Logintas AG Switzerland
+#
+# This file is part of Libisi.
+#
+# Libisi 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.
+#
+# Libisi 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 Libisi.  If not, see <http://www.gnu.org/licenses/>.
+
+class BaseResponse
+  
+  attr_accessor :task, :request
+
+  def initialize(task, request, options = {})
+    @task = task
+    @request = request
+  end
+
+end

data/lib/libisi/task/base.rb

@@ -0,0 +1,27 @@
+# Copyright (C) 2007-2010 Logintas AG Switzerland
+#
+# This file is part of Libisi.
+#
+# Libisi 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.
+#
+# Libisi 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 Libisi.  If not, see <http://www.gnu.org/licenses/>.
+
+class BaseTask
+
+  attr_accessor :function, :parameter
+
+  def initialize(function, parameter)
+    @function = function
+    @parameter = parameter
+  end
+    
+end

data/lib/libisi/task/http.rb

@@ -0,0 +1,90 @@
+# Copyright (C) 2007-2010 Logintas AG Switzerland
+#
+# This file is part of Libisi.
+#
+# Libisi 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.
+#
+# Libisi 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 Libisi.  If not, see <http://www.gnu.org/licenses/>.
+
+require "libisi/task/base"
+require "libisi/function/base"
+require "libisi/parameter/base"
+require "cgi"
+class HttpTask < BaseTask
+
+  # Splits the rest of the uri path into context,
+  # function name and arguments.
+  # 
+  # First regular expression match as context
+  # Second regular expression match as function name
+  # the rest of the matches as arguments
+  DEFAULT_CONTEXT_NAME_ARG_REGEXP =
+    /^\/?([^\/]+)\/([^\/]+)\/(.+)$/
+
+  def HttpTask.from_path(path, options = {})
+    unless path =~ DEFAULT_CONTEXT_NAME_ARG_REGEXP
+      raise "context name arg regular expression did not match #{path.inspect}"
+    end
+    context = $1
+    function_name = $2
+    arguments = $3.split("/")
+
+    # function
+    func = BaseFunction.new(context, function_name)
+
+    # parameter
+    params = BaseParameter.new
+    params.arguments = arguments
+
+    HttpTask.new(func, params)
+  end
+
+  def HttpTask.from_path_with_parameters(full_path, options = {})
+    path, query = full_path.split("?",2)
+    task = HttpTask.from_path(path, options)
+    if query
+      n_opts = {}
+      CGI::parse(query).each {|key,val|
+	n_opts[key.to_sym] = val
+      }
+      task.parameter.options = task.parameter.options.merge(n_opts)
+    end
+      
+    task
+  end
+
+  def HttpTask.from_browser(io, options = {})
+    p "gets"
+    request_line = io.gets
+    p "request_line: #{request_line}"
+    # base from webrick/httprequest.rb read_request_line(socket)
+    if /^(\S+)\s+(\S+)(?:\s+HTTP\/(\d+\.\d+))?\r?\n/mo =~ request_line
+      request_method = $1
+      unparsed_uri   = $2
+      http_version   = ($3 ? $3 : "0.9")
+
+      request = HttpTask.from_path_with_parameters(unparsed_uri)
+      request.parameter.options[:http_version] = http_version
+      request.parameter.options[:request_method] = $1
+      request.parameter.options[:input_stream] = io
+      request.parameter.options[:output_stream] = io
+      request
+
+      # TODO: read parameters
+    else
+      rl = request_line.sub(/\x0d?\x0a\z/o, '')
+      raise "Bad request #{rl.inspect}"
+    end
+  end
+	
+
+end