]> matita.cs.unibo.it Git - helm.git/commitdiff
mqint intercace fixed unlabeled-1.17.2
authorFerruccio Guidi <ferruccio.guidi@unibo.it>
Fri, 13 Sep 2002 12:26:45 +0000 (12:26 +0000)
committerFerruccio Guidi <ferruccio.guidi@unibo.it>
Fri, 13 Sep 2002 12:26:45 +0000 (12:26 +0000)
helm/ocaml/mathql_interpreter/mqint.ml

index 2c636eadff5e8cb48077a91702db0028266ab8a9..053e20c74bb009fa5ecbef498a7a3f12cb4bfcfb 100644 (file)
@@ -252,6 +252,13 @@ let close () = Dbconn.close ();;
 
 *****************************************************************************)
 
+let init () = () (* FG: implementare l'apertura del database *)
+
+let close () = () (* FG: implementare la chiusura del database *)
+
+
+(* contexts *****************************************************************)
+
 type svar_context = (MathQL.svar * MathQL.resource_set) list
 
 type rvar_context = (MathQL.rvar * MathQL.resource) list