parse_oper.c
上传用户:blenddy
上传日期:2007-01-07
资源大小:6495k
文件大小:19k
源码类别:

数据库系统

开发平台:

Unix_Linux

  1. /*-------------------------------------------------------------------------
  2.  *
  3.  * parse_oper.h
  4.  * handle operator things for parser
  5.  *
  6.  * Copyright (c) 1994, Regents of the University of California
  7.  *
  8.  *
  9.  * IDENTIFICATION
  10.  *   $Header: /usr/local/cvsroot/pgsql/src/backend/parser/parse_oper.c,v 1.25 1999/05/25 16:10:18 momjian Exp $
  11.  *
  12.  *-------------------------------------------------------------------------
  13.  */
  14. #include <string.h>
  15. #include "postgres.h"
  16. #include "access/heapam.h"
  17. #include "access/relscan.h"
  18. #include "catalog/catname.h"
  19. #include "catalog/pg_operator.h"
  20. #include "catalog/pg_type.h"
  21. #include "fmgr.h"
  22. #include "parser/parse_oper.h"
  23. #include "parser/parse_type.h"
  24. #include "parser/parse_coerce.h"
  25. #include "storage/bufmgr.h"
  26. #include "utils/syscache.h"
  27. static Oid *oper_select_candidate(int nargs, Oid *input_typeids,
  28.   CandidateList candidates);
  29. static int binary_oper_get_candidates(char *opname,
  30.    Oid leftTypeId,
  31.    Oid rightTypeId,
  32.    CandidateList *candidates);
  33. static int unary_oper_get_candidates(char *op,
  34.   Oid typeId,
  35.   CandidateList *candidates,
  36.   char rightleft);
  37. static void op_error(char *op, Oid arg1, Oid arg2);
  38. Oid
  39. any_ordering_op(int restype)
  40. {
  41. Operator order_op;
  42. Oid order_opid;
  43. order_op = oper("<", restype, restype, TRUE);
  44. if (!HeapTupleIsValid(order_op))
  45. {
  46. elog(ERROR, "Unable to identify an ordering operator '%s' for type '%s'"
  47.  "ntUse an explicit ordering operator or modify the query",
  48.  "<", typeidTypeName(restype));
  49. }
  50. order_opid = oprid(order_op);
  51. return order_opid;
  52. }
  53. /* given operator, return the operator OID */
  54. Oid
  55. oprid(Operator op)
  56. {
  57. return op->t_data->t_oid;
  58. }
  59. /* binary_oper_get_candidates()
  60.  * given opname, leftTypeId and rightTypeId,
  61.  * find all possible (arg1, arg2) pairs for which an operator named
  62.  * opname exists, such that leftTypeId can be coerced to arg1 and
  63.  * rightTypeId can be coerced to arg2
  64.  */
  65. static int
  66. binary_oper_get_candidates(char *opname,
  67.    Oid leftTypeId,
  68.    Oid rightTypeId,
  69.    CandidateList *candidates)
  70. {
  71. CandidateList current_candidate;
  72. Relation pg_operator_desc;
  73. HeapScanDesc pg_operator_scan;
  74. HeapTuple tup;
  75. Form_pg_operator oper;
  76. int nkeys;
  77. int ncandidates = 0;
  78. ScanKeyData opKey[3];
  79. *candidates = NULL;
  80. ScanKeyEntryInitialize(&opKey[0], 0,
  81.    Anum_pg_operator_oprname,
  82.    F_NAMEEQ,
  83.    NameGetDatum(opname));
  84. ScanKeyEntryInitialize(&opKey[1], 0,
  85.    Anum_pg_operator_oprkind,
  86.    F_CHAREQ,
  87.    CharGetDatum('b'));
  88. nkeys = 2;
  89. pg_operator_desc = heap_openr(OperatorRelationName);
  90. pg_operator_scan = heap_beginscan(pg_operator_desc,
  91.   0,
  92.   SnapshotSelf, /* ??? */
  93.   nkeys,
  94.   opKey);
  95. while (HeapTupleIsValid(tup = heap_getnext(pg_operator_scan, 0)))
  96. {
  97. current_candidate = (CandidateList) palloc(sizeof(struct _CandidateList));
  98. current_candidate->args = (Oid *) palloc(2 * sizeof(Oid));
  99. oper = (Form_pg_operator) GETSTRUCT(tup);
  100. current_candidate->args[0] = oper->oprleft;
  101. current_candidate->args[1] = oper->oprright;
  102. current_candidate->next = *candidates;
  103. *candidates = current_candidate;
  104. ncandidates++;
  105. }
  106. heap_endscan(pg_operator_scan);
  107. heap_close(pg_operator_desc);
  108. return ncandidates;
  109. } /* binary_oper_get_candidates() */
  110. /* oper_select_candidate()
  111.  * Given the input argtype array and more than one candidate
  112.  * for the function argtype array, attempt to resolve the conflict.
  113.  * returns the selected argtype array if the conflict can be resolved,
  114.  * otherwise returns NULL.
  115.  *
  116.  * This routine is new code, replacing binary_oper_select_candidate()
  117.  * which dates from v4.2/v1.0.x days. It tries very hard to match up
  118.  * operators with types, including allowing type coersions if necessary.
  119.  * The important thing is that the code do as much as possible,
  120.  * while _never_ doing the wrong thing, where "the wrong thing" would
  121.  * be returning an operator when other better choices are available,
  122.  * or returning an operator which is a non-intuitive possibility.
  123.  * - thomas 1998-05-21
  124.  *
  125.  * The comments below came from binary_oper_select_candidate(), and
  126.  * illustrate the issues and choices which are possible:
  127.  * - thomas 1998-05-20
  128.  *
  129.  * current wisdom holds that the default operator should be one in which
  130.  * both operands have the same type (there will only be one such
  131.  * operator)
  132.  *
  133.  * 7.27.93 - I have decided not to do this; it's too hard to justify, and
  134.  * it's easy enough to typecast explicitly - avi
  135.  * [the rest of this routine was commented out since then - ay]
  136.  *
  137.  * 6/23/95 - I don't complete agree with avi. In particular, casting
  138.  * floats is a pain for users. Whatever the rationale behind not doing
  139.  * this is, I need the following special case to work.
  140.  *
  141.  * In the WHERE clause of a query, if a float is specified without
  142.  * quotes, we treat it as float8. I added the float48* operators so
  143.  * that we can operate on float4 and float8. But now we have more than
  144.  * one matching operator if the right arg is unknown (eg. float
  145.  * specified with quotes). This break some stuff in the regression
  146.  * test where there are floats in quotes not properly casted. Below is
  147.  * the solution. In addition to requiring the operator operates on the
  148.  * same type for both operands [as in the code Avi originally
  149.  * commented out], we also require that the operators be equivalent in
  150.  * some sense. (see equivalentOpersAfterPromotion for details.)
  151.  * - ay 6/95
  152.  */
  153. static Oid *
  154. oper_select_candidate(int nargs,
  155.   Oid *input_typeids,
  156.   CandidateList candidates)
  157. {
  158. CandidateList current_candidate;
  159. CandidateList last_candidate;
  160. Oid    *current_typeids;
  161. int unknownOids;
  162. int i;
  163. int ncandidates;
  164. int nbestMatch,
  165. nmatch;
  166. CATEGORY slot_category,
  167. current_category;
  168. Oid slot_type,
  169. current_type;
  170. /*
  171.  * Run through all candidates and keep those with the most matches
  172.  * on explicit types. Keep all candidates if none match.
  173.  */
  174. ncandidates = 0;
  175. nbestMatch = 0;
  176. last_candidate = NULL;
  177. for (current_candidate = candidates;
  178.  current_candidate != NULL;
  179.  current_candidate = current_candidate->next)
  180. {
  181. current_typeids = current_candidate->args;
  182. nmatch = 0;
  183. for (i = 0; i < nargs; i++)
  184. {
  185. if ((input_typeids[i] != UNKNOWNOID)
  186. && (current_typeids[i] == input_typeids[i]))
  187. nmatch++;
  188. }
  189. /* take this one as the best choice so far? */
  190. if ((nmatch > nbestMatch) || (last_candidate == NULL))
  191. {
  192. nbestMatch = nmatch;
  193. candidates = current_candidate;
  194. last_candidate = current_candidate;
  195. ncandidates = 1;
  196. }
  197. /* no worse than the last choice, so keep this one too? */
  198. else if (nmatch == nbestMatch)
  199. {
  200. last_candidate->next = current_candidate;
  201. last_candidate = current_candidate;
  202. ncandidates++;
  203. }
  204. /* otherwise, don't bother keeping this one... */
  205. else
  206. last_candidate->next = NULL;
  207. }
  208. if (ncandidates <= 1)
  209. {
  210. if (!can_coerce_type(1, &input_typeids[0], &candidates->args[0])
  211.  || !can_coerce_type(1, &input_typeids[1], &candidates->args[1]))
  212. ncandidates = 0;
  213. return (ncandidates == 1) ? candidates->args : NULL;
  214. }
  215. /*
  216.  * Still too many candidates?
  217.  * Now look for candidates which allow coersion and are preferred types.
  218.  * Keep all candidates if none match.
  219.  */
  220. ncandidates = 0;
  221. nbestMatch = 0;
  222. last_candidate = NULL;
  223. for (current_candidate = candidates;
  224.  current_candidate != NULL;
  225.  current_candidate = current_candidate->next)
  226. {
  227. current_typeids = current_candidate->args;
  228. nmatch = 0;
  229. for (i = 0; i < nargs; i++)
  230. {
  231. current_category = TypeCategory(current_typeids[i]);
  232. if (input_typeids[i] != UNKNOWNOID)
  233. {
  234. if (current_typeids[i] == input_typeids[i])
  235. nmatch++;
  236. else if (IsPreferredType(current_category, current_typeids[i])
  237.  && can_coerce_type(1, &input_typeids[i], &current_typeids[i]))
  238. nmatch++;
  239. }
  240. }
  241. if ((nmatch > nbestMatch) || (last_candidate == NULL))
  242. {
  243. nbestMatch = nmatch;
  244. candidates = current_candidate;
  245. last_candidate = current_candidate;
  246. ncandidates = 1;
  247. }
  248. else if (nmatch == nbestMatch)
  249. {
  250. last_candidate->next = current_candidate;
  251. last_candidate = current_candidate;
  252. ncandidates++;
  253. }
  254. else
  255. last_candidate->next = NULL;
  256. }
  257. if (ncandidates <= 1)
  258. {
  259. if (!can_coerce_type(1, &input_typeids[0], &candidates->args[0])
  260. || ((nargs > 1) && !can_coerce_type(1, &input_typeids[1], &candidates->args[1])))
  261. ncandidates = 0;
  262. return (ncandidates == 1) ? candidates->args : NULL;
  263. }
  264. /*
  265.  * Still too many candidates?
  266.  * Try assigning types for the unknown columns.
  267.  */
  268. unknownOids = FALSE;
  269. current_type = UNKNOWNOID;
  270. for (i = 0; i < nargs; i++)
  271. {
  272. if ((input_typeids[i] != UNKNOWNOID)
  273. && (input_typeids[i] != InvalidOid))
  274. current_type = input_typeids[i];
  275. else
  276. unknownOids = TRUE;
  277. }
  278. if (unknownOids && (current_type != UNKNOWNOID))
  279. {
  280. for (current_candidate = candidates;
  281.  current_candidate != NULL;
  282.  current_candidate = current_candidate->next)
  283. {
  284. nmatch = 0;
  285. for (i = 0; i < nargs; i++)
  286. {
  287. current_typeids = current_candidate->args;
  288. if ((current_type == current_typeids[i])
  289. || IS_BINARY_COMPATIBLE(current_type, current_typeids[i]))
  290. nmatch++;
  291. }
  292. if (nmatch == nargs)
  293. return candidates->args;
  294. }
  295. }
  296. for (i = 0; i < nargs; i++)
  297. {
  298. if (input_typeids[i] == UNKNOWNOID)
  299. {
  300. slot_category = INVALID_TYPE;
  301. slot_type = InvalidOid;
  302. for (current_candidate = candidates;
  303.  current_candidate != NULL;
  304.  current_candidate = current_candidate->next)
  305. {
  306. current_typeids = current_candidate->args;
  307. current_type = current_typeids[i];
  308. current_category = TypeCategory(current_typeids[i]);
  309. if (slot_category == InvalidOid)
  310. {
  311. slot_category = current_category;
  312. slot_type = current_type;
  313. }
  314. else if (current_category != slot_category)
  315. return NULL;
  316. else if (current_type != slot_type)
  317. {
  318. if (IsPreferredType(slot_category, current_type))
  319. {
  320. slot_type = current_type;
  321. candidates = current_candidate;
  322. }
  323. else
  324. {
  325. }
  326. }
  327. }
  328. if (slot_type != InvalidOid)
  329. input_typeids[i] = slot_type;
  330. }
  331. else
  332. {
  333. }
  334. }
  335. ncandidates = 0;
  336. for (current_candidate = candidates;
  337.  current_candidate != NULL;
  338.  current_candidate = current_candidate->next)
  339. {
  340. if (can_coerce_type(1, &input_typeids[0], &current_candidate->args[0])
  341. && can_coerce_type(1, &input_typeids[1], &current_candidate->args[1]))
  342. ncandidates++;
  343. }
  344. return (ncandidates == 1) ? candidates->args : NULL;
  345. } /* oper_select_candidate() */
  346. /* oper_exact()
  347.  * Given operator, and arguments, return oper struct.
  348.  * Inputs:
  349.  * arg1, arg2: Type IDs
  350.  */
  351. Operator
  352. oper_exact(char *op, Oid arg1, Oid arg2, Node **ltree, Node **rtree, bool noWarnings)
  353. {
  354. HeapTuple tup;
  355. Node    *tree;
  356. /* Unspecified type for one of the arguments? then use the other */
  357. if ((arg1 == UNKNOWNOID) && (arg2 != InvalidOid))
  358. arg1 = arg2;
  359. else if ((arg2 == UNKNOWNOID) && (arg1 != InvalidOid))
  360. arg2 = arg1;
  361. tup = SearchSysCacheTuple(OPRNAME,
  362.   PointerGetDatum(op),
  363.   ObjectIdGetDatum(arg1),
  364.   ObjectIdGetDatum(arg2),
  365.   CharGetDatum('b'));
  366. /*
  367.  * Did not find anything? then try flipping arguments on a commutative
  368.  * operator...
  369.  */
  370. if (!HeapTupleIsValid(tup) && (arg1 != arg2))
  371. {
  372. tup = SearchSysCacheTuple(OPRNAME,
  373.   PointerGetDatum(op),
  374.   ObjectIdGetDatum(arg2),
  375.   ObjectIdGetDatum(arg1),
  376.   CharGetDatum('b'));
  377. if (HeapTupleIsValid(tup))
  378. {
  379. Form_pg_operator opform;
  380. opform = (Form_pg_operator) GETSTRUCT(tup);
  381. if (opform->oprcom == tup->t_data->t_oid)
  382. {
  383. if ((ltree != NULL) && (rtree != NULL))
  384. {
  385. tree = *ltree;
  386. *ltree = *rtree;
  387. *rtree = tree;
  388. }
  389. }
  390. /* disable for now... - thomas 1998-05-14 */
  391. else
  392. tup = NULL;
  393. }
  394. if (!HeapTupleIsValid(tup) && (!noWarnings))
  395. op_error(op, arg1, arg2);
  396. }
  397. return tup;
  398. } /* oper_exact() */
  399. /* oper_inexact()
  400.  * Given operator, types of arg1, and arg2, return oper struct.
  401.  * Inputs:
  402.  * arg1, arg2: Type IDs
  403.  */
  404. Operator
  405. oper_inexact(char *op, Oid arg1, Oid arg2, Node **ltree, Node **rtree, bool noWarnings)
  406. {
  407. HeapTuple tup;
  408. CandidateList candidates;
  409. int ncandidates;
  410. Oid    *targetOids;
  411. Oid inputOids[2];
  412. /* Unspecified type for one of the arguments? then use the other */
  413. if (arg2 == InvalidOid)
  414. arg2 = arg1;
  415. if (arg1 == InvalidOid)
  416. arg1 = arg2;
  417. ncandidates = binary_oper_get_candidates(op, arg1, arg2, &candidates);
  418. /* No operators found? Then throw error or return null... */
  419. if (ncandidates == 0)
  420. {
  421. if (!noWarnings)
  422. op_error(op, arg1, arg2);
  423. return NULL;
  424. }
  425. /* Or found exactly one? Then proceed... */
  426. else if (ncandidates == 1)
  427. {
  428. tup = SearchSysCacheTuple(OPRNAME,
  429.   PointerGetDatum(op),
  430.   ObjectIdGetDatum(candidates->args[0]),
  431.   ObjectIdGetDatum(candidates->args[1]),
  432.   CharGetDatum('b'));
  433. Assert(HeapTupleIsValid(tup));
  434. }
  435. /* Otherwise, multiple operators of the desired types found... */
  436. else
  437. {
  438. inputOids[0] = arg1;
  439. inputOids[1] = arg2;
  440. targetOids = oper_select_candidate(2, inputOids, candidates);
  441. if (targetOids != NULL)
  442. {
  443. tup = SearchSysCacheTuple(OPRNAME,
  444.   PointerGetDatum(op),
  445.   ObjectIdGetDatum(targetOids[0]),
  446.   ObjectIdGetDatum(targetOids[1]),
  447.   CharGetDatum('b'));
  448. }
  449. else
  450. tup = NULL;
  451. /* Could not choose one, for whatever reason... */
  452. if (!HeapTupleIsValid(tup))
  453. {
  454. if (!noWarnings)
  455. {
  456. elog(ERROR, "Unable to identify an operator '%s' for types '%s' and '%s'"
  457.  "ntYou will have to retype this query using an explicit cast",
  458.  op, typeTypeName(typeidType(arg1)), typeTypeName(typeidType(arg2)));
  459. }
  460. return NULL;
  461. }
  462. }
  463. return (Operator) tup;
  464. } /* oper_inexact() */
  465. /* oper()
  466.  * Given operator, types of arg1, and arg2, return oper struct.
  467.  * Inputs:
  468.  * arg1, arg2: Type IDs
  469.  */
  470. Operator
  471. oper(char *opname, Oid ltypeId, Oid rtypeId, bool noWarnings)
  472. {
  473. HeapTuple tup;
  474. /* check for exact match on this operator... */
  475. if (HeapTupleIsValid(tup = oper_exact(opname, ltypeId, rtypeId, NULL, NULL, TRUE)))
  476. {
  477. }
  478. /* try to find a match on likely candidates... */
  479. else if (HeapTupleIsValid(tup = oper_inexact(opname, ltypeId, rtypeId, NULL, NULL, TRUE)))
  480. {
  481. }
  482. else if (!noWarnings)
  483. {
  484. elog(ERROR, "Unable to identify a binary operator '%s' for types %s and %s",
  485.  opname, typeTypeName(typeidType(ltypeId)), typeTypeName(typeidType(rtypeId)));
  486. }
  487. return (Operator) tup;
  488. } /* oper() */
  489. /* unary_oper_get_candidates()
  490.  * given opname and typeId, find all possible types for which
  491.  * a right/left unary operator named opname exists,
  492.  * such that typeId can be coerced to it
  493.  */
  494. static int
  495. unary_oper_get_candidates(char *op,
  496.   Oid typeId,
  497.   CandidateList *candidates,
  498.   char rightleft)
  499. {
  500. CandidateList current_candidate;
  501. Relation pg_operator_desc;
  502. HeapScanDesc pg_operator_scan;
  503. HeapTuple tup;
  504. Form_pg_operator oper;
  505. int ncandidates = 0;
  506. static ScanKeyData opKey[2] = {
  507. {0, Anum_pg_operator_oprname, F_NAMEEQ},
  508. {0, Anum_pg_operator_oprkind, F_CHAREQ}};
  509. *candidates = NULL;
  510. fmgr_info(F_NAMEEQ, (FmgrInfo *) &opKey[0].sk_func);
  511. opKey[0].sk_argument = NameGetDatum(op);
  512. fmgr_info(F_CHAREQ, (FmgrInfo *) &opKey[1].sk_func);
  513. opKey[1].sk_argument = CharGetDatum(rightleft);
  514. pg_operator_desc = heap_openr(OperatorRelationName);
  515. pg_operator_scan = heap_beginscan(pg_operator_desc,
  516.   0,
  517.   SnapshotSelf, /* ??? */
  518.   2,
  519.   opKey);
  520. while (HeapTupleIsValid(tup = heap_getnext(pg_operator_scan, 0)))
  521. {
  522. current_candidate = (CandidateList) palloc(sizeof(struct _CandidateList));
  523. current_candidate->args = (Oid *) palloc(sizeof(Oid));
  524. oper = (Form_pg_operator) GETSTRUCT(tup);
  525. if (rightleft == 'r')
  526. current_candidate->args[0] = oper->oprleft;
  527. else
  528. current_candidate->args[0] = oper->oprright;
  529. current_candidate->next = *candidates;
  530. *candidates = current_candidate;
  531. ncandidates++;
  532. }
  533. heap_endscan(pg_operator_scan);
  534. heap_close(pg_operator_desc);
  535. return ncandidates;
  536. } /* unary_oper_get_candidates() */
  537. /* Given unary right-side operator (operator on right), return oper struct */
  538. /* arg-- type id */
  539. Operator
  540. right_oper(char *op, Oid arg)
  541. {
  542. HeapTuple tup;
  543. CandidateList candidates;
  544. int ncandidates;
  545. Oid    *targetOid;
  546. tup = SearchSysCacheTuple(OPRNAME,
  547.   PointerGetDatum(op),
  548.   ObjectIdGetDatum(arg),
  549.   ObjectIdGetDatum(InvalidOid),
  550.   CharGetDatum('r'));
  551. if (!HeapTupleIsValid(tup))
  552. {
  553. ncandidates = unary_oper_get_candidates(op, arg, &candidates, 'r');
  554. if (ncandidates == 0)
  555. {
  556. elog(ERROR, "Can't find right op '%s' for type %u", op, arg);
  557. return NULL;
  558. }
  559. else if (ncandidates == 1)
  560. {
  561. tup = SearchSysCacheTuple(OPRNAME,
  562.   PointerGetDatum(op),
  563.    ObjectIdGetDatum(candidates->args[0]),
  564.   ObjectIdGetDatum(InvalidOid),
  565.   CharGetDatum('r'));
  566. Assert(HeapTupleIsValid(tup));
  567. }
  568. else
  569. {
  570. targetOid = oper_select_candidate(1, &arg, candidates);
  571. if (targetOid != NULL)
  572. {
  573. tup = SearchSysCacheTuple(OPRNAME,
  574.   PointerGetDatum(op),
  575.   ObjectIdGetDatum(InvalidOid),
  576.   ObjectIdGetDatum(*targetOid),
  577.   CharGetDatum('r'));
  578. }
  579. else
  580. tup = NULL;
  581. if (!HeapTupleIsValid(tup))
  582. {
  583. elog(ERROR, "Unable to convert right operator '%s' from type '%s'",
  584.  op, typeidTypeName(arg));
  585. return NULL;
  586. }
  587. }
  588. }
  589. return (Operator) tup;
  590. } /* right_oper() */
  591. /* Given unary left-side operator (operator on left), return oper struct */
  592. /* arg--type id */
  593. Operator
  594. left_oper(char *op, Oid arg)
  595. {
  596. HeapTuple tup;
  597. CandidateList candidates;
  598. int ncandidates;
  599. Oid    *targetOid;
  600. tup = SearchSysCacheTuple(OPRNAME,
  601.   PointerGetDatum(op),
  602.   ObjectIdGetDatum(InvalidOid),
  603.   ObjectIdGetDatum(arg),
  604.   CharGetDatum('l'));
  605. if (!HeapTupleIsValid(tup))
  606. {
  607. ncandidates = unary_oper_get_candidates(op, arg, &candidates, 'l');
  608. if (ncandidates == 0)
  609. {
  610. elog(ERROR, "Can't find left op '%s' for type %u", op, arg);
  611. return NULL;
  612. }
  613. else if (ncandidates == 1)
  614. {
  615. tup = SearchSysCacheTuple(OPRNAME,
  616.   PointerGetDatum(op),
  617.   ObjectIdGetDatum(InvalidOid),
  618.    ObjectIdGetDatum(candidates->args[0]),
  619.   CharGetDatum('l'));
  620. Assert(HeapTupleIsValid(tup));
  621. }
  622. else
  623. {
  624. targetOid = oper_select_candidate(1, &arg, candidates);
  625. if (targetOid != NULL)
  626. {
  627. tup = SearchSysCacheTuple(OPRNAME,
  628.   PointerGetDatum(op),
  629.   ObjectIdGetDatum(InvalidOid),
  630.   ObjectIdGetDatum(*targetOid),
  631.   CharGetDatum('l'));
  632. }
  633. else
  634. tup = NULL;
  635. if (!HeapTupleIsValid(tup))
  636. {
  637. elog(ERROR, "Unable to convert left operator '%s' from type '%s'",
  638.  op, typeidTypeName(arg));
  639. return NULL;
  640. }
  641. }
  642. }
  643. return (Operator) tup;
  644. } /* left_oper() */
  645. /* op_error()
  646.  * Give a somewhat useful error message when the operator for two types
  647.  * is not found.
  648.  */
  649. static void
  650. op_error(char *op, Oid arg1, Oid arg2)
  651. {
  652. Type tp1 = NULL,
  653. tp2 = NULL;
  654. if (typeidIsValid(arg1))
  655. tp1 = typeidType(arg1);
  656. else
  657. {
  658. elog(ERROR, "Left hand side of operator '%s' has an unknown type"
  659.  "ntProbably a bad attribute name", op);
  660. }
  661. if (typeidIsValid(arg2))
  662. tp2 = typeidType(arg2);
  663. else
  664. {
  665. elog(ERROR, "Right hand side of operator %s has an unknown type"
  666.  "ntProbably a bad attribute name", op);
  667. }
  668. elog(ERROR, "There is no operator '%s' for types '%s' and '%s'"
  669.  "ntYou will either have to retype this query using an explicit cast,"
  670.  "ntor you will have to define the operator using CREATE OPERATOR",
  671.  op, typeTypeName(tp1), typeTypeName(tp2));
  672. }