mirror of
https://github.com/xen-project/xen.git
synced 2026-10-29 18:50:05 +01:00
Jon Ludlam
7ceaa0c744
ocamlfind does not support namespaces, so to avoid name clashes the module names have become longer. Additionally, the xenstore and xenbus subdirs, which contain several modules each, have been packed into toplevel Xenstore and Xenbus modules. xb becomes xenbus, xc becomes xenctrl, xl becomes xenlight, xs becomes xenstore, eventchn becomes xeneventchn and mmap becomes xenmmap. [ Patch modified from that submitted, to update the .hgignore, and to cope with intervening changes to mmap_stubs.c -iwj ] Signed-off-by: Jon Ludlam <jonathan.ludlam@eu.citrix.com> Acked-by: Ian Campbell <ian.campbell@citrix.com> Signed-off-by: Ian Jackson <ian.jackson@eu.citrix.com> Committed-by: Ian Jackson <ian.jackson@eu.citrix.com>
29 lines
1.2 KiB
OCaml
29 lines
1.2 KiB
OCaml
(*
|
|
* Copyright (C) 2006-2007 XenSource Ltd.
|
|
* Copyright (C) 2008 Citrix Ltd.
|
|
* Author Vincent Hanquez <vincent.hanquez@eu.citrix.com>
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU Lesser General Public License as published
|
|
* by the Free Software Foundation; version 2.1 only. with the special
|
|
* exception on linking described in file LICENSE.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU Lesser General Public License for more details.
|
|
*)
|
|
|
|
type mmap_interface
|
|
type mmap_prot_flag = RDONLY | WRONLY | RDWR
|
|
type mmap_map_flag = SHARED | PRIVATE
|
|
|
|
external mmap : Unix.file_descr -> mmap_prot_flag -> mmap_map_flag -> int -> int
|
|
-> mmap_interface = "stub_mmap_init"
|
|
external unmap : mmap_interface -> unit = "stub_mmap_final"
|
|
external read : mmap_interface -> int -> int -> string = "stub_mmap_read"
|
|
external write : mmap_interface -> string -> int -> int -> unit
|
|
= "stub_mmap_write"
|
|
|
|
external getpagesize : unit -> int = "stub_mmap_getpagesize"
|