Cross frame access tests

client/dom/scripts/systemfrog.py

 #!/usr/bin/python
 # 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.
 
 """This module provides shared functionality for the systems to generate
 frog binding from the IDL database."""
 
 import os
 from generator import *
 from systembase import *
 
+# Members (getters, setters, and methods) to suppress.  These are
+# either removed or custom implemented.
+_dom_frog_omitted_members = set([
+    # Replace with custom.
+    'HTMLIFrameElement.get:contentWindow',
+
+    # Remove.
+    'HTMLIFrameElement.get:contentDocument',
+    'DOMWindow.get:frameElement',
+])
+
 class FrogSystem(System):
 
   def __init__(self, templates, database, emitters, output_dir):
     super(FrogSystem, self).__init__(
         templates, database, emitters, output_dir)
     self._impl_file_paths = []
 
   def InterfaceGenerator(self,
                          interface,
                          common_prefix,
@@ skipping 150 matching lines @@
     # Since we are currently generating native classes without interfaces,
     # generate the constants as part of the class.  This will need to go away
     # if we revert back to generating interfaces.
     self._members_emitter.Emit('\n  static final $TYPE $NAME = $VALUE;\n',
                                NAME=constant.id,
                                TYPE=constant.type.id,
                                VALUE=constant.value)
 
     pass
 
+  def OverrideMember(self, member):
+    return self._interface.id + '.' + member in _dom_frog_omitted_members
+
   def AddAttribute(self, getter, setter):
+    if getter and self.OverrideMember('get:' + getter.id):
+      getter = None
+    if setter and self.OverrideMember('set:' + setter.id):
+      setter = None
+    if not getter and not setter:
+      return
+
     output_type = getter and self._NarrowOutputType(getter.type.id)
     input_type = setter and self._NarrowInputType(setter.type.id)
 
     # If the (getter, setter) pair is shadowing, we can't generate a shadowing
     # field (Issue 1633).
     (super_getter, super_getter_interface) = self._FindShadowedAttribute(getter)
     (super_setter, super_setter_interface) = self._FindShadowedAttribute(setter)
     if super_getter or super_setter:
       if getter and not setter and super_getter and not super_setter:
         if getter.type.id == super_getter.type.id:
@@ skipping 148 matching lines @@
     if native_body:
       native_body = " '''" + native_body + "'''"
 
     self._members_emitter.Emit(
         '\n'
         '  $TYPE $NAME($PARAMS) native$NATIVESTRING;\n',
         TYPE=self._NarrowOutputType(info.type_name),
         NAME=info.name,
         PARAMS=params,
         NATIVESTRING=native_body)