sws 0.4

data/examples/movies/movies_postgres.sql

@@ -0,0 +1,27 @@
+create table "rental" (
+	"id_movie" integer NOT NULL,
+	"id_user" integer NOT NULL,
+	"return_date" date,
+	"rental_date" date NOT NULL,
+	primary key ( "id_movie","id_user" )
+ ) ;
+create table "user" (
+	"name" varchar(100) NOT NULL,
+	"id" integer NOT NULL,
+	primary key ( "id" )
+ ) ;
+create sequence "user_seq";
+create table "movie" (
+	"id" integer NOT NULL,
+	"english_title" varchar(50) NOT NULL,
+	"rented" integer NOT NULL,
+	"description" varchar(250) NOT NULL,
+	"cd_count" integer NOT NULL,
+	"polish_title" varchar(50) NOT NULL,
+	primary key ( "id" )
+ ) ;
+create sequence "movie_seq";
+create index "rental_user" on "rental" ("id_user");
+alter table "rental" add constraint "fk_rental_user" foreign key ("id_user") references "user" ("id");
+create index "rental_movie" on "rental" ("id_movie");
+alter table "rental" add constraint "fk_rental_movie" foreign key ("id_movie") references "movie" ("id");

data/examples/movies/movies_sqlite.sql

@@ -0,0 +1,28 @@
+create table _pk_support (table_name varchar(250), pk integer(10));
+create table "rental" (
+	"id_movie" integer NOT NULL,
+	"id_user" integer NOT NULL,
+	"return_date" date,
+	"rental_date" date NOT NULL,
+	primary key ( "id_movie","id_user" )
+ ) ;
+create table "user" (
+	"name" varchar(100) NOT NULL,
+	"id" integer NOT NULL,
+	primary key ( "id" )
+ ) ;
+insert into _pk_support (table_name,pk) values ('user',1);
+create table "movie" (
+	"id" integer NOT NULL,
+	"english_title" varchar(50) NOT NULL,
+	"rented" integer NOT NULL,
+	"description" varchar(250) NOT NULL,
+	"cd_count" integer NOT NULL,
+	"polish_title" varchar(50) NOT NULL,
+	primary key ( "id" )
+ ) ;
+insert into _pk_support (table_name,pk) values ('movie',1);
+create index "rental_user" on "rental" ("id_user");
+
+create index "rental_movie" on "rental" ("id_movie");
+

data/lib/sws.rb

@@ -0,0 +1,89 @@
+require 'singleton'
+require 'yaml'
+require 'sws/application'
+require 'sws/extensions'
+require 'sws/parsers'
+require 'sws/component'
+require 'sws/request'
+require 'sws/response'
+require 'sws/adaptor'
+require 'sws/cookie'
+require 'sws/session'
+require 'sws/slot'
+require 'sws/direct_action'
+
+begin
+	require 'rubygems'
+	require_gem( 'log4r', '>= 1.0.4' )
+rescue LoadError
+	require 'log4r'
+end
+
+
+
+module SWS
+
+	Framework = Struct.new( :path, :components, :resources )
+	ComponentInfo = Struct.new( :component_class, :definition, :template, :api )
+	
+	# Initializes log4r. Called when loading SWS.
+	def SWS.init_log4r()
+		
+		$log_sws = Log4r::Logger.new( "sws" )
+		#		$log_sws.level = Log4r::INFO
+		$log_sws.outputters = Log4r::Outputter.stderr
+		$log_sws_component = Log4r::Logger.new( "sws::component", Log4r::INFO )
+		$log_sws_parser = Log4r::Logger.new( "sws::parser", Log4r::INFO )
+		$log_sws_request = Log4r::Logger.new( "sws::request", Log4r::INFO )
+		$log_sws_profile = Log4r::Logger.new( "sws::profile", Log4r::INFO )
+		$log_sws_handle = Log4r::Logger.new( "sws::handle", Log4r::INFO )
+		$log_sws_mc = Log4r::Logger.new( "sws::mc", Log4r::INFO )
+
+	end
+	
+	
+	# Retrieves const by its name - in opposition to Object.const_get() works for
+	# const contained within modules
+	def SWS.get_const( name )
+		
+		const = ::Object
+		name.split( /::/ ).each do |name_elem|
+			begin
+				const = const.const_get( name_elem )
+			rescue NameError
+				return nil
+			end
+		end
+
+		# Necessary to avoid finding const in parent namespace (eg. SWS::String and
+		# String)
+		return const.name == name ? const : nil
+
+	end
+
+	
+	def SWS.get_class (name)
+
+		klass = SWS.get_const( name )
+		unless ( klass.is_a?( Class ) )
+			raise TypeError.new( "Constant #{name} is not a Class" )
+		end
+		return klass
+
+	end
+	
+		
+	def SWS.get_module (name)
+
+		mod = SWS.get_const( name )
+		unless ( mod.is_a?( Module ) )
+			raise TypeError.new( "Constant #{name} is not a Module" )
+		end
+		return mod
+
+	end
+
+end
+
+
+SWS.init_log4r()

