Markus Mottl avatar Markus Mottl committed 33612f3

Added Vec.{reci,exp,log,sin,cos}

Comments (0)

Files changed (10)

+2012-11-09:  Added new functions:
+
+               * Vec.{reci,exp,log,sin,cos}  (currently for real numbers only)
+
 2012-07-20:  Downgraded findlib version requirement to support the Debian
              testing branch.
 
 OASISFormat:      0.3
 Name:             lacaml
-Version:          7.0.3
+Version:          7.0.4
 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: 19503d04ac82b6440c0801694c03fe94)
-version = "7.0.3"
+# DO NOT EDIT (digest: c4321bd2788972728bc42a0d08fb43fc)
+version = "7.0.4"
 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.3"
+ version = "7.0.4"
  description = "Toplevel module for Lacaml."
  requires = "lacaml"
  archive(byte) = "lacaml_top.cma"
 
 let of_col_vecs ar =
   let n = Array.length ar in
-  if n = 0 then create 0 0
+  if n = 0 then empty
   else
     let m = Array1.dim ar.(0) in
     let mat = create m n 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
+
+external direct_reci :
+  n : int ->
+  ofsy : int ->
+  incy : int ->
+  y : vec ->
+  ofsx : int ->
+  incx : int ->
+  x : vec ->
+  unit = "lacaml_FPRECreci_stub_bc" "lacaml_FPRECreci_stub"
+
+let vec_reci_loc = "Vec.reci"
+
+let reci ?n ?ofsy ?incy ?y ?ofsx ?incx x =
+  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
+  direct_reci ~n ~ofsy ~incy ~y ~ofsx ~incx ~x;
+  y
+
 external direct_sqr :
   n : int ->
   ofsy : int ->
   x : vec ->
   unit = "lacaml_FPRECsqr_stub_bc" "lacaml_FPRECsqr_stub"
 
-let vec_sqr_str = "Vec.sqr"
-
-let get_y_params ~ofsy ~incy ~n y =
-  let min_dim_y = ofsy + (n - 1) * abs incy in
-  match y with
-  | Some y -> check_vec vec_sqr_str y_str y min_dim_y; y, ofsy, incy
-  | None -> create min_dim_y, 1, 1
+let vec_sqr_loc = "Vec.sqr"
 
 let sqr ?n ?ofsy ?incy ?y ?ofsx ?incx x =
-  let ofsx, incx = get_vec_geom vec_sqr_str x_str ofsx incx in
-  let ofsy, incy = get_vec_geom vec_sqr_str y_str ofsy incy in
-  let n = get_dim_vec vec_sqr_str x_str ofsx incx x n_str n in
-  let y, ofsy, incy = get_y_params ~ofsy ~incy ~n y in
+  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
   direct_sqr ~n ~ofsy ~incy ~y ~ofsx ~incx ~x;
   y
 
   x : vec ->
   unit = "lacaml_FPRECsqrt_stub_bc" "lacaml_FPRECsqrt_stub"
 
-let vec_sqrt_str = "Vec.sqrt"
+let vec_sqrt_loc = "Vec.sqrt"
 
 let sqrt ?n ?ofsy ?incy ?y ?ofsx ?incx x =
-  let ofsx, incx = get_vec_geom vec_sqrt_str x_str ofsx incx in
-  let ofsy, incy = get_vec_geom vec_sqrt_str y_str ofsy incy in
-  let n = get_dim_vec vec_sqrt_str x_str ofsx incx x n_str n in
-  let y, ofsy, incy = get_y_params ~ofsy ~incy ~n y in
+  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
   direct_sqrt ~n ~ofsy ~incy ~y ~ofsx ~incx ~x;
   y
+
+external direct_exp :
+  n : int ->
+  ofsy : int ->
+  incy : int ->
+  y : vec ->
+  ofsx : int ->
+  incx : int ->
+  x : vec ->
+  unit = "lacaml_FPRECexp_stub_bc" "lacaml_FPRECexp_stub"
+
+let vec_exp_loc = "Vec.exp"
+
+let exp ?n ?ofsy ?incy ?y ?ofsx ?incx x =
+  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
+  direct_exp ~n ~ofsy ~incy ~y ~ofsx ~incx ~x;
+  y
+
+external direct_log :
+  n : int ->
+  ofsy : int ->
+  incy : int ->
+  y : vec ->
+  ofsx : int ->
+  incx : int ->
+  x : vec ->
+  unit = "lacaml_FPREClog_stub_bc" "lacaml_FPREClog_stub"
+
+let vec_log_loc = "Vec.log"
+
+let log ?n ?ofsy ?incy ?y ?ofsx ?incx x =
+  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
+  direct_log ~n ~ofsy ~incy ~y ~ofsx ~incx ~x;
+  y
+
+external direct_sin :
+  n : int ->
+  ofsy : int ->
+  incy : int ->
+  y : vec ->
+  ofsx : int ->
+  incx : int ->
+  x : vec ->
+  unit = "lacaml_FPRECsin_stub_bc" "lacaml_FPRECsin_stub"
+
+let vec_sin_loc = "Vec.sin"
+
+let sin ?n ?ofsy ?incy ?y ?ofsx ?incx x =
+  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
+  direct_sin ~n ~ofsy ~incy ~y ~ofsx ~incx ~x;
+  y
+
+external direct_cos :
+  n : int ->
+  ofsy : int ->
+  incy : int ->
+  y : vec ->
+  ofsx : int ->
+  incx : int ->
+  x : vec ->
+  unit = "lacaml_FPRECcos_stub_bc" "lacaml_FPRECcos_stub"
+
+let vec_cos_loc = "Vec.cos"
+
+let cos ?n ?ofsy ?incy ?y ?ofsx ?incx x =
+  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
+  direct_cos ~n ~ofsy ~incy ~y ~ofsx ~incx ~x;
+  y
 
     @param rnd_state default = Random.get_state ()
     @param from default = -1.0
