23 lines
496 B
OCaml
23 lines
496 B
OCaml
module Js = struct
|
|
type +'a t
|
|
type +'a gen_prop
|
|
type +'a meth
|
|
module Unsafe = struct
|
|
type any
|
|
let get (_o : 'a t) (_meth : string) = assert false
|
|
let set (_o : 'a t) (_meth : string) (_v : 'b) = ()
|
|
let meth_call (_ : 'a) (_ : string) (_ : any array) : 'b = assert false
|
|
let inject _ : any = assert false
|
|
end
|
|
end
|
|
|
|
let foo1 o =
|
|
if [%js o.bar] then [%js o.foo1.foo2] else [%js o.foo2]
|
|
|
|
let foo2 o =
|
|
[%js o.x <- o.x + 1]
|
|
|
|
|
|
let foo3 o a =
|
|
[%js o#x] + [%js o#y 1 a]
|