Subversion Repositories openrisc_2011-10-31

//####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####

//

//===========================================================================

//===========================================================================

//#####DESCRIPTIONBEGIN####

//

// Author(s):   sdf

// Contact(s):  sdf

// Date:                1998/08/11

// Version:             0.01

// Purpose:     

// Description: This is a collection of utility functions.

// Requires:    

// Provides:    

// See also:    

// Known bugs:  

// Usage:       

//

//####DESCRIPTIONEND####

//

//===========================================================================

#include "stdafx.h"

#include "CTUtils.h"

#include <float.h> // for DBL_DIG macro

#include <sys/types.h>

#include <sys/stat.h>

#define INCLUDEFILE <string>

#include "IncludeSTL.h"

// Chop str into pieces, using cSep as separator.

// " and \ have usual semantics

// Return value is array of pieces found.

int CUtils::Chop(LPCTSTR psz,CStringArray &ar,TCHAR cSep,bool bObserveStrings/*=false*/,bool bBackslashQuotes/*=false*/)

{

  if(_TCHAR(' ')==cSep){

    return Chop(psz,ar,_T("\t\n\v\f\r "),bObserveStrings,bBackslashQuotes);

  } else {

    ASSERT(_TCHAR('\0')!=cSep);

    TCHAR c[2]={cSep,_TCHAR('\0')};

    return Chop(psz,ar,c,bObserveStrings,bBackslashQuotes);

  }

}

int CUtils::Chop(LPCTSTR psz,CStringArray &ar,LPCTSTR pszSep,bool bObserveStrings/*=false*/,bool bBackslashQuotes/*=false*/)

{

        ar.RemoveAll();

        int i=0;

        for(;;){

                // Skip multiple separators

    while(*psz&&_tcschr(pszSep,*psz)){

      psz++;

    }

                if(!*psz){

                        return i;

                }

                CString strTok;

                if(bObserveStrings){

                        BOOL bInString=FALSE;

                        do{

                                if(*psz==_TCHAR('\\') && bBackslashQuotes && psz[1]){

                                        strTok+=psz[1];

                                        psz++;

                                } else if(*psz==_TCHAR('"')){

                                        bInString ^= 1;

                                } else if (!bInString && *psz && NULL!=_tcschr(pszSep,*psz)) {

                                        break;

                                } else {

                                        strTok+=*psz;

                                }

                        } while (*++psz);

                } else {

      LPCTSTR pszStart=psz;

                        do {

        psz++;

                        } while (*psz && !_tcschr(pszSep,*psz));

      strTok=CString(pszStart,psz-pszStart);

                }

                ar.SetAtGrow(i++,strTok);

        }

    return ar.GetSize();

}

// vararg-style message box formatter

int CUtils::MessageBoxF (LPCTSTR pszFormat, ...)

{

  int rc;

  va_list args;

  va_start(args, pszFormat);

  rc=CUtils::vMessageBox(MB_OK, pszFormat,args);

  va_end(args);

  return rc;

}

// As above, but with type as first parameter.

int CUtils::MessageBoxFT (UINT nType, LPCTSTR pszFormat, ...)

{

  int rc;

  va_list args;

  va_start(args, pszFormat);

  rc=CUtils::vMessageBox(nType, pszFormat,args);

  va_end(args);

  return rc;

}

int CUtils::vMessageBox(UINT nType, LPCTSTR  pszFormat, va_list marker)

{

  int rc=0;

  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){

      rc=AfxMessageBox(buf,nType);

      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;

  }

  return rc;

}

BOOL CUtils::StrToItemIntegerType(const CString & str,__int64 &d)

{

        extern int errno;

        PTCHAR pEnd;

        BOOL rc;

        errno=0;

        BOOL bHex=(str.GetLength()>2 && str[0]==_TCHAR('0') && (str[1]==_TCHAR('x')||str[1]==_TCHAR('X')));

        d=_tcstol(str,&pEnd,bHex?16:10);

        rc=(0==errno && (*pEnd==_TCHAR('\0')));

        return rc;

}