-    @param range default = 2.0 *)
+    @param range default = 2.0
+*)
+
+val reci :
+  ?n : int ->
+  ?ofsy : int ->
+  ?incy : int ->
+  ?y : vec ->
+  ?ofsx : int ->
+  ?incx : int ->
+  vec
+  -> vec
+(** [reci ?n ?ofsy ?incy ?y ?ofsx ?incx x] computes the reciprocal value
+    of [n] elements of the vector [x] using [incx] as incremental steps.
+    If [y] is given, the result will be stored in there using increments of
+    [incy], otherwise a fresh vector will be used.  The resulting vector
+    is returned.
+
+    @param n default = greater n s.t. [ofsx+(n-1)(abs incx) <= dim x]
+    @param ofsy default = 1
+    @param incy default = 1
+    @param y default = fresh vector with [ofsy+(n - 1)(abs incy)] rows
+    @param ofsx default = 1
+    @param incx default = 1
+*)
 
 val sqr :
   ?n : int ->
     @param ofsx default = 1
     @param incx default = 1
 *)
+
+val exp :
+  ?n : int ->
+  ?ofsy : int ->
+  ?incy : int ->
+  ?y : vec ->
+  ?ofsx : int ->
+  ?incx : int ->
+  vec
+  -> vec
+(** [exp ?n ?ofsy ?incy ?y ?ofsx ?incx x] computes the exponential
+    of [n] elements of the vector [x] using [incx] as incremental
+    steps.   If [y] is given, the result will be stored in there
+    using increments of [incy], otherwise a fresh vector will be
+    used.  The resulting vector is returned.
+
+    @param n default = greater n s.t. [ofsx+(n-1)(abs incx) <= dim x]
+    @param ofsy default = 1
+    @param incy default = 1
+    @param y default = fresh vector with [ofsy+(n - 1)(abs incy)] rows
+    @param ofsx default = 1
+    @param incx default = 1
+*)
+
+val log :
+  ?n : int ->
+  ?ofsy : int ->
+  ?incy : int ->
+  ?y : vec ->
+  ?ofsx : int ->
+  ?incx : int ->
+  vec
+  -> vec
+(** [log ?n ?ofsy ?incy ?y ?ofsx ?incx x] computes the logarithm
+    of [n] elements of the vector [x] using [incx] as incremental
+    steps.   If [y] is given, the result will be stored in there
+    using increments of [incy], otherwise a fresh vector will be
+    used.  The resulting vector is returned.
+
+    @param n default = greater n s.t. [ofsx+(n-1)(abs incx) <= dim x]
+    @param ofsy default = 1
+    @param incy default = 1
+    @param y default = fresh vector with [ofsy+(n - 1)(abs incy)] rows
+    @param ofsx default = 1
+    @param incx default = 1
+*)
+
+val sin :
+  ?n : int ->
+  ?ofsy : int ->
+  ?incy : int ->
+  ?y : vec ->
+  ?ofsx : int ->
+  ?incx : int ->
+  vec
+  -> vec
+(** [sin ?n ?ofsy ?incy ?y ?ofsx ?incx x] computes the sine of [n] elements
+    of the vector [x] using [incx] as incremental steps.   If [y] is given,
+    the result will be stored in there using increments of [incy], otherwise
+    a fresh vector will be used.  The resulting vector is returned.
+
+    @param n default = greater n s.t. [ofsx+(n-1)(abs incx) <= dim x]
+    @param ofsy default = 1
+    @param incy default = 1
+    @param y default = fresh vector with [ofsy+(n - 1)(abs incy)] rows
+    @param ofsx default = 1
+    @param incx default = 1
+*)
+
+val cos :
+  ?n : int ->
+  ?ofsy : int ->
+  ?incy : int ->
+  ?y : vec ->
+  ?ofsx : int ->
+  ?incx : int ->
+  vec
+  -> vec
+(** [cos ?n ?ofsy ?incy ?y ?ofsx ?incx x] computes the cosine of [n] elements
+    of the vector [x] using [incx] as incremental steps.   If [y] is given,
+    the result will be stored in there using increments of [incy], otherwise
+    a fresh vector will be used.  The resulting vector is returned.
+
+    @param n default = greater n s.t. [ofsx+(n-1)(abs incx) <= dim x]
+    @param ofsy default = 1
+    @param incy default = 1
+    @param y default = fresh vector with [ofsy+(n - 1)(abs incy)] rows
+    @param ofsx default = 1
+    @param incx default = 1
+*)
 #define FUNC(dst, x) *dst = sqrt(x)
 #include "vec_map.c"
 
