| /*------------------------------------------------------------------------- |
| * |
| * value.c |
| * implementation of Value nodes |
| * |
| * |
| * Copyright (c) 2003-2009, PostgreSQL Global Development Group |
| * |
| * |
| * IDENTIFICATION |
| * $PostgreSQL: pgsql/src/backend/nodes/value.c,v 1.6 2009/01/01 17:23:43 momjian Exp $ |
| * |
| *------------------------------------------------------------------------- |
| */ |
| #include "postgres.h" |
| |
| #include "nodes/parsenodes.h" |
| |
| /* |
| * makeInteger |
| */ |
| Value * |
| makeInteger(long i) |
| { |
| Value *v = makeNode(Value); |
| |
| v->type = T_Integer; |
| v->val.ival = i; |
| return v; |
| } |
| |
| /* |
| * makeFloat |
| * |
| * Caller is responsible for passing a palloc'd string. |
| */ |
| Value * |
| makeFloat(char *numericStr) |
| { |
| Value *v = makeNode(Value); |
| |
| v->type = T_Float; |
| v->val.str = numericStr; |
| return v; |
| } |
| |
| /* |
| * makeString |
| * |
| * Caller is responsible for passing a palloc'd string. |
| */ |
| Value * |
| makeString(char *str) |
| { |
| Value *v = makeNode(Value); |
| |
| v->type = T_String; |
| v->val.str = str; |
| return v; |
| } |
| |
| /* |
| * makeBitString |
| * |
| * Caller is responsible for passing a palloc'd string. |
| */ |
| Value * |
| makeBitString(char *str) |
| { |
| Value *v = makeNode(Value); |
| |
| v->type = T_BitString; |
| v->val.str = str; |
| return v; |
| } |