rhodes-framework 1.0.0

data/lib/rho/rho.rb

@@ -0,0 +1,255 @@
+require 'time'
+require 'rho/render'
+require 'rho/rhoapplication'
+require 'rhom'
+require 'rhofsconnector'
+
+module Rho
+  class RHO
+    APPLICATIONS = {}
+	
+    def initialize(app_manifest_filename=nil)
+      puts "Calling RHO.initialize"
+      Rhom::RhomDbAdapter::open(Rho::RhoFSConnector::get_db_fullpathname)
+      if app_manifest_filename
+        process_model_dirs(app_manifest_filename)
+      else
+        process_model_dirs(Rho::RhoFSConnector::get_app_manifest_filename)
+      end
+      init_sources
+    end
+    
+    # make sure we close the database file
+    def self.finalize
+      Rhom::RhomDbAdapter::close
+    end
+    
+    # Return the directories where we need to load configuration files
+    def process_model_dirs(app_manifest_filename=nil)
+      File.open(app_manifest_filename).each do |line|
+        require File.join(File.dirname(app_manifest_filename), line.chop)
+      end
+    end
+    
+    # setup the sources table and model attributes for all applications
+    def init_sources
+      if defined? Rho::RhoConfig::sources
+        
+        # quick and dirty way to get unique array of hashes
+        uniq_sources = Rho::RhoConfig::sources.values.inject([]) { |result,h| 
+          result << h unless result.include?(h); result
+        }
+		
+        # generate unique source list in database for sync
+        uniq_sources.each do |source|
+          
+          src_id = source['source_id']
+          url = source['url']
+          if !self.source_initialized?(src_id)
+            Rhom::RhomDbAdapter::insert_into_table('sources',
+                                                  {"source_id"=>src_id,"source_url"=>url})
+          end
+        end
+      end
+    end
+    
+    def source_initialized?(source_id)
+      Rhom::RhomDbAdapter::select_from_table('sources','*', 'source_id'=>source_id).size > 0 ? true : false
+    end
+	
+    def get_app(appname)
+      if (APPLICATIONS[appname].nil?)
+        require RhoApplication::get_app_path(appname)+'application'
+        #APPLICATIONS[appname] = Object.const_get(appname+'Application').new
+        APPLICATIONS[appname] = Object.const_get('AppApplication').new
+      end
+      APPLICATIONS[appname]
+    end
+
+    def get_start_path
+      Rho::RhoConfig.start_path
+    end
+    
+    def get_options_path
+      Rho::RhoConfig.options_path
+    end
+    
+    def get_rhobundle_zip_url
+      Rho::RhoConfig.rhobundle_zip_url
+    end
+    
+    def get_rhobundle_zip_pwd
+      Rho::RhoConfig.rhobundle_zip_pwd
+    end
+
+    def serve(req)
+      begin
+	    puts 'inside RHO.serve...'
+        res = init_response
+        get_app(req['application']).send :serve, req, res
+        return send_response(res)
+      rescue Exception => e
+        return send_error(e)
+      end	
+    end
+
+    def serve_hash(req)
+		begin
+			puts 'inside RHO.serve...'
+			res = init_response
+			get_app(req['application']).send :serve, req, res
+			return send_response_hash(res)
+		rescue Exception => e
+			return send_error(e,500,true)
+		end	
+    end
+	
+	def serve_index(index_name)
+		begin
+			puts 'inside RHO.serve_index: ' + index_name
+			res = init_response
+			res['request-body'] = RhoController::renderfile(index_name)
+			return send_response(res)
+		rescue Exception => e
+			return send_error(e)
+		end
+	end
+
+	def serve_index_hash(index_name)
+		begin
+			puts 'inside RHO.serve_index: ' + index_name
+			res = init_response
+			res['request-body'] = RhoController::renderfile(index_name)
+			return send_response_hash(res)
+		rescue Exception => e
+			return send_error(e.message, 500, true)
+		end
+	end
+	
+    def init_response(status=200,message="OK",body="")
+      res = Hash.new
+      res['status'] = status
+      res['message'] = message
+      res['headers'] = 
+        {
+        'Date' => Time.now.httpdate,
+        'Content-Type' => 'text/html',
+        'Content-Length' => 0,
+        'Connection' => 'close' 
+      }
+      res['request-body'] = body
+      res
+    end
+
+    CR   = "\x0d"
+    LF   = "\x0a"
+    CRLF = "\x0d\x0a"
+	
+    def send_response(res)
+      res['headers']['Content-Length'] = res['request-body'].nil? ? 0 : res['request-body'].length
+      data = "HTTP/1.1 #{res['status'].to_s} #{res['message']}" + CRLF
+      res['headers'].each{|key, value|
+        tmp = key.gsub(/\bwww|^te$|\b\w/){|s| s.upcase }
+        data << "#{tmp}: #{value}" << CRLF
+      }
+      data << CRLF
+      data << res['request-body']
+      data
+    end
+
+    def send_response_hash(res)
+		resp = Hash.new
+		res['headers']['Content-Length'] = res['request-body'].nil? ? 0 : res['request-body'].length
+		res['headers'].each{|key, value|
+			tmp = key.gsub(/\bwww|^te$|\b\w/){|s| s.upcase }
+			resp[tmp] = value
+		}
+        resp['request-body'] = res['request-body']
+        resp['status'] = res['status']        
+        resp['message'] = res['message']
+        
+		resp
+    end
+	
+    def send_error(exception=nil,status=500,hash=false)
+      body=''
+      body << <<-_HTML_STRING_
+		<html>
+			<head>
+				<title>Server Error</title>
+				<meta name="viewport" content="width=320"/>
+			</head>
+			<body>
+				<p>
+      _HTML_STRING_
+      body << 'Error: ' << exception.message << "<br/>" if exception
+      body << 'Trace: ' << exception.backtrace.join("\n") if exception
+      body << <<-_HTML_STRING_
+				</p>	
+			</body>
+		</html>
+		
+      _HTML_STRING_
+      if ( hash )
+        send_response_hash(init_response(status,"Server error",body))
+      else
+        send_response(init_response(status,"Server error",body))
+      end
+    end
+  end # RHO
+  
+  # Generic configuration class which accepts hashes with unique keys
+  class RhoConfig
+    @@sources = {}
+    @@start_path = '/'
+    @@options_path = '/'
+    @@rhobundle_zip_url = nil
+    @@rhobundle_zip_pwd = nil
+    
+    class << self
+      def sources
+        @@sources
+      end
+      
+      def options_path
+        @@options_path
+      end
+            
+      def options_path=(path=nil)
+        @@options_path = path if path
+      end
+      
+      def start_path
+        @@start_path
+      end
+            
+      def start_path=(path=nil)
+        @@start_path = path if path
+      end
+      
+      def rhobundle_zip_url
+        @@rhobundle_zip_url
+      end
+            
+      def rhobundle_zip_url=(url=nil)
+        @@rhobundle_zip_url = url
+      end
+      
+      def rhobundle_zip_pwd
+        @@rhobundle_zip_pwd
+      end
+            
+      def rhobundle_zip_pwd=(pwd=nil)
+        @@rhobundle_zip_pwd = pwd
+      end
+      
+      def add_source(modelname, new_source=nil)
+        if new_source
+          unless @@sources[new_source]
+            @@sources[modelname] = new_source
+          end
+        end
+      end
+    end
+  end # RhoConfig
+end # Rho

