/******************************************************************************

 *

 * Copyright (C) 1997-2004 by Dimitri van Heesch.

 *

 * Permission to use, copy, modify, and distribute this software and its

 * documentation under the terms of the GNU General Public License is hereby 

 * granted. No representations are made about the suitability of this software 

 * for any purpose. It is provided "as is" without express or implied warranty.

 * See the GNU General Public License for more details.

 *

 * Documents produced by Doxygen are derivative works derived from the

 * input used in their production; they are not affected by this license.

 *

 */

#include "qcstring.h"

#include "qgstring.h"

#include <qstring.h>

#include <stdlib.h>

#include <stdio.h>

#include <stdarg.h>

#include <ctype.h>

#include <qregexp.h>

#include <qdatastream.h>

QCString::QCString(int size)

{

  if (size>0)

  {

    m_data = (char *)malloc(size);

    if (m_data)

    {

      if (size>1) memset(m_data,' ',size-1);

      m_data[size-1]='\0';

    }

  }

  else

  {

    m_data=0;

  }

}

QCString::QCString( const QCString &s ) 

{ 

  duplicate(s);

}

QCString::QCString( const char *str )

{ 

  duplicate(str);

}

QCString::QCString( const char *str, uint maxlen )

{ 

  uint l;

  if (str && ( l = QMIN(qstrlen(str),maxlen) )) 

  { 

    m_data=(char *)malloc(l+1);

    strncpy(m_data,str,l+1);

    m_data[l]='\0';

  } 

  else

  {

    m_data=0;

  }

}

QCString::~QCString()

{

  if (m_data) free(m_data);

  m_data=0;

}

QCString &QCString::assign( const char *str )

{

  if (m_data) free(m_data);

  duplicate(str);

  return *this;

}

bool QCString::resize( uint newlen )

{

  if (newlen==0)

  {

    if (m_data) { free(m_data); m_data=0; }

    return TRUE;

  }

  if (m_data==0) // newlen>0

  {

    m_data = (char *)malloc(newlen);

  }

  else

  {

    m_data = (char *)realloc(m_data,newlen);

  }

  if (m_data==0) return FALSE;

  m_data[newlen-1]='\0';

  return TRUE;

}

bool QCString::fill( char c, int len )

{

  uint l=length();

  if (len<0) len=l;

  if ((uint)len!=l) 

  {

    if (m_data) free(m_data);

    if (len>0)

    {

      m_data=(char *)malloc(len+1);

      if (m_data==0) return FALSE;

      m_data[len]='\0';

    }

    else

    {

      m_data=0;

    }

  }

  if (len>0)

  {

    uint i;

    for (i=0;i<(uint)len;i++) m_data[i]=c;

  }

  return TRUE;

}

QCString &QCString::sprintf( const char *format, ... )

{

  va_list ap;

  va_start( ap, format );

  uint l = length();

  const uint minlen=256;

  if (l<minlen)

  {

    if (m_data) 

      m_data = (char *)realloc(m_data,minlen);

    else

      m_data = (char *)malloc(minlen);

  }

  vsprintf( m_data, format, ap );

  resize( qstrlen(m_data) + 1 );              // truncate

  va_end( ap );

  return *this;

}

int QCString::find( char c, int index, bool cs ) const

{

  uint len = length();

  if ( m_data==0 || (uint)index>len )               // index outside string

    return -1;

  register const char *d;

  if ( cs ) // case sensitive

  {  

    d = strchr( m_data+index, c );

  } 

  else 

  {

    d = m_data+index;

    c = tolower( (uchar) c );

    while ( *d && tolower((uchar) *d) != c )

      d++;

    if ( !*d && c )                         // not found

      d = 0;

  }

  return d ? (int)(d - m_data) : -1;

}

int QCString::find( const char *str, int index, bool cs ) const

