profligacy 0.2-jruby → 0.3-jruby

data/lib/profligacy/LELParser.java

@@ -0,0 +1,342 @@
+// line 1 "lib/profligacy/LELParser.rl"
+package profligacy;
+
+import java.io.IOException;
+import javax.swing.*;
+
+public class LELParser {
+
+  public interface LELEventListener {
+    public void col();
+    public void ltab();
+    public void valign(String dir);
+    public void id(String name);
+    public void row();
+    public void align(String dir);
+    public void setwidth(int width);
+    public void setheight(int height);
+    public void finished(boolean error);
+    public void expand();
+  }
+
+  // line 49 "lib/profligacy/LELParser.rl"
+
+
+  
+// line 27 "lib/profligacy/LELParser.java"
+private static void init__LayoutExpressionLanguage_actions_0( byte[] r )
+{
+	r[0]=0; r[1]=1; r[2]=2; r[3]=1; r[4]=3; r[5]=1; r[6]=6; r[7]=1; 
+	r[8]=9; r[9]=1; r[10]=10; r[11]=1; r[12]=11; r[13]=2; r[14]=0; r[15]=7; 
+	r[16]=2; r[17]=0; r[18]=8; r[19]=2; r[20]=4; r[21]=1; r[22]=2; r[23]=4; 
+	r[24]=5; 
+}
+
+private static byte[] create__LayoutExpressionLanguage_actions( )
+{
+	byte[] r = new byte[25];
+	init__LayoutExpressionLanguage_actions_0( r );
+	return r;
+}
+
+private static final byte _LayoutExpressionLanguage_actions[] = create__LayoutExpressionLanguage_actions();
+
+
+private static void init__LayoutExpressionLanguage_key_offsets_0( byte[] r )
+{
+	r[0]=0; r[1]=0; r[2]=4; r[3]=15; r[4]=17; r[5]=21; r[6]=23; r[7]=26; 
+	r[8]=35; 
+}
+
+private static byte[] create__LayoutExpressionLanguage_key_offsets( )
+{
+	byte[] r = new byte[9];
+	init__LayoutExpressionLanguage_key_offsets_0( r );
+	return r;
+}
+
+private static final byte _LayoutExpressionLanguage_key_offsets[] = create__LayoutExpressionLanguage_key_offsets();
+
+
+private static void init__LayoutExpressionLanguage_trans_keys_0( char[] r )
+{
+	r[0]=32; r[1]=91; r[2]=9; r[3]=13; r[4]=40; r[5]=42; r[6]=46; r[7]=60; 
+	r[8]=62; r[9]=94; r[10]=95; r[11]=65; r[12]=90; r[13]=97; r[14]=122; r[15]=48; 
+	r[16]=57; r[17]=41; r[18]=44; r[19]=48; r[20]=57; r[21]=48; r[22]=57; r[23]=41; 
+	r[24]=48; r[25]=57; r[26]=93; r[27]=95; r[28]=124; r[29]=48; r[30]=57; r[31]=65; 
+	r[32]=90; r[33]=97; r[34]=122; r[35]=32; r[36]=91; r[37]=9; r[38]=13; r[39]=0; 
+}
+
+private static char[] create__LayoutExpressionLanguage_trans_keys( )
+{
+	char[] r = new char[40];
+	init__LayoutExpressionLanguage_trans_keys_0( r );
+	return r;
+}
+
+private static final char _LayoutExpressionLanguage_trans_keys[] = create__LayoutExpressionLanguage_trans_keys();
+
+
+private static void init__LayoutExpressionLanguage_single_lengths_0( byte[] r )
+{
+	r[0]=0; r[1]=2; r[2]=7; r[3]=0; r[4]=2; r[5]=0; r[6]=1; r[7]=3; 
+	r[8]=2; 
+}
+
+private static byte[] create__LayoutExpressionLanguage_single_lengths( )
+{
+	byte[] r = new byte[9];
+	init__LayoutExpressionLanguage_single_lengths_0( r );
+	return r;
+}
+
+private static final byte _LayoutExpressionLanguage_single_lengths[] = create__LayoutExpressionLanguage_single_lengths();
+
+
+private static void init__LayoutExpressionLanguage_range_lengths_0( byte[] r )
+{
+	r[0]=0; r[1]=1; r[2]=2; r[3]=1; r[4]=1; r[5]=1; r[6]=1; r[7]=3; 
+	r[8]=1; 
+}
+
+private static byte[] create__LayoutExpressionLanguage_range_lengths( )
+{
+	byte[] r = new byte[9];
+	init__LayoutExpressionLanguage_range_lengths_0( r );
+	return r;
+}
+
+private static final byte _LayoutExpressionLanguage_range_lengths[] = create__LayoutExpressionLanguage_range_lengths();
+
+
+private static void init__LayoutExpressionLanguage_index_offsets_0( byte[] r )
+{
+	r[0]=0; r[1]=0; r[2]=4; r[3]=14; r[4]=16; r[5]=20; r[6]=22; r[7]=25; 
+	r[8]=32; 
+}
+
+private static byte[] create__LayoutExpressionLanguage_index_offsets( )
+{
+	byte[] r = new byte[9];
+	init__LayoutExpressionLanguage_index_offsets_0( r );
+	return r;
+}
+
+private static final byte _LayoutExpressionLanguage_index_offsets[] = create__LayoutExpressionLanguage_index_offsets();
+
+
+private static void init__LayoutExpressionLanguage_trans_targs_wi_0( byte[] r )
+{
+	r[0]=1; r[1]=2; r[2]=1; r[3]=0; r[4]=3; r[5]=2; r[6]=2; r[7]=2; 
+	r[8]=2; r[9]=2; r[10]=7; r[11]=7; r[12]=7; r[13]=0; r[14]=4; r[15]=0; 
+	r[16]=2; r[17]=5; r[18]=4; r[19]=0; r[20]=6; r[21]=0; r[22]=2; r[23]=6; 
+	r[24]=0; r[25]=8; r[26]=7; r[27]=2; r[28]=7; r[29]=7; r[30]=7; r[31]=0; 
+	r[32]=8; r[33]=2; r[34]=8; r[35]=0; r[36]=0; 
+}
+
+private static byte[] create__LayoutExpressionLanguage_trans_targs_wi( )
+{
+	byte[] r = new byte[37];
+	init__LayoutExpressionLanguage_trans_targs_wi_0( r );
+	return r;
+}
+
+private static final byte _LayoutExpressionLanguage_trans_targs_wi[] = create__LayoutExpressionLanguage_trans_targs_wi();
+
+
+private static void init__LayoutExpressionLanguage_trans_actions_wi_0( byte[] r )
+{
+	r[0]=0; r[1]=1; r[2]=0; r[3]=0; r[4]=0; r[5]=7; r[6]=3; r[7]=5; 
+	r[8]=5; r[9]=3; r[10]=11; r[11]=11; r[12]=11; r[13]=0; r[14]=9; r[15]=0; 
+	r[16]=13; r[17]=13; r[18]=0; r[19]=0; r[20]=9; r[21]=0; r[22]=16; r[23]=0; 
+	r[24]=0; r[25]=22; r[26]=0; r[27]=19; r[28]=0; r[29]=0; r[30]=0; r[31]=0; 
+	r[32]=0; r[33]=1; r[34]=0; r[35]=0; r[36]=0; 
+}
+
+private static byte[] create__LayoutExpressionLanguage_trans_actions_wi( )
+{
+	byte[] r = new byte[37];
+	init__LayoutExpressionLanguage_trans_actions_wi_0( r );
+	return r;
+}
+
+private static final byte _LayoutExpressionLanguage_trans_actions_wi[] = create__LayoutExpressionLanguage_trans_actions_wi();
+
+
+static final int LayoutExpressionLanguage_start = 1;
+static final int LayoutExpressionLanguage_error = 0;
+
+static final int LayoutExpressionLanguage_en_main = 1;
+
+// line 52 "lib/profligacy/LELParser.rl"
+
+  public int cs, p = 0, pe = 0;
+
+  public boolean scan(String input, LELEventListener listener) {
+    int tk_start = 0;
+    p = 0;
+    String tk = null;
+
+    
+// line 182 "lib/profligacy/LELParser.java"
+	{
+	cs = LayoutExpressionLanguage_start;
+	}
+// line 61 "lib/profligacy/LELParser.rl"
+
+    pe = input.length();
+    char data[] = input.toCharArray();
+
+    
+// line 192 "lib/profligacy/LELParser.java"
+	{
+	int _klen;
+	int _trans;
+	int _acts;
+	int _nacts;
+	int _keys;
+
+	if ( p != pe ) {
+	if ( cs != 0 ) {
+	_resume: while ( true ) {
+	_again: do {
+	_match: do {
+	_keys = _LayoutExpressionLanguage_key_offsets[cs];
+	_trans = _LayoutExpressionLanguage_index_offsets[cs];
+	_klen = _LayoutExpressionLanguage_single_lengths[cs];
+	if ( _klen > 0 ) {
+		int _lower = _keys;
+		int _mid;
+		int _upper = _keys + _klen - 1;
+		while (true) {
+			if ( _upper < _lower )
+				break;
+
+			_mid = _lower + ((_upper-_lower) >> 1);
+			if ( data[p] < _LayoutExpressionLanguage_trans_keys[_mid] )
+				_upper = _mid - 1;
+			else if ( data[p] > _LayoutExpressionLanguage_trans_keys[_mid] )
+				_lower = _mid + 1;
+			else {
+				_trans += (_mid - _keys);
+				break _match;
+			}
+		}
+		_keys += _klen;
+		_trans += _klen;
+	}
+
+	_klen = _LayoutExpressionLanguage_range_lengths[cs];
+	if ( _klen > 0 ) {
+		int _lower = _keys;
+		int _mid;
+		int _upper = _keys + (_klen<<1) - 2;
+		while (true) {
+			if ( _upper < _lower )
+				break;
+
+			_mid = _lower + (((_upper-_lower) >> 1) & ~1);
+			if ( data[p] < _LayoutExpressionLanguage_trans_keys[_mid] )
+				_upper = _mid - 2;
+			else if ( data[p] > _LayoutExpressionLanguage_trans_keys[_mid+1] )
+				_lower = _mid + 2;
+			else {
+				_trans += ((_mid - _keys)>>1);
+				break _match;
+			}
+		}
+		_trans += _klen;
+	}
+	} while (false);
+
+	cs = _LayoutExpressionLanguage_trans_targs_wi[_trans];
+
+	if ( _LayoutExpressionLanguage_trans_actions_wi[_trans] == 0 )
+		break _again;
+
+	_acts = _LayoutExpressionLanguage_trans_actions_wi[_trans];
+	_nacts = (int) _LayoutExpressionLanguage_actions[_acts++];
+	while ( _nacts-- > 0 )
+	{
+		switch ( _LayoutExpressionLanguage_actions[_acts++] )
+		{
+	case 0:
+// line 25 "lib/profligacy/LELParser.rl"
+	{ tk = input.substring(tk_start, p); }
+	break;
+	case 1:
+// line 26 "lib/profligacy/LELParser.rl"
+	{ listener.col(); }
+	break;
+	case 2:
+// line 27 "lib/profligacy/LELParser.rl"
+	{ listener.ltab(); }
+	break;
+	case 3:
+// line 28 "lib/profligacy/LELParser.rl"
+	{ listener.valign(input.substring(p,p+1)); }
+	break;
+	case 4:
+// line 29 "lib/profligacy/LELParser.rl"
+	{ listener.id(input.substring(tk_start, p)); }
+	break;
+	case 5:
+// line 30 "lib/profligacy/LELParser.rl"
+	{ listener.row(); }
+	break;
+	case 6:
+// line 31 "lib/profligacy/LELParser.rl"
+	{ listener.align(input.substring(p, p+1)); }
+	break;
+	case 7:
+// line 32 "lib/profligacy/LELParser.rl"
+	{ listener.setwidth(Integer.parseInt(tk)); }
+	break;
+	case 8:
+// line 33 "lib/profligacy/LELParser.rl"
+	{ listener.setheight(Integer.parseInt(tk)); }
+	break;
+	case 9:
+// line 34 "lib/profligacy/LELParser.rl"
+	{ listener.expand(); }
+	break;
+	case 10:
+// line 42 "lib/profligacy/LELParser.rl"
+	{ tk_start = p; }
+	break;
+	case 11:
+// line 45 "lib/profligacy/LELParser.rl"
+	{tk_start = p;}
+	break;
+// line 312 "lib/profligacy/LELParser.java"
+		}
+	}
+
+	} while (false);
+	if ( cs == 0 )
+		break _resume;
+	if ( ++p == pe )
+		break _resume;
+	}
+	}	}
+	}
+// line 66 "lib/profligacy/LELParser.rl"
+
+
+    listener.finished(isInErrorState());
+
+    if(isInErrorState()) {
+      return false;
+    } else {
+      return true;
+    }
+  }
+
+  public boolean isInErrorState() {
+    return cs == LayoutExpressionLanguage_error;
+  }
+
+  public int getPosition() {
+    return p;
+  }
+}

