more examples

Author: bobzhang

jscomp/js.sh

@@ -8,7 +8,7 @@ FILE=bin/reason.byte
 ocamlbuild -lflags -no-check-prims -use-ocamlfind -I bin -no-hygiene   -pkgs compiler-libs.common -no-links $FILE
 
 # jsoo_mkcmis stdlib
-js_of_ocaml -I +compiler-libs   --toplevel +weak.js +toplevel.js  ./polyfill.js _build/$FILE -I ./runtime/ --file js.cmi:/cmis/js.cmi --file js_unsafe.cmi:/cmis/js_unsafe.cmi --file js_re.cmi:/cmis/js_re.cmi   -o _build/exports.js 
+js_of_ocaml -I +compiler-libs   --toplevel +weak.js +toplevel.js  ./polyfill.js _build/$FILE -I ./others/ -I ./runtime/ --file js.cmi:/cmis/js.cmi --file js_unsafe.cmi:/cmis/js_unsafe.cmi --file js_re.cmi:/cmis/js_re.cmi   -o _build/exports.js 
 
 DOCS_DIR=../docs/js-demo
 

jscomp/others/.depend

@@ -10,11 +10,10 @@ bs_node_module.cmj : bs_node.cmj bs_dict.cmj
 bs_node_module.cmx : bs_node.cmx bs_dict.cmx
 js_array.cmj :
 js_array.cmx :
-js_string.cmj : bs.cmj js_string.cmi
-js_string.cmx : bs.cmx js_string.cmi
+js_string.cmj : bs.cmj
+js_string.cmx : bs.cmx
 js_re.cmj : js_re.cmi
 js_re.cmx : js_re.cmi
-js_string.cmi :
 js_re.cmi :
 bs_node_path.cmo :
 bs_node_path.cmj :
@@ -28,7 +27,7 @@ bs_node_module.cmo : bs_node.cmo bs_dict.cmo
 bs_node_module.cmj : bs_node.cmj bs_dict.cmj
 js_array.cmo :
 js_array.cmj :
-js_string.cmo : bs.cmo js_string.cmi
-js_string.cmj : bs.cmj js_string.cmi
+js_string.cmo : bs.cmo
+js_string.cmj : bs.cmj
 js_re.cmo : js_re.cmi
 js_re.cmj : js_re.cmi

jscomp/others/js_string.ml

@@ -51,7 +51,7 @@ external charAt : int ->  t = "" [@@bs.send.pipe: t]
 
 external charCodeAt : int -> float  = "" [@@bs.send.pipe: t]
 (** type it as [float] due to that it may return NAN  *)
-external concat :  t ->  t = "" [@@bs.send.pipe: t]
+external concat :  t -> t = "" [@@bs.send.pipe: t]
 
 external indexOf :  t -> int = "" [@@bs.send.pipe: t]
 external indexOf_from :  t -> int -> int = "indexOf" [@@bs.send.pipe: t]
@@ -70,8 +70,9 @@ external slice_end : int ->  t = "slice" [@@bs.send.pipe: t]
 
 external split :  t -> t array  = "" [@@bs.send.pipe: t]
 external split_limited :  t -> int -> t array = "split" [@@bs.send.pipe: t]
-external split_regExp : Bs.Re.t  ->  t array = "split" [@@bs.send.pipe: t]
+external split_by_reg : Bs.Re.t  ->  t array = "split" [@@bs.send.pipe: t]
 external split_regExpLimited : Bs.Re.t -> int ->  t array = "" [@@bs.send.pipe: t]
+
 external substring : int -> int ->  t = "" [@@bs.send.pipe: t]
 external substring_toEnd : int ->  t = "substring" [@@bs.send.pipe: t]
 external toLowerCase :  t = "" [@@bs.send.pipe: t]

jscomp/others/js_string.mli

@@ -87,6 +87,8 @@ bs_array_test.cmj : ../runtime/js.cmj ../others/bs.cmj
 bs_array_test.cmx : ../runtime/js.cmx ../others/bs.cmx
 bs_rest_test.cmj :
 bs_rest_test.cmx :
+bs_string_test.cmj : ../runtime/js.cmj ../others/bs.cmj
+bs_string_test.cmx : ../runtime/js.cmx ../others/bs.cmx
 buffer_test.cmj : ../stdlib/string.cmi mt.cmi ../stdlib/bytes.cmi \
     ../stdlib/buffer.cmi
 buffer_test.cmx : ../stdlib/string.cmx mt.cmx ../stdlib/bytes.cmx \
@@ -869,6 +871,8 @@ bs_array_test.cmo : ../runtime/js.cmo ../others/bs.cmo
 bs_array_test.cmj : ../runtime/js.cmj ../others/bs.cmj
 bs_rest_test.cmo :
 bs_rest_test.cmj :
+bs_string_test.cmo : ../runtime/js.cmo ../others/bs.cmo
+bs_string_test.cmj : ../runtime/js.cmj ../others/bs.cmj
 buffer_test.cmo : ../stdlib/string.cmi mt.cmi ../stdlib/bytes.cmi \
     ../stdlib/buffer.cmi
 buffer_test.cmj : ../stdlib/string.cmj mt.cmj ../stdlib/bytes.cmj \

jscomp/test/.depend

@@ -61,7 +61,7 @@ OTHERS := literals a test_ari test_export2 test_internalOO test_obj_simple_ffi t
 	test_case_set test_mutliple string_bound_get_test inline_string_test\
 	ppx_this_obj_test unsafe_obj_external gpr_627_test jsoo_485_test jsoo_400_test	\
 	test_require more_uncurry earger_curry_test poly_type bench mutable_obj_test\
-	gpr_658 module_as_class_ffi pipe_send_readline demo_pipe bs_array_test
+	gpr_658 module_as_class_ffi pipe_send_readline demo_pipe bs_array_test bs_string_test
 
 
 

jscomp/test/Makefile

@@ -0,0 +1,8 @@
+'use strict';
+
+
+console.log("ghso ghso g".split(" ").reduce(function (x, y) {
+          return x + ("-" + y);
+        }, ""));
+
+/*  Not a pure module */

jscomp/test/bs_string_test.js

@@ -0,0 +1,8 @@
+
+
+let () =
+  "ghso ghso g"
+  |> Bs.String.split " "
+  |> Bs.Array.reduce (fun [@bs] x y ->  x ^  "-" ^ y) ""
+  |> Js.log 
+