Chris_T avatar Chris_T committed a4409f0 Merge

Comments (0)

Files changed (12)

 5a29614b7f348d580eeea57f542f062bf10a008e release-7.0.2
 9f63f2c3bd94dc1caa1778abf25af46e66549ab4 release-7.0.3
 33612f39b9feabe8be37e3baac91cf2f7dc3df3a release-7.0.4
+f7258fee144edeca587451a283a28fd28ae569e0 release-7.0.5
+14d313607a2f249cd102ae01d66154680d62619b release-7.0.6
+2012-12-20:  Fixed a bug in vector functions concerning the handling of
+             offsets and increments.  Minor fixes and cleanups.  Documentation
+             improvements.
+
 2012-11-09:  Added new functions:
 
                * Vec.{reci,exp,log,sin,cos}  (currently for real numbers only)
 OASISFormat:      0.3
 Name:             lacaml
-Version:          7.0.4
+Version:          7.0.6
 Synopsis:         OCaml-bindings to BLAS and LAPACK.
 Description:      This library interfaces the BLAS-library (Basic Linear Algebra Subroutines) and LAPACK-library (Linear Algebra routines), which are written in FORTRAN.
 Authors:          Egbert Ammicht <eammicht@lucent.com>,
 # OASIS_START
-# DO NOT EDIT (digest: c4321bd2788972728bc42a0d08fb43fc)
-version = "7.0.4"
+# DO NOT EDIT (digest: 7425d6128200e931069ebd705c1145ef)
+version = "7.0.6"
 description = "OCaml-bindings to BLAS and LAPACK."
 requires = "bigarray"
 archive(byte) = "lacaml.cma"
 archive(native, plugin) = "lacaml.cmxs"
 exists_if = "lacaml.cma"
 package "top" (
- version = "7.0.4"
+ version = "7.0.6"
  description = "Toplevel module for Lacaml."
  requires = "lacaml"
  archive(byte) = "lacaml_top.cma"

lib/lacaml_SDCZ.mli

   include module type of Common
 end
 
+(** Utility functions *)
+module Utils : sig
+  include module type of Utils
+end
+
 (** Double precision real BLAS and LAPACK functions. *)
 module D : sig
   include module type of D
 let mvec_of_array ar =
   let n = Array.length ar in
   let mat = create_mvec n in
-  if n <> 0 then
-    for row = 1 to n do mat.{row, 1} <- ar.(row - 1) done;
+  for row = 1 to n do mat.{row, 1} <- ar.(row - 1) done;
   mat
 
 let dim1 (mat : mat) = Array2.dim1 mat
 let dim2 (mat : mat) = Array2.dim2 mat
 
 let mvec_to_array mat =
-  let n = dim1 mat in
-  if n = 0 then [||]
+  if dim2 mat <> 1 then failwith "mvec_to_array: more than one column"
   else
-    let ar = Array.make n mat.{1, 1} in
-    for row = 2 to n do ar.(row - 1) <- mat.{row, 1} done;
-    ar
+    let n = dim1 mat in
+    if n = 0 then [||]
+    else
+      let ar = Array.make n mat.{1, 1} in
+      for row = 2 to n do ar.(row - 1) <- mat.{row, 1} done;
+      ar
 
 let from_col_vec vec = reshape_2 (genarray_of_array1 vec) (Array1.dim vec) 1
 let from_row_vec vec = reshape_2 (genarray_of_array1 vec) 1 (Array1.dim vec)
   let min_dim = ofs + (min_elem - 1) * abs inc in
   match vec with
   | Some vec -> check_vec loc vec_name vec min_dim; vec
-  | _ -> vec_create min_dim
+  | None -> vec_create min_dim
 
 let check_dim1_mat loc mat_name mat mat_r m_name m =
   let dim1 = Array2.dim1 mat in
   if rnd_state = None then Random.set_state state;
   vec
 
-let get_y_params ~loc ~ofsy ~incy ~n y =
-  let min_dim_y = ofsy + (n - 1) * abs incy in
-  match y with
-  | Some y -> check_vec loc y_str y min_dim_y; y, ofsy, incy
-  | None -> create min_dim_y, 1, 1
+let get_y_vec ~loc ~ofsy ~incy ~n y = get_vec loc y_str y ofsy incy n create
 
 external direct_reci :
   n : int ->
   let ofsx, incx = get_vec_geom vec_reci_loc x_str ofsx incx in
   let ofsy, incy = get_vec_geom vec_reci_loc y_str ofsy incy in
   let n = get_dim_vec vec_reci_loc x_str ofsx incx x n_str n in
-  let y, ofsy, incy = get_y_params ~loc:vec_reci_loc ~ofsy ~incy ~n y in
+  let y = get_y_vec ~loc:vec_reci_loc ~ofsy ~incy ~n y in
   direct_reci ~n ~ofsy ~incy ~y ~ofsx ~incx ~x;
   y
 
   let ofsx, incx = get_vec_geom vec_sqr_loc x_str ofsx incx in
   let ofsy, incy = get_vec_geom vec_sqr_loc y_str ofsy incy in
   let n = get_dim_vec vec_sqr_loc x_str ofsx incx x n_str n in
-  let y, ofsy, incy = get_y_params ~loc:vec_sqr_loc ~ofsy ~incy ~n y in
+  let y = get_y_vec ~loc:vec_sqr_loc ~ofsy ~incy ~n y in
   direct_sqr ~n ~ofsy ~incy ~y ~ofsx ~incx ~x;
   y
 
   let ofsx, incx = get_vec_geom vec_sqrt_loc x_str ofsx incx in
   let ofsy, incy = get_vec_geom vec_sqrt_loc y_str ofsy incy in
   let n = get_dim_vec vec_sqrt_loc x_str ofsx incx x n_str n in
-  let y, ofsy, incy = get_y_params ~loc:vec_sqrt_loc ~ofsy ~incy ~n y in
+  let y = get_y_vec ~loc:vec_sqrt_loc ~ofsy ~incy ~n y in
   direct_sqrt ~n ~ofsy ~incy ~y ~ofsx ~incx ~x;
   y
 
   let ofsx, incx = get_vec_geom vec_exp_loc x_str ofsx incx in
   let ofsy, incy = get_vec_geom vec_exp_loc y_str ofsy incy in
   let n = get_dim_vec vec_exp_loc x_str ofsx incx x n_str n in
-  let y, ofsy, incy = get_y_params ~loc:vec_exp_loc ~ofsy ~incy ~n y in
+  let y = get_y_vec ~loc:vec_exp_loc ~ofsy ~incy ~n y in
   direct_exp ~n ~ofsy ~incy ~y ~ofsx ~incx ~x;
   y
 
   let ofsx, incx = get_vec_geom vec_log_loc x_str ofsx incx in
   let ofsy, incy = get_vec_geom vec_log_loc y_str ofsy incy in
   let n = get_dim_vec vec_log_loc x_str ofsx incx x n_str n in
-  let y, ofsy, incy = get_y_params ~loc:vec_log_loc ~ofsy ~incy ~n y in
+  let y = get_y_vec ~loc:vec_log_loc ~ofsy ~incy ~n y in
   direct_log ~n ~ofsy ~incy ~y ~ofsx ~incx ~x;
   y
 
   let ofsx, incx = get_vec_geom vec_sin_loc x_str ofsx incx in
   let ofsy, incy = get_vec_geom vec_sin_loc y_str ofsy incy in
   let n = get_dim_vec vec_sin_loc x_str ofsx incx x n_str n in
-  let y, ofsy, incy = get_y_params ~loc:vec_sin_loc ~ofsy ~incy ~n y in
+  let y = get_y_vec ~loc:vec_sin_loc ~ofsy ~incy ~n y in
   direct_sin ~n ~ofsy ~incy ~y ~ofsx ~incx ~x;
   y
 
   let ofsx, incx = get_vec_geom vec_cos_loc x_str ofsx incx in
   let ofsy, incy = get_vec_geom vec_cos_loc y_str ofsy incy in
   let n = get_dim_vec vec_cos_loc x_str ofsx incx x n_str n in
-  let y, ofsy, incy = get_y_params ~loc:vec_cos_loc ~ofsy ~incy ~n y in
+  let y = get_y_vec ~loc:vec_cos_loc ~ofsy ~incy ~n y in
   direct_cos ~n ~ofsy ~incy ~y ~ofsx ~incx ~x;
   y
   let ofsy, incy = get_vec_geom vec_map_str y_str ofsy incy in
   let n = get_dim_vec vec_map_str x_str ofsx incx x n_str n in
   let min_dim_y = ofsy + (n - 1) * abs incy in
-  let y, ofsy, incy =
+  let y =
     match y with
-    | Some y -> check_vec vec_map_str y_str y min_dim_y; y, ofsy, incy
-    | None -> create min_dim_y, 1, 1
+    | Some y -> check_vec vec_map_str y_str y min_dim_y; y
+    | None -> create min_dim_y
   in
   let i_ref, last_i = get_i_ref_last ~incx ~ofsx ~n in
   let j_ref = ref (if incy > 0 then ofsy else min_dim_y) in
 
 let vec_neg_str = "Vec.neg"
 
+let get_y_vec ~loc ~ofsy ~incy ~n y = get_vec loc y_str y ofsy incy n create
+
 let neg ?n ?ofsy ?incy ?y ?ofsx ?incx x =
   let ofsx, incx = get_vec_geom vec_neg_str x_str ofsx incx in
   let ofsy, incy = get_vec_geom vec_neg_str y_str ofsy incy in
   let n = get_dim_vec vec_neg_str x_str ofsx incx x n_str n in
-  let y, ofsy, incy =
-    let min_dim_y = ofsy + (n - 1) * abs incy in
-    match y with
-    | Some y -> check_vec vec_neg_str y_str y min_dim_y; y, ofsy, incy
-    | None -> create min_dim_y, 1, 1
-  in
+  let y = get_y_vec ~loc:vec_neg_str ~ofsy ~incy ~n y in
   direct_neg ~n ~ofsy ~incy ~y ~ofsx ~incx ~x;
   y
 
 
 let vec_add_str = "Vec.add"
 
+let get_z_vec ~loc ~ofsz ~incz ~n z = get_vec loc z_str z ofsz incz n create
+
 let add ?n ?ofsz ?incz ?z ?ofsx ?incx x ?ofsy ?incy y =
   let ofsz, incz = get_vec_geom vec_add_str z_str ofsz incz
   and ofsx, incx = get_vec_geom vec_add_str x_str ofsx incx
   and ofsy, incy = get_vec_geom vec_add_str y_str ofsy incy in
   let n = get_dim_vec vec_add_str x_str ofsx incx x n_str n in
   check_vec vec_add_str y_str y (ofsy + (n - 1) * abs incy);
-  let z, ofsz, incz =
-    let min_dim_z = ofsz + (n - 1) * abs incz in
-    match z with
-    | Some z -> check_vec vec_add_str z_str z min_dim_z; z, ofsz, incz
-    | None -> create min_dim_z, 1, 1 in
+  let z = get_z_vec ~loc:vec_add_str ~ofsz ~incz ~n z in
   direct_add ~n ~ofsz ~incz ~z ~ofsx ~incx ~x ~ofsy ~incy ~y;
   z
 
   and ofsy, incy = get_vec_geom vec_sub_str y_str ofsy incy in
   let n = get_dim_vec vec_sub_str x_str ofsx incx x n_str n in
   check_vec vec_sub_str y_str y (ofsy + (n - 1) * abs incy);
-  let z, ofsz, incz =
-    let min_dim_z = ofsz + (n - 1) * abs incz in
-    match z with
-    | Some z -> check_vec vec_sub_str z_str z min_dim_z; z, ofsz, incz
-    | None -> create min_dim_z, 1, 1 in
+  let z = get_z_vec ~loc:vec_sub_str ~ofsz ~incz ~n z in
   direct_sub ~n ~ofsz ~incz ~z ~ofsx ~incx ~x ~ofsy ~incy ~y;
   z
 
   and ofsy, incy = get_vec_geom vec_mul_str y_str ofsy incy in
   let n = get_dim_vec vec_mul_str x_str ofsx incx x n_str n in
   check_vec vec_mul_str y_str y (ofsy + (n - 1) * abs incy);
-  let z, ofsz, incz =
-    let min_dim_z = ofsz + (n - 1) * abs incz in
-    match z with
-    | Some z -> check_vec vec_mul_str z_str z min_dim_z; z, ofsz, incz
-    | None -> create min_dim_z, 1, 1 in
+  let z = get_z_vec ~loc:vec_mul_str ~ofsz ~incz ~n z in
   direct_mul ~n ~ofsz ~incz ~z ~ofsx ~incx ~x ~ofsy ~incy ~y;
   z
 
   and ofsy, incy = get_vec_geom vec_div_str y_str ofsy incy in
   let n = get_dim_vec vec_div_str x_str ofsx incx x n_str n in
   check_vec vec_div_str y_str y (ofsy + (n - 1) * abs incy);
-  let z, ofsz, incz =
-    let min_dim_z = ofsz + (n - 1) * abs incz in
-    match z with
-    | Some z -> check_vec vec_div_str z_str z min_dim_z; z, ofsz, incz
-    | None -> create min_dim_z, 1, 1 in
+  let z = get_z_vec ~loc:vec_div_str ~ofsz ~incz ~n z in
   direct_div ~n ~ofsz ~incz ~z ~ofsx ~incx ~x ~ofsy ~incy ~y;
   z
 
    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 *)
 
