jrubyfx-fxmlloader 0.2-java → 0.3-java

data/lib/fxmlloader/j8_expression_value.rb

@@ -23,36 +23,18 @@
 # * questions.
 # */
 
-#package com.sun.javafx.fxml.expression;
-#
-#import java.util.ArrayList;
-#import java.util.Iterator;
-#import java.util.List;
-#
-#import javafx.beans.InvalidationListener;
-#import javafx.beans.property.ReadOnlyProperty;
-#import javafx.beans.value.ChangeListener;
-#import javafx.beans.value.ObservableValue;
-#import javafx.beans.value.ObservableValueBase;
-#import javafx.collections.ListChangeListener;
-#import javafx.collections.MapChangeListener;
-#import javafx.collections.ObservableList;
-#import javafx.collections.ObservableMap;
-#
-#import com.sun.javafx.fxml.BeanAdapter;
 
 #/**
 # * Class representing an observable expression value.
 # */
 class RRExpressionValue < Java::javafx.beans.value.ObservableValueBase
   #// Monitors a namespace for changes along a key path
-    
+
 
 
   def initialize(namespace, expression, type)
     super()
-    dputs "Initializing with #{namespace}, #{expression}, #{type}"
-    if (namespace == nil) 
+    if (namespace == nil)
       raise "NullPointerException.new();"
     end
 
@@ -60,7 +42,7 @@ class RRExpressionValue < Java::javafx.beans.value.ObservableValueBase
       raise "NullPointerException.new();"
     end
 
-    if (type == nil) 
+    if (type == nil)
       raise "NullPointerException.new();"
     end
 
@@ -71,21 +53,20 @@ class RRExpressionValue < Java::javafx.beans.value.ObservableValueBase
     @type = type;
 
     arguments = expression.getArguments();
-    @argumentMonitors = ArrayList.new(arguments.size());
+    @argumentMonitors = java.util.ArrayList.new(arguments.size());
 
     for  argument in arguments
       @argumentMonitors.add(KeyPathMonitor.new(self, argument.iterator()));
     end
   end
 
-    
+
   def getValue()
-    dputs "gettng 8ev for #{self} on #{@expression}"
     return RubyWrapperBeanAdapter.coerce(@expression.evaluate(@namespace), @type);
   end
 
-  def addListener( listener) 
-    if (@listenerCount == 0) 
+  def addListener( listener)
+    if (@listenerCount == 0)
       monitorArguments();
     end
 
@@ -93,90 +74,152 @@ class RRExpressionValue < Java::javafx.beans.value.ObservableValueBase
     @listenerCount += 1
   end
 
-  def removeListener( listener) 
+  def removeListener( listener)
     super(listener);
     @listenerCount-=1
 
-    if (@listenerCount == 0) 
+    if (@listenerCount == 0)
       unmonitorArguments();
     end
   end
 
-  def monitorArguments() 
+  def monitorArguments()
     for  argumentMonitor in @argumentMonitors
       argumentMonitor.monitor(@namespace);
     end
   end
 
-  def unmonitorArguments() 
+  def unmonitorArguments()
     for  argumentMonitor in   @argumentMonitors
       argumentMonitor.unmonitor();
     end
   end
 end
 
-                    
-class KeyPathMonitor 
+
+class KeyPathMonitor
   @key = nil;
   @next = nil
 
   @namespace = nil;
 
-        
 
-  def initialize(this, keyPathIterator) 
+  class ListChangeImpl
+    include ListChangeListener
+
+    def initialize(this)
+      @this = this
+    end
+
+    def onChanged(change)
+      @this.list_changed(change)
+    end
+  end
+
+
+  class MapChangeImpl
+    include MapChangeListener
+
+    def initialize(this)
+      @this = this
+    end
+
+    def onChanged(change)
+      @this.map_changed(change)
+    end
+  end
+
+
+
+  class ChangeListenerImpl
+    include ChangeListener
+
+    def initialize(this)
+      @this = this
+    end
+
+    def changed(ov, old, new)
+      @this.normal_changed(ov, old, new)
+    end
+  end
+
+  def initialize(this, keyPathIterator)
     @key = keyPathIterator.next();
     @this = this
