Add dart2js option to select library categories.

dart/sdk/lib/_internal/compiler/implementation/dart2js.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 dart2js;
 
 import 'dart:async';
 import 'dart:collection' show Queue, LinkedHashMap;
 import 'dart:io';
 import 'dart:uri';
 import 'dart:utf';
 
 import '../compiler.dart' as api;
 import 'source_file.dart';
 import 'source_file_provider.dart';
 import 'filenames.dart';
 import 'util/uri_extras.dart';
+import '../../libraries.dart';
 
 const String LIBRARY_ROOT = '../../../../..';
 const String OUTPUT_LANGUAGE_DART = 'Dart';
 
 typedef void HandleOption(String option);
 
 class OptionHandler {
   String pattern;
   HandleOption handle;
 
@@ skipping 92 matching lines @@
   setStrip(String argument) {
     stripArgumentSet = true;
     passThrough(argument);
   }
 
   setAnalyzeOnly(String argument) {
     analyzeOnly = true;
     passThrough(argument);
   }
 
+  setCategories(String argument) {
+    List<String> categories = extractParameter(argument).split(',');
+    Set<String> allowedCategories =
+        LIBRARIES.values.mappedBy((x) => x.category).toSet();
+    allowedCategories.remove('Shared');
+    allowedCategories.remove('Internal');
+    List<String> allowedCategoriesList =
+        new List<String>.from(allowedCategories);
+    allowedCategoriesList.sort();
+    if (categories.contains('all')) {
+      categories = allowedCategoriesList;
+    } else {
+      String allowedCategoriesString =
+          Strings.join(allowedCategoriesList, ', ');
+      for (String category in categories) {
+        if (!allowedCategories.contains(category)) {
+          fail('Error: unsupported library category "$category", '
+               'supported categories are: $allowedCategoriesString');
+        }
+      }
+    }
+    return passThrough('--categories=${Strings.join(categories, ",")}');
+  }
+
   handleShortOptions(String argument) {
     var shortOptions = argument.substring(1).splitChars();
     for (var shortOption in shortOptions) {
       switch (shortOption) {
         case 'v':
           diagnosticHandler.verbose = true;
           break;
         case 'h':
         case '?':
           wantHelp = true;
@@ skipping 33 matching lines @@
     new OptionHandler(r'--help|/\?|/h', (_) => wantHelp = true),
     new OptionHandler('--package-root=.+|-p.+', setPackageRoot),
     new OptionHandler('--disallow-unsafe-eval', passThrough),
     new OptionHandler('--analyze-all', passThrough),
     new OptionHandler('--analyze-only', setAnalyzeOnly),
     new OptionHandler('--disable-native-live-type-analysis', passThrough),
     new OptionHandler('--enable-native-live-type-analysis', passThrough),
     new OptionHandler('--reject-deprecated-language-features', passThrough),
     new OptionHandler('--report-sdk-use-of-deprecated-language-features',
                       passThrough),
+    new OptionHandler('--categories=.*', setCategories),
 
     // The following two options must come last.
     new OptionHandler('-.*', (String argument) {
       helpAndFail('Error: Unknown option "$argument".');
     }),
     new OptionHandler('.*', (String argument) {
       arguments.add(nativeToUriPath(argument));
     })
   ];
 
@@ skipping 178 matching lines @@
     according to The Dart Programming Language Specification, version
     0.12, M1.
 
   --report-sdk-use-of-deprecated-language-features
     Report use of deprecated features in Dart platform libraries.
     Without this option, the compiler will silently accept use of
     deprecated language features from these libraries.  The option
     --reject-deprecated-language-features controls if these usages are
     reported as errors or warnings.
 
+  --categories=<categories>
+
+    A comma separated list of allowed library categories.  The default
+    is "Client".  Possible categories can be seen by providing an
+    unsupported category, for example, --categories=help.  To enable
+    all categories, use --categories=all.
+
 '''.trim());
 }
 
 void helpAndExit(bool verbose) {
   if (verbose) {
     verboseHelp();
   } else {
     help();
   }
   exit(0);
@@ skipping 14 matching lines @@
     } catch (ignored) {
       print('Internal error: error while printing exception');
     }
     try {
       print(trace);
     } finally {
       exit(253); // 253 is recognized as a crash by our test scripts.
     }
   }
 }