Support for native in leg, and start moving native tests to a specific test suite.

frog/leg/ssa/builder.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.
 
 class Interceptors {
   Compiler compiler;
   Interceptors(Compiler this.compiler);
 
   SourceString mapOperatorToMethodName(Operator op) {
     String name = op.source.stringValue;
@@ skipping 464 matching lines @@
   void enterLoopUpdates(Loop node) {
     // If there are declared boxed loop variables then the updates might have
     // access to the box and we must switch to a new box before executing the
     // updates.
     // In all other cases a new box will be created when entering the body of
     // the next iteration.
     ClosureScope scopeData = closureData.capturingScopes[node];
     if (scopeData == null) return;
     if (scopeData.hasBoxedLoopVariables()) {
       updateCaptureBox(scopeData.boxElement, scopeData.boxedLoopVariables);
-    }    
+    }
   }
 
   void endLoop(HBasicBlock loopEntry) {
     loopEntry.forEachPhi((HPhi phi) {
       Element element = phi.element;
       HInstruction postLoopDefinition = directLocals[element];
       phi.addInput(postLoopDefinition);
     });
   }
 
@@ skipping 1065 matching lines @@
         List<HInstruction> inputs = <HInstruction>[];
         if (!node.arguments.tail.isEmpty()) {
           compiler.cancel('More than one expression in JS_HAS_EQUALS()');
         }
         addGenericSendArgumentsToList(node.arguments, inputs);
         String name = compiler.namer.instanceMethodName(
             Namer.OPERATOR_EQUALS, 1);
         push(new HForeign(
             new SourceString('\$0.$name'), const SourceString('bool'), inputs));
         break;
+      case "native":
+        if (node.arguments.isEmpty()) {
+          List<String> buffer = <String>[];

[floitsch, 2012/02/19 00:59:43]

Don't call a list a buffer.

[ngeoffray, 2012/02/20 17:00:02]

Done.

+          List<HInstruction> inputs = <HInstruction>[];
+          FunctionParameters parameters =
+              work.element.computeParameters(compiler);
+          int i = 0;
+          parameters.forEachParameter((Element element) {
+            buffer.add('\$$i');
+            inputs.add(localsHandler.readLocal(element));
+          });
+          String foreignParameters = Strings.join(buffer, ',');
+          String receiver = '';
+          if (work.element.isInstanceMember()) {
+            receiver = 'this.';
+          }
+          SourceString jsCode = new SourceString(
+              'return $receiver${work.element.name}($foreignParameters)');

[floitsch, 2012/02/19 00:59:43]

HForeign should be an expression.
There should be no 'return' here. If necessary add an HReturn.

[ngeoffray, 2012/02/20 09:09:37]

As discussed, the code in the native is not just an expression, it could be a
full body of Js code. Will discuss on how to proceed.

[ngeoffray, 2012/02/20 17:00:02]

Done.

+          push(new HForeign(jsCode, const SourceString('Object'), inputs));
+        } else if (!node.arguments.tail.isEmpty()) {
+          compiler.cancel('More than one argument to native');
+        } else {
+          LiteralString jsCode = node.arguments.head;
+          push(new HForeign(unquote(jsCode, 0),
+                            const SourceString('Object'),
+                            <HInstruction>[]));
+        }
+        break;
       default:
         throw "Unknown foreign: ${node.selector}";
     }
   }
 
   visitSuperSend(Send node) {
     Selector selector = elements.getSelector(node);
     Element element = elements[node];
     HStatic target = new HStatic(element);
     HInstruction context = localsHandler.readThis();
@@ skipping 489 matching lines @@
   }
 
   visitCatchBlock(CatchBlock node) {
     visit(node.block);
   }
 
   visitTypedef(Typedef node) {
     compiler.unimplemented('SsaBuilder.visitTypedef', node: node);
   }
 }