{-# LANGUAGE CPP #-} #if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.DOMSecurityPolicy (ghcjs_dom_dom_security_policy_is_active, domSecurityPolicyIsActive, ghcjs_dom_dom_security_policy_allows_connection_to, domSecurityPolicyAllowsConnectionTo, ghcjs_dom_dom_security_policy_allows_font_from, domSecurityPolicyAllowsFontFrom, ghcjs_dom_dom_security_policy_allows_form_action, domSecurityPolicyAllowsFormAction, ghcjs_dom_dom_security_policy_allows_frame_from, domSecurityPolicyAllowsFrameFrom, ghcjs_dom_dom_security_policy_allows_image_from, domSecurityPolicyAllowsImageFrom, ghcjs_dom_dom_security_policy_allows_media_from, domSecurityPolicyAllowsMediaFrom, ghcjs_dom_dom_security_policy_allows_object_from, domSecurityPolicyAllowsObjectFrom, ghcjs_dom_dom_security_policy_allows_plugin_type, domSecurityPolicyAllowsPluginType, ghcjs_dom_dom_security_policy_allows_script_from, domSecurityPolicyAllowsScriptFrom, ghcjs_dom_dom_security_policy_allows_style_from, domSecurityPolicyAllowsStyleFrom, ghcjs_dom_dom_security_policy_allows_eval, domSecurityPolicyAllowsEval, ghcjs_dom_dom_security_policy_allows_inline_script, domSecurityPolicyAllowsInlineScript, ghcjs_dom_dom_security_policy_allows_inline_style, domSecurityPolicyAllowsInlineStyle, ghcjs_dom_dom_security_policy_get_report_ur_is, domSecurityPolicyGetReportURIs) where import GHCJS.Types import GHCJS.Foreign import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM import GHCJS.Types import GHCJS.Foreign import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM #ifdef __GHCJS__ foreign import javascript unsafe "($1[\"isActive\"]() ? 1 : 0)" ghcjs_dom_dom_security_policy_is_active :: JSRef DOMSecurityPolicy -> IO Bool #else ghcjs_dom_dom_security_policy_is_active :: JSRef DOMSecurityPolicy -> IO Bool ghcjs_dom_dom_security_policy_is_active = undefined #endif domSecurityPolicyIsActive :: (IsDOMSecurityPolicy self) => self -> IO Bool domSecurityPolicyIsActive self = ghcjs_dom_dom_security_policy_is_active (unDOMSecurityPolicy (toDOMSecurityPolicy self)) #ifdef __GHCJS__ foreign import javascript unsafe "($1[\"allowsConnectionTo\"]($2) ? 1 : 0)" ghcjs_dom_dom_security_policy_allows_connection_to :: JSRef DOMSecurityPolicy -> JSString -> IO Bool #else ghcjs_dom_dom_security_policy_allows_connection_to :: JSRef DOMSecurityPolicy -> JSString -> IO Bool ghcjs_dom_dom_security_policy_allows_connection_to = undefined #endif domSecurityPolicyAllowsConnectionTo :: (IsDOMSecurityPolicy self, ToJSString url) => self -> url -> IO Bool domSecurityPolicyAllowsConnectionTo self url = ghcjs_dom_dom_security_policy_allows_connection_to (unDOMSecurityPolicy (toDOMSecurityPolicy self)) (toJSString url) #ifdef __GHCJS__ foreign import javascript unsafe "($1[\"allowsFontFrom\"]($2) ? 1 : 0)" ghcjs_dom_dom_security_policy_allows_font_from :: JSRef DOMSecurityPolicy -> JSString -> IO Bool #else ghcjs_dom_dom_security_policy_allows_font_from :: JSRef DOMSecurityPolicy -> JSString -> IO Bool ghcjs_dom_dom_security_policy_allows_font_from = undefined #endif domSecurityPolicyAllowsFontFrom :: (IsDOMSecurityPolicy self, ToJSString url) => self -> url -> IO Bool domSecurityPolicyAllowsFontFrom self url = ghcjs_dom_dom_security_policy_allows_font_from (unDOMSecurityPolicy (toDOMSecurityPolicy self)) (toJSString url) #ifdef __GHCJS__ foreign import javascript unsafe "($1[\"allowsFormAction\"]($2) ? 1 : 0)" ghcjs_dom_dom_security_policy_allows_form_action :: JSRef DOMSecurityPolicy -> JSString -> IO Bool #else ghcjs_dom_dom_security_policy_allows_form_action :: JSRef DOMSecurityPolicy -> JSString -> IO Bool ghcjs_dom_dom_security_policy_allows_form_action = undefined #endif domSecurityPolicyAllowsFormAction :: (IsDOMSecurityPolicy self, ToJSString url) => self -> url -> IO Bool domSecurityPolicyAllowsFormAction self url = ghcjs_dom_dom_security_policy_allows_form_action (unDOMSecurityPolicy (toDOMSecurityPolicy self)) (toJSString url) #ifdef __GHCJS__ foreign import javascript unsafe "($1[\"allowsFrameFrom\"]($2) ? 1 : 0)" ghcjs_dom_dom_security_policy_allows_frame_from :: JSRef DOMSecurityPolicy -> JSString -> IO Bool #else ghcjs_dom_dom_security_policy_allows_frame_from :: JSRef DOMSecurityPolicy -> JSString -> IO Bool ghcjs_dom_dom_security_policy_allows_frame_from = undefined #endif domSecurityPolicyAllowsFrameFrom :: (IsDOMSecurityPolicy self, ToJSString url) => self -> url -> IO Bool domSecurityPolicyAllowsFrameFrom self url = ghcjs_dom_dom_security_policy_allows_frame_from (unDOMSecurityPolicy (toDOMSecurityPolicy self)) (toJSString url) #ifdef __GHCJS__ foreign import javascript unsafe "($1[\"allowsImageFrom\"]($2) ? 1 : 0)" ghcjs_dom_dom_security_policy_allows_image_from :: JSRef DOMSecurityPolicy -> JSString -> IO Bool #else ghcjs_dom_dom_security_policy_allows_image_from :: JSRef DOMSecurityPolicy -> JSString -> IO Bool ghcjs_dom_dom_security_policy_allows_image_from = undefined #endif domSecurityPolicyAllowsImageFrom :: (IsDOMSecurityPolicy self, ToJSString url) => self -> url -> IO Bool domSecurityPolicyAllowsImageFrom self url = ghcjs_dom_dom_security_policy_allows_image_from (unDOMSecurityPolicy (toDOMSecurityPolicy self)) (toJSString url) #ifdef __GHCJS__ foreign import javascript unsafe "($1[\"allowsMediaFrom\"]($2) ? 1 : 0)" ghcjs_dom_dom_security_policy_allows_media_from :: JSRef DOMSecurityPolicy -> JSString -> IO Bool #else ghcjs_dom_dom_security_policy_allows_media_from :: JSRef DOMSecurityPolicy -> JSString -> IO Bool ghcjs_dom_dom_security_policy_allows_media_from = undefined #endif domSecurityPolicyAllowsMediaFrom :: (IsDOMSecurityPolicy self, ToJSString url) => self -> url -> IO Bool domSecurityPolicyAllowsMediaFrom self url = ghcjs_dom_dom_security_policy_allows_media_from (unDOMSecurityPolicy (toDOMSecurityPolicy self)) (toJSString url) #ifdef __GHCJS__ foreign import javascript unsafe "($1[\"allowsObjectFrom\"]($2) ? 1 : 0)" ghcjs_dom_dom_security_policy_allows_object_from :: JSRef DOMSecurityPolicy -> JSString -> IO Bool #else ghcjs_dom_dom_security_policy_allows_object_from :: JSRef DOMSecurityPolicy -> JSString -> IO Bool ghcjs_dom_dom_security_policy_allows_object_from = undefined #endif domSecurityPolicyAllowsObjectFrom :: (IsDOMSecurityPolicy self, ToJSString url) => self -> url -> IO Bool domSecurityPolicyAllowsObjectFrom self url = ghcjs_dom_dom_security_policy_allows_object_from (unDOMSecurityPolicy (toDOMSecurityPolicy self)) (toJSString url) #ifdef __GHCJS__ foreign import javascript unsafe "($1[\"allowsPluginType\"]($2) ? 1 : 0)" ghcjs_dom_dom_security_policy_allows_plugin_type :: JSRef DOMSecurityPolicy -> JSString -> IO Bool #else ghcjs_dom_dom_security_policy_allows_plugin_type :: JSRef DOMSecurityPolicy -> JSString -> IO Bool ghcjs_dom_dom_security_policy_allows_plugin_type = undefined #endif domSecurityPolicyAllowsPluginType :: (IsDOMSecurityPolicy self, ToJSString type') => self -> type' -> IO Bool domSecurityPolicyAllowsPluginType self type' = ghcjs_dom_dom_security_policy_allows_plugin_type (unDOMSecurityPolicy (toDOMSecurityPolicy self)) (toJSString type') #ifdef __GHCJS__ foreign import javascript unsafe "($1[\"allowsScriptFrom\"]($2) ? 1 : 0)" ghcjs_dom_dom_security_policy_allows_script_from :: JSRef DOMSecurityPolicy -> JSString -> IO Bool #else ghcjs_dom_dom_security_policy_allows_script_from :: JSRef DOMSecurityPolicy -> JSString -> IO Bool ghcjs_dom_dom_security_policy_allows_script_from = undefined #endif domSecurityPolicyAllowsScriptFrom :: (IsDOMSecurityPolicy self, ToJSString url) => self -> url -> IO Bool domSecurityPolicyAllowsScriptFrom self url = ghcjs_dom_dom_security_policy_allows_script_from (unDOMSecurityPolicy (toDOMSecurityPolicy self)) (toJSString url) #ifdef __GHCJS__ foreign import javascript unsafe "($1[\"allowsStyleFrom\"]($2) ? 1 : 0)" ghcjs_dom_dom_security_policy_allows_style_from :: JSRef DOMSecurityPolicy -> JSString -> IO Bool #else ghcjs_dom_dom_security_policy_allows_style_from :: JSRef DOMSecurityPolicy -> JSString -> IO Bool ghcjs_dom_dom_security_policy_allows_style_from = undefined #endif domSecurityPolicyAllowsStyleFrom :: (IsDOMSecurityPolicy self, ToJSString url) => self -> url -> IO Bool domSecurityPolicyAllowsStyleFrom self url = ghcjs_dom_dom_security_policy_allows_style_from (unDOMSecurityPolicy (toDOMSecurityPolicy self)) (toJSString url) #ifdef __GHCJS__ foreign import javascript unsafe "($1[\"allowsEval\"]() ? 1 : 0)" ghcjs_dom_dom_security_policy_allows_eval :: JSRef DOMSecurityPolicy -> IO Bool #else ghcjs_dom_dom_security_policy_allows_eval :: JSRef DOMSecurityPolicy -> IO Bool ghcjs_dom_dom_security_policy_allows_eval = undefined #endif domSecurityPolicyAllowsEval :: (IsDOMSecurityPolicy self) => self -> IO Bool domSecurityPolicyAllowsEval self = ghcjs_dom_dom_security_policy_allows_eval (unDOMSecurityPolicy (toDOMSecurityPolicy self)) #ifdef __GHCJS__ foreign import javascript unsafe "($1[\"allowsInlineScript\"]() ? 1 : 0)" ghcjs_dom_dom_security_policy_allows_inline_script :: JSRef DOMSecurityPolicy -> IO Bool #else ghcjs_dom_dom_security_policy_allows_inline_script :: JSRef DOMSecurityPolicy -> IO Bool ghcjs_dom_dom_security_policy_allows_inline_script = undefined #endif domSecurityPolicyAllowsInlineScript :: (IsDOMSecurityPolicy self) => self -> IO Bool domSecurityPolicyAllowsInlineScript self = ghcjs_dom_dom_security_policy_allows_inline_script (unDOMSecurityPolicy (toDOMSecurityPolicy self)) #ifdef __GHCJS__ foreign import javascript unsafe "($1[\"allowsInlineStyle\"]() ? 1 : 0)" ghcjs_dom_dom_security_policy_allows_inline_style :: JSRef DOMSecurityPolicy -> IO Bool #else ghcjs_dom_dom_security_policy_allows_inline_style :: JSRef DOMSecurityPolicy -> IO Bool ghcjs_dom_dom_security_policy_allows_inline_style = undefined #endif domSecurityPolicyAllowsInlineStyle :: (IsDOMSecurityPolicy self) => self -> IO Bool domSecurityPolicyAllowsInlineStyle self = ghcjs_dom_dom_security_policy_allows_inline_style (unDOMSecurityPolicy (toDOMSecurityPolicy self)) #ifdef __GHCJS__ foreign import javascript unsafe "$1[\"reportURIs\"]" ghcjs_dom_dom_security_policy_get_report_ur_is :: JSRef DOMSecurityPolicy -> IO (JSRef DOMStringList) #else ghcjs_dom_dom_security_policy_get_report_ur_is :: JSRef DOMSecurityPolicy -> IO (JSRef DOMStringList) ghcjs_dom_dom_security_policy_get_report_ur_is = undefined #endif domSecurityPolicyGetReportURIs :: (IsDOMSecurityPolicy self) => self -> IO (Maybe DOMStringList) domSecurityPolicyGetReportURIs self = fmap DOMStringList . maybeJSNull <$> (ghcjs_dom_dom_security_policy_get_report_ur_is (unDOMSecurityPolicy (toDOMSecurityPolicy self))) #else module GHCJS.DOM.DOMSecurityPolicy ( module Graphics.UI.Gtk.WebKit.DOM.DOMSecurityPolicy ) where import Graphics.UI.Gtk.WebKit.DOM.DOMSecurityPolicy #endif