add 'manage' attribut to service, unmanage services is, for example a fake service

src/rougail/annotator.py

@@ -241,7 +241,7 @@ class ServiceAnnotator:
             service = self.objectspace.space.services.service[service_name]
             new_service = self.objectspace.service()
             for elttype, values in vars(service).items():
-                if elttype == 'name' or elttype in ERASED_ATTRIBUTES:
+                if not isinstance(values, (dict, list)) or elttype in ERASED_ATTRIBUTES:
                     setattr(new_service, elttype, values)
                     continue
                 eltname = elttype + 's'
@@ -1065,7 +1065,8 @@ class FamilyAnnotator:
                     for family_name, family in space.items():
                         if not hasattr(family, 'variable') or len(family.variable) == 0:
                             removed_families.append(family_name)
-                            del space[family_name]
+                    for family_name in removed_families:
+                        del space[family_name]
 
     def change_family_mode(self):  # pylint: disable=C0111
         if not hasattr(self.objectspace.space, 'variables'):

src/rougail/data/rougail.dtd

@@ -47,6 +47,7 @@
 
 <!ELEMENT service ((port* | tcpwrapper* | ip* | interface* | package* | file* | digitalcertificate* | override*)*) >
 <!ATTLIST service name CDATA #REQUIRED>
+<!ATTLIST service manage (True|False) "True">
 
 <!ELEMENT port (#PCDATA)>
 <!ATTLIST port port_type (PortOption|SymLinkOption|variable) "PortOption">

src/rougail/objspace.py

@@ -23,7 +23,6 @@ For example: a variable is redefined and shall be moved to another family
 means that a variable1 = Variable() object in the object space who lives in the family1 parent
 has to be moved in family2. The visit procedure changes the varable1's object space's parent.
 """
-from collections import OrderedDict
 from lxml.etree import Element, SubElement  # pylint: disable=E0611
 
 from .i18n import _
@@ -66,20 +65,20 @@ class RootCreoleObject:
 class CreoleObjSpace:
     """DOM XML reflexion free internal representation of a Creole Dictionary
     """
-    choice = type('Choice', (RootCreoleObject,), OrderedDict())
-    property_ = type('Property', (RootCreoleObject,), OrderedDict())
+    choice = type('Choice', (RootCreoleObject,), dict())
+    property_ = type('Property', (RootCreoleObject,), dict())
     # Creole ObjectSpace's Leadership variable class type
-    Leadership = type('Leadership', (RootCreoleObject,), OrderedDict())
+    Leadership = type('Leadership', (RootCreoleObject,), dict())
     """
     This Atom type stands for singleton, that is
     an Object Space's atom object is present only once in the
     object space's tree
     """
-    Atom = type('Atom', (RootCreoleObject,), OrderedDict())
+    Atom = type('Atom', (RootCreoleObject,), dict())
     "A variable that can't be redefined"
-    Redefinable = type('Redefinable', (RootCreoleObject,), OrderedDict())
+    Redefinable = type('Redefinable', (RootCreoleObject,), dict())
     "A variable can be redefined"
-    UnRedefinable = type('UnRedefinable', (RootCreoleObject,), OrderedDict())
+    UnRedefinable = type('UnRedefinable', (RootCreoleObject,), dict())
 
 
     def __init__(self, dtdfilename):  # pylint: disable=R0912
@@ -314,14 +313,14 @@ class CreoleObjSpace:
         for example::
 
             space = Family()
-            space.variable = OrderedDict()
+            space.variable = dict()
             another example:
             space = Variable()
             space.value = list()
         """
         if child.tag not in vars(space):
             if isinstance(variableobj, self.Redefinable):
-                setattr(space, child.tag, OrderedDict())
+                setattr(space, child.tag, dict())
             elif isinstance(variableobj, self.UnRedefinable):
                 setattr(space, child.tag, [])
             elif not isinstance(variableobj, self.Atom):  # pragma: no cover
@@ -374,7 +373,7 @@ class CreoleObjSpace:
         variable_obj = old_family.variable[name]
         del old_family.variable[name]
         if 'variable' not in vars(family):
-            family.variable = OrderedDict()
+            family.variable = dict()
         family.variable[name] = variable_obj
         self.paths.add_variable(namespace,
                                 name,

src/rougail/tiramisureflector.py

@@ -11,7 +11,7 @@ from .annotator import ERASED_ATTRIBUTES
 
 
 FUNC_TO_DICT = ['valid_not_equal']
-FORCE_INFORMATIONS = ['help', 'test', 'separator']
+FORCE_INFORMATIONS = ['help', 'test', 'separator', 'manage']
 ATTRIBUTES_ORDER = ('name', 'doc', 'default', 'multi')
 
 
@@ -261,8 +261,9 @@ class Common:
 
     def populate_informations(self):
         for key, value in self.informations.items():
-            value = value.replace('"', '\"')
-            self.storage.text.append(f'{self.option_name}.impl_set_information("{key}", "{value}")')
+            if isinstance(value, str):
+                value = '"' + value.replace('"', '\"') + '"'
+            self.storage.text.append(f'{self.option_name}.impl_set_information("{key}", {value})')
 
     def get_text(self,
                  ):
@@ -472,7 +473,7 @@ class Family(Common):
     def populate_attrib(self):
         for key in self.get_attributes(self.elt):
             value = getattr(self.elt, key)
-            if key == 'help':
+            if key in FORCE_INFORMATIONS:
                 self.informations[key] = value
             elif key == 'dynamic':
                 dynamic = self.storage.get(value).get()