Add dart2js option to select library categories.

dart/sdk/lib/_internal/compiler/implementation/apiimpl.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.
 
 library leg_apiimpl;
 
 import 'dart:uri';
 import 'dart:async';
 
 import '../compiler.dart' as api;
 import 'dart2jslib.dart' as leg;
 import 'tree/tree.dart' as tree;
 import 'elements/elements.dart' as elements;
 import 'ssa/tracer.dart' as ssa;
 import '../../libraries.dart';
 import 'source_file.dart';
 
 class Compiler extends leg.Compiler {
   api.ReadStringFromUri provider;
   api.DiagnosticHandler handler;
   final Uri libraryRoot;
   final Uri packageRoot;
   List<String> options;
   bool mockableLibraryUsed = false;
+  final Set<String> allowedLibraryCategories;
 
   Compiler(this.provider, this.handler, this.libraryRoot, this.packageRoot,
            List<String> options)
       : this.options = options,
+        this.allowedLibraryCategories = getAllowedLibraryCategories(options),
         super(
             tracer: new ssa.HTracer(),
             enableTypeAssertions: hasOption(options, '--enable-checked-mode'),
             enableUserAssertions: hasOption(options, '--enable-checked-mode'),
             enableMinification: hasOption(options, '--minify'),
             enableNativeLiveTypeAnalysis:
                 !hasOption(options, '--disable-native-live-type-analysis'),
             emitJavaScript: !hasOption(options, '--output-type=dart'),
             disallowUnsafeEval: hasOption(options, '--disallow-unsafe-eval'),
             analyzeAll: hasOption(options, '--analyze-all'),
@@ skipping 14 matching lines @@
       throw new ArgumentError("packageRoot must end with a /");
     }
   }
 
   static List<String> getStrips(List<String> options) {
     for (String option in options) {
       if (option.startsWith('--force-strip=')) {
         return option.substring('--force-strip='.length).split(',');
       }
     }
-    return [];
+    return const <String>[];
+  }
+
+  static Set<String> getAllowedLibraryCategories(List<String> options) {
+    for (String option in options) {
+      if (option.startsWith('--categories=')) {
+        var result = option.substring('--categories='.length).split(',');
+        result.add('Shared');
+        result.add('Internal');
+        return new Set<String>.from(result);
+      }
+    }
+    return new Set<String>.from(['Client', 'Shared', 'Internal']);
   }
 
   static bool hasOption(List<String> options, String option) {
     return options.indexOf(option) >= 0;
   }
 
   // TODO(johnniwinther): Merge better with [translateDartUri] when
   // [scanBuiltinLibrary] is removed.
   String lookupLibraryPath(String dartLibraryName) {
     LibraryInfo info = LIBRARIES[dartLibraryName];
     if (info == null) return null;
     if (!info.isDart2jsLibrary) return null;
+    if (!allowedLibraryCategories.contains(info.category)) return null;
     String path = info.dart2jsPath;
     if (path == null) {
       path = info.path;
     }
     return "lib/$path";
   }
 
   String lookupPatchPath(String dartLibraryName) {
     LibraryInfo info = LIBRARIES[dartLibraryName];
     if (info == null) return null;
@@ skipping 117 matching lines @@
 
   Uri resolvePatchUri(String dartLibraryPath) {
     String patchPath = lookupPatchPath(dartLibraryPath);
     if (patchPath == null) return null;
     return libraryRoot.resolve(patchPath);
   }
 
   translatePackageUri(Uri uri, tree.Node node) => packageRoot.resolve(uri.path);
 
   bool run(Uri uri) {
+    log('Allowed library categories: $allowedLibraryCategories');
     bool success = super.run(uri);
     int cumulated = 0;
     for (final task in tasks) {
       cumulated += task.timing;
       log('${task.name} took ${task.timing}msec');
     }
     int total = totalCompileTime.elapsedMilliseconds;
     log('Total compile-time ${total}msec;'
         ' unaccounted ${total - cumulated}msec');
     return success;
@@ skipping 13 matching lines @@
       handler(translateUri(span.uri, null), span.begin, span.end,
               message, kind);
     }
   }
 
   bool get isMockCompilation {
     return mockableLibraryUsed
       && (options.indexOf('--allow-mock-compilation') != -1);
   }
 }