data/lib/sws/Core/components/CheckBox/CheckBox.api

@@ -0,0 +1,5 @@
+checked:
+  required: true
+  settable: true
+disabled:
+other_tag_string:

data/lib/sws/Core/components/CheckBox/CheckBox.rb

@@ -0,0 +1,45 @@
+module SWS
+
+	#	Represents <INPUT type=checkbox tag. 
+	#	Bindings:
+	#	- checked (settable, required) - if true, the checkbox will be checked. If
+	#	checked, the value bound will be set to true.
+	#	- disabled - if true, the checkbox will be rendered inactive.
+	#	- other_tag_string - generic string to add to the HTML tag
+	class CheckBox < FormElement
+
+
+		def process_bindings ()
+
+			if ( @parameters["checked"] == "on" )
+				@slots["checked"].value = true
+			else
+				@slots["checked"].value = false
+			end
+
+		end
+
+
+		def append_to_response ( response )
+			response << generate_html() 
+		end
+
+
+		# Generates HTML code for the HTML checkbox form element
+		def generate_html ()
+
+			string = "<INPUT type=\"checkbox\" name=\"#{element_name()}.checked\""
+			if ( @slots["checked"].value() ) 
+				string << " checked"
+			end
+			if ( slot_bound?( "disabled" ) && @slots["disabled"] )
+				string << " disabled"
+			end
+			string << generic_attr_string() << ">"
+			return string
+
+		end
+
+	end
+
+end

data/lib/sws/Core/components/CheckBoxList/CheckBoxList.api

@@ -0,0 +1,13 @@
+list:
+  required: true
+item:
+  required: true
+  settable: true
+display_string:
+selections:
+  required: true
+  settable: true
+prefix:
+suffix:
+disabled:
+other_tag_string:

data/lib/sws/Core/components/CheckBoxList/CheckBoxList.rb

@@ -0,0 +1,54 @@
+module SWS
+
+	# Represents a list of checkboxes with the same name.
+	# Bindings: 
+	# - list (required) - array of object to iterate in the checkboxes
+	# - item (required, settable) - an object to use as iterator
+	# - display_string - use it if the string to display at a checkbox is not the
+	# item itself
+	# - selections (required,settable) - the array of selected items (not the
+	# displayed strings, but the objects)
+	# - prefix - HTML code to add before each checkbox
+	# - suffix - HTML code to add after each checkbox
+	# - disabled - if true, the list will be rendered inactive
+	# - other_tag_string - generic string to add to the end of each <INPUT
+	# type=checkbox tag
+	class CheckBoxList < MultipleSelectionList
+
+
+		# Generates the HTML code for the component.
+		def generate_html ()
+
+			string = ""
+			generic_string = generic_attr_string()
+			list().each_index do |index|
+				item = list[index]
+				@slots["item"].value = item
+				if ( slot_bound?( "display_string" ))
+					display_string = @slots["display_string"].value()
+				else
+					display_string = item
+				end
+				if ( slot_bound?( "prefix" ))
+					string << @slots["prefix"].value()
+				end
+				string << "<INPUT type=\"checkbox\" name=\"#{element_name()}.selections\" value=#{index}"
+				if ( slot_bound?( "disabled" ) && @slots["disabled"].value() == true )
+					string << " disabled"
+				end
+				if ( selections().include?( item ) )
+					string << " checked"
+				end
+				string << generic_string << ">\n"
+				string << display_string
+				if ( slot_bound?( "suffix" ) )
+					string << @slots["suffix"].value()
+				end
+			end
+			return string
+
+		end
+
+	end
+
+end

data/lib/sws/Core/components/Conditional/Conditional.api

@@ -0,0 +1,3 @@
+condition:
+  required: true
+negate:

data/lib/sws/Core/components/Conditional/Conditional.html

@@ -0,0 +1 @@
+<span sws="content"/>

data/lib/sws/Core/components/Conditional/Conditional.rb

@@ -0,0 +1,39 @@
+module SWS
+	
+	# Represents content that is rendered conditionally.
+	# Bindings: 
+	# - condition (required) - if true, the content will be rendered
+	# - negate - if true, the condition is reversed
+	class Conditional < Component
+
+		
+		def process_bindings ()
+			if ( render_content? ) then	super	end
+		end
+
+		
+		def create_component_tree ()
+			if ( render_content? ) then	super	end
+		end
+
+
+		# The content of this component is appended to response only if value of
+		# only one of "condition" and "negate" slots evaluates to true.
+		def append_to_response ( response )
+			if ( render_content? ) then	super end
+		end
+
+
+		private
+		def render_content? ()
+			
+			condition = @slots["condition"].value()
+			negate = @slots["negate"].value()
+
+			return( (condition && ! negate) || (!condition && negate) )
+
+		end
+
+	end
+
+end

