cps-ir: Support foreign code.

pkg/compiler/lib/src/tree_ir/tree_ir_tracer.dart

 // Copyright (c) 2014, 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.
 
 library tree_ir_tracer;
 
 import 'dart:async' show EventSink;
 import '../tracer.dart';
 import 'tree_ir_nodes.dart';
 
@@ skipping 154 matching lines @@
     visitStatement(node.catchBody);
 
     substatements[node.tryBody] = tryBlock;
     substatements[node.catchBody] = catchBlock;
   }
 
   visitExpressionStatement(ExpressionStatement node) {
     _addStatement(node);
     visitStatement(node.next);
   }
+
+  visitForeignStatement(ForeignStatement node) {
+    _addStatement(node);
+  }
 }
 
 class TreeTracer extends TracerUtil with StatementVisitor {
   String get passName => null;
 
   final EventSink<String> output;
 
   TreeTracer(this.output);
 
   List<Variable> parameters;
@@ skipping 129 matching lines @@
     String value = expr(node.value);
     if (SubexpressionVisitor.usesInfixNotation(node.object)) {
       object = '($object)';
     }
     printStatement(null, '$object.$field = $value');
   }
 
   String expr(Expression e) {
     return e.accept(new SubexpressionVisitor(names));
   }
+
+  @override
+  visitForeignStatement(ForeignStatement node) {
+    printStatement(null, 'foreign');
+  }
 }
 
 class SubexpressionVisitor extends ExpressionVisitor<String> {
   Names names;
 
   SubexpressionVisitor(this.names);
 
   String visitVariableUse(VariableUse node) {
     return names.varName(node.variable);
   }
@@ skipping 170 matching lines @@
     return node.dartType.toString();
   }
 
   @override
   String visitCreateInvocationMirror(CreateInvocationMirror node) {
     String args = node.arguments.map(visitExpression).join(', ');
     return 'CreateInvocationMirror(${node.selector.name}, $args)';
   }
 
   @override
+  String visitForeignExpression(ForeignExpression node) {
+    String arguments = node.arguments.map(visitExpression).join(', ');
+    return 'Foreign "${node.codeTemplate}"($arguments)';
+  }
+
+  @override
   String visitApplyBuiltinOperator(ApplyBuiltinOperator node) {
     String args = node.arguments.map(visitExpression).join(', ');
     return 'ApplyBuiltinOperator ${node.operator} ($args)';
   }
 }
 
 /**
  * Invents (and remembers) names for Variables that do not have an associated
  * identifier.
  *
@@ skipping 11 matching lines @@
       String prefix = v.element == null ? 'v' : '${v.element.name}_';
       while (name == null || _usedNames.contains(name)) {
         name = "$prefix${_counter++}";
       }
       _names[v] = name;
       _usedNames.add(name);
     }
     return name;
   }
 }