* http://www.cs.unibo.it/helm/.
*)
-open Dbconn;;
open Utility;;
let cat l1 l2 =
l1 @ l2
;;
-let rec pattern_ex l =
+let rec pattern_ex handle l =
match l with
[] -> []
| s::tl -> let result =
- let c = pgc () in
+ let c = MQIConn.pgc handle in
let quoted_s =
Str.global_substitute (Str.regexp "'")
(function _ -> "\\'") s in
done*)
in
- cat result (pattern_ex tl)
+ cat result (pattern_ex handle tl)
;;