-    
-          
-    @listChangeListener = ListChangeListener.impl do |name, change|
-      while (@change.next()) 
-        index = @key.to_i
-
-        if (index >= change.getFrom() && index < change.getTo()) 
-          @this.fireValueChangedEvent();
-          remonitor();
-        end
-      end
+
+
+    @listChangeListener = ListChangeImpl.new(self)
+
+
+    @mapChangeListener = MapChangeImpl.new(self)
+
+
+    @propertyChangeListener = ChangeListenerImpl.new(self)
+
+    if (keyPathIterator.hasNext())
+      @next = KeyPathMonitor.new(this, keyPathIterator);
+    else
+      @next = nil;
     end
-        
+  end
 
-    @mapChangeListener = MapChangeListener.impl do |name, change|
-      if (@key == (change.getKey())) 
+  def list_changed(change)
+    while (change.next())
+      index = @key.to_i
+
+      if (index >= change.getFrom() && index < change.getTo())
         @this.fireValueChangedEvent();
         remonitor();
       end
     end
-        
+  end
 
-    @propertyChangeListener = ChangeListener.impl do |name, observable, oldValue, newValue|
-      dputs "Normal property changed #{name}, #{observable}, #{oldValue}, #{newValue} for #{@key}"
-      if (@key == (observable.getName())) 
-        dputs "FIRE!"
-        
-        @this.fireValueChangedEvent();
-        remonitor();
-      end
+  def map_changed(change)
+    if (@key == (change.getKey()))
+      @this.fireValueChangedEvent();
+      remonitor();
     end
+  end
 
-    if (keyPathIterator.hasNext()) 
-      @next = KeyPathMonitor.new(this, keyPathIterator);
-    else 
-      @next = nil;
+  def normal_changed(observable, oldValue, newValue)
+    if (@key == (observable.getName()))
+
+      @this.fireValueChangedEvent();
+      remonitor();
     end
   end
 
-  def monitor(namespace) 
-    if (namespace.is_a? ObservableList) 
-      namespace.java_send :addListener, [Java::javafx.collections.ListChangeListener.java_class],@listChangeListener
-    elsif (namespace.is_a? ObservableMap) 
-      namespace.java_send :addListener, [Java::javafx.collections.MapChangeListener.java_class], @mapChangeListener
-    else 
+  def monitor(namespace)
+    if (namespace.is_a? ObservableList)
+      old_verbose = $VERBOSE
+      begin
+        $VERBOSE = nil
+        namespace.addListener @listChangeListener
+      ensure
+        # always re-set to old value, even if block raises an exception
+        $VERBOSE = old_verbose
+      end
+    elsif (namespace.is_a? ObservableMap)
+      old_verbose = $VERBOSE
+      begin
+        $VERBOSE = nil
+        namespace.addListener @mapChangeListener
+      ensure
+        # always re-set to old value, even if block raises an exception
+        $VERBOSE = old_verbose
+      end
+    else
       namespaceAdapter = RubyWrapperBeanAdapter.for(namespace);
       propertyModel = namespaceAdapter.getPropertyModel(@key).to_java
-      dputs "properyt model is now #{propertyModel}"
-      if (propertyModel != nil) 
-        propertyModel.java_send :addListener, [Java::javafx.beans.value.ChangeListener.java_class], @propertyChangeListener
+      if (propertyModel != nil)
+        old_verbose = $VERBOSE
+        begin
+          $VERBOSE = nil
+          propertyModel.addListener @propertyChangeListener
+        ensure
+          # always re-set to old value, even if block raises an exception
+          $VERBOSE = old_verbose
+        end
       end
 
       @namespace = namespaceAdapter;
@@ -184,60 +227,64 @@ class KeyPathMonitor
 
     @namespace = namespace;
 
