/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% SSSSS TTTTT RRRR IIIII N N GGGG %
% SS T R R I NN N G %
% SSS T RRRR I N N N G GGG %
% SS T R R I N NN G G %
% SSSSS T R R IIIII N N GGGG %
% %
% %
% MagickCore String Methods %
% %
% Software Design %
% Cristy %
% August 2003 %
% %
% %
% Copyright 1999-2019 ImageMagick Studio LLC, a non-profit organization %
% dedicated to making software imaging solutions freely available. %
% %
% You may not use this file except in compliance with the license. You may %
% obtain a copy of the license at %
% %
% https://imagemagick.org/script/license.php %
% %
% 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. %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%
*/
/*
include declarations.
*/
#include "MagickCore/studio.h"
#include "MagickCore/blob.h"
#include "MagickCore/blob-private.h"
#include "MagickCore/exception.h"
#include "MagickCore/exception-private.h"
#include "MagickCore/image-private.h"
#include "MagickCore/list.h"
#include "MagickCore/locale_.h"
#include "MagickCore/log.h"
#include "MagickCore/memory_.h"
#include "MagickCore/memory-private.h"
#include "MagickCore/nt-base-private.h"
#include "MagickCore/property.h"
#include "MagickCore/resource_.h"
#include "MagickCore/signature-private.h"
#include "MagickCore/string_.h"
#include "MagickCore/string-private.h"
#include "MagickCore/utility-private.h"
/*
Define declarations.
*/
#define CharsPerLine 0x14
/*
Static declarations.
*/
#ifdef __VMS
#define asciimap AsciiMap
#endif
#if !defined(MAGICKCORE_HAVE_STRCASECMP) || !defined(MAGICKCORE_HAVE_STRNCASECMP)
static const unsigned char
AsciiMap[] =
{
0x00, 0x01, 0x02, 0x03, 0x04, 0x05, 0x06, 0x07, 0x08, 0x09, 0x0a, 0x0b,
0x0c, 0x0d, 0x0e, 0x0f, 0x10, 0x11, 0x12, 0x13, 0x14, 0x15, 0x16, 0x17,
0x18, 0x19, 0x1a, 0x1b, 0x1c, 0x1d, 0x1e, 0x1f, 0x20, 0x21, 0x22, 0x23,
0x24, 0x25, 0x26, 0x27, 0x28, 0x29, 0x2a, 0x2b, 0x2c, 0x2d, 0x2e, 0x2f,
0x30, 0x31, 0x32, 0x33, 0x34, 0x35, 0x36, 0x37, 0x38, 0x39, 0x3a, 0x3b,
0x3c, 0x3d, 0x3e, 0x3f, 0x40, 0x61, 0x62, 0x63, 0x64, 0x65, 0x66, 0x67,
0x68, 0x69, 0x6a, 0x6b, 0x6c, 0x6d, 0x6e, 0x6f, 0x70, 0x71, 0x72, 0x73,
0x74, 0x75, 0x76, 0x77, 0x78, 0x79, 0x7a, 0x5b, 0x5c, 0x5d, 0x5e, 0x5f,
0x60, 0x61, 0x62, 0x63, 0x64, 0x65, 0x66, 0x67, 0x68, 0x69, 0x6a, 0x6b,
0x6c, 0x6d, 0x6e, 0x6f, 0x70, 0x71, 0x72, 0x73, 0x74, 0x75, 0x76, 0x77,
0x78, 0x79, 0x7a, 0x7b, 0x7c, 0x7d, 0x7e, 0x7f, 0x80, 0x81, 0x82, 0x83,
0x84, 0x85, 0x86, 0x87, 0x88, 0x89, 0x8a, 0x8b, 0x8c, 0x8d, 0x8e, 0x8f,
0x90, 0x91, 0x92, 0x93, 0x94, 0x95, 0x96, 0x97, 0x98, 0x99, 0x9a, 0x9b,
0x9c, 0x9d, 0x9e, 0x9f, 0xa0, 0xa1, 0xa2, 0xa3, 0xa4, 0xa5, 0xa6, 0xa7,
0xa8, 0xa9, 0xaa, 0xab, 0xac, 0xad, 0xae, 0xaf, 0xb0, 0xb1, 0xb2, 0xb3,
0xb4, 0xb5, 0xb6, 0xb7, 0xb8, 0xb9, 0xba, 0xbb, 0xbc, 0xbd, 0xbe, 0xbf,
0xc0, 0xe1, 0xe2, 0xe3, 0xe4, 0xc5, 0xe6, 0xe7, 0xe8, 0xe9, 0xea, 0xeb,
0xec, 0xed, 0xee, 0xef, 0xf0, 0xf1, 0xf2, 0xf3, 0xf4, 0xf5, 0xf6, 0xf7,
0xf8, 0xf9, 0xfa, 0xdb, 0xdc, 0xdd, 0xde, 0xdf, 0xe0, 0xe1, 0xe2, 0xe3,
0xe4, 0xe5, 0xe6, 0xe7, 0xe8, 0xe9, 0xea, 0xeb, 0xec, 0xed, 0xee, 0xef,
0xf0, 0xf1, 0xf2, 0xf3, 0xf4, 0xf5, 0xf6, 0xf7, 0xf8, 0xf9, 0xfa, 0xfb,
0xfc, 0xfd, 0xfe, 0xff,
};
#endif
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% A c q u i r e S t r i n g %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% AcquireString() returns an new extented string, containing a clone of the
% given string.
%
% An extended string is the string length, plus an extra MagickPathExtent space
% to allow for the string to be actively worked on.
%
% The returned string shoud be freed using DestoryString().
%
% The format of the AcquireString method is:
%
% char *AcquireString(const char *source)
%
% A description of each parameter follows:
%
% o source: A character string.
%
*/
MagickExport char *AcquireString(const char *source)
{
char
*destination;
size_t
length;
length=0;
if (source != (char *) NULL)
length+=strlen(source);
if (~length < MagickPathExtent)
ThrowFatalException(ResourceLimitFatalError,"UnableToAcquireString");
destination=(char *) AcquireQuantumMemory(length+MagickPathExtent,
sizeof(*destination));
if (destination == (char *) NULL)
ThrowFatalException(ResourceLimitFatalError,"UnableToAcquireString");
*destination='\0';
if (source != (char *) NULL)
(void) memcpy(destination,source,length*sizeof(*destination));
destination[length]='\0';
return(destination);
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% A c q u i r e S t r i n g I n f o %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% AcquireStringInfo() allocates the StringInfo structure.
%
% The format of the AcquireStringInfo method is:
%
% StringInfo *AcquireStringInfo(const size_t length)
%
% A description of each parameter follows:
%
% o length: the string length.
%
*/
static StringInfo *AcquireStringInfoContainer()
{
StringInfo
*string_info;
string_info=(StringInfo *) AcquireCriticalMemory(sizeof(*string_info));
(void) memset(string_info,0,sizeof(*string_info));
string_info->signature=MagickCoreSignature;
return(string_info);
}
MagickExport StringInfo *AcquireStringInfo(const size_t length)
{
StringInfo
*string_info;
string_info=AcquireStringInfoContainer();
string_info->length=length;
if (~string_info->length >= (MagickPathExtent-1))
string_info->datum=(unsigned char *) AcquireQuantumMemory(
string_info->length+MagickPathExtent,sizeof(*string_info->datum));
if (string_info->datum == (unsigned char *) NULL)
ThrowFatalException(ResourceLimitFatalError,"MemoryAllocationFailed");
(void) memset(string_info->datum,0,(length+MagickPathExtent)*
sizeof(*string_info->datum));
return(string_info);
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% B l o b T o S t r i n g I n f o %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% BlobToStringInfo() returns the contents of a blob as a StringInfo structure
% with MagickPathExtent extra space.
%
% The format of the BlobToStringInfo method is:
%
% StringInfo *BlobToStringInfo(const void *blob,const size_t length)
%
% A description of each parameter follows:
%
% o blob: the blob.
%
% o length: the length of the blob.
%
*/
MagickExport StringInfo *BlobToStringInfo(const void *blob,const size_t length)
{
StringInfo
*string_info;
if (~length < MagickPathExtent)
ThrowFatalException(ResourceLimitFatalError,"MemoryAllocationFailed");
string_info=AcquireStringInfoContainer();
string_info->length=length;
string_info->datum=(unsigned char *) AcquireQuantumMemory(length+
MagickPathExtent,sizeof(*string_info->datum));
if (string_info->datum == (unsigned char *) NULL)
{
string_info=DestroyStringInfo(string_info);
return((StringInfo *) NULL);
}
if (blob != (const void *) NULL)
(void) memcpy(string_info->datum,blob,length);
else
(void) memset(string_info->datum,0,length*sizeof(*string_info->datum));
(void) memset(string_info->datum+length,0,MagickPathExtent*
sizeof(*string_info->datum));
return(string_info);
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% C l o n e S t r i n g %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% CloneString() replaces or frees the destination string to make it
% a clone of the input string plus MagickPathExtent more space so the string
% may be worked on.
%
% If source is a NULL pointer the destination string will be freed and set to
% a NULL pointer. A pointer to the stored in the destination is also returned.
%
% When finished the non-NULL string should be freed using DestoryString()
% or using CloneString() with a NULL pointed for the source.
%
% The format of the CloneString method is:
%
% char *CloneString(char **destination,const char *source)
%
% A description of each parameter follows:
%
% o destination: A pointer to a character string.
%
% o source: A character string.
%
*/
MagickExport char *CloneString(char **destination,const char *source)
{
size_t
length;
assert(destination != (char **) NULL);
if (source == (const char *) NULL)
{
if (*destination != (char *) NULL)
*destination=DestroyString(*destination);
return(*destination);
}
if (*destination == (char *) NULL)
{
*destination=AcquireString(source);
return(*destination);
}
length=strlen(source);
if (~length < MagickPathExtent)
ThrowFatalException(ResourceLimitFatalError,"UnableToAcquireString");
*destination=(char *) ResizeQuantumMemory(*destination,length+
MagickPathExtent,sizeof(**destination));
if (*destination == (char *) NULL)
ThrowFatalException(ResourceLimitFatalError,"UnableToAcquireString");
if (length != 0)
(void) memcpy(*destination,source,length*sizeof(**destination));
(*destination)[length]='\0';
return(*destination);
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% C l o n e S t r i n g I n f o %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% CloneStringInfo() clones a copy of the StringInfo structure.
%
% The format of the CloneStringInfo method is:
%
% StringInfo *CloneStringInfo(const StringInfo *string_info)
%
% A description of each parameter follows:
%
% o string_info: the string info.
%
*/
MagickExport StringInfo *CloneStringInfo(const StringInfo *string_info)
{
StringInfo
*clone_info;
assert(string_info != (StringInfo *) NULL);
assert(string_info->signature == MagickCoreSignature);
clone_info=AcquireStringInfo(string_info->length);
if (string_info->length != 0)
(void) memcpy(clone_info->datum,string_info->datum,string_info->length+1);
return(clone_info);
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% C o m p a r e S t r i n g I n f o %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% CompareStringInfo() compares the two datums target and source. It returns
% an integer less than, equal to, or greater than zero if target is found,
% respectively, to be less than, to match, or be greater than source.
%
% The format of the CompareStringInfo method is:
%
% int CompareStringInfo(const StringInfo *target,const StringInfo *source)
%
% A description of each parameter follows:
%
% o target: the target string.
%
% o source: the source string.
%
*/
MagickExport int CompareStringInfo(const StringInfo *target,
const StringInfo *source)
{
int
status;
assert(target != (StringInfo *) NULL);
assert(target->signature == MagickCoreSignature);
assert(source != (StringInfo *) NULL);
assert(source->signature == MagickCoreSignature);
status=memcmp(target->datum,source->datum,MagickMin(target->length,
source->length));
if (status != 0)
return(status);
if (target->length == source->length)
return(0);
return(target->length < source->length ? -1 : 1);
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% C o n c a t e n a t e M a g i c k S t r i n g %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% ConcatenateMagickString() concatenates the source string to the destination
% string. The destination buffer is always null-terminated even if the
% string must be truncated.
%
% The format of the ConcatenateMagickString method is:
%
% size_t ConcatenateMagickString(char *destination,const char *source,
% const size_t length)
%
% A description of each parameter follows:
%
% o destination: the destination string.
%
% o source: the source string.
%
% o length: the length of the destination string.
%
*/
MagickExport size_t ConcatenateMagickString(char *destination,
const char *source,const size_t length)
{
register char
*q;
register const char
*p;
register size_t
i;
size_t
count;
assert(destination != (char *) NULL);
assert(source != (const char *) NULL);
assert(length >= 1);
p=source;
q=destination;
i=length;
while ((i-- != 0) && (*q != '\0'))
q++;
count=(size_t) (q-destination);
i=length-count;
if (i == 0)
return(count+strlen(p));
while (*p != '\0')
{
if (i != 1)
{
*q++=(*p);
i--;
}
p++;
}
*q='\0';
return(count+(p-source));
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% C o n c a t e n a t e S t r i n g %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% ConcatenateString() appends a copy of string source, including the
% terminating null character, to the end of string destination.
%
% The format of the ConcatenateString method is:
%
% MagickBooleanType ConcatenateString(char **destination,
% const char *source)
%
% A description of each parameter follows:
%
% o destination: A pointer to a character string.
%
% o source: A character string.
%
*/
MagickExport MagickBooleanType ConcatenateString(char **destination,
const char *source)
{
size_t
destination_length,
length,
source_length;
assert(destination != (char **) NULL);
if (source == (const char *) NULL)
return(MagickTrue);
if (*destination == (char *) NULL)
{
*destination=AcquireString(source);
return(MagickTrue);
}
destination_length=strlen(*destination);
source_length=strlen(source);
length=destination_length;
if (~length < source_length)
ThrowFatalException(ResourceLimitFatalError,"UnableToConcatenateString");
length+=source_length;
if (~length < MagickPathExtent)
ThrowFatalException(ResourceLimitFatalError,"UnableToConcatenateString");
*destination=(char *) ResizeQuantumMemory(*destination,length+
MagickPathExtent,sizeof(**destination));
if (*destination == (char *) NULL)
ThrowFatalException(ResourceLimitFatalError,"UnableToConcatenateString");
if (source_length != 0)
(void) memcpy((*destination)+destination_length,source,source_length);
(*destination)[length]='\0';
return(MagickTrue);
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% C o n c a t e n a t e S t r i n g I n f o %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% ConcatenateStringInfo() concatenates the source string to the destination
% string.
%
% The format of the ConcatenateStringInfo method is:
%
% void ConcatenateStringInfo(StringInfo *string_info,
% const StringInfo *source)
%
% A description of each parameter follows:
%
% o string_info: the string info.
%
% o source: the source string.
%
*/
MagickExport void ConcatenateStringInfo(StringInfo *string_info,
const StringInfo *source)
{
size_t
length;
assert(string_info != (StringInfo *) NULL);
assert(string_info->signature == MagickCoreSignature);
assert(source != (const StringInfo *) NULL);
length=string_info->length;
if (~length < source->length)
ThrowFatalException(ResourceLimitFatalError,"UnableToConcatenateString");
SetStringInfoLength(string_info,length+source->length);
(void) memcpy(string_info->datum+length,source->datum,source->length);
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% C o n f i g u r e F i l e T o S t r i n g I n f o %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% ConfigureFileToStringInfo() returns the contents of a configure file as a
% string.
%
% The format of the ConfigureFileToStringInfo method is:
%
% StringInfo *ConfigureFileToStringInfo(const char *filename)
% ExceptionInfo *exception)
%
% A description of each parameter follows:
%
% o filename: the filename.
%
*/
MagickExport StringInfo *ConfigureFileToStringInfo(const char *filename)
{
char
*string;
int
file;
MagickOffsetType
offset;
size_t
length;
StringInfo
*string_info;
void
*map;
assert(filename != (const char *) NULL);
file=open_utf8(filename,O_RDONLY | O_BINARY,0);
if (file == -1)
return((StringInfo *) NULL);
offset=(MagickOffsetType) lseek(file,0,SEEK_END);
if ((offset < 0) || (offset != (MagickOffsetType) ((ssize_t) offset)))
{
file=close(file)-1;
return((StringInfo *) NULL);
}
length=(size_t) offset;
string=(char *) NULL;
if (~length >= (MagickPathExtent-1))
string=(char *) AcquireQuantumMemory(length+MagickPathExtent,
sizeof(*string));
if (string == (char *) NULL)
{
file=close(file)-1;
return((StringInfo *) NULL);
}
map=MapBlob(file,ReadMode,0,length);
if (map != (void *) NULL)
{
(void) memcpy(string,map,length);
(void) UnmapBlob(map,length);
}
else
{
register size_t
i;
ssize_t
count;
(void) lseek(file,0,SEEK_SET);
for (i=0; i < length; i+=count)
{
count=read(file,string+i,(size_t) MagickMin(length-i,(size_t)
SSIZE_MAX));
if (count <= 0)
{
count=0;
if (errno != EINTR)
break;
}
}
if (i < length)
{
file=close(file)-1;
string=DestroyString(string);
return((StringInfo *) NULL);
}
}
string[length]='\0';
file=close(file)-1;
string_info=AcquireStringInfoContainer();
string_info->path=ConstantString(filename);
string_info->length=length;
string_info->datum=(unsigned char *) string;
return(string_info);
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% C o n s t a n t S t r i n g %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% ConstantString() allocates exactly the needed memory for a string and
% copies the source string to that memory location. A NULL string pointer
% will allocate an empty string containing just the NUL character.
%
% When finished the string should be freed using DestoryString()
%
% The format of the ConstantString method is:
%
% char *ConstantString(const char *source)
%
% A description of each parameter follows:
%
% o source: A character string.
%
*/
MagickExport char *ConstantString(const char *source)
{
char
*destination;
size_t
length;
length=0;
if (source != (char *) NULL)
length+=strlen(source);
destination=(char *) NULL;
if (~length >= 1UL)
destination=(char *) AcquireQuantumMemory(length+1UL,sizeof(*destination));
if (destination == (char *) NULL)
ThrowFatalException(ResourceLimitFatalError,"UnableToAcquireString");
*destination='\0';
if (source != (char *) NULL)
(void) memcpy(destination,source,length*sizeof(*destination));
destination[length]='\0';
return(destination);
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% C o p y M a g i c k S t r i n g %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% CopyMagickString() copies the source string to the destination string, with
% out exceeding the given pre-declared length.
%
% The destination buffer is always null-terminated even if the string must be
% truncated. The return value is the minimum of the source string length or
% the length parameter.
%
% The format of the CopyMagickString method is:
%
% size_t CopyMagickString(const char *destination,char *source,
% const size_t length)
%
% A description of each parameter follows:
%
% o destination: the destination string.
%
% o source: the source string.
%
% o length: the length of the destination string.
%
*/
MagickExport size_t CopyMagickString(char *destination,const char *source,
const size_t length)
{
register char
*q;
register const char
*p;
register size_t
n;
p=source;
q=destination;
for (n=length; n > 4; n-=4)
{
*q=(*p++);
if (*q == '\0')
return((size_t) (p-source-1));
q++;
*q=(*p++);
if (*q == '\0')
return((size_t) (p-source-1));
q++;
*q=(*p++);
if (*q == '\0')
return((size_t) (p-source-1));
q++;
*q=(*p++);
if (*q == '\0')
return((size_t) (p-source-1));
q++;
}
if (n != 0)
for (n--; n != 0; n--)
{
*q=(*p++);
if (*q == '\0')
return((size_t) (p-source-1));
q++;
}
if (length != 0)
*q='\0';
return((size_t) (p-source-1));
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% D e s t r o y S t r i n g %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% DestroyString() destroys memory associated with a string.
%
% The format of the DestroyString method is:
%
% char *DestroyString(char *string)
%
% A description of each parameter follows:
%
% o string: the string.
%
*/
MagickExport char *DestroyString(char *string)
{
return((char *) RelinquishMagickMemory(string));
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% D e s t r o y S t r i n g I n f o %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% DestroyStringInfo() destroys memory associated with the StringInfo structure.
%
% The format of the DestroyStringInfo method is:
%
% StringInfo *DestroyStringInfo(StringInfo *string_info)
%
% A description of each parameter follows:
%
% o string_info: the string info.
%
*/
MagickExport StringInfo *DestroyStringInfo(StringInfo *string_info)
{
assert(string_info != (StringInfo *) NULL);
assert(string_info->signature == MagickCoreSignature);
if (string_info->datum != (unsigned char *) NULL)
string_info->datum=(unsigned char *) RelinquishMagickMemory(
string_info->datum);
if (string_info->name != (char *) NULL)
string_info->name=DestroyString(string_info->name);
if (string_info->path != (char *) NULL)
string_info->path=DestroyString(string_info->path);
string_info->signature=(~MagickCoreSignature);
string_info=(StringInfo *) RelinquishMagickMemory(string_info);
return(string_info);
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% D e s t r o y S t r i n g L i s t %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% DestroyStringList() zeros memory associated with a string list.
%
% The format of the DestroyStringList method is:
%
% char **DestroyStringList(char **list)
%
% A description of each parameter follows:
%
% o list: the string list.
%
*/
MagickExport char **DestroyStringList(char **list)
{
register ssize_t
i;
assert(list != (char **) NULL);
for (i=0; list[i] != (char *) NULL; i++)
list[i]=DestroyString(list[i]);
list=(char **) RelinquishMagickMemory(list);
return(list);
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% E s c a p e S t r i n g %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% EscapeString() allocates memory for a backslash-escaped version of a
% source text string, copies the escaped version of the text to that
% memory location while adding backslash characters, and returns the
% escaped string.
%
% The format of the EscapeString method is:
%
% char *EscapeString(const char *source,const char escape)
%
% A description of each parameter follows:
%
% o allocate_string: Method EscapeString returns the escaped string.
%
% o source: A character string.
%
% o escape: the quoted string termination character to escape (e.g. '"').
%
*/
MagickExport char *EscapeString(const char *source,const char escape)
{
char
*destination;
register char
*q;
register const char
*p;
size_t
length;
assert(source != (const char *) NULL);
length=0;
for (p=source; *p != '\0'; p++)
{
if ((*p == '\\') || (*p == escape))
{
if (~length < 1)
ThrowFatalException(ResourceLimitFatalError,"UnableToEscapeString");
length++;
}
length++;
}
destination=(char *) NULL;
if (~length >= (MagickPathExtent-1))
destination=(char *) AcquireQuantumMemory(length+MagickPathExtent,
sizeof(*destination));
if (destination == (char *) NULL)
ThrowFatalException(ResourceLimitFatalError,"UnableToEscapeString");
*destination='\0';
q=destination;
for (p=source; *p != '\0'; p++)
{
if ((*p == '\\') || (*p == escape))
*q++='\\';
*q++=(*p);
}
*q='\0';
return(destination);
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% F i l e T o S t r i n g %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% FileToString() returns the contents of a file as a string.
%
% The format of the FileToString method is:
%
% char *FileToString(const char *filename,const size_t extent,
% ExceptionInfo *exception)
%
% A description of each parameter follows:
%
% o filename: the filename.
%
% o extent: Maximum length of the string.
%
% o exception: return any errors or warnings in this structure.
%
*/
MagickExport char *FileToString(const char *filename,const size_t extent,
ExceptionInfo *exception)
{
size_t
length;
assert(filename != (const char *) NULL);
(void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",filename);
assert(exception != (ExceptionInfo *) NULL);
return((char *) FileToBlob(filename,extent,&length,exception));
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% F i l e T o S t r i n g I n f o %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% FileToStringInfo() returns the contents of a file as a string.
%
% The format of the FileToStringInfo method is:
%
% StringInfo *FileToStringInfo(const char *filename,const size_t extent,
% ExceptionInfo *exception)
%
% A description of each parameter follows:
%
% o filename: the filename.
%
% o extent: Maximum length of the string.
%
% o exception: return any errors or warnings in this structure.
%
*/
MagickExport StringInfo *FileToStringInfo(const char *filename,
const size_t extent,ExceptionInfo *exception)
{
StringInfo
*string_info;
assert(filename != (const char *) NULL);
(void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",filename);
assert(exception != (ExceptionInfo *) NULL);
string_info=AcquireStringInfoContainer();
string_info->path=ConstantString(filename);
string_info->datum=(unsigned char *) FileToBlob(filename,extent,
&string_info->length,exception);
if (string_info->datum == (unsigned char *) NULL)
{
string_info=DestroyStringInfo(string_info);
return((StringInfo *) NULL);
}
return(string_info);
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% F o r m a t M a g i c k S i z e %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% FormatMagickSize() converts a size to a human readable format, for example,
% 14k, 234m, 2.7g, or 3.0t. Scaling is done by repetitively dividing by
% 1000.
%
% The format of the FormatMagickSize method is:
%
% ssize_t FormatMagickSize(const MagickSizeType size,const char *suffix,
% const size_t length,char *format)
%
% A description of each parameter follows:
%
% o size: convert this size to a human readable format.
%
% o bi: use power of two rather than power of ten.
%
% o suffix: append suffix, typically B or P.
%
% o length: the maximum length of the string.
%
% o format: human readable format.
%
*/
MagickExport ssize_t FormatMagickSize(const MagickSizeType size,
const MagickBooleanType bi,const char *suffix,const size_t length,
char *format)
{
char
p[MagickPathExtent],
q[MagickPathExtent];
const char
**units;
double
bytes,
extent;
register ssize_t
i;
ssize_t
count;
static const char
*bi_units[] =
{
"", "Ki", "Mi", "Gi", "Ti", "Pi", "Ei", "Zi", "Yi", (char *) NULL
},
*traditional_units[] =
{
"", "K", "M", "G", "T", "P", "E", "Z", "Y", (char *) NULL
};
bytes=1000.0;
units=traditional_units;
if (bi != MagickFalse)
{
bytes=1024.0;
units=bi_units;
}
#if defined(_MSC_VER) && (_MSC_VER == 1200)
extent=(double) ((MagickOffsetType) size);
#else
extent=(double) size;
#endif
(void) FormatLocaleString(p,MagickPathExtent,"%.*g",GetMagickPrecision(),
extent);
(void) FormatLocaleString(q,MagickPathExtent,"%.20g",extent);
if (strtod(p,(char **) NULL) == strtod(q,(char **) NULL))
{
if (suffix == (const char *) NULL)
count=FormatLocaleString(format,length,"%.20g%s",extent,units[0]);
else
count=FormatLocaleString(format,length,"%.20g%s%s",extent,units[0],
suffix);
return(count);
}
for (i=0; (extent >= bytes) && (units[i+1] != (const char *) NULL); i++)
extent/=bytes;
if (suffix == (const char *) NULL)
count=FormatLocaleString(format,length,"%.*g%s",GetMagickPrecision(),
extent,units[i]);
else
count=FormatLocaleString(format,length,"%.*g%s%s",GetMagickPrecision(),
extent,units[i],suffix);
return(count);
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% F o r m a t M a g i c k T i m e %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% FormatMagickTime() returns the specified time in the Internet date/time
% format and the length of the timestamp.
%
% The format of the FormatMagickTime method is:
%
% ssize_t FormatMagickTime(const time_t time,const size_t length,
% char *timestamp)
%
% A description of each parameter follows.
%
% o time: the time since the Epoch (00:00:00 UTC, January 1, 1970),
% measured in seconds.
%
% o length: the maximum length of the string.
%
% o timestamp: Return the Internet date/time here.
%
*/
MagickExport ssize_t FormatMagickTime(const time_t time,const size_t length,
char *timestamp)
{
ssize_t
count;
struct tm
gm_time,
local_time;
time_t
timezone;
assert(timestamp != (char *) NULL);
(void) memset(&local_time,0,sizeof(local_time));
(void) memset(&gm_time,0,sizeof(gm_time));
#if defined(MAGICKCORE_HAVE_LOCALTIME_R)
(void) localtime_r(&time,&local_time);
#else
{
struct tm
*my_time;
my_time=localtime(&time);
if (my_time != (struct tm *) NULL)
(void) memcpy(&local_time,my_time,sizeof(local_time));
}
#endif
#if defined(MAGICKCORE_HAVE_GMTIME_R)
(void) gmtime_r(&time,&gm_time);
#else
{
struct tm
*my_time;
my_time=gmtime(&time);
if (my_time != (struct tm *) NULL)
(void) memcpy(&gm_time,my_time,sizeof(gm_time));
}
#endif
timezone=(time_t) ((local_time.tm_min-gm_time.tm_min)/60+
local_time.tm_hour-gm_time.tm_hour+24*((local_time.tm_year-
gm_time.tm_year) != 0 ? (local_time.tm_year-gm_time.tm_year) :
(local_time.tm_yday-gm_time.tm_yday)));
count=FormatLocaleString(timestamp,length,
"%04d-%02d-%02dT%02d:%02d:%02d%+03ld:00",local_time.tm_year+1900,
local_time.tm_mon+1,local_time.tm_mday,local_time.tm_hour,
local_time.tm_min,local_time.tm_sec,(long) timezone);
return(count);
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% G e t E n v i r o n m e n t V a l u e %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% GetEnvironmentValue() returns the environment string that matches the
% specified name.
%
% The format of the GetEnvironmentValue method is:
%
% char *GetEnvironmentValue(const char *name)
%
% A description of each parameter follows:
%
% o name: the environment name.
%
*/
MagickExport char *GetEnvironmentValue(const char *name)
{
const char
*environment;
environment=getenv(name);
if (environment == (const char *) NULL)
return((char *) NULL);
return(ConstantString(environment));
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% G e t S t r i n g I n f o D a t u m %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% GetStringInfoDatum() returns the datum associated with the string.
%
% The format of the GetStringInfoDatum method is:
%
% unsigned char *GetStringInfoDatum(const StringInfo *string_info)
%
% A description of each parameter follows:
%
% o string_info: the string info.
%
*/
MagickExport unsigned char *GetStringInfoDatum(const StringInfo *string_info)
{
assert(string_info != (StringInfo *) NULL);
assert(string_info->signature == MagickCoreSignature);
return(string_info->datum);
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% G e t S t r i n g I n f o L e n g t h %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% GetStringInfoLength() returns the string length.
%
% The format of the GetStringInfoLength method is:
%
% size_t GetStringInfoLength(const StringInfo *string_info)
%
% A description of each parameter follows:
%
% o string_info: the string info.
%
*/
MagickExport size_t GetStringInfoLength(const StringInfo *string_info)
{
assert(string_info != (StringInfo *) NULL);
assert(string_info->signature == MagickCoreSignature);
return(string_info->length);
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% G e t S t r i n g I n f o N a m e %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% GetStringInfoName() returns the name associated with the string.
%
% The format of the GetStringInfoName method is:
%
% const char *GetStringInfoName(const StringInfo *string_info)
%
% A description of each parameter follows:
%
% o string_info: the string info.
%
*/
MagickExport const char *GetStringInfoName(const StringInfo *string_info)
{
assert(string_info != (StringInfo *) NULL);
assert(string_info->signature == MagickCoreSignature);
return(string_info->name);
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% G e t S t r i n g I n f o P a t h %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% GetStringInfoPath() returns the path associated with the string.
%
% The format of the GetStringInfoPath method is:
%
% const char *GetStringInfoPath(const StringInfo *string_info)
%
% A description of each parameter follows:
%
% o string_info: the string info.
%
*/
MagickExport const char *GetStringInfoPath(const StringInfo *string_info)
{
assert(string_info != (StringInfo *) NULL);
assert(string_info->signature == MagickCoreSignature);
return(string_info->path);
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
+ I n t e r p r e t S i P r e f i x V a l u e %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% InterpretSiPrefixValue() converts the initial portion of the string to a
% double representation. It also recognizes SI prefixes (e.g. B, KB, MiB,
% etc.).
%
% The format of the InterpretSiPrefixValue method is:
%
% double InterpretSiPrefixValue(const char *value,char **sentinal)
%
% A description of each parameter follows:
%
% o value: the string value.
%
% o sentinal: if sentinal is not NULL, return a pointer to the character
% after the last character used in the conversion.
%
*/
MagickExport double InterpretSiPrefixValue(const char *magick_restrict string,
char **magick_restrict sentinal)
{
char
*q;
double
value;
value=InterpretLocaleValue(string,&q);
if (q != string)
{
if ((*q >= 'E') && (*q <= 'z'))
{
double
e;
switch ((int) ((unsigned char) *q))
{
case 'y': e=(-24.0); break;
case 'z': e=(-21.0); break;
case 'a': e=(-18.0); break;
case 'f': e=(-15.0); break;
case 'p': e=(-12.0); break;
case 'n': e=(-9.0); break;
case 'u': e=(-6.0); break;
case 'm': e=(-3.0); break;
case 'c': e=(-2.0); break;
case 'd': e=(-1.0); break;
case 'h': e=2.0; break;
case 'k': e=3.0; break;
case 'K': e=3.0; break;
case 'M': e=6.0; break;
case 'G': e=9.0; break;
case 'T': e=12.0; break;
case 'P': e=15.0; break;
case 'E': e=18.0; break;
case 'Z': e=21.0; break;
case 'Y': e=24.0; break;
default: e=0.0; break;
}
if (e >= MagickEpsilon)
{
if (q[1] == 'i')
{
value*=pow(2.0,e/0.3);
q+=2;
}
else
{
value*=pow(10.0,e);
q++;
}
}
}
if ((*q == 'B') || (*q == 'P'))
q++;
}
if (sentinal != (char **) NULL)
*sentinal=q;
return(value);
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% I s S t r i n g T r u e %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% IsStringTrue() returns MagickTrue if the value is "true", "on", "yes" or
% "1". Any other string or undefined returns MagickFalse.
%
% Typically this is used to look at strings (options or artifacts) which
% has a default value of "false", when not defined.
%
% The format of the IsStringTrue method is:
%
% MagickBooleanType IsStringTrue(const char *value)
%
% A description of each parameter follows:
%
% o value: Specifies a pointer to a character array.
%
*/
MagickExport MagickBooleanType IsStringTrue(const char *value)
{
if (value == (const char *) NULL)
return(MagickFalse);
if (LocaleCompare(value,"true") == 0)
return(MagickTrue);
if (LocaleCompare(value,"on") == 0)
return(MagickTrue);
if (LocaleCompare(value,"yes") == 0)
return(MagickTrue);
if (LocaleCompare(value,"1") == 0)
return(MagickTrue);
return(MagickFalse);
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% I s S t r i n g F a l s e %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% IsStringFalse() returns MagickTrue if the value is "false", "off", "no" or
% "0". Any other string or undefined returns MagickFalse.
%
% Typically this is used to look at strings (options or artifacts) which
% has a default value of "true", when it has not been defined.
%
% The format of the IsStringFalse method is:
%
% MagickBooleanType IsStringFalse(const char *value)
%
% A description of each parameter follows:
%
% o value: Specifies a pointer to a character array.
%
*/
MagickExport MagickBooleanType IsStringFalse(const char *value)
{
if (value == (const char *) NULL)
return(MagickFalse);
if (LocaleCompare(value,"false") == 0)
return(MagickTrue);
if (LocaleCompare(value,"off") == 0)
return(MagickTrue);
if (LocaleCompare(value,"no") == 0)
return(MagickTrue);
if (LocaleCompare(value,"0") == 0)
return(MagickTrue);
return(MagickFalse);
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% P r i n t S t r i n g I n f o %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% PrintStringInfo() prints the string.
%
% The format of the PrintStringInfo method is:
%
% void PrintStringInfo(FILE *file,const char *id,
% const StringInfo *string_info)
%
% A description of each parameter follows:
%
% o file: the file, typically stdout.
%
% o id: the string id.
%
% o string_info: the string info.
%
*/
MagickExport void PrintStringInfo(FILE *file,const char *id,
const StringInfo *string_info)
{
register const char
*p;
register size_t
i,
j;
assert(id != (const char *) NULL);
assert(string_info != (StringInfo *) NULL);
assert(string_info->signature == MagickCoreSignature);
p=(char *) string_info->datum;
for (i=0; i < string_info->length; i++)
{
if (((int) ((unsigned char) *p) < 32) &&
(isspace((int) ((unsigned char) *p)) == 0))
break;
p++;
}
(void) FormatLocaleFile(file,"%s(%.20g):\n",id,(double) string_info->length);
if (i == string_info->length)
{
for (i=0; i < string_info->length; i++)
(void) fputc(string_info->datum[i],file);
(void) fputc('\n',file);
return;
}
/*
Convert string to a HEX list.
*/
p=(char *) string_info->datum;
for (i=0; i < string_info->length; i+=CharsPerLine)
{
(void) FormatLocaleFile(file,"0x%08lx: ",(unsigned long) (CharsPerLine*i));
for (j=1; j <= MagickMin(string_info->length-i,CharsPerLine); j++)
{
(void) FormatLocaleFile(file,"%02lx",(unsigned long) (*(p+j)) & 0xff);
if ((j % 0x04) == 0)
(void) fputc(' ',file);
}
for ( ; j <= CharsPerLine; j++)
{
(void) fputc(' ',file);
(void) fputc(' ',file);
if ((j % 0x04) == 0)
(void) fputc(' ',file);
}
(void) fputc(' ',file);
for (j=1; j <= MagickMin(string_info->length-i,CharsPerLine); j++)
{
if (isprint((int) ((unsigned char) *p)) != 0)
(void) fputc(*p,file);
else
(void) fputc('-',file);
p++;
}
(void) fputc('\n',file);
}
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% R e s e t S t r i n g I n f o %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% ResetStringInfo() reset the string to all null bytes.
%
% The format of the ResetStringInfo method is:
%
% void ResetStringInfo(StringInfo *string_info)
%
% A description of each parameter follows:
%
% o string_info: the string info.
%
*/
MagickExport void ResetStringInfo(StringInfo *string_info)
{
assert(string_info != (StringInfo *) NULL);
assert(string_info->signature == MagickCoreSignature);
(void) memset(string_info->datum,0,string_info->length);
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% S a n t i z e S t r i n g %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% SanitizeString() returns an new string removes all characters except
% letters, digits and !#$%&'*+-=?^_`{|}~@.[].
%
% The returned string shoud be freed using DestoryString().
%
% The format of the SanitizeString method is:
%
% char *SanitizeString(const char *source)
%
% A description of each parameter follows:
%
% o source: A character string.
%
*/
MagickExport char *SanitizeString(const char *source)
{
char
*sanitize_source;
const char
*q;
register char
*p;
static char
whitelist[] =
"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789 "
"$-_.+!*'(),{}|\\^~[]`\"><#%;/?:@&=";
sanitize_source=AcquireString(source);
p=sanitize_source;
q=sanitize_source+strlen(sanitize_source);
for (p+=strspn(p,whitelist); p != q; p+=strspn(p,whitelist))
*p='_';
return(sanitize_source);
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% S e t S t r i n g I n f o %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% SetStringInfo() copies the source string to the destination string.
%
% The format of the SetStringInfo method is:
%
% void SetStringInfo(StringInfo *string_info,const StringInfo *source)
%
% A description of each parameter follows:
%
% o string_info: the string info.
%
% o source: the source string.
%
*/
MagickExport void SetStringInfo(StringInfo *string_info,
const StringInfo *source)
{
assert(string_info != (StringInfo *) NULL);
assert(string_info->signature == MagickCoreSignature);
assert(source != (StringInfo *) NULL);
assert(source->signature == MagickCoreSignature);
if (string_info->length == 0)
return;
(void) memset(string_info->datum,0,string_info->length);
(void) memcpy(string_info->datum,source->datum,MagickMin(string_info->length,
source->length));
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% S e t S t r i n g I n f o D a t u m %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% SetStringInfoDatum() copies bytes from the source string for the length of
% the destination string.
%
% The format of the SetStringInfoDatum method is:
%
% void SetStringInfoDatum(StringInfo *string_info,
% const unsigned char *source)
%
% A description of each parameter follows:
%
% o string_info: the string info.
%
% o source: the source string.
%
*/
MagickExport void SetStringInfoDatum(StringInfo *string_info,
const unsigned char *source)
{
assert(string_info != (StringInfo *) NULL);
assert(string_info->signature == MagickCoreSignature);
if (string_info->length != 0)
(void) memcpy(string_info->datum,source,string_info->length);
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% S e t S t r i n g I n f o L e n g t h %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% SetStringInfoLength() set the string length to the specified value.
%
% The format of the SetStringInfoLength method is:
%
% void SetStringInfoLength(StringInfo *string_info,const size_t length)
%
% A description of each parameter follows:
%
% o string_info: the string info.
%
% o length: the string length.
%
*/
MagickExport void SetStringInfoLength(StringInfo *string_info,
const size_t length)
{
assert(string_info != (StringInfo *) NULL);
assert(string_info->signature == MagickCoreSignature);
if (string_info->length == length)
return;
if (~length < MagickPathExtent)
ThrowFatalException(ResourceLimitFatalError,"MemoryAllocationFailed");
string_info->length=length;
if (string_info->datum == (unsigned char *) NULL)
string_info->datum=(unsigned char *) AcquireQuantumMemory(length+
MagickPathExtent,sizeof(*string_info->datum));
else
string_info->datum=(unsigned char *) ResizeQuantumMemory(string_info->datum,
length+MagickPathExtent,sizeof(*string_info->datum));
if (string_info->datum == (unsigned char *) NULL)
ThrowFatalException(ResourceLimitFatalError,"MemoryAllocationFailed");
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% S e t S t r i n g I n f o N a m e %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% SetStringInfoName() sets the name associated with the string.
%
% The format of the SetStringInfoName method is:
%
% void SetStringInfoName(StringInfo *string_info,const char *name)
%
% A description of each parameter follows:
%
% o string_info: the string info.
%
% o name: the name.
%
*/
MagickExport void SetStringInfoName(StringInfo *string_info,const char *name)
{
assert(string_info != (StringInfo *) NULL);
assert(string_info->signature == MagickCoreSignature);
assert(name != (const char *) NULL);
string_info->name=ConstantString(name);
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% S e t S t r i n g I n f o P a t h %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% SetStringInfoPath() sets the path associated with the string.
%
% The format of the SetStringInfoPath method is:
%
% void SetStringInfoPath(StringInfo *string_info,const char *path)
%
% A description of each parameter follows:
%
% o string_info: the string info.
%
% o path: the path.
%
*/
MagickExport void SetStringInfoPath(StringInfo *string_info,const char *path)
{
assert(string_info != (StringInfo *) NULL);
assert(string_info->signature == MagickCoreSignature);
assert(path != (const char *) NULL);
string_info->path=ConstantString(path);
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% S p l i t S t r i n g I n f o %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% SplitStringInfo() splits a string into two and returns it.
%
% The format of the SplitStringInfo method is:
%
% StringInfo *SplitStringInfo(StringInfo *string_info,const size_t offset)
%
% A description of each parameter follows:
%
% o string_info: the string info.
%
*/
MagickExport StringInfo *SplitStringInfo(StringInfo *string_info,
const size_t offset)
{
StringInfo
*split_info;
assert(string_info != (StringInfo *) NULL);
assert(string_info->signature == MagickCoreSignature);
if (offset > string_info->length)
return((StringInfo *) NULL);
split_info=AcquireStringInfo(offset);
SetStringInfo(split_info,string_info);
(void) memmove(string_info->datum,string_info->datum+offset,
string_info->length-offset+MagickPathExtent);
SetStringInfoLength(string_info,string_info->length-offset);
return(split_info);
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% S t r i n g I n f o T o S t r i n g %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% StringInfoToString() converts a string info string to a C string.
%
% The format of the StringInfoToString method is:
%
% char *StringInfoToString(const StringInfo *string_info)
%
% A description of each parameter follows:
%
% o string_info: the string.
%
*/
MagickExport char *StringInfoToString(const StringInfo *string_info)
{
char
*string;
size_t
length;
string=(char *) NULL;
length=string_info->length;
if (~length >= (MagickPathExtent-1))
string=(char *) AcquireQuantumMemory(length+MagickPathExtent,
sizeof(*string));
if (string == (char *) NULL)
return((char *) NULL);
(void) memcpy(string,(char *) string_info->datum,length*sizeof(*string));
string[length]='\0';
return(string);
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% S t r i n g I n f o T o H e x S t r i n g %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% StringInfoToHexString() converts a string info string to a C string.
%
% The format of the StringInfoToHexString method is:
%
% char *StringInfoToHexString(const StringInfo *string_info)
%
% A description of each parameter follows:
%
% o string_info: the string.
%
*/
MagickExport char *StringInfoToHexString(const StringInfo *string_info)
{
char
*string;
register const unsigned char
*p;
register ssize_t
i;
register unsigned char
*q;
size_t
length;
unsigned char
hex_digits[16];
length=string_info->length;
if (~length < MagickPathExtent)
ThrowFatalException(ResourceLimitFatalError,"UnableToAcquireString");
string=(char *) AcquireQuantumMemory(length+MagickPathExtent,2*
sizeof(*string));
if (string == (char *) NULL)
ThrowFatalException(ResourceLimitFatalError,"UnableToAcquireString");
hex_digits[0]='0';
hex_digits[1]='1';
hex_digits[2]='2';
hex_digits[3]='3';
hex_digits[4]='4';
hex_digits[5]='5';
hex_digits[6]='6';
hex_digits[7]='7';
hex_digits[8]='8';
hex_digits[9]='9';
hex_digits[10]='a';
hex_digits[11]='b';
hex_digits[12]='c';
hex_digits[13]='d';
hex_digits[14]='e';
hex_digits[15]='f';
p=string_info->datum;
q=(unsigned char *) string;
for (i=0; i < (ssize_t) string_info->length; i++)
{
*q++=hex_digits[(*p >> 4) & 0x0f];
*q++=hex_digits[*p & 0x0f];
p++;
}
*q='\0';
return(string);
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% S t r i n g T o A r g v %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% StringToArgv() converts a text string into command line arguments.
% The 'argv' array of arguments, is returned while the number of arguments
% is returned via the provided integer variable pointer.
%
% Simple 'word' tokenizer, which allows for each word to be optionally
% quoted. However it will not allow use of partial quotes, or escape
% characters.
%
% The format of the StringToArgv method is:
%
% char **StringToArgv(const char *text,int *argc)
%
% A description of each parameter follows:
%
% o argv: Method StringToArgv returns the string list unless an error
% occurs, otherwise NULL.
%
% o text: Specifies the string to segment into a list.
%
% o argc: This integer pointer returns the number of arguments in the
% list.
%
*/
MagickExport char **StringToArgv(const char *text,int *argc)
{
char
**argv;
register const char
*p,
*q;
register ssize_t
i;
*argc=0;
if (text == (char *) NULL)
return((char **) NULL);
/*
Determine the number of arguments.
*/
for (p=text; *p != '\0'; )
{
while (isspace((int) ((unsigned char) *p)) != 0)
p++;
if (*p == '\0')
break;
(*argc)++;
if (*p == '"')
for (p++; (*p != '"') && (*p != '\0'); p++) ;
if (*p == '\'')
for (p++; (*p != '\'') && (*p != '\0'); p++) ;
while ((isspace((int) ((unsigned char) *p)) == 0) && (*p != '\0'))
p++;
}
(*argc)++;
argv=(char **) AcquireQuantumMemory((size_t) (*argc+1UL),sizeof(*argv));
if (argv == (char **) NULL)
ThrowFatalException(ResourceLimitFatalError,"UnableToConvertStringToARGV");
/*
Convert string to an ASCII list.
*/
argv[0]=AcquireString("magick");
p=text;
for (i=1; i < (ssize_t) *argc; i++)
{
while (isspace((int) ((unsigned char) *p)) != 0)
p++;
q=p;
if (*q == '"')
{
p++;
for (q++; (*q != '"') && (*q != '\0'); q++) ;
}
else
if (*q == '\'')
{
p++;
for (q++; (*q != '\'') && (*q != '\0'); q++) ;
}
else
while ((isspace((int) ((unsigned char) *q)) == 0) && (*q != '\0'))
q++;
argv[i]=(char *) AcquireQuantumMemory((size_t) (q-p)+MagickPathExtent,
sizeof(**argv));
if (argv[i] == (char *) NULL)
{
for (i--; i >= 0; i--)
argv[i]=DestroyString(argv[i]);
argv=(char **) RelinquishMagickMemory(argv);
ThrowFatalException(ResourceLimitFatalError,
"UnableToConvertStringToARGV");
}
(void) memcpy(argv[i],p,(size_t) (q-p));
argv[i][q-p]='\0';
p=q;
while ((isspace((int) ((unsigned char) *p)) == 0) && (*p != '\0'))
p++;
}
argv[i]=(char *) NULL;
return(argv);
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% S t r i n g T o A r r a y O f D o u b l e s %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% StringToArrayOfDoubles() converts a string of space or comma separated
% numbers into array of floating point numbers (doubles). Any number that
% failes to parse properly will produce a syntax error. As will two commas
% without a number between them. However a final comma at the end will
% not be regarded as an error so as to simplify automatic list generation.
%
% A NULL value is returned on syntax or memory errors.
%
% Use RelinquishMagickMemory() to free returned array when finished.
%
% The format of the StringToArrayOfDoubles method is:
%
% double *StringToArrayOfDoubles(const char *string,size_t *count,
% ExceptionInfo *exception)
%
% A description of each parameter follows:
%
% o string: the string containing the comma/space separated values.
%
% o count: returns number of arguments in returned array
%
% o exception: return any errors or warnings in this structure.
%
*/
MagickExport double *StringToArrayOfDoubles(const char *string,ssize_t *count,
ExceptionInfo *exception)
{
char
*q;
const char
*p;
double
*array;
register ssize_t
i;
/*
Determine count of values, and check syntax.
*/
assert(exception != (ExceptionInfo *) NULL);
assert(exception->signature == MagickCoreSignature);
*count=0;
if (string == (char *) NULL)
return((double *) NULL); /* no value found */
i=0;
p=string;
while (*p != '\0')
{
(void) StringToDouble(p,&q); /* get value - ignores leading space */
if (p == q)
return((double *) NULL); /* no value found */
p=q;
i++; /* increment value count */
while (isspace((int) ((unsigned char) *p)) != 0)
p++; /* skip spaces */
if (*p == ',')
p++; /* skip comma */
while (isspace((int) ((unsigned char) *p)) != 0)
p++; /* and more spaces */
}
/*
Allocate floating point argument list.
*/
*count=i;
array=(double *) AcquireQuantumMemory((size_t) i,sizeof(*array));
if (array == (double *) NULL)
{
(void) ThrowMagickException(exception,GetMagickModule(),
ResourceLimitError,"MemoryAllocationFailed","`%s'","");
return((double *) NULL);
}
/*
Fill in the floating point values.
*/
i=0;
p=string;
while ((*p != '\0') && (i < *count))
{
array[i++]=StringToDouble(p,&q);
p=q;
while ((isspace((int) ((unsigned char) *p)) != 0) || (*p == ','))
p++;
}
return(array);
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
+ S t r i n g T o k e n %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% StringToken() looks for any one of given delimiters and splits the string
% into two separate strings by replacing the delimiter character found with a
% nul character.
%
% The given string pointer is changed to point to the string following the
% delimiter character found, or NULL. A pointer to the start of the
% string is returned, representing the token before the delimiter.
%
% In may ways this is equivent to the strtok() C library function, but with
% multiple delimiter characters rather than a delimiter string.
%
% The format of the StringToken method is:
%
% char *StringToken(const char *delimiters,char **string)
%
% A description of each parameter follows:
%
% o delimiters: one or more delimiters.
%
% o string: return the first token in the string. If none is found, return
% NULL.
%
*/
MagickExport char *StringToken(const char *delimiters,char **string)
{
char
*q;
register char
*p;
register const char
*r;
register int
c,
d;
p=(*string);
if (p == (char *) NULL)
return((char *) NULL);
q=p;
for ( ; ; )
{
c=(*p++);
r=delimiters;
do
{
d=(*r++);
if (c == d)
{
if (c == '\0')
p=(char *) NULL;
else
p[-1]='\0';
*string=p;
return(q);
}
} while (d != '\0');
}
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% S t r i n g T o L i s t %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% StringToList() converts a text string into a list by segmenting the text
% string at each carriage return discovered. The list is converted to HEX
% characters if any control characters are discovered within the text string.
%
% The format of the StringToList method is:
%
% char **StringToList(const char *text)
%
% A description of each parameter follows:
%
% o text: Specifies the string to segment into a list.
%
*/
MagickExport char **StringToList(const char *text)
{
return(StringToStrings(text, (size_t *) NULL));
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% S t r i n g T o S t r i n g s %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% StringToList() converts a text string into a list by segmenting the text
% string at each carriage return discovered. The list is converted to HEX
% characters if any control characters are discovered within the text string.
%
% The format of the StringToList method is:
%
% char **StringToList(const char *text,size_t *lines)
%
% A description of each parameter follows:
%
% o text: Specifies the string to segment into a list.
%
% o count: Return value for the number of items in the list.
%
*/
MagickExport char **StringToStrings(const char *text,size_t *count)
{
char
**textlist;
register const char
*p;
register ssize_t
i;
size_t
lines;
if (text == (char *) NULL)
{
if (count != (size_t *) NULL)
*count=0;
return((char **) NULL);
}
for (p=text; *p != '\0'; p++)
if (((int) ((unsigned char) *p) < 32) &&
(isspace((int) ((unsigned char) *p)) == 0))
break;
if (*p == '\0')
{
register const char
*q;
/*
Convert string to an ASCII list.
*/
lines=1;
for (p=text; *p != '\0'; p++)
if (*p == '\n')
lines++;
textlist=(char **) AcquireQuantumMemory((size_t) lines+1UL,
sizeof(*textlist));
if (textlist == (char **) NULL)
ThrowFatalException(ResourceLimitFatalError,"UnableToConvertText");
p=text;
for (i=0; i < (ssize_t) lines; i++)
{
for (q=p; *q != '\0'; q++)
if ((*q == '\r') || (*q == '\n'))
break;
textlist[i]=(char *) AcquireQuantumMemory((size_t) (q-p)+1,
sizeof(**textlist));
if (textlist[i] == (char *) NULL)
ThrowFatalException(ResourceLimitFatalError,"UnableToConvertText");
(void) memcpy(textlist[i],p,(size_t) (q-p));
textlist[i][q-p]='\0';
if (*q == '\r')
q++;
p=q+1;
}
}
else
{
char
hex_string[MagickPathExtent];
register char
*q;
register ssize_t
j;
/*
Convert string to a HEX list.
*/
lines=(size_t) (strlen(text)/CharsPerLine)+1;
textlist=(char **) AcquireQuantumMemory((size_t) lines+1UL,
sizeof(*textlist));
if (textlist == (char **) NULL)
ThrowFatalException(ResourceLimitFatalError,"UnableToConvertText");
p=text;
for (i=0; i < (ssize_t) lines; i++)
{
textlist[i]=(char *) AcquireQuantumMemory(2UL*MagickPathExtent,
sizeof(**textlist));
if (textlist[i] == (char *) NULL)
ThrowFatalException(ResourceLimitFatalError,"UnableToConvertText");
(void) FormatLocaleString(textlist[i],MagickPathExtent,"0x%08lx: ",
(long) (CharsPerLine*i));
q=textlist[i]+strlen(textlist[i]);
for (j=1; j <= (ssize_t) MagickMin(strlen(p),CharsPerLine); j++)
{
(void) FormatLocaleString(hex_string,MagickPathExtent,"%02x",*(p+j));
(void) CopyMagickString(q,hex_string,MagickPathExtent);
q+=2;
if ((j % 0x04) == 0)
*q++=' ';
}
for ( ; j <= CharsPerLine; j++)
{
*q++=' ';
*q++=' ';
if ((j % 0x04) == 0)
*q++=' ';
}
*q++=' ';
for (j=1; j <= (ssize_t) MagickMin(strlen(p),CharsPerLine); j++)
{
if (isprint((int) ((unsigned char) *p)) != 0)
*q++=(*p);
else
*q++='-';
p++;
}
*q='\0';
textlist[i]=(char *) ResizeQuantumMemory(textlist[i],q-textlist[i]+1,
sizeof(**textlist));
if (textlist[i] == (char *) NULL)
ThrowFatalException(ResourceLimitFatalError,"UnableToConvertText");
}
}
if (count != (size_t *) NULL)
*count=lines;
textlist[i]=(char *) NULL;
return(textlist);
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% S t r i n g T o S t r i n g I n f o %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% StringToStringInfo() converts a string to a StringInfo type.
%
% The format of the StringToStringInfo method is:
%
% StringInfo *StringToStringInfo(const char *string)
%
% A description of each parameter follows:
%
% o string: The string.
%
*/
MagickExport StringInfo *StringToStringInfo(const char *string)
{
StringInfo
*string_info;
assert(string != (const char *) NULL);
string_info=AcquireStringInfo(strlen(string));
SetStringInfoDatum(string_info,(const unsigned char *) string);
return(string_info);
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% S t r i p S t r i n g %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% StripString() strips any whitespace or quotes from the beginning and end of
% a string of characters.
%
% The format of the StripString method is:
%
% void StripString(char *message)
%
% A description of each parameter follows:
%
% o message: Specifies an array of characters.
%
*/
MagickExport void StripString(char *message)
{
register char
*p,
*q;
size_t
length;
assert(message != (char *) NULL);
if (*message == '\0')
return;
length=strlen(message);
p=message;
while (isspace((int) ((unsigned char) *p)) != 0)
p++;
if ((*p == '\'') || (*p == '"'))
p++;
q=message+length-1;
while ((isspace((int) ((unsigned char) *q)) != 0) && (q > p))
q--;
if (q > p)
if ((*q == '\'') || (*q == '"'))
q--;
(void) memmove(message,p,(size_t) (q-p+1));
message[q-p+1]='\0';
for (p=message; *p != '\0'; p++)
if (*p == '\n')
*p=' ';
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% S u b s t i t u t e S t r i n g %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% SubstituteString() performs string substitution on a string, replacing the
% string with the substituted version. Buffer must be allocated from the heap.
% If the string is matched and status, MagickTrue is returned otherwise
% MagickFalse.
%
% The format of the SubstituteString method is:
%
% MagickBooleanType SubstituteString(char **string,const char *search,
% const char *replace)
%
% A description of each parameter follows:
%
% o string: the string to perform replacements on; replaced with new
% allocation if a replacement is made.
%
% o search: search for this string.
%
% o replace: replace any matches with this string.
%
*/
MagickExport MagickBooleanType SubstituteString(char **string,
const char *search,const char *replace)
{
MagickBooleanType
status;
register char
*p;
size_t
extent,
replace_extent,
search_extent;
ssize_t
offset;
status=MagickFalse;
search_extent=0,
replace_extent=0;
for (p=strchr(*string,*search); p != (char *) NULL; p=strchr(p+1,*search))
{
if (search_extent == 0)
search_extent=strlen(search);
if (strncmp(p,search,search_extent) != 0)
continue;
/*
We found a match.
*/
status=MagickTrue;
if (replace_extent == 0)
replace_extent=strlen(replace);
if (replace_extent > search_extent)
{
/*
Make room for the replacement string.
*/
offset=(ssize_t) (p-(*string));
extent=strlen(*string)+replace_extent-search_extent+1;
*string=(char *) ResizeQuantumMemory(*string,extent+MagickPathExtent,
sizeof(*p));
if (*string == (char *) NULL)
ThrowFatalException(ResourceLimitFatalError,"UnableToAcquireString");
p=(*string)+offset;
}
/*
Replace string.
*/
if (search_extent != replace_extent)
(void) memmove(p+replace_extent,p+search_extent,
strlen(p+search_extent)+1);
(void) memcpy(p,replace,replace_extent);
p+=replace_extent-1;
}
return(status);
}