*
*
* IDENTIFICATION
- * $Header: /cvsroot/pgsql/src/backend/utils/adt/varchar.c,v 1.12 1997/12/06 22:57:14 momjian Exp $
+ * $Header: /cvsroot/pgsql/src/backend/utils/adt/varchar.c,v 1.13 1997/12/16 15:59:09 thomas Exp $
*
*-------------------------------------------------------------------------
*/
* len is the length specified in () plus VARHDRSZ bytes. (XXX dummy is here
* because we pass typelem as the second argument for array_in.)
*/
-char *
+char *
varcharin(char *s, int dummy, int typlen)
{
char *result;
return (i + 1);
}
+int32
+bpcharlen(char *arg)
+{
+ if (!PointerIsValid(arg))
+ elog(WARN, "Bad (null) char() external representation", NULL);
+
+ return(bcTruelen(arg));
+} /* bpcharlen() */
+
bool
bpchareq(char *arg1, char *arg2)
{
return i;
}
+int32
+varcharlen(char *arg)
+{
+ if (!PointerIsValid(arg))
+ elog(WARN, "Bad (null) varchar() external representation", NULL);
+
+ return(vcTruelen(arg));
+} /* vclen() */
+
bool
varchareq(char *arg1, char *arg2)
{
*
*
* IDENTIFICATION
- * $Header: /cvsroot/pgsql/src/backend/utils/adt/varlena.c,v 1.24 1997/12/08 04:42:48 momjian Exp $
+ * $Header: /cvsroot/pgsql/src/backend/utils/adt/varlena.c,v 1.25 1997/12/16 15:59:11 thomas Exp $
*
*-------------------------------------------------------------------------
*/
* returns the actual length of a text* (which may be less than
* the VARSIZE of the text*)
*/
-#ifdef NOT_USED
int
textlen(text *t)
{
- int i = 0;
- int max = VARSIZE(t) - VARHDRSZ;
- char *ptr = VARDATA(t);
-
- while (i < max && *ptr++)
- i++;
- return i;
-}
+ if (!PointerIsValid(t))
+ elog(WARN,"Null input to textlen");
-#endif
+ return (VARSIZE(t) - VARHDRSZ);
+} /* textlen() */
/*
* textcat -