sql: parsing select with row locks ('select .. for update')
[sqlgg.git] / setup.ml
blobfe8169fed441ba7ce0c96f59e53fd0e375112173
1 (* setup.ml generated for the first time by OASIS v0.4.4 *)
3 (* OASIS_START *)
4 (* DO NOT EDIT (digest: 9852805d5c19ca1cb6abefde2dcea323) *)
5 (******************************************************************************)
6 (* OASIS: architecture for building OCaml libraries and applications *)
7 (* *)
8 (* Copyright (C) 2011-2013, Sylvain Le Gall *)
9 (* Copyright (C) 2008-2011, OCamlCore SARL *)
10 (* *)
11 (* This library is free software; you can redistribute it and/or modify it *)
12 (* under the terms of the GNU Lesser General Public License as published by *)
13 (* the Free Software Foundation; either version 2.1 of the License, or (at *)
14 (* your option) any later version, with the OCaml static compilation *)
15 (* exception. *)
16 (* *)
17 (* This library is distributed in the hope that it will be useful, but *)
18 (* WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY *)
19 (* or FITNESS FOR A PARTICULAR PURPOSE. See the file COPYING for more *)
20 (* details. *)
21 (* *)
22 (* You should have received a copy of the GNU Lesser General Public License *)
23 (* along with this library; if not, write to the Free Software Foundation, *)
24 (* Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA *)
25 (******************************************************************************)
27 let () =
28 try
29 Topdirs.dir_directory (Sys.getenv "OCAML_TOPLEVEL_PATH")
30 with Not_found -> ()
32 #use "topfind";;
33 #require "oasis.dynrun";;
34 open OASISDynRun;;
36 (* OASIS_STOP *)
37 let () = setup ();;