//####COPYRIGHTBEGIN####
//                                                                          
// ----------------------------------------------------------------------------
// Copyright (C) 1998, 1999, 2000 Red Hat, Inc.
//
// This program is part of the eCos host tools.
//
// This program is free software; you can redistribute it and/or modify it 
// under the terms of the GNU General Public License as published by the Free 
// Software Foundation; either version 2 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 General Public License for 
// more details.
// 
// You should have received a copy of the GNU 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.
//
// ----------------------------------------------------------------------------
//                                                                          
//####COPYRIGHTEND####

// include winsock2.h early to eliminate fd_set warning
#ifdef __CYGWIN__
#include <winsock2.h>
#endif

#include "Collections.h"

void String::Format (LPCTSTR  const pszFormat,...)
{
  va_list args;
  va_start(args, pszFormat);
  vFormat(pszFormat,args);
  va_end(args);
}

String String::SFormat (LPCTSTR  const pszFormat,...)
{
  String s;
  va_list args;
  va_start(args, pszFormat);
  s.vFormat(pszFormat,args);
  va_end(args);
  return s;
}

void String::vFormat(LPCTSTR  pszFormat, va_list marker)
{
  for(int nLength=100;nLength;) {
    TCHAR *buf=new TCHAR[1+nLength];
    int n=_vsntprintf(buf, nLength, pszFormat, marker ); 
    if(-1==n){
      nLength*=2;  // NT behavior
    } else if (n<nLength){
      string::operator=(buf);
      nLength=0;   // trigger exit from loop
    } else {
      nLength=n+1; // UNIX behavior generally, or NT behavior when buffer size exactly matches required length
    }
    delete [] buf;
  }
}

TCHAR * String::GetBuffer(unsigned int nLength)
{
  assert(NULL==m_pszBuf);
  nLength=MAX(nLength,size()); // to accommodate _tcscpy below
  m_pszBuf=new TCHAR[1+nLength];
  m_nBufferLength=nLength;
  _tcscpy(m_pszBuf,c_str());
  return m_pszBuf;
}

void String::ReleaseBuffer()
{
  assert(m_pszBuf);
  m_pszBuf[m_nBufferLength]=_TCHAR('\0'); // just in case the terminating null has been forgotten
  string::operator=(m_pszBuf);
  delete [] m_pszBuf;
  m_pszBuf=0;
}

String String::CStrToUnicodeStr(const char *psz)
{
  String str;
#ifdef _UNICODE
  int nLength=1+strlen(psz);
  MultiByteToWideChar(CP_ACP, 0, psz, -1, str.GetBuffer(nLength), nLength);
  str.ReleaseBuffer();
#else
  str=psz;
#endif
  return str;
}

int String::Chop(StringArray &ar,TCHAR cSep,bool bObserveStrings/*=TRUE*/) const
{
  assert('\0'!=cSep);
#define IsSep(c) (cSep==_TCHAR(' ')?_istspace(c):c==cSep)
  LPCTSTR c=c_str();
  ar.clear();
  while(*c){
    // Spaces are slightly different from other separators - we treat multiple instances as
    // just one (a la sscanf)
    if(_istspace(cSep)){
      while(IsSep(*c))c++;
    } else if (ar.size()>0) {
      c++;
    }
    if(*c){
      String strTok;
      if(bObserveStrings){
        bool bInString=false;
        do{
          if(*c==_TCHAR('\\') && c[1]){
            strTok+=c[1];
            c++;
          } else if(*c==_TCHAR('"')){
            bInString ^= 1;
          } else if (!bInString && IsSep(*c)) {
            break;
          } else {
            strTok+=*c;
          }
        } while (*++c);
      } else {
        do {
          if(IsSep(*c)) {
            break;
          } else {
            strTok+=*c;
          }
        } while (*++c);
      }
      ar.push_back(strTok);
    }
  }
  return ar.size();
}

char * String::GetCString() const
{
  char *psz=new char[1+size()];
#ifdef _UNICODE
  WideCharToMultiByte(CP_ACP, 0, c_str(), -1, psz, 1+size(), NULL, NULL);
#else
  strcpy(psz,c_str());
#endif
  return psz;
}

void String::Replace(LPCTSTR psz1, LPCTSTR psz2, bool bObserveEscapes)
{
  for(unsigned int nOffset=0;nOffset<size();){
    LPCTSTR psz=c_str()+nOffset;
    const TCHAR *pc=_tcsstr(psz,psz1);
    if(pc){
      if(bObserveEscapes && pc>psz && _TCHAR('\\')==pc[-1]){
        // Substitution protected by escape
        nOffset=(pc-psz)+_tcslen(psz1);
      } else {
        String strNew(psz,pc-psz); // before the substitution
        strNew+=psz2;              // substitution text
        pc+=_tcslen(psz1);         // past the substituted text
        strNew+=pc;                // after the substitution
        string::operator=(strNew);
        nOffset=(pc-psz)+_tcslen(psz2);
      }
    } else {
      break;
    }
  }
}