From: David Scott Date: Fri, 25 Sep 2009 13:05:05 +0000 (+0100) Subject: [CAPRI]: add (C)opyright notice and LGPL with static linking exception to .ml and... X-Git-Url: http://xenbits.xensource.com/gitweb?a=commitdiff_plain;h=c57acd8af4e736e86ffb16b89d936e9652f77e19;p=xcp%2Fxen-api-libs.git [CAPRI]: add (C)opyright notice and LGPL with static linking exception to .ml and .mli files. Signed-off-by: David Scott --- diff --git a/camldm/camldm.ml b/camldm/camldm.ml index d2c254a..2fe4169 100644 --- a/camldm/camldm.ml +++ b/camldm/camldm.ml @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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 dev = { device : string; offset : int64; diff --git a/camldm/camldm.mli b/camldm/camldm.mli index 43b4d10..6c24d56 100644 --- a/camldm/camldm.mli +++ b/camldm/camldm.mli @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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 dev = { device : string; offset : int64; } type stripety = { chunk_size : int64; dests : dev array; } type mapty = Linear of dev | Striped of stripety diff --git a/camldm/testcamldm.ml b/camldm/testcamldm.ml index d4be853..b856c0e 100644 --- a/camldm/testcamldm.ml +++ b/camldm/testcamldm.ml @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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. + *) open Camldm let _ = diff --git a/cdrom/cdrom.ml b/cdrom/cdrom.ml index 897e09c..46b14e4 100644 --- a/cdrom/cdrom.ml +++ b/cdrom/cdrom.ml @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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 cdrom_drive_status = | NO_INFO diff --git a/cdrom/cdrom.mli b/cdrom/cdrom.mli index 7fc59a2..20129b7 100644 --- a/cdrom/cdrom.mli +++ b/cdrom/cdrom.mli @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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 cdrom_drive_status = | NO_INFO | NO_DISC diff --git a/eventchn/eventchn.ml b/eventchn/eventchn.ml index 4f15c55..a2f9a16 100644 --- a/eventchn/eventchn.ml +++ b/eventchn/eventchn.ml @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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. + *) exception Error of string external init: unit -> Unix.file_descr = "stub_eventchn_init" diff --git a/eventchn/eventchn.mli b/eventchn/eventchn.mli index 649bc31..90add23 100644 --- a/eventchn/eventchn.mli +++ b/eventchn/eventchn.mli @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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. + *) exception Error of string external init : unit -> Unix.file_descr = "stub_eventchn_init" external notify : Unix.file_descr -> int -> unit = "stub_eventchn_notify" diff --git a/log/log.ml b/log/log.ml index cae1d94..a3435de 100644 --- a/log/log.ml +++ b/log/log.ml @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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. + *) open Printf open Threadext diff --git a/log/log.mli b/log/log.mli index a76e8b2..5658799 100644 --- a/log/log.mli +++ b/log/log.mli @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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. + *) exception Unknown_level of string type level = Debug | Info | Warn | Error diff --git a/log/logs.ml b/log/logs.ml index 0eba7ce..12555fc 100644 --- a/log/logs.ml +++ b/log/logs.ml @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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 keylogger = { diff --git a/log/syslog.ml b/log/syslog.ml index 039c128..697d933 100644 --- a/log/syslog.ml +++ b/log/syslog.ml @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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 level = Emerg | Alert | Crit | Err | Warning | Notice | Info | Debug type options = Cons | Ndelay | Nowait | Odelay | Perror | Pid diff --git a/mmap/mmap.ml b/mmap/mmap.ml index cc1661a..30c180d 100644 --- a/mmap/mmap.ml +++ b/mmap/mmap.ml @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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 diff --git a/mmap/mmap.mli b/mmap/mmap.mli index 458c497..457a5bf 100644 --- a/mmap/mmap.mli +++ b/mmap/mmap.mli @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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 diff --git a/rpc-light/examples/all_types.ml b/rpc-light/examples/all_types.ml index 804837a..da9c207 100644 --- a/rpc-light/examples/all_types.ml +++ b/rpc-light/examples/all_types.ml @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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 t = Foo of int | Bar of (int * float) with rpc type x = { diff --git a/rpc-light/pa_rpc.ml b/rpc-light/pa_rpc.ml index 0eebfcd..4f1c754 100644 --- a/rpc-light/pa_rpc.ml +++ b/rpc-light/pa_rpc.ml @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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. + *) (* -pp camlp4orf *) open Camlp4 diff --git a/rpc-light/rpc.ml b/rpc-light/rpc.ml index cb99ab1..1a06c62 100644 --- a/rpc-light/rpc.ml +++ b/rpc-light/rpc.ml @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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. + *) (* From http://www.xmlrpc.com/spec *) type t = | Int of int diff --git a/rpc-light/xmlrpc.ml b/rpc-light/xmlrpc.ml index 2d74624..1945a9a 100644 --- a/rpc-light/xmlrpc.ml +++ b/rpc-light/xmlrpc.ml @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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. + *) open Printf let debug = ref false diff --git a/rpc-light/xmlrpc.mli b/rpc-light/xmlrpc.mli index 3c7082c..0cc91ea 100644 --- a/rpc-light/xmlrpc.mli +++ b/rpc-light/xmlrpc.mli @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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. + *) exception Parse_error of string * string val to_string : Rpc.t -> string diff --git a/sha1/sha1.ml b/sha1/sha1.ml index cdd75b0..13722c6 100644 --- a/sha1/sha1.ml +++ b/sha1/sha1.ml @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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 ctx type t diff --git a/sha1/sha1sum.ml b/sha1/sha1sum.ml index 1a59942..8c0db51 100644 --- a/sha1/sha1sum.ml +++ b/sha1/sha1sum.ml @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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. + *) let channel chan len = let ctx = Sha1.init () and buf = String.create 4096 in diff --git a/stdext/arrayext.ml b/stdext/arrayext.ml index ab3d8a3..00b5094 100644 --- a/stdext/arrayext.ml +++ b/stdext/arrayext.ml @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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. + *) module Array = struct include Array (* Useful for vector addition. *) diff --git a/stdext/arrayext.mli b/stdext/arrayext.mli index b2f9d08..3f10861 100644 --- a/stdext/arrayext.mli +++ b/stdext/arrayext.mli @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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. + *) module Array : sig external length : 'a array -> int = "%array_length" diff --git a/stdext/bigbuffer.ml b/stdext/bigbuffer.ml index 37ff7a2..6a6fd4e 100644 --- a/stdext/bigbuffer.ml +++ b/stdext/bigbuffer.ml @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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 t = { mutable cells: string option array; diff --git a/stdext/bigbuffer.mli b/stdext/bigbuffer.mli index 1f541d7..50eb3b2 100644 --- a/stdext/bigbuffer.mli +++ b/stdext/bigbuffer.mli @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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 t val make : unit -> t val length : t -> int64 diff --git a/stdext/filenameext.ml b/stdext/filenameext.ml index 9eddbef..11f8c9f 100644 --- a/stdext/filenameext.ml +++ b/stdext/filenameext.ml @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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. + *) (** Makes a new file in the same directory as 'otherfile' *) let temp_file_in_dir otherfile = diff --git a/stdext/filenameext.mli b/stdext/filenameext.mli index b4e2a46..5529c39 100644 --- a/stdext/filenameext.mli +++ b/stdext/filenameext.mli @@ -1 +1,14 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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. + *) val temp_file_in_dir : string -> string diff --git a/stdext/fring.ml b/stdext/fring.ml index bb6d911..ad941c7 100644 --- a/stdext/fring.ml +++ b/stdext/fring.ml @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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 t = { size: int; mutable current: int; data: (float,Bigarray.float32_elt, Bigarray.c_layout) Bigarray.Array1.t ; } diff --git a/stdext/fring.mli b/stdext/fring.mli index 1c87585..d0af667 100644 --- a/stdext/fring.mli +++ b/stdext/fring.mli @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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 t = { size : int; mutable current : int; diff --git a/stdext/hashtblext.ml b/stdext/hashtblext.ml index 8d4ec74..bd156f9 100644 --- a/stdext/hashtblext.ml +++ b/stdext/hashtblext.ml @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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. + *) module Hashtbl = struct include Hashtbl let to_list tbl = diff --git a/stdext/hashtblext.mli b/stdext/hashtblext.mli index d628745..dae1d8a 100644 --- a/stdext/hashtblext.mli +++ b/stdext/hashtblext.mli @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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. + *) module Hashtbl : sig type ('a, 'b) t = ('a, 'b) Hashtbl.t diff --git a/stdext/listext.ml b/stdext/listext.ml index 3c21b25..7c59e82 100644 --- a/stdext/listext.ml +++ b/stdext/listext.ml @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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. + *) module List = struct include List (** Turn a list into a set *) diff --git a/stdext/listext.mli b/stdext/listext.mli index 1004fa9..64c81a0 100644 --- a/stdext/listext.mli +++ b/stdext/listext.mli @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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. + *) module List : sig val setify : 'a list -> 'a list diff --git a/stdext/opt.ml b/stdext/opt.ml index be2f5ca..92d6b51 100644 --- a/stdext/opt.ml +++ b/stdext/opt.ml @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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. + *) let iter f = function | Some x -> f x | None -> () diff --git a/stdext/opt.mli b/stdext/opt.mli index 17403b6..730c7f7 100644 --- a/stdext/opt.mli +++ b/stdext/opt.mli @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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. + *) val iter : ('a -> unit) -> 'a option -> unit val map : ('a -> 'b) -> 'a option -> 'b option val default : 'a -> 'a option -> 'a diff --git a/stdext/pervasiveext.ml b/stdext/pervasiveext.ml index d8d6fac..6db7189 100644 --- a/stdext/pervasiveext.ml +++ b/stdext/pervasiveext.ml @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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. + *) (** apply the clean_f function after fct function has been called. * Even if fct raises an exception, clean_f is applied *) diff --git a/stdext/pervasiveext.mli b/stdext/pervasiveext.mli index e10b51b..bedf46d 100644 --- a/stdext/pervasiveext.mli +++ b/stdext/pervasiveext.mli @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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. + *) val exnhook : (exn -> unit) option ref val finally : (unit -> 'a) -> (unit -> 'b) -> 'a val maybe_with_default : 'b -> ('a -> 'b) -> 'a option -> 'b diff --git a/stdext/qring.ml b/stdext/qring.ml index f604ca6..84c55b9 100644 --- a/stdext/qring.ml +++ b/stdext/qring.ml @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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 t = { sz: int; data: string; diff --git a/stdext/qring.mli b/stdext/qring.mli index a372eff..7708d85 100644 --- a/stdext/qring.mli +++ b/stdext/qring.mli @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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 t = { sz: int; data: string; diff --git a/stdext/range.ml b/stdext/range.ml index 5c0eace..5b36295 100644 --- a/stdext/range.ml +++ b/stdext/range.ml @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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 t = { l : int; u : int } let make l u = diff --git a/stdext/range.mli b/stdext/range.mli index 2e54201..0b78d64 100644 --- a/stdext/range.mli +++ b/stdext/range.mli @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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 t (** Make a range. *) diff --git a/stdext/ring.ml b/stdext/ring.ml index cbafdbe..06acc0e 100644 --- a/stdext/ring.ml +++ b/stdext/ring.ml @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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 'a t = { size: int; mutable current: int; data: 'a array; } diff --git a/stdext/ring.mli b/stdext/ring.mli index 64f5a7d..95afdd1 100644 --- a/stdext/ring.mli +++ b/stdext/ring.mli @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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 'a t = { size : int; mutable current : int; data : 'a array; } val make : int -> 'a -> 'a t val length : 'a t -> int diff --git a/stdext/stringext.ml b/stdext/stringext.ml index 8540acb..53b4943 100644 --- a/stdext/stringext.ml +++ b/stdext/stringext.ml @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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. + *) module String = struct include String let of_char c = String.make 1 c diff --git a/stdext/stringext.mli b/stdext/stringext.mli index 22a2d54..17c3a50 100644 --- a/stdext/stringext.mli +++ b/stdext/stringext.mli @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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. + *) module String : sig external length : string -> int = "%string_length" diff --git a/stdext/threadext.ml b/stdext/threadext.ml index 77dca06..aa3a77c 100644 --- a/stdext/threadext.ml +++ b/stdext/threadext.ml @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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. + *) module Mutex = struct include Mutex diff --git a/stdext/threadext.mli b/stdext/threadext.mli index 4caec98..89c052a 100644 --- a/stdext/threadext.mli +++ b/stdext/threadext.mli @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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. + *) module Mutex : sig type t = Mutex.t diff --git a/stdext/trie.ml b/stdext/trie.ml index 3423cbe..d0d26e5 100644 --- a/stdext/trie.ml +++ b/stdext/trie.ml @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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. + *) module Node = struct type ('a,'b) t = { diff --git a/stdext/trie.mli b/stdext/trie.mli index fd6140b..efc1797 100644 --- a/stdext/trie.mli +++ b/stdext/trie.mli @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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. + *) (** Basic Implementation of polymorphic tries (ie. prefix trees) *) type ('a, 'b) t diff --git a/stdext/unixext.ml b/stdext/unixext.ml index 6689cc8..a74d83b 100644 --- a/stdext/unixext.ml +++ b/stdext/unixext.ml @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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. + *) open Pervasiveext exception Unix_error of int diff --git a/stdext/unixext.mli b/stdext/unixext.mli index 0ff60d0..527173f 100644 --- a/stdext/unixext.mli +++ b/stdext/unixext.mli @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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. + *) external _exit : int -> unit = "unix_exit" val unlink_safe : string -> unit val mkdir_safe : string -> Unix.file_perm -> unit diff --git a/stdext/vIO.ml b/stdext/vIO.ml index 15d902f..6e51228 100644 --- a/stdext/vIO.ml +++ b/stdext/vIO.ml @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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. + *) exception End_of_file exception Timeout diff --git a/stdext/vIO.mli b/stdext/vIO.mli index cbb42fc..a313b00 100644 --- a/stdext/vIO.mli +++ b/stdext/vIO.mli @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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. + *) exception End_of_file exception Timeout diff --git a/tests/close_all_fds_except.ml b/tests/close_all_fds_except.ml index 00b1601..1de876a 100644 --- a/tests/close_all_fds_except.ml +++ b/tests/close_all_fds_except.ml @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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. + *) (** Test the close_all_fds_except *) diff --git a/tests/copy_file.ml b/tests/copy_file.ml index 3113004..0bb6d95 100644 --- a/tests/copy_file.ml +++ b/tests/copy_file.ml @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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. + *) (** Test the copy_file function *) diff --git a/tests/dotdot.ml b/tests/dotdot.ml index 9679176..3a33f1f 100644 --- a/tests/dotdot.ml +++ b/tests/dotdot.ml @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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. + *) (* test the "." and ".." removal code *) let table = [ diff --git a/tests/unlink.ml b/tests/unlink.ml index 706901d..6006ced 100644 --- a/tests/unlink.ml +++ b/tests/unlink.ml @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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. + *) (** Test the Unixext.safe_unlink function *) diff --git a/tests/watch_bug.ml b/tests/watch_bug.ml index e07f675..582085b 100644 --- a/tests/watch_bug.ml +++ b/tests/watch_bug.ml @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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. + *) diff --git a/uuid/uuid.ml b/uuid/uuid.ml index 89c4e30..83c84f4 100644 --- a/uuid/uuid.ml +++ b/uuid/uuid.ml @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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-safe UUIDs. *) (** Internally, a UUID is simply a string. *) diff --git a/uuid/uuid.mli b/uuid/uuid.mli index 106d787..7199a85 100644 --- a/uuid/uuid.mli +++ b/uuid/uuid.mli @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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-safe UUIDs. Probably need to refactor this; UUIDs are used in two places: 1. to uniquely name things across the cluster diff --git a/xb/op.ml b/xb/op.ml index b4e4e0c..ad9f2f7 100644 --- a/xb/op.ml +++ b/xb/op.ml @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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 operation = Debug | Directory | Read | Getperms | Watch | Unwatch | Transaction_start | Transaction_end | Introduce | Release | diff --git a/xb/packet.ml b/xb/packet.ml index 8e31ac3..2af6d96 100644 --- a/xb/packet.ml +++ b/xb/packet.ml @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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 t = { tid: int; diff --git a/xb/partial.ml b/xb/partial.ml index 7fb40e5..90644a0 100644 --- a/xb/partial.ml +++ b/xb/partial.ml @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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 pkt = { tid: int; diff --git a/xb/xb.ml b/xb/xb.ml index 54c605d..e414c6d 100644 --- a/xb/xb.ml +++ b/xb/xb.ml @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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. + *) module Op = struct include Op end module Packet = struct include Packet end diff --git a/xb/xb.mli b/xb/xb.mli index 6cbf0a8..5371357 100644 --- a/xb/xb.mli +++ b/xb/xb.mli @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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. + *) module Op: sig type operation = Op.operation = diff --git a/xb/xs_ring.ml b/xb/xs_ring.ml index fcac18a..d0e6fa2 100644 --- a/xb/xs_ring.ml +++ b/xb/xs_ring.ml @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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. + *) external read: Mmap.mmap_interface -> string -> int -> int = "ml_interface_read" external write: Mmap.mmap_interface -> string -> int -> int = "ml_interface_write" diff --git a/xc/xc.ml b/xc/xc.ml index e544e3f..8660e9d 100644 --- a/xc/xc.ml +++ b/xc/xc.ml @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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 domid = int diff --git a/xc/xc.mli b/xc/xc.mli index 0a2723b..cd0209e 100644 --- a/xc/xc.mli +++ b/xc/xc.mli @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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 domid = int type vcpuinfo = { online : bool; diff --git a/xml-light2/xml.ml b/xml-light2/xml.ml index 55f5c90..86572ba 100644 --- a/xml-light2/xml.ml +++ b/xml-light2/xml.ml @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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. + *) (* * 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 diff --git a/xml-light2/xml.mli b/xml-light2/xml.mli index 667158f..46bfb0e 100644 --- a/xml-light2/xml.mli +++ b/xml-light2/xml.mli @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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. + *) (** tree representation *) type xml = | Element of (string * (string * string) list * xml list) diff --git a/xs/queueop.ml b/xs/queueop.ml index afff43a..c2d9a76 100644 --- a/xs/queueop.ml +++ b/xs/queueop.ml @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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. + *) let data_concat ls = (String.concat "\000" ls) ^ "\000" let queue_path ty (tid: int) (path: string) con = diff --git a/xs/xs.ml b/xs/xs.ml index 41be21e..3c4534a 100644 --- a/xs/xs.ml +++ b/xs/xs.ml @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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 perms = Xsraw.perms type con = Xsraw.con diff --git a/xs/xs.mli b/xs/xs.mli index 44b01f2..f35939e 100644 --- a/xs/xs.mli +++ b/xs/xs.mli @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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. + *) exception Timeout diff --git a/xs/xsraw.ml b/xs/xsraw.ml index 58bab6f..a1cccbe 100644 --- a/xs/xsraw.ml +++ b/xs/xsraw.ml @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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. + *) exception Partial_not_empty exception Unexpected_packet of string diff --git a/xs/xsraw.mli b/xs/xsraw.mli index 00b090a..9a112bd 100644 --- a/xs/xsraw.mli +++ b/xs/xsraw.mli @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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. + *) exception Partial_not_empty exception Unexpected_packet of string exception Invalid_path of string diff --git a/xs/xst.ml b/xs/xst.ml index 8fb7d05..3f5b5dc 100644 --- a/xs/xst.ml +++ b/xs/xst.ml @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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 ops = { diff --git a/xs/xst.mli b/xs/xst.mli index 6bf57b5..f252be0 100644 --- a/xs/xst.mli +++ b/xs/xst.mli @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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 ops = { directory : string -> string list; read : string -> string; diff --git a/xsrpc/xsrpc.ml b/xsrpc/xsrpc.ml index 261707c..f29a794 100644 --- a/xsrpc/xsrpc.ml +++ b/xsrpc/xsrpc.ml @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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. + *) (* * everything RPC related stuff happens in : /local/domain//RPC diff --git a/xsrpc/xsrpc.mli b/xsrpc/xsrpc.mli index dcf899f..72c8279 100644 --- a/xsrpc/xsrpc.mli +++ b/xsrpc/xsrpc.mli @@ -1,3 +1,16 @@ +(* + * Copyright (C) 2006-2009 Citrix Systems Inc. + * + * 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 t