data/lib/profligacy/LELParser.rl

@@ -0,0 +1,84 @@
+package profligacy;
+
+import java.io.IOException;
+import javax.swing.*;
+
+public class LELParser {
+
+  public interface LELEventListener {
+    public void col();
+    public void ltab();
+    public void valign(String dir);
+    public void id(String name);
+    public void row();
+    public void align(String dir);
+    public void setwidth(int width);
+    public void setheight(int height);
+    public void finished(boolean error);
+    public void expand();
+  }
+
+  %%{
+    machine LayoutExpressionLanguage;
+    alphtype char;
+
+    action token { tk = input.substring(tk_start, fpc); }
+    action col { listener.col(); }
+    action ltab { listener.ltab(); }
+    action valign { listener.valign(input.substring(fpc,fpc+1)); }
+    action id { listener.id(input.substring(tk_start, fpc)); }
+    action row { listener.row(); }
+    action align { listener.align(input.substring(fpc, fpc+1)); }
+    action setwidth { listener.setwidth(Integer.parseInt(tk)); }
+    action setheight { listener.setheight(Integer.parseInt(tk)); }
+    action expand { listener.expand(); }
+
+    col = "|" $col;
+    ltab = "[" $ltab;
+    rtab = "]" $row;
+    valign = ("^" | ".") $valign;
+    expand = "*" $expand;
+    halign = ("<" | ">") $align;
+    number =  digit+ >{ tk_start = fpc; } %token;
+    setw = ("(" number %setwidth ("," number %setheight)? ")") ;
+    modifiers = (expand | valign | halign | setw);
+    id = modifiers* ((alpha | '_')+ :>> (alnum | '_')*) >{tk_start = fpc;} %id;
+    row = space* ltab id (col id)* rtab space*;
+
+main := row+;
+  }%%
+
+  %% write data nofinal;
+
+  public int cs, p = 0, pe = 0;
+
+  public boolean scan(String input, LELEventListener listener) {
+    int tk_start = 0;
+    p = 0;
+    String tk = null;
+
+    %% write init;
+
+    pe = input.length();
+    char data[] = input.toCharArray();
+
+    %% write exec;
+
+
+    listener.finished(isInErrorState());
+
+    if(isInErrorState()) {
+      return false;
+    } else {
+      return true;
+    }
+  }
+
+  public boolean isInErrorState() {
+    return cs == LayoutExpressionLanguage_error;
+  }
+
+  public int getPosition() {
+    return p;
+  }
+}

