lustr-core 0.1.0

data/lib/lustr/engine.rb

@@ -0,0 +1,59 @@
+=begin
+This file is part of Lustr (http://rubyforge.org/projects/lustr).
+
+Copyright (c) 2007 Mark L. Murphy.
+
+Lustr 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 2 of the License.
+
+Lustr 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. This file is included in the Ruby gem as License.txt.
+=end
+
+module Lustr
+	def self.declare(builder)
+		add_dsl_handler builder.widget_type, builder
+	end
+
+	def self.defaults(sym)
+		Lustr::Defaults.send(sym)
+	end
+	
+	def self.add_dsl_handler(sym, builder)
+		@builders ||= {}
+		@builders[sym]=builder
+		builder.type=sym if builder.respond_to?(:type=)
+		DSL.add_dsl_method sym
+	end
+
+	def self.get_builder_klass(sym)
+		return @builders[sym]
+	end
+
+	def self.run
+		require ARGV[1]
+
+		self.execute(ARGV[0])
+	end
+
+	def self.execute(script)
+		results=ParseContext.new
+		runtime=Runtime.new
+		dsl=DSL.new(results, runtime)
+		dsl.involve(script)
+		runtime.show(results)
+	end
+
+	def self.generate(options)
+		results=ParseContext.new
+		generator_klass=options[:generator]
+		generator=generator_klass.new(options)
+		dsl=DSL.new(results, generator)
+		dsl.involve(options[:script])
+		generator.generate(results)
+	end
+end
+

data/lib/lustr/eval_context.rb

@@ -0,0 +1,45 @@
+=begin
+This file is part of Lustr (http://rubyforge.org/projects/lustr).
+
+Copyright (c) 2007 Mark L. Murphy.
+
+Lustr 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 2 of the License.
+
+Lustr 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. This file is included in the Ruby gem as License.txt.
+=end
+
+module Lustr
+	class EvalContext
+		def initialize
+			@gadget_stack=[]
+		end
+
+		def current_gadget
+			@gadget_stack.last
+		end
+
+		def for_gadget(gadget, callable)
+			@gadget_stack.push gadget
+
+			begin
+				callable.call
+			ensure
+				@gadget_stack.pop if @gadget_stack.size>1
+			end
+		end
+		
+		def init_gadget(gadget, builder)
+			# mostly for subclasses
+		end
+
+		def is_runtime?
+			false
+		end
+	end
+end
+

data/lib/lustr/gadget.rb

@@ -0,0 +1,103 @@
+=begin
+This file is part of Lustr (http://rubyforge.org/projects/lustr).
+
+Copyright (c) 2007 Mark L. Murphy.
+
+Lustr 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 2 of the License.
+
+Lustr 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. This file is included in the Ruby gem as License.txt.
+=end
+
+require File.join(File.dirname(__FILE__), 'widget')
+
+module Lustr
+	class Gadget < BlankSlate
+		include WidgetBase
+
+		attr_reader :widgets, :parent_widget, :builder
+		attr_reader :controller
+
+		def initialize(builder, parent_widget=nil, ctlr=NullController, options={})
+			@builder=builder
+			@widgets={}
+			@parent_widget=parent_widget
+			self.controller=ctlr
+		end
+
+		def controller=(thing)
+			@controller=(thing ? thing : NullController.new)
+			@controller=thing.new if thing.kind_of?(Class)
+			controller.gadget=self if controller
+		end
+		
+		def resolve
+			return children[0].resolve if children.size>0
+			return super
+		end
+
+		def resolve_parent
+			return parent_widget
+		end
+		
+		def show
+			children.each do |child|
+				child.show
+			end
+		end
+		
+		def generate(ctxt)
+			if parent_widget
+				contents(ctxt)
+			else
+				children.each do |child|
+					child.generate(ctxt)
+				end
+			end
+		end
+
+		def contents(ctxt)
+			ctxt.build_gadget_ref(self)
+		end
+		
+		def method_missing(sym, *args)
+			result=widgets[sym.to_s]
+
+			return result if result
+			return super
+		end
+	end
+	
+	class GadgetBuilder < BuilderBase
+		attr_accessor :controller
+
+		def initialize(options={})
+			super(nil, options)
+			@controller=options[:controller]
+		end
+		
+		def dup_from(options)
+			myself=self.dup
+			myself.options=options
+			myself.controller=controller
+
+			return myself
+		end
+
+		def build_all(eval_context, parent_widget=nil)
+			gadget=super
+			eval_context.init_gadget gadget, self
+			
+			return gadget
+		end
+		
+		def build(parent_widget)
+			return Gadget.new(self, parent_widget, controller, options)
+		end
+	end
+end
+

data/lib/lustr/generator.rb

@@ -0,0 +1,81 @@
+=begin
+This file is part of Lustr (http://rubyforge.org/projects/lustr).
+
+Copyright (c) 2007 Mark L. Murphy.
+
+Lustr 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 2 of the License.
+
+Lustr 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. This file is included in the Ruby gem as License.txt.
+=end
+
+module Lustr
+	class Generator < EvalContext
+		attr_reader :options, :parse_context
+	
+		def initialize(options)
+			super()
+			@options=options
+		end
+		
+		def generate(parse_context)
+			@parse_context=parse_context
+			
+			parse_context.gadget_builders.each_pair do |name, builder|
+				if name
+					base=name
+					dir=options[:gadget_dir] || options[:dir]
+					ext=options[:gadget_ext] || options[:extension]
+					ctxt=create_gadget_context(base)
+				else
+					base=options[:default_name] || 'application'
+					dir=options[:dir]
+					ext=options[:extension]
+					ctxt=create_context(base)
+				end
+
+				builder.build_all(self).generate(ctxt)
+				generate_builder(builder, dir, base, ext, options, ctxt)
+			end
+
+			generate_extra_files(options[:dir])
+		end
+
+		def generate_builder(builder, dir, base, ext, options, ctxt)
+			FileUtils.mkdir_p(dir)
+			path=File::join(dir, base+ext)
+			
+			File.open(path, "w") do |aFile|
+				aFile.puts ctxt.to_s
+			end
+
+			if options[:script_extension]
+				path=File::join(dir, '_'+base+options[:script_extension])
+
+				if !File::exists?(path)
+					File.open(path, "w") do |aFile|
+						aFile.puts ""
+					end
+				end
+			end
+		end
+		
+		def create_context(name)
+			# for overridding in subclasses, required
+			raise Exception('Lustr::Generator#create_context must be overridden!')
+		end
+
+		def create_gadget_context(name)
+			return create_context(name)		# override if gadgets need separate context
+		end
+
+		def generate_extra_files(dir)
+			# for overridding in subclasses, optional
+		end
+	end
+end
+

data/lib/lustr/parse_context.rb

@@ -0,0 +1,58 @@
+=begin
+This file is part of Lustr (http://rubyforge.org/projects/lustr).
+
+Copyright (c) 2007 Mark L. Murphy.
+
+Lustr 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 2 of the License.
+
+Lustr 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. This file is included in the Ruby gem as License.txt.
+=end
+
+module Lustr
+	class ParseContext
+		attr_reader :gadget_builders
+
+		def initialize
+			@gadget_builders={}
+			@builder_stack=[]
+			builder=GadgetBuilder.new
+			gadget_builders[nil]=builder
+			@builder_stack.push builder
+		end
+
+		def current_builder
+			@builder_stack.last
+		end
+
+		def add_builder(name, options)
+			current=current_builder
+			builder_klass=Lustr.get_builder_klass(name)
+
+			if builder_klass.kind_of?(Class)
+				child=builder_klass.new(options)
+			else
+				child=builder_klass.dup_from(options)
+			end
+			
+			current << child
+			attach_builder(child) { yield if block_given? }
+		end
+
+		def attach_builder(builder, name=nil)
+			@builder_stack.push builder
+			gadget_builders[name]=builder if name && builder.kind_of?(GadgetBuilder)
+			yield if block_given?
+			@builder_stack.pop
+		end
+
+		def handle_event(name, callable)
+			current_builder.event_handlers[name]=callable
+		end
+	end
+end
+

data/lib/lustr/runtime.rb

@@ -0,0 +1,41 @@
+=begin
+This file is part of Lustr (http://rubyforge.org/projects/lustr).
+
+Copyright (c) 2007 Mark L. Murphy.
+
+Lustr 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 2 of the License.
+
+Lustr 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. This file is included in the Ruby gem as License.txt.
+=end
+
+module Lustr
+	class Runtime < EvalContext
+		def initialize
+			super
+		end
+		
+		def show(parse_context)
+			root=parse_context.gadget_builders[nil].build_all(self)
+			
+			root.show
+		end
+
+		def init_gadget(gadget, builder)
+			super
+		end
+
+		def attach_controller()
+			# mostly for subclasses
+		end
+
+		def is_runtime?
+			true
+		end
+	end
+end
+

data/lib/lustr/version.rb

@@ -0,0 +1,24 @@
+=begin
+This file is part of Lustr (http://rubyforge.org/projects/lustr).
+
+Copyright (c) 2007 Mark L. Murphy.
+
+Lustr 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 2 of the License.
+
+Lustr 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. This file is included in the Ruby gem as License.txt.
+=end
+
+module Lustr #:nodoc:
+  module VERSION #:nodoc:
+    MAJOR = 0
+    MINOR = 1
+    TINY  = 0
+
+    STRING = [MAJOR, MINOR, TINY].join('.')
+  end
+end

data/lib/lustr/widget.rb

@@ -0,0 +1,103 @@
+=begin
+This file is part of Lustr (http://rubyforge.org/projects/lustr).
+
+Copyright (c) 2007 Mark L. Murphy.
+
+Lustr 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 2 of the License.
+
+Lustr 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. This file is included in the Ruby gem as License.txt.
+=end
+
+require 'erb'
+require 'rubygems'
+require 'builder'
+
+module Lustr
+	module WidgetBase
+		attr_accessor :name, :eval_context, :gadget, :label, :parent
+		attr_reader :options
+
+		def children
+			@children||=[]
+			@children
+		end
+
+		def <<(child)
+			_add(child)
+		end
+
+		def _add(child)
+			children << child
+			child.parent=self
+		end
+
+		def resolve
+			return self
+		end
+
+		def resolve_parent
+			return self
+		end
+
+		def init_options(options)
+			@options=options
+		end
+
+		def option(name)
+			return options[name]
+		end
+
+		def controller=(thing)
+			gadget.controller=thing
+		end
+		
+		def raise_event(expr, event=nil)
+			if expr
+				if expr.kind_of?(Proc)
+					expr.call(event, gadget)
+				elsif expr.kind_of?(Symbol)
+					gadget.controller.send(expr, event) if gadget.controller
+				else
+					gadget.controller.instance_eval(expr) if gadget.controller
+				end
+			end
+		end
+
+		def to_s
+			return label if label
+			return super
+		end
+	end
+
+	class XmlBasedWidget
+		include WidgetBase
+	end
+
+	class TemplatedWidget
+		include WidgetBase
+
+		def generate(ctxt)
+			ctxt << contents(ctxt)
+		end
+
+		def contents(ctxt)
+			ERB.new(template).result(binding)
+		end
+
+		def children_contents(ctxt)
+			result=''
+
+			children.each do |child|
+				result+=child.contents(ctxt)+"\n" if child.respond_to?(:contents)
+			end
+
+			return(result)
+		end
+	end
+end
+