const CString CUtils::IntToStr(__int64 d,bool bHex)

{

  CString s;

  s.Format(bHex?_T("0x%08x"):_T("%d"),d);

  return s;

}

const CString CUtils::DoubleToStr (double dValue)

{

  CString s;

  s.Format (_T("%.*e"), DBL_DIG, dValue);

  return s;

}

BOOL CUtils::StrToDouble (const CString & strValue, double &dValue)

{

        extern int errno;

        PTCHAR pEnd;

        errno = 0;

        dValue = _tcstod (strValue, &pEnd);

        return (0 == errno) && (*pEnd == _TCHAR('\0'));

}

const CString CUtils::Explanation(CFileException & exc)

{

        CString strMsg;

        switch(exc.m_cause){

                case CFileException::none: strMsg=_T("No error occurred.");break;

                case CFileException::generic: strMsg=_T("   An unspecified error occurred.");break;

                case CFileException::fileNotFound: strMsg=_T("   The file could not be located.");break;

                case CFileException::badPath: strMsg=_T("   All or part of the path is invalid.");break;

                case CFileException::tooManyOpenFiles: strMsg=_T("   The permitted number of open files was exceeded.");break;

                case CFileException::accessDenied: strMsg=_T("   The file could not be accessed.");break;

                case CFileException::invalidFile: strMsg=_T("   There was an attempt to use an invalid file handle.");break;

                case CFileException::removeCurrentDir: strMsg=_T("   The current working directory cannot be removed.");break;

                case CFileException::directoryFull: strMsg=_T("   There are no more directory entries.");break;

                case CFileException::badSeek: strMsg=_T("   There was an error trying to set the file pointer.");break;

                case CFileException::hardIO: strMsg=_T("   There was a hardware error.");break;

                case CFileException::sharingViolation: strMsg=_T("   SHARE.EXE was not loaded, or a shared region was locked.");break;

                case CFileException::lockViolation: strMsg=_T("   There was an attempt to lock a region that was already locked.");break;

                case CFileException::diskFull: strMsg=_T("   The disk is full.");break;

                case CFileException::endOfFile: strMsg=_T("   The end of file was reached. ");break;

                default:

                        strMsg=_T(" Unknown cause");

                        break;

        }

        return strMsg;

}

const CString CUtils::LoadString(UINT id)

{

        CString str;

        str.LoadString(id);

        return str;

}

bool CUtils::AddToPath(const CFileName & strFolder, bool bAtFront)

{

        CString strPath,strOldPath;

        int nSize=GetEnvironmentVariable(_T("PATH"), NULL, 0);

        if(nSize>0){

    GetEnvironmentVariable(_T("PATH"),strOldPath.GetBuffer(1+nSize),nSize);

    strOldPath.ReleaseBuffer();

                // Place the user tools folders at the head or tail of the new path

                if(bAtFront){

                        strPath.Format(_T("%s;%s"),strFolder.ShortName(),strOldPath);

                } else {

                        strPath.Format(_T("%s;%s"),strOldPath,strFolder.ShortName());

                }

        } else {

                // unlikely, but ...

                strPath=strFolder;

        }

  return TRUE==::SetEnvironmentVariable(_T("PATH"),strPath);

}

CString CUtils::GetLastErrorMessageString()

{

        CString str;

        PTCHAR pszMsg;

        FormatMessage(

                FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM,

                NULL,

                GetLastError(),

                MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), // Default language

                (LPTSTR)&pszMsg,

                0,

                NULL

        );

        // Display the string.

        str=pszMsg;

  str.TrimRight();

        // Free the buffer.

        LocalFree(pszMsg);

        return str;

}

bool CUtils::Launch(const CFileName &strFileName, const CFileName &strViewer)

