11(* setup.ml generated for the first time by OASIS v0.4.5 *)
22
33(* OASIS_START *)
4- (* DO NOT EDIT (digest: 3c8229d1f2329ce068827502e1b295d9 ) *)
4+ (* DO NOT EDIT (digest: 7dde24055b8f28c6100a7a99e2234306 ) *)
55(*
6- Regenerated by OASIS v0.4.8
6+ Regenerated by OASIS v0.4.10
77 Visit http://oasis.forge.ocamlcore.org for more information and
88 documentation about functions used in this file.
99*)
@@ -112,10 +112,7 @@ module OASISString = struct
112112 ok := false ;
113113 incr str_idx
114114 done ;
115- if ! what_idx = String. length what then
116- true
117- else
118- false
115+ ! what_idx = String. length what
119116
120117
121118 let strip_starts_with ~what str =
@@ -138,10 +135,7 @@ module OASISString = struct
138135 ok := false ;
139136 decr str_idx
140137 done ;
141- if ! what_idx = - 1 then
142- true
143- else
144- false
138+ ! what_idx = - 1
145139
146140
147141 let strip_ends_with ~what str =
@@ -3162,7 +3156,7 @@ module OASISFileUtil = struct
31623156end
31633157
31643158
3165- # 3165 " setup.ml"
3159+ # 3159 " setup.ml"
31663160module BaseEnvLight = struct
31673161(* # 22 "src/base/BaseEnvLight.ml" *)
31683162
@@ -3242,7 +3236,7 @@ module BaseEnvLight = struct
32423236end
32433237
32443238
3245- # 3245 " setup.ml"
3239+ # 3239 " setup.ml"
32463240module BaseContext = struct
32473241(* # 22 "src/base/BaseContext.ml" *)
32483242
@@ -5665,7 +5659,7 @@ module BaseCompat = struct
56655659end
56665660
56675661
5668- # 5668 " setup.ml"
5662+ # 5662 " setup.ml"
56695663module InternalConfigurePlugin = struct
56705664(* # 22 "src/plugins/internal/InternalConfigurePlugin.ml" *)
56715665
@@ -6016,17 +6010,14 @@ module InternalInstallPlugin = struct
60166010
60176011 let install =
60186012
6019- let in_destdir =
6013+ let in_destdir fn =
60206014 try
6021- let destdir =
6022- destdir ()
6023- in
6024- (* Practically speaking destdir is prepended
6025- * at the beginning of the target filename
6026- *)
6027- fun fn -> destdir^ fn
6015+ (* Practically speaking destdir is prepended at the beginning of the
6016+ target filename
6017+ *)
6018+ (destdir () )^ fn
60286019 with PropList. Not_set _ ->
6029- fun fn -> fn
6020+ fn
60306021 in
60316022
60326023 let install_file ~ctxt ?(prepend_destdir =true ) ?tgt_fn src_file envdir =
@@ -6471,7 +6462,7 @@ module InternalInstallPlugin = struct
64716462end
64726463
64736464
6474- # 6474 " setup.ml"
6465+ # 6465 " setup.ml"
64756466module OCamlbuildCommon = struct
64766467(* # 22 "src/plugins/ocamlbuild/OCamlbuildCommon.ml" *)
64776468
@@ -6828,11 +6819,10 @@ module OCamlbuildDocPlugin = struct
68286819 run_ocamlbuild ~ctxt (index_html :: run.extra_args) argv;
68296820 List. iter
68306821 (fun glb ->
6831- BaseBuilt. register
6832- ~ctxt
6833- BaseBuilt. BDoc
6834- cs.cs_name
6835- [OASISFileUtil. glob ~ctxt (Filename. concat tgt_dir glb)])
6822+ match OASISFileUtil. glob ~ctxt (Filename. concat tgt_dir glb) with
6823+ | (_ :: _ ) as filenames ->
6824+ BaseBuilt. register ~ctxt BaseBuilt. BDoc cs.cs_name [filenames]
6825+ | [] -> () )
68366826 [" *.html" ; " *.css" ]
68376827
68386828
@@ -6844,7 +6834,7 @@ module OCamlbuildDocPlugin = struct
68446834end
68456835
68466836
6847- # 6847 " setup.ml"
6837+ # 6837 " setup.ml"
68486838open OASISTypes ;;
68496839
68506840let setup_t =
@@ -6887,7 +6877,7 @@ let setup_t =
68876877 {
68886878 oasis_version = " 0.4" ;
68896879 ocaml_version = Some (OASISVersion. VGreaterEqual " 4.01.0" );
6890- version = " 0.2.2 " ;
6880+ version = " dev " ;
68916881 license =
68926882 OASISLicense. DEP5License
68936883 (OASISLicense. DEP5Unit
@@ -7442,16 +7432,16 @@ let setup_t =
74427432 plugin_data = []
74437433 };
74447434 oasis_fn = Some " _oasis" ;
7445- oasis_version = " 0.4.8 " ;
7446- oasis_digest = Some " \226 yS \171\176 E \020\212\200 r \176 /B \208 f \146 " ;
7435+ oasis_version = " 0.4.10 " ;
7436+ oasis_digest = Some " Z \243 eJ \251 (} \190 { \173\150\159 + \144\000 9 " ;
74477437 oasis_exec = None ;
74487438 oasis_setup_args = [] ;
74497439 setup_update = false
74507440 };;
74517441
74527442let setup () = BaseSetup. setup setup_t;;
74537443
7454- # 7455 " setup.ml"
7444+ # 7445 " setup.ml"
74557445let setup_t = BaseCompat.Compat_0_4. adapt_setup_t setup_t
74567446open BaseCompat.Compat_0_4
74577447(* OASIS_STOP *)
0 commit comments