[svn] r6751: nemerle/trunk/ncc/hierarchy/TypeBuilder.n

[nazgul]

Log:
Allow fetching additional_decls

Author: nazgul
Date: Sun Oct  8 23:21:52 2006
New Revision: 6751

Modified:
   nemerle/trunk/ncc/hierarchy/TypeBuilder.n

Modified: nemerle/trunk/ncc/hierarchy/TypeBuilder.n
==============================================================================
--- nemerle/trunk/ncc/hierarchy/TypeBuilder.n	(original)
+++ nemerle/trunk/ncc/hierarchy/TypeBuilder.n	Sun Oct  8 23:21:52 2006
@@ -650,14 +650,17 @@
     get_members (0 :> BindingFlags, fun (_ : IMember) { true })
   }
 
-  public GetParsedMembers () : list [PT.ClassMember]
+  public GetParsedMembers (include_manually_defined = false) : list [PT.ClassMember]
   {
     match (pt_tydecl) {
       | PT.TopDeclaration.Class (decls = ds)
       | PT.TopDeclaration.Interface (methods = ds)
       | PT.TopDeclaration.Variant (decls = ds)
-      | PT.TopDeclaration.VariantOption (ds) => ds
-      | _ => []
+      | PT.TopDeclaration.VariantOption (ds) => 
+        if (include_manually_defined) additional_decls.RevAppend (ds)
+        else ds
+      | _ => if (include_manually_defined) additional_decls
+             else []
     };
   }