{

        bool rc=false;

        if(!strViewer.IsEmpty())//use custom editor

        {

                CString strCmdline(strViewer);

                PTCHAR pszCmdLine=strCmdline.GetBuffer(strCmdline.GetLength());

                GetShortPathName(pszCmdLine,pszCmdLine,strCmdline.GetLength());

                strCmdline.ReleaseBuffer();

                strCmdline+=_TCHAR(' ');

                strCmdline+=strFileName;

                PROCESS_INFORMATION pi;

                STARTUPINFO si;

                si.cb = sizeof(STARTUPINFO);

                si.lpReserved = NULL;

                si.lpReserved2 = NULL;

                si.cbReserved2 = 0;

                si.lpDesktop = NULL;

                si.dwFlags = 0;

                si.lpTitle=NULL;

                if(CreateProcess(

                        NULL, // app name

                        //strCmdline.GetBuffer(strCmdline.GetLength()),    // command line

                        strCmdline.GetBuffer(strCmdline.GetLength()),    // command line

                        NULL, // process security

                        NULL, // thread security

                        TRUE, // inherit handles

                        0,

                        NULL, // environment

                        NULL, // current dir

                        &si, // startup info

                        &pi)){

            CloseHandle(pi.hProcess);

            CloseHandle(pi.hThread);

                        rc=true;

                } else {

                        MessageBoxF(_T("Failed to invoke %s.\n"),strCmdline);

                }

                strCmdline.ReleaseBuffer();

        } else {// Use association

                TCHAR szExe[MAX_PATH];

                HINSTANCE h=FindExecutable(strFileName,_T("."),szExe);

                if(int(h)<=32){

                        CString str;

                        switch(int(h)){

                                case 0:  str=_T("The system is out of memory or resources.");break;

                                case 31: str=_T("There is no association for the specified file type.");break;

                                case ERROR_FILE_NOT_FOUND: str=_T("The specified file was not found.");break;

                                case ERROR_PATH_NOT_FOUND: str=_T("The specified path was not found.");break;

                                case ERROR_BAD_FORMAT:     str=_T("The .EXE file is invalid (non-Win32 .EXE or error in .EXE image).");break;

                                default: break;

                        }

                        MessageBoxF(_T("Failed to open document %s.\r\n%s"),strFileName,str);

                } else {

                        SHELLEXECUTEINFO sei = {sizeof(sei), 0, AfxGetMainWnd()->GetSafeHwnd(), _T("open"),

                                        strFileName, NULL, NULL, SW_SHOWNORMAL, AfxGetInstanceHandle( )};

                        sei.hInstApp=0;

                        HINSTANCE hInst=ShellExecute(AfxGetMainWnd()->GetSafeHwnd(),_T("open"), strFileName, NULL, _T("."), 0)/*ShellExecuteEx(&sei)*/;

                        if(int(hInst)<=32/*sei.hInstApp==0*/)

                        {

                                CString str;

                                switch(int(hInst))

                                {

                                        case 0 : str=_T("The operating system is out of memory or resources. ");break;

                                        case ERROR_FILE_NOT_FOUND : str=_T("The specified file was not found. ");break;

                                        case ERROR_PATH_NOT_FOUND : str=_T("The specified path was not found. ");break;

                                        case ERROR_BAD_FORMAT : str=_T("The .EXE file is invalid (non-Win32 .EXE or error in .EXE image). ");break;

                                        case SE_ERR_ACCESSDENIED : str=_T("The operating system denied access to the specified file. ");break;

                                        case SE_ERR_ASSOCINCOMPLETE : str=_T("The filename association is incomplete or invalid. ");break;

                                        case SE_ERR_DDEBUSY : str=_T("The DDE transaction could not be completed because other DDE transactions were being processed. ");break;

                                        case SE_ERR_DDEFAIL : str=_T("The DDE transaction failed. ");break;

                                        case SE_ERR_DDETIMEOUT : str=_T("The DDE transaction could not be completed because the request timed out. ");break;

                                        case SE_ERR_DLLNOTFOUND : str=_T("The specified dynamic-link library was not found. ");break;

                                        //case SE_ERR_FNF : str=_T("The specified file was not found. ");break;

                                        case SE_ERR_NOASSOC : str=_T("There is no application associated with the given filename extension. ");break;

                                        case SE_ERR_OOM : str=_T("There was not enough memory to complete the operation. ");break;

                                        //case SE_ERR_PNF : str=_T("The specified path was not found. ");break;

                                        case SE_ERR_SHARE : str=_T("A sharing violation occurred. ");break;

                                        default: str=_T("An unexpected error occurred");break;

                                }

                                MessageBoxF(_T("Failed to open document %s using %s.\r\n%s"),strFileName,szExe,str);

                        } else {

                                rc=true;

                        }

                }

        }

        return rc;

}

