expose string escaping, added String.fromCharCode

git-svn-id: http://ocamljs.googlecode.com/svn/trunk@94 27578800-e353-0410-a23a-a7c9f63c6ccd

src/javascript/javascript.ml

@@ -92,3 +92,8 @@ object
 end
 
 external js_string_of_string : string -> js_string = "%id"
+
+module Js_string =
+struct
+  external fromCharCode : int -> string = "@String.fromCharCode"
+end

src/javascript/javascript.mli

@@ -90,3 +90,8 @@ object
 end
 
 external js_string_of_string : string -> js_string = "%id"
+
+module Js_string :
+sig
+  external fromCharCode : int -> string = "@String.fromCharCode"
+end

src/jslib/jslib_pp.ml

@@ -13,8 +13,6 @@
 open Format
 open Jslib_ast
 
-exception Unimplemented of string
-
 (* XXX figure out how Format works *)
 
 (*
@@ -391,3 +389,5 @@ and stmts ppf ss =
         stmt ppf s;)
       ss in
   fprintf ppf "@[<v>%a@]" sl ss
+
+let escaped = JSString.escaped

src/jslib/jslib_pp.mli

@@ -1,5 +1,5 @@
-exception Unimplemented of string
-
 val exp : Format.formatter -> Jslib_ast.exp -> unit
 val stmt : Format.formatter -> Jslib_ast.stmt -> unit
 val stmts : Format.formatter -> Jslib_ast.stmt list -> unit
+
+val escaped : string -> string