more bindings for string

Author: bobzhang

docs/Manual.html

@@ -571,7 +571,7 @@ <h1><a href="https://github.com/bloomberg/bucklescript">BuckleScript</a> User Ma
 <li><a href="#_debugger_support">Debugger support</a></li>
 <li><a href="#_regex_support">Regex support</a></li>
 <li><a href="#_examples_2">Examples</a>
-<ul class="sectlevel4">
+<ul class="sectlevel3">
 <li><a href="#_a_simple_example_binding_to_mocha_unit_test_library">A simple example: binding to mocha unit test library</a></li>
 </ul>
 </li>
@@ -2661,8 +2661,8 @@ <h3 id="_examples_2"><a class="anchor" href="#_examples_2"></a>Examples</h3>
 more examples, please visit
 <a href="https://github.com/bloomberg/bucklescript-addons" class="bare">https://github.com/bloomberg/bucklescript-addons</a></p>
 </div>
-<div class="sect4">
-<h5 id="_a_simple_example_binding_to_mocha_unit_test_library"><a class="anchor" href="#_a_simple_example_binding_to_mocha_unit_test_library"></a>A simple example: binding to mocha unit test library</h5>
+<div class="sect3">
+<h4 id="_a_simple_example_binding_to_mocha_unit_test_library"><a class="anchor" href="#_a_simple_example_binding_to_mocha_unit_test_library"></a>A simple example: binding to mocha unit test library</h4>
 <div class="paragraph">
 <p>This is an example showing how too provide bindings to the
 <a href="https://mochajs.org/">mochajs</a> unit test framework.</p>

jscomp/Makefile

@@ -119,8 +119,8 @@ travis-world-test:./bin/bspack
 # since in npm mode, they are generated from a single file
 install:
 	cp  ./bin/bsc ./bin/bsppx  ./bin/bspack ../bin/
-	cp ./runtime/*.cmt* ./runtime/*.cmj* ./stdlib/*.cm*   ./others/*.cm* ../lib/ocaml/
-	cp ./runtime/js.ml  ./runtime/js.cmi ./runtime/js_array.mli ./runtime/js_array.ml ./runtime/js_array.cmi  ./runtime/js_string.ml ./runtime/js_string.mli ./runtime/js_string.cmi ./runtime/js_re.ml ./runtime/js_re.mli ./runtime/js_re.cmi ./runtime/js_unsafe.cmi ../lib/ocaml/	
+	cp ./runtime/*.cmt* ./runtime/*.cmj* ./stdlib/*.cm* ./others/*.ml ./others/*.mli  ./others/*.cm* ../lib/ocaml/
+	cp ./runtime/js.ml  ./runtime/js.cmi ./runtime/js_unsafe.cmi ../lib/ocaml/	
 
 
 

jscomp/others/.depend

@@ -6,8 +6,16 @@ bs_node_process.cmj :
 bs_node_process.cmx :
 bs_dict.cmj :
 bs_dict.cmx :
-bs_node_module.cmj : bs_node.cmi bs_dict.cmj
-bs_node_module.cmx : bs_node.cmi bs_dict.cmx
+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_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 :
 bs_node_fs.cmo :
@@ -16,5 +24,11 @@ bs_node_process.cmo :
 bs_node_process.cmj :
 bs_dict.cmo :
 bs_dict.cmj :
-bs_node_module.cmo : bs_node.cmi bs_dict.cmo
-bs_node_module.cmj : bs_node.cmi bs_dict.cmj
+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_re.cmo : js_re.cmi
+js_re.cmj : js_re.cmi

jscomp/others/Makefile

@@ -4,13 +4,13 @@ COMPILER=../bin/bsc
 
 MAP_FILES= bs_node bs 
 
-SOURCE_LIST=  bs_node_path bs_node_fs bs_node_process bs_dict bs_node_module
+SOURCE_LIST=  bs_node_path bs_node_fs bs_node_process bs_dict bs_node_module js_array js_string js_re
 
-$(addsuffix .cmj, $(MAP_FILES)): bs_node.cmj bs.cmj
+$(addsuffix .cmj, $(SOURCE_LIST)): bs_node.cmj bs.cmj # TODO
 
 RUNTIME := $(addsuffix .cmj, $(SOURCE_LIST)) 
 
-BS_COMMON_FLAGS= -no-alias-deps -bs-no-version-header -bs-diagnose -bs-no-check-div-by-zero -bs-cross-module-opt -bs-package-name $(npm_package_name)
+BS_COMMON_FLAGS= -no-alias-deps -bs-no-version-header -bs-diagnose -bs-no-check-div-by-zero -bs-cross-module-opt -bs-package-name bs-platform
 
 ifdef BS_RELEASE_BUILD
 BS_FLAGS=  $(BS_COMMON_FLAGS) -bs-package-output lib/js -bs-package-output goog:lib/goog -bs-package-output amdjs:lib/amdjs

jscomp/others/bs.ml

@@ -28,3 +28,11 @@
 module Dict = Bs_dict
 
 module Node = Bs_node  
+
+module Array = Js_array
+
+module String = Js_string
+
+module Re = Js_re
+
+

jscomp/others/bs_node.mli renamed to jscomp/others/bs_node.ml

@@ -0,0 +1,5 @@
+'use strict';
+
+
+
+/* No side effect */

