comparison src/libsndfile-1.0.25/src/strings.c @ 0:c7265573341e

Import initial set of sources

+/*
+** Copyright (C) 2001-2011 Erik de Castro Lopo <[e-mail]>
+**
+** This program is free software; you can redistribute it and/or modify
+** it under the terms of the GNU Lesser General Public License as published by
+** the Free Software Foundation; either version 2.1 of the License, or
+** (at your option) any later version.
+**
+** This program is distributed in the hope that it will be useful,
+** but WITHOUT ANY WARRANTY; without even the implied warranty of
+** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+** GNU Lesser General Public License for more details.
+**
+** You should have received a copy of the GNU Lesser General Public License
+** along with this program; if not, write to the Free Software
+** Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+*/
+
+#include	"sfconfig.h"
+
+#include	<stdio.h>
+#include	<string.h>
+#include	<math.h>
+
+#include	"sndfile.h"
+#include	"common.h"
+
+#define STRINGS_DEBUG 0
+#if STRINGS_DEBUG
+static void hexdump (void *data, int len) ;
+#endif
+
+int
+psf_store_string (SF_PRIVATE *psf, int str_type, const char *str)
+{	char	new_str [128] ;
+	size_t	len_remaining, str_len ;
+	int		k, str_flags ;
+
+	if (str == NULL)
+		return SFE_STR_BAD_STRING ;
+
+	str_len = strlen (str) ;
+
+	/* A few extra checks for write mode. */
+	if (psf->file.mode == SFM_WRITE || psf->file.mode == SFM_RDWR)
+	{	if ((psf->str_flags & SF_STR_ALLOW_START) == 0)
+			return SFE_STR_NO_SUPPORT ;
+		if (psf->have_written && (psf->str_flags & SF_STR_ALLOW_END) == 0)
+			return SFE_STR_NO_SUPPORT ;
+		/* Only allow zero length strings for software. */
+		if (str_type != SF_STR_SOFTWARE && str_len == 0)
+			return SFE_STR_BAD_STRING ;
+		} ;
+
+	/* Find the next free slot in table. */
+	for (k = 0 ; k < SF_MAX_STRINGS ; k++)
+	{	/* If we find a matching entry clear it. */
+		if (psf->strings [k].type == str_type)
+			psf->strings [k].type = -1 ;
+
+		if (psf->strings [k].type == 0)
+			break ;
+		} ;
+
+	/* Determine flags */
+	str_flags = SF_STR_LOCATE_START ;
+	if (psf->file.mode == SFM_RDWR || psf->have_written)
+	{	if ((psf->str_flags & SF_STR_ALLOW_END) == 0)
+			return SFE_STR_NO_ADD_END ;
+		str_flags = SF_STR_LOCATE_END ;
+		} ;
+
+	/* More sanity checking. */
+	if (k >= SF_MAX_STRINGS)
+		return SFE_STR_MAX_COUNT ;
+
+	if (k == 0 && psf->str_end != NULL)
+	{	psf_log_printf (psf, "SFE_STR_WEIRD : k == 0 && psf->str_end != NULL\n") ;
+		return SFE_STR_WEIRD ;
+		} ;
+
+	if (k != 0 && psf->str_end == NULL)
+	{	psf_log_printf (psf, "SFE_STR_WEIRD : k != 0 && psf->str_end == NULL\n") ;
+		return SFE_STR_WEIRD ;
+		} ;
+
+	/* Special case for the first string. */
+	if (k == 0)
+		psf->str_end = psf->str_storage ;
+
+	switch (str_type)
+	{	case SF_STR_SOFTWARE :
+				/* In write mode, want to append libsndfile-version to string. */
+				if (psf->file.mode == SFM_WRITE || psf->file.mode == SFM_RDWR)
+				{	if (strstr (str, PACKAGE) == NULL)
+					{	/*
+						** If the supplied string does not already contain a
+						** libsndfile-X.Y.Z component, then add it.
+						*/
+						if (strlen (str) == 0)
+							snprintf (new_str, sizeof (new_str), "%s-%s", PACKAGE, VERSION) ;
+						else
+							snprintf (new_str, sizeof (new_str), "%s (%s-%s)", str, PACKAGE, VERSION) ;
+						}
+					else
+						snprintf (new_str, sizeof (new_str), "%s", str) ;
+
+					str = new_str ;
+					} ;
+				break ;
+
+		case SF_STR_TITLE :
+		case SF_STR_COPYRIGHT :
+		case SF_STR_ARTIST :
+		case SF_STR_COMMENT :
+		case SF_STR_DATE :
+		case SF_STR_ALBUM :
+		case SF_STR_LICENSE :
+		case SF_STR_TRACKNUMBER :
+		case SF_STR_GENRE :
+				break ;
+
+		default :
+			psf_log_printf (psf, "%s : SFE_STR_BAD_TYPE\n", __func__) ;
+			return SFE_STR_BAD_TYPE ;
+		} ;
+
+	str_len = strlen (str) ;
+
+	len_remaining = SIGNED_SIZEOF (psf->str_storage) - (psf->str_end - psf->str_storage) ;
+
+	if (len_remaining < str_len + 2)
+		return SFE_STR_MAX_DATA ;
+
+	psf->strings [k].type = str_type ;
+	psf->strings [k].str = psf->str_end ;
+	psf->strings [k].flags = str_flags ;
+
+	memcpy (psf->str_end, str, str_len + 1) ;
+	/* Plus one to catch string terminator. */
+	psf->str_end += str_len + 1 ;
+
+	psf->str_flags |= str_flags ;
+
+#if STRINGS_DEBUG
+	psf_log_printf (psf, "str_storage          : %X\n", (int) psf->str_storage) ;
+	psf_log_printf (psf, "str_end              : %X\n", (int) psf->str_end) ;
+	psf_log_printf (psf, "sizeof (str_storage) : %d\n", SIGNED_SIZEOF (psf->str_storage)) ;
+	psf_log_printf (psf, "used                 : %d\n", (int ) (psf->str_end - psf->str_storage)) ;
+	psf_log_printf (psf, "remaining            : %d\n", SIGNED_SIZEOF (psf->str_storage) - (psf->str_end - psf->str_storage)) ;
+
+	hexdump (psf->str_storage, 300) ;
+#endif
+
+	return 0 ;
+} /* psf_store_string */
+
+int
+psf_set_string (SF_PRIVATE *psf, int str_type, const char *str)
+{	if (psf->file.mode == SFM_READ)
+		return SFE_STR_NOT_WRITE ;
+
+	return psf_store_string (psf, str_type, str) ;
+} /* psf_set_string */
+
+const char*
+psf_get_string (SF_PRIVATE *psf, int str_type)
+{	int k ;
+
+	for (k = 0 ; k < SF_MAX_STRINGS ; k++)
+		if (str_type == psf->strings [k].type)
+			return psf->strings [k].str ;
+
+	return NULL ;
+} /* psf_get_string */
+
+int
+psf_location_string_count (const SF_PRIVATE * psf, int location)
+{	int k, count = 0 ;
+
+	for (k = 0 ; k < SF_MAX_STRINGS ; k++)
+		if (psf->strings [k].type > 0 && psf->strings [k].flags & location)
+			count ++ ;
+
+	return count ;
+} /* psf_location_string_count */
+
+/*==============================================================================
+*/
+
+#if STRINGS_DEBUG
+
+#include <ctype.h>
+static void
+hexdump (void *data, int len)
+{	unsigned char *ptr ;
+	int k ;
+
+	ptr = data ;
+
+	puts ("---------------------------------------------------------") ;
+	while (len >= 16)
+	{	for (k = 0 ; k < 16 ; k++)
+			printf ("%02X ", ptr [k] & 0xFF) ;
+		printf ("   ") ;
+		for (k = 0 ; k < 16 ; k++)
+			printf ("%c", psf_isprint (ptr [k]) ? ptr [k] : '.') ;
+		puts ("") ;
+		ptr += 16 ;
+		len -= 16 ;
+		} ;
+} /* hexdump */
+
+#endif