{

  uint l = length();

  if ( m_data==0 || (uint)index > l )         // index outside string

    return -1;

  if ( !str )                                 // no search string

    return -1;

  if ( !*str )                                // zero-length search string

    return index;

  register const char *d;

  if ( cs )                                   // case sensitive

  {              

    d = strstr( m_data+index, str );

  } 

  else                                        // case insensitive

  {

    d = m_data+index;

    int len = qstrlen( str );

    while ( *d ) 

    {

      if ( qstrnicmp(d, str, len) == 0 )

        break;

      d++;

    }

    if ( !*d )                              // not found

      d = 0;

  }

  return d ? (int)(d - m_data) : -1;

}

int QCString::find( const QRegExp &rx, int index ) const

{

  QString d = QString::fromLatin1( m_data );

  return d.find( rx, index );

}

int QCString::findRev( char c, int index, bool cs) const

{

  const char *b = m_data;

  const char *d;

  uint len = length();

  if ( b == 0 ) return -1;  // empty string

  if ( index < 0 )          // neg index ==> start from end

  {

    if ( len == 0 ) return -1;

    if ( cs ) 

    {

      d = strrchr( b, c );

      return d ? (int)(d - b) : -1;

    }

    index = len;

  } 

  else if ( (uint)index > len )  // bad index

  {      

    return -1;

  }

  d = b+index;

  if ( cs )   // case sensitive

  {

    while ( d >= b && *d != c )

      d--;

  } 

  else  // case insensitive

  {

    c = tolower( (uchar) c );

    while ( d >= b && tolower((uchar) *d) != c )

      d--;

  }

  return d >= b ? (int)(d - b) : -1;

}

int QCString::findRev( const char *str, int index, bool cs) const

{

  int slen = qstrlen(str);

  uint len = length();

  if ( index < 0 )                           // neg index ==> start from end

    index = len-slen;

  else if ( (uint)index > len )              // bad index

    return -1;

  else if ( (uint)(index + slen) > len )     // str would be too long

    index = len - slen;

  if ( index < 0 )

    return -1;

  register char *d = m_data + index;

  if ( cs )                     // case sensitive 

  {      

    for ( int i=index; i>=0; i-- )

      if ( qstrncmp(d--,str,slen)==0 )

        return i;

  } 

  else                          // case insensitive

  {           

    for ( int i=index; i>=0; i-- )

      if ( qstrnicmp(d--,str,slen)==0 )

        return i;

  }

  return -1;

}

int QCString::findRev( const QRegExp &rx, int index ) const

{

  QString d = QString::fromLatin1( m_data );

  return d.findRev( rx, index );

}

int QCString::contains( char c, bool cs ) const

{

  int count = 0;

  char *d = m_data;

  if ( !d )

    return 0;                               

  if ( cs )                                // case sensitive

  {

    while ( *d )

      if ( *d++ == c )

        count++;                        

  } 

  else                                     // case insensitive

  {

    c = tolower( (uchar) c );

    while ( *d ) {

      if ( tolower((uchar) *d) == c )

        count++;

      d++;

    }

  }

  return count;

}

int QCString::contains( const char *str, bool cs ) const

{

  int count = 0;

  char *d = data();

  if ( !d )

    return 0;

  int len = qstrlen( str );

  while ( *d )   // counts overlapping strings

  {

    if ( cs ) 

    {

      if ( qstrncmp( d, str, len ) == 0 )

        count++;

    } 

    else 

    {

      if ( qstrnicmp(d, str, len) == 0 )

        count++;

    }

    d++;

  }

  return count;

}

int QCString::contains( const QRegExp &rx ) const

{ 

  QString d = QString::fromLatin1( m_data );

  return d.contains( rx );

}

QCString QCString::left( uint len )  const

{

  if ( isEmpty() ) 

  {

    return QCString();

  } 

  else if ( len >= length() ) 

  {

    return *this;

  } 

  else 

  {

    QCString s( len+1 );

    strncpy( s.data(), m_data, len );

    *(s.data()+len) = '\0';

    return s;

  }

}

QCString QCString::right( uint len ) const

{

  if ( isEmpty() ) 

  {

    return QCString();

  } 

  else 

  {

    uint l = length();

    if ( len > l ) len = l;

    char *p = m_data + (l - len); 

    return QCString( p ); 

  }       

}

