Add mapping to files

kernel/rules/files.mvc

@@ -0,0 +1,6 @@
+SimpleAttribute String {}
+
+Class File {
+    name : String
+    content : String
+}

kernel/rules/to_graphviz.alc

@@ -5,11 +5,20 @@ include "object_operations.alh"
 Boolean function main(model : Element):
     Element rules
     String rule
+	String file
+	String content
 
     rules = allInstances(model, "Rules/Rule")
     while (set_len(rules) > 0):
         rule = set_pop(rules)
-        print_rule(model, rule)
+        content = print_rule(model, rule)
+
+		file = instantiate_node(model, "Files/file")
+		instantiate_attribute(model, file, "name", rule + ".dot")
+		instantiate_attribute(model, file, "content", content)
+
+		log("File " + rule + ".dot")
+		log(content)
 
     return True!