Emit program and dependency information as relations in a Prolog database.

sdk/lib/_internal/compiler/implementation/js_emitter/code_emitter_task.dart

 // Copyright (c) 2012, the Dart project authors.  Please see the AUTHORS file
 // for details. All rights reserved. Use of this source code is governed by a
 // BSD-style license that can be found in the LICENSE file.
 
 part of dart2js.js_emitter;
 
 /**
  * Generates the code for all used classes in the program. Static fields (even
  * in classes) are ignored, since they can be treated as non-class elements.
  *
@@ skipping 1605 matching lines @@
                 precompiledFunctionAst, compiler,
                 allowVariableMinification: false).getText());
 
         compiler.outputProvider('', 'precompiled.js')
             ..add(mainBuffer.getText())
             ..close();
       }
       emitDeferredCode();
 
     });
+    // Write collected information to database.
+    EventSink<String> sink = compiler.outputProvider("dart", "pl");
+    prolog.ProgramEmitter emitter = new prolog.ProgramEmitter(sink);
+    prolog.ProgramBuilder builder = new prolog.ProgramBuilder();
+    // TODO(karlklose): use only one Relations.
+    [compiler.enqueuer.resolution, compiler.enqueuer.codegen].forEach((e) {
+      Relations dep = e.dependencies;
+      dep.finalizeInformation(compiler);
+      for (String name in dep.links.keys) {
+        Map relation = dep.links[name];
+        for (var source in relation.keys) {
+          for (var target in relation[source]) {
+            builder.addRelation('${dep.prefix}_$name', [source, target]);
+          }
+        }
+      }
+    });
+    emitter.emitProgram(builder.program);
+
     return compiler.assembledCode;
   }
 
   String generateSourceMapTag(Uri sourceMapUri, Uri fileUri) {
     if (sourceMapUri != null && fileUri != null) {
       // Using # is the new proposed standard. @ caused problems in Internet
       // Explorer due to "Conditional Compilation Statements" in JScript,
       // see:
       // http://msdn.microsoft.com/en-us/library/7kx09ct1(v=vs.80).aspx
       // About source maps, see:
@@ skipping 113 matching lines @@
     String sourceMap = sourceMapBuilder.build();
     compiler.outputProvider(name, 'js.map')
         ..add(sourceMap)
         ..close();
   }
 
   void registerReadTypeVariable(TypeVariableElement element) {
     readTypeVariables.add(element);
   }
 }