data/lib/rho/rhoapplication.rb

@@ -0,0 +1,36 @@
+require 'rhom'
+require 'rhofsconnector'
+
+module Rho
+  class RhoApplication
+	
+    def initialize
+      if @rhom.nil?
+        @rhom = Rhom::Rhom.new
+      end
+    end
+	
+    class << self
+	
+      def get_app_path(appname)
+        Rho::RhoFSConnector::get_app_path(appname)
+      end
+      
+      def get_base_app_path
+        Rho::RhoFSConnector::get_base_app_path
+      end
+
+      def get_model_path(appname, modelname)
+        Rho::RhoFSConnector::get_model_path(appname, modelname)
+      end
+	
+    end
+
+    def serve(req,res)
+      req[:modelpath] = self.class.get_model_path req['application'], req['model']
+      require req[:modelpath]+'controller'
+      res['request-body'] = (Object.const_get(req['model']+'Controller').new).send :serve, @rhom, req, res
+    end
+
+  end # RhoApplication
+end # Rho

data/lib/rho/rhocontact.rb

@@ -0,0 +1,110 @@
+require 'bsearch'
+
+module Rho
+	class RhoContact
+		class << self
+			def find(param)
+				pb = Phonebook::openPhonebook
+				if pb.nil?
+					puts "Can't open phonebook"
+					return nil
+				elsif param == :all or param == 'all'
+					records = Phonebook::getallPhonebookRecords(pb)
+					Phonebook::closePhonebook(pb)
+					return records
+				else
+					record = Phonebook::getPhonebookRecord(pb,param)
+					Phonebook::closePhonebook(pb)
+					return record
+				end
+			end
+
+			def create!(properties)
+				pb = Phonebook::openPhonebook
+				unless pb.nil?
+					record = Phonebook::createRecord(pb)
+					if record.nil?
+						puts "Can't find record " + properties['id']
+					else
+						properties.each do |key,value|
+							Phonebook::setRecordValue(record,key,value)
+						end
+						Phonebook::addRecord(pb,record)
+					end
+					Phonebook::closePhonebook(pb)
+				end
+			end
+
+			def destroy(recordId)
+				pb = Phonebook::openPhonebook
+				unless pb.nil?
+					record = Phonebook::openPhonebookRecord(pb,recordId)
+					if record.nil?
+						puts "Can't find record " + recordId
+					else
+						Phonebook::deleteRecord(pb,record)
+					end
+					Phonebook::closePhonebook(pb)
+				end
+			end
+
+			def update_attributes(properties)
+				pb = Phonebook::openPhonebook
+				unless pb.nil?
+					record = Phonebook::openPhonebookRecord(pb,properties['id'])
+					if record.nil?
+						puts "Can't find record " + properties['id']
+					else
+						properties.each do |key,value|
+							Phonebook::setRecordValue(record,key,value)
+						end
+						Phonebook::saveRecord(pb,record)
+					end
+					Phonebook::closePhonebook(pb)
+				end
+			end
+
+			# Examples of how to use select method:
+			#
+    		# selected = Rho::RhoContact.select('first_name' => 'David') { |x| x[1]['last_name']=='Taylor' }
+			# ==> returns record(s) of the David Taylor
+			#
+    		# selected = Rho::RhoContact.select('first_name' => 'Kate')
+			# ==> Returns all records of Kate
+			#
+    		# selected = Rho::RhoContact.select('last_name' => 'User') do |x|
+    		# 	x[1]['first_name']=='Test' and x[1]['company_name']=="rhomobile"
+    		# end
+			# ==> returns all records of the Test User from the company rhomobile
+			#
+			def select(index, &block)
+				key, value = index.keys[0], index.values[0]
+				if @contacts.nil? or @key != key
+					@key, @contacts = key, find(:all).to_a.sort! {|x,y| x[1][key] <=> y[1][key] }
+				end
+				found = @contacts[@contacts.bsearch_range {|x| x[1][key] <=> value}]
+				unless found.nil? or block.nil?
+					return found.select(&block)
+				end
+				return found
+			end
+
+			def select_by_name(first_last_name, &block)
+				if @contacts.nil?
+					@contacts = find(:all).to_a.sort! do |x,y|
+						x[1]['first_name'] + " " + x[1]['last_name'] <=> y[1]['first_name'] + " " + y[1]['last_name']
+					end
+				end
+				range = @contacts.bsearch_range do |x|
+					x[1]['first_name'] + " " + x[1]['last_name'] <=> first_last_name
+				end
+				found = @contacts[range]
+				unless found.nil? or block.nil?
+					return found.select(&block)
+				end
+				return found
+			end
+
+		end #<< self
+	end # class RhoContact
+end # module Rho