jscomp/others/js_array.js

@@ -0,0 +1,60 @@
+(* Copyright (C) 2015-2016 Bloomberg Finance L.P.
+ * 
+ * This program is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU Lesser General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * In addition to the permissions granted to you by the LGPL, you may combine
+ * or link a "work that uses the Library" with a publicly distributed version
+ * of this file to produce a combined library or application, then distribute
+ * that combined work under the terms of your choosing, with no requirement
+ * to comply with the obligations normally placed on you by section 4 of the
+ * LGPL version 3 (or the corresponding section of a later version of the LGPL
+ * should you choose to use a later version).
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU Lesser General Public License for more details.
+ * 
+ * You should have received a copy of the GNU Lesser General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
+
+
+type 'a t = 'a array
+
+external toString : unit -> string  = "" [@@bs.send.pipe: 'a t as 'this]
+external toLocaleString : unit -> string  = "" [@@bs.send.pipe: 'a t as 'this]
+external concat : 'this -> 'this  = "" [@@bs.send.pipe: 'a t as 'this]
+external append : 'a -> 'this = "concat" [@@bs.send.pipe: 'a t as 'this]
+
+external slice : int -> int -> 'this = "" [@@bs.send.pipe: 'a t as 'this]
+external slice_copy : unit -> 'this = "slice"[@@bs.send.pipe: 'a t as 'this]
+external slice_start : int -> 'this = "slice"[@@bs.send.pipe: 'a t as 'this]
+
+external indexOf : 'a -> int -> int = "" [@@bs.send.pipe: 'a t as 'this]
+external indexOf_start : 'a -> int = "indexOf" [@@bs.send.pipe: 'a t as 'this]
+
+external lastIndexOf : 'a -> int -> int = "" [@@bs.send.pipe: 'a t as 'this]
+external lastIndexOf_start : 'a -> int  = "lastIndex" [@@bs.send.pipe: 'a t as 'this]
+
+external every : ('a  -> Js.boolean [@bs]) -> Js.boolean = "" [@@bs.send.pipe: 'a t as 'this]
+external everyi : ('a -> int -> Js.boolean [@bs]) -> Js.boolean = "every" [@@bs.send.pipe: 'a t as 'this]
+
+external some : ('a  -> Js.boolean [@bs]) -> Js.boolean = "" [@@bs.send.pipe: 'a t as 'this]
+external somei : ('a  -> int -> Js.boolean [@bs]) -> Js.boolean = "some" [@@bs.send.pipe: 'a t as 'this]
+
+external forEach : ('a -> 'int -> unit [@bs]) -> unit  = "" [@@bs.send.pipe: 'a t as 'this]
+
+external map : ('a  ->  'b [@bs]) -> 'b t  = "" [@@bs.send.pipe: 'a t as 'this]
+external mapi : ('a -> int ->  'b [@bs]) -> 'b t = "map" [@@bs.send.pipe: 'a t as 'this]
+
+(** should we use [bool] or [boolan] seems they are intechangeable here *)
+external filter : ('a  -> bool [@bs]) -> 'this = "" [@@bs.send.pipe: 'a t as 'this]
+external filteri : ('a -> int  -> Js.boolean[@bs]) -> 'this = "filter" [@@bs.send.pipe: 'a t as 'this]
+
+external reducei : ('a -> 'a -> int -> 'a [@bs]) ->  'a -> 'a = "reduce" [@@bs.send.pipe: 'a t as 'this]
+external reduce :  ('a -> 'a  -> 'a [@bs]) ->  'a -> 'a = "reduce" [@@bs.send.pipe: 'a t as 'this]
+