*

*

* IDENTIFICATION

* $Header: /cvsroot/pgsql/src/backend/parser/gram.y,v 2.85 1999/07/03 00:32:44 momjian Exp $

* $Header: /cvsroot/pgsql/src/backend/parser/gram.y,v 2.86 1999/07/04 04:55:59 momjian Exp $

*

* HISTORY

* AUTHORDATEMAJOR EVENT

if ($3 < 1)

elog(ERROR,"length for '%s' type must be at least 1",$1);

else if ($3 >MaxTupleSize)

else if ($3 >MaxAttrSize)

elog(ERROR,"length for type '%s' cannot exceed %d",$1,

MaxTupleSize);

MaxAttrSize);

/* we actually implement this sort of like a varlen, so

* the first 4 bytes is the length. (the difference

len=atttypmod-VARHDRSZ;

if (len>MaxTupleSize)

if (len>MaxAttrSize)

elog(ERROR,"bpcharin: length of char() must be less than %d",

MaxTupleSize);

MaxAttrSize);

result= (char*)palloc(atttypmod);

VARSIZE(result)=atttypmod;

rlen=len-VARHDRSZ;

if (rlen>MaxTupleSize)

if (rlen>MaxAttrSize)

elog(ERROR,"bpchar: length of char() must be less than %d",

MaxTupleSize);

MaxAttrSize);

printf("bpchar- convert string length %d (%d) ->%d (%d)\n",

if (atttypmod!=-1&&len>atttypmod)

len=atttypmod;/* clip the string at max length */

if (len>MaxTupleSize)

if (len>MaxAttrSize)

elog(ERROR,"varcharin: length of char() must be less than %d",

MaxTupleSize);

MaxAttrSize);

result= (char*)palloc(len);

VARSIZE(result)=len;

len=slen-VARHDRSZ;

if (len>MaxTupleSize)

if (len>MaxAttrSize)

elog(ERROR,"varchar: length of varchar() must be less than %d",

MaxTupleSize);

MaxAttrSize);

result= (char*)palloc(slen);

VARSIZE(result)=slen;

#defineMinTupleSize(DOUBLEALIGN(sizeof (PageHeaderData) + \

sizeof(HeapTupleHeaderData) + sizeof(int4)))

#defineMaxTupleSize(BLCKSZ/2 - MinTupleSize)

#defineMaxTupleSize(BLCKSZ - MinTupleSize)

#defineMaxAttrSize(MaxTupleSize - sizeof(HeapTupleHeaderData))

#defineSelfItemPointerAttributeNumber(-1)

#defineObjectIdAttributeNumber(-2)

sprintf(errortext,"length for '%s' type must be at least 1",$1);

yyerror(errortext);

}

elseif (atol($3) >MaxTupleSize) {

sprintf(errortext,"length for type '%s' cannot exceed %d",$1,MaxTupleSize);

elseif (atol($3) >MaxAttrSize) {

sprintf(errortext,"length for type '%s' cannot exceed %d",$1,MaxAttrSize);

yyerror(errortext);

}