diff -rNc gobo_orig/library/xml/impl/tree_on_event/tree/xt_element.e gobo_visitor/library/xml/impl/tree_on_event/tree/xt_element.e
*** gobo_orig/library/xml/impl/tree_on_event/tree/xt_element.e	Wed Aug  8 19:19:59 2001
--- gobo_visitor/library/xml/impl/tree_on_event/tree/xt_element.e	Tue Aug 21 09:32:15 2001
***************
*** 36,44 ****
        require
  	 a_name_not_void: a_name /= Void
        do
- 	 internal_cursor := new_cursor	 
  	 name := a_name
  	 ns_prefix := a_ns_prefix
        ensure
  	 name_set: equal (name, a_name)
        end
--- 36,44 ----
        require
  	 a_name_not_void: a_name /= Void
        do
  	 name := a_name
  	 ns_prefix := a_ns_prefix
+ 	 internal_cursor := new_cursor	 
        ensure
  	 name_set: equal (name, a_name)
        end
diff -rNc gobo_orig/library/xml/general/visitor.e gobo_visitor/library/xml/general/visitor.e
*** gobo_orig/library/xml/general/visitor.e	Thu Jan  1 01:00:00 1970
--- gobo_visitor/library/xml/general/visitor.e	Mon Aug 20 02:16:38 2001
***************
*** 0 ****
--- 1,12 ----
+ indexing
+ 
+    Author: "Cyril ADRIAN"
+    Creation_date: "Mon Aug 20 02:16:22 2001"
+    Change_date: "Mon Aug 20 02:16:38 2001"
+    Cluster: ""
+    Description: ""
+    Stereotype: ""
+ 
+ deferred class VISITOR
+ 
+ end -- VISITOR
diff -rNc gobo_orig/library/xml/tree/xm_character_data.e gobo_visitor/library/xml/tree/xm_character_data.e
*** gobo_orig/library/xml/tree/xm_character_data.e	Wed Aug  8 19:07:47 2001
--- gobo_visitor/library/xml/tree/xm_character_data.e	Mon Aug 20 02:21:45 2001
***************
*** 13,18 ****
--- 13,25 ----
  creation
     make_from_imp
  
+ feature {ANY}
+    
+    accept(a_visitor: XM_NODE_VISITOR) is
+       do
+          a_visitor.visit_character_data(Current)
+       end
+ 
  feature {ANY} -- Access
  
     content: UC_STRING is
diff -rNc gobo_orig/library/xml/tree/xm_comment.e gobo_visitor/library/xml/tree/xm_comment.e
*** gobo_orig/library/xml/tree/xm_comment.e	Wed Aug  8 19:07:47 2001
--- gobo_visitor/library/xml/tree/xm_comment.e	Mon Aug 20 02:21:19 2001
***************
*** 13,18 ****
--- 13,25 ----
  creation
     make_from_imp
  
+ feature {ANY}
+    
+    accept(a_visitor: XM_NODE_VISITOR) is
+       do
+          a_visitor.visit_comment(Current)
+       end
+ 
  feature {ANY} -- Access
  
     data: UC_STRING is
diff -rNc gobo_orig/library/xml/tree/xm_document.e gobo_visitor/library/xml/tree/xm_document.e
*** gobo_orig/library/xml/tree/xm_document.e	Wed Aug  8 19:07:47 2001
--- gobo_visitor/library/xml/tree/xm_document.e	Mon Aug 20 02:26:34 2001
***************
*** 12,17 ****
--- 12,24 ----
        end	
  creation
     make_from_imp
+ 
+ feature {ANY}
+    
+    accept(a_visitor: XM_NODE_VISITOR) is
+       do
+          a_visitor.visit_document(Current)
+       end
     
  feature {NONE} -- Initialisation
     make_default is
diff -rNc gobo_orig/library/xml/tree/xm_element.e gobo_visitor/library/xml/tree/xm_element.e
*** gobo_orig/library/xml/tree/xm_element.e	Wed Aug  8 19:07:47 2001
--- gobo_visitor/library/xml/tree/xm_element.e	Mon Aug 20 02:26:45 2001
***************
*** 28,33 ****
--- 28,40 ----
  creation
     make_from_imp
  
+ feature {ANY}
+    
+    accept(a_visitor: XM_NODE_VISITOR) is
+       do
+          a_visitor.visit_element(Current)
+       end
+ 
  feature {NONE} -- Initialisation
     make_from_imp (imp: like implementation) is
        do
diff -rNc gobo_orig/library/xml/tree/xm_node.e gobo_visitor/library/xml/tree/xm_node.e
*** gobo_orig/library/xml/tree/xm_node.e	Wed Aug  8 19:07:47 2001
--- gobo_visitor/library/xml/tree/xm_node.e	Mon Aug 20 02:21:11 2001
***************
*** 11,16 ****
--- 11,25 ----
  	 implementation
        end
  
+ feature {ANY}
+    
+    accept(a_visitor: XM_NODE_VISITOR) is 
+          -- accepts thge visitor
+       require
+          visitor_not_void: a_visitor /= Void
+       deferred 
+       end
+ 
  feature {ANY} -- Access
  
     parent: XM_COMPOSITE is
diff -rNc gobo_orig/library/xml/tree/xm_node_visitor.e gobo_visitor/library/xml/tree/xm_node_visitor.e
*** gobo_orig/library/xml/tree/xm_node_visitor.e	Thu Jan  1 01:00:00 1970
--- gobo_visitor/library/xml/tree/xm_node_visitor.e	Mon Aug 20 02:26:05 2001
***************
*** 0 ****
--- 1,30 ----
+ indexing
+ 
+    Author: "Cyril ADRIAN"
+    Creation_date: "Mon Aug 20 02:16:52 2001"
+    Change_date: "Mon Aug 20 02:26:05 2001"
+    Cluster: ""
+    Description: ""
+    Stereotype: ""
+ 
+ deferred class XM_NODE_VISITOR
+    
+    -- visits all the known subtypes of XM_NODE. Those subtypes are:
+    -- XM_COMMENT, XM_COMPOSITE, XM_CHARACTER_DATA, XM_PROCESSING_INSTRUCTION
+    
+    -- XM_COMPOSITE is itself subdivided in XM_DOCUMENT and XM_ELEMENT
+    
+ inherit 
+    VISITOR
+    
+ feature {ANY}
+    
+    visit_comment(a_comment: XM_COMMENT) is deferred end
+    visit_document(a_document: XM_DOCUMENT) is deferred end
+    visit_element(a_element: XM_ELEMENT) is deferred end
+    visit_character_data(a_character_data: XM_CHARACTER_DATA) is deferred end
+    visit_processing_instruction(a_processing_instruction: XM_PROCESSING_INSTRUCTION) is deferred end
+    
+ invariant
+ 
+ end -- XM_NODE_VISITOR
diff -rNc gobo_orig/library/xml/tree/xm_processing_instruction.e gobo_visitor/library/xml/tree/xm_processing_instruction.e
*** gobo_orig/library/xml/tree/xm_processing_instruction.e	Wed Aug  8 19:07:47 2001
--- gobo_visitor/library/xml/tree/xm_processing_instruction.e	Mon Aug 20 02:21:55 2001
***************
*** 13,18 ****
--- 13,25 ----
  creation
     make_from_imp
  
+ feature {ANY}
+    
+    accept(a_visitor: XM_NODE_VISITOR) is
+       do
+          a_visitor.visit_processing_instruction(Current)
+       end
+ 
  feature {ANY} -- Access
  
     target: UC_STRING is