arcadia 0.1.0

data/base/a-libs.rb

@@ -0,0 +1,852 @@
+#
+#   a-libs.rb - Arcadia Ruby ide
+#   by Antonio Galeone <antonio-galeone@rubyforge.org>
+#
+
+class ArcadiaLib
+  attr_reader :arcadia_lib_params
+  attr_reader :classes
+
+  def initialize(_arcadia, _arcadia_lib_params)
+    @arcadia = _arcadia
+    @arcadia_lib_params = _arcadia_lib_params
+    @classes = Array.new
+    @requires = Array.new
+    @require4class = Hash.new
+    register_classes
+  end
+
+  def add_class(arcadia_class=nil, _is_top=false)
+    _self = self
+    if arcadia_class
+      class << arcadia_class
+        def library=(lib)
+          @library = lib
+        end
+        def library
+          @library
+        end
+
+      end
+      arcadia_class.library = self
+      if _is_top
+        class << arcadia_class
+          def is_top
+            true
+          end
+        end
+      else
+        class << arcadia_class
+          def is_top
+            false
+          end
+        end
+      end
+      @classes << arcadia_class
+    end
+  end
+
+  protected :add_class
+  def register_classes
+  end
+  protected :register_classes
+
+end
+
+
+class ArcadiaLibs
+  attr_reader :arcadia
+  ArcadiaLibParams = Struct.new( "ArcadiaLibParams",
+    :name,
+    :source,
+    :require,
+    :classLib
+  )
+
+  def initialize(_arcadia)
+    @arcadia = _arcadia
+    @@libs = Array.new
+  end
+
+  def list
+    @@libs
+  end
+
+  def add_lib(arcadia_lib_params=nil)
+    if arcadia_lib_params
+      @@libs << arcadia_lib_params.classLib.new(@arcadia,arcadia_lib_params)
+    end
+  end
+
+  def ArcadiaLibs.check_dictionary
+    if !defined?(@@wrappers_for_classes)
+      @@wrappers_for_classes = Hash.new
+      @@libs.each{|_lib|
+        _lib.classes.each{|_class|
+          @@wrappers_for_classes[_class.class_wrapped]=_class
+        }
+      }
+    end
+  end
+
+  def ArcadiaLibs.wrapper_class(_class)
+    check_dictionary
+    return @@wrappers_for_classes[_class]
+  end
+
+  def ArcadiaLibs.copy_wrapper_of_class_to_class(_of_class, _to_class)
+    check_dictionary
+    @@wrappers_for_classes[_to_class] = @@wrappers_for_classes[_of_class]
+  end
+
+end
+
+class PropType
+  def initialize
+  end
+end
+
+class StringType < PropType
+  def initialize
+  end
+end
+
+class NumberType < PropType
+  def initialize
+  end
+end
+
+class ProcType < PropType
+  def initialize(_proc)
+    @p = _proc
+  end
+  def procReturn
+    @p.call
+  end
+end
+
+class EnumType < PropType
+  attr_reader :values
+  def initialize(*args)
+    if args.class == Array
+      @values = *args
+    else
+      @values = [*args]
+    end
+  end
+end
+
+class EnumProcType < EnumType
+  def initialize(_proc, *args)
+    @p = _proc
+    super(*args)
+  end
+  def procReturn
+    @p.call
+  end
+end
+
+class ObjEnumProcType < EnumProcType
+  attr_reader :it
+  def initialize(_obj, _proc, *args)
+    @it = me
+    super(_proc, *args)
+  end
+end
+
+class AGSniffer
+  attr_reader :sons
+  def initialize(_obj)
+    @obj = _obj
+    @sons = Array.new
+    find_sons
+  end
+  def find_sons
+
+  end
+  def has_sons?
+    @sons.length > 0
+  end
+end
+
+class AGRenderer
+  #INDENT_UNIT = "\t"
+  INDENT_UNIT = "\s"*2
+  def initialize(_agobj=nil)
+    if _agobj
+      @agobj = _agobj
+    else
+      exit
+    end
+  end
+
+  def class_code(_ind=0, _args=nil)
+    args = render_on_create_properties(_args) 
+    return class_begin(_ind, args), class_hinner_begin(_ind+1), class_hinner_end(_ind+1), class_end(_ind)
+  end
+
+  def class_begin(_ind=0, _args=nil)
+    code = INDENT_UNIT*_ind,'class ', @agobj.getInstanceClass,  ' < ', @agobj.getObjClass
+    code_attr=''
+    code_hinner_class=''
+    @agobj.sons.each {|value|
+      if (value.sons.length > 0)
+        code_hinner_class = code_hinner_class,"\n", value.renderer.class_code(_ind+1)
+      end
+      code_attr = code_attr,"\n",INDENT_UNIT*(_ind+1),'attr_reader :', value.i_name
+    }
+    code = code,code_attr if (code_attr.length >0)
+    code = code,code_hinner_class,"\n" if (code_hinner_class.length >0)
+    code = code,"\n", INDENT_UNIT*(_ind+1),"def initialize(parent=nil, *args)\n"
+    if _args
+      code = code, INDENT_UNIT*(_ind+2),"super(parent, "+_args+")\n"
+    else
+      code = code, INDENT_UNIT*(_ind+2),"super(parent, *args)\n"
+    end
+  end
+  
+  def class_hinner_begin(_ind=0)
+    return render_family(_ind+1,'property','default')
+  end
+  
+  def class_hinner_end(_ind=0)
+    code = ''
+    @agobj.sons.each {|value|
+      if (value.sons.length > 0)
+        code = code, value.renderer.obj_begin(_ind+1),"\n"
+      else
+        code = code, value.renderer.obj_code(_ind+1),"\n"
+      end
+    }
+    return code.to_s
+  end
+  
+  def class_end(_ind=0)
+    code = code, "\n", INDENT_UNIT*(_ind+1),"end\n",INDENT_UNIT*(_ind),"end"
+    return code.to_s
+  end
+  
+  def obj_code(_ind=0)
+    return obj_begin(_ind), "{ ",obj_hinner_begin(_ind+1), obj_hinner_end(_ind+1), obj_end(_ind),"}"
+  end
+
+  def obj_begin(_ind=0)
+    _s_ind = INDENT_UNIT*_ind
+    if _s_ind == nil
+      _s_ind = ''
+    end
+    if @agobj.sons.length > 0
+      _class = @agobj.getInstanceClass
+    else
+      _class = @agobj.class.class_wrapped.to_s
+    end
+    return "\n",_s_ind+'@'+@agobj.i_name+' = '+_class+'.new(self)'
+  end
+  
+  def obj_hinner_begin(_ind=0)
+    return class_hinner_begin(_ind)
+  end
+  
+  def obj_hinner_end(_ind=0)
+    code = ''
+    _s_attr_reader = ''
+    _s_ind = INDENT_UNIT*_ind
+    _s_attr_reader = ''
+    @agobj.sons.each{|son|
+      code = code , "\n", son.renderer.obj_code(_ind)
+      _s_attr_reader = _s_attr_reader, "\n", _s_ind,INDENT_UNIT*2 ,':',son.i_name
+    }
+    if code.length > 0 then
+      code = code , "\n",_s_ind,"class << self"
+      code = code , "\n",_s_ind,"  attr_reader",_s_attr_reader
+      code = code , "\n",_s_ind,"end"
+    end
+    return code
+  end
+
+  def obj_end(_ind=0)
+    _s_ind = INDENT_UNIT*_ind
+    if _s_ind == nil
+      _s_ind = ''
+    end
+    _s_ind
+  end
+  
+  def render_on_create_properties(_args = nil)
+    ret = nil
+    if _args
+      ret = ''
+      _args.each{|k,v|
+        if ret.strip.length > 0
+          ret = ret + ', '
+        end
+        ret = ret + "'"+k+"' => '"+v+"'"
+      }
+    end
+    aprop = @agobj.props_kinds['property']['on-create']
+    if aprop 
+      ret = '' if ret == nil
+      aprop.each{|name|
+        next if _args && _args.has_key?(name)
+        prop = @agobj.props['property'][name]
+	      _val = render_value(prop, 'property')
+        if _val == nil
+          next
+        end
+        if ret.strip.length > 0
+          ret = ret +', '
+        end 
+        #Tk.messageBox('message'=>_val.to_s)
+        if (prop['def'] == '')||(prop['def'] == nil) #significa che possiamo inserire nel blocco come chiave,valore
+          ret = ret + "'"+ prop['name'] +"' => "+ _val.to_s
+        elsif (prop['def'] != nil)&&(prop['def'] != 'nodef')
+          ret = ret + prop['def'].call(_val.to_s)
+        end
+      }
+    end
+    ret = nil if ret != nil && ret.strip.length == 0
+    return ret 
+  end
+	
+	def render_value(_prop, _family)
+      #Tk.messageBox('message'=>_prop['name'])
+      return nil if _prop == nil
+      _val = _prop['get'].call
+      
+      if @agobj.defaults_values[@agobj.class][_family][_prop['name']]==_val
+        return nil
+      end
+
+      _prop['def_string'] != nil && !_prop['def_string'] ? is_string = false: is_string = true
+
+      if _val.kind_of?(String) && is_string
+        _val = "'",_val,"'"
+      elsif _val != nil
+        _val = _val.to_s
+      end
+      #Tk.messageBox('message'=>_val)
+      return _val
+	end  
+
+	def render_value_default(_prop, _family)
+      return nil if _prop == nil
+      _val = _prop['value']
+      _prop['def_string'] != nil && !_prop['def_string'] ? is_string = false: is_string = true
+      if _val.kind_of?(String) && is_string
+        _val = "'",_val,"'"
+      elsif _val != nil
+        _val = _val.to_s
+      end
+      return _val
+	end  
+
+
+
+  def render_family(_ind=0, _family='', _kind=nil, _default=false)
+    if @agobj.props[_family] == nil
+      return ''
+    end
+    _s_block = ''
+    _s_ind = INDENT_UNIT*_ind
+
+    render_group =  @agobj.props_def[_family] != nil
+    if render_group
+      @agobj.props_def[_family]['sep'] != nil ? render_group_sep = @agobj.props_def[_family]['sep']:render_group_sep = ''
+      @agobj.props_def[_family]['default'] != nil ? render_group_default = @agobj.props_def[_family]['default']:render_group_default = proc{|nome,x| "'#{nome}' #{x}"}
+    end
+    if _kind == nil
+      properties_list = Array.new
+      @agobj.props_kinds[_family].each_value{|p|
+        properties_list.concat(p)
+      }
+    else
+      properties_list = @agobj.props_kinds[_family][_kind]
+    end
+    properties_list.each{|name|
+      value = @agobj.props[_family][name]
+      if _default
+      		_val = render_value_default(value, _family)
+      else
+      		_val = render_value(value, _family)
+      end
+      if _val == nil
+        next
+      end
+      
+      if render_group
+        if _s_block.length > 0
+          _s_block = _s_block, render_group_sep
+        end
+        _s_block = _s_block,"\n",_s_ind, INDENT_UNIT
+        if (value['def'] == '')||(value['def'] == nil) #significa che possiamo inserire nel blocco come chiave,valore
+          _s_block = _s_block, render_group_default.call(value['name'] , _val)
+        elsif (value['def'] != nil)&&(value['def'] != 'nodef')
+          _s_block = _s_block, value['def'].call(_val)
+        end
+      else
+        if (value['def'] == '')||(value['def'] == nil) #significa che possiamo inserire nel blocco come chiave,valore
+          _s_block = _s_block, "\n",_s_ind , value['name'] ,INDENT_UNIT , _val
+        elsif (value['def'] != nil)&&(value['def'] != 'nodef')
+          _s_block = _s_block , "\n",  _s_ind ,value['def'].call(_val)
+        end
+      end
+    }
+
+    if render_group
+      _ss_block =  "\n",_s_ind
+      if @agobj.props_def[_family]['path'] != nil
+        _ss_block = _ss_block, @agobj.props_def[_family]['path']
+      end
+      _ss_block = _ss_block, @agobj.props_def[_family]['before'],	_s_block, "\n",_s_ind, @agobj.props_def[_family]['after']
+    else
+      _ss_block = _s_block
+    end
+    #p _ss_block.to_s
+    return _ss_block
+  end
+end
+
+class AG
+  attr_reader :props, :props_def, :i_name, :i_ag, :ag_parent, :obj_class, :obj 
+  attr_reader :sons, :renderer
+  attr_reader :sniffer
+  attr_reader :persistent
+  #attr_reader :props_seq
+  attr_reader :props_kinds
+  attr_writer :props, :i_name, :i_ag
+
+  def initialize(_ag_parent = nil, _object = nil)
+    @ag_parent = _ag_parent
+    if _object == nil
+      new_object
+    else
+      passed_object(_object)
+    end
+
+    @obj_class = self.class.near_class_wrapped(@obj)
+    @sons = Array.new
+    @renderer=self.class.class_renderer.new(self)
+    @sniffer=self.class.class_sniffer.new(@obj)
+    yield(self) if block_given?
+    if !defined?(@i_name)
+      @i_name = self.class.class_wrapped.to_s.gsub('::','_') + new_id
+      @i_name = @i_name.sub(/^./) { $&.downcase}
+    end
+    @i_ag = 'ag' + @i_name
+    @props = Hash.new
+    @props_def = Hash.new
+    @props_kinds = Hash.new
+    @persistent = Hash.new
+    @requires = Hash.new
+    properties
+    defaults(_object != nil )
+    if _object != nil
+      retrive_values
+    else
+      start_properties
+    end
+    self.register
+  end
+
+  def add_require(_require)
+    if @requires[_require] == nil
+      @requires[_require] = 1
+    else
+      @requires[_require] += 1
+    end
+  end
+
+  def del_require(_require)
+    @requires[_require] -= 1
+    if @requires[_require] == 0
+      @requires[_require] = nil
+    end
+  end
+
+  def select
+    _tobj = InspectorContract::TInspectorObj.new(self)
+    _tobj.wrapper = self
+    InspectorContract.instance.select(_tobj)
+    self
+  end
+
+  
+  def activate
+    @@active = self
+  end
+
+
+  def build_sons
+    iv = @obj.instance_variables
+    if iv.length > 0
+      cod = " class << @obj"+"\n"
+      iv.each{|i|
+        i.delete!('@')
+        cod = cod + "  attr_reader  :"+i+"\n"
+      }
+      cod = cod +"end\n"
+      eval(cod)
+    end
+    iv_obj = Hash.new
+    iv.each{|i|
+      iv_obj[i] = eval("@obj."+i)
+    }
+    i_name = nil
+    self.sniffer.sons.each{|obj_son|
+      clazz = self.class.near_class_wrapper(obj_son)
+      if clazz != nil
+        iv_obj.each{|key, value|
+          if value == obj_son
+            i_name=key
+          end
+        }
+        if i_name == nil
+          clazz.new(self,obj_son)
+        else
+          clazz.new(self,obj_son){|_self| _self.i_name = i_name}
+        end
+      end
+    }
+  end
+
+  def register(_agobj=self)
+    @sons << _agobj if _agobj!=self && _agobj.ag_parent == self
+    if @ag_parent
+      return @ag_parent.register(_agobj)
+    else
+    		WrapperContract.instance.wrapper_created(WrapperContract::TWrapperObj.new(self,'wrapper'=>_agobj))
+#
+#	    _tobj = InspectorActionContract::TInspectorActionObj.new(self)
+# 		  _tobj.wrapper = _agobj
+#    		InspectorActionContract.instance.register(_tobj)
+    end
+  end
+
+  def has_sons
+    return (self.sons.length > 0)
+  end
+
+  def new_id
+    if !defined?(@@ag_id)
+      @@ag_id = Hash.new
+    end
+    if (@@ag_id[self.class]==nil)
+      @@ag_id[self.class] = 1
+    else
+      @@ag_id[self.class] = @@ag_id[self.class] + 1
+    end
+    return @@ag_id[self.class].to_s
+  end
+
+  def defaults_values
+    @@defaults_values
+  end
+
+  def defaults(_new=false)
+    if !defined?(@@defaults_values)
+      @@defaults_values = Hash.new
+    end
+    if (!defined?(@@defaults_values[self.class]))||(@@defaults_values[self.class] == nil)
+      @@defaults_values[self.class] = Hash.new
+      if _new
+        _obj = @obj_class.new
+        fill_defaults_value_from_agobj(_obj)
+      else
+        fill_defaults_value_from_agobj
+      end
+    end
+  end
+
+  def fill_defaults_value_from_agobj(_obj=nil)
+    #return if _obj == nil
+    _obj_save = @obj
+    if _obj
+      @obj = _obj
+    end
+    begin
+      @props.each{|_key,_family|
+        #Tk.messageBox('message'=>_key)
+        if @@defaults_values[self.class][_key] == nil
+          @@defaults_values[self.class][_key] = Hash.new
+        end
+        _family.each_value{|value|
+          if (value['name'] != nil) && @@defaults_values[self.class][_key][value['name']] == nil
+            if (value['default'] != nil)
+              @@defaults_values[self.class][_key][value['name']] = value['default']
+            elsif (value['get'] != nil)
+              @@defaults_values[self.class][_key][value['name']] = value['get'].call
+            end
+          end
+        }
+      }
+    ensure
+      if _obj
+        @obj = _obj_save
+        _obj.destroy
+      end
+    end
+
+  end
+
+
+  def delete
+    _tobj = InspectorContract::TInspectorObj.new(self)
+	  _tobj.wrapper = self
+  		InspectorContract.instance.delete_wrapper(_tobj)
+  end
+
+  def AG.class_wrapped
+    nil
+  end
+
+  def AG.class_renderer
+    AGRenderer
+  end
+
+  def AG.class_sniffer
+    AGSniffer
+  end
+
+  def AG.active
+    @@active
+  end
+
+
+  def getFileName
+    __FILE__
+  end
+  
+  def AG.publish_property(_name, args = nil)
+#        class_eval(%Q[
+#          def #{_name}
+#            @#{_name}
+#						#{args('get').call}
+#          end
+#  
+#          def #{_name}=(value)
+#            @#{_name} = value
+#						#{args('set').call(value)}
+#          end
+#        ])
+
+  end
+   
+
+  def new_object
+    if self.class.class_wrapped
+      @obj = self.class.class_wrapped.new
+    end
+  end
+
+  def AG.near_class_wrapped(_obj)
+    clazz = _obj.class
+    while (ArcadiaLibs.wrapper_class(clazz) == nil)&&(clazz!=nil)
+      clazz = clazz.superclass
+    end
+    return clazz
+  end
+
+  def AG.near_class_wrapper(_obj)
+    ArcadiaLibs.wrapper_class(self.near_class_wrapped(_obj))
+  end
+
+
+  def passed_object(_obj)
+    @obj = _obj
+  end
+
+  def start_properties
+    @props.each_value{|family|
+      family.each_value{|value|
+        if value['start'] != nil
+          value['set'].call(value['start'])
+        end
+      }
+    }
+  end
+
+  def retrive_values
+    @props.each_value{|family|
+      family.each_value{|prop|
+        prop['value'] = prop['get'].call
+      }
+    }
+  end
+
+  def getViewClassName
+    return 'V',@i_name
+  end
+
+  def getControlClassName
+    return @i_name.capitalize
+  end
+
+  def getInstanceClass
+    return @i_name.capitalize
+    #return 'C',@i_name
+  end
+
+  def get_path_i_name
+    _return = @i_name
+    _agstart = self
+    while _agstart.ag_parent != nil
+      _return = _agstart.ag_parent.i_name,'.',_return
+      _agstart = _agstart.ag_parent
+    end
+    return _return
+  end
+
+  def get_implementation_new(_variable = false)
+    if (ag_parent == nil)|| _variable
+      result = '@',@i_name,' = ', getInstanceClass ,'.new(', '@',@ag_parent.i_name, ")\n"
+    end
+    result = result, self.class, '.new(', '@',@ag_parent.i_ag,", @",get_path_i_name,")"
+  end
+
+  def get_implementation_block
+    result = result, "  @i_name = '", @i_name, "'\n"
+    result = result, "  @i_ag = '", @i_ag, "'\n"
+    result = result, "  @obj_class = '", getObjClass, "'\n"
+  end
+
+  def get_implementation_code
+    result = result, get_implementation_new, "{\n"
+    result = result, get_implementation_block
+    @requires.each_key do |key|
+      result = result,"  @object_inspector.addRequire('#{key}')\n"
+    end
+    
+    result = result,"}"
+  end
+  
+
+  def getObjClass
+    if defined? @obj_class
+      return @obj_class
+    else
+      return @obj.class
+    end
+  end
+
+  def publish_def(_family, args = nil)
+    @props_def[_family]=args
+  end
+
+#  def AG.publish_def(_family, args = nil)
+#    @@props_def = Hash.new if !defined?(@@props_def)
+#    @@props_def[_family]=args
+#  end
+    
+
+  def publish(_family, args = nil)
+    if @props[_family] == nil
+      @props[_family] = Hash.new
+    end
+    @props[_family][args['name']]=args
+    args['kind'] != nil ? kind = args['kind']:kind = 'default'
+    if @props_kinds[_family] == nil
+      @props_kinds[_family] = Hash.new
+    end
+    if @props_kinds[_family][kind] == nil
+      @props_kinds[_family][kind] = Array.new
+    end
+    @props_kinds[_family][kind] << args['name']
+  end
+
+    
+
+
+#  def AG.publish(_family, args = nil)
+#    @@props = Hash.new if !defined?(@@props) 
+#    if @@props[_family] == nil
+#      @@props[_family] = Hash.new
+#    end
+#    @@props[_family][args['name']]=args
+#    args['kind'] != nil ? kind = args['kind']:kind = 'default'
+#    @@props_kinds = Hash.new if !defined?(@props_kinds)
+#    if @@props_kinds[_family] == nil
+#      @@props_kinds[_family] = Hash.new
+#    end
+#    if @@props_kinds[_family][kind] == nil
+#      @@props_kinds[_family][kind] = Array.new
+#    end
+#    @@props_kinds[_family][kind] << args['name']
+#  end
+
+
+  def publish_mod(_family, args = nil)
+    args.each do |key, value|
+      @props[_family][args['name']]["#{key}"] = value
+    end
+  end
+
+#  def AG.publish_mod(_family, args = nil)
+#    args.each do |key, value|
+#      @@props[_family][args['name']]["#{key}"] = value if !defined?(@@props) 
+#    end
+#  end
+
+
+  def publish_del(_family, _name=nil)
+    if _name == nil
+      @props.delete(_family)
+    else
+      @props[_family].delete(_name)
+    end
+  end
+
+#  def AG.publish_del(_family, _name=nil)
+#    if _name == nil
+#      @@props.delete(_family)
+#    else
+#      @@props[_family].delete(_name)
+#    end
+#  end
+
+  def properties
+    publish( 'property',
+    'name' => 'name',
+    'get'=> proc{@i_name},
+    'set'=> proc{|n| self.i_name = n},
+    'def'=> 'nodef'
+    )
+  end
+
+
+
+#  def delete
+#    @obj.destroy
+#  end
+
+#  def setp(_family, _name, _value)
+#    @props[_family][_name]['set'].call(_value)
+#    tobj = InspectorActionContract::TInspectorActionObj.new(self)
+#    tobj.wrapper = self
+#    tobj.property_family = _family
+#    tobj.property_name = _name
+#    tobj.property_value = _value
+#    InspectorActionContract.instance.update_property(tobj)
+#  end
+
+  def update_property(_sender, _family,_name,_value)
+  	 old_value = @props[_family][_name]['get'].call(_value)
+  	 if old_value != _value
+    		@props[_family][_name]['set'].call(_value)
+    end
+  		WrapperContract.instance.property_updated(
+  				WrapperContract::TWrapperObj.new(self, 
+  					'wrapper'=>self,
+  					'property_name'=> _name,
+  					'property_family'=>_family,
+  					'property_old_value'=>old_value,
+  					'property_new_value'=>_value
+  				)
+  		)
+  end
+  
+#  def updatep(_family, prop, value, _call_from_inspector=false)
+#    @props[_family][prop]['set'].call(value)
+#  end
+
+end
+