-    if (@next != nil) 
+    if (@next != nil)
       value = Expression.get(@namespace, @key)
-      if (value != nil) 
+      if (value != nil)
         @next.monitor(value);
       end
     end
   end
 
-  def unmonitor() 
-    if (@namespace.is_a? ObservableList) 
-      @namespace.java_send :removeListener, [Java::javafx.collections.ListChangeListener.java_class], @listChangeListener
-    elsif (@namespace.is_a? ObservableMap) 
-      @namespace.java_send :removeListener, [Java::javafx.collections.MapChangeListener.java_class], @mapChangeListener
-    elsif (@namespace != nil) 
+  def unmonitor()
+    if (@namespace.is_a? ObservableList)
+      old_verbose = $VERBOSE
+      begin
+        $VERBOSE = nil
+        @namespace.removeListener @listChangeListener
+      ensure
+        # always re-set to old value, even if block raises an exception
+        $VERBOSE = old_verbose
+      end
+    elsif (@namespace.is_a? ObservableMap)
+      old_verbose = $VERBOSE
+      begin
+        $VERBOSE = nil
+        @namespace.removeListener @mapChangeListener
+      ensure
+        # always re-set to old value, even if block raises an exception
+        $VERBOSE = old_verbose
+      end
+    elsif (@namespace != nil)
       namespaceAdapter = @namespace;
       propertyModel = namespaceAdapter.getPropertyModel(@key);
 
-      if (propertyModel != nil) 
-        propertyModel.java_send :removeListener, [Java::javafx.beans.value.ChangeListener.java_class], @propertyChangeListener
+      if (propertyModel != nil)
+        old_verbose = $VERBOSE
+        begin
+          $VERBOSE = nil
+          propertyModel.removeListener @propertyChangeListener
+        ensure
+          # always re-set to old value, even if block raises an exception
+          $VERBOSE = old_verbose
+        end
       end
     end
 
     @namespace = nil;
 
-    if (@next != nil) 
+    if (@next != nil)
       @next.unmonitor();
     end
   end
 
-  def remonitor() 
-    if (@next != nil) 
+  def remonitor()
+    if (@next != nil)
       @next.unmonitor();
       value = Expression.get(@namespace, @key);
-      if (value != nil) 
+      if (value != nil)
         @next.monitor(value);
       end
     end
   end
 end
 
-#class JRExpressionTargetMapping < ChangeListener
-#
-#    def initialize(paramExpression,  paramObject, paramList)
-#    
-#      @source = paramExpression;
-#      @target = paramObject;
-#      @path = paramList;
-#    end
-#
-#    def changed(ov, ol, ne)
-#    
-#      if (@source.isDefined())
-#        Expression.set(@target, @path, @source.getValue());
-#      end
-#    end
-#end
- 

data/lib/fxmlloader/real_elts.rb

@@ -1,16 +1,67 @@
+class OBJFXBuilderWrapper < Java::java.util.AbstractMap
+  include Java::javafx.util.Builder
+  def initialize(safeobj, type)
+    super()
+    @type = type
+    @obj = safeobj
+  end
+
+  def wrapped_class
+    @type
+  end
+
+  def on_put(&on_put)
+    @on_put = on_put
+  end
+
+  def build
+    @obj.build.tap{|x| rmorph self, x}
+  end
+
+  def containsKey(o)
+    @obj.containsKey(o)
+  end
+
+  def get(o)
+    @obj.get(o)
+  end
+
+  def put(k, v)
+    @on_put.call(k, v) if @on_put
+    @obj.put(k, v)
+  end
+
+  def [](o)
+    get(o)
+  end
+  def []=(k, v)
+    put(k, v)
+  end
+
+  def entrySet
+    java.util.HashMap.new({}).entrySet
+  end
+
+  def ==(rhs)
+    self.equal? rhs # do pointer comparison
+  end
+
+  def inspect
+    "#<ObjectBuilderWrapper:#{self.object_id.to_s 16} type=#{@type}, child=#{@obj.class.inspect}>"
+  end
+end
+
 class InstanceDeclarationElement < ValueElement
   attr_accessor :type, :constant, :factory
 
   def initialize(current, xmlStreamReader, loadListener, parentLoader, type)
     super(current, xmlStreamReader, loadListener, parentLoader)
