clone varlena function

Hello,

I am cleaning orafce module and I would to eliminate duplicit code
with core. Is in core similar macro or function?

text*
ora_clone_text(text *t)
{       text *result;
       result = palloc(VARSIZE(t));       SET_VARSIZE(result, VARSIZE(t));       memcpy(VARDATA(result), VARDATA(t),
VARSIZE(t)- VARHDRSZ);
 
       return result;
}

It can be used for any varlena datatype.

Thank you
Pavel Stehule