开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 数据库系统 > 查看源码
parse_oper.c
资源名称：postgresql-6.5.2.tar.gz　[点击查看]
上传用户：blenddy
上传日期：2007-01-07
资源大小：6495k
文件大小：19k
源码类别：

数据库系统

开发平台：

Unix_Linux

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