QCString QCString::mid( uint index, uint len) const

{

  uint slen = length();

  if ( len == 0xffffffff ) len = slen-index;

  if ( isEmpty() || index >= slen ) 

  {

    return QCString();

  } 

  else 

  {

    register char *p = data()+index;

    QCString s( len+1 );

    strncpy( s.data(), p, len );

    *(s.data()+len) = '\0';

    return s;

  }

}

QCString QCString::lower() const

{

  QCString s( m_data );

  register char *p = s.data();

  if ( p ) 

  {

    while ( *p ) 

    {

      *p = tolower((uchar) *p);

      p++;

    }

  }

  return s;

}

QCString QCString::upper() const

{

  QCString s( m_data );

  register char *p = s.data();

  if ( p ) {

    while ( *p ) {

      *p = toupper((uchar)*p);

      p++;

    }

  }

  return s;

}

QCString QCString::stripWhiteSpace()	const

{

  if ( isEmpty() )                            // nothing to do

    return *this;

  register char *s = m_data;

  int reslen = length();

  if ( !isspace((uchar) s[0]) && !isspace((uchar) s[reslen-1]) )

    return *this;                           // returns a copy

  QCString result(s);

  s = result.data(); 

  int start = 0;

  int end = reslen - 1;

  while ( isspace((uchar) s[start]) )                 // skip white space from start

    start++; 

  if ( s[start] == '\0' ) 

  {                                                   // only white space

    return QCString();

  }

  while ( end && isspace((uchar) s[end]) )            // skip white space from end

    end--;

  end -= start - 1;

  memmove( result.data(), &s[start], end );

  result.resize( end + 1 );

  return result;

}

QCString QCString::simplifyWhiteSpace() const

{

  if ( isEmpty() )                            // nothing to do

    return *this;

  QCString result( length()+1 );

  char *from  = data();

  char *to    = result.data();

  char *first = to;

  while ( TRUE ) 

  {

    while ( *from && isspace((uchar) *from) )

      from++;

    while ( *from && !isspace((uchar)*from) )

      *to++ = *from++;

    if ( *from )

      *to++ = 0x20;                       // ' '

    else

      break;

  }

  if ( to > first && *(to-1) == 0x20 )

    to--;

  *to = '\0';

  result.resize( (int)((long)to - (long)result.data()) + 1 );

  return result;

}

QCString &QCString::insert( uint index, const char *s )

{   

  int len = s ? qstrlen(s) : 0;

  if ( len == 0 )

    return *this;

  uint olen = length();

  int nlen = olen + len;                      

  if ( index >= olen )  // insert after end of string

  {                     

    m_data = (char *)realloc(m_data,nlen+index-olen+1);

    if ( m_data ) 

    {

      memset( m_data+olen, ' ', index-olen );

      memcpy( m_data+index, s, len+1 );

    }

  } 

  else if ( (m_data = (char *)realloc(m_data,nlen+1)) )  // normal insert

  { 

    memmove( m_data+index+len, m_data+index, olen-index+1 );

    memcpy( m_data+index, s, len );

  }

  return *this;

}

QCString &QCString::insert( uint index, char c )        // insert char

{

  char buf[2];

  buf[0] = c;

  buf[1] = '\0';

  return insert( index, buf );

}

QCString& QCString::operator+=( const char *str )

{

  if ( !str ) return *this;  // nothing to append

  uint len1 = length();

  uint len2 = qstrlen(str);

  char *newData = (char *)realloc( m_data, len1 + len2 + 1 );

  if (newData)

  {

    m_data = newData;

    memcpy( m_data + len1, str, len2 + 1 );

  }

  return *this;      

}

QCString &QCString::operator+=( char c )

{

  uint len = length();

  char *newData = (char *)realloc( m_data, length()+2 );

  if (newData)

  {

    m_data = newData;

    m_data[len] = c;

    m_data[len+1] = '\0';

  }

  return *this;

}

QCString &QCString::remove( uint index, uint len )

{

  uint olen = length();

  if ( index + len >= olen ) // range problems