-let version = "7.0.4"
+let version = "7.0.6"
 (* OASIS_START *)
-(* DO NOT EDIT (digest: a2d86f44b182bcd09223bff1e2b2dfa6) *)
+(* DO NOT EDIT (digest: a0e7db74bcbca6550f3bbeae63fe5c3c) *)
 module OASISGettext = struct
-# 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/OASISGettext.ml"
+(* # 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/OASISGettext.ml" *)
 
   let ns_ str =
     str
 end
 
 module OASISExpr = struct
-# 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/OASISExpr.ml"
+(* # 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/OASISExpr.ml" *)
 
 
 
 
 # 117 "myocamlbuild.ml"
 module BaseEnvLight = struct
-# 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/base/BaseEnvLight.ml"
+(* # 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/base/BaseEnvLight.ml" *)
 
   module MapString = Map.Make(String)
 
 
 # 215 "myocamlbuild.ml"
 module MyOCamlbuildFindlib = struct
-# 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/plugins/ocamlbuild/MyOCamlbuildFindlib.ml"
+(* # 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/plugins/ocamlbuild/MyOCamlbuildFindlib.ml" *)
 
   (** OCamlbuild extension, copied from 
     * http://brion.inria.fr/gallium/index.php/Using_ocamlfind_with_ocamlbuild
 end
 
 module MyOCamlbuildBase = struct
-# 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/plugins/ocamlbuild/MyOCamlbuildBase.ml"
+(* # 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/plugins/ocamlbuild/MyOCamlbuildBase.ml" *)
 
   (** Base functions for writing myocamlbuild.ml
       @author Sylvain Le Gall
   type name = string 
   type tag = string 
 
-# 56 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/plugins/ocamlbuild/MyOCamlbuildBase.ml"
+(* # 56 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/plugins/ocamlbuild/MyOCamlbuildBase.ml" *)
 
   type t =
       {
 (* setup.ml generated for the first time by OASIS v0.2.0 *)
 
 (* OASIS_START *)
-(* DO NOT EDIT (digest: e91cec383c43352bb408c626469c4e8f) *)
+(* DO NOT EDIT (digest: 919bab8571237c17a89710e32996907c) *)
 (*
    Regenerated by OASIS v0.3.0
    Visit http://oasis.forge.ocamlcore.org for more information and
    documentation about functions used in this file.
 *)
 module OASISGettext = struct
-# 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/OASISGettext.ml"
+(* # 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/OASISGettext.ml" *)
 
   let ns_ str =
     str
 end
 
 module OASISContext = struct
-# 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/OASISContext.ml"
+(* # 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/OASISContext.ml" *)
 
   open OASISGettext
 
 end
 
 module OASISString = struct
-# 1 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/OASISString.ml"
+(* # 1 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/OASISString.ml" *)
 
 
 
 end
 
 module OASISUtils = struct
-# 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/OASISUtils.ml"
+(* # 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/OASISUtils.ml" *)
 
   open OASISGettext
 
 end
 
 module PropList = struct
-# 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/PropList.ml"
+(* # 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/PropList.ml" *)
 
   open OASISGettext
 
     let clear t =
       Hashtbl.clear t
 
-# 71 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/PropList.ml"
+(* # 71 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/PropList.ml" *)
   end
 
   module Schema =
 end
 
 module OASISMessage = struct
-# 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/OASISMessage.ml"
+(* # 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/OASISMessage.ml" *)
 
 
   open OASISGettext
 end
 
 module OASISVersion = struct
-# 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/OASISVersion.ml"
+(* # 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/OASISVersion.ml" *)
 
   open OASISGettext
 
 end
 
 module OASISLicense = struct
-# 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/OASISLicense.ml"
+(* # 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/OASISLicense.ml" *)
 
   (** License for _oasis fields
       @author Sylvain Le Gall
 end
 
 module OASISExpr = struct
-# 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/OASISExpr.ml"
+(* # 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/OASISExpr.ml" *)
 
 
 
 end
 
 module OASISTypes = struct
-# 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/OASISTypes.ml"
+(* # 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/OASISTypes.ml" *)
 
 
 
 
   type plugin_data = (all_plugin * plugin_data_purpose * (unit -> unit)) list
 
-# 102 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/OASISTypes.ml"
+(* # 102 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/OASISTypes.ml" *)
 
   type 'a conditional = 'a OASISExpr.choices 
 
 end
 
 module OASISUnixPath = struct
-# 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/OASISUnixPath.ml"
+(* # 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/OASISUnixPath.ml" *)
 
   type unix_filename = string
   type unix_dirname = string
 end
 
 module OASISHostPath = struct
-# 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/OASISHostPath.ml"
+(* # 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/OASISHostPath.ml" *)
 
 
   open Filename
 end
 
 module OASISSection = struct
-# 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/OASISSection.ml"
+(* # 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/OASISSection.ml" *)
 
   open OASISTypes
 
 end
 
 module OASISBuildSection = struct
-# 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/OASISBuildSection.ml"
+(* # 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/OASISBuildSection.ml" *)
 
 end
 
 module OASISExecutable = struct
-# 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/OASISExecutable.ml"
+(* # 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/OASISExecutable.ml" *)
 
   open OASISTypes
 
 end
 
 module OASISLibrary = struct
-# 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/OASISLibrary.ml"
+(* # 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/OASISLibrary.ml" *)
 
   open OASISTypes
   open OASISUtils
 end
 
 module OASISFlag = struct
-# 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/OASISFlag.ml"
+(* # 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/OASISFlag.ml" *)
 
 end
 
 module OASISPackage = struct
-# 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/OASISPackage.ml"
+(* # 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/OASISPackage.ml" *)
 
 end
 
 module OASISSourceRepository = struct
-# 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/OASISSourceRepository.ml"
+(* # 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/OASISSourceRepository.ml" *)
 
 end
 
 module OASISTest = struct
-# 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/OASISTest.ml"
+(* # 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/OASISTest.ml" *)
 
 end
 
 module OASISDocument = struct
-# 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/OASISDocument.ml"
+(* # 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/OASISDocument.ml" *)
 
 end
 
 module OASISExec = struct
-# 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/OASISExec.ml"
+(* # 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/OASISExec.ml" *)
 
   open OASISGettext
   open OASISUtils
 end
 
 module OASISFileUtil = struct
-# 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/OASISFileUtil.ml"
+(* # 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/oasis/OASISFileUtil.ml" *)
 
   open OASISGettext
 
 
 # 2142 "setup.ml"
 module BaseEnvLight = struct
-# 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/base/BaseEnvLight.ml"
+(* # 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/base/BaseEnvLight.ml" *)
 
   module MapString = Map.Make(String)
 
 
 # 2240 "setup.ml"
 module BaseContext = struct
-# 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/base/BaseContext.ml"
+(* # 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/base/BaseContext.ml" *)
 
   open OASISContext
 
 end
 
 module BaseMessage = struct
-# 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/base/BaseMessage.ml"
+(* # 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/base/BaseMessage.ml" *)
 
   (** Message to user, overrid for Base
       @author Sylvain Le Gall
 end
 
 module BaseEnv = struct
-# 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/base/BaseEnv.ml"
+(* # 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/base/BaseEnv.ml" *)
 
   open OASISGettext
   open OASISUtils
 end
 
 module BaseArgExt = struct
-# 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/base/BaseArgExt.ml"
+(* # 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/base/BaseArgExt.ml" *)
 
   open OASISUtils
   open OASISGettext
 end
 
 module BaseCheck = struct
-# 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/base/BaseCheck.ml"
+(* # 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/base/BaseCheck.ml" *)
 
   open BaseEnv
   open BaseMessage
 end
 
 module BaseOCamlcConfig = struct
-# 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/base/BaseOCamlcConfig.ml"
+(* # 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/base/BaseOCamlcConfig.ml" *)
 
 
   open BaseEnv
 end
 
 module BaseStandardVar = struct
-# 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/base/BaseStandardVar.ml"
+(* # 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/base/BaseStandardVar.ml" *)
 
 
   open OASISGettext
 end
 
 module BaseFileAB = struct
-# 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/base/BaseFileAB.ml"
+(* # 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/base/BaseFileAB.ml" *)
 
   open BaseEnv
   open OASISGettext
 end
 
 module BaseLog = struct
-# 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/base/BaseLog.ml"
+(* # 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/base/BaseLog.ml" *)
 
   open OASISUtils
 
 end
 
 module BaseBuilt = struct
-# 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/base/BaseBuilt.ml"
+(* # 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/base/BaseBuilt.ml" *)
 
   open OASISTypes
   open OASISGettext
 end
 
 module BaseCustom = struct
-# 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/base/BaseCustom.ml"
+(* # 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/base/BaseCustom.ml" *)
 
   open BaseEnv
   open BaseMessage
 end
 
 module BaseDynVar = struct
-# 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/base/BaseDynVar.ml"
+(* # 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/base/BaseDynVar.ml" *)
 
 
   open OASISTypes
 end
 
 module BaseTest = struct
-# 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/base/BaseTest.ml"
+(* # 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/base/BaseTest.ml" *)
 
   open BaseEnv
   open BaseMessage
 end
 
 module BaseDoc = struct
-# 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/base/BaseDoc.ml"
+(* # 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/base/BaseDoc.ml" *)
 
   open BaseEnv
   open BaseMessage
 end
 
 module BaseSetup = struct
-# 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/base/BaseSetup.ml"
+(* # 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/base/BaseSetup.ml" *)
 
   open BaseEnv
   open BaseMessage
 
 # 4480 "setup.ml"
 module InternalConfigurePlugin = struct
-# 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/plugins/internal/InternalConfigurePlugin.ml"
+(* # 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/plugins/internal/InternalConfigurePlugin.ml" *)
 
   (** Configure using internal scheme
       @author Sylvain Le Gall
 end
 
 module InternalInstallPlugin = struct
-# 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/plugins/internal/InternalInstallPlugin.ml"
+(* # 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/plugins/internal/InternalInstallPlugin.ml" *)
 
   (** Install using internal scheme
       @author Sylvain Le Gall
 
 # 5233 "setup.ml"
 module OCamlbuildCommon = struct
-# 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/plugins/ocamlbuild/OCamlbuildCommon.ml"
+(* # 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/plugins/ocamlbuild/OCamlbuildCommon.ml" *)
 
   (** Functions common to OCamlbuild build and doc plugin
     *)
 end
 
 module OCamlbuildPlugin = struct
-# 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/plugins/ocamlbuild/OCamlbuildPlugin.ml"
+(* # 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/plugins/ocamlbuild/OCamlbuildPlugin.ml" *)
 
   (** Build using ocamlbuild
       @author Sylvain Le Gall
 end
 
 module OCamlbuildDocPlugin = struct
-# 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/plugins/ocamlbuild/OCamlbuildDocPlugin.ml"
+(* # 21 "/Users/mmottl/.opam/4.00.1/build/oasis.0.3.0/src/plugins/ocamlbuild/OCamlbuildDocPlugin.ml" *)
 
   (* Create documentation using ocamlbuild .odocl files
      @author Sylvain Le Gall
           ocaml_version = Some (OASISVersion.VGreaterEqual "3.12");
           findlib_version = Some (OASISVersion.VGreaterEqual "1.3.1");
           name = "lacaml";
-          version = "7.0.4";
+          version = "7.0.6";
           license =
             OASISLicense.DEP5License
               (OASISLicense.DEP5Unit
           };
      oasis_fn = Some "_oasis";
      oasis_version = "0.3.0";
-     oasis_digest = Some "�\026X\bn�p�9(oS\019K\132�";
+     oasis_digest = Some "���m\141qFW�)\148�\141\137��";
      oasis_exec = None;
      oasis_setup_args = [];
      setup_update = false;
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.