Skip to content

Commit 7d6e727

Browse files
bobzhangbobzhang
committed
use conditional compilation
1 parent a82064e commit 7d6e727

34 files changed

+4399
-165
lines changed

‎jscomp/common/js_config.ml

+4-2
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,4 @@
1+
# 1 "common/js_config.pp.ml"
12
(* Copyright (C) 2015-2016 Bloomberg Finance L.P.
23
*
34
* This program is free software: you can redistribute it and/or modify
@@ -40,10 +41,11 @@ let cross_module_inline = ref false
4041
let diagnose = ref false
4142
let get_diagnose () =
4243
!diagnose
43-
#ifndef RELEASE
44+
45+
# 44 "common/js_config.pp.ml"
4446
|| Sys.getenv_opt "RES_DEBUG_FILE" <> None
45-
#endif
4647

48+
# 47 "common/js_config.pp.ml"
4749
(* let (//) = Filename.concat *)
4850

4951
(* let get_packages_info () = !packages_info *)

‎jscomp/common/js_config.pp.ml

+99
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,99 @@
1+
(* Copyright (C) 2015-2016 Bloomberg Finance L.P.
2+
*
3+
* This program is free software: you can redistribute it and/or modify
4+
* it under the terms of the GNU Lesser General Public License as published by
5+
* the Free Software Foundation, either version 3 of the License, or
6+
* (at your option) any later version.
7+
*
8+
* In addition to the permissions granted to you by the LGPL, you may combine
9+
* or link a "work that uses the Library" with a publicly distributed version
10+
* of this file to produce a combined library or application, then distribute
11+
* that combined work under the terms of your choosing, with no requirement
12+
* to comply with the obligations normally placed on you by section 4 of the
13+
* LGPL version 3 (or the corresponding section of a later version of the LGPL
14+
* should you choose to use a later version).
15+
*
16+
* This program is distributed in the hope that it will be useful,
17+
* but WITHOUT ANY WARRANTY; without even the implied warranty of
18+
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19+
* GNU Lesser General Public License for more details.
20+
*
21+
* You should have received a copy of the GNU Lesser General Public License
22+
* along with this program; if not, write to the Free Software
23+
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
24+
25+
26+
27+
28+
29+
30+
31+
(** Browser is not set via command line only for internal use *)
32+
33+
34+
let no_version_header = ref false
35+
36+
let cross_module_inline = ref false
37+
38+
39+
40+
let diagnose = ref false
41+
let get_diagnose () =
42+
!diagnose
43+
#ifndef RELEASE
44+
|| Sys.getenv_opt "RES_DEBUG_FILE" <> None
45+
#endif
46+
47+
(* let (//) = Filename.concat *)
48+
49+
(* let get_packages_info () = !packages_info *)
50+
51+
let no_builtin_ppx = ref false
52+
53+
54+
55+
56+
let tool_name = "ReScript"
57+
58+
let check_div_by_zero = ref true
59+
let get_check_div_by_zero () = !check_div_by_zero
60+
61+
62+
63+
let syntax_only = ref false
64+
let binary_ast = ref false
65+
66+
67+
68+
let debug = ref false
69+
70+
let cmi_only = ref false
71+
let cmj_only = ref false
72+
73+
let force_cmi = ref false
74+
let force_cmj = ref false
75+
76+
let jsx_version = ref (-1)
77+
78+
79+
let js_stdout = ref true
80+
81+
let all_module_aliases = ref false
82+
83+
let no_stdlib = ref false
84+
85+
let no_export = ref false
86+
87+
88+
89+
let as_ppx = ref false
90+
91+
92+
(* option to config `@rescript/std`*)
93+
let customize_runtime : string option ref = ref None
94+
95+
let as_pp = ref false
96+
97+
let self_stack : string Stack.t = Stack.create ()
98+
99+
let modules = ref false

‎jscomp/core/bs_cmi_load.ml

+2-46
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,4 @@
1+
# 1 "core/bs_cmi_load.pp.ml"
12
(* Copyright (C) Hongbo Zhang, Authors of ReScript
23
*
34
* This program is free software: you can redistribute it and/or modify
@@ -22,55 +23,10 @@
2223
* along with this program; if not, write to the Free Software
2324
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
2425

25-
#ifdef RELEASE
26-
(*true *)
27-
28-
29-
let load_cmi ~unit_name : Env.Persistent_signature.t option =
30-
match Config_util.find_opt (unit_name ^".cmi") with
31-
| Some filename -> Some {filename; cmi = Cmi_format.read_cmi filename}
32-
| None ->
33-
if !Js_config.no_stdlib then None
34-
else
35-
match Ext_string_array.find_sorted Builtin_cmi_datasets.module_names unit_name with
36-
| Some cmi ->
37-
if Js_config.get_diagnose () then
38-
Format.fprintf Format.err_formatter ">Cmi: %s@." unit_name;
39-
let cmi : Cmi_format.cmi_infos =
40-
Ext_marshal.from_string
41-
Builtin_cmi_datasets.module_data.(cmi) in
42-
if Js_config.get_diagnose () then
43-
Format.fprintf Format.err_formatter "<Cmi: %s@." unit_name;
44-
Some {filename = Sys.executable_name ;
45-
cmi }
46-
| None -> None
47-
48-
let check () = ()
49-
(*
50-
Ext_array.iter
51-
Builtin_cmi_datasets.module_sets_cmi
52-
(fun (name,l) ->
53-
prerr_endline (">checking " ^ name);
54-
let cmi = Lazy.force l in
55-
(match cmi.cmi_crcs with
56-
| (unit , Some digest) :: _ ->
57-
Format.fprintf Format.err_formatter "%s -> %s@." unit (Digest.to_hex digest)
58-
| _ -> ());
59-
prerr_endline ("<checking " ^ name);
60-
);
61-
Ext_array.iter
62-
Builtin_cmj_datasets.module_sets
63-
(fun (name,l) ->
64-
prerr_endline (">checking " ^ name);
65-
let cmj = Lazy.force l in
66-
Format.fprintf Format.err_formatter "%b@." cmj.pure;
67-
prerr_endline ("<checking " ^ name);
68-
) *)
69-
#else
7026

27+
# 71 "core/bs_cmi_load.pp.ml"
7128
let check () = ()
7229
let load_cmi ~unit_name : Env.Persistent_signature.t option =
7330
match Config_util.find_opt (unit_name ^".cmi") with
7431
| Some filename -> Some {filename; cmi = Cmi_format.read_cmi filename}
7532
| None -> None
76-
#endif

‎jscomp/core/bs_cmi_load.pp.ml

+76
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,76 @@
1+
(* Copyright (C) Hongbo Zhang, Authors of ReScript
2+
*
3+
* This program is free software: you can redistribute it and/or modify
4+
* it under the terms of the GNU Lesser General Public License as published by
5+
* the Free Software Foundation, either version 3 of the License, or
6+
* (at your option) any later version.
7+
*
8+
* In addition to the permissions granted to you by the LGPL, you may combine
9+
* or link a "work that uses the Library" with a publicly distributed version
10+
* of this file to produce a combined library or application, then distribute
11+
* that combined work under the terms of your choosing, with no requirement
12+
* to comply with the obligations normally placed on you by section 4 of the
13+
* LGPL version 3 (or the corresponding section of a later version of the LGPL
14+
* should you choose to use a later version).
15+
*
16+
* This program is distributed in the hope that it will be useful,
17+
* but WITHOUT ANY WARRANTY; without even the implied warranty of
18+
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19+
* GNU Lesser General Public License for more details.
20+
*
21+
* You should have received a copy of the GNU Lesser General Public License
22+
* along with this program; if not, write to the Free Software
23+
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
24+
25+
#ifdef RELEASE
26+
(*true *)
27+
28+
29+
let load_cmi ~unit_name : Env.Persistent_signature.t option =
30+
match Config_util.find_opt (unit_name ^".cmi") with
31+
| Some filename -> Some {filename; cmi = Cmi_format.read_cmi filename}
32+
| None ->
33+
if !Js_config.no_stdlib then None
34+
else
35+
match Ext_string_array.find_sorted Builtin_cmi_datasets.module_names unit_name with
36+
| Some cmi ->
37+
if Js_config.get_diagnose () then
38+
Format.fprintf Format.err_formatter ">Cmi: %s@." unit_name;
39+
let cmi : Cmi_format.cmi_infos =
40+
Ext_marshal.from_string
41+
Builtin_cmi_datasets.module_data.(cmi) in
42+
if Js_config.get_diagnose () then
43+
Format.fprintf Format.err_formatter "<Cmi: %s@." unit_name;
44+
Some {filename = Sys.executable_name ;
45+
cmi }
46+
| None -> None
47+
48+
let check () = ()
49+
(*
50+
Ext_array.iter
51+
Builtin_cmi_datasets.module_sets_cmi
52+
(fun (name,l) ->
53+
prerr_endline (">checking " ^ name);
54+
let cmi = Lazy.force l in
55+
(match cmi.cmi_crcs with
56+
| (unit , Some digest) :: _ ->
57+
Format.fprintf Format.err_formatter "%s -> %s@." unit (Digest.to_hex digest)
58+
| _ -> ());
59+
prerr_endline ("<checking " ^ name);
60+
);
61+
Ext_array.iter
62+
Builtin_cmj_datasets.module_sets
63+
(fun (name,l) ->
64+
prerr_endline (">checking " ^ name);
65+
let cmj = Lazy.force l in
66+
Format.fprintf Format.err_formatter "%b@." cmj.pure;
67+
prerr_endline ("<checking " ^ name);
68+
) *)
69+
#else
70+
71+
let check () = ()
72+
let load_cmi ~unit_name : Env.Persistent_signature.t option =
73+
match Config_util.find_opt (unit_name ^".cmi") with
74+
| Some filename -> Some {filename; cmi = Cmi_format.read_cmi filename}
75+
| None -> None
76+
#endif

‎jscomp/core/bs_conditional_initial.ml

+9-5
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,4 @@
1+
# 1 "core/bs_conditional_initial.pp.ml"
12
(* Copyright (C) 2015 - 2016 Bloomberg Finance L.P.
23
* Copyright (C) 2016 - Hongbo Zhang, Authors of ReScript
34
* This program is free software: you can redistribute it and/or modify
@@ -33,10 +34,11 @@ let setup_env () =
3334
Ctype.variant_is_subtype := Matching_polyfill.variant_is_subtype;
3435
Clflags.dump_location := false;
3536
Config.syntax_kind := `rescript;
36-
#ifdef BROWSER
37-
#else
37+
38+
# 38 "core/bs_conditional_initial.pp.ml"
3839
Clflags.color := Some Always;
39-
#endif
40+
41+
# 40 "core/bs_conditional_initial.pp.ml"
4042
(* default true
4143
otherwise [bsc -I sc src/hello.ml ] will include current directory to search path
4244
*)
@@ -52,7 +54,8 @@ let setup_env () =
5254
Lambda.blk_record := Record_attributes_check.blk_record;
5355
Matching.names_from_construct_pattern :=
5456
Matching_polyfill.names_from_construct_pattern;
55-
#ifndef RELEASE
57+
58+
# 56 "core/bs_conditional_initial.pp.ml"
5659
(let root_dir =
5760
Filename.dirname
5861
(Filename.dirname Sys.executable_name) in
@@ -62,7 +65,8 @@ let setup_env () =
6265
(root_dir//"jscomp"//"stdlib-406") ::
6366
(root_dir//"jscomp"//"runtime") ::
6467
!Clflags.include_dirs);
65-
#endif
68+
69+
# 66 "core/bs_conditional_initial.pp.ml"
6670
Rescript_cpp.replace_directive_bool "BS" true;
6771
Rescript_cpp.replace_directive_bool "JS" true;
6872
Rescript_cpp.replace_directive_string "BS_VERSION" Bs_version.version

‎jscomp/core/bs_conditional_initial.pp.ml

+73
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,73 @@
1+
(* Copyright (C) 2015 - 2016 Bloomberg Finance L.P.
2+
* Copyright (C) 2016 - Hongbo Zhang, Authors of ReScript
3+
* This program is free software: you can redistribute it and/or modify
4+
* it under the terms of the GNU Lesser General Public License as published by
5+
* the Free Software Foundation, either version 3 of the License, or
6+
* (at your option) any later version.
7+
*
8+
* In addition to the permissions granted to you by the LGPL, you may combine
9+
* or link a "work that uses the Library" with a publicly distributed version
10+
* of this file to produce a combined library or application, then distribute
11+
* that combined work under the terms of your choosing, with no requirement
12+
* to comply with the obligations normally placed on you by section 4 of the
13+
* LGPL version 3 (or the corresponding section of a later version of the LGPL
14+
* should you choose to use a later version).
15+
*
16+
* This program is distributed in the hope that it will be useful,
17+
* but WITHOUT ANY WARRANTY; without even the implied warranty of
18+
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19+
* GNU Lesser General Public License for more details.
20+
*
21+
* You should have received a copy of the GNU Lesser General Public License
22+
* along with this program; if not, write to the Free Software
23+
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
24+
25+
(* Clflags.keep_docs := false; *)
26+
(* default to false -check later*)
27+
(* Clflags.keep_locs := false; *)
28+
let setup_env () =
29+
Env.Persistent_signature.load := Bs_cmi_load.load_cmi;
30+
Matching.make_test_sequence_variant_constant := Polyvar_pattern_match.make_test_sequence_variant_constant;
31+
Matching.call_switcher_variant_constant := Polyvar_pattern_match.call_switcher_variant_constant;
32+
Matching.call_switcher_variant_constr := Polyvar_pattern_match.call_switcher_variant_constr;
33+
Ctype.variant_is_subtype := Matching_polyfill.variant_is_subtype;
34+
Clflags.dump_location := false;
35+
Config.syntax_kind := `rescript;
36+
#ifdef BROWSER
37+
#else
38+
Clflags.color := Some Always;
39+
#endif
40+
(* default true
41+
otherwise [bsc -I sc src/hello.ml ] will include current directory to search path
42+
*)
43+
Clflags.debug := true;
44+
Clflags.binary_annotations := true;
45+
(* Turn on [-no-alias-deps] by default -- double check *)
46+
Oprint.out_ident := Outcome_printer_ns.out_ident;
47+
Builtin_attributes.check_bs_attributes_inclusion := Record_attributes_check.check_bs_attributes_inclusion;
48+
Builtin_attributes.check_duplicated_labels :=
49+
Record_attributes_check.check_duplicated_labels;
50+
Lambda.fld_record := Record_attributes_check.fld_record;
51+
Lambda.fld_record_set := Record_attributes_check.fld_record_set;
52+
Lambda.blk_record := Record_attributes_check.blk_record;
53+
Matching.names_from_construct_pattern :=
54+
Matching_polyfill.names_from_construct_pattern;
55+
#ifndef RELEASE
56+
(let root_dir =
57+
Filename.dirname
58+
(Filename.dirname Sys.executable_name) in
59+
let (//) = Filename.concat in
60+
Clflags.include_dirs :=
61+
(root_dir//"jscomp"//"others") ::
62+
(root_dir//"jscomp"//"stdlib-406") ::
63+
(root_dir//"jscomp"//"runtime") ::
64+
!Clflags.include_dirs);
65+
#endif
66+
Rescript_cpp.replace_directive_bool "BS" true;
67+
Rescript_cpp.replace_directive_bool "JS" true;
68+
Rescript_cpp.replace_directive_string "BS_VERSION" Bs_version.version
69+
(*; Switch.cut := 100*) (* tweakable but not very useful *)
70+
71+
72+
let () =
73+
at_exit (fun _ -> Format.pp_print_flush Format.err_formatter ())

‎jscomp/core/js_cmj_load.ml

+4-4
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,4 @@
1+
# 1 "core/js_cmj_load.pp.ml"
12
(* Copyright (C) Hongbo Zhang, Authors of ReScript
23
*
34
* This program is free software: you can redistribute it and/or modify
@@ -55,13 +56,12 @@ let load_unit_with_file unit_name : Js_cmj_format.cmj_load_info =
5556
| None ->
5657
if !Js_config.no_stdlib then Bs_exception.error (Cmj_not_found unit_name)
5758
else
58-
#ifdef RELEASE
59-
Js_cmj_load_builtin_unit.load_builin_unit unit_name
60-
#else
59+
60+
# 61 "core/js_cmj_load.pp.ml"
6161
Bs_exception.error (Cmj_not_found unit_name)
62-
#endif
6362

6463

64+
# 65 "core/js_cmj_load.pp.ml"
6565
(* we can disable loading from file for troubleshooting
6666
Note in dev mode we still allow loading from file is to
6767
make the dev build still function correct

0 commit comments

Comments
 (0)