Implement fromEnvironment on bool, int, String in dart2js.

sdk/lib/_internal/compiler/implementation/compile_time_constants.dart

Index: sdk/lib/_internal/compiler/implementation/compile_time_constants.dart
===================================================================
--- sdk/lib/_internal/compiler/implementation/compile_time_constants.dart	(revision 29517)
+++ sdk/lib/_internal/compiler/implementation/compile_time_constants.dart	(working copy)
@@ -634,7 +634,60 @@
       return evaluateArgumentsToConstructor(
           node, selector, send.arguments, constructor);
     }
-    return makeConstructedConstant(node, type, constructor, evaluateArguments);
+
+    if (constructor == compiler.intEnvironment
+        || constructor == compiler.boolEnvironment
+        || constructor == compiler.stringEnvironment) {
+      List<Constant> arguments = evaluateArguments(constructor);
+      Constant firstArgument = arguments[0];
+
+      if (constructor == compiler.intEnvironment
+          && !(arguments[1] is NullConstant
+               || arguments[1] is IntConstant)) {
+        DartType type = arguments[1].computeType(compiler);
+        compiler.reportFatalError(
+            send.arguments.tail.head, MessageKind.NOT_ASSIGNABLE.error,
+            {'fromType': type, 'toType': compiler.intClass.rawType});
+      }
+      if (constructor == compiler.stringEnvironment
+          && !(arguments[1] is NullConstant
+               || arguments[1] is StringConstant)) {
+        DartType type = arguments[1].computeType(compiler);
+        compiler.reportFatalError(
+            send.arguments.tail.head, MessageKind.NOT_ASSIGNABLE.error,
+            {'fromType': type, 'toType': compiler.stringClass.rawType});
+      }
+
+      var value = firstArgument is StringConstant
+          ? compiler.fromEnvironment(firstArgument.value.slowToString())
+          : null;
+
+      if (value == null) {

[kasperl, 2013/10/30 13:35:25]

Not sure I understand why we want to be so forgiving here. If the environment
contains something weird we just use the default value (except for bool which
seems to not have a default value). I'm afraid this is going to lead to some
pretty nasty hard to debug issue. Why not just throw a compile-time error? It's
basically a wrong constant.

[Søren Gjesse, 2013/10/30 13:59:14]

In the VM implementation we throw an error if the value from the embedder is not
String or Null.

+        if (constructor == compiler.boolEnvironment) {

[kasperl, 2013/10/30 13:35:25]

I'd add a few comments here to explain the behavior.

+          return constantSystem.createBool(false);
+        } else {
+          assert(arguments.length == 2);
+          return arguments[1];

[kasperl, 2013/10/30 13:35:25]

Add local variable for arguments[1] and call it defaultValue?

[ngeoffray, 2013/10/30 15:13:59]

Done.

+        }
+      } else if (constructor == compiler.intEnvironment) {
+        return value is int
+            ? constantSystem.createInt(value)
+            : arguments[1];
+      } else if (constructor == compiler.boolEnvironment) {
+        return value is bool
+            ? constantSystem.createBool(value)
+            : constantSystem.createBool(false);
+      } else {
+        assert(constructor == compiler.stringEnvironment);
+        return value is String
+            ? constantSystem.createString(
+                  new DartString.literal(value), node)
+            : arguments[1];
+      }
+    } else {
+      return makeConstructedConstant(
+          node, type, constructor, evaluateArguments);
+    }
   }
 
   Constant makeConstructedConstant(