2013-03-22 05:30:31 +04:00
|
|
|
/*************************************************************************
|
|
|
|
*
|
|
|
|
* $Id: triostr.c,v 1.36 2010/01/26 13:02:02 breese Exp $
|
|
|
|
*
|
|
|
|
* Copyright (C) 2001 Bjorn Reese and Daniel Stenberg.
|
|
|
|
*
|
|
|
|
* Permission to use, copy, modify, and distribute this software for any
|
|
|
|
* purpose with or without fee is hereby granted, provided that the above
|
|
|
|
* copyright notice and this permission notice appear in all copies.
|
|
|
|
*
|
|
|
|
* THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR IMPLIED
|
|
|
|
* WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
|
|
|
|
* MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE AUTHORS AND
|
|
|
|
* CONTRIBUTORS ACCEPT NO RESPONSIBILITY IN ANY CONCEIVABLE MANNER.
|
|
|
|
*
|
|
|
|
************************************************************************/
|
|
|
|
|
|
|
|
/*************************************************************************
|
|
|
|
* Include files
|
|
|
|
*/
|
|
|
|
|
|
|
|
#if defined(HAVE_CONFIG_H)
|
|
|
|
# include <config.h>
|
|
|
|
#endif
|
|
|
|
#include <assert.h>
|
|
|
|
#include <stdlib.h>
|
|
|
|
#include <string.h>
|
|
|
|
#include <ctype.h>
|
|
|
|
#include "triodef.h"
|
|
|
|
#include "triostr.h"
|
|
|
|
#if defined(TRIO_FUNC_TO_LONG_DOUBLE)
|
|
|
|
# define USE_MATH
|
|
|
|
#endif
|
|
|
|
#if defined(USE_MATH)
|
|
|
|
# include <math.h>
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/*************************************************************************
|
|
|
|
* Definitions
|
|
|
|
*/
|
|
|
|
|
|
|
|
#if !defined(TRIO_PUBLIC_STRING)
|
|
|
|
# define TRIO_PUBLIC_STRING TRIO_PUBLIC
|
|
|
|
#endif
|
|
|
|
#if !defined(TRIO_PRIVATE_STRING)
|
|
|
|
# define TRIO_PRIVATE_STRING TRIO_PRIVATE
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#if !defined(NULL)
|
|
|
|
# define NULL 0
|
|
|
|
#endif
|
|
|
|
#if !defined(NIL)
|
|
|
|
# define NIL ((char)0)
|
|
|
|
#endif
|
|
|
|
#if !defined(FALSE)
|
|
|
|
# define FALSE (1 == 0)
|
|
|
|
# define TRUE (! FALSE)
|
|
|
|
#endif
|
|
|
|
#if !defined(BOOLEAN_T)
|
|
|
|
# define BOOLEAN_T int
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#if defined(USE_MATH)
|
|
|
|
# if defined(PREDEF_STANDARD_C99)
|
|
|
|
# if defined(TRIO_COMPILER_DECC)
|
|
|
|
# if (TRIO_COMPILER_DECC - 0 > 80000000)
|
|
|
|
/*
|
|
|
|
* The OSF/1 runtime that comes with the DECC compiler does not support
|
|
|
|
* hexfloats conversion.
|
|
|
|
*/
|
|
|
|
# define USE_STRTOD
|
|
|
|
# define USE_STRTOF
|
|
|
|
# endif
|
|
|
|
# else
|
|
|
|
# define USE_STRTOD
|
|
|
|
# define USE_STRTOF
|
|
|
|
# endif
|
|
|
|
# else
|
|
|
|
# if defined(TRIO_COMPILER_VISUALC)
|
|
|
|
# define USE_STRTOD
|
|
|
|
# endif
|
|
|
|
#endif
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#if defined(TRIO_PLATFORM_UNIX)
|
|
|
|
# if defined(PREDEF_STANDARD_UNIX95)
|
|
|
|
# define USE_STRCASECMP
|
|
|
|
# define USE_STRNCASECMP
|
|
|
|
# endif
|
|
|
|
# if defined(TRIO_PLATFORM_SUNOS)
|
|
|
|
# define USE_SYS_ERRLIST
|
|
|
|
# else
|
|
|
|
# define USE_STRERROR
|
|
|
|
# endif
|
|
|
|
# if defined(TRIO_PLATFORM_QNX)
|
|
|
|
# define strcasecmp(x,y) stricmp(x,y)
|
|
|
|
# define strncasecmp(x,y,n) strnicmp(x,y,n)
|
|
|
|
# endif
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#if defined(TRIO_PLATFORM_WIN32)
|
|
|
|
# define USE_STRCASECMP
|
|
|
|
# if defined(TRIO_PLATFORM_WINCE)
|
|
|
|
# define strcasecmp(x,y) _stricmp(x,y)
|
|
|
|
# else
|
2014-02-11 07:12:13 +04:00
|
|
|
# define strcasecmp(x,y) _stricmp(x,y)
|
2013-03-22 05:30:31 +04:00
|
|
|
# endif
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#if !defined(HAVE_CONFIG_H)
|
|
|
|
# if !(defined(TRIO_PLATFORM_SUNOS))
|
|
|
|
# define HAVE_TOLOWER
|
|
|
|
# define HAVE_TOUPPER
|
|
|
|
# endif
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#if defined(USE_MATH) && !defined(TRIO_NO_POWL)
|
|
|
|
# if !defined(HAVE_POWL)
|
|
|
|
# if defined(PREDEF_STANDARD_C99) \
|
|
|
|
|| defined(PREDEF_STANDARD_UNIX03)
|
|
|
|
# define HAVE_POWL
|
|
|
|
# else
|
|
|
|
# if defined(TRIO_COMPILER_VISUALC)
|
|
|
|
# if defined(powl)
|
|
|
|
# define HAVE_POWL
|
|
|
|
# endif
|
|
|
|
# endif
|
|
|
|
# endif
|
|
|
|
# endif
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#if defined(HAVE_POWL)
|
|
|
|
# define trio_powl(x,y) powl((x),(y))
|
|
|
|
#else
|
|
|
|
# define trio_powl(x,y) pow((double)(x),(double)(y))
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#if defined(TRIO_FUNC_TO_UPPER) \
|
|
|
|
|| (defined(TRIO_FUNC_EQUAL) && !defined(USE_STRCASECMP)) \
|
|
|
|
|| (defined(TRIO_FUNC_EQUAL_MAX) && !defined(USE_STRNCASECMP)) \
|
|
|
|
|| defined(TRIO_FUNC_MATCH) \
|
|
|
|
|| defined(TRIO_FUNC_TO_LONG_DOUBLE) \
|
|
|
|
|| defined(TRIO_FUNC_UPPER)
|
|
|
|
# define TRIO_FUNC_INTERNAL_TO_UPPER
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/*************************************************************************
|
|
|
|
* Structures
|
|
|
|
*/
|
|
|
|
|
|
|
|
struct _trio_string_t
|
|
|
|
{
|
|
|
|
char *content;
|
|
|
|
size_t length;
|
|
|
|
size_t allocated;
|
|
|
|
};
|
|
|
|
|
|
|
|
/*************************************************************************
|
|
|
|
* Constants
|
|
|
|
*/
|
|
|
|
|
|
|
|
#if !defined(TRIO_EMBED_STRING)
|
2014-07-23 22:22:30 +04:00
|
|
|
/* Unused but kept for reference */
|
|
|
|
/* static TRIO_CONST char rcsid[] = "@(#)$Id: triostr.c,v 1.36 2010/01/26 13:02:02 breese Exp $"; */
|
2013-03-22 05:30:31 +04:00
|
|
|
#endif
|
|
|
|
|
|
|
|
/*************************************************************************
|
|
|
|
* Static String Functions
|
|
|
|
*/
|
|
|
|
|
|
|
|
#if defined(TRIO_DOCUMENTATION)
|
|
|
|
# include "doc/doc_static.h"
|
|
|
|
#endif
|
|
|
|
/** @addtogroup StaticStrings
|
|
|
|
@{
|
|
|
|
*/
|
|
|
|
|
|
|
|
/*
|
|
|
|
* internal_duplicate_max
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_DUPLICATE) \
|
|
|
|
|| defined(TRIO_FUNC_DUPLICATE_MAX) \
|
|
|
|
|| defined(TRIO_FUNC_STRING_DUPLICATE) \
|
|
|
|
|| defined(TRIO_FUNC_XSTRING_DUPLICATE)
|
|
|
|
|
|
|
|
TRIO_PRIVATE_STRING char *
|
|
|
|
internal_duplicate_max
|
|
|
|
TRIO_ARGS2((source, size),
|
|
|
|
TRIO_CONST char *source,
|
|
|
|
size_t size)
|
|
|
|
{
|
|
|
|
char *target;
|
|
|
|
|
|
|
|
assert(source);
|
|
|
|
|
|
|
|
/* Make room for string plus a terminating zero */
|
|
|
|
size++;
|
|
|
|
target = trio_create(size);
|
|
|
|
if (target)
|
|
|
|
{
|
|
|
|
trio_copy_max(target, size, source);
|
|
|
|
}
|
|
|
|
return target;
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/*
|
|
|
|
* internal_string_alloc
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_STRING_CREATE) \
|
|
|
|
|| defined(TRIO_FUNC_STRING_DUPLICATE) \
|
|
|
|
|| defined(TRIO_FUNC_XSTRING_DUPLICATE)
|
|
|
|
|
|
|
|
TRIO_PRIVATE_STRING trio_string_t *
|
|
|
|
internal_string_alloc(TRIO_NOARGS)
|
|
|
|
{
|
|
|
|
trio_string_t *self;
|
|
|
|
|
|
|
|
self = (trio_string_t *)TRIO_MALLOC(sizeof(trio_string_t));
|
|
|
|
if (self)
|
|
|
|
{
|
|
|
|
self->content = NULL;
|
|
|
|
self->length = 0;
|
|
|
|
self->allocated = 0;
|
|
|
|
}
|
|
|
|
return self;
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/*
|
|
|
|
* internal_string_grow
|
|
|
|
*
|
|
|
|
* The size of the string will be increased by 'delta' characters. If
|
|
|
|
* 'delta' is zero, the size will be doubled.
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_STRING_CREATE) \
|
|
|
|
|| defined(TRIO_FUNC_STRING_APPEND) \
|
|
|
|
|| defined(TRIO_FUNC_XSTRING_APPEND) \
|
|
|
|
|| defined(TRIO_FUNC_XSTRING_APPEND_CHAR)
|
|
|
|
|
|
|
|
TRIO_PRIVATE_STRING BOOLEAN_T
|
|
|
|
internal_string_grow
|
|
|
|
TRIO_ARGS2((self, delta),
|
|
|
|
trio_string_t *self,
|
|
|
|
size_t delta)
|
|
|
|
{
|
|
|
|
BOOLEAN_T status = FALSE;
|
|
|
|
char *new_content;
|
|
|
|
size_t new_size;
|
|
|
|
|
|
|
|
new_size = (delta == 0)
|
|
|
|
? ( (self->allocated == 0) ? 1 : self->allocated * 2 )
|
|
|
|
: self->allocated + delta;
|
|
|
|
|
|
|
|
new_content = (char *)TRIO_REALLOC(self->content, new_size);
|
|
|
|
if (new_content)
|
|
|
|
{
|
|
|
|
self->content = new_content;
|
|
|
|
self->allocated = new_size;
|
|
|
|
status = TRUE;
|
|
|
|
}
|
|
|
|
return status;
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/*
|
|
|
|
* internal_string_grow_to
|
|
|
|
*
|
|
|
|
* The size of the string will be increased to 'length' plus one characters.
|
|
|
|
* If 'length' is less than the original size, the original size will be
|
|
|
|
* used (that is, the size of the string is never decreased).
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_STRING_APPEND) \
|
|
|
|
|| defined(TRIO_FUNC_XSTRING_APPEND) \
|
|
|
|
|| defined(TRIO_FUNC_XSTRING_APPEND_MAX)
|
|
|
|
|
|
|
|
TRIO_PRIVATE_STRING BOOLEAN_T
|
|
|
|
internal_string_grow_to
|
|
|
|
TRIO_ARGS2((self, length),
|
|
|
|
trio_string_t *self,
|
|
|
|
size_t length)
|
|
|
|
{
|
|
|
|
length++; /* Room for terminating zero */
|
|
|
|
return (self->allocated < length)
|
|
|
|
? internal_string_grow(self, length - self->allocated)
|
|
|
|
: TRUE;
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#if defined(TRIO_FUNC_INTERNAL_TO_UPPER)
|
|
|
|
|
|
|
|
TRIO_PRIVATE_STRING TRIO_INLINE int
|
|
|
|
internal_to_upper
|
|
|
|
TRIO_ARGS1((source),
|
|
|
|
int source)
|
|
|
|
{
|
|
|
|
# if defined(HAVE_TOUPPER)
|
|
|
|
|
|
|
|
return toupper(source);
|
|
|
|
|
|
|
|
# else
|
|
|
|
|
|
|
|
/* Does not handle locales or non-contiguous alphabetic characters */
|
|
|
|
return ((source >= (int)'a') && (source <= (int)'z'))
|
|
|
|
? source - 'a' + 'A'
|
|
|
|
: source;
|
|
|
|
|
|
|
|
# endif
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
Create new string.
|
|
|
|
|
|
|
|
@param size Size of new string.
|
|
|
|
@return Pointer to string, or NULL if allocation failed.
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_CREATE)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING char *
|
|
|
|
trio_create
|
|
|
|
TRIO_ARGS1((size),
|
|
|
|
size_t size)
|
|
|
|
{
|
|
|
|
return (char *)TRIO_MALLOC(size);
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/**
|
|
|
|
Destroy string.
|
|
|
|
|
|
|
|
@param string String to be freed.
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_DESTROY)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING void
|
|
|
|
trio_destroy
|
|
|
|
TRIO_ARGS1((string),
|
|
|
|
char *string)
|
|
|
|
{
|
|
|
|
if (string)
|
|
|
|
{
|
|
|
|
TRIO_FREE(string);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/**
|
|
|
|
Count the number of characters in a string.
|
|
|
|
|
|
|
|
@param string String to measure.
|
|
|
|
@return Number of characters in @p string.
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_LENGTH)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING size_t
|
|
|
|
trio_length
|
|
|
|
TRIO_ARGS1((string),
|
|
|
|
TRIO_CONST char *string)
|
|
|
|
{
|
|
|
|
return strlen(string);
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/**
|
|
|
|
Count at most @p max characters in a string.
|
|
|
|
|
|
|
|
@param string String to measure.
|
|
|
|
@param max Maximum number of characters to count.
|
|
|
|
@return The maximum value of @p max and number of characters in @p string.
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_LENGTH_MAX)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING size_t
|
|
|
|
trio_length_max
|
|
|
|
TRIO_ARGS2((string, max),
|
|
|
|
TRIO_CONST char *string,
|
|
|
|
size_t max)
|
|
|
|
{
|
|
|
|
size_t i;
|
|
|
|
|
|
|
|
for (i = 0; i < max; ++i)
|
|
|
|
{
|
|
|
|
if (string[i] == 0)
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
return i;
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/**
|
|
|
|
Append @p source at the end of @p target.
|
|
|
|
|
|
|
|
@param target Target string.
|
|
|
|
@param source Source string.
|
|
|
|
@return Boolean value indicating success or failure.
|
|
|
|
|
|
|
|
@pre @p target must point to a memory chunk with sufficient room to
|
|
|
|
contain the @p target string and @p source string.
|
|
|
|
@pre No boundary checking is performed, so insufficient memory will
|
|
|
|
result in a buffer overrun.
|
|
|
|
@post @p target will be zero terminated.
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_APPEND)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING int
|
|
|
|
trio_append
|
|
|
|
TRIO_ARGS2((target, source),
|
|
|
|
char *target,
|
|
|
|
TRIO_CONST char *source)
|
|
|
|
{
|
|
|
|
assert(target);
|
|
|
|
assert(source);
|
|
|
|
|
|
|
|
return (strcat(target, source) != NULL);
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/**
|
|
|
|
Append at most @p max characters from @p source to @p target.
|
|
|
|
|
|
|
|
@param target Target string.
|
|
|
|
@param max Maximum number of characters to append.
|
|
|
|
@param source Source string.
|
|
|
|
@return Boolean value indicating success or failure.
|
|
|
|
|
|
|
|
@pre @p target must point to a memory chuck with sufficient room to
|
|
|
|
contain the @p target string and the @p source string (at most @p max
|
|
|
|
characters).
|
|
|
|
@pre No boundary checking is performed, so insufficient memory will
|
|
|
|
result in a buffer overrun.
|
|
|
|
@post @p target will be zero terminated.
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_APPEND_MAX)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING int
|
|
|
|
trio_append_max
|
|
|
|
TRIO_ARGS3((target, max, source),
|
|
|
|
char *target,
|
|
|
|
size_t max,
|
|
|
|
TRIO_CONST char *source)
|
|
|
|
{
|
|
|
|
size_t length;
|
|
|
|
|
|
|
|
assert(target);
|
|
|
|
assert(source);
|
|
|
|
|
|
|
|
length = trio_length(target);
|
|
|
|
|
|
|
|
if (max > length)
|
|
|
|
{
|
|
|
|
strncat(target, source, max - length - 1);
|
|
|
|
}
|
|
|
|
return TRUE;
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/**
|
|
|
|
Determine if a string contains a substring.
|
|
|
|
|
|
|
|
@param string String to be searched.
|
|
|
|
@param substring String to be found.
|
|
|
|
@return Boolean value indicating success or failure.
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_CONTAINS)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING int
|
|
|
|
trio_contains
|
|
|
|
TRIO_ARGS2((string, substring),
|
|
|
|
TRIO_CONST char *string,
|
|
|
|
TRIO_CONST char *substring)
|
|
|
|
{
|
|
|
|
assert(string);
|
|
|
|
assert(substring);
|
|
|
|
|
|
|
|
return (0 != strstr(string, substring));
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/**
|
|
|
|
Copy @p source to @p target.
|
|
|
|
|
|
|
|
@param target Target string.
|
|
|
|
@param source Source string.
|
|
|
|
@return Boolean value indicating success or failure.
|
|
|
|
|
|
|
|
@pre @p target must point to a memory chunk with sufficient room to
|
|
|
|
contain the @p source string.
|
|
|
|
@pre No boundary checking is performed, so insufficient memory will
|
|
|
|
result in a buffer overrun.
|
|
|
|
@post @p target will be zero terminated.
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_COPY)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING int
|
|
|
|
trio_copy
|
|
|
|
TRIO_ARGS2((target, source),
|
|
|
|
char *target,
|
|
|
|
TRIO_CONST char *source)
|
|
|
|
{
|
|
|
|
assert(target);
|
|
|
|
assert(source);
|
|
|
|
|
|
|
|
(void)strcpy(target, source);
|
|
|
|
return TRUE;
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/**
|
|
|
|
Copy at most @p max - 1 characters from @p source to @p target.
|
|
|
|
|
|
|
|
@param target Target string.
|
|
|
|
@param max Maximum number of characters to append (one of which is
|
|
|
|
a NUL terminator). In other words @p source must point to at least
|
|
|
|
@p max - 1 bytes, but @p target must point to at least @p max
|
|
|
|
bytes.
|
|
|
|
@param source Source string.
|
|
|
|
@return Boolean value indicating success or failure.
|
|
|
|
|
|
|
|
@pre @p target must point to a memory chunk with sufficient room to
|
|
|
|
contain the @p source string and a NUL terminator (at most @p max
|
|
|
|
bytes total).
|
|
|
|
@pre No boundary checking is performed, so insufficient memory will
|
|
|
|
result in a buffer overrun.
|
|
|
|
@post @p target will be zero terminated.
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_COPY_MAX)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING int
|
|
|
|
trio_copy_max
|
|
|
|
TRIO_ARGS3((target, max, source),
|
|
|
|
char *target,
|
|
|
|
size_t max,
|
|
|
|
TRIO_CONST char *source)
|
|
|
|
{
|
|
|
|
assert(target);
|
|
|
|
assert(source);
|
|
|
|
assert(max > 0); /* Includes != 0 */
|
|
|
|
|
|
|
|
(void)strncpy(target, source, max - 1);
|
|
|
|
target[max - 1] = (char)0;
|
|
|
|
return TRUE;
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/**
|
|
|
|
Duplicate @p source.
|
|
|
|
|
|
|
|
@param source Source string.
|
|
|
|
@return A copy of the @p source string.
|
|
|
|
|
|
|
|
@post @p target will be zero terminated.
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_DUPLICATE)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING char *
|
|
|
|
trio_duplicate
|
|
|
|
TRIO_ARGS1((source),
|
|
|
|
TRIO_CONST char *source)
|
|
|
|
{
|
|
|
|
return internal_duplicate_max(source, trio_length(source));
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/**
|
|
|
|
Duplicate at most @p max characters of @p source.
|
|
|
|
|
|
|
|
@param source Source string.
|
|
|
|
@param max Maximum number of characters to duplicate.
|
|
|
|
@return A copy of the @p source string.
|
|
|
|
|
|
|
|
@post @p target will be zero terminated.
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_DUPLICATE_MAX)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING char *
|
|
|
|
trio_duplicate_max
|
|
|
|
TRIO_ARGS2((source, max),
|
|
|
|
TRIO_CONST char *source,
|
|
|
|
size_t max)
|
|
|
|
{
|
|
|
|
size_t length;
|
|
|
|
|
|
|
|
assert(source);
|
|
|
|
assert(max > 0);
|
|
|
|
|
|
|
|
length = trio_length(source);
|
|
|
|
if (length > max)
|
|
|
|
{
|
|
|
|
length = max;
|
|
|
|
}
|
|
|
|
return internal_duplicate_max(source, length);
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/**
|
|
|
|
Compare if two strings are equal.
|
|
|
|
|
|
|
|
@param first First string.
|
|
|
|
@param second Second string.
|
|
|
|
@return Boolean indicating whether the two strings are equal or not.
|
|
|
|
|
|
|
|
Case-insensitive comparison.
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_EQUAL)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING int
|
|
|
|
trio_equal
|
|
|
|
TRIO_ARGS2((first, second),
|
|
|
|
TRIO_CONST char *first,
|
|
|
|
TRIO_CONST char *second)
|
|
|
|
{
|
|
|
|
assert(first);
|
|
|
|
assert(second);
|
|
|
|
|
|
|
|
if ((first != NULL) && (second != NULL))
|
|
|
|
{
|
|
|
|
# if defined(USE_STRCASECMP)
|
|
|
|
return (0 == strcasecmp(first, second));
|
|
|
|
# else
|
|
|
|
while ((*first != NIL) && (*second != NIL))
|
|
|
|
{
|
|
|
|
if (internal_to_upper(*first) != internal_to_upper(*second))
|
|
|
|
{
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
first++;
|
|
|
|
second++;
|
|
|
|
}
|
|
|
|
return ((*first == NIL) && (*second == NIL));
|
|
|
|
# endif
|
|
|
|
}
|
|
|
|
return FALSE;
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/**
|
|
|
|
Compare if two strings are equal.
|
|
|
|
|
|
|
|
@param first First string.
|
|
|
|
@param second Second string.
|
|
|
|
@return Boolean indicating whether the two strings are equal or not.
|
|
|
|
|
|
|
|
Case-sensitive comparison.
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_EQUAL_CASE)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING int
|
|
|
|
trio_equal_case
|
|
|
|
TRIO_ARGS2((first, second),
|
|
|
|
TRIO_CONST char *first,
|
|
|
|
TRIO_CONST char *second)
|
|
|
|
{
|
|
|
|
assert(first);
|
|
|
|
assert(second);
|
|
|
|
|
|
|
|
if ((first != NULL) && (second != NULL))
|
|
|
|
{
|
|
|
|
return (0 == strcmp(first, second));
|
|
|
|
}
|
|
|
|
return FALSE;
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/**
|
|
|
|
Compare if two strings up until the first @p max characters are equal.
|
|
|
|
|
|
|
|
@param first First string.
|
|
|
|
@param max Maximum number of characters to compare.
|
|
|
|
@param second Second string.
|
|
|
|
@return Boolean indicating whether the two strings are equal or not.
|
|
|
|
|
|
|
|
Case-sensitive comparison.
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_EQUAL_CASE_MAX)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING int
|
|
|
|
trio_equal_case_max
|
|
|
|
TRIO_ARGS3((first, max, second),
|
|
|
|
TRIO_CONST char *first,
|
|
|
|
size_t max,
|
|
|
|
TRIO_CONST char *second)
|
|
|
|
{
|
|
|
|
assert(first);
|
|
|
|
assert(second);
|
|
|
|
|
|
|
|
if ((first != NULL) && (second != NULL))
|
|
|
|
{
|
|
|
|
return (0 == strncmp(first, second, max));
|
|
|
|
}
|
|
|
|
return FALSE;
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/**
|
|
|
|
Compare if two strings are equal.
|
|
|
|
|
|
|
|
@param first First string.
|
|
|
|
@param second Second string.
|
|
|
|
@return Boolean indicating whether the two strings are equal or not.
|
|
|
|
|
|
|
|
Collating characters are considered equal.
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_EQUAL_LOCALE)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING int
|
|
|
|
trio_equal_locale
|
|
|
|
TRIO_ARGS2((first, second),
|
|
|
|
TRIO_CONST char *first,
|
|
|
|
TRIO_CONST char *second)
|
|
|
|
{
|
|
|
|
assert(first);
|
|
|
|
assert(second);
|
|
|
|
|
|
|
|
# if defined(LC_COLLATE)
|
|
|
|
return (strcoll(first, second) == 0);
|
|
|
|
# else
|
|
|
|
return trio_equal(first, second);
|
|
|
|
# endif
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/**
|
|
|
|
Compare if two strings up until the first @p max characters are equal.
|
|
|
|
|
|
|
|
@param first First string.
|
|
|
|
@param max Maximum number of characters to compare.
|
|
|
|
@param second Second string.
|
|
|
|
@return Boolean indicating whether the two strings are equal or not.
|
|
|
|
|
|
|
|
Case-insensitive comparison.
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_EQUAL_MAX)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING int
|
|
|
|
trio_equal_max
|
|
|
|
TRIO_ARGS3((first, max, second),
|
|
|
|
TRIO_CONST char *first,
|
|
|
|
size_t max,
|
|
|
|
TRIO_CONST char *second)
|
|
|
|
{
|
|
|
|
assert(first);
|
|
|
|
assert(second);
|
|
|
|
|
|
|
|
if ((first != NULL) && (second != NULL))
|
|
|
|
{
|
|
|
|
# if defined(USE_STRNCASECMP)
|
|
|
|
return (0 == strncasecmp(first, second, max));
|
|
|
|
# else
|
|
|
|
/* Not adequately tested yet */
|
|
|
|
size_t cnt = 0;
|
|
|
|
while ((*first != NIL) && (*second != NIL) && (cnt <= max))
|
|
|
|
{
|
|
|
|
if (internal_to_upper(*first) != internal_to_upper(*second))
|
|
|
|
{
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
first++;
|
|
|
|
second++;
|
|
|
|
cnt++;
|
|
|
|
}
|
|
|
|
return ((cnt == max) || ((*first == NIL) && (*second == NIL)));
|
|
|
|
# endif
|
|
|
|
}
|
|
|
|
return FALSE;
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/**
|
|
|
|
Provide a textual description of an error code (errno).
|
|
|
|
|
|
|
|
@param error_number Error number.
|
|
|
|
@return Textual description of @p error_number.
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_ERROR)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING TRIO_CONST char *
|
|
|
|
trio_error
|
|
|
|
TRIO_ARGS1((error_number),
|
|
|
|
int error_number)
|
|
|
|
{
|
|
|
|
# if defined(USE_STRERROR)
|
|
|
|
|
|
|
|
return strerror(error_number);
|
|
|
|
|
|
|
|
# else
|
|
|
|
# if defined(USE_SYS_ERRLIST)
|
|
|
|
|
|
|
|
extern char *sys_errlist[];
|
|
|
|
extern int sys_nerr;
|
|
|
|
|
|
|
|
return ((error_number < 0) || (error_number >= sys_nerr))
|
|
|
|
? "unknown"
|
|
|
|
: sys_errlist[error_number];
|
|
|
|
|
|
|
|
# else
|
|
|
|
|
|
|
|
return "unknown";
|
|
|
|
|
|
|
|
# endif
|
|
|
|
# endif
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/**
|
|
|
|
Format the date/time according to @p format.
|
|
|
|
|
|
|
|
@param target Target string.
|
|
|
|
@param max Maximum number of characters to format.
|
|
|
|
@param format Formatting string.
|
|
|
|
@param datetime Date/time structure.
|
|
|
|
@return Number of formatted characters.
|
|
|
|
|
|
|
|
The formatting string accepts the same specifiers as the standard C
|
|
|
|
function strftime.
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_FORMAT_DATE_MAX)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING size_t
|
|
|
|
trio_format_date_max
|
|
|
|
TRIO_ARGS4((target, max, format, datetime),
|
|
|
|
char *target,
|
|
|
|
size_t max,
|
|
|
|
TRIO_CONST char *format,
|
|
|
|
TRIO_CONST struct tm *datetime)
|
|
|
|
{
|
|
|
|
assert(target);
|
|
|
|
assert(format);
|
|
|
|
assert(datetime);
|
|
|
|
assert(max > 0);
|
|
|
|
|
|
|
|
return strftime(target, max, format, datetime);
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/**
|
|
|
|
Calculate a hash value for a string.
|
|
|
|
|
|
|
|
@param string String to be calculated on.
|
|
|
|
@param type Hash function.
|
|
|
|
@return Calculated hash value.
|
|
|
|
|
|
|
|
@p type can be one of the following
|
|
|
|
@li @c TRIO_HASH_PLAIN Plain hash function.
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_HASH)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING unsigned long
|
|
|
|
trio_hash
|
|
|
|
TRIO_ARGS2((string, type),
|
|
|
|
TRIO_CONST char *string,
|
|
|
|
int type)
|
|
|
|
{
|
|
|
|
unsigned long value = 0L;
|
|
|
|
char ch;
|
|
|
|
|
|
|
|
assert(string);
|
|
|
|
|
|
|
|
switch (type)
|
|
|
|
{
|
|
|
|
case TRIO_HASH_PLAIN:
|
|
|
|
while ( (ch = *string++) != NIL )
|
|
|
|
{
|
|
|
|
value *= 31;
|
|
|
|
value += (unsigned long)ch;
|
|
|
|
}
|
|
|
|
break;
|
|
|
|
default:
|
|
|
|
assert(FALSE);
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
return value;
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/**
|
|
|
|
Find first occurrence of a character in a string.
|
|
|
|
|
|
|
|
@param string String to be searched.
|
|
|
|
@param character Character to be found.
|
|
|
|
@return A pointer to the found character, or NULL if character was not found.
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_INDEX)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING char *
|
|
|
|
trio_index
|
|
|
|
TRIO_ARGS2((string, character),
|
|
|
|
TRIO_CONST char *string,
|
|
|
|
int character)
|
|
|
|
{
|
|
|
|
assert(string);
|
|
|
|
|
|
|
|
return strchr(string, character);
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/**
|
|
|
|
Find last occurrence of a character in a string.
|
|
|
|
|
|
|
|
@param string String to be searched.
|
|
|
|
@param character Character to be found.
|
|
|
|
@return A pointer to the found character, or NULL if character was not found.
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_INDEX_LAST)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING char *
|
|
|
|
trio_index_last
|
|
|
|
TRIO_ARGS2((string, character),
|
|
|
|
TRIO_CONST char *string,
|
|
|
|
int character)
|
|
|
|
{
|
|
|
|
assert(string);
|
|
|
|
|
|
|
|
return strchr(string, character);
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/**
|
|
|
|
Convert the alphabetic letters in the string to lower-case.
|
|
|
|
|
|
|
|
@param target String to be converted.
|
|
|
|
@return Number of processed characters (converted or not).
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_LOWER)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING int
|
|
|
|
trio_lower
|
|
|
|
TRIO_ARGS1((target),
|
|
|
|
char *target)
|
|
|
|
{
|
|
|
|
assert(target);
|
|
|
|
|
|
|
|
return trio_span_function(target, target, trio_to_lower);
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/**
|
|
|
|
Compare two strings using wildcards.
|
|
|
|
|
|
|
|
@param string String to be searched.
|
|
|
|
@param pattern Pattern, including wildcards, to search for.
|
|
|
|
@return Boolean value indicating success or failure.
|
|
|
|
|
|
|
|
Case-insensitive comparison.
|
|
|
|
|
|
|
|
The following wildcards can be used
|
|
|
|
@li @c * Match any number of characters.
|
|
|
|
@li @c ? Match a single character.
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_MATCH)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING int
|
|
|
|
trio_match
|
|
|
|
TRIO_ARGS2((string, pattern),
|
|
|
|
TRIO_CONST char *string,
|
|
|
|
TRIO_CONST char *pattern)
|
|
|
|
{
|
|
|
|
assert(string);
|
|
|
|
assert(pattern);
|
|
|
|
|
|
|
|
for (; ('*' != *pattern); ++pattern, ++string)
|
|
|
|
{
|
|
|
|
if (NIL == *string)
|
|
|
|
{
|
|
|
|
return (NIL == *pattern);
|
|
|
|
}
|
|
|
|
if ((internal_to_upper((int)*string) != internal_to_upper((int)*pattern))
|
|
|
|
&& ('?' != *pattern))
|
|
|
|
{
|
|
|
|
return FALSE;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
/* two-line patch to prevent *too* much recursiveness: */
|
|
|
|
while ('*' == pattern[1])
|
|
|
|
pattern++;
|
|
|
|
|
|
|
|
do
|
|
|
|
{
|
|
|
|
if ( trio_match(string, &pattern[1]) )
|
|
|
|
{
|
|
|
|
return TRUE;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
while (*string++);
|
|
|
|
|
|
|
|
return FALSE;
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/**
|
|
|
|
Compare two strings using wildcards.
|
|
|
|
|
|
|
|
@param string String to be searched.
|
|
|
|
@param pattern Pattern, including wildcards, to search for.
|
|
|
|
@return Boolean value indicating success or failure.
|
|
|
|
|
|
|
|
Case-sensitive comparison.
|
|
|
|
|
|
|
|
The following wildcards can be used
|
|
|
|
@li @c * Match any number of characters.
|
|
|
|
@li @c ? Match a single character.
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_MATCH_CASE)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING int
|
|
|
|
trio_match_case
|
|
|
|
TRIO_ARGS2((string, pattern),
|
|
|
|
TRIO_CONST char *string,
|
|
|
|
TRIO_CONST char *pattern)
|
|
|
|
{
|
|
|
|
assert(string);
|
|
|
|
assert(pattern);
|
|
|
|
|
|
|
|
for (; ('*' != *pattern); ++pattern, ++string)
|
|
|
|
{
|
|
|
|
if (NIL == *string)
|
|
|
|
{
|
|
|
|
return (NIL == *pattern);
|
|
|
|
}
|
|
|
|
if ((*string != *pattern)
|
|
|
|
&& ('?' != *pattern))
|
|
|
|
{
|
|
|
|
return FALSE;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
/* two-line patch to prevent *too* much recursiveness: */
|
|
|
|
while ('*' == pattern[1])
|
|
|
|
pattern++;
|
|
|
|
|
|
|
|
do
|
|
|
|
{
|
|
|
|
if ( trio_match_case(string, &pattern[1]) )
|
|
|
|
{
|
|
|
|
return TRUE;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
while (*string++);
|
|
|
|
|
|
|
|
return FALSE;
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/**
|
|
|
|
Execute a function on each character in string.
|
|
|
|
|
|
|
|
@param target Target string.
|
|
|
|
@param source Source string.
|
|
|
|
@param Function Function to be executed.
|
|
|
|
@return Number of processed characters.
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_SPAN_FUNCTION)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING size_t
|
|
|
|
trio_span_function
|
|
|
|
TRIO_ARGS3((target, source, Function),
|
|
|
|
char *target,
|
|
|
|
TRIO_CONST char *source,
|
|
|
|
int (*Function) TRIO_PROTO((int)))
|
|
|
|
{
|
|
|
|
size_t count = 0;
|
|
|
|
|
|
|
|
assert(target);
|
|
|
|
assert(source);
|
|
|
|
assert(Function);
|
|
|
|
|
|
|
|
while (*source != NIL)
|
|
|
|
{
|
|
|
|
*target++ = Function(*source++);
|
|
|
|
count++;
|
|
|
|
}
|
|
|
|
return count;
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/**
|
|
|
|
Search for a substring in a string.
|
|
|
|
|
|
|
|
@param string String to be searched.
|
|
|
|
@param substring String to be found.
|
|
|
|
@return Pointer to first occurrence of @p substring in @p string, or NULL
|
|
|
|
if no match was found.
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_SUBSTRING)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING char *
|
|
|
|
trio_substring
|
|
|
|
TRIO_ARGS2((string, substring),
|
|
|
|
TRIO_CONST char *string,
|
|
|
|
TRIO_CONST char *substring)
|
|
|
|
{
|
|
|
|
assert(string);
|
|
|
|
assert(substring);
|
|
|
|
|
|
|
|
return strstr(string, substring);
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/**
|
|
|
|
Search for a substring in the first @p max characters of a string.
|
|
|
|
|
|
|
|
@param string String to be searched.
|
|
|
|
@param max Maximum characters to be searched.
|
|
|
|
@param substring String to be found.
|
|
|
|
@return Pointer to first occurrence of @p substring in @p string, or NULL
|
|
|
|
if no match was found.
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_SUBSTRING_MAX)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING char *
|
|
|
|
trio_substring_max
|
|
|
|
TRIO_ARGS3((string, max, substring),
|
|
|
|
TRIO_CONST char *string,
|
|
|
|
size_t max,
|
|
|
|
TRIO_CONST char *substring)
|
|
|
|
{
|
|
|
|
size_t count;
|
|
|
|
size_t size;
|
|
|
|
char *result = NULL;
|
|
|
|
|
|
|
|
assert(string);
|
|
|
|
assert(substring);
|
|
|
|
|
|
|
|
size = trio_length(substring);
|
|
|
|
if (size <= max)
|
|
|
|
{
|
|
|
|
for (count = 0; count <= max - size; count++)
|
|
|
|
{
|
|
|
|
if (trio_equal_max(substring, size, &string[count]))
|
|
|
|
{
|
|
|
|
result = (char *)&string[count];
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
return result;
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/**
|
|
|
|
Tokenize string.
|
|
|
|
|
|
|
|
@param string String to be tokenized.
|
|
|
|
@param delimiters String containing list of delimiting characters.
|
|
|
|
@return Start of new token.
|
|
|
|
|
|
|
|
@warning @p string will be destroyed.
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_TOKENIZE)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING char *
|
|
|
|
trio_tokenize
|
|
|
|
TRIO_ARGS2((string, delimiters),
|
|
|
|
char *string,
|
|
|
|
TRIO_CONST char *delimiters)
|
|
|
|
{
|
|
|
|
assert(delimiters);
|
|
|
|
|
|
|
|
return strtok(string, delimiters);
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/**
|
|
|
|
Convert string to floating-point number.
|
|
|
|
|
|
|
|
@param source String to be converted.
|
|
|
|
@param endp Pointer to end of the converted string.
|
|
|
|
@return A floating-point number.
|
|
|
|
|
|
|
|
The following Extended Backus-Naur form is used
|
|
|
|
@verbatim
|
|
|
|
double ::= [ <sign> ]
|
|
|
|
( <number> |
|
|
|
|
<number> <decimal_point> <number> |
|
|
|
|
<decimal_point> <number> )
|
|
|
|
[ <exponential> [ <sign> ] <number> ]
|
|
|
|
number ::= 1*( <digit> )
|
|
|
|
digit ::= ( '0' | '1' | '2' | '3' | '4' | '5' | '6' | '7' | '8' | '9' )
|
|
|
|
exponential ::= ( 'e' | 'E' )
|
|
|
|
sign ::= ( '-' | '+' )
|
|
|
|
decimal_point ::= '.'
|
|
|
|
@endverbatim
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_TO_LONG_DOUBLE)
|
|
|
|
|
|
|
|
/* FIXME: Add EBNF for hex-floats */
|
|
|
|
TRIO_PUBLIC_STRING trio_long_double_t
|
|
|
|
trio_to_long_double
|
|
|
|
TRIO_ARGS2((source, endp),
|
|
|
|
TRIO_CONST char *source,
|
|
|
|
char **endp)
|
|
|
|
{
|
|
|
|
# if defined(USE_STRTOLD)
|
|
|
|
return strtold(source, endp);
|
|
|
|
# else
|
|
|
|
int isNegative = FALSE;
|
|
|
|
int isExponentNegative = FALSE;
|
|
|
|
trio_long_double_t integer = 0.0;
|
|
|
|
trio_long_double_t fraction = 0.0;
|
|
|
|
unsigned long exponent = 0;
|
|
|
|
trio_long_double_t base;
|
|
|
|
trio_long_double_t fracdiv = 1.0;
|
|
|
|
trio_long_double_t value = 0.0;
|
|
|
|
|
|
|
|
/* First try hex-floats */
|
|
|
|
if ((source[0] == '0') && ((source[1] == 'x') || (source[1] == 'X')))
|
|
|
|
{
|
|
|
|
base = 16.0;
|
|
|
|
source += 2;
|
|
|
|
while (isxdigit((int)*source))
|
|
|
|
{
|
|
|
|
integer *= base;
|
|
|
|
integer += (isdigit((int)*source)
|
|
|
|
? (*source - '0')
|
|
|
|
: 10 + (internal_to_upper((int)*source) - 'A'));
|
|
|
|
source++;
|
|
|
|
}
|
|
|
|
if (*source == '.')
|
|
|
|
{
|
|
|
|
source++;
|
|
|
|
while (isxdigit((int)*source))
|
|
|
|
{
|
|
|
|
fracdiv /= base;
|
|
|
|
fraction += fracdiv * (isdigit((int)*source)
|
|
|
|
? (*source - '0')
|
|
|
|
: 10 + (internal_to_upper((int)*source) - 'A'));
|
|
|
|
source++;
|
|
|
|
}
|
|
|
|
if ((*source == 'p') || (*source == 'P'))
|
|
|
|
{
|
|
|
|
source++;
|
|
|
|
if ((*source == '+') || (*source == '-'))
|
|
|
|
{
|
|
|
|
isExponentNegative = (*source == '-');
|
|
|
|
source++;
|
|
|
|
}
|
|
|
|
while (isdigit((int)*source))
|
|
|
|
{
|
|
|
|
exponent *= 10;
|
|
|
|
exponent += (*source - '0');
|
|
|
|
source++;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
/* For later use with exponent */
|
|
|
|
base = 2.0;
|
|
|
|
}
|
|
|
|
else /* Then try normal decimal floats */
|
|
|
|
{
|
|
|
|
base = 10.0;
|
|
|
|
isNegative = (*source == '-');
|
|
|
|
/* Skip sign */
|
|
|
|
if ((*source == '+') || (*source == '-'))
|
|
|
|
source++;
|
|
|
|
|
|
|
|
/* Integer part */
|
|
|
|
while (isdigit((int)*source))
|
|
|
|
{
|
|
|
|
integer *= base;
|
|
|
|
integer += (*source - '0');
|
|
|
|
source++;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (*source == '.')
|
|
|
|
{
|
|
|
|
source++; /* skip decimal point */
|
|
|
|
while (isdigit((int)*source))
|
|
|
|
{
|
|
|
|
fracdiv /= base;
|
|
|
|
fraction += (*source - '0') * fracdiv;
|
|
|
|
source++;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
if ((*source == 'e')
|
|
|
|
|| (*source == 'E')
|
|
|
|
# if TRIO_MICROSOFT
|
|
|
|
|| (*source == 'd')
|
|
|
|
|| (*source == 'D')
|
|
|
|
# endif
|
|
|
|
)
|
|
|
|
{
|
|
|
|
source++; /* Skip exponential indicator */
|
|
|
|
isExponentNegative = (*source == '-');
|
|
|
|
if ((*source == '+') || (*source == '-'))
|
|
|
|
source++;
|
|
|
|
while (isdigit((int)*source))
|
|
|
|
{
|
|
|
|
exponent *= (int)base;
|
|
|
|
exponent += (*source - '0');
|
|
|
|
source++;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
value = integer + fraction;
|
|
|
|
if (exponent != 0)
|
|
|
|
{
|
|
|
|
if (isExponentNegative)
|
|
|
|
value /= trio_powl(base, (trio_long_double_t)exponent);
|
|
|
|
else
|
|
|
|
value *= trio_powl(base, (trio_long_double_t)exponent);
|
|
|
|
}
|
|
|
|
if (isNegative)
|
|
|
|
value = -value;
|
|
|
|
|
|
|
|
if (endp)
|
|
|
|
*endp = (char *)source;
|
|
|
|
return value;
|
|
|
|
# endif
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/**
|
|
|
|
Convert string to floating-point number.
|
|
|
|
|
|
|
|
@param source String to be converted.
|
|
|
|
@param endp Pointer to end of the converted string.
|
|
|
|
@return A floating-point number.
|
|
|
|
|
|
|
|
See @ref trio_to_long_double.
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_TO_DOUBLE)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING double
|
|
|
|
trio_to_double
|
|
|
|
TRIO_ARGS2((source, endp),
|
|
|
|
TRIO_CONST char *source,
|
|
|
|
char **endp)
|
|
|
|
{
|
|
|
|
#if defined(USE_STRTOD)
|
|
|
|
return strtod(source, endp);
|
|
|
|
#else
|
|
|
|
return (double)trio_to_long_double(source, endp);
|
|
|
|
#endif
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/**
|
|
|
|
Convert string to floating-point number.
|
|
|
|
|
|
|
|
@param source String to be converted.
|
|
|
|
@param endp Pointer to end of the converted string.
|
|
|
|
@return A floating-point number.
|
|
|
|
|
|
|
|
See @ref trio_to_long_double.
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_TO_FLOAT)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING float
|
|
|
|
trio_to_float
|
|
|
|
TRIO_ARGS2((source, endp),
|
|
|
|
TRIO_CONST char *source,
|
|
|
|
char **endp)
|
|
|
|
{
|
|
|
|
# if defined(USE_STRTOF)
|
|
|
|
return strtof(source, endp);
|
|
|
|
# else
|
|
|
|
return (float)trio_to_long_double(source, endp);
|
|
|
|
# endif
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/**
|
|
|
|
Convert string to signed integer.
|
|
|
|
|
|
|
|
@param string String to be converted.
|
|
|
|
@param endp Pointer to end of converted string.
|
|
|
|
@param base Radix number of number.
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_TO_LONG)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING long
|
|
|
|
trio_to_long
|
|
|
|
TRIO_ARGS3((string, endp, base),
|
|
|
|
TRIO_CONST char *string,
|
|
|
|
char **endp,
|
|
|
|
int base)
|
|
|
|
{
|
|
|
|
assert(string);
|
|
|
|
assert((base >= 2) && (base <= 36));
|
|
|
|
|
|
|
|
return strtol(string, endp, base);
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/**
|
|
|
|
Convert one alphabetic letter to lower-case.
|
|
|
|
|
|
|
|
@param source The letter to be converted.
|
|
|
|
@return The converted letter.
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_TO_LOWER)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING int
|
|
|
|
trio_to_lower
|
|
|
|
TRIO_ARGS1((source),
|
|
|
|
int source)
|
|
|
|
{
|
|
|
|
# if defined(HAVE_TOLOWER)
|
|
|
|
|
|
|
|
return tolower(source);
|
|
|
|
|
|
|
|
# else
|
|
|
|
|
|
|
|
/* Does not handle locales or non-contiguous alphabetic characters */
|
|
|
|
return ((source >= (int)'A') && (source <= (int)'Z'))
|
|
|
|
? source - 'A' + 'a'
|
|
|
|
: source;
|
|
|
|
|
|
|
|
# endif
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/**
|
|
|
|
Convert string to unsigned integer.
|
|
|
|
|
|
|
|
@param string String to be converted.
|
|
|
|
@param endp Pointer to end of converted string.
|
|
|
|
@param base Radix number of number.
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_TO_UNSIGNED_LONG)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING unsigned long
|
|
|
|
trio_to_unsigned_long
|
|
|
|
TRIO_ARGS3((string, endp, base),
|
|
|
|
TRIO_CONST char *string,
|
|
|
|
char **endp,
|
|
|
|
int base)
|
|
|
|
{
|
|
|
|
assert(string);
|
|
|
|
assert((base >= 2) && (base <= 36));
|
|
|
|
|
|
|
|
return strtoul(string, endp, base);
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/**
|
|
|
|
Convert one alphabetic letter to upper-case.
|
|
|
|
|
|
|
|
@param source The letter to be converted.
|
|
|
|
@return The converted letter.
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_TO_UPPER)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING int
|
|
|
|
trio_to_upper
|
|
|
|
TRIO_ARGS1((source),
|
|
|
|
int source)
|
|
|
|
{
|
|
|
|
return internal_to_upper(source);
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/**
|
|
|
|
Convert the alphabetic letters in the string to upper-case.
|
|
|
|
|
|
|
|
@param target The string to be converted.
|
|
|
|
@return The number of processed characters (converted or not).
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_UPPER)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING int
|
|
|
|
trio_upper
|
|
|
|
TRIO_ARGS1((target),
|
|
|
|
char *target)
|
|
|
|
{
|
|
|
|
assert(target);
|
|
|
|
|
|
|
|
return trio_span_function(target, target, internal_to_upper);
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/** @} End of StaticStrings */
|
|
|
|
|
|
|
|
|
|
|
|
/*************************************************************************
|
|
|
|
* Dynamic String Functions
|
|
|
|
*/
|
|
|
|
|
|
|
|
#if defined(TRIO_DOCUMENTATION)
|
|
|
|
# include "doc/doc_dynamic.h"
|
|
|
|
#endif
|
|
|
|
/** @addtogroup DynamicStrings
|
|
|
|
@{
|
|
|
|
*/
|
|
|
|
|
|
|
|
/**
|
|
|
|
Create a new dynamic string.
|
|
|
|
|
|
|
|
@param initial_size Initial size of the buffer.
|
|
|
|
@return Newly allocated dynamic string, or NULL if memory allocation failed.
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_STRING_CREATE)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING trio_string_t *
|
|
|
|
trio_string_create
|
|
|
|
TRIO_ARGS1((initial_size),
|
|
|
|
int initial_size)
|
|
|
|
{
|
|
|
|
trio_string_t *self;
|
|
|
|
|
|
|
|
self = internal_string_alloc();
|
|
|
|
if (self)
|
|
|
|
{
|
|
|
|
if (internal_string_grow(self,
|
|
|
|
(size_t)((initial_size > 0) ? initial_size : 1)))
|
|
|
|
{
|
|
|
|
self->content[0] = (char)0;
|
|
|
|
self->allocated = initial_size;
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
trio_string_destroy(self);
|
|
|
|
self = NULL;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
return self;
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/**
|
|
|
|
Deallocate the dynamic string and its contents.
|
|
|
|
|
|
|
|
@param self Dynamic string
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_STRING_DESTROY)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING void
|
|
|
|
trio_string_destroy
|
|
|
|
TRIO_ARGS1((self),
|
|
|
|
trio_string_t *self)
|
|
|
|
{
|
|
|
|
assert(self);
|
|
|
|
|
|
|
|
if (self)
|
|
|
|
{
|
|
|
|
trio_destroy(self->content);
|
|
|
|
TRIO_FREE(self);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/**
|
|
|
|
Get a pointer to the content.
|
|
|
|
|
|
|
|
@param self Dynamic string.
|
|
|
|
@param offset Offset into content.
|
|
|
|
@return Pointer to the content.
|
|
|
|
|
|
|
|
@p Offset can be zero, positive, or negative. If @p offset is zero,
|
|
|
|
then the start of the content will be returned. If @p offset is positive,
|
|
|
|
then a pointer to @p offset number of characters from the beginning of the
|
|
|
|
content is returned. If @p offset is negative, then a pointer to @p offset
|
|
|
|
number of characters from the ending of the string, starting at the
|
|
|
|
terminating zero, is returned.
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_STRING_GET)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING char *
|
|
|
|
trio_string_get
|
|
|
|
TRIO_ARGS2((self, offset),
|
|
|
|
trio_string_t *self,
|
|
|
|
int offset)
|
|
|
|
{
|
|
|
|
char *result = NULL;
|
|
|
|
|
|
|
|
assert(self);
|
|
|
|
|
|
|
|
if (self->content != NULL)
|
|
|
|
{
|
|
|
|
if (self->length == 0)
|
|
|
|
{
|
|
|
|
(void)trio_string_length(self);
|
|
|
|
}
|
|
|
|
if (offset >= 0)
|
|
|
|
{
|
|
|
|
if (offset > (int)self->length)
|
|
|
|
{
|
|
|
|
offset = self->length;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
offset += self->length + 1;
|
|
|
|
if (offset < 0)
|
|
|
|
{
|
|
|
|
offset = 0;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
result = &(self->content[offset]);
|
|
|
|
}
|
|
|
|
return result;
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/**
|
|
|
|
Extract the content.
|
|
|
|
|
|
|
|
@param self Dynamic String
|
|
|
|
@return Content of dynamic string.
|
|
|
|
|
|
|
|
The content is removed from the dynamic string. This enables destruction
|
|
|
|
of the dynamic string without deallocation of the content.
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_STRING_EXTRACT)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING char *
|
|
|
|
trio_string_extract
|
|
|
|
TRIO_ARGS1((self),
|
|
|
|
trio_string_t *self)
|
|
|
|
{
|
|
|
|
char *result;
|
|
|
|
|
|
|
|
assert(self);
|
|
|
|
|
|
|
|
result = self->content;
|
|
|
|
/* FIXME: Allocate new empty buffer? */
|
|
|
|
self->content = NULL;
|
|
|
|
self->length = self->allocated = 0;
|
|
|
|
return result;
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/**
|
|
|
|
Set the content of the dynamic string.
|
|
|
|
|
|
|
|
@param self Dynamic String
|
|
|
|
@param buffer The new content.
|
|
|
|
|
|
|
|
Sets the content of the dynamic string to a copy @p buffer.
|
|
|
|
An existing content will be deallocated first, if necessary.
|
|
|
|
|
|
|
|
@remark
|
|
|
|
This function will make a copy of @p buffer.
|
|
|
|
You are responsible for deallocating @p buffer yourself.
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_XSTRING_SET)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING void
|
|
|
|
trio_xstring_set
|
|
|
|
TRIO_ARGS2((self, buffer),
|
|
|
|
trio_string_t *self,
|
|
|
|
char *buffer)
|
|
|
|
{
|
|
|
|
assert(self);
|
|
|
|
|
|
|
|
trio_destroy(self->content);
|
|
|
|
self->content = trio_duplicate(buffer);
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/*
|
|
|
|
* trio_string_size
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_STRING_SIZE)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING int
|
|
|
|
trio_string_size
|
|
|
|
TRIO_ARGS1((self),
|
|
|
|
trio_string_t *self)
|
|
|
|
{
|
|
|
|
assert(self);
|
|
|
|
|
|
|
|
return self->allocated;
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/*
|
|
|
|
* trio_string_terminate
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_STRING_TERMINATE)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING void
|
|
|
|
trio_string_terminate
|
|
|
|
TRIO_ARGS1((self),
|
|
|
|
trio_string_t *self)
|
|
|
|
{
|
|
|
|
trio_xstring_append_char(self, 0);
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/**
|
|
|
|
Append the second string to the first.
|
|
|
|
|
|
|
|
@param self Dynamic string to be modified.
|
|
|
|
@param other Dynamic string to copy from.
|
|
|
|
@return Boolean value indicating success or failure.
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_STRING_APPEND)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING int
|
|
|
|
trio_string_append
|
|
|
|
TRIO_ARGS2((self, other),
|
|
|
|
trio_string_t *self,
|
|
|
|
trio_string_t *other)
|
|
|
|
{
|
|
|
|
size_t length;
|
|
|
|
|
|
|
|
assert(self);
|
|
|
|
assert(other);
|
|
|
|
|
|
|
|
length = self->length + other->length;
|
|
|
|
if (!internal_string_grow_to(self, length))
|
|
|
|
goto error;
|
|
|
|
trio_copy(&self->content[self->length], other->content);
|
|
|
|
self->length = length;
|
|
|
|
return TRUE;
|
|
|
|
|
|
|
|
error:
|
|
|
|
return FALSE;
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
* trio_xstring_append
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_XSTRING_APPEND)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING int
|
|
|
|
trio_xstring_append
|
|
|
|
TRIO_ARGS2((self, other),
|
|
|
|
trio_string_t *self,
|
|
|
|
TRIO_CONST char *other)
|
|
|
|
{
|
|
|
|
size_t length;
|
|
|
|
|
|
|
|
assert(self);
|
|
|
|
assert(other);
|
|
|
|
|
|
|
|
length = self->length + trio_length(other);
|
|
|
|
if (!internal_string_grow_to(self, length))
|
|
|
|
goto error;
|
|
|
|
trio_copy(&self->content[self->length], other);
|
|
|
|
self->length = length;
|
|
|
|
return TRUE;
|
|
|
|
|
|
|
|
error:
|
|
|
|
return FALSE;
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/*
|
|
|
|
* trio_xstring_append_char
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_XSTRING_APPEND_CHAR)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING int
|
|
|
|
trio_xstring_append_char
|
|
|
|
TRIO_ARGS2((self, character),
|
|
|
|
trio_string_t *self,
|
|
|
|
char character)
|
|
|
|
{
|
|
|
|
assert(self);
|
|
|
|
|
|
|
|
if ((int)self->length >= trio_string_size(self))
|
|
|
|
{
|
|
|
|
if (!internal_string_grow(self, 0))
|
|
|
|
goto error;
|
|
|
|
}
|
|
|
|
self->content[self->length] = character;
|
|
|
|
self->length++;
|
|
|
|
return TRUE;
|
|
|
|
|
|
|
|
error:
|
|
|
|
return FALSE;
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/*
|
|
|
|
* trio_xstring_append_max
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_XSTRING_APPEND_MAX)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING int
|
|
|
|
trio_xstring_append_max
|
|
|
|
TRIO_ARGS3((self, other, max),
|
|
|
|
trio_string_t *self,
|
|
|
|
TRIO_CONST char *other,
|
|
|
|
size_t max)
|
|
|
|
{
|
|
|
|
size_t length;
|
|
|
|
|
|
|
|
assert(self);
|
|
|
|
assert(other);
|
|
|
|
|
|
|
|
length = self->length + trio_length_max(other, max);
|
|
|
|
if (!internal_string_grow_to(self, length))
|
|
|
|
goto error;
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Pass max + 1 since trio_copy_max copies one character less than
|
|
|
|
* this from the source to make room for a terminating zero.
|
|
|
|
*/
|
|
|
|
trio_copy_max(&self->content[self->length], max + 1, other);
|
|
|
|
self->length = length;
|
|
|
|
return TRUE;
|
|
|
|
|
|
|
|
error:
|
|
|
|
return FALSE;
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/**
|
|
|
|
Search for the first occurrence of second parameter in the first.
|
|
|
|
|
|
|
|
@param self Dynamic string to be modified.
|
|
|
|
@param other Dynamic string to copy from.
|
|
|
|
@return Boolean value indicating success or failure.
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_STRING_CONTAINS)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING int
|
|
|
|
trio_string_contains
|
|
|
|
TRIO_ARGS2((self, other),
|
|
|
|
trio_string_t *self,
|
|
|
|
trio_string_t *other)
|
|
|
|
{
|
|
|
|
assert(self);
|
|
|
|
assert(other);
|
|
|
|
|
|
|
|
return trio_contains(self->content, other->content);
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/*
|
|
|
|
* trio_xstring_contains
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_XSTRING_CONTAINS)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING int
|
|
|
|
trio_xstring_contains
|
|
|
|
TRIO_ARGS2((self, other),
|
|
|
|
trio_string_t *self,
|
|
|
|
TRIO_CONST char *other)
|
|
|
|
{
|
|
|
|
assert(self);
|
|
|
|
assert(other);
|
|
|
|
|
|
|
|
return trio_contains(self->content, other);
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/*
|
|
|
|
* trio_string_copy
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_STRING_COPY)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING int
|
|
|
|
trio_string_copy
|
|
|
|
TRIO_ARGS2((self, other),
|
|
|
|
trio_string_t *self,
|
|
|
|
trio_string_t *other)
|
|
|
|
{
|
|
|
|
assert(self);
|
|
|
|
assert(other);
|
|
|
|
|
|
|
|
self->length = 0;
|
|
|
|
return trio_string_append(self, other);
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
* trio_xstring_copy
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_XSTRING_COPY)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING int
|
|
|
|
trio_xstring_copy
|
|
|
|
TRIO_ARGS2((self, other),
|
|
|
|
trio_string_t *self,
|
|
|
|
TRIO_CONST char *other)
|
|
|
|
{
|
|
|
|
assert(self);
|
|
|
|
assert(other);
|
|
|
|
|
|
|
|
self->length = 0;
|
|
|
|
return trio_xstring_append(self, other);
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/*
|
|
|
|
* trio_string_duplicate
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_STRING_DUPLICATE)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING trio_string_t *
|
|
|
|
trio_string_duplicate
|
|
|
|
TRIO_ARGS1((other),
|
|
|
|
trio_string_t *other)
|
|
|
|
{
|
|
|
|
trio_string_t *self;
|
|
|
|
|
|
|
|
assert(other);
|
|
|
|
|
|
|
|
self = internal_string_alloc();
|
|
|
|
if (self)
|
|
|
|
{
|
|
|
|
self->content = internal_duplicate_max(other->content, other->length);
|
|
|
|
if (self->content)
|
|
|
|
{
|
|
|
|
self->length = other->length;
|
|
|
|
self->allocated = self->length + 1;
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
self->length = self->allocated = 0;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
return self;
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/*
|
|
|
|
* trio_xstring_duplicate
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_XSTRING_DUPLICATE)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING trio_string_t *
|
|
|
|
trio_xstring_duplicate
|
|
|
|
TRIO_ARGS1((other),
|
|
|
|
TRIO_CONST char *other)
|
|
|
|
{
|
|
|
|
trio_string_t *self;
|
|
|
|
|
|
|
|
assert(other);
|
|
|
|
|
|
|
|
self = internal_string_alloc();
|
|
|
|
if (self)
|
|
|
|
{
|
|
|
|
self->content = internal_duplicate_max(other, trio_length(other));
|
|
|
|
if (self->content)
|
|
|
|
{
|
|
|
|
self->length = trio_length(self->content);
|
|
|
|
self->allocated = self->length + 1;
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
self->length = self->allocated = 0;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
return self;
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/*
|
|
|
|
* trio_string_equal
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_STRING_EQUAL)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING int
|
|
|
|
trio_string_equal
|
|
|
|
TRIO_ARGS2((self, other),
|
|
|
|
trio_string_t *self,
|
|
|
|
trio_string_t *other)
|
|
|
|
{
|
|
|
|
assert(self);
|
|
|
|
assert(other);
|
|
|
|
|
|
|
|
return trio_equal(self->content, other->content);
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
* trio_xstring_equal
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_XSTRING_EQUAL)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING int
|
|
|
|
trio_xstring_equal
|
|
|
|
TRIO_ARGS2((self, other),
|
|
|
|
trio_string_t *self,
|
|
|
|
TRIO_CONST char *other)
|
|
|
|
{
|
|
|
|
assert(self);
|
|
|
|
assert(other);
|
|
|
|
|
|
|
|
return trio_equal(self->content, other);
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/*
|
|
|
|
* trio_string_equal_max
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_STRING_EQUAL_MAX)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING int
|
|
|
|
trio_string_equal_max
|
|
|
|
TRIO_ARGS3((self, max, other),
|
|
|
|
trio_string_t *self,
|
|
|
|
size_t max,
|
|
|
|
trio_string_t *other)
|
|
|
|
{
|
|
|
|
assert(self);
|
|
|
|
assert(other);
|
|
|
|
|
|
|
|
return trio_equal_max(self->content, max, other->content);
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/*
|
|
|
|
* trio_xstring_equal_max
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_XSTRING_EQUAL_MAX)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING int
|
|
|
|
trio_xstring_equal_max
|
|
|
|
TRIO_ARGS3((self, max, other),
|
|
|
|
trio_string_t *self,
|
|
|
|
size_t max,
|
|
|
|
TRIO_CONST char *other)
|
|
|
|
{
|
|
|
|
assert(self);
|
|
|
|
assert(other);
|
|
|
|
|
|
|
|
return trio_equal_max(self->content, max, other);
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/*
|
|
|
|
* trio_string_equal_case
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_STRING_EQUAL_CASE)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING int
|
|
|
|
trio_string_equal_case
|
|
|
|
TRIO_ARGS2((self, other),
|
|
|
|
trio_string_t *self,
|
|
|
|
trio_string_t *other)
|
|
|
|
{
|
|
|
|
assert(self);
|
|
|
|
assert(other);
|
|
|
|
|
|
|
|
return trio_equal_case(self->content, other->content);
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/*
|
|
|
|
* trio_xstring_equal_case
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_XSTRING_EQUAL_CASE)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING int
|
|
|
|
trio_xstring_equal_case
|
|
|
|
TRIO_ARGS2((self, other),
|
|
|
|
trio_string_t *self,
|
|
|
|
TRIO_CONST char *other)
|
|
|
|
{
|
|
|
|
assert(self);
|
|
|
|
assert(other);
|
|
|
|
|
|
|
|
return trio_equal_case(self->content, other);
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/*
|
|
|
|
* trio_string_equal_case_max
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_STRING_EQUAL_CASE_MAX)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING int
|
|
|
|
trio_string_equal_case_max
|
|
|
|
TRIO_ARGS3((self, max, other),
|
|
|
|
trio_string_t *self,
|
|
|
|
size_t max,
|
|
|
|
trio_string_t *other)
|
|
|
|
{
|
|
|
|
assert(self);
|
|
|
|
assert(other);
|
|
|
|
|
|
|
|
return trio_equal_case_max(self->content, max, other->content);
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/*
|
|
|
|
* trio_xstring_equal_case_max
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_XSTRING_EQUAL_CASE_MAX)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING int
|
|
|
|
trio_xstring_equal_case_max
|
|
|
|
TRIO_ARGS3((self, max, other),
|
|
|
|
trio_string_t *self,
|
|
|
|
size_t max,
|
|
|
|
TRIO_CONST char *other)
|
|
|
|
{
|
|
|
|
assert(self);
|
|
|
|
assert(other);
|
|
|
|
|
|
|
|
return trio_equal_case_max(self->content, max, other);
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/*
|
|
|
|
* trio_string_format_data_max
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_STRING_FORMAT_DATE_MAX)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING size_t
|
|
|
|
trio_string_format_date_max
|
|
|
|
TRIO_ARGS4((self, max, format, datetime),
|
|
|
|
trio_string_t *self,
|
|
|
|
size_t max,
|
|
|
|
TRIO_CONST char *format,
|
|
|
|
TRIO_CONST struct tm *datetime)
|
|
|
|
{
|
|
|
|
assert(self);
|
|
|
|
|
|
|
|
return trio_format_date_max(self->content, max, format, datetime);
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/*
|
|
|
|
* trio_string_index
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_STRING_INDEX)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING char *
|
|
|
|
trio_string_index
|
|
|
|
TRIO_ARGS2((self, character),
|
|
|
|
trio_string_t *self,
|
|
|
|
int character)
|
|
|
|
{
|
|
|
|
assert(self);
|
|
|
|
|
|
|
|
return trio_index(self->content, character);
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/*
|
|
|
|
* trio_string_index_last
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_STRING_INDEX_LAST)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING char *
|
|
|
|
trio_string_index_last
|
|
|
|
TRIO_ARGS2((self, character),
|
|
|
|
trio_string_t *self,
|
|
|
|
int character)
|
|
|
|
{
|
|
|
|
assert(self);
|
|
|
|
|
|
|
|
return trio_index_last(self->content, character);
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/*
|
|
|
|
* trio_string_length
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_STRING_LENGTH)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING int
|
|
|
|
trio_string_length
|
|
|
|
TRIO_ARGS1((self),
|
|
|
|
trio_string_t *self)
|
|
|
|
{
|
|
|
|
assert(self);
|
|
|
|
|
|
|
|
if (self->length == 0)
|
|
|
|
{
|
|
|
|
self->length = trio_length(self->content);
|
|
|
|
}
|
|
|
|
return self->length;
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/*
|
|
|
|
* trio_string_lower
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_STRING_LOWER)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING int
|
|
|
|
trio_string_lower
|
|
|
|
TRIO_ARGS1((self),
|
|
|
|
trio_string_t *self)
|
|
|
|
{
|
|
|
|
assert(self);
|
|
|
|
|
|
|
|
return trio_lower(self->content);
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/*
|
|
|
|
* trio_string_match
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_STRING_MATCH)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING int
|
|
|
|
trio_string_match
|
|
|
|
TRIO_ARGS2((self, other),
|
|
|
|
trio_string_t *self,
|
|
|
|
trio_string_t *other)
|
|
|
|
{
|
|
|
|
assert(self);
|
|
|
|
assert(other);
|
|
|
|
|
|
|
|
return trio_match(self->content, other->content);
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/*
|
|
|
|
* trio_xstring_match
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_XSTRING_MATCH)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING int
|
|
|
|
trio_xstring_match
|
|
|
|
TRIO_ARGS2((self, other),
|
|
|
|
trio_string_t *self,
|
|
|
|
TRIO_CONST char *other)
|
|
|
|
{
|
|
|
|
assert(self);
|
|
|
|
assert(other);
|
|
|
|
|
|
|
|
return trio_match(self->content, other);
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/*
|
|
|
|
* trio_string_match_case
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_STRING_MATCH_CASE)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING int
|
|
|
|
trio_string_match_case
|
|
|
|
TRIO_ARGS2((self, other),
|
|
|
|
trio_string_t *self,
|
|
|
|
trio_string_t *other)
|
|
|
|
{
|
|
|
|
assert(self);
|
|
|
|
assert(other);
|
|
|
|
|
|
|
|
return trio_match_case(self->content, other->content);
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/*
|
|
|
|
* trio_xstring_match_case
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_XSTRING_MATCH_CASE)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING int
|
|
|
|
trio_xstring_match_case
|
|
|
|
TRIO_ARGS2((self, other),
|
|
|
|
trio_string_t *self,
|
|
|
|
TRIO_CONST char *other)
|
|
|
|
{
|
|
|
|
assert(self);
|
|
|
|
assert(other);
|
|
|
|
|
|
|
|
return trio_match_case(self->content, other);
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/*
|
|
|
|
* trio_string_substring
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_STRING_SUBSTRING)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING char *
|
|
|
|
trio_string_substring
|
|
|
|
TRIO_ARGS2((self, other),
|
|
|
|
trio_string_t *self,
|
|
|
|
trio_string_t *other)
|
|
|
|
{
|
|
|
|
assert(self);
|
|
|
|
assert(other);
|
|
|
|
|
|
|
|
return trio_substring(self->content, other->content);
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/*
|
|
|
|
* trio_xstring_substring
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_XSTRING_SUBSTRING)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING char *
|
|
|
|
trio_xstring_substring
|
|
|
|
TRIO_ARGS2((self, other),
|
|
|
|
trio_string_t *self,
|
|
|
|
TRIO_CONST char *other)
|
|
|
|
{
|
|
|
|
assert(self);
|
|
|
|
assert(other);
|
|
|
|
|
|
|
|
return trio_substring(self->content, other);
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/*
|
|
|
|
* trio_string_upper
|
|
|
|
*/
|
|
|
|
#if defined(TRIO_FUNC_STRING_UPPER)
|
|
|
|
|
|
|
|
TRIO_PUBLIC_STRING int
|
|
|
|
trio_string_upper
|
|
|
|
TRIO_ARGS1((self),
|
|
|
|
trio_string_t *self)
|
|
|
|
{
|
|
|
|
assert(self);
|
|
|
|
|
|
|
|
return trio_upper(self->content);
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/** @} End of DynamicStrings */
|