arcadia 0.1.3 → 0.2.0

data/base/a-contracts-work.rb

@@ -1,219 +0,0 @@
-#the caller must call the action then the contract must exec 
-#the time sequence before, do, after
-#
-#es.
-#
-#def event(_event)
-#  do_before_event(_event)
-#  do_event(_event)
-#  do_after_event(_event)
-#end
-
-# event composition
-#
-#  [_<TIME>]_<VERBO>_<TARGET>_
-#
-#  es.  _BEFORE_OPEN_FILE_
-#              _OPEN_FILE_
-#        _AFTER_OPEN_FILE_
-#     
-#
-#
-#  class Contract
-#    def raise_event(_event_signature, _tobj, *args)
-#       _event = _raise_event(_event_forge(_BEFORE+_event_signature, _tobj),*args)
-#       if _event.continue_query
-#          _event = _raise_event(_event_forge(_event_signature, _tobj),*args)
-#       if _event...
-#       _raise_event(_event_forge(_AFTER+_event_signature, _tobj),*args)
-#    end
-#
-#  end
-#  
-#    sequence
-#      _BEFORE='BEFORE'
-#      _AFTER='AFTER'
-#    
-#    verbos
-#      _OPEN='OPEN'
-#      _CLOSE='CLOSE'
-#      _SAVE='SAVE'
-#      _SAVEAS='SAVEAS'
-#      _SHOW='SHOW'
-#      _BUILD='BUILD'
-#      _SET='SET'
-#      _UNSET='UNSET'
-#      _GET='GET'
-#      _COMPLETE='COMPLETE'
-#      _DOCUMENT='DOCUMENT'
-#      _START='START'
-#      _STOP='STOP'
-#      _CREATE='CREATE'
-#      _DESTROY='DESTROY'
-#
-#    target
-#      _FILE_='FILE'
-#        verbos=[OPEN,CLOSE,SAVE,SAVEAS]
-#        detail=[filename,line]
-#      _EXTENSION_='EXTENSION'
-#      _BREAKPOINT_='BREAKPOINT'
-#      _DIALOG_='DIALOG'
-#      _BUFFER_='BUFFER'
-#      _CODE_='CODE'
-#      _DEBUGGER_='DEBUGGER'
-#
-#    
-#    event
-#      _OPEN_FILE_ = _OPEN<<_FILE_
-#      CLOSE+FILE
-#  
-#    transfert_detail
-#      _FILE_
-#        filename
-#        line
-#      _EXTENSION_
-#        name
-#      _BREAKPOINT_
-#        filename
-#        line
-#      _DIALOG_
-#        type=[search,generic]
-#      _BUFFER_
-#        title
-#      _CODE_
-#        filename
-#        row
-#        column
-#
-#    
-#    EXTENSION
-#      name
-#
-#    FileContract
-#    
-#    ExtensionContract
-#
-#
-#    #####     raise_event(_OPEN_FILE_, file=>_file)
-#    ##### or  raise_event(_OPEN, _FILE_, file=>_file)
-#    ##### or  open_file(file=>_file)
-
-module  Sequence
-  BEFORE='BEFORE'
-  AFTER='AFTER'
-end
-
-module Action
-  OPEN='OPEN'
-  CLOSE='CLOSE'
-  SAVE='SAVE'
-  SAVEAS='SAVEAS'
-  SHOW='SHOW'
-  BUILD='BUILD'
-  SET='SET'
-  UNSET='UNSET'
-  GET='GET'
-  COMPLETE='COMPLETE'
-  DOCUMENT='DOCUMENT'
-  START='START'
-  STOP='STOP'
-  CREATE='CREATE'
-  DESTROY='DESTROY'
-end
-  
-module Target
-  FILE='FILE'
-  EXTENSION='EXTENSION'
-  BREAKPOINT='BREAKPOINT'
-  DIALOG='DIALOG'
-  BUFFER='BUFFER'
-  CODE='CODE'
-  DEBUGGER='DEBUGGER'
-end
-
-    
-#  module Event
-#     include Verbos 
-#     include Target 
-#      _OPEN_FILE_ = _OPEN<<_FILE
-#  end
-  
-class ArcadiaContract
-  include Sequence
-  include Action
-  include Target
-
-  class TObj
-   	attr_reader :sender
-    attr_accessor :caused_by
-   	attr_accessor :channel
-   	DEFAULT_CHANNEL='0'
-   	def initialize(_sender, _args=nil)
-		  @sender=_sender
-		  @channel = DEFAULT_CHANNEL
-		  if _args 
-		  	  _args.each do |key, value|
-		  	    self.send(key+'=', value)
-		  	  end
-		  end
-	  end
-	end
-
-
-  def ArcadiaContract::signature(_verbos,_target)
-    _verbos<<'_'<<_target
-  end
-  def ArcadiaContract::after_signature(_sig)
-    signature(AFTER,_sig)
-  end
-  def ArcadiaContract::before_signature(_sig)
-    signature(BEFORE,_sig)
-  end
-  def ArcadiaContract::add_action(_action, _target)
-    _s = signature(_action,_target)
-    _bs = before_signature(_s)
-    _as = after_signature(_s)
-    class_eval(%Q[
-      #{_s}='#{_s}'
-      #{_bs}='#{_bs}'
-      #{_as}='#{_as}'
-    ])
-  end
-end
-
-class << ArcadiaContract
-  include Sequence
-  include Action
-  include Target
-end
-  
-class FileContract < ArcadiaContract
-  add_action OPEN,FILE
-  add_action CLOSE,FILE
-  add_action SAVE,FILE
-  class TFileObj < TObj
-  		attr_accessor :file, :line, :col, :title, :text, :candidates, :xdoc, :ydoc, :doc_entry,:doc
-  end
-end  
-
-class CodeContract < ArcadiaContract
-  add_action COMPLETE,CODE
-  add_action DOCUMENT,CODE  
-  class TCodeObj < TObj
-#    attr_accessor_output :file, :line, :col, , :xdoc, :ydoc, :doc_entry
-#    attr_accessor_input :candidates,:doc
-  end
-end  
-
-#  def do_file_event(_event)
-#    case _event.signature 
-##     when FileContract::BEFORE_OPEN_FILE
-#      when ArcadiaContract::before_signature(FileContract::OPEN_FILE)
-#      when FileContract::OPEN
-#      when 
-#    end
-#  end
-
-p FileContract::AFTER_OPEN_FILE
-p FileContract::BEFORE_OPEN_FILE
-#p CodeContract::OPEN_FILE

