From: Jake Donham <jake.donham@skydeck.com>
To: caml-list@yquem.inria.fr
Subject: Re: Simple ocamljs example
Date: Mon, 26 Nov 2007 10:33:49 -0800 [thread overview]
Message-ID: <474B118D.3010608@skydeck.com> (raw)
In-Reply-To: <474889C0.2080900@cis.strath.ac.uk>
Peter Gregory wrote:
> I've been trying to work through a very simple example just to try out
> ocamljs. Simply, I want to provide a function that changes the colour
> of some text.
OK, there is no reason in principle that this shouldn't work but I
should warn you that so far I have only used OCamljs for a Firefox
extension, not for web pages.
> I expected that if I had function named f in the ocaml side then I would
> be able to call it with f() in the JS side.
Not quite; names are mangled, values are wrapped up in modules, and the
calling convention is different (to account for currying), so you should
use the same mechanism you'd use for calling C code: on the ML side,
register a value with Callback.register; and on the Javascript side, use
caml_named_value to look up a registered value and caml_callback{,2,3,N}
to call through the value. Sorry, I forgot to write this up in the docs.
> I also assumed that Mozilla.Document.d was the document.
> [...] Document.d [... becomes ...] (oc$Mozilla$[29][0])
If you look back to the definitions of oc$Mozilla (and Document$553 or
whatever it is called for you) you'll see that this boils down to
"document" as you wanted. Modules are compiled as Javascript arrays
containing their values.
There is one more problem: the Mozilla module tries to get references to
a bunch of XPCOM interfaces and classes when it starts up, and this
fails in an ordinary browser environment. Here is a version of your
example that works for me (in Linux Firefox), not using the Mozilla module:
------ ocajs.ml
module Element =
struct
type t
external setAttribute : t -> string -> string -> unit = "#setAttribute"
end
module Document =
struct
type t
let (d : t) = Ocamljs.var "document"
external getElementById : t -> string -> Element.t = "#getElementById"
end
let changecolour () =
let e = Document.getElementById Document.d "myid" in
Element.setAttribute e "color" "red"
;;
Callback.register "changecolour" changecolour;
------ index.html
<html>
<script type="text/javascript" src="ocajs.js"></script>
<body>
<p><font id="myid" color="blue"> HELLO WORLD </font></p>
<form>
<input type="button" value="Change Colour"
onclick='caml_callback(caml_named_value("changecolour"), 0)'>
</form>
</body>
</html>
------
The 0 argument in caml_callback is the Javascript representation of the
empty tuple (but for unit arguments it doesn't matter what you pass
since they are never looked at).
Jake
parent reply other threads:[~2007-11-26 18:33 UTC|newest]
Thread overview: expand[flat|nested] mbox.gz Atom feed
[parent not found: <474889C0.2080900@cis.strath.ac.uk>]
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=474B118D.3010608@skydeck.com \
--to=jake.donham@skydeck.com \
--cc=caml-list@yquem.inria.fr \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox