+ (*PRE-CLAUDIO
+ let qq = "select uri from registry where uri " ^ (pattern_match apreamble apattern afragid) ^ " order by registry.uri asc" in
+ let result =
+ let res =
+ c#exec (qq)
+ in
+ [["retVal"]] @ List.map (fun l -> [l]) (pgresult_to_string_list res)*)