Skip to content

Commit f99a4b4

Browse files
bobzhangbobzhang
committed
snapshot
1 parent e36ef79 commit f99a4b4

File tree

7 files changed

+62
-62
lines changed

7 files changed

+62
-62
lines changed

‎lib/4.06.1/bsb.ml

Lines changed: 26 additions & 26 deletions
Original file line numberDiff line numberDiff line change
@@ -5914,7 +5914,7 @@ val length : t -> int
59145914

59155915
val is_empty : t -> bool
59165916

5917-
(* val clear : t -> unit *)
5917+
val clear : t -> unit
59185918
(** Empty the buffer. *)
59195919

59205920

@@ -6032,7 +6032,7 @@ let contents b = Bytes.sub_string b.buffer 0 b.position
60326032

60336033
let length b = b.position
60346034
let is_empty b = b.position = 0
6035-
(* let clear b = b.position <- 0 *)
6035+
let clear b = b.position <- 0
60366036

60376037
(* let reset b =
60386038
b.position <- 0; b.buffer <- b.initial_buffer;
@@ -12790,55 +12790,55 @@ let make_custom_rules
1279012790
builtin =
1279112791
(** FIXME: We don't need set [-o ${out}] when building ast
1279212792
since the default is already good -- it does not*)
12793-
let buf = Buffer.create 100 in
12793+
let buf = Ext_buffer.create 100 in
1279412794
let mk_ml_cmj_cmd
1279512795
~read_cmi
1279612796
~is_dev
1279712797
~postbuild : string =
12798-
Buffer.clear buf;
12799-
Buffer.add_string buf "$bsc $g_pkg_flg -color always";
12798+
Ext_buffer.clear buf;
12799+
Ext_buffer.add_string buf "$bsc $g_pkg_flg -color always";
1280012800
if bs_suffix then
12801-
Buffer.add_string buf " -bs-suffix";
12801+
Ext_buffer.add_string buf " -bs-suffix";
1280212802
if read_cmi then
12803-
Buffer.add_string buf " -bs-read-cmi";
12803+
Ext_buffer.add_string buf " -bs-read-cmi";
1280412804
if is_dev then
12805-
Buffer.add_string buf " $g_dev_incls";
12806-
Buffer.add_string buf " $g_lib_incls" ;
12805+
Ext_buffer.add_string buf " $g_dev_incls";
12806+
Ext_buffer.add_string buf " $g_lib_incls" ;
1280712807
if is_dev then
12808-
Buffer.add_string buf " $g_dpkg_incls";
12808+
Ext_buffer.add_string buf " $g_dpkg_incls";
1280912809
if not has_builtin then
12810-
Buffer.add_string buf " -nostdlib";
12811-
Buffer.add_string buf " $warnings $bsc_flags";
12810+
Ext_buffer.add_string buf " -nostdlib";
12811+
Ext_buffer.add_string buf " $warnings $bsc_flags";
1281212812
if has_gentype then
12813-
Buffer.add_string buf " $gentypeconfig";
12814-
Buffer.add_string buf " -o $out $in";
12813+
Ext_buffer.add_string buf " $gentypeconfig";
12814+
Ext_buffer.add_string buf " -o $out $in";
1281512815
if postbuild then
12816-
Buffer.add_string buf " $postbuild";
12817-
Buffer.contents buf
12816+
Ext_buffer.add_string buf " $postbuild";
12817+
Ext_buffer.contents buf
1281812818
in
1281912819
let mk_ast ~(has_pp : bool) ~has_ppx ~has_reason_react_jsx : string =
12820-
Buffer.clear buf ;
12821-
Buffer.add_string buf "$bsc $warnings -color always";
12820+
Ext_buffer.clear buf ;
12821+
Ext_buffer.add_string buf "$bsc $warnings -color always";
1282212822
(match refmt with
1282312823
| None -> ()
1282412824
| Some x ->
12825-
Buffer.add_string buf " -bs-refmt ";
12826-
Buffer.add_string buf (Ext_filename.maybe_quote x);
12825+
Ext_buffer.add_string buf " -bs-refmt ";
12826+
Ext_buffer.add_string buf (Ext_filename.maybe_quote x);
1282712827
);
1282812828
if has_pp then
12829-
Buffer.add_string buf " $pp_flags";
12829+
Ext_buffer.add_string buf " $pp_flags";
1283012830
(match has_reason_react_jsx, reason_react_jsx with
1283112831
| false, _
1283212832
| _, None -> ()
1283312833
| _, Some Jsx_v2
12834-
-> Buffer.add_string buf " -bs-jsx 2"
12834+
-> Ext_buffer.add_string buf " -bs-jsx 2"
1283512835
| _, Some Jsx_v3
12836-
-> Buffer.add_string buf " -bs-jsx 3"
12836+
-> Ext_buffer.add_string buf " -bs-jsx 3"
1283712837
);
1283812838
if has_ppx then
12839-
Buffer.add_string buf " $ppx_flags";
12840-
Buffer.add_string buf " $bsc_flags -o $out -bs-syntax-only -bs-binary-ast $in";
12841-
Buffer.contents buf
12839+
Ext_buffer.add_string buf " $ppx_flags";
12840+
Ext_buffer.add_string buf " $bsc_flags -o $out -bs-syntax-only -bs-binary-ast $in";
12841+
Ext_buffer.contents buf
1284212842
in
1284312843
let build_ast =
1284412844
define

‎lib/4.06.1/bsb_helper.ml

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -124,7 +124,7 @@ val length : t -> int
124124

125125
val is_empty : t -> bool
126126

127-
(* val clear : t -> unit *)
127+
val clear : t -> unit
128128
(** Empty the buffer. *)
129129

130130

@@ -242,7 +242,7 @@ let contents b = Bytes.sub_string b.buffer 0 b.position
242242

243243
let length b = b.position
244244
let is_empty b = b.position = 0
245-
(* let clear b = b.position <- 0 *)
245+
let clear b = b.position <- 0
246246

247247
(* let reset b =
248248
b.position <- 0; b.buffer <- b.initial_buffer;

‎lib/4.06.1/unstable/all_ounit_tests.ml

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -15973,7 +15973,7 @@ val length : t -> int
1597315973

1597415974
val is_empty : t -> bool
1597515975

15976-
(* val clear : t -> unit *)
15976+
val clear : t -> unit
1597715977
(** Empty the buffer. *)
1597815978

1597915979

@@ -16091,7 +16091,7 @@ let contents b = Bytes.sub_string b.buffer 0 b.position
1609116091

1609216092
let length b = b.position
1609316093
let is_empty b = b.position = 0
16094-
(* let clear b = b.position <- 0 *)
16094+
let clear b = b.position <- 0
1609516095

1609616096
(* let reset b =
1609716097
b.position <- 0; b.buffer <- b.initial_buffer;

‎lib/4.06.1/unstable/bsb_native.ml

Lines changed: 26 additions & 26 deletions
Original file line numberDiff line numberDiff line change
@@ -5920,7 +5920,7 @@ val length : t -> int
59205920

59215921
val is_empty : t -> bool
59225922

5923-
(* val clear : t -> unit *)
5923+
val clear : t -> unit
59245924
(** Empty the buffer. *)
59255925

59265926

@@ -6038,7 +6038,7 @@ let contents b = Bytes.sub_string b.buffer 0 b.position
60386038

60396039
let length b = b.position
60406040
let is_empty b = b.position = 0
6041-
(* let clear b = b.position <- 0 *)
6041+
let clear b = b.position <- 0
60426042

60436043
(* let reset b =
60446044
b.position <- 0; b.buffer <- b.initial_buffer;
@@ -12939,55 +12939,55 @@ let make_custom_rules
1293912939
builtin =
1294012940
(** FIXME: We don't need set [-o ${out}] when building ast
1294112941
since the default is already good -- it does not*)
12942-
let buf = Buffer.create 100 in
12942+
let buf = Ext_buffer.create 100 in
1294312943
let mk_ml_cmj_cmd
1294412944
~read_cmi
1294512945
~is_dev
1294612946
~postbuild : string =
12947-
Buffer.clear buf;
12948-
Buffer.add_string buf "$bsc $g_pkg_flg -color always";
12947+
Ext_buffer.clear buf;
12948+
Ext_buffer.add_string buf "$bsc $g_pkg_flg -color always";
1294912949
if bs_suffix then
12950-
Buffer.add_string buf " -bs-suffix";
12950+
Ext_buffer.add_string buf " -bs-suffix";
1295112951
if read_cmi then
12952-
Buffer.add_string buf " -bs-read-cmi";
12952+
Ext_buffer.add_string buf " -bs-read-cmi";
1295312953
if is_dev then
12954-
Buffer.add_string buf " $g_dev_incls";
12955-
Buffer.add_string buf " $g_lib_incls" ;
12954+
Ext_buffer.add_string buf " $g_dev_incls";
12955+
Ext_buffer.add_string buf " $g_lib_incls" ;
1295612956
if is_dev then
12957-
Buffer.add_string buf " $g_dpkg_incls";
12957+
Ext_buffer.add_string buf " $g_dpkg_incls";
1295812958
if not has_builtin then
12959-
Buffer.add_string buf " -nostdlib";
12960-
Buffer.add_string buf " $warnings $bsc_flags";
12959+
Ext_buffer.add_string buf " -nostdlib";
12960+
Ext_buffer.add_string buf " $warnings $bsc_flags";
1296112961
if has_gentype then
12962-
Buffer.add_string buf " $gentypeconfig";
12963-
Buffer.add_string buf " -o $out $in";
12962+
Ext_buffer.add_string buf " $gentypeconfig";
12963+
Ext_buffer.add_string buf " -o $out $in";
1296412964
if postbuild then
12965-
Buffer.add_string buf " $postbuild";
12966-
Buffer.contents buf
12965+
Ext_buffer.add_string buf " $postbuild";
12966+
Ext_buffer.contents buf
1296712967
in
1296812968
let mk_ast ~(has_pp : bool) ~has_ppx ~has_reason_react_jsx : string =
12969-
Buffer.clear buf ;
12970-
Buffer.add_string buf "$bsc $warnings -color always";
12969+
Ext_buffer.clear buf ;
12970+
Ext_buffer.add_string buf "$bsc $warnings -color always";
1297112971
(match refmt with
1297212972
| None -> ()
1297312973
| Some x ->
12974-
Buffer.add_string buf " -bs-refmt ";
12975-
Buffer.add_string buf (Ext_filename.maybe_quote x);
12974+
Ext_buffer.add_string buf " -bs-refmt ";
12975+
Ext_buffer.add_string buf (Ext_filename.maybe_quote x);
1297612976
);
1297712977
if has_pp then
12978-
Buffer.add_string buf " $pp_flags";
12978+
Ext_buffer.add_string buf " $pp_flags";
1297912979
(match has_reason_react_jsx, reason_react_jsx with
1298012980
| false, _
1298112981
| _, None -> ()
1298212982
| _, Some Jsx_v2
12983-
-> Buffer.add_string buf " -bs-jsx 2"
12983+
-> Ext_buffer.add_string buf " -bs-jsx 2"
1298412984
| _, Some Jsx_v3
12985-
-> Buffer.add_string buf " -bs-jsx 3"
12985+
-> Ext_buffer.add_string buf " -bs-jsx 3"
1298612986
);
1298712987
if has_ppx then
12988-
Buffer.add_string buf " $ppx_flags";
12989-
Buffer.add_string buf " $bsc_flags -o $out -bs-syntax-only -bs-binary-ast $in";
12990-
Buffer.contents buf
12988+
Ext_buffer.add_string buf " $ppx_flags";
12989+
Ext_buffer.add_string buf " $bsc_flags -o $out -bs-syntax-only -bs-binary-ast $in";
12990+
Ext_buffer.contents buf
1299112991
in
1299212992
let build_ast =
1299312993
define

‎lib/4.06.1/unstable/js_compiler.ml

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -68183,7 +68183,7 @@ val length : t -> int
6818368183

6818468184
val is_empty : t -> bool
6818568185

68186-
(* val clear : t -> unit *)
68186+
val clear : t -> unit
6818768187
(** Empty the buffer. *)
6818868188

6818968189

@@ -68301,7 +68301,7 @@ let contents b = Bytes.sub_string b.buffer 0 b.position
6830168301

6830268302
let length b = b.position
6830368303
let is_empty b = b.position = 0
68304-
(* let clear b = b.position <- 0 *)
68304+
let clear b = b.position <- 0
6830568305

6830668306
(* let reset b =
6830768307
b.position <- 0; b.buffer <- b.initial_buffer;

‎lib/4.06.1/unstable/js_refmt_compiler.ml

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -68183,7 +68183,7 @@ val length : t -> int
6818368183

6818468184
val is_empty : t -> bool
6818568185

68186-
(* val clear : t -> unit *)
68186+
val clear : t -> unit
6818768187
(** Empty the buffer. *)
6818868188

6818968189

@@ -68301,7 +68301,7 @@ let contents b = Bytes.sub_string b.buffer 0 b.position
6830168301

6830268302
let length b = b.position
6830368303
let is_empty b = b.position = 0
68304-
(* let clear b = b.position <- 0 *)
68304+
let clear b = b.position <- 0
6830568305

6830668306
(* let reset b =
6830768307
b.position <- 0; b.buffer <- b.initial_buffer;

‎lib/4.06.1/whole_compiler.ml

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -352017,7 +352017,7 @@ val length : t -> int
352017352017

352018352018
val is_empty : t -> bool
352019352019

352020-
(* val clear : t -> unit *)
352020+
val clear : t -> unit
352021352021
(** Empty the buffer. *)
352022352022

352023352023

@@ -352135,7 +352135,7 @@ let contents b = Bytes.sub_string b.buffer 0 b.position
352135352135

352136352136
let length b = b.position
352137352137
let is_empty b = b.position = 0
352138-
(* let clear b = b.position <- 0 *)
352138+
let clear b = b.position <- 0
352139352139

352140352140
(* let reset b =
352141352141
b.position <- 0; b.buffer <- b.initial_buffer;

0 commit comments

Comments
 (0)