|
@@ -292,8 +292,8 @@ let generate_resources infos =
|
|
|
let dir = (infos.com.file :: ["__res"]) in
|
|
|
create_dir [] dir;
|
|
|
let add_resource name data =
|
|
|
- let ch = open_out_bin (String.concat "/" (dir @ [name])) in
|
|
|
- output_string ch data;
|
|
|
+ let ch = open_out_bin (String.concat "/" (dir @ [name])) in
|
|
|
+ output_string ch data;
|
|
|
close_out ch
|
|
|
in
|
|
|
Hashtbl.iter (fun name data -> add_resource name data) infos.com.resources;
|
|
@@ -507,9 +507,10 @@ and gen_field_access ctx t s =
|
|
|
| [], "Date", "now"
|
|
|
| [], "Date", "fromTime"
|
|
|
| [], "Date", "fromString"
|
|
|
- | [], "String", "charCodeAt"
|
|
|
->
|
|
|
print ctx "[\"%s\"]" s
|
|
|
+ | [], "String", "charCodeAt" ->
|
|
|
+ spr ctx "[\"charCodeAtHX\"]"
|
|
|
| [], "Date", "toString" ->
|
|
|
print ctx "[\"toStringHX\"]"
|
|
|
| [], "String", "cca" ->
|