Primitives.hs

module Language.UHC.JScript.Primitives where

import Language.UHC.JScript.ECMA.String
import Language.UHC.JScript.Types
import UHC.Ptr

data JSPtr a
type JSFunPtr a = FunPtr a

instance JS (JSPtr a)
instance JS (JSString)

type AnonObj = JSPtr ()

foreign import prim "primMkAnonObj"
  mkAnonObj :: IO AnonObj


newObj :: String -> IO (JSPtr p)
newObj = _newObj . toJS

foreign import prim "primMkObj"
  _newObj :: JSString -> IO (JSPtr p)

mkCtor :: String -> IO (JSFunPtr a)
mkCtor = _mkCtor . toJS

foreign import prim "primMkCtor"
  _mkCtor :: JSString -> IO (JSFunPtr a)

getCtor :: String -> IO (JSFunPtr a)
getCtor s1 = _getCtor (toJS s1)

foreign import prim "primGetCtor"
  _getCtor :: JSString -> IO (JSFunPtr a)

setCtor :: String -> JSFunPtr a -> IO ()
setCtor s1 fp = _setCtor (toJS s1) fp

foreign import prim "primSetCtor"
  _setCtor :: JSString -> JSFunPtr a -> IO ()

getAttr :: String -> JSPtr p -> IO a
getAttr s p = _getAttr (toJS s) p

foreign import prim "primGetAttr"
  _getAttr :: JSString -> JSPtr p -> IO a

setAttr :: String -> a -> JSPtr p -> IO (JSPtr p)
setAttr s a p = _setAttr (toJS s) a p

setAttr_ :: String -> a -> JSPtr p -> IO ()
setAttr_ s a p = setAttr s a p >> return ()

foreign import prim "primSetAttr"
  _setAttr :: JSString -> a -> JSPtr p -> IO (JSPtr p)

pureSetAttr :: String -> a -> JSPtr p -> JSPtr p
pureSetAttr s a p = _pureSetAttr (toJS s) a p

foreign import prim "primPureSetAttr"
  _pureSetAttr :: JSString -> a -> JSPtr p -> JSPtr p

modAttr :: String -> (a -> b) -> JSPtr p -> IO (JSPtr p)
modAttr s f p = _modAttr (toJS s) f p

modAttr_ :: String -> (a -> b) -> JSPtr p -> IO ()
modAttr_ s f p = modAttr s f p >> return ()

foreign import prim "primModAttr"
  _modAttr :: JSString -> (a -> b) -> JSPtr p -> IO (JSPtr p)

pureModAttr :: String -> (a -> b) -> JSPtr p -> JSPtr p
pureModAttr s f p = _pureModAttr (toJS s) f p

foreign import prim "primPureModAttr"
  _pureModAttr :: JSString -> (a -> b) -> JSPtr p -> JSPtr p

getProtoAttr :: String -> String -> IO a
getProtoAttr x y = _getProtoAttr (toJS x) (toJS y)

foreign import prim "primGetProtoAttr"
  _getProtoAttr :: JSString -> JSString -> IO a


setProtoAttr :: String -> a -> String -> IO ()
setProtoAttr x a y = _setProtoAttr (toJS x) a (toJS y)

foreign import prim "primSetProtoAttr"
  _setProtoAttr :: JSString -> a -> JSString -> IO ()


modProtoAttr :: String -> (a -> b) -> String -> IO ()
modProtoAttr x f y = _modProtoAttr (toJS x) f (toJS y)

foreign import prim "primModProtoAttr"
  _modProtoAttr :: JSString -> (a -> b) -> JSString -> IO ()

foreign import prim "primClone"
  primClone :: JSPtr a -> JSPtr a

foreign import prim "primToPlainObj"
  primToPlainObj :: JSPtr a -> JSPtr b

foreign import js "{}"
  mkObj :: a -> IO (JSPtr b)