+#define NAME LFUN(exp_stub)
+#define BC_NAME LFUN(exp_stub_bc)
+#define FUNC(dst, x) *dst = exp(x)
+#include "vec_map.c"
+
+#define NAME LFUN(log_stub)
+#define BC_NAME LFUN(log_stub_bc)
+#define FUNC(dst, x) *dst = log(x)
+#include "vec_map.c"
+
+#define NAME LFUN(sin_stub)
+#define BC_NAME LFUN(sin_stub_bc)
+#define FUNC(dst, x) *dst = sin(x)
+#include "vec_map.c"
+
+#define NAME LFUN(cos_stub)
+#define BC_NAME LFUN(cos_stub_bc)
+#define FUNC(dst, x) *dst = cos(x)
+#include "vec_map.c"
+
 #define NAME LFUN(neg_stub)
 #define BC_NAME LFUN(neg_stub_bc)
 #define FUNC(dst, x) *dst = - x
 #include "vec_map.c"
 
+#define NAME LFUN(reci_stub)
+#define BC_NAME LFUN(reci_stub_bc)
+#define FUNC(dst, x) *dst = 1 / x
+#include "vec_map.c"
+
 #define NAME LFUN(add_stub)
 #define BC_NAME LFUN(add_stub_bc)
 #define FUNC(dst, x, y) *dst = x + y
    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 *)
 
-let version = "7.0.2"
+let version = "7.0.4"
 (* OASIS_START *)
-(* DO NOT EDIT (digest: a9b66376854a48fc353889c41841d343) *)
+(* DO NOT EDIT (digest: a2d86f44b182bcd09223bff1e2b2dfa6) *)
 module OASISGettext = struct
-(* # 21 "/Users/mmottl/local/darwin11.3.0/src/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/local/darwin11.3.0/src/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/local/darwin11.3.0/src/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/local/darwin11.3.0/src/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/local/darwin11.3.0/src/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/local/darwin11.3.0/src/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: f2d6e5cbe5b8bf365e5d3c098b27885d) *)
+(* DO NOT EDIT (digest: e91cec383c43352bb408c626469c4e8f) *)
 (*
    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/local/darwin11.3.0/src/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/local/darwin11.3.0/src/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/local/darwin11.3.0/src/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/local/darwin11.3.0/src/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/local/darwin11.3.0/src/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/local/darwin11.3.0/src/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/local/darwin11.3.0/src/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/local/darwin11.3.0/src/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/local/darwin11.3.0/src/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/local/darwin11.3.0/src/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/local/darwin11.3.0/src/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/local/darwin11.3.0/src/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/local/darwin11.3.0/src/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/local/darwin11.3.0/src/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/local/darwin11.3.0/src/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/local/darwin11.3.0/src/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/local/darwin11.3.0/src/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/local/darwin11.3.0/src/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/local/darwin11.3.0/src/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/local/darwin11.3.0/src/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/local/darwin11.3.0/src/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/local/darwin11.3.0/src/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/local/darwin11.3.0/src/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/local/darwin11.3.0/src/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/local/darwin11.3.0/src/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/local/darwin11.3.0/src/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/local/darwin11.3.0/src/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/local/darwin11.3.0/src/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/local/darwin11.3.0/src/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/local/darwin11.3.0/src/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/local/darwin11.3.0/src/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/local/darwin11.3.0/src/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/local/darwin11.3.0/src/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/local/darwin11.3.0/src/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/local/darwin11.3.0/src/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/local/darwin11.3.0/src/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/local/darwin11.3.0/src/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/local/darwin11.3.0/src/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/local/darwin11.3.0/src/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/local/darwin11.3.0/src/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/local/darwin11.3.0/src/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/local/darwin11.3.0/src/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/local/darwin11.3.0/src/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/local/darwin11.3.0/src/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/local/darwin11.3.0/src/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/local/darwin11.3.0/src/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.3";
+          version = "7.0.4";
           license =
             OASISLicense.DEP5License
               (OASISLicense.DEP5Unit
           };
      oasis_fn = Some "_oasis";
      oasis_version = "0.3.0";
-     oasis_digest = Some "[\019\131�\159\140\153�ڮ�\143L�U\142";
+     oasis_digest = Some "\026X\bn�p�9(oS\019K\132�";
      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.