11(* Copyright (C) 2015-2016 Bloomberg Finance L.P.
2- *
2+ *
33 * This program is free software: you can redistribute it and/or modify
44 * it under the terms of the GNU Lesser General Public License as published by
55 * the Free Software Foundation, either version 3 of the License, or
1717 * but WITHOUT ANY WARRANTY; without even the implied warranty of
1818 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
1919 * GNU Lesser General Public License for more details.
20- *
20+ *
2121 * You should have received a copy of the GNU Lesser General Public License
2222 * along with this program; if not, write to the Free Software
2323 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
3131 callback is used that rethrows errors. To get a trace to the original call
3232 site, set the `NODE_DEBUG` environment variable:
3333*)
34- external readdirSync : string -> string array = " " @@ bs.module "fs" ]
34+ external readdirSync : string -> string array = " " @@ bs.module "fs" ]
3535
36- external renameSync : string -> string = " " @@ bs.module "fs" ]
36+ external renameSync : string -> string = " " @@ bs.module "fs" ]
3737
38- type fd = private int
38+ type fd = Node_fs2 .fd
3939
4040type path = string
4141(* *
4242 The relative path to a filename can be used. Remember, however, that this path
4343 will be relative to [process.cwd()].
44- *)
44+ *)
4545
46- module Watch = struct
47- type t
48- type config
46+ module Watch = struct
47+ type t = Node_fs2.Watch .t
48+ type config = Node_fs2.Watch .config
4949 external config :
5050 ?persistent: bool ->
51- ?recursive: bool ->
52- ?encoding: Js_string .t ->
53- unit -> config =
51+ ?recursive: bool ->
52+ ?encoding: Js_string .t ->
53+ unit -> config =
5454 "" [@@ bs.obj]
5555
5656 external watch :
57- string ->
58- ?config:config ->
59- unit ->
60- t = ""
57+ string ->
58+ ?config:config ->
59+ unit ->
60+ t = ""
6161 [@@ bs.module "fs" ]
62- (* * there is no need to accept listener, since we return a [watcher]
62+ (* * there is no need to accept listener, since we return a [watcher]
6363 back it can register event listener there .
64- Currently we introduce a type [string_buffer], for the
65- [filename], it will be [Buffer] when the encoding is `utf8.
66- This is dependent type which can be tracked by GADT in some way,
64+ Currently we introduce a type [string_buffer], for the
65+ [filename], it will be [Buffer] when the encoding is `utf8.
66+ This is dependent type which can be tracked by GADT in some way,
6767 but to make things simple, let's just introduce an or type
6868 *)
6969 external on :
7070 ([
7171 `change of (string (* eventType*) Node .string_buffer (* filename *) unit [@ bs])
7272 | `error of (unit -> unit [@ bs])
7373 ] [@ bs.string ]
74- ) -> t = ""
74+ ) -> t = ""
7575 [@@ bs.send.pipe: t ]
7676
7777
7878 external close : unit = " " @@ bs.send.pipe:t]
7979end
8080
81- external ftruncateSync : fd -> int -> unit = " " @@ bs.module "fs" ]
81+ external ftruncateSync : fd -> int -> unit = " " @@ bs.module "fs" ]
8282
83- external truncateSync : string -> int -> unit = " " @@ bs.module "fs" ]
83+ external truncateSync : string -> int -> unit = " " @@ bs.module "fs" ]
8484
85- external chownSync : string -> uid :int -> gid :int -> unit = " " @@ bs.module "fs" ]
85+ external chownSync : string -> uid :int -> gid :int -> unit = " " @@ bs.module "fs" ]
8686
87- external fchownSync : fd -> uid :int -> gid :int -> unit = " " @@ bs.module "fs" ]
87+ external fchownSync : fd -> uid :int -> gid :int -> unit = " " @@ bs.module "fs" ]
8888
8989external readlinkSync : string -> string = " " @@ bs.module "fs" ]
9090
@@ -93,7 +93,7 @@ external unlinkSync : string -> unit = "" [@@bs.module "fs"]
9393external rmdirSync : string -> unit = " " @@ bs.module "fs" ]
9494
9595(* TODO: [flags] support *)
96- external openSync :
96+ external openSync :
9797 path ->
9898 (
9999 [ `Read [@ bs.as "r" ]
@@ -111,29 +111,29 @@ external openSync :
111111 unit = " " @@ bs.module "fs" ]
112112
113113
114- external readFileSync :
114+ external readFileSync :
115115 string ->
116- (
116+ (
117117 [
118118 `hex
119119 | `utf8
120- | `ascii
120+ | `ascii
121121 | `latin1
122- | `base64
122+ | `base64
123123 | `ucs2
124124 | `base64
125- | `binary
125+ | `binary
126126 | `utf16le ][@ bs.string ]) ->
127- string = " readFileSync"
127+ string = " readFileSync"
128128[@@ bs.val] [@@ bs.module "fs" ]
129129
130- external readFileAsUtf8Sync :
131- string -> (_ [@ bs.as "utf8" ]) ->
130+ external readFileAsUtf8Sync :
131+ string -> (_ [@ bs.as "utf8" ]) ->
132132 string = " readFileSync"
133- [@@ bs.val] [@@ bs.module "fs" ]
133+ [@@ bs.val] [@@ bs.module "fs" ]
134134
135135external existsSync : string -> bool = " "
136- [@@ bs.val] [@@ bs.module "fs" ]
136+ [@@ bs.val] [@@ bs.module "fs" ]
137137
138138external writeFileSync :
139139 string ->
0 commit comments