data/lib/profligacy/lel.rb

@@ -0,0 +1,199 @@
+
+module Profligacy
+  include_package 'profligacy'
+
+  class LELNameScanner
+    include Profligacy::LELParser::LELEventListener
+    attr_reader :children
+
+    def initialize
+      @children = []
+    end
+
+    def id(name)
+      @children << name.to_sym
+    end
+
+    def method_missing(symb, *args)
+      #ignored
+    end
+  end
+
+  class LELGroupLayout 
+    include Profligacy::LELParser::LELEventListener
+
+    include_class 'javax.swing.GroupLayout'
+    include_class 'javax.swing.JPanel'
+    include_class 'java.lang.Short'
+
+    def initialize(layout, components)
+      @layout = layout
+      @hgroup = @layout.createSequentialGroup
+      @vgroup = @layout.createSequentialGroup
+      @vertical = nil
+      @horizontals = []
+      @components = components
+
+      alignments_reset
+      widths_reset
+      heights_reset
+      horizontals_reset
+    end
+
+    def col
+      horizontals_push; alignments_reset ; widths_reset
+    end
+
+    def ltab
+      horizontals_reset
+      @vertical = @layout.createParallelGroup
+    end
+
+    def valign(dir)
+      case dir
+      when "^" then @valign = GroupLayout::Alignment::LEADING
+      when "." then @valign = GroupLayout::Alignment::TRAILING
+      else
+        raise "Invalid Vertical Alignment: #{dir}"
+      end
+    end
+
+    def id(name)
+      h = horizontals_cur
+      component = @components[name]
+
+      if component
+        # add it in
+        @vertical.addComponent(component, @valign, GroupLayout::DEFAULT_SIZE, @height, @max)
+        h.addComponent(component, @halign, GroupLayout::DEFAULT_SIZE, @width, @max)
+      elsif name != "_"
+        raise "Cell named '#{name}' does not have a component set during build."
+      end
+    end
+
+    def row
+      @vgroup.addGroup(@vertical);
+      alignments_reset ; widths_reset ; heights_reset
+    end
+
+    def align(direction)
+      case direction
+      when "<" then @halign = GroupLayout::Alignment::LEADING
+      when ">" then @halign = GroupLayout::Alignment::TRAILING
+      else
+        raise "Invalid Horizontal Alignment: #{direction}"
+      end
+    end
+
+    def setwidth(width)
+      @width = width
+    end
+
+    def setheight(height)
+      @height = height
+    end
+
+    def expand
+      @max = Short::MAX_VALUE
+    end
+
+    def finished(error)
+      if !error
+        @layout.setHorizontalGroup(@hgroup);
+        @layout.setVerticalGroup(@vgroup);
+      end
+    end
+
+    private
+
+    def alignments_reset
+      @valign = GroupLayout::Alignment::CENTER
+      @halign = GroupLayout::Alignment::CENTER
+    end
+
+    def widths_reset
+      @width = GroupLayout::DEFAULT_SIZE
+      @max = GroupLayout::DEFAULT_SIZE
+    end
+
+    def heights_reset
+      @height = GroupLayout::DEFAULT_SIZE
+    end
+
+    def horizontals_reset
+      @htop = 0
+    end
+
+    def horizontals_push
+      @htop += 1
+    end
+
+    def horizontals_cur
+      if !@horizontals[@htop]
+        @horizontals[@htop] = @layout.createParallelGroup(@valign)
+        @hgroup.addGroup(@horizontals[@htop])
+      end
+
+      @horizontals[@htop]
+    end
+
+  end
+
+
+  module Swing
+    class LEL < Build
+      include_class 'javax.swing.GroupLayout'
+      attr_reader :prefs
+
+      def initialize(type, expr)
+
+        @expr = expr
+        @container_class = type
+        @parser = LELParser.new
+        names = LELNameScanner.new
+        @prefs = {
+          :auto_create_gaps => true, 
+          :auto_create_container_gaps => true, 
+          :honors_visibility => true, 
+          :pack => true, 
+          :visible => true,
+          :args => []
+        }
+        parse(names)
+        setup_children_and_interactions(names.children)
+        yield @contents, @interactions
+      end
+
+      def build(prefs={})
+        prefs = @prefs.merge prefs
+
+        @container = @container_class.new(*(prefs[:args]))
+        pane = @container.respond_to?(:content_pane) ? @container.content_pane : @container
+        layout = GroupLayout.new pane
+        @container.layout = layout
+        layout.auto_create_gaps = prefs[:auto_create_gaps] 
+        layout.auto_create_container_gaps = prefs[:auto_create_container_gaps] 
+        layout.honors_visibility = prefs[:honors_visibility]
+
+        parse(LELGroupLayout.new(layout, @contents))
+
+        @children.each {|child|
+          configure_interactions_for(child,@contents[child]) if @contents[child]
+        }
+
+        @container.pack if (prefs[:pack] && @container.respond_to?(:pack))
+        @container.visible = prefs[:visible] if @container.respond_to? :visible
+        @container
+      end
+
+      private
+
+      def parse(listener)
+        if !@parser.scan(@expr, listener)
+          raise "LEL parsing error at #{@parser.position} from: '#{@expr[@parser.position-1 .. @parser.position + 30]}' ..."
+        end
+      end
+    end
+
+  end
+end

