-(*
- * Copyright (c) 2006-2007 XenSource Inc.
- * Author Vincent Hanquez <vincent@xensource.com>
- *
- * All rights reserved.
- *)
-
exception Error of string
external init: unit -> Unix.file_descr = "stub_eventchn_init"
-/*
- * Copyright (c) 2006-2007 XenSource Inc.
- * Author Vincent Hanquez <vincent@xensource.com>
- *
- * All rights reserved.
- */
-
#ifdef WITH_INJECTION_CAPABILITY
#include "../fake/marshall.h"
#include "../fake/using.h"
-/*
- * Copyright (c) 2006-2007 XenSource Inc.
- * Author Vincent Hanquez <vincent@xensource.com>
- *
- * All rights reserved.
- */
-
#include <sys/types.h>
#include <sys/stat.h>
#include <fcntl.h>
-/*
- * Copyright (c) 2007 XenSource Inc.
- * Author Vincent Hanquez <vincent@xensource.com>
- */
#ifndef FAKE_MARSHALL_H
#define FAKE_MARSHALL_H
-/*
- * Copyright (c) 2007 XenSource Inc.
- * Author Vincent Hanquez <vincent@xensource.com>
- *
- * All rights reserved.
- */
#ifndef FAKE_USING_H
#define FAKE_USING_H
-(*
- * Copyright (C) 2006 XenSource LTD
- * Author: Vincent Hanquez <vincent@xensource.com>
- *)
open Printf
open Threadext
-(*
- * Copyright (C) 2006-2007 XenSource LTD
- * Author: Vincent Hanquez <vincent@xensource.com>
- *)
type keylogger =
{
-(*
- * Copyright (C) 2006 XenSource Ltd.
- * Author Vincent Hanquez <vincent@xensource.com>
- *)
type level = Emerg | Alert | Crit | Err | Warning | Notice | Info | Debug
type options = Cons | Ndelay | Nowait | Odelay | Perror | Pid
-/*
- * Copyright (C) 2006 XenSource Ltd.
- * Author Vincent Hanquez <vincent@xensource.com>
- */
#include <syslog.h>
#include <caml/mlvalues.h>
-(*
- * Copyright (c) 2006 XenSource Inc.
- * Author Vincent Hanquez <vincent@xensource.com>
- *
- * All rights reserved.
- *)
type mmap_interface
-/**
- * Copyright (c) 2006 XenSource Inc.
- * Author Vincent Hanquez <vincent@xensource.com>
- *
- * All rights reserved.
- */
#include <unistd.h>
#include <stdlib.h>
-/**
- * Copyright (c) 2006 XenSource Inc.
- * Author Vincent Hanquez <vincent@xensource.com>
- *
- * All rights reserved.
- */
#ifndef C_MMAP_H
#define C_MMAP_H
-(*
- * Copyright (C) 2007 XenSource Ltd.
- * Author Vincent Hanquez <vincent@xensource.com>
- *)
type ctx
type t
-/* Copyright (c) 2007 XenSource Inc.
- * Author Vincent Hanquez <vincent@xensource.com> */
#include <stdlib.h>
#include <string.h>
-(* Copyright (C) 2007 XenSource Ltd.
- * Author Vincent Hanquez <vincent@xensource.com>
- *)
let channel chan len =
let ctx = Sha1.init ()
and buf = String.create 4096 in
-(*
- * Copyright (C) 2007 XenSource Ltd.
- * Author Vincent Hanquez <vincent@xensource.com>
- *)
type t = {
mutable cells: string option array;
-(*
- * Copyright (c) 2006-2008 Citrix Systems Ltd.
- * Authors Vincent Hanquez <vincent@xensource.com>
- * Thomas Gazagnaire <thomas.gazagnaire@citrix.com>
- * All rights reserved.
- *)
type t = { size: int; mutable current: int; data: (float,Bigarray.float32_elt, Bigarray.c_layout) Bigarray.Array1.t ; }
-(*
- * Copyright 2008 Citrix Ltd.
- * Author Vincent Hanquez <vincent.hanquez@eu.citrix.com>
- *
- * efficient circular string queue
- *)
type t = {
sz: int;
data: string;
-(*
- * Copyright (c) 2006 XenSource Ltd.
- * Author Vincent Hanquez <vincent@xensource.com>
- *
- * All rights reserved.
- *)
type 'a t = { size: int; mutable current: int; data: 'a array; }
-(*
- * Copyright (C) 2006 XenSource Ltd.
- * Author: Vincent Hanquez <vincent@xensource.com>
- * Author: Anil Madhavapeddy <anil@xensource.com>
- *)
module Mutex = struct
include Mutex
-(*
- * Copyright (C) 2008 Citrix Ltd.
- * Author Vincent Hanquez <vincent@xensource.com>
- *)
exception End_of_file
exception Timeout
-(*
- * Copyright (c) 2006 XenSource Inc.
- * Author Vincent Hanquez <vincent@xensource.com>
- *
- *)
-
type operation = Debug | Directory | Read | Getperms |
Watch | Unwatch | Transaction_start |
Transaction_end | Introduce | Release |
-(*
- * Copyright (c) 2006 XenSource Inc.
- * Author Vincent Hanquez <vincent@xensource.com>
- *
- * All rights reserved.
- *)
-
type t =
{
tid: int;
String.sub pkt.data 0 (l - 1)
else
pkt.data
-let get_rid pkt = pkt.rid
\ No newline at end of file
+let get_rid pkt = pkt.rid
-(*
- * Copyright (c) 2006 XenSource Inc.
- * Author Vincent Hanquez <vincent@xensource.com>
- *
- * All rights reserved.
- *)
-
type pkt =
{
tid: int;
-(*
- * Copyright (c) 2006 XenSource Inc.
- * Author Vincent Hanquez <vincent@xensource.com>
- *
- * All rights reserved.
- *)
-
module Op = struct include Op end
module Packet = struct include Packet end
-/*
- * Copyright (c) 2006 XenSource Inc.
- * Author Vincent Hanquez <vincent@xensource.com>
- *
- * All rights reserved.
- */
-
#include <unistd.h>
#include <stdlib.h>
#include <sys/mman.h>
-(*
- * Copyright (c) 2006 XenSource Inc.
- * Author Vincent Hanquez <vincent@xensource.com>
- *
- * All rights reserved.
- *)
external read: Mmap.mmap_interface -> string -> int -> int = "ml_interface_read"
external write: Mmap.mmap_interface -> string -> int -> int = "ml_interface_write"
-/*
- * Copyright (c) 2006 XenSource Inc.
- * Author Vincent Hanquez <vincent@xensource.com>
- *
- * All rights reserved.
- */
-
#include <sys/types.h>
#include <sys/stat.h>
#include <fcntl.h>
-/*
- * Copyright (c) 2006 XenSource Inc.
- * Author Vincent Hanquez <vincent@xensource.com>
- */
#define __XEN_TOOLS__
-(*
- * Copyright (C) 2006-2007 XenSource Ltd.
- * Author Vincent Hanquez <vincent@xensource.com>
- *)
(** *)
type domid = int
-/*
- * Copyright (c) 2006-2007 XenSource Inc.
- * Author Vincent Hanquez <vincent@xensource.com>
- */
#include <stdint.h>
#include <unistd.h>
-/*
- * Copyright (c) 2007 XenSource Inc.
- * Author Vincent Hanquez <vincent@xensource.com>
- */
#ifdef WITH_INJECTION_CAPABILITY
#include "../fake/using.h"
-/* Copyright (c) 2005-2006 XenSource Inc. */
#define _XOPEN_SOURCE 600
#include <stdlib.h>
(*
- * Copyright (c) 2007 XenSource Ltd.
- * Author Vincent Hanquez <vincent@xensource.com>
- *
* This is a replacement interface for xml-light that use the superior xmlm
* engine to parse stuff. Also the output functions SKIP characters that are
* not allowed in XML.
-(*
- * Copyright (c) 2006 XenSource Inc.
- * Author Vincent Hanquez <vincent@xensource.com>
- *
- * All rights reserved.
- *)
let data_concat ls = (String.concat "\000" ls) ^ "\000"
let queue_path ty (tid: int) (path: string) con =
-(*
- * Copyright (c) 2006 XenSource Inc.
- * Author Vincent Hanquez <vincent@xensource.com>
- *
- * All rights reserved.
- *)
type perms = Xsraw.perms
type con = Xsraw.con
-(*
- * Copyright (c) 2006 XenSource Inc.
- * Author Vincent Hanquez <vincent@xensource.com>
- *
- * All rights reserved.
- *)
exception Timeout
-(*
- * Copyright (c) 2006 XenSource Inc.
- * Author Vincent Hanquez <vincent@xensource.com>
- *
- * All rights reserved.
- *)
exception Partial_not_empty
exception Unexpected_packet of string
-(*
- * Copyright (c) 2006 XenSource Inc.
- * Author Vincent Hanquez <vincent@xensource.com>
- *
- * All rights reserved.
- *)
type ops =
{
-(*
- * Copyright (C) 2008 Citrix Ltd.
- * Author Vincent Hanquez <vincent@xensource.com>
- *
- * Xenstore RPC
- *)
(*
* everything RPC related stuff happens in : /local/domain/<domid>/RPC
-(*
- * Copyright (C) 2008 Citrix Ltd.
- * Author Vincent Hanquez <vincent@xensource.com>
- *
- *)
type t