[svn] r5797: nemerle/trunk/macros/Util.n

[nazgul]

Log:
Allow also virtual and override to be given in Accessor

Author: nazgul
Date: Tue Oct  4 22:17:11 2005
New Revision: 5797

Modified:
   nemerle/trunk/macros/Util.n

Modified: nemerle/trunk/macros/Util.n
==============================================================================
--- nemerle/trunk/macros/Util.n	(original)
+++ nemerle/trunk/macros/Util.n	Tue Oct  4 22:17:11 2005
@@ -90,16 +90,16 @@
     mutable want_setter = false;
     mutable want_internal = false;
     mutable want_protected = false;
+    mutable want_override = false;
+    mutable want_virtual = false;
 
     def parse_opts (expr) {
-      | <[ $("WantSetter" : dyn) ]> =>
-        want_setter = true
-      | <[ $("Setter" : dyn) ]> =>
-        want_setter = true
-      | <[ $("Internal" : dyn) ]> =>
-        want_internal = true;
-      | <[ $("Protected" : dyn) ]> =>
-        want_protected = true;
+      | <[ $("WantSetter" : dyn) ]> => want_setter = true
+      | <[ $("Setter" : dyn) ]> =>     want_setter = true
+      | <[ $("Internal" : dyn) ]> =>   want_internal = true;
+      | <[ $("Protected" : dyn) ]> =>  want_protected = true;
+      | <[ $("Override" : dyn) ]> =>  want_override = true;
+      | <[ $("Virtual" : dyn) ]> =>  want_virtual = true;        
       | <[ $e1 | $e2 ]> =>
         parse_opts (e1);
         parse_opts (e2);
@@ -140,6 +140,10 @@
       prop.Attributes &= ~NemerleAttributes.Public;
       prop.Attributes |= NemerleAttributes.Protected;
     }
+    when (want_override)
+      prop.Attributes |= NemerleAttributes.Override;
+    when (want_virtual)
+      prop.Attributes |= NemerleAttributes.Virtual;
 
     when (storage_field.Attributes %&& NemerleAttributes.Static)
       prop.Attributes |= NemerleAttributes.Static;