Generate dart2js versions of Dromaeo

samples/third_party/dromaeo/Suites.dart

 #library('Suites.dart');
 
 class Origin {
   final String author;
   final String url;
 
   const Origin(this.author, this.url);
 }
 
 class SuiteDescription {
@@ skipping 10 matching lines @@
 class Suites {
   static final JOHN_RESIG = const Origin('John Resig', 'http://ejohn.org/');
 
   static final CATEGORIES = const {
     'dom': 'DOM Core Tests (dart:dom_deprecated)',
     'html': 'DOM Core Tests (dart:html)',
     'htmlidiomatic': 'DOM Core Tests (dart:html) Idiomatic',
     'js': 'DOM Core Tests (JavaScript)',
     'dart': 'DOM Core Tests (dart)',
     'frog': 'DOM Core Tests (frog)',
+    'dart2js': 'DOM Core Tests (dart2js)',
   };
 
   static final _CORE_SUITE_DESCRIPTIONS = const [
       const SuiteDescription(
           'dom-attr.html',
           'DOM Attributes',
           JOHN_RESIG,
           'Setting and getting DOM node attributes',
           const ['attributes']),
       const SuiteDescription(
@@ skipping 26 matching lines @@
           name,
           suite.origin,
           suite.description,
           combined);
     }
     return suites.map(getVariant);
   }
 
   // Mappings from original path to Dart-specific variants.
   static _jsPath(path) => path;
-  static _domPath(path) => path.replaceFirst('.html', '-dom.html');
-  static _htmlPath(path) => path.replaceFirst('.html', '-html.html');
-  static _htmlIdiomaticPath(path) =>
-      path.replaceFirst('.html', '-htmlidiomatic.html');
-  static _frogDomPath(path) =>
-      'frog/${path.replaceFirst(".html", "-dom-js.html")}';
-  static _frogHtmlPath(path) =>
-      'frog/${path.replaceFirst(".html", "-html-js.html")}';
-  static _frogHtmlIdiomaticPath(path) =>
-      'frog/${path.replaceFirst(".html", "-htmlidiomatic-js.html")}';
+  static _nativeMapper(lib) =>
+      ((path) => path.replaceFirst('.html', '-$lib.html'));
+  static _compiledMapper(lib, compiler) =>
+      ((path) =>
+       '$compiler/${path.replaceFirst(".html", "-dom-js.html")}');
 
   static var _SUITE_DESCRIPTIONS;
 
   static List<SuiteDescription> get SUITE_DESCRIPTIONS() {
     if (null !== _SUITE_DESCRIPTIONS) {
       return _SUITE_DESCRIPTIONS;
     }
     _SUITE_DESCRIPTIONS = <SuiteDescription>[];
     add(variant, mapper, tags) {
       _SUITE_DESCRIPTIONS.addAll(
           getVariants(_CORE_SUITE_DESCRIPTIONS, variant, mapper, tags));
     }
+    // Add original JS versions.
     add('js', _jsPath, ['js']);
-    add('dart:dom_deprecated', _domPath, ['dart', 'dom']);
-    add('dart:html', _htmlPath, ['dart', 'html']);
-    add('dart:html idiomatic', _htmlPath, ['dart', 'htmlidiomatic']);

[Emily Fortuna, 2012/05/22 18:31:32]

I'm assuming it's okay that the name is now "dart:htmlidiomatic" (whitespace
removal) in the new version?

[vsm, 2012/05/22 20:15:37]

Should only appear on the page and nowhere else.

On 2012/05/22 18:31:32, Emily Fortuna wrote:

-    add('frog dart:dom_deprecated', _frogDomPath, ['frog', 'dom']);
-    add('frog dart:html', _frogHtmlPath, ['frog', 'html']);
-    add('frog dart:html idiomatic', _frogHtmlIdiomaticPath,
-        ['frog', 'htmlidiomatic']);
+    // Add native Dart versions.
+    for (var version in ['dom', 'html', 'htmlidiomatic']) {
+      add('dart:$version', _nativeMapper(version), ['dart', version]);
+    }
+    // Add Dart compiled-to JS versions.
+    for (var compiler in ['frog', 'dart2js']) {
+      for (var version in ['dom', 'html', 'htmlidiomatic']) {
+        add('$compiler:$version',
+            _compiledMapper(version, compiler),
+            [compiler, version]);
+      }
+    }
     return _SUITE_DESCRIPTIONS;
   }
 
   static List<SuiteDescription> getSuites(String tags) {
     // A disjunction of conjunctions (e.g.,
     // 'js&modify|dart&dom&modify').
     final taglist = tags.split('|').map((tag) => tag.split('&'));
 
     bool match(suite) {
       // If any conjunction matches, return true.
@@ skipping 15 matching lines @@
       return CATEGORIES[tags];
     }
     for (final suite in _CORE_SUITE_DESCRIPTIONS) {
       if (suite.tags[0] == tags) {
         return suite.name;
       }
     }
     return null;
   }
 }