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
|
--- ocamlnet-3.5.1.orig/src/netsys/netsys_posix.ml 2011-10-12 14:09:05.000000000 +0200
+++ ocamlnet-3.5.1/src/netsys/netsys_posix.ml 2012-01-12 19:33:39.000000000 +0100
@@ -412,9 +412,11 @@
type at_flag = AT_EACCESS | AT_SYMLINK_NOFOLLOW | AT_REMOVEDIR
(* The stubs assume these type definitions: *)
+(* In fact, they don't: they assume OCaml's stdlib definition
type open_flag1 = Unix.open_flag =
O_RDONLY | O_WRONLY | O_RDWR | O_NONBLOCK | O_APPEND | O_CREAT | O_TRUNC
| O_EXCL | O_NOCTTY | O_DSYNC | O_SYNC | O_RSYNC
+*)
type access_permission1 = Unix.access_permission =
R_OK | W_OK | X_OK | F_OK
--- ocamlnet-3.5.1.orig/src/netstring/Makefile.def 2012-02-29 19:02:52.000000000 +0100
+++ ocamlnet-3.5.1/src/netstring/Makefile.def 2012-05-25 16:59:56.000000000 +0200
@@ -13,7 +13,7 @@
PKGNAME = netstring
REQUIRES = $(REGEXP_PROVIDER) bigarray
-INCLUDES += $(INC_NETSYS)
+INCLUDES += $(INC_NETSYS) -I +compiler-libs
ISO_MAPPINGS = mappings/iso*.unimap
JP_MAPPINGS = mappings/jis*.*map
--- ocamlnet-3.5.1.orig/src/pop/netpop.ml 2012-02-29 19:02:53.000000000 +0100
+++ ocamlnet-3.5.1/src/pop/netpop.ml 2013-06-20 14:06:11.000000000 +0200
@@ -231,6 +231,7 @@
status_response ic parse_line (Hashtbl.create 1)
with _ -> raise Protocol_error
+(*
method stat () =
self#check_state `Transaction;
send_command oc "STAT";
@@ -242,4 +243,5 @@
(count, size, ext)
)
with _ -> raise Protocol_error;
+*)
end
|
