1(* 2 * Copyright (C) 2006-2007 XenSource Ltd. 3 * Copyright (C) 2008 Citrix Ltd. 4 * Author Vincent Hanquez <vincent.hanquez@eu.citrix.com> 5 * 6 * This program is free software; you can redistribute it and/or modify 7 * it under the terms of the GNU Lesser General Public License as published 8 * by the Free Software Foundation; version 2.1 only. with the special 9 * exception on linking described in file LICENSE. 10 * 11 * This program is distributed in the hope that it will be useful, 12 * but WITHOUT ANY WARRANTY; without even the implied warranty of 13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14 * GNU Lesser General Public License for more details. 15 *) 16type ops = { 17 directory : string -> string list; 18 read : string -> string; 19 readv : string -> string list -> string list; 20 write : string -> string -> unit; 21 writev : string -> (string * string) list -> unit; 22 mkdir : string -> unit; 23 rm : string -> unit; 24 getperms : string -> Xsraw.perms; 25 setperms : string -> Xsraw.perms -> unit; 26 setpermsv : string -> string list -> Xsraw.perms -> unit; 27} 28 29val get_operations : int -> Xsraw.con -> ops 30val transaction : Xsraw.con -> (ops -> 'a) -> 'a 31