-    dputs "new instances! #{type}"
     @type = type;
     @constant = nil;
     @factory = nil;
   end
 
   def processAttribute( prefix,  localName,  value)
-    dputs callz + "Processing #{prefix} for #{localName} on #{type} value: #{value}"
     if (prefix != nil				&& prefix == (FXL::FX_NAMESPACE_PREFIX))
       if (localName == (FXL::FX_VALUE_ATTRIBUTE))
         @value = value;
@@ -19,18 +70,15 @@ class InstanceDeclarationElement < ValueElement
       elsif (localName == (FXL::FX_FACTORY_ATTRIBUTE))
         @factory = value;
       else
-        dputs callz + "SUPER!"
         super(prefix, localName, value);
       end
     else
-        dputs callz + "SUPER2!"
       super(prefix, localName, value);
     end
   end
 
   def constructValue()
     value = nil
-    dputs callz  + "building new object when #{@value.inspect}, #{constant.inspect}, #{factory.inspect}"
     if (@value != nil)
       value = RubyWrapperBeanAdapter.coerce(@value, type);
     elsif (constant != nil)
@@ -52,57 +100,36 @@ class InstanceDeclarationElement < ValueElement
       end
     else
       value = (parentLoader.builderFactory == nil) ? nil : parentLoader.builderFactory.getBuilder(type);
-      dputs callz + "now using #{value.class}"
       if (value.is_a? Builder or (value.respond_to?(:java_object) && value.java_object.is_a?(Builder)))
         begin
           value.size
         rescue java.lang.UnsupportedOperationException => ex
-       dputs "########################## WARNING #############################3"
-       value.class.__persistent__ = true # TODO: JRuby warning
-        class << value
-          def size
-            dputs caller
-            dputs "size waz called!"
-            6
-          end
-          def [](x)
-            get(x)
-          end
-          def []=(x,y)
-            put(x,y)
-          end
-          def has_key?(x)
-            containsKey(x)
-          end
-          def to_s
-            "something interesting...."
-          end
-          def inspect
-            "something equally interesting...."
-          end
+          dputs "########################## WARNING #############################3"
+          value = OBJFXBuilderWrapper.new(value, type)
+          value.on_put {|k, v| rctor value, k, v }
         end
       end
-      end
       if (value == nil)
         begin
-          dputs callz + "attemping it (#{type} => #{type.inspect})"
           #TODO: does this work?
           value = type.ruby_class.new
-          dputs callz + "got taaatempt"
-          dprint callz
-          dp value
         rescue InstantiationException => exception
           raise LoadException.new(exception);
         rescue IllegalAccessException => exception
           raise LoadException.new(exception);
         end
       else
-
-        dputs value.size
-        dputs callz + "parent loader is #{parentLoader.builderFactory} and got #{value} for #{type} (#{value.inspect} #{type.inspect}, #{parentLoader.builderFactory.inspect})"
-      end
+     end
     end
-
+    if factory
+      rputs value, "build(FactoryBuilderBuilder, #{type.ruby_class}, #{factory.inspect}) do"
+    elsif @value
+      rno_show(value)
+      rputs value, value.inspect
+    else
+      rputs value, "build(#{type.ruby_class}) do"
+    end
+    rnest 1
     return value;
   end
 end
@@ -257,14 +284,11 @@ class ReferenceElement < ValueElement
   @source = nil;
 
   def processAttribute(prefix, localName, value)
-dputs callz + "processing attrib"
-dp prefix, localName, value
     if (prefix == nil)
       if (localName == (FXL::REFERENCE_SOURCE_ATTRIBUTE))
         if (loadListener != nil)
           loadListener.readInternalAttribute(localName, value);
         end
-        dputs callz + "SAVING SOURCES"
         @source = value;
       else
         super(prefix, localName, value);
