]> matita.cs.unibo.it Git - helm.git/blob - ocaml/mathql_interpreter/dbconn.ml
made executable again
[helm.git] / ocaml / mathql_interpreter / dbconn.ml
1 (* Copyright (C) 2000, HELM Team.
2  * 
3  * This file is part of HELM, an Hypertextual, Electronic
4  * Library of Mathematics, developed at the Computer Science
5  * Department, University of Bologna, Italy.
6  * 
7  * HELM is free software; you can redistribute it and/or
8  * modify it under the terms of the GNU General Public License
9  * as published by the Free Software Foundation; either version 2
10  * of the License, or (at your option) any later version.
11  * 
12  * HELM is distributed in the hope that it will be useful,
13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15  * GNU General Public License for more details.
16  *
17  * You should have received a copy of the GNU General Public License
18  * along with HELM; if not, write to the Free Software
19  * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
20  * MA  02111-1307, USA.
21  * 
22  * For details, see the HELM World-Wide-Web page,
23  * http://www.cs.unibo.it/helm/.
24  *)
25
26 (*
27  * gestione della connessione al database
28  *)
29
30 (*
31  * le eccezioni lanciate dalle funzioni init e pgc sono
32  * definite nel modulo Mathql 
33  *)
34 open MathQL;;
35
36 exception InvalidURI of string
37 exception ConnectionFailed of string
38 exception InvalidConnection
39
40 (*
41  * connessione al db
42  *)
43 let conn = ref None
44
45 (*
46  * controllo sulla connessione
47  *)
48 let pgc () =
49    match !conn with
50       None   -> raise InvalidConnection
51     | Some c -> c
52 ;;
53
54 (*
55  * inizializzazione della connessione
56  *
57  * TODO
58  * passare i parametri della connessione come argomento di init
59  *)
60 let init connection_param =
61    try (
62     conn := Some (new Postgres.connection connection_param);
63    ) with
64     _ -> raise (ConnectionFailed ("init: " ^ connection_param))
65 ;;
66
67 (*
68  * chiusura della connessione
69  *)
70 let close () =
71    match !conn with
72       None -> ()
73    |  Some c -> c#close
74 ;;