Function move_from_string

src/jrd/blb.cpp:2567–2680

static void move_from_string(thread_db* tdbb, const dsc* from_desc, dsc* to_desc,
							 jrd_rel* relation, Record* record, USHORT fieldId)
{
/**************************************
 *
 *      m o v e _ f r o m _ s t r i n g
 *
 **************************************
 *
 * Functional description
 *      Perform an assignment to a blob field.  It's capable of handling
 *      strings (and anything that could be converted to strings) by
 *      doing an internal conversion to blob and then calling blb::move
 *      with that new blob.
 *
 **************************************/
	SET_TDBB (tdbb);

	const UCHAR charSet = INTL_GET_CHARSET(from_desc);
	UCHAR* fromstr = NULL;

	MoveBuffer buffer;
	const int length = MOV_make_string2(tdbb, from_desc, charSet, &fromstr, buffer);
	const UCHAR toCharSet = to_desc->getCharSet();

	if ((charSet == CS_NONE || charSet == CS_BINARY || charSet == toCharSet) &&
		toCharSet != CS_NONE && toCharSet != CS_BINARY)
	{
		if (!INTL_charset_lookup(tdbb, toCharSet)->wellFormed(length, fromstr))
			status_exception::raise(Arg::Gds(isc_malformed_string));
	}

	Request* request = tdbb->getRequest();
	jrd_tra* transaction = request ? request->req_transaction : tdbb->getTransaction();
	transaction = transaction->getOuter();

	UCharBuffer bpb;

	if (!(from_desc->isText() && from_desc->getCharSet() == CS_BINARY))
		BLB_gen_bpb_from_descs(from_desc, to_desc, bpb);

	bid temp_bid;
	temp_bid.clear();
	blb* blob = blb::create2(tdbb, transaction, &temp_bid, bpb.getCount(), bpb.begin());

	DSC blob_desc;
	blob_desc.clear();

	blob_desc.dsc_scale = to_desc->dsc_scale;	// blob charset
	blob_desc.dsc_flags = (blob_desc.dsc_flags & 0xFF) | (to_desc->dsc_flags & 0xFF00);	// blob collation
	blob_desc.dsc_sub_type = to_desc->dsc_sub_type;
	blob_desc.dsc_dtype = dtype_blob;
	blob_desc.dsc_length = sizeof(ISC_QUAD);
	blob_desc.dsc_address = reinterpret_cast<UCHAR*>(&temp_bid);
	blob->BLB_put_segment(tdbb, fromstr, length);
	blob->BLB_close(tdbb);
	ULONG blob_temp_id = blob->getTempId();
	blb::move(tdbb, &blob_desc, to_desc, relation, record, fieldId);