git.8kb.co.uk Git - pgpool-ii/pgpool-ii_2.2.5/blob - parser/value.c

   1 /*-------------------------------------------------------------------------
   2  *
   3  * value.c
   4  *        implementation of Value nodes
   5  *
   6  *
   7  * Portions Copyright (c) 2003-2008, PgPool Global Development Group
   8  * Copyright (c) 2003-2005, PostgreSQL Global Development Group
   9  *
  10  *
  11  * IDENTIFICATION
  12  *        $PostgreSQL: pgsql/src/backend/nodes/value.c,v 1.2 2005/01/01 20:44:15 tgl Exp $
  13  *
  14  *-------------------------------------------------------------------------
  15  */
  16 /*#include "postgres.h"*/
  17
  18 #include <stdlib.h>
  19 #include "pool_memory.h"
  20 #include "parsenodes.h"
  21
  22 /*
  23  *      makeInteger
  24  */
  25 Value *
  26 makeInteger(long i)
  27 {
  28         Value      *v = makeNode(Value);
  29
  30         v->type = T_Integer;
  31         v->val.ival = i;
  32         return v;
  33 }
  34
  35 /*
  36  *      makeFloat
  37  *
  38  * Caller is responsible for passing a palloc'd string.
  39  */
  40 Value *
  41 makeFloat(char *numericStr)
  42 {
  43         Value      *v = makeNode(Value);
  44
  45         v->type = T_Float;
  46         v->val.str = numericStr;
  47         return v;
  48 }
  49
  50 /*
  51  *      makeString
  52  *
  53  * Caller is responsible for passing a palloc'd string.
  54  */
  55 Value *
  56 makeString(char *str)
  57 {
  58         Value      *v = makeNode(Value);
  59
  60         v->type = T_String;
  61         v->val.str = str;
  62         return v;
  63 }
  64
  65 /*
  66  *      makeBitString
  67  *
  68  * Caller is responsible for passing a palloc'd string.
  69  */
  70 Value *
  71 makeBitString(char *str)
  72 {
  73         Value      *v = makeNode(Value);
  74
  75         v->type = T_BitString;
  76         v->val.str = str;
  77         return v;
  78 }