data/base/a-ext.rb

@@ -1,280 +0,0 @@
-#
-#   a-ext.rb - Arcadia Ruby ide
-#   by Antonio Galeone <antonio-galeone@rubyforge.org>
-#
-
-require "observer"
-require 'singleton'
-
-class ArcadiaExt
-  attr_reader :arcadia
-
-  def initialize(_arcadia, _name=nil)
-    @arcadia = _arcadia
-    @name = _name
-    unless self.respond_to? :build
-      raise NoMethodError, "ArcadiaExt needs to respond to `:build'" 
-    end
-    unless self.respond_to? :before_build
-      raise NoMethodError, "ArcadiaExt needs to respond to `:before_build'" 
-    end
-    unless self.respond_to? :after_build
-      raise NoMethodError, "ArcadiaExt needs to respond to `:after_build'" 
-    end
-    if self.respond_to? :arcadia_update
-    		ObserverCallback.new(@arcadia.main_contract, self, :arcadia_update)
-    end
-    ObjectSpace.define_finalizer(self, self.method(:finalize).to_proc)
-  end
-
-  def before_build
-    #must be implemented in child
-  end
-  
-  def build
-    #must be implemented in child
-  end
-
-  def after_build
-    #must be implemented in child
-  end
-
-	def frame
-	  if @frame == nil
-	    @frame = @arcadia.layout.register_panel(@arcadia['conf'][@name+'.frame'],@name, @arcadia['conf'][@name+'.label'])
-	  end
-    return @frame
-	end
-
-	def frame_free
-	  @arcadia.layout.unregister_panel(@arcadia['conf'][@name+'.frame'],@name)
-	  @frame = nil
-	end
-
-	def conf(_property)
-	  @arcadia['conf'][@name+'.'+_property]
-	end
-#  def arcadia_update(_sender, _event)
-    #must be implemented to activate
-#  end
-
-  def can_exit_query
-    return true
-  end
-
-  def finalize
-  		#may be extendeded in child
-  end
-
-  def verbose
-    '??????'
-  end
-
-end
-
-
-class ObserverCallback
-	def initialize(_publisher, _subscriber, _method_update_to_call=:update)
-		@publisher = _publisher
-		@subscriber = _subscriber
-		@method=_method_update_to_call
-		@publisher.add_observer(self)
-	end
-	def update(*args)
-		@subscriber.send(@method,*args)
-	end
-end
-
-class ObserverCallbackContract < ObserverCallback
-	def initialize(_publisher, _subscriber, _method_update_to_call=:update, _channel=nil)
-	  super(_publisher, _subscriber, _method_update_to_call)
-	  @channel = _channel
-	  @channel_conf = @subscriber.conf(@publisher.class.to_s+'.channel') if @subscriber.respond_to?(:conf)
-  end
-
-	def filter(_event)
-	  @channel_conf != nil && @channel_conf != _event.channel
-	end
-  
-	def update(_event, *args)
-	  super(_event, *args) if !filter(_event)
-  end
-end
-
-
-class ObserverCallbackContractThread < ObserverCallbackContract
-	def update(*args)
-		Thread.new do
-		  super(*args)
-		end
-	end
-
-end
-
-
-# The contract define the interface beetwhen extension
-# in particulare define method than raise event to observers client
-# and a way to retreive state from client
-
-class ArcadiaContract
-  include Observable
-  include Singleton
-  class ContractEvent 
-    	attr_reader :contract
-    	attr_reader :signature
-    	attr_reader :context
-    	attr_reader :channel
-    	attr_reader :time
-    	attr_writer :action
-    	
-    	SIGNATURE = "NOT_DEFINED"
-     def initialize(_contract, _signature=SIGNATURE, _context=nil)
-       @contract = _contract
-     		@signature = _signature
-     		@context = _context
-     		_context.channel != nil ?@channel=_context.channel: @channel='0'
-     		@time = Time.new
-     		@action = false
-     end
-     
-    	def handled(_from)
-    	  MainContract.instance.event_handled(_from,'caused_by'=>self)
-    	end
-    	
-    	def is_action? 
-    	  @action
-    	end
-  end
-  
-  class TObj
-   	attr_reader :sender
-    attr_accessor :caused_by
-   	attr_accessor :channel
-   	DEFAULT_CHANNEL='0'
-   	def initialize(_sender, _args=nil)
-		  @sender=_sender
-		  @channel = DEFAULT_CHANNEL
-		  if _args 
-		  	  _args.each do |key, value|
-		  	    self.send(key+'=', value)
-		  	  end
-		  end
-		  
-	  end
-	  
-#	  properties.each do |prop|
-#	    define_method(prop) {
-#        instance_variable_get("@#{prop}")
-#      }
-#      define_method("#{prop}=") do |value|
-#        instance_variable_set("@#{prop}", value)
-#      end
-#		end
-
-#			define_method(prop)
-#				attr_reader prop.to_sym # prop by itself also worked for me
-#				# code snip ? setter method
-#			end
-
-			
-#		def TObj.property(*properties)
-#      properties.each { |property|
-#        class_eval(%Q[
-#          def #{property}
-#            @#{property}
-#          end
-#  
-#          def #{property}=(value)
-#            @#{property} = value
-#          end
-#        ])
-#      }
-#		end	  
-	end
-	
-  class EventInfo
-  	 attr_reader :method
-  	 attr_reader :label
-  	 attr_reader :icon
-    def initialize(_method)
-      @method = @method
-    end
-  end
-
-  SObj = Struct.new("GenericState",
-    :caller
-  )
- 
-  def _event_forge(_event_signature, _tobj) 
-    ContractEvent.new(self, _event_signature, _tobj)
-  end
-  private :_event_forge
-  
-  
-  def raise_event(_event_signature, _tobj, *args)
-     _raise_event(_event_forge(_event_signature, _tobj),*args)
-  end
-
-  def _raise_event(_event, *args)
-     changed
-     notify_observers(_event, *args)
-     if self.class != ArcadiaContract
-       self.class.superclass.instance._raise_event(_event, *args)
-     end
-  end
-  #protected :_raise_event
-  
-  def raise_action(_event_signature, _tobj, *args)
-     _raise_action(_event_forge(_event_signature, _tobj),*args)
-  end
-
-  def _raise_action(_event, *args)
- 	  _event.action = true 
- 		_raise_event(_event, *args)
-  end
-  private :_raise_action
-
-  def ArcadiaContract.publish_action(_method)
-    _info = EventInfo.new(_method)
-    @@actions = Array.new if !defined?(@@actions)
-    @@actions << _info
-  end
-
-end
-
-class ArcadiaContractListener
-	def initialize(_subscriber, _class, _method, _channel=nil)
-	  @subscriber = _subscriber
-	  @class = _class
-	  @method = _method
-	  @channel = _channel
-	  create_callback(_class.instance)
-	end
-	
-	def create_callback(_contract)
-	  ObserverCallbackContract.new(_contract, @subscriber, @method, @channel)
-	end
-	
-end
-
-class ArcadiaContractListenerThread < ArcadiaContractListener
-	
-	def create_callback(_contract)
-	  #Thread.new do super(_contract, _subscriber, _method) end
-	  ObserverCallbackContractThread.new(_contract, @subscriber, @method, @channel)
-	end
-	
-end
-
-
-
-
-#class AeContractListener
-#	def initialize(_arcadia)
-#	  
-#	end
-#	def listen_on(_aeclip_name, _method_update_to_call=:update)
-#	end
-#	def update(_tobj)
-#	end
-#end