Skip to content
Merged
Show file tree
Hide file tree
Changes from 2 commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 1 addition & 1 deletion docs/docson/build-schema.json
Original file line number Diff line number Diff line change
Expand Up @@ -6,7 +6,7 @@
"description": "es6-global generate relative `require` paths instead of relying on NodeJS' module resolution. Default: commonjs."
},
"suffix-spec": {
"enum": [".js", ".bs.js", ".mjs", ".cjs"],
"enum": [".js", ".mjs", ".cjs", ".bs.js", ".bs.mjs", ".bs.cjs"],
"description": "suffix of generated js files, default to [.js] "
},
"module-format-object": {
Expand Down
3 changes: 2 additions & 1 deletion jscomp/bsb/bsb_package_specs.ml
Original file line number Diff line number Diff line change
Expand Up @@ -188,7 +188,8 @@ let extract_bs_suffix_exn (map : json_map) : Ext_js_suffix.t =
| Some (Str { str; loc }) ->
let s = Ext_js_suffix.of_string str in
if s = Unknown_extension then
Bsb_exception.errorf ~loc "expect .bs.js, .js, .cjs, .mjs here"
Bsb_exception.errorf ~loc
"expect .js, .mjs, .cjs or .bs.js, .bs.mjs, .bs.cjs here"
else s
| Some config ->
Bsb_exception.config_error config
Expand Down
13 changes: 12 additions & 1 deletion jscomp/ext/ext_js_suffix.ml
Original file line number Diff line number Diff line change
@@ -1,17 +1,28 @@
type t = Js | Bs_js | Mjs | Cjs | Unknown_extension
type t =
| Js
Comment thread
nkrkv marked this conversation as resolved.
| Bs_js
| Mjs
| Bs_mjs
| Cjs
| Bs_cjs
| Unknown_extension

let to_string (x : t) =
match x with
| Js -> Literals.suffix_js
| Bs_js -> Literals.suffix_bs_js
| Mjs -> Literals.suffix_mjs
| Bs_mjs -> Literals.suffix_bs_mjs
| Cjs -> Literals.suffix_cjs
| Bs_cjs -> Literals.suffix_bs_cjs
| Unknown_extension -> assert false

let of_string (x : string) : t =
match () with
| () when x = Literals.suffix_js -> Js
| () when x = Literals.suffix_bs_js -> Bs_js
| () when x = Literals.suffix_mjs -> Mjs
| () when x = Literals.suffix_bs_mjs -> Bs_mjs
| () when x = Literals.suffix_cjs -> Cjs
| () when x = Literals.suffix_bs_cjs -> Bs_cjs
| _ -> Unknown_extension
4 changes: 4 additions & 0 deletions jscomp/ext/literals.ml
Original file line number Diff line number Diff line change
Expand Up @@ -123,8 +123,12 @@ let suffix_bs_js = ".bs.js"

let suffix_mjs = ".mjs"

let suffix_bs_mjs = ".bs.mjs"

let suffix_cjs = ".cjs"

let suffix_bs_cjs = ".bs.cjs"

let suffix_gen_js = ".gen.js"

let suffix_gen_tsx = ".gen.tsx"
Expand Down
4 changes: 4 additions & 0 deletions lib/4.06.1/bsb_helper.ml
Original file line number Diff line number Diff line change
Expand Up @@ -1311,8 +1311,12 @@ let suffix_bs_js = ".bs.js"

let suffix_mjs = ".mjs"

let suffix_bs_mjs = ".bs.mjs"

let suffix_cjs = ".cjs"

let suffix_bs_cjs = ".bs.cjs"

let suffix_gen_js = ".gen.js"

let suffix_gen_tsx = ".gen.tsx"
Expand Down
20 changes: 18 additions & 2 deletions lib/4.06.1/rescript.ml
Original file line number Diff line number Diff line change
Expand Up @@ -5589,8 +5589,12 @@ let suffix_bs_js = ".bs.js"

let suffix_mjs = ".mjs"

let suffix_bs_mjs = ".bs.mjs"

let suffix_cjs = ".cjs"

let suffix_bs_cjs = ".bs.cjs"

let suffix_gen_js = ".gen.js"

let suffix_gen_tsx = ".gen.tsx"
Expand Down Expand Up @@ -7094,22 +7098,33 @@ end
module Ext_js_suffix
= struct
#1 "ext_js_suffix.ml"
type t = Js | Bs_js | Mjs | Cjs | Unknown_extension
type t =
| Js
| Bs_js
| Mjs
| Bs_mjs
| Cjs
| Bs_cjs
| Unknown_extension

let to_string (x : t) =
match x with
| Js -> Literals.suffix_js
| Bs_js -> Literals.suffix_bs_js
| Mjs -> Literals.suffix_mjs
| Bs_mjs -> Literals.suffix_bs_mjs
| Cjs -> Literals.suffix_cjs
| Bs_cjs -> Literals.suffix_bs_cjs
| Unknown_extension -> assert false

let of_string (x : string) : t =
match () with
| () when x = Literals.suffix_js -> Js
| () when x = Literals.suffix_bs_js -> Bs_js
| () when x = Literals.suffix_mjs -> Mjs
| () when x = Literals.suffix_bs_mjs -> Bs_mjs
| () when x = Literals.suffix_cjs -> Cjs
| () when x = Literals.suffix_bs_cjs -> Bs_cjs
| _ -> Unknown_extension

end
Expand Down Expand Up @@ -7849,7 +7864,8 @@ let extract_bs_suffix_exn (map : json_map) : Ext_js_suffix.t =
| Some (Str { str; loc }) ->
let s = Ext_js_suffix.of_string str in
if s = Unknown_extension then
Bsb_exception.errorf ~loc "expect .bs.js, .js, .cjs, .mjs here"
Bsb_exception.errorf ~loc
"expect .js, .mjs, .cjs or .bs.js, .bs.mjs, .bs.cjs here"
else s
| Some config ->
Bsb_exception.config_error config
Expand Down
17 changes: 16 additions & 1 deletion lib/4.06.1/unstable/all_ounit_tests.ml
Original file line number Diff line number Diff line change
Expand Up @@ -5804,8 +5804,12 @@ let suffix_bs_js = ".bs.js"

let suffix_mjs = ".mjs"

let suffix_bs_mjs = ".bs.mjs"

let suffix_cjs = ".cjs"

let suffix_bs_cjs = ".bs.cjs"

let suffix_gen_js = ".gen.js"

let suffix_gen_tsx = ".gen.tsx"
Expand Down Expand Up @@ -38344,22 +38348,33 @@ end
module Ext_js_suffix
= struct
#1 "ext_js_suffix.ml"
type t = Js | Bs_js | Mjs | Cjs | Unknown_extension
type t =
| Js
| Bs_js
| Mjs
| Bs_mjs
| Cjs
| Bs_cjs
| Unknown_extension

let to_string (x : t) =
match x with
| Js -> Literals.suffix_js
| Bs_js -> Literals.suffix_bs_js
| Mjs -> Literals.suffix_mjs
| Bs_mjs -> Literals.suffix_bs_mjs
| Cjs -> Literals.suffix_cjs
| Bs_cjs -> Literals.suffix_bs_cjs
| Unknown_extension -> assert false

let of_string (x : string) : t =
match () with
| () when x = Literals.suffix_js -> Js
| () when x = Literals.suffix_bs_js -> Bs_js
| () when x = Literals.suffix_mjs -> Mjs
| () when x = Literals.suffix_bs_mjs -> Bs_mjs
| () when x = Literals.suffix_cjs -> Cjs
| () when x = Literals.suffix_bs_cjs -> Bs_cjs
| _ -> Unknown_extension

end
Expand Down
17 changes: 16 additions & 1 deletion lib/4.06.1/unstable/js_compiler.ml
Original file line number Diff line number Diff line change
Expand Up @@ -6500,8 +6500,12 @@ let suffix_bs_js = ".bs.js"

let suffix_mjs = ".mjs"

let suffix_bs_mjs = ".bs.mjs"

let suffix_cjs = ".cjs"

let suffix_bs_cjs = ".bs.cjs"

let suffix_gen_js = ".gen.js"

let suffix_gen_tsx = ".gen.tsx"
Expand Down Expand Up @@ -46750,22 +46754,33 @@ end
module Ext_js_suffix
= struct
#1 "ext_js_suffix.ml"
type t = Js | Bs_js | Mjs | Cjs | Unknown_extension
type t =
| Js
| Bs_js
| Mjs
| Bs_mjs
| Cjs
| Bs_cjs
| Unknown_extension

let to_string (x : t) =
match x with
| Js -> Literals.suffix_js
| Bs_js -> Literals.suffix_bs_js
| Mjs -> Literals.suffix_mjs
| Bs_mjs -> Literals.suffix_bs_mjs
| Cjs -> Literals.suffix_cjs
| Bs_cjs -> Literals.suffix_bs_cjs
| Unknown_extension -> assert false

let of_string (x : string) : t =
match () with
| () when x = Literals.suffix_js -> Js
| () when x = Literals.suffix_bs_js -> Bs_js
| () when x = Literals.suffix_mjs -> Mjs
| () when x = Literals.suffix_bs_mjs -> Bs_mjs
| () when x = Literals.suffix_cjs -> Cjs
| () when x = Literals.suffix_bs_cjs -> Bs_cjs
| _ -> Unknown_extension

end
Expand Down
17 changes: 16 additions & 1 deletion lib/4.06.1/unstable/js_playground_compiler.ml
Original file line number Diff line number Diff line change
Expand Up @@ -6500,8 +6500,12 @@ let suffix_bs_js = ".bs.js"

let suffix_mjs = ".mjs"

let suffix_bs_mjs = ".bs.mjs"

let suffix_cjs = ".cjs"

let suffix_bs_cjs = ".bs.cjs"

let suffix_gen_js = ".gen.js"

let suffix_gen_tsx = ".gen.tsx"
Expand Down Expand Up @@ -46750,22 +46754,33 @@ end
module Ext_js_suffix
= struct
#1 "ext_js_suffix.ml"
type t = Js | Bs_js | Mjs | Cjs | Unknown_extension
type t =
| Js
| Bs_js
| Mjs
| Bs_mjs
| Cjs
| Bs_cjs
| Unknown_extension

let to_string (x : t) =
match x with
| Js -> Literals.suffix_js
| Bs_js -> Literals.suffix_bs_js
| Mjs -> Literals.suffix_mjs
| Bs_mjs -> Literals.suffix_bs_mjs
| Cjs -> Literals.suffix_cjs
| Bs_cjs -> Literals.suffix_bs_cjs
| Unknown_extension -> assert false

let of_string (x : string) : t =
match () with
| () when x = Literals.suffix_js -> Js
| () when x = Literals.suffix_bs_js -> Bs_js
| () when x = Literals.suffix_mjs -> Mjs
| () when x = Literals.suffix_bs_mjs -> Bs_mjs
| () when x = Literals.suffix_cjs -> Cjs
| () when x = Literals.suffix_bs_cjs -> Bs_cjs
| _ -> Unknown_extension

end
Expand Down
17 changes: 16 additions & 1 deletion lib/4.06.1/whole_compiler.ml
Original file line number Diff line number Diff line change
Expand Up @@ -180965,8 +180965,12 @@ let suffix_bs_js = ".bs.js"

let suffix_mjs = ".mjs"

let suffix_bs_mjs = ".bs.mjs"

let suffix_cjs = ".cjs"

let suffix_bs_cjs = ".bs.cjs"

let suffix_gen_js = ".gen.js"

let suffix_gen_tsx = ".gen.tsx"
Expand Down Expand Up @@ -222827,22 +222831,33 @@ end
module Ext_js_suffix
= struct
#1 "ext_js_suffix.ml"
type t = Js | Bs_js | Mjs | Cjs | Unknown_extension
type t =
| Js
| Bs_js
| Mjs
| Bs_mjs
| Cjs
| Bs_cjs
| Unknown_extension

let to_string (x : t) =
match x with
| Js -> Literals.suffix_js
| Bs_js -> Literals.suffix_bs_js
| Mjs -> Literals.suffix_mjs
| Bs_mjs -> Literals.suffix_bs_mjs
| Cjs -> Literals.suffix_cjs
| Bs_cjs -> Literals.suffix_bs_cjs
| Unknown_extension -> assert false

let of_string (x : string) : t =
match () with
| () when x = Literals.suffix_js -> Js
| () when x = Literals.suffix_bs_js -> Bs_js
| () when x = Literals.suffix_mjs -> Mjs
| () when x = Literals.suffix_bs_mjs -> Bs_mjs
| () when x = Literals.suffix_cjs -> Cjs
| () when x = Literals.suffix_bs_cjs -> Bs_cjs
| _ -> Unknown_extension

end
Expand Down