[gobo-eiffel-commits] CVS: gobo/library/tools/eiffel/ast/lace et_universe.e,1.34,1.35

[Eric B. <er...@us...>]

Update of /cvsroot/gobo-eiffel/gobo/library/tools/eiffel/ast/lace
In directory sc8-pr-cvs1:/tmp/cvs-serv14410/library/tools/eiffel/ast/lace

Modified Files:
	et_universe.e 
Log Message:
Added features `cluster_count' and `add_implicit_subclusters'.


Index: et_universe.e
===================================================================
RCS file: /cvsroot/gobo-eiffel/gobo/library/tools/eiffel/ast/lace/et_universe.e,v
retrieving revision 1.34
retrieving revision 1.35
diff -C2 -r1.34 -r1.35
*** et_universe.e	28 Oct 2003 20:00:26 -0000	1.34
--- et_universe.e	27 Nov 2003 14:58:56 -0000	1.35
***************
*** 316,320 ****
  			end
  		ensure
! 			parsed_classes_count_positive: Result >= 0
  		end
  
--- 316,330 ----
  			end
  		ensure
! 			parsed_classes_count_non_negative: Result >= 0
! 		end
! 
! 	cluster_count: INTEGER is
! 			-- Number (recursively) of non-abstract clusters
! 		do
! 			if clusters /= Void then
! 				Result := clusters.count
! 			end
! 		ensure
! 			cluster_count_non_negavite: Result >= 0
  		end
  
***************
*** 417,420 ****
--- 427,442 ----
  		end
  
+ feature -- Element change
+ 
+ 	add_implicit_subclusters is
+ 			-- Add (recursively) implicit subclusters when clusters are recursive.
+ 			-- Note that these subclusters will otherwise be added when running one of
+ 			-- the `preparse_*' or `parse_all' routines.
+ 		do
+ 			if clusters /= Void then
+ 				clusters.add_implicit_subclusters (Current)
+ 			end
+ 		end
+ 
  feature -- Parsing
  
***************
*** 588,592 ****
  			end
  			preparse_single
- 			-- preparse_shallow
  			debug ("ericb")
  				dt2 := clock.system_clock.date_time_now
--- 610,613 ----