data/lib/rho/rhocontroller.rb

@@ -0,0 +1,35 @@
+require 'rho/render'
+require 'rho/rhosupport'
+require 'rho/rhoviewhelpers'
+
+module Rho
+  class RhoController
+
+    def default_action
+      return Hash['GET','show','PUT','update','POST','update',
+        'DELETE','delete'][@request['request-method']] unless @request['id'].nil?
+      return Hash['GET','index','POST','create'][@request['request-method']]
+    end
+
+    def serve(object_mapping,req,res)
+      @request, @response = req, res;
+      @object_mapping = object_mapping
+      @params = RhoSupport::query_params req
+      send req['action'].nil? ? default_action : req['action']
+    end
+
+    # Returns true if the request's header contains "XMLHttpRequest".
+    def xml_http_request?
+      not /XMLHttpRequest/i.match(@request['headers']['X-Requested-With']).nil?
+    end
+    alias xhr? :xml_http_request?
+
+    def redirect(url_params = {},options = {})
+      @response['status'] = options['status'] || 302 
+      @response['headers']['Location'] = url_for(url_params)
+      @response['message'] = options['message'] || 'Moved temporarily'
+      return ''
+    end
+    
+  end # RhoController
+end # Rho

data/lib/rho/rhofsconnector.rb

@@ -0,0 +1,32 @@
+
+module Rho
+  class RhoFSConnector
+
+    class << self
+	
+      def get_app_path(appname)
+        File.join(__rhoGetCurrentDir(), 'apps/'+appname+'/')
+      end
+      
+      def get_base_app_path
+        File.join(__rhoGetCurrentDir(), 'apps/')
+      end
+      
+      def get_app_manifest_filename
+        File.join(__rhoGetCurrentDir(), 'apps/app_manifest.txt')
+      end
+
+      def get_model_path(appname, modelname)
+        File.join(__rhoGetCurrentDir(), 'apps/'+appname+'/'+modelname+'/')
+      end
+
+      def get_db_fullpathname
+        if defined? SYNC_DB_FILE
+	        File.join(SYNC_DB_FILE)
+        else
+	        File.join(__rhoGetCurrentDir(), 'db/syncdb.sqlite')
+        end
+      end
+    end
+  end # RhoApplication
+end # Rho