@@ -386,7 +410,12 @@ class RootElement < ValueElement
     value=nil
     root = parentLoader.root
     if (root == nil)
-      raise LoadException.new("Root hasn't been set. Use method setRoot() before load.");
+      if $JRUBYFX_AOT_COMPILING
+        root = parentLoader.root = type.ruby_class.new
+        value = root
+      else
+        raise LoadException.new("Root hasn't been set. Use method setRoot() before load.");
+      end
     else
       if (!type.isAssignableFrom(root.java_class()))
         raise LoadException.new("Root is not an instance of "										+ type.getName() + ".");
@@ -394,7 +423,8 @@ class RootElement < ValueElement
 
       value = root;
     end
-
+    rputs value, "with(__local_fxml_controller) do"
+    rnest 1
     return value;
   end
 end
@@ -409,10 +439,6 @@ class PropertyElement < Element
     @sourceType = nil
     @readOnly = nil
     super(current, xmlStreamReader, loadListener, parentLoader)
-    dputs (callz) + "Property Elt"
-    dputs callz + name
-    dprint callz
-    dp sourceType
     if (parent == nil)
       raise LoadException.new("Invalid root element.");
     end
@@ -432,10 +458,8 @@ class PropertyElement < Element
 
       parentProperties = parent.getProperties();
       if (parent.isTyped())
-        dputs (callz) +"it be typed"
         @readOnly = parent.getValueAdapter().read_only?(name);
       else
-        dputs (callz) +"it be chedrk"
         # If the map already defines a value for the property, assume
         # that it is read-only
         @readOnly = parentProperties.has_key?(name);
@@ -446,12 +470,9 @@ class PropertyElement < Element
         if (value == nil)
           raise LoadException.new("Invalid property.");
         end
-        dputs (callz) +"saving property #{name} => #{value}"
         updateValue(value);
       end
-      dputs (callz) +"doneish"
     else
-      dputs (callz) +"ITS READ OHLY"
       # The element represents a static property
       @readOnly = false;
     end
@@ -462,33 +483,26 @@ class PropertyElement < Element
   end
 
   def add( element)
-    dputs ( callz) +"Adding #{element} to ===> #{name}"
-    dprint callz
-    dp element
-    dp element.class
-    dp element.java_class
-    if element.class.inspect == "Java::JavaNet::URL"
-      # element = element.java_object
-    end
+    @pushd = true
+    rp = nil
     # Coerce the element to the list item type
     if (parent.isTyped())
       listType = parent.getValueAdapter().getGenericType(name);
-      dputs callz + "Typed and list type is #{listType}"
       lit = RubyWrapperBeanAdapter.getListItemType(listType)
-# FIXME: HACK!
-    if element.class.inspect == "Java::JavaNet::URL"
-      lit = Java::java.lang.String.java_class
-    end
-
+      # FIXME: HACK!
+      if element.class.inspect == "Java::JavaNet::URL"
+        lit = Java::java.lang.String.java_class
+        rp = rget(element).match(/build\(FxmlBuilderBuilder, \{"value"=>(.*)\}, Java::JavaNet::URL\) do\n( )*end/)[1]
+      end
       element = RubyWrapperBeanAdapter.coerce(element, lit);
     end
 
     # Add the item to the list
-    super(element);
+    super(element, name, rp);
   end
 
   def set( value)
-    dputs (callz) +"setting prope value #{name} ==> #{value}"
+    @pushd = true
     # Update the value
     updateValue(value);
 
@@ -507,7 +521,6 @@ class PropertyElement < Element
   end
 
   def processAttribute( prefix,  localName,  value)
-dputs (callz) +"processing #{prefix}, #{localName}, #{value} for #{name}"
     if (!readOnly)
       raise LoadException.new("Attributes are not supported for writable property elements.");
     end
@@ -517,17 +530,18 @@ dputs (callz) +"processing #{prefix}, #{localName}, #{value} for #{name}"
 
   def processEndElement()
     super();