data/lib/profligacy/swing.rb

@@ -65,10 +65,7 @@ module Profligacy
 
       def initialize(*children)
         @container_class = children.shift
-        @children = children
-        @klass = Struct.new *@children
-        @contents = @klass.new
-        @interactions = @klass.new
+        setup_children_and_interactions(children)
         yield @contents, @interactions
       end
 
@@ -89,13 +86,7 @@ module Profligacy
             component = @contents[child]
             each_or_one(component) {|c| @container.add(c) }
 
-            actions = @interactions[child]
-            # now we tack on the callback
-            actions.each { |type, callback|
-              each_or_one(component) do |c|
-                c.send("add_#{type}_listener", callback.to_proc.to_listener(type))
-              end
-            } if actions
+            configure_interactions_for child, component
           end
         }
 
@@ -123,6 +114,22 @@ module Profligacy
         end
       end
 
+      def setup_children_and_interactions(children)
+        @children = children
+        @klass = Struct.new *@children
+        @contents = @klass.new
+        @interactions = @klass.new
+      end
+
+      def configure_interactions_for(child,component)
+        actions = @interactions[child]
+        # now we tack on the callback
+        actions.each { |type, callback|
+          each_or_one(component) do |c|
+            c.send("add_#{type}_listener", callback.to_proc.to_listener(type))
+          end
+        } if actions
+      end
     end
   end
 end