data/lib/sws/Core/components/Conditional/Conditional.sws

@@ -0,0 +1,2 @@
+content: 
+  _class: SWS::Content

data/lib/sws/Core/components/Content/Content.rb

@@ -0,0 +1,18 @@
+module SWS
+
+	# Represents content that has been wrapped in another Component - eg. the
+	# Form usually has some fields like TextField or SubmitButton contained
+	# within. This is very special component.
+	class Content < Component
+
+		def content? ()
+			return true
+		end
+
+		def container? ()
+			return false
+		end
+
+	end
+
+end

data/lib/sws/Core/components/ExceptionPage/ExceptionPage.html

@@ -0,0 +1,13 @@
+<html>
+	<head><title>Exception raised!</title></head>
+	<body>
+		<h3><span sws="string_exception_class"></span>: 
+			<span sws="string_exception_message"></span>
+		</h3>
+		Backtrace:<br>
+		<span sws="repetition_backtrace">
+			<span sws="string_backtrace_element"></span><br>
+		</span>
+	</body>
+</html>
+

data/lib/sws/Core/components/ExceptionPage/ExceptionPage.rb

@@ -0,0 +1,18 @@
+module SWS
+
+	# Default exception page - displays exception message and the backtrace
+	class ExceptionPage < Component
+
+		# Exception to be displayed.
+		attr_accessor :exception
+
+		# Cursor to iterate through backtrace elements
+		attr_accessor :backtrace_cursor
+
+		def initialize( *args )
+			super
+		end
+
+	end
+
+end

data/lib/sws/Core/components/ExceptionPage/ExceptionPage.sws

@@ -0,0 +1,16 @@
+string_exception_class: 
+  _class: SWS::String
+  value: exception.class.name
+
+string_exception_message: 
+  _class: SWS::String
+  value: exception.to_s
+
+repetition_backtrace: 
+  _class: SWS::Repetition
+  list: exception.backtrace
+  item: backtrace_cursor
+
+string_backtrace_element: 
+  _class: SWS::String
+  value: backtrace_cursor

data/lib/sws/Core/components/FileUpload/FileUpload.api

@@ -0,0 +1,16 @@
+filename:
+  settable: true
+
+data:
+  settable: true
+
+content_type:
+  settable: true
+
+charset:
+  settable: true
+
+disabled:
+  default: false
+
+other_tag_string:

data/lib/sws/Core/components/FileUpload/FileUpload.rb

@@ -0,0 +1,62 @@
+module SWS
+
+	# Represents a <INPUT type=file... field HTML tag.
+	# Bindings:
+	# - filename (settable) - name of the uploaded file
+	# - data (settable) - contents of the uploaded file
+	# - content_type (settable) - content type of the uploaded file
+	# - charset (settable) - charset of the uploaded file
+	# - disabled (default: false) - if true, the component will be rendered
+	# inactive
+	# - other_tag_string - generic string to add to the HTML tag
+	class FileUpload < FormElement
+
+		
+		# This component cannot be a container, so this method returns false.
+		def container? ()
+			return false
+		end
+
+
+		def process_bindings ()
+		
+			file_data = @parameters["file_data"]
+			
+			if ( file_data )
+				
+				if ( file_data.is_a?( FileData ) )
+					if ( slot_bound?( "data" ) ) then @slots["data"].value = file_data.contents end
+					# .sub is a workaround for stupid IE behaviour (sending FULL filename
+					# path, so the application developer knows exactly where on your disk
+					# you took the file from)
+					if ( slot_bound?( "filename" ) ) then @slots["filename"].value = file_data.filename.sub( /^.*\\/,"" ) end
+					if ( slot_bound?( "content_type" ) ) then @slots["content_type"].value = file_data.content_type end
+					if ( slot_bound?( "charset" ) ) then @slots["charset"].value = file_data.charset end
+				elsif ( file_data.is_a?( ::String ) )
+					@slots["filename"].value = file_data
+				end
+				
+			end
+			
+		end
+
+
+		def append_to_response ( response )
+			response << generate_html()
+		end
+
+		
+		def generate_html ()
+
+			string = "<INPUT type=\"file\" name=\"#{element_name()}.file_data\""
+			if ( slot_bound?( "disabled" ) && @slots["disabled"].value() == true )
+				string << " disabled"
+			end
+			string << generic_attr_string() << ">"
+			return string
+
+		end
+
+	end
+
+end