-dputs (callz) +"ENDENDLT "
     if (readOnly)
       processInstancePropertyAttributes();
       processEventHandlerAttributes();
+      unless @pushd
+        rputs parent.value, "with(get#{@name[0].upcase}#{@name[1..-1]}) do\n#{rget(@value)||@value.inspect}\nend" unless parent.value == @value
+      end
     end
   end
 
   def processCharacters()
     if (!readOnly)
       text = xmlStreamReader.getText();
-      dputs (callz) +"whitlespa"
       #TODO: normal regexes
       text = extraneousWhitespacePattern.matcher(text).replaceAll(" ");
 
@@ -568,118 +582,114 @@ class UnknownStaticPropertyElement < Element
 end
 
 # Element representing a script block
-#	class ScriptElement < Element
-#    # TODO:  fix
-#		 @source = nil;
-#		@charset = parentLoader.charset;
-#
-#		def isCollection()
-#			return false;
-#		end
-
-#		def processStartElement()
-#			super();
-#
-#			if (source != nil && !staticLoad)
-#				int i = source.rindex(".");
-#				if (i == -1)
-#					raise LoadException.new("Cannot determine type of script \""											+ source + "\".");
-#				end
-#
-#				extension = source[(i + 1)..-1];
-#				scriptEngine = nil
-#        #TODO: use JRUBY stuff
-#				oldLoader = Thread.currentThread().getContextClassLoader();
-#				begin
-#					Thread.currentThread().setContextClassLoader(classLoader);
-#					scriptEngineManager = getScriptEngineManager();
-#					scriptEngine = scriptEngineManager.getEngineByExtension(extension);
-#        ensure
-#					Thread.currentThread().setContextClassLoader(oldLoader);
-#				end
-#
-#				if (scriptEngine == nil)
-#					raise LoadException.new("Unable to locate scripting engine for"											+ " extension " + extension + ".");
-#				end
-#
-#				scriptEngine.setBindings(scriptEngineManager.getBindings(), ScriptContext.ENGINE_SCOPE);
-#
-#				begin
-#					location = nil
-#					if (source[0] == '/')
-#						location = classLoader.getResource(source[(1)..-1]);
-#					else
-#						if (parentLoader.location == nil)
-#							raise LoadException.new("Base location is undefined.");
-#						end
-#
-#						location = URL.new(parentLoader.location, source);
-#					end
-#
-#					InputStreamReader scriptReader = nil;
-#					begin
-#						scriptReader = InputStreamReader.new(location.openStream(), charset);
-#						scriptEngine.eval(scriptReader);
-#					rescue ScriptException => exception
-#						exception.printStackTrace();
-#					end
-#					finally
-#						if (scriptReader != nil)
-#							scriptReader.close();
-#						end
-#					end
-#				rescue IOException => exception
-#					raise LoadException.new(exception);
-#				end
-#			end
-#		end
-#
-#		def processEndElement()
-#			super();
-#
-#			if (value != nil && !staticLoad)
-#				# Evaluate the script
-#				begin
-#					scriptEngine.eval((String) value);
-#				rescue ScriptException => exception
-#					System.err.println(exception.getMessage());
-#				end
-#			end
-#		end
-#
-#		def processCharacters()
-#			if (source != nil)
-#				raise LoadException.new("Script source already specified.");
-#			end
-#
-#			if (scriptEngine == nil && !staticLoad)
-#				raise LoadException.new("Page language not specified.");
-#			end
-#
-#			updateValue(xmlStreamReader.getText());
-#		end
-#
-#		def processAttribute(String prefix, String localName, String value)
-#
-#			if (prefix == nil
-#				&& localName == (FXL::SCRIPT_SOURCE_ATTRIBUTE))
-#				if (loadListener != nil)
-#					loadListener.readInternalAttribute(localName, value);
-#				end
-#
-#				source = value;
-#			elsif (localName == (FXL::SCRIPT_CHARSET_ATTRIBUTE))
-#				if (loadListener != nil)
-#					loadListener.readInternalAttribute(localName, value);
-#				end
-#
-#				charset = Charset.forName(value);
-#			else
-#				raise LoadException.new(prefix == nil ? localName : prefix + ":" + localName
-#																	 + " is not a valid attribute.");
-#			end
-#		end
-#	end
+class ScriptElement < Element
+  def initialize(current, xmlStreamReader, loadListener, parentLoader)
+    super
+    @source = nil;
+    @charset = parentLoader.charset;
+  end
+
+  def isCollection()
+    return false;
+  end
+
+  def processStartElement()
+    super();
+
+    if (@source != nil && !staticLoad)
+      i = @source.rindex(".");
+      if (i == nil)
+        raise ("Cannot determine type of script \""											+ @source + "\".");
+      end
+      extension = @source[(i + 1)..-1];
+      scriptEngine = nil
+      #TODO: use JRUBY stuff
+      oldLoader = Thread.currentThread().getContextClassLoader();
+      begin
+        Thread.currentThread().setContextClassLoader(classLoader);
+        scriptEngineManager = getScriptEngineManager();
+        scriptEngine = scriptEngineManager.getEngineByExtension(extension);
+      ensure
+        Thread.currentThread().setContextClassLoader(oldLoader);
+      end
+
+      if (scriptEngine == nil)
+        raise ("Unable to locate scripting engine for"											+ " extension " + extension + ".");
+      end
+
+      scriptEngine.setBindings(scriptEngineManager.getBindings(), ScriptContext.ENGINE_SCOPE);
+
+      begin
+        location = nil
+        if (@source[0] == '/')
+          location = classLoader.getResource(@source[(1)..-1]);
+        else
+          if (parentLoader.location == nil)
+            raise LoadException.new("Base location is undefined.");
+          end
+
+          location = URL.new(parentLoader.location, @source);
+        end
+
+        InputStreamReader scriptReader = nil;
+        begin
+          scriptReader = InputStreamReader.new(location.openStream(), @charset);
+          scriptEngine.eval(scriptReader);
+        rescue ScriptException => exception
+          exception.printStackTrace();
+        ensure
+          if (scriptReader != nil)
+            scriptReader.close();
+          end
+        end
+      rescue IOException => exception
+        raise LoadException.new(exception);
+      end
+    end
+  end
+
+  def processEndElement()
+    super();
+    if (value != nil && !parentLoader.staticLoad)
+      # Evaluate the script
+      begin
+        rputs nil, "__local_sem_lang_inst_#{rget_sem(parentLoader.scriptEngine)}.eval(#{value.to_s.inspect})"
+        parentLoader.scriptEngine.eval( value.to_s);
+      rescue ScriptException => exception
+        STDERR.puts (exception.getMessage());
+      end
+    end
+  end
+
+  def processCharacters()
+    if (@source != nil)
+      raise LoadException.new("Script source already specified.");
+    end
+
+    if (parentLoader.scriptEngine == nil && !parentLoader.staticLoad)
+      raise LoadException.new("Page language not specified.");
+    end
+    updateValue(xmlStreamReader.getText());
+  end
+
+  def processAttribute(prefix, localName, value)
+    if (prefix == nil        && localName == (FXL::SCRIPT_SOURCE_ATTRIBUTE))
+      if (loadListener != nil)
+        loadListener.readInternalAttribute(localName, value);
+      end
+
+      @source = value;
+    elsif (localName == (FXL::SCRIPT_CHARSET_ATTRIBUTE))
+      if (loadListener != nil)
+        loadListener.readInternalAttribute(localName, value);
+      end
+
+      @charset = Charset.forName(value);
+    else
+      raise LoadException.new(prefix == nil ? localName : prefix + ":" + localName        + " is not a valid attribute.");
+    end
+  end
+end
 
 # Element representing a define block
 class DefineElement < Element
@@ -688,6 +698,7 @@ class DefineElement < Element
   end
 
   def add(element)
+    rputs parent.value, rget(element)
     # No-op
   end