open Dbconn;;
open Utility;;
open Eval;;

let pattern_ex apreamble apattern ext afragid =
 let c = pgc () in
  let r1 = c#exec "select att0 from class where att2='Object'" in
   let res =
    c#exec ("select att0 from t" ^ (pgresult_to_string r1) ^
            " where att0 " ^ (pattern_match apreamble apattern ext afragid))
   in
    [["retVal"]] @ List.map (fun l -> [l]) (pgresult_to_string_list res)
;;