--- /dev/null
+
+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)
+;;