*

*

* IDENTIFICATION

* $Header: /cvsroot/pgsql/src/backend/parser/gram.y,v 2.77 1999/05/17 01:01:06 momjian Exp $

* $Header: /cvsroot/pgsql/src/backend/parser/gram.y,v 2.78 1999/05/19 17:53:10 momjian Exp $

*

* HISTORY

* AUTHORDATEMAJOR EVENT

if ($3 < 1)

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

else if ($3 > 4096)

/* we can store a char() of length up to the size

* of a page (8KB) - page headers and friends but

* just to be safe here...- ay 6/95

* XXX note this hardcoded limit - thomas 1997-07-13

*/

elog(ERROR,"length for type '%s' cannot exceed 4096",$1);

else if ($3 > BLCKSZ - 128)

elog(ERROR,"length for type '%s' cannot exceed %d",$1, BLCKSZ-128);

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

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

len=atttypmod-VARHDRSZ;

if (len>4096)

elog(ERROR,"bpcharin: length of char() must be less than4096");

if (len>BLCKSZ-128)

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

result= (char*)palloc(atttypmod);

VARSIZE(result)=atttypmod;

rlen=len-VARHDRSZ;

if (rlen>4096)

elog(ERROR,"bpchar: length of char() must be less than4096");

if (rlen>BLCKSZ-128)

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

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>4096)

elog(ERROR,"varcharin: length of char() must be less than4096");

if (len>BLCKSZ-128)

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

result= (char*)palloc(len);

VARSIZE(result)=len;

len=slen-VARHDRSZ;

if (len>4096)

elog(ERROR,"varchar: length of varchar() must be less than4096");

if (len>BLCKSZ-128)

elog(ERROR,"varchar: length of varchar() must be less thanBLCKSZ-128");

result= (char*)palloc(slen);

VARSIZE(result)=slen;

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

yyerror(errortext);

}

elseif (atol($3) >4096) {

elseif (atol($3) >BLCKSZ -128) {

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

sprintf(errortext,"length for type '%s' cannot exceed%d",BLCKSZ-128);

yyerror(errortext);

}