data/lib/rho/rhosupport.rb

@@ -0,0 +1,146 @@
+module Rho
+  module RhoSupport
+
+    class << self
+      
+      def url_encode(s)
+        s.to_s.dup.force_encoding("ASCII-8BIT").gsub(/[^a-zA-Z0-9_\-.]/n) {
+          sprintf("%%%02X", $&.unpack("C")[0])
+        }
+      end
+      
+      def _unescape(str, regex) str.gsub(regex){ $1.hex.chr } end
+	
+      ESCAPED = /%([0-9a-fA-F]{2})/
+	
+      def unescape_form(str)
+        _unescape(str.gsub(/\+/, " "), ESCAPED)
+      end
+
+      def parse_query_parameters(query_string)
+        return {} if query_string.nil?
+
+        pairs = query_string.split('&').collect do |chunk|
+          next if chunk.empty?
+          key, value = chunk.split('=', 2)
+          next if key.empty?
+          value = value.nil? ? nil : unescape_form(value)
+          [ unescape_form(key), value ]
+        end.compact
+
+        UrlEncodedPairParser.new(pairs).result
+      end
+		
+      def query_params(req)
+        params = {}
+        unless req['id'].nil?
+          params['id'] = req['id']
+        end
+        unless req['request-query'].nil? or req['request-query'].length == 0
+          params.merge!(parse_query_parameters(req['request-query']))				
+        end
+        unless req['headers'].nil? or req['headers']['Content-Type'].nil?
+          if 'application/x-www-form-urlencoded'.eql? req['headers']['Content-Type']
+            params.merge!(parse_query_parameters(req['request-body']))
+          end	
+        end
+        puts "Params: " + params.to_s unless params.empty?
+        params
+      end
+    end
+	
+    class UrlEncodedPairParser < StringScanner #:nodoc:
+      attr_reader :top, :parent, :result
+
+      def initialize(pairs = [])
+        super('')
+        @result = {}
+        pairs.each { |key, value| parse(key, value) }
+      end
+
+      KEY_REGEXP = %r{([^\[\]=&]+)}
+      BRACKETED_KEY_REGEXP = %r{\[([^\[\]=&]+)\]}
+
+      # Parse the query string
+      def parse(key, value)
+        self.string = key
+        @top, @parent = result, nil
+
+        # First scan the bare key
+        key = scan(KEY_REGEXP) or return
+        key = post_key_check(key)
+
+        # Then scan as many nestings as present
+        until eos?
+          r = scan(BRACKETED_KEY_REGEXP) or return
+          key = self[1]
+          key = post_key_check(key)
+        end
+
+        bind(key, value)
+      end
+
+      private
+      # After we see a key, we must look ahead to determine our next action. Cases:
+      #
+      #   [] follows the key. Then the value must be an array.
+      #   = follows the key. (A value comes next)
+      #   & or the end of string follows the key. Then the key is a flag.
+      #   otherwise, a hash follows the key.
+      def post_key_check(key)
+        if scan(/\[\]/) # a[b][] indicates that b is an array
+          container(key, Array)
+          nil
+        elsif check(/\[[^\]]/) # a[b] indicates that a is a hash
+          container(key, Hash)
+          nil
+        else # End of key? We do nothing.
+          key
+        end
+      end
+
+      # Add a container to the stack.
+      def container(key, klass)
+        type_conflict! klass, top[key] if top.is_a?(Hash) && top.key?(key) && ! top[key].is_a?(klass)
+        value = bind(key, klass.new)
+        type_conflict! klass, value unless value.is_a?(klass)
+        push(value)
+      end
+
+      # Push a value onto the 'stack', which is actually only the top 2 items.
+      def push(value)
+        @parent, @top = @top, value
+      end
+
+      # Bind a key (which may be nil for items in an array) to the provided value.
+      def bind(key, value)
+        if top.is_a? Array
+          if key
+            if top[-1].is_a?(Hash) && ! top[-1].key?(key)
+              top[-1][key] = value
+            else
+              top << {key => value}.with_indifferent_access
+              push top.last
+              value = top[key]
+            end
+          else
+            top << value
+          end
+        elsif top.is_a? Hash
+          #key = CGI.unescape(key)
+          parent << (@top = {}) if top.key?(key) && parent.is_a?(Array)
+          top[key] ||= value
+          return top[key]
+        else
+          raise ArgumentError, "Don't know what to do: top is #{top.inspect}"
+        end
+
+        return value
+      end
+
+      def type_conflict!(klass, value)
+        raise TypeError, "Conflicting types for parameter containers. Expected an instance of #{klass} but found an instance of #{value.class}. This can be caused by colliding Array and Hash parameters like qs[]=value&qs[key]=value. (The parameters received were #{value.inspect}.)"
+      end
+    end
+  end # RhoSupport
+end # Rho