/*
 * Licensed to the Apache Software Foundation (ASF) under one
 * or more contributor license agreements.  See the NOTICE file
 * distributed with this work for additional information
 * regarding copyright ownership.  The ASF licenses this file
 * to you under the Apache License, Version 2.0 (the
 * "License"); you may not use this file except in compliance
 * with the License.  You may obtain a copy of the License at
 *
 *   http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing,
 * software distributed under the License is distributed on an
 * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
 * KIND, either express or implied.  See the License for the
 * specific language governing permissions and limitations
 * under the License.
 */
/*-----------------------------------------------------------------------
 *
 * Wrappers around string.h functions
 *
 * $PostgreSQL: pgsql/src/include/utils/string_wrapper.h,v 1.27 2009/01/01 17:24:02 cwhipkey Exp $
 *
 *-----------------------------------------------------------------------
 */

#ifndef _UTILS___STRING_WRAPPER_H
#define _UTILS___STRING_WRAPPER_H

#include <string.h>
#include <errno.h>
#include <utils/elog.h>

#define NULL_TO_DUMMY_STR(s) ((s) == NULL ? "<<null>>" : (s))
#define SAFE_STR_LENGTH(s) ((s) == NULL ? 0 : strlen(s))

static inline
int gp_strcoll(const char *left, const char *right)
{
	int result;

	errno = 0;
	result = strcoll(left, right);

	if ( errno != 0 )
	{
		if ( errno == EINVAL || errno == EILSEQ)
		{
			ereport(ERROR,
					(errcode(ERRCODE_UNTRANSLATABLE_CHARACTER),
							errmsg("Unable to compare strings because one or both contained data that is not valid "
							       "for the collation specified by LC_COLLATE ('%s').  First string has length %lu "
							       "and value (limited to 100 characters): '%.100s'.  Second string has length %lu "
							       "and value (limited to 100 characters): '%.100s'",
									GetConfigOption("lc_collate"),
									(unsigned long) SAFE_STR_LENGTH(left),
									NULL_TO_DUMMY_STR(left),
									(unsigned long) SAFE_STR_LENGTH(left),
									NULL_TO_DUMMY_STR(right))));
		}
		else
		{
			ereport(ERROR,
					(errcode(ERRCODE_GP_INTERNAL_ERROR),
							errmsg("Unable to compare strings.  "
							       "Error: %s.  "
							       "First string has length %lu and value (limited to 100 characters): '%.100s'.  "
							       "Second string has length %lu and value (limited to 100 characters): '%.100s'",
									strerror(errno),
									(unsigned long) SAFE_STR_LENGTH(left),
									NULL_TO_DUMMY_STR(left),
									(unsigned long) SAFE_STR_LENGTH(left),
									NULL_TO_DUMMY_STR(right))));
		}
	}

	return result;
}

static inline
size_t gp_strxfrm(char *dst, const char *src, size_t n)
{
	size_t result;

	errno = 0;
	result = strxfrm(dst, src, n);

	if ( errno != 0 )
	{
		if ( errno == EINVAL || errno == EILSEQ)
		{
			ereport(ERROR,
					(errcode(ERRCODE_UNTRANSLATABLE_CHARACTER),
							errmsg("Unable to process string for comparison or sorting because it contains data that "
							        "is not valid for the collation specified by LC_COLLATE ('%s').  "
							        "The string has length %lu "
							        "and value (limited to 100 characters): '%.100s'",
								    GetConfigOption("lc_collate"),
									(unsigned long) SAFE_STR_LENGTH(src),
									NULL_TO_DUMMY_STR(src))));
		}
		else
		{
			ereport(ERROR,
					(errcode(ERRCODE_GP_INTERNAL_ERROR),
							errmsg("Unable to process string for comparison or sorting.  Error: %s.  "
							        "String has length %lu and value (limited to 100 characters): '%.100s'",
									strerror(errno),
									(unsigned long) SAFE_STR_LENGTH(src),
									NULL_TO_DUMMY_STR(src))));
		}
	}

	if (result >= n)
	{
		/* strxfrm documentation says if result >= n, contents of the dst are
		 * indeterminate.
		 * In this case, let's try again and return valid data.
		 */
		size_t dst_len = result;
		char * tmp_dst = (char *) palloc(dst_len + 1);

		result = strxfrm(tmp_dst, src, dst_len + 1);
		Assert(result <= dst_len);

		/* return a n-character null terminated string */
		memcpy(dst, tmp_dst, n-1);
		dst[n-1] = '\0';

		pfree(tmp_dst);
	}

	return result;
}

#endif   /* _UTILS___STRING_WRAPPER_H */