Source file Fuse_bindings.ml
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
type fuse
and str = string
and fuse_operation_names = {
init: string option;
getattr: string option;
readlink: string option;
readdir: string option;
opendir: string option;
releasedir: string option;
fsyncdir: string option;
mknod: string option;
mkdir: string option;
unlink: string option;
rmdir: string option;
symlink: string option;
rename: string option;
link: string option;
chmod: string option;
chown: string option;
truncate: string option;
utime: string option;
fopen: string option;
read: string option;
write: string option;
statfs: string option;
flush: string option;
release: string option;
fsync: string option;
setxattr: string option;
getxattr: string option;
listxattr: string option;
removexattr: string option;
}
and __fuse_context = {
fuse: fuse Com.opaque;
uid: int;
gid: int;
pid: int;
}
type fuse_operations
type fuse_cmd
external fuse_get_context : unit -> __fuse_context
= "camlidl_Fuse_bindings_fuse_get_context"
external get_fuse_operations : unit -> fuse_operations Com.opaque
= "camlidl_Fuse_bindings_get_fuse_operations"
external set_fuse_operations : fuse_operation_names -> unit
= "camlidl_Fuse_bindings_set_fuse_operations"
external fuse_read_cmd : fuse Com.opaque -> fuse_cmd Com.opaque
= "camlidl_Fuse_bindings_fuse_read_cmd"
external fuse_process_cmd : fuse Com.opaque -> fuse_cmd Com.opaque -> unit
= "camlidl_Fuse_bindings_fuse_process_cmd"
external ml_fuse_init : unit -> unit
= "camlidl_Fuse_bindings_ml_fuse_init"
external ml_fuse_main : str array -> fuse_operations Com.opaque -> unit
= "camlidl_Fuse_bindings_ml_fuse_main"
external fuse_exited : fuse Com.opaque -> bool
= "camlidl_Fuse_bindings_fuse_exited"