void CUtils::UnicodeToCStr(LPCTSTR str,char *&psz)

{

    int nLength=1+_tcslen(str);

    psz=new char[nLength];

    #ifdef _UNICODE

    WideCharToMultiByte(CP_ACP, 0, str, -1, psz, nLength, NULL, NULL);

    #else

    strcpy(psz,str);

    #endif

}

std::string CUtils::UnicodeToStdStr(LPCTSTR str)

{

    std::string stdstr;

    char *psz;

    UnicodeToCStr(str,psz);

    stdstr=std::string(psz);

    delete psz;

    return stdstr;

}

// CUtils::StripExtraWhitespace() returns a modified version of

// a string in which each sequence of whitespace characters is

// replaced by a single space

CString CUtils::StripExtraWhitespace (const CString & strInput)

{

  CString strOutput;

  LPTSTR o=strOutput.GetBuffer(1+strInput.GetLength());

  for(LPCTSTR c=strInput;*c;c++){

    if(_istspace(*c)){

      *o++=_TCHAR(' ');

      if (_istspace(c[1])){

        for(c=c+2;_istspace(*c);c++);

        c--;

      }

    } else {

      *o++=*c;

    }

  }

  *o=0;

  strOutput.ReleaseBuffer();

  strOutput.TrimLeft();

  strOutput.TrimRight();

  return strOutput;

}

CFileName CUtils::WPath(const std::string &str)

{

  // Convert a path as read from cdl into host format

  // Change / to \ throughout

  CFileName

    strPath(str.c_str());

  strPath.Replace (_TCHAR('/'), _TCHAR('\\'));

  return strPath;

}

// Copy file helper function.

// This makes sure the destination file is only touched as necessary.

// It is written using Posix calls lest it should be more broadly applicable.

bool CUtils::CopyFile(LPCTSTR pszSource,LPCTSTR pszDest)

{

  // Compare the files.  First set rc to the result of the comparison (true if the same)

  bool rc=false;

  struct _stat s1,s2;

  if(-1!=_tstat(pszSource,&s1) && -1!=_tstat(pszDest,&s2) && s1.st_size==s2.st_size){

    // Files both exist and are of equal size

    FILE *f1=_tfopen(pszSource,_T("rb"));

    if(f1){

      FILE *f2=_tfopen(pszDest,_T("rb"));

      if(f2){

        int nSize1,nSize2;

        rc=true;

        do{

          char buf1[4096],buf2[4096];

          nSize1=fread(buf1,1,sizeof buf1,f1);

          nSize2=fread(buf2,1,sizeof buf2,f2);

          if(nSize1!=nSize2 || 0!=memcmp(buf1,buf2,nSize1)){

            rc=false;

            break;

          }

        } while (nSize1>0);

        fclose(f2);

      }

      fclose(f1);

    }

  }

  if(rc){

    // Files are identical

    TRACE(_T("Copy not necessary: '%s' to '%s'\n"),pszSource,pszDest);

  } else {

    rc=TRUE==::CopyFile(pszSource,pszDest,FALSE);

    if(rc){

      TRACE(_T("Copied '%s' to '%s'\n"),pszSource,pszDest);

    } else {

      MessageBoxF(_T("Failed to copy '%s' to '%s' - %s"),pszSource,pszDest,GetLastErrorMessageString());

    }

  }

  return rc;

}