11(* setup.ml generated for the first time by OASIS v0.4.5 *)
22
33(* OASIS_START *)
4- (* DO NOT EDIT (digest: e3d4a93fc848c3e09028527cd267b038 ) *)
4+ (* DO NOT EDIT (digest: 89e5d1c79cd7017a31f68adde817353f ) *)
55(*
6- Regenerated by OASIS v0.4.7
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 =
@@ -658,6 +652,7 @@ module OASISContext = struct
658652 ignore_unknown_fields : bool ;
659653 printf : level -> string -> unit ;
660654 srcfs : source OASISFileSystem .fs ;
655+ load_oasis_plugin : string -> bool ;
661656 }
662657
663658
@@ -682,6 +677,7 @@ module OASISContext = struct
682677 ignore_unknown_fields = false ;
683678 printf = printf;
684679 srcfs = new OASISFileSystem. host_fs(Sys. getcwd () );
680+ load_oasis_plugin = (fun _ -> false );
685681 }
686682
687683
@@ -3160,7 +3156,7 @@ module OASISFileUtil = struct
31603156end
31613157
31623158
3163- # 3163 " setup.ml"
3159+ # 3159 " setup.ml"
31643160module BaseEnvLight = struct
31653161(* # 22 "src/base/BaseEnvLight.ml" *)
31663162
@@ -3240,7 +3236,7 @@ module BaseEnvLight = struct
32403236end
32413237
32423238
3243- # 3243 " setup.ml"
3239+ # 3239 " setup.ml"
32443240module BaseContext = struct
32453241(* # 22 "src/base/BaseContext.ml" *)
32463242
@@ -5663,7 +5659,7 @@ module BaseCompat = struct
56635659end
56645660
56655661
5666- # 5666 " setup.ml"
5662+ # 5662 " setup.ml"
56675663module InternalConfigurePlugin = struct
56685664(* # 22 "src/plugins/internal/InternalConfigurePlugin.ml" *)
56695665
@@ -6014,17 +6010,14 @@ module InternalInstallPlugin = struct
60146010
60156011 let install =
60166012
6017- let in_destdir =
6013+ let in_destdir fn =
60186014 try
6019- let destdir =
6020- destdir ()
6021- in
6022- (* Practically speaking destdir is prepended
6023- * at the beginning of the target filename
6024- *)
6025- fun fn -> destdir^ fn
6015+ (* Practically speaking destdir is prepended at the beginning of the
6016+ target filename
6017+ *)
6018+ (destdir () )^ fn
60266019 with PropList. Not_set _ ->
6027- fun fn -> fn
6020+ fn
60286021 in
60296022
60306023 let install_file ~ctxt ?(prepend_destdir =true ) ?tgt_fn src_file envdir =
@@ -6469,7 +6462,7 @@ module InternalInstallPlugin = struct
64696462end
64706463
64716464
6472- # 6472 " setup.ml"
6465+ # 6465 " setup.ml"
64736466module OCamlbuildCommon = struct
64746467(* # 22 "src/plugins/ocamlbuild/OCamlbuildCommon.ml" *)
64756468
@@ -6826,11 +6819,10 @@ module OCamlbuildDocPlugin = struct
68266819 run_ocamlbuild ~ctxt (index_html :: run.extra_args) argv;
68276820 List. iter
68286821 (fun glb ->
6829- BaseBuilt. register
6830- ~ctxt
6831- BaseBuilt. BDoc
6832- cs.cs_name
6833- [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+ | [] -> () )
68346826 [" *.html" ; " *.css" ]
68356827
68366828
@@ -6842,7 +6834,7 @@ module OCamlbuildDocPlugin = struct
68426834end
68436835
68446836
6845- # 6845 " setup.ml"
6837+ # 6837 " setup.ml"
68466838open OASISTypes ;;
68476839
68486840let setup_t =
@@ -6863,7 +6855,7 @@ let setup_t =
68636855 {
68646856 oasis_version = " 0.4" ;
68656857 ocaml_version = None ;
6866- version = " 2.6.0 " ;
6858+ version = " 3.0.1 " ;
68676859 license =
68686860 OASISLicense. DEP5License
68696861 (OASISLicense. DEP5Unit
@@ -7087,16 +7079,16 @@ let setup_t =
70877079 plugin_data = []
70887080 };
70897081 oasis_fn = Some " _oasis" ;
7090- oasis_version = " 0.4.7 " ;
7091- oasis_digest = Some " \143\252 G \250 0d9d, \247\r\012\168\023\227 1 " ;
7082+ oasis_version = " 0.4.10 " ;
7083+ oasis_digest = Some " { \206\248 ` \239 BP \214 )O \242 V \217\214\190\171 " ;
70927084 oasis_exec = None ;
70937085 oasis_setup_args = [] ;
70947086 setup_update = false
70957087 };;
70967088
70977089let setup () = BaseSetup. setup setup_t;;
70987090
7099- # 7100 " setup.ml"
7091+ # 7092 " setup.ml"
71007092let setup_t = BaseCompat.Compat_0_4. adapt_setup_t setup_t
71017093open BaseCompat.Compat_0_4
71027094(* OASIS_STOP *)
0 commit comments