ruby-web 1.1.1

data/test/dev/scripts/urireg.rb

@@ -0,0 +1,174 @@
+# urireg.rb:  generates Regexps for uri.rb
+# $Id: urireg.rb,v 1.1.1.1 2002/11/29 04:34:24 patsplat Exp $
+
+# CAUTION: Some regexps generated by this cannot be compiled.
+#          In ruby v1.4.3, /\//.source() generates "/".
+
+=begin
+rfc2396
+      URI-reference = [ absoluteURI | relativeURI ] [ "#" fragment ]
+      absoluteURI   = scheme ":" ( hier_part | opaque_part )
+      relativeURI   = ( net_path | abs_path | rel_path ) [ "?" query ]
+
+      hier_part     = ( net_path | abs_path ) [ "?" query ]
+      opaque_part   = uric_no_slash *uric
+
+      uric_no_slash = unreserved | escaped | ";" | "?" | ":" | "@" |
+                      "&" | "=" | "+" | "$" | ","
+
+      net_path      = "//" authority [ abs_path ]
+      abs_path      = "/"  path_segments
+      rel_path      = rel_segment [ abs_path ]
+
+      rel_segment   = 1*( unreserved | escaped |
+                          ";" | "@" | "&" | "=" | "+" | "$" | "," )
+
+      scheme        = alpha *( alpha | digit | "+" | "-" | "." )
+
+      authority     = server | reg_name
+
+      reg_name      = 1*( unreserved | escaped | "$" | "," |
+                          ";" | ":" | "@" | "&" | "=" | "+" )
+
+      server        = [ [ userinfo "@" ] hostport ]
+      userinfo      = *( unreserved | escaped |
+                         ";" | ":" | "&" | "=" | "+" | "$" | "," )
+
+      hostport      = host [ ":" port ]
+      host          = hostname | IPv4address
+      hostname      = *( domainlabel "." ) toplabel [ "." ]
+      domainlabel   = alphanum | alphanum *( alphanum | "-" ) alphanum
+      toplabel      = alpha | alpha *( alphanum | "-" ) alphanum
+      IPv4address   = 1*digit "." 1*digit "." 1*digit "." 1*digit
+      port          = *digit
+
+      path          = [ abs_path | opaque_part ]  # path is dangling
+      path_segments = segment *( "/" segment )
+      segment       = *pchar *( ";" param )
+      param         = *pchar
+      pchar         = unreserved | escaped |
+                      ":" | "@" | "&" | "=" | "+" | "$" | ","
+
+      query         = *uric
+
+      fragment      = *uric
+
+      uric          = reserved | unreserved | escaped
+      reserved      = ";" | "/" | "?" | ":" | "@" | "&" | "=" | "+" |
+                      "$" | ","
+      unreserved    = alphanum | mark
+      mark          = "-" | "_" | "." | "!" | "~" | "*" | "'" |
+                      "(" | ")"
+
+      escaped       = "%" hex hex
+      hex           = digit | "A" | "B" | "C" | "D" | "E" | "F" |
+                              "a" | "b" | "c" | "d" | "e" | "f"
+
+      alphanum      = alpha | digit
+      alpha         = lowalpha | upalpha
+
+      lowalpha = "a" | "b" | "c" | "d" | "e" | "f" | "g" | "h" | "i" |
+                 "j" | "k" | "l" | "m" | "n" | "o" | "p" | "q" | "r" |
+                 "s" | "t" | "u" | "v" | "w" | "x" | "y" | "z"
+      upalpha  = "A" | "B" | "C" | "D" | "E" | "F" | "G" | "H" | "I" |
+                 "J" | "K" | "L" | "M" | "N" | "O" | "P" | "Q" | "R" |
+                 "S" | "T" | "U" | "V" | "W" | "X" | "Y" | "Z"
+      digit    = "0" | "1" | "2" | "3" | "4" | "5" | "6" | "7" |
+                 "8" | "9"
+=end
+
+require 'regman'
+
+# pchar = unreserved | escaped | ":" | "@" | "&" | "=" | "+" | "$" | ","
+PCHAR = /[0-9A-Za-z\-_.!~*'():@&=+$,]|%[0-9A-Fa-f][0-9A-Fa-f]/
+
+# param = *pchar
+PARAM = /(?:[0-9A-Za-z\-_.!~*'():@&=+$,]|%[0-9A-Fa-f][0-9A-Fa-f])*/
+
+# segment = *pchar *( ";" param )
+SEGMENT = /(?:[0-9A-Za-z\-_.!~*'():@&=+$,]|%[0-9A-Fa-f][0-9A-Fa-f])*(?:;(?:[0-9A-Za-z\-_.!~*'():@&=+$,]|%[0-9A-Fa-f][0-9A-Fa-f])*)*/
+
+# IPv4address = 1*digit "." 1*digit "." 1*digit "." 1*digit
+IPV4ADDRESS = /\d+\.\d+\.\d+\.\d+/
+
+# toplabel = alpha | alpha *( alphanum | "-" ) alphanum
+TOPLABEL = /[A-Za-z]|[A-Za-z][0-9A-Za-z\-]*[0-9A-Za-z]/
+
+# domainlabel = alphanum | alphanum *( alphanum | "-" ) alphanum
+DOMAINLABEL = /[0-9A-Za-z]|[0-9A-Za-z][0-9A-Za-z\-]*[0-9A-Za-z]/
+
+# hostname = *( domainlabel "." ) toplabel [ "." ]
+HOSTNAME = RM.cat(RM.star(RM.cat(DOMAINLABEL, /\./)), TOPLABEL, /\.?/)
+
+# path_segments = segment *( "/" segment )
+tmp = RM.cat(SEGMENT, RM.star(RM.cat(/\//, SEGMENT)))
+PATH_SEGMENTS = /\A#{tmp.source}\z/
+
+# abs_path = "/" path_segments
+#  equals
+# abs_path = "/" segment *( "/" segment )
+#  equals
+# abs_path = 1*( "/" segment )
+tmp = RM.plus(RM.cat(/\//, SEGMENT))
+ABS_PATH = /\A#{tmp.source}\z/
+
+# rel_segment = 1*( unreserved | escaped |
+#                   ";" | "@" | "&" | "=" | "+" | "$" | "," )
+REL_SEGMENT = /\A(?:[0-9A-Za-z\-_.!~*'();@&=+$,]|%[0-9A-Fa-f][0-9A-Fa-f])+\z/
+
+# host = hostname | IPv4address
+tmp = RM.bar(HOSTNAME, /\d+\.\d+\.\d+\.\d+/)
+HOST = /\A(?:#{tmp.source})\z/
+
+# userinfo = *( unreserved | escaped |
+#               ";" | ":" | "&" | "=" | "+" | "$" | "," )
+USERINFO = /\A(?:[0-9A-Za-z\-_.!~*'();:&=+$,]|%[0-9A-Fa-f][0-9A-Fa-f])*\z/
+
+# reg_name = 1*( unreserved | escaped | "$" | "," |
+#                ";" | ":" | "@" | "&" | "=" | "+" )
+REG_NAME = /\A(?:[0-9A-Za-z\-_.!~*'()$,;:@&=+]|%[0-9A-Fa-f][0-9A-Fa-f])+\z/
+
+# query = *uric
+# uric  = reserved | unreserved | escaped
+QUERY = /\A(?:[0-9A-Za-z\-_.!~*'();\/?:@&=+$,]|%[0-9A-Fa-f][0-9A-Fa-f])*\z/
+
+# scheme = alpha *( alpha | digit | "+" | "-" | "." )
+SCHEME = /\A[A-Za-z][0-9A-Za-z+\-.]*\z/
+
+# fragment = *uric
+FRAGMENT = QUERY
+
+puts 'FRAGMENT (invalid source)'
+puts FRAGMENT.source
+puts
+
+puts 'SCHEME'
+puts SCHEME.source
+puts
+
+puts 'QUERY (invalid source)'
+puts QUERY.source
+puts
+
+puts 'REG_NAME'
+puts REG_NAME.source
+puts
+
+puts 'USERINFO'
+puts USERINFO.source
+puts
+
+puts 'HOST'
+puts HOST.source
+puts
+
+puts 'REL_SEGMENT'
+puts REL_SEGMENT.source
+puts
+
+puts 'PATH_SEGMENTS (invalid source)'
+puts PATH_SEGMENTS.source
+puts
+
+puts 'ABS_PATH (invalid source)'
+puts ABS_PATH.source

data/test/dev/simpledispatcher.rb

@@ -0,0 +1,156 @@
+module Web
+    # Web::SimpleDispatcher provides a simple framework for organizing
+    # Web applications, combining them with forms and handling forms.
+    #
+    # The following is an example form template
+    # '/myappdir/html/templates/my_app.html
+    #
+    #    <html>
+    #      <body>
+    #        <narf:form name="my_form" method="post">
+    #          <narf:text name="field1">
+    #          <narf:textarea name="field2">
+    #        </narf:form>
+    #      </body>
+    #    </html>
+    #
+    # Patrick notes: simple dispatcher might not be simple.
+    # view as promising alpha
+    module SimpleDispatcher #:nodoc: all
+	def SimpleDispatcher.trace_dispatcher text
+	    if $ADD_TEST_OUTPUT
+	    	Kernel.puts text
+	    end
+	end
+
+	class Link
+	    attr_reader :page, :query
+	    
+	    def initialize page, query
+		@page = page
+		@query = query
+	    end
+	    
+	    def get_link
+		"#{SimpleDispatcher.template_from_class(@page)}?#{Link.make_query_string(Web.encode_objects(@query))}"
+	    end
+	    
+	    def encode
+		encode64(Marshal.dump(self))
+	    end
+	    
+	    class << self
+		def make_query_string query
+		    query.collect do |k,v|
+			"#{k}=#{Web.escape(v)}"
+		    end.join("&")
+		end
+		
+		def Link.unencode string
+		    Marshal.load(decode64(string))
+		end
+	    end    
+	end
+
+        module TemplateMixin
+	    def redirect_to_template templateClass, params
+		Web.reset_headers
+		Web.set_redirect File.join(Web.script_name, "#{templateClass.template}?#{Web.make_query_string(Web.encode_objects(params))}")
+	    end
+
+            def assign_params
+                params = {}
+                Web.keys.each do |k|
+                if k
+   	            params[k] = Web[k]
+                end
+              end
+              
+              Scope.new(self).update( params )
+            end
+        end
+
+        module TemplateClassMixin
+          def template
+            SimpleDispatcher::template_from_class self
+          end
+
+          def redirect_to params
+            Web.reset_headers
+            Web.set_redirect File.join(Web.script_name, "#{template}?#{Web.make_query_string(Web.encode_objects(params))}")
+          end  
+          
+          def template_filename
+            template + ".html"
+          end
+
+          def format_description
+            "Template: #{template_filename}, formclass #{name}"
+          end
+
+          def was_not_a_submit
+            Web["__submitted"] == ""
+          end
+          
+          def handle aTemplate
+            if was_not_a_submit
+ #             trace_dispatcher format_description
+            else
+#              trace_dispatcher "Submit to: #{name}"
+              aTemplate.assign_params
+              aTemplate.on_submit({})
+            end
+            
+            Web::load template_filename
+                      
+                      #aTemplate, Web.encode_objects(Web.query)
+          end
+        end
+
+	class Template
+            include TemplateMixin
+
+            class << self
+              include TemplateClassMixin
+            end
+	end
+
+	class << self
+	    def class_from_template template
+		template.gsub(/(^|_)([a-z])/) { |m| m.gsub('_','').upcase }		
+	    end
+	   
+	    def template_from_class aClass
+		first = true
+		aClass.name.gsub(/([A-Z])/) do |m| 
+		    value = m.downcase
+		    if first
+			first = false
+			value
+		    else
+			"_" + value
+		    end
+		end
+	    end
+	   
+            def template_from_path_info
+              if (Web.get_cgi.path_info != "/")
+		if (m = /\/?(.+)\/?/.match(Web.get_cgi.path_info))
+                  eval(class_from_template(m[1]))
+                end
+              end
+            end
+
+	    def handle_request options
+                unless formclass = template_from_path_info
+		    options[:default].redirect_to Web.query
+		    return
+		end
+
+                aTemplate = formclass.new(Web.query)
+
+                formclass.handle aTemplate
+	    end
+	end
+    end
+end

data/test/dev/test.action.rb

@@ -0,0 +1,146 @@
+module Web
+    class Action
+	def Action.clear_actions
+          Thread::current[:actions] = [ ]
+	end
+    end
+end
+
+class TestAction < Test::Unit::TestCase
+    def set_up
+    end
+    
+    def teardown
+	@output = @cgi = @action = @stored_pattern = nil
+	Web::Action.clear_actions
+    end
+
+    def output
+	@output ||= ""
+    end
+
+    def cgi params={}
+	Web::CGI.new( :out => output, :params => params )
+    end
+
+    def stored_pattern pattern={}
+	@stored_pattern ||= pattern
+    end
+
+    def action( pattern=stored_pattern, &function )
+	@action ||= Web::Action.new( pattern, &function )
+    end
+
+    def test_failed_match_on_blank_cgi
+	action( "name" => // )
+	assert_equal( false, action.applies?(cgi) )
+    end
+
+    def test_fails_with_different_params
+	action "name" => //
+	assert_equal( false, action.applies?(cgi( {"not" => "me"} )) )
+    end
+
+    def test_matchs_by_param_present
+	action "name" => //
+	assert action.applies?(cgi( {"name" => "something"}) )
+    end
+    
+    def test_matches_exact_param
+	action "name" => "patrick"
+	assert action.applies?(cgi( {"name" => "patrick" } ))
+	assert_equal( false, action.applies?(cgi( {"name" => "patrick.may"} ) ))
+    end
+
+    def test_matches_pattern
+	action "name" => /patrick|tom/
+	assert action.applies?(cgi( {"name" => "patrick the great" } ))
+	assert action.applies?(cgi( {"name" => "tom the silly" } ))
+    end
+	
+    def test_match_is_not_anal
+	action "name" => //
+	assert action.applies?(cgi( {"name" => "something", "ignore" => "me"} ))
+    end
+
+    def test_runs_block
+	action_ran_flag = false
+	action( "name" => // ) {
+	    action_ran_flag = true
+	}
+
+	action.run
+
+	assert action_ran_flag
+    end
+
+    def test_guards_block
+	Web::Action.new.run
+    end
+
+    def test_passes_cgi_in_with_run
+	action_ran_flag = false
+	action( "name" => // ){ |cgi|
+	    action_ran_flag = cgi.key? "flag"
+	}
+
+	action.run cgi( "flag" => "it ran" )
+
+	assert action_ran_flag
+    end
+
+    def test_pick_action_picks_the_most_specific_action
+      one = Web::Action.new( "name" => // ) { assert false }
+      second = Web::Action.new( "name" => "patrick" ) { assert true }
+      third = Web::Action.new( "name" => /patrick|tom/ ) { assert false }
+      
+      # for some reason, object ids change with thread local variables
+      # assert_equal( second, Web::Action.pick( cgi({ "name" => "patrick"}) ) )
+      
+      Web::Action.pick( cgi({ "name" => "patrick"}) ).run
+    end
+
+    def test_set_default_action
+	default = Web::Action.new
+	another = Web::Action.new( "this" => "that", "here" => "there" )
+	assert_equal( default, Web::Action.pick( cgi ) )
+    end
+
+# this test causes no initial default action
+#    def test_raises_exception_if_no_action_is_found
+#	assert_raises(Web::Exception){ 
+#	    Web::Action.pick cgi
+#	}
+#    end
+
+    def test_doesnt_raise_exception_if_no_exception_is_found
+	Web::Action.pick(cgi).run
+    end
+
+    def test_blank_action_doesnt_mask_default
+	Web::Action.pick(cgi).run
+
+	default = Web::Action.new
+
+	assert_equal( default, Web::Action.pick(cgi) )
+    end
+
+    def test_run
+      cgi_params = { "name" => "patrick" }
+      test_params = {}
+      
+      Web::Action.new { |cgi|
+        test_params = cgi.multiple_params
+      }
+      
+      Web::set_cgi nil
+      Web::Action.run :params => cgi_params, :out => ""
+
+      assert_equal( cgi_params, test_params )
+    end
+    
+    def todo_test_subclassing_action
+
+    end
+    
+end