arcadia 0.1.3 → 0.2.0

data/ext/ae-editor/langs/conf.lang

@@ -0,0 +1,15 @@
+classes=key,value,operator,comment
+re.key=(.*)\=
+re.value=\=(.*)
+re.operator=\=
+re.comment=#
+re_op.to_line_end=comment
+re_op.only_first=operator
+
+hightlight.comment.color.foreground=#007F00
+hightlight.key.color.foreground=#9c342c
+hightlight.key.style=bold
+hightlight.value.color.foreground=#69a0b6
+hightlight.value.style=bold
+hightlight.operator.color.foreground=red
+hightlight.operator.style=bold

data/ext/ae-editor/langs/lang.lang.bind

@@ -0,0 +1 @@
+bind=conf.lang

data/ext/ae-editor/langs/rb.lang

@@ -0,0 +1,67 @@
+classes=number,method_name,class_name,module_name,keyword,instance_variable,global_variable,symbol,operator,string,comment
+re.keyword=\b(and|or|unless|end|in|begin|defined?|ensure|redo|super|until|BEGIN|break|do|false|next|rescue|then|when|END|case|else|for|nil|retry|true|while|alias|elsif|if|not|return|undef|yield|require|include)([\(\s\n])|\b(self)([.,+\(\s])|__LINE__|__FILE__|[\s]*def[\s]|[\s]*module[\s]|[\s]*class[\s]
+re.method_name=(def[\s][\s]*)[A-Za-z0-9_]*
+re.instance_variable=([\s]*@)[A-Za-z0-9_]*
+re.global_variable=([\s]*\$)[A-Za-z0-9_]*
+re.class_name=(class[\s][\s]*)[A-Za-z0-9_]*
+re.module_name=(module[\s][\s]*)[A-Za-z0-9_]*
+re.string='(.*)'|"(.*)"
+re.number=\d
+re.operator=[\(\)\[\]\(\)\{\}.:;,\=><\|]
+#re.symbol=(\s|,)(:)[A-Za-z0-9_]*
+re.symbol=[^:](:)[A-Za-z0-9_]*
+re.comment=#
+re_op.to_line_end=comment
+
+# override global
+hightlight.sel.color.foreground=black
+hightlight.sel.color.background=#68f914
+hightlight.sel.borderwidth=1
+hightlight.sel.relief=raised
+hightlight.selected.color.background=yellow
+hightlight.tabs.color.foreground=black
+hightlight.tabs.color.background=#b1cfba
+hightlight.tabs.borderwidth=1
+hightlight.tabs.relief=raised
+hightlight.spaces.color.foreground=black
+hightlight.spaces.color.background=#d9f42b
+hightlight.spaces.borderwidth=1
+hightlight.spaces.relief=raised
+#+--------------------------------------------------
+
+
+
+hightlight.keyword.color.foreground=#00007F
+hightlight.keyword.style=bold
+hightlight.method_name.color.foreground=#007F7F
+hightlight.method_name.style=bold
+hightlight.class_name.color.foreground=#0000FF
+hightlight.class_name.style=bold
+hightlight.module_name.color.foreground=#0000FF
+hightlight.module_name.style=bold
+hightlight.instance_variable.color.foreground=#7F7F7F
+hightlight.global_variable.style=bold
+hightlight.global_variable.color.foreground=#db66ca
+hightlight.instance_variable.style=bold
+hightlight.comment.color.foreground=#007F00
+hightlight.string.color.foreground=#7F007F
+hightlight.number.color.foreground=#007F7F
+#hightlight.capitalize.color.foreground=#0000FF
+hightlight.operator.color.foreground=#000000
+hightlight.operator.style=bold
+hightlight.symbol.color.foreground=#bdc175
+hightlight.symbol.style=bold
+hightlight.sel.color.foreground=black
+hightlight.sel.color.background=#68f914
+hightlight.sel.borderwidth=1
+hightlight.sel.relief=raised
+#hightlight.goto.color.foreground=blue
+hightlight.selected.color.background=yellow
+hightlight.tabs.color.foreground=black
+hightlight.tabs.color.background=#b1cfba
+hightlight.tabs.borderwidth=1
+hightlight.tabs.relief=raised
+hightlight.spaces.color.foreground=black
+hightlight.spaces.color.background=#d9f42b
+hightlight.spaces.borderwidth=1
+hightlight.spaces.relief=raised

data/ext/ae-editor/langs/rbw.lang.bind

@@ -0,0 +1 @@
+bind=rb.lang

data/ext/ae-event-log/ae-event-log.rb

@@ -1,52 +1,45 @@
-#
-#   ae-event-log.rb - Arcadia Ruby ide
-#   by Antonio Galeone <antonio-galeone@rubyforge.org>
-#
-
-
-class EventLog < ArcadiaExt
-
-  def before_build
-    ArcadiaContractListener.new(self, ArcadiaContract, :do_event)
-  end
-
-  def build
-    #@ae_msg_contract = @arcadia.retrieve_contract(self, MsgContract, nil, 'CH1')
-  end
-
-  def after_build
-  end
-
-  def do_event(_event)
-    if _event.context.sender!=self
-      message = event_message(_event)
-      MsgContract.instance.out_simple(self, message,'CH1')  
-    end
-  end
-
-
-	def event_message(_event, _ind="") 
-      message = _ind
-      if _event.is_action?
-        message = message + 'ACTION::'
-      end
-      message = message +_event.signature+" :\n"
-      if _event.context
-        _event.context.instance_variables.sort.each do |key| 
-          _obj_value = _event.context.send(key.gsub('@',''))
-          _value = _obj_value
-          if _value == nil
-            _value = 'nil'
-          else !_value.instance_of?(String) 
-            _value = _value.to_s
-          end
-          message = message + _ind + "\s"*2 + key+' = '+_value+"\n"
-          if _obj_value != nil && _obj_value.kind_of?(ArcadiaContract::ContractEvent)
-            message = message + event_message(_obj_value, _ind+"\s"*4)
-          end
-        end
-      end
-      return message
-	end
-
-end
+#
+#   ae-event-log.rb - Arcadia Ruby ide
+#   by Antonio Galeone <antonio-galeone@rubyforge.org>
+#
+
+
+class EventLog < ArcadiaExt
+
+  def on_before_build(_event)
+    ArcadiaContractListener.new(self, ArcadiaContract, :do_event)
+  end
+
+  def do_event(_event)
+    if _event.context.sender!=self
+      message = event_message(_event)
+      Arcadia.new_msg(self, message, 'CH1')
+    end
+  end
+
+
+	def event_message(_event, _ind="") 
+      message = _ind
+      if _event.is_action?
+        message = message + 'ACTION::'
+      end
+      message = message +_event.signature+" :\n"
+      if _event.context
+        _event.context.instance_variables.sort.each do |key| 
+          _obj_value = _event.context.send(key.gsub('@',''))
+          _value = _obj_value
+          if _value == nil
+            _value = 'nil'
+          else !_value.instance_of?(String) 
+            _value = _value.to_s
+          end
+          message = message + _ind + "\s"*2 + key+' = '+_value+"\n"
+          if _obj_value != nil && _obj_value.kind_of?(ArcadiaContract::ContractEvent)
+            message = message + event_message(_obj_value, _ind+"\s"*4)
+          end
+        end
+      end
+      return message
+	end
+
+end

data/ext/ae-file-history/ae-file-history.conf

@@ -1,14 +1,14 @@
 name=file_history
-label=File history
-frame=1.0
+labels=File history
+frames=0.0
 active=yes
 require=ext/ae-file-history/ae-file-history
 class=FileH
 
 file.name=arcadia.history
 length=34
-font=courier 12
-font.bold=courier 12 bold
+font=courier 11
+font.bold=courier 11 bold
 color.background=#ffffff
 color.foreground=#000000
 freebsd::font=courier 12 italic

data/ext/ae-file-history/ae-file-history.rb

@@ -1,286 +1,298 @@
-#
-#   ae-file-history.rb - Arcadia Ruby ide
-#   by Antonio Galeone <antonio-galeone@rubyforge.org>
-#
-require "base/a-ext"
-
-
-class TreeNode
-  attr_reader :sons
-  attr_reader :parent
-  attr_reader :kind
-  attr_reader :rif, :label, :helptext
-  attr_writer :rif, :label, :helptext
-  def initialize(parent=nil, kind='KClass')
-    @sons = Array.new
-    @parent = parent
-    @kind = kind
-    @label = ''
-    if @parent !=nil
-      @parent.sons << self
-    end
-    yield(self) if block_given?
-  end
-
-  def <=> (other)
-    self.label.strip <=> other.label.strip
-  end
-	
-	def path
-	  _path = @label
-	  if @parent != nil
-	    _path = @parent.path+_path
-	  end
-	  return _path
-	end
-
-	def dir(_path)
-	  node = nil
-	  sons.each{|_tree|
-	     if _path[0.._tree.label.length-1] == _tree.label 
-				 res = _path[_tree.label.length.._path.length-1]
-				 if ["\\","/"].include?(res[0,1])
-				   node= _tree.dir(res)
-				 end
-			 end
-			 break if node != nil
-	  }
-	  if node == nil
-	    node = TreeNode.new(self,'KDir') do |_node|
-      		_node.label=_path
-      		_node.rif= self.path+_path
-	    end
-	  end
-	  return node
-	end
-end
-
-
-
-class FileH < ArcadiaExt
-  attr_reader :htree
-
-	def before_build
-	end
-
-  def build
-    @h_stack = Array.new
-    do_select_item = proc{|_self|
-      if _self.selection_get[0].length >0
-      	_selected = ""
-      	_self.selection_get[0].each{|_block|
-       	 _selected = _selected + _block.to_s + "\s" 
-      	}
-      	_selected = _selected.strip
-      else
-        _selected = _self.selection_get[0]
-      end
-      _dir, _file = _selected.split('@@@')
-      if _file
-        _file = File.expand_path( _file  , _dir ) 
-	    else
-	      _file = Tk.getOpenFile('initialdir'=>_dir)
-	    end
-	    if _file
-        EditorContract.instance.open_file(self,'file'=>_file)
-      end
-    }
-    _background = conf('color.background')
-    _foreground = conf('color.foreground')
-    @font =  conf('font')
-    @font_b = conf('font.bold')
-
-	  @htree = Tk::BWidget::Tree.new(self.frame){
-      relief 'flat'
-      showlines false
-      deltay 18
-      background _background
-      crossfill _foreground
-      #dragenabled true
-      selectcommand proc{ do_select_item.call(self) } 
-      place('relwidth' => 1,'relx' => 0,'x' => '0','y' => '0','relheight' => '1')
-    }
-    _scrollcommand = proc{|*args| @htree.yview(*args)}
-    _scrollbar = TkScrollbar.new(self.frame){|s|
-      width 8
-      command _scrollcommand
-    }.pack('side'=>'right', 'fill'=>'y')
-    @htree.yscrollcommand proc{|first,last| _scrollbar.set(first,last)}
-    
-	  self.build_tree
-	end
-	
-	def after_build
-    ArcadiaContractListener.new(self, EditorContract, :do_editor_event)
-	end
-	
-	def history_file
-    if !defined?(@arcadia_history_file)
-    		@arcadia_history_file = @arcadia.local_dir+'/'+conf('file.name')
-    end
-    return @arcadia_history_file
-	end
-		
-	def do_editor_event(_event)
-     case _event.signature 
-     		when EditorContract::FILE_AFTER_OPEN
-     		  if _event.context.file
-    		    self.add2history(_event.context.file)
-    		    add_to_tree(_event.context.file)
-     			  end
-     		when EditorContract::FILE_AFTER_CLOSE
-     		  if _event.context.file 
-     		end
-     end
-	end
-
-  def root
-    if !defined?(@root)
-      @root = TreeNode.new(nil, 'KRoot'){|_node|
-        _node.rif= 'root'
-        _node.label=''
-      }
-    end
-    return @root
-  end
-  
-  def build_tree
-		file_dir = Hash.new
-		nodes = Array.new
-    if File.exist?(history_file)
-      f = File::open(history_file,'r')
-      f_open = $arcadia['pers']['editor.files.open'].split("|") if $arcadia['pers']['editor.files.open']
-      begin
-        _lines = f.readlines.collect!{| line | line.chomp+"\n" }.to_s
-        _lines.sort.each{|_line|
-          _file = _line.split(';')[0]
-          if FileTest::exist?(_file)
-						dir,fil =File.split(File.expand_path(_file))
-						file_dir[dir] = Array.new if file_dir[dir] == nil
-						file_dir[dir] << fil if !file_dir[dir].include?(fil)
-          end
-        }
-      ensure
-        f.close unless f.nil?
-      end
-    end
-
-    file_dir.keys.sort.each{|_dir|
-    				node = root.dir(_dir)
-				file_dir[_dir].each{|file|
-				  TreeNode.new(node, 'KFile'){|_node|
-            _node.rif= _dir+'@@@'+file
-            _node.label=file
-				  }
-				}
-    }
-
-	@image_kdir = TkPhotoImage.new('dat' => BOOK_GIF)
-	@image_kfile_rb = TkPhotoImage.new('dat' => RUBY_DOCUMENT_GIF)
-	@image_kfile = TkPhotoImage.new('dat' => DOCUMENT_GIF)
-
-		build_tree_from_node(root)
-  end
-
-  def add_to_tree(_file)
-		_d, _f = File.split(File.expand_path(_file))
-    _foreground = conf('color.foreground')
-		node = root.dir(_d)
-    if !@htree.exist?(node.rif)
-      @htree.insert('end', 'root' ,node.rif, {
-          'text' =>  _d ,
-          'helptext' => _d,
-          'deltax'=>-1,
-          'fill' => _foreground,
-          'font'=>@font,
-          'image'=> image('KDir')
-        }
-      )
-    end
-    _file_node_rif = _d+'@@@'+_f
-    if !@htree.exist?(_file_node_rif)
-      @htree.insert('end', node.rif ,_file_node_rif, {
-          'text' =>  _f ,
-          'helptext' => _f,
-          'deltax'=>-1,
-          'fill' => _foreground,
-          'font'=>@font_b,
-          'image'=> image('KFile',_f)
-        }
-      )
-    end
-    
-  end
- 
-  def image(_kind, _label='.rb')
-      if _kind == 'KDir'
-        return @image_kdir
-      elsif _kind == 'KFile' && _label.include?('.rb')
-        return @image_kfile_rb
-      else
-        return @image_kfile
-      end
-  end
-
-  def build_tree_from_node(_node)
-    _foreground = conf('color.foreground')
-    _sorted_sons = _node.sons.sort
-    for inode in 0.._sorted_sons.length - 1
-      _son = _sorted_sons[inode]
-      @htree.insert('end', _son.parent.rif ,_son.rif, {
-        'text' =>  _son.label ,
-        'fill' => _foreground,
-        'helptext' => _son.helptext,
-        'deltax'=>-1,
-        'font'=>@font,
-        'image'=> image(_son.kind, _son.label)
-      }
-      )
-      build_tree_from_node(_son)
-    end
-  end
-
-
-  def add2history(_filename, _text_index='1.0')
-    if _filename
-      _filename = _filename.downcase.sub(Dir::pwd.downcase+'/',"")
-      _filename = File.expand_path(_filename)
-      _filename_index = _filename+";"+_text_index
-
-      if File.exist?(history_file)
-        f = File::open(history_file,'r')
-        begin
-          _lines = f.readlines.collect!{| line | line.chomp}
-        ensure
-          f.close unless f.nil?
-        end
-        f = File.new(history_file, "w")
-        begin
-          if f
-            _l= conf('length').to_i
-            f.syswrite(_filename_index+"\n")
-            _lines[0.._l-1].each{|_line|
-              _lfile = _line.split(';')
-              if _lfile
-                f.syswrite(_line+"\n") if (_lfile[0] != _filename)&&(_line.length > 0)
-              end
-            }
-          end
-        ensure
-          f.close unless f.nil?
-        end
-      else
-     			dir,fil =File.split(File.expand_path(history_file))
-     			if !File.exist?(dir)
-     			  Dir.mkdir(dir)
-     			end
-        f = File.new(history_file, "w+")
-        begin
-          f.syswrite(_filename+"\n") if f
-        ensure
-          f.close unless f.nil?
-        end
-      end
-    end
-  end
-end
+#
+#   ae-file-history.rb - Arcadia Ruby ide
+#   by Antonio Galeone <antonio-galeone@rubyforge.org>
+#
+
+
+class TreeNode
+  attr_reader :sons
+  attr_reader :parent
+  attr_reader :kind
+  attr_reader :rif, :label, :helptext
+  attr_writer :rif, :label, :helptext
+  def initialize(parent=nil, kind='KClass')
+    @sons = Array.new
+    @parent = parent
+    @kind = kind
+    @label = ''
+    if @parent !=nil
+      @parent.sons << self
+    end
+    yield(self) if block_given?
+  end
+
+  def <=> (other)
+    self.label.strip <=> other.label.strip
+  end
+	
+	def path
+	  _path = @label
+	  if @parent != nil
+	    _path = @parent.path+_path
+	  end
+	  return _path
+	end
+
+	def dir(_path)
+	  node = nil
+	  parent = self
+	  sons.each{|_tree|
+	     if _path[0.._tree.label.length-1] == _tree.label 
+				 res = _path[_tree.label.length.._path.length-1]
+				 if ["\\","/"].include?(res[0,1])
+              parent = _tree
+              node= _tree.dir(res)
+				 end
+			 end
+			 break if node != nil
+	  }
+	  if node == nil
+	    node = TreeNode.new(parent,'KDir') do |_node|
+      		_node.label=_path
+      		_node.rif= parent.path+_path
+	    end
+	  end
+	  return node
+	end
+end
+
+
+
+class FileH < ArcadiaExt
+  include Autils
+  attr_reader :htree
+
+  def on_build(_event)
+    @h_stack = Array.new
+    do_select_item = proc{|_self|
+      if _self.selection_get[0].length >0
+      	_selected = ""
+      	_self.selection_get[0].each{|_block|
+       	 _selected = _selected + _block.to_s + "\s" 
+      	}
+      	_selected = _selected.strip
+      else
+        _selected = _self.selection_get[0]
+      end
+      _dir, _file = _selected.split('@@@')
+      if _file
+        _file = File.expand_path( _file  , _dir ) 
+	   else
+	      _file = Tk.getOpenFile('initialdir'=>_dir)
+	   end
+	   if _file
+	     Arcadia.process_event(OpenBufferEvent.new(self,'file'=>_file))
+        #EditorContract.instance.open_file(self,'file'=>_file)
+      end
+    }
+    _background = conf('color.background')
+    _foreground = conf('color.foreground')
+    @font =  conf('font')
+    @font_b = conf('font.bold')
+
+	  @htree = Tk::BWidget::Tree.new(self.frame){
+      relief 'flat'
+      showlines false
+      deltay 18
+      background _background
+      crossfill _foreground
+      #dragenabled true
+      selectcommand proc{ do_select_item.call(self) } 
+      place('relwidth' => 1,'relx' => 0,'x' => '0','y' => '0','relheight' => '1')
+    }
+    _scrollcommand = proc{|*args| @htree.yview(*args)}
+    _scrollbar = TkScrollbar.new(self.frame){|s|
+      width 8
+      command _scrollcommand
+    }.pack('side'=>'right', 'fill'=>'y')
+    @htree.yscrollcommand proc{|first,last| _scrollbar.set(first,last)}
+    
+	  self.build_tree
+	end
+	
+	def on_after_build(_event)
+    #ArcadiaContractListener.new(self, EditorContract, :do_editor_event)
+    Arcadia.add_listener(self, OpenBufferEvent)
+	end
+	
+	def history_file
+    if !defined?(@arcadia_history_file)
+    		@arcadia_history_file = @arcadia.local_dir+'/'+conf('file.name')
+    end
+    return @arcadia_history_file
+	end
+		
+  def on_after_open_buffer(_event)
+    if _event.file
+      self.add2history(_event.file)
+      add_to_tree(_event.file)
+    end
+  end
+		
+#	def do_editor_event(_event)
+#     case _event.signature 
+#     		when EditorContract::FILE_AFTER_OPEN
+#     		  if _event.context.file
+#    		      self.add2history(_event.context.file)
+#    		      add_to_tree(_event.context.file)
+#     			  end
+#     		when EditorContract::FILE_AFTER_CLOSE
+#     		  if _event.context.file 
+#     		end
+#     end
+#	end
+
+  def root
+    if !defined?(@root)
+      @root = TreeNode.new(nil, 'KRoot'){|_node|
+        _node.rif= 'root'
+        _node.label=''
+      }
+    end
+    return @root
+  end
+  
+  def build_tree
+    file_dir = Hash.new
+    nodes = Array.new
+    if File.exist?(history_file)
+      f = File::open(history_file,'r')
+      f_open = $arcadia['pers']['editor.files.open'].split("|") if $arcadia['pers']['editor.files.open']
+      begin
+        _lines = f.readlines.collect!{| line | line.chomp+"\n" }.to_s
+        _lines.sort.each{|_line|
+          _file = _line.split(';')[0]
+          if FileTest::exist?(_file)
+						dir,fil =File.split(File.expand_path(_file))
+						dir = dir.downcase if is_windows?
+						fil = fil.downcase if is_windows?
+						file_dir[dir] = Array.new if file_dir[dir] == nil
+						file_dir[dir] << fil if !file_dir[dir].include?(fil)
+          end
+        }
+      ensure
+        f.close unless f.nil?
+      end
+    end
+
+    file_dir.keys.sort.each{|_dir|
+    				node = root.dir(_dir)
+				file_dir[_dir].each{|file|
+				  TreeNode.new(node, 'KFile'){|_node|
+              _node.rif= _dir+'@@@'+file
+              _node.label=file
+				  }
+				}
+    }
+
+    @image_kdir = TkPhotoImage.new('dat' => BOOK_GIF)
+    @image_kfile_rb = TkPhotoImage.new('dat' => RUBY_DOCUMENT_GIF)
+    @image_kfile = TkPhotoImage.new('dat' => DOCUMENT_GIF)
+
+		build_tree_from_node(root)
+  end
+
+  def add_to_tree(_file)
+	 _d, _f = File.split(File.expand_path(_file))
+	 _d = _d.downcase if is_windows?
+	 _f = _f.downcase if is_windows?
+    _foreground = conf('color.foreground')
+	 node = root.dir(_d)
+    if !@htree.exist?(node.rif)
+      @htree.insert('end', node.parent.rif ,node.rif, {
+          'text' =>  node.rif ,
+          'helptext' => node.rif,
+          'deltax'=>-1,
+          'fill' => _foreground,
+          'font'=>@font,
+          'image'=> image('KDir')
+        }
+      )
+    end
+    _file_node_rif = _d+'@@@'+_f
+    if !@htree.exist?(_file_node_rif)
+      @htree.insert('end', node.rif ,_file_node_rif, {
+          'text' =>  _f ,
+          'helptext' => _f,
+          'deltax'=>-1,
+          'fill' => _foreground,
+          'font'=>@font_b,
+          'image'=> image('KFile',_f)
+        }
+      )
+    end
+    
+  end
+ 
+  def image(_kind, _label='.rb')
+      if _kind == 'KDir'
+        return @image_kdir
+      elsif _kind == 'KFile' && _label.include?('.rb')
+        return @image_kfile_rb
+      else
+        return @image_kfile
+      end
+  end
+
+  def build_tree_from_node(_node)
+    _foreground = conf('color.foreground')
+    _sorted_sons = _node.sons.sort
+    for inode in 0.._sorted_sons.length - 1
+      _son = _sorted_sons[inode]
+      @htree.insert('end', _son.parent.rif ,_son.rif, {
+        'text' =>  _son.label ,
+        'fill' => _foreground,
+        'helptext' => _son.helptext,
+        'deltax'=>-1,
+        'font'=>@font,
+        'image'=> image(_son.kind, _son.label)
+      }
+      )
+      build_tree_from_node(_son)
+    end
+  end
+
+
+  def add2history(_filename, _text_index='1.0')
+    if _filename
+      _filename = _filename.sub(Dir::pwd+'/',"")
+      _filename = File.expand_path(_filename)
+      _filename_index = _filename+";"+_text_index
+
+      if File.exist?(history_file)
+        f = File::open(history_file,'r')
+        begin
+          _lines = f.readlines.collect!{| line | line.chomp}
+        ensure
+          f.close unless f.nil?
+        end
+        f = File.new(history_file, "w")
+        begin
+          if f
+            _l= conf('length').to_i
+            f.syswrite(_filename_index+"\n")
+            _lines[0.._l-2].each{|_line|
+              _lfile = _line.split(';')
+              if _lfile
+                f.syswrite(_line+"\n") if (_lfile[0] != _filename)&&(_line.length > 0)
+              end
+            }
+          end
+        ensure
+          f.close unless f.nil?
+        end
+      else
+     			dir,fil =File.split(File.expand_path(history_file))
+     			if !File.exist?(dir)
+     			  Dir.mkdir(dir)
+     			end
+        f = File.new(history_file, "w+")
+        begin
+          f.syswrite(_filename+"\n") if f
+        ensure
+          f.close unless f.nil?
+        end
+      end
+    end
+  end
+end