#ifdef _WIN32

//#define UNICODE  // per le funzioni di conversione da/a UNC

#include <windows.h></windows.h>

#include <lm.h></lm.h>

const char slash     = '\\';

const char auxslash  = '/';

const char wslash    = L'\\';

const char wauxslash = L'/';

#else

const char slash     = '/';

const char auxslash  = '\\';

const char wslash    = '/';

const char wauxslash = '\\';

#endif

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

#include "tfilepath.h"

#include "tconvert.h"

#include <cmath></cmath>

#include <cctype></cctype>

#include <sstream></sstream>

// QT

#include <qobject></qobject>

bool TFilePath::m_underscoreFormatAllowed = true;

namespace {

/*-- fromSeg位置 と

 * toSeg位置は含まず、それらの間に挟まれている文字列が「数字4ケタ」ならtrueを返す

 * --*/

bool isNumbers(std::wstring str, int fromSeg, int toSeg) {

  if (toSeg - fromSeg != 5) return false;

  for (int pos = fromSeg + 1; pos < toSeg; pos++) {

    if (str[pos] < '0' || str[pos] > '9') return false;

  }

  return true;

}

};

// TFrameId::operator string() const

std::string TFrameId::expand(FrameFormat format) const {

  if (m_frame == EMPTY_FRAME)

    return "";

  else if (m_frame == NO_FRAME)

    return "-";

  std::ostringstream o_buff;

  if (format == FOUR_ZEROS || format == UNDERSCORE_FOUR_ZEROS) {

    o_buff.fill('0');

    o_buff.width(4);

    o_buff << m_frame;

    o_buff.width(0);

  } else {

    o_buff << m_frame;

  }

  if (m_letter != '\0') o_buff << m_letter;

  return o_buff.str();

}

//-------------------------------------------------------------------

const TFrameId &TFrameId::operator++() {

  ++m_frame;

  m_letter = 0;

  return *this;

}

//-------------------------------------------------------------------

const TFrameId &TFrameId::operator--() {

  if (m_letter > 0)

    m_letter = 0;

  else

    --m_frame;

  return *this;

}

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

inline bool isSlash(char c) { return c == slash || c == auxslash; }

//-----------------------------------------------------------------------------

inline bool isSlash(wchar_t c) { return c == wslash || c == wauxslash; }

//-----------------------------------------------------------------------------

// cerca l'ultimo '/' o '\'. Se non c'e' ritorna -1

// di modo che la sottostringa che parte da getLastSlash() + 1 e'

// nome.frame.tipo

inline int getLastSlash(const std::wstring &path) {

  int i;

  for (i = path.length() - 1; i >= 0 && !isSlash(path[i]); i--) {

  }

  return i;

}

//-----------------------------------------------------------------------------

/*

void TFilePath::setPath(string path)

{

bool isUncName = false;

  // elimino i '//', './' e '/' finali; raddrizzo gli slash 'storti'.

  // se il path comincia con  "<alpha>:" aggiungo uno slash</alpha>

  int length =path.length();

  int pos = 0;

  if(path.length()>=2 && isalpha(path[0]) && path[1] == ':')

    {

     m_path.append(path,0,2);

     pos=2;

     if(path.length()==2 || !isSlash(path[pos])) m_path.append(1,slash);

    }

#ifdef _WIN32

  else  //se si tratta di un path in formato UNC e' del tipo "\\\\MachineName"

        //RICONTROLLARE! SE SI HA IP ADDRESS FALLIVA!

    if (path.length() >= 3 && path[0] == '\\' &&  path[1] == '\\' &&

(isalpha(path[2]) || isdigit(path[2])) )

      {

      isUncName = true;

      m_path.append(path,0,3);

      pos = 3;

      }

#endif

  for(;pos

    if(path[pos] == '.')

    {

      pos++;

      if(pos>=length)

      {

        if(pos>1) m_path.append(1,'.');

      }

      else if(!isSlash(path[pos])) m_path.append(path,pos-1,2);

      else {

         while(pos+1

           pos++;

      }

    }

    else if(isSlash(path[pos]))

    {

      do pos++;

      while(pos

      pos--;

      m_path.append(1,slash);

    }

    else

    {

      m_path.append(1,path[pos]);

    }

    // rimuovo l'eventuale '/' finale (a meno che m_path == "/" o m_path ==

"<letter>:\"</letter>

    // oppure sia UNC (Windows only) )

    if(!(m_path.length()==1 && m_path[0] == slash ||

         m_path.length()==3 && isalpha(m_path[0]) && m_path[1] == ':' &&

m_path[2] == slash)

      && m_path.length()>1 && m_path[m_path.length()-1] == slash)

      m_path.erase(m_path.length()-1, 1);

  if (isUncName && m_path.find_last_of('\\') == 1) // e' indicato solo il nome

della macchina...

    m_path.append(1, slash);

}

*/

//-----------------------------------------------------------------------------

/*

void append(string &out, wchar_t c)

{

  if(32 <= c && c<=127 && c!='&') out.append(1, (char)c);

  else if(c=='&') out.append("&");

  else

    {

     ostringstream ss;

     ss << "&#" <<  c << ";" << '\0';

     out += ss.str();

     ss.freeze(0);

    }

}

*/

//-----------------------------------------------------------------------------

void TFilePath::setPath(std::wstring path) {

  bool isUncName = false;

  // elimino i '//', './' e '/' finali; raddrizzo gli slash 'storti'.

  // se il path comincia con  "<alpha>:" aggiungo uno slash</alpha>

  int length = path.length();

  int pos    = 0;

  if (path.length() >= 2 && iswalpha(path[0]) && path[1] == L':') {

    m_path.append(1, (wchar_t)path[0]);

    m_path.append(1, L':');

    // m_path.append(path,0,2);

    pos = 2;

    if (path.length() == 2 || !isSlash(path[pos])) m_path.append(1, wslash);

  }

  // se si tratta di un path in formato UNC e' del tipo "\\\\MachineName"

  else if (path.length() >= 3 && path[0] == L'\\' && path[1] == L'\\' &&

               iswalnum(path[2]) ||

           path.length() >= 3 && path[0] == L'/' && path[1] == L'/' &&

               iswalnum(path[2])) {

    isUncName = true;

    m_path.append(2, L'\\');

    m_path.append(1, path[2]);

    pos = 3;

  }

  for (; pos < length; pos++)

    if (path[pos] == L'.') {

      pos++;

      if (pos >= length) {

        if (pos > 1) m_path.append(1, L'.');

      } else if (!isSlash(path[pos])) {

        m_path.append(1, L'.');

        m_path.append(1, path[pos]);

      } else {

        while (pos + 1 < length && isSlash(path[pos + 1])) pos++;

      }

    } else if (isSlash(path[pos])) {

      int firstSlashPos = pos;

      do

        pos++;

      while (pos < length && isSlash(path[pos]));

      if (firstSlashPos == 0 && pos == 4)  // Caso "\\\\MachineName"

        m_path.append(2, wslash);

      else

        m_path.append(1, wslash);

      pos--;

    } else {

      m_path.append(1, path[pos]);

    }

  // rimuovo l'eventuale '/' finale (a meno che m_path == "/" o m_path ==

  // "<letter>:\"</letter>

  // oppure sia UNC (Windows only) )

  if (!(m_path.length() == 1 && m_path[0] == wslash ||

        m_path.length() == 3 && iswalpha(m_path[0]) && m_path[1] == L':' &&

            m_path[2] == wslash) &&

      m_path.length() > 1 && m_path[m_path.length() - 1] == wslash)

    m_path.erase(m_path.length() - 1, 1);

  if (isUncName &&

      !(m_path.find_last_of(L'\\') > 1 ||

        m_path.find_last_of(L'/') >

            1))  // e' indicato solo il nome della macchina...

    m_path.append(1, wslash);

}

//-----------------------------------------------------------------------------

TFilePath::TFilePath(const char *path) { setPath(::to_wstring(path)); }

//-----------------------------------------------------------------------------

TFilePath::TFilePath(const std::string &path) { setPath(::to_wstring(path)); }

//-----------------------------------------------------------------------------

TFilePath::TFilePath(const std::wstring &path) { setPath(path); }

//-----------------------------------------------------------------------------

TFilePath::TFilePath(const QString &path) { setPath(path.toStdWString()); }

//-----------------------------------------------------------------------------

bool TFilePath::operator==(const TFilePath &fp) const {

#ifdef _WIN32

  return _wcsicmp(m_path.c_str(), fp.m_path.c_str()) == 0;

#else

  return m_path == fp.m_path;

#endif

}

//-----------------------------------------------------------------------------

bool TFilePath::operator<(const TFilePath &fp) const {

  std::wstring iName = m_path;

  std::wstring jName = fp.m_path;

  int i1 = 0, j1 = 0;

  int i2 = m_path.find(L"\\");

  int j2 = fp.m_path.find(L"\\");

  if (i2 == j2 && j2 == -1)

#ifdef _WIN32

    return _wcsicmp(m_path.c_str(), fp.m_path.c_str()) < 0;

#else

    return m_path < fp.m_path;

#endif

  if (!i2) {

    ++i1;

    i2 = m_path.find(L"\\", i1);

  }

  if (!j2) {

    ++j1;

    j2 = fp.m_path.find(L"\\", j1);

  }

  while (i2 != -1 || j2 != -1) {

    iName = (i2 != -1) ? m_path.substr(i1, i2 - i1) : m_path;

    jName = (j2 != -1) ? fp.m_path.substr(j1, j2 - j1) : fp.m_path;

// se le due parti di path, conpresi tra slash sono uguali

// itero il processo di confronto altrimenti ritorno

#ifdef _WIN32

    char differ;

    differ = _wcsicmp(iName.c_str(), jName.c_str());

    if (differ != 0) return differ < 0 ? true : false;

#else

    if (TFilePath(iName) != TFilePath(jName))

      return TFilePath(iName) < TFilePath(jName);

#endif

    i1 = (i2 != -1) ? i2 + 1 : m_path.size();

    j1 = (j2 != -1) ? j2 + 1 : fp.m_path.size();

    i2 = m_path.find(L"\\", i1);

    j2 = fp.m_path.find(L"\\", j1);

  }

  iName = m_path.substr(i1, m_path.size() - i1);

  jName = fp.m_path.substr(j1, fp.m_path.size() - j1);

#ifdef _WIN32

  return _wcsicmp(iName.c_str(), jName.c_str()) < 0;

#else

  return TFilePath(iName) < TFilePath(jName);

#endif

}

#ifdef LEVO

bool TFilePath::operator<(const TFilePath &fp) const {

  /*

wstring a = m_path, b = fp.m_path;

for(;;)

{

wstring ka,kb;

int i;

i = a.find_first_of("/\\");

if(i==wstring::npos) {ka = a; a = L"";}

i = b.find_first_of("/\\");

if(i==wstring::npos) {ka = a; a = L"";}

}

*/

  wstring a = toLower(m_path), b = toLower(fp.m_path);

  return a < b;

}

#endif

//-----------------------------------------------------------------------------

TFilePath &TFilePath::operator+=(const TFilePath &fp) {

  assert(!fp.isAbsolute());

  if (fp.isEmpty())

    return *this;

  else if (isEmpty()) {

    *this = fp;

    return *this;

  } else if (m_path.length() != 1 || m_path[0] != slash) {

    assert(!m_path.empty());

    if (!isSlash(m_path[m_path.length() - 1])) m_path.append(1, wslash);

    m_path += fp.m_path;

    return *this;

  } else {

    *this = TFilePath(m_path + fp.m_path);

    return *this;

  }

}

//-----------------------------------------------------------------------------

TFilePath TFilePath::operator+(const TFilePath &fp) const {

  TFilePath ret(*this);

  ret += fp;

  return ret;

}

//-----------------------------------------------------------------------------

TFilePath &TFilePath::operator+=(const std::wstring &s) {

  if (s.empty()) return *this;

  // if(m_path.length()!=1 || m_path[0] != slash)

  //  m_path += slash;

  if (m_path.length() > 0 && !isSlash(m_path[m_path.length() - 1]))

    m_path.append(1, wslash);

  m_path += s;

  return *this;

}

//-----------------------------------------------------------------------------

const std::wstring TFilePath::getWideString() const {

  return m_path;

  /*

std::wstring s;

int n = m_path.size();

for(int i=0;i

{

char c = m_path[i];

if(c!='&') s.append(1, (unsigned short)c);

else

 {

  i++;

  if(m_path[i] == '#')

    {

     unsigned short w = 0;

     i++;

     while(i

       {

        c = m_path[i];

        if('0'<=c && c<='9')

          w = w*10 + c - '0';

        else if('a' <=c && c<='f')

          w = w*10 + c - 'a' + 10;

        else if('A' <=c && c<='F')

          w = w*10 + c - 'A' + 10;

        else

          break;

        i++;

       }

     s.append(1, w);

    }

 }

}

return s;

*/

}

/*

#else

const wstring TFilePath::getWideString() const

{

   wstring a(L"dummy string");

   return a;

}

#endif

*/

//-----------------------------------------------------------------------------

QString TFilePath::getQString() const {

  return QString::fromStdWString(getWideString());

}

//-----------------------------------------------------------------------------

std::ostream &operator<<(std::ostream &out, const TFilePath &path) {

  std::wstring w = path.getWideString();

  return out << ::to_string(w) << " ";

  //  string w = path.getString();

  //  return out << w << " ";

}

//-----------------------------------------------------------------------------

/*

TFilePath TFilePath::operator+ (const TFilePath &fp) const

{

assert(!fp.isAbsolute());

if(fp.isEmpty()) return *this;

else if(isEmpty()) return fp;

else if(m_path.length()!=1 || m_path[0] != slash)

  return TFilePath(m_path + slash + fp.m_path);

else

  return TFilePath(m_path + fp.m_path);

}

*/

//-----------------------------------------------------------------------------

bool TFilePath::isAbsolute() const {

  return m_path.length() >= 1 && m_path[0] == slash ||

         m_path.length() >= 2 && iswalpha(m_path[0]) && m_path[1] == ':';

}

//-----------------------------------------------------------------------------

bool TFilePath::isRoot() const {

  return m_path.length() == 1 && m_path[0] == slash ||

         m_path.length() == 3 && iswalpha(m_path[0]) && m_path[1] == ':' &&

             m_path[2] == slash ||

         m_path.length() > 2 && m_path[0] == slash && m_path[1] == slash &&

             (std::string::npos == m_path.find(slash, 2) ||

              m_path.find(slash, 2) == m_path.size() - 1);

}

//-----------------------------------------------------------------------------

// ritorna ""(niente tipo, niente punto), "." (file con tipo) o ".." (file con

// tipo e frame)

std::string TFilePath::getDots() const {

  if (isFfmpegType()) return ".";

  int i            = getLastSlash(m_path);

  std::wstring str = m_path.substr(i + 1);

  // potrei anche avere a.b.c.d dove d e' l'estensione

  i = str.rfind(L".");

  if (i == (int)std::wstring::npos || str == L"..") return "";

  if (str.substr(0, i).rfind(L".") != std::wstring::npos)

    return "..";

  else if (m_underscoreFormatAllowed) {

    int j = str.substr(0, i).rfind(L"_");

    /*-- j == i-1は、フレーム番号を抜いて"A_.tga"のような場合の条件 --*/

    return (j != (int)std::wstring::npos &&

            (j == i - 1 || isNumbers(str, j, i)))

               ? ".."

               : ".";

  } else

    return ".";

}

//-----------------------------------------------------------------------------

std::string TFilePath::getDottedType()

    const  // ritorna l'estensione con PUNTO (se c'e')

{

  int i            = getLastSlash(m_path);

  std::wstring str = m_path.substr(i + 1);

  i                = str.rfind(L".");

  if (i == (int)std::wstring::npos) return "";

  return toLower(::to_string(str.substr(i)));

}

//-----------------------------------------------------------------------------

std::string TFilePath::getUndottedType()

    const  // ritorna l'estensione senza PUNTO

{

  size_t i         = getLastSlash(m_path);

  std::wstring str = m_path.substr(i + 1);

  i                = str.rfind(L".");

  if (i == std::wstring::npos || i == str.length() - 1) return "";

  return toLower(::to_string(str.substr(i + 1)));

}

//-----------------------------------------------------------------------------

std::wstring TFilePath::getWideName() const  // noDot! noSlash!

{

  int i            = getLastSlash(m_path);  // cerco l'ultimo slash

  std::wstring str = m_path.substr(i + 1);

  i                = str.rfind(L".");

  if (i == (int)std::wstring::npos) return str;

  int j = str.substr(0, i).rfind(L".");

  if (j != (int)std::wstring::npos)

    i = j;

  else if (m_underscoreFormatAllowed) {

    j = str.substr(0, i).rfind(L"_");

    if (j != (int)std::wstring::npos && isNumbers(str, j, i)) i = j;

  }

  return str.substr(0, i);

}

//-----------------------------------------------------------------------------

std::string TFilePath::getName() const  // noDot! noSlash!

{

  return ::to_string(getWideName());

}

//-----------------------------------------------------------------------------

// es. TFilePath("/pippo/pluto.0001.gif").getLevelName() == "pluto..gif"

std::string TFilePath::getLevelName() const {

  return ::to_string(getLevelNameW());

}

//-----------------------------------------------------------------------------

// es. TFilePath("/pippo/pluto.0001.gif").getLevelName() == "pluto..gif"

std::wstring TFilePath::getLevelNameW() const {

  int i            = getLastSlash(m_path);  // cerco l'ultimo slash

  std::wstring str = m_path.substr(i + 1);  // str e' m_path senza directory

  if (isFfmpegType()) return str;

  int j = str.rfind(L".");                       // str[j..] = ".type"

  if (j == (int)std::wstring::npos) return str;  // no frame; no type

  i = str.substr(0, j).rfind(L'.');

  if (i == (int)std::wstring::npos && m_underscoreFormatAllowed)

    i = str.substr(0, j).rfind(L'_');

  if (j == i || j - i == 1)  // prova.tif o prova..tif

    return str;

  if (!isNumbers(str, i, j)) return str;

  // prova.0001.tif

  return str.erase(i + 1, j - i - 1);

}

//-----------------------------------------------------------------------------

TFilePath TFilePath::getParentDir() const  // noSlash!

{

  int i = getLastSlash(m_path);  // cerco l'ultimo slash

  if (i < 0) {

    if (m_path.length() >= 2 && ('a' <= m_path[0] && m_path[0] <= 'z' ||

                                 'A' <= m_path[0] && m_path[0] <= 'Z') &&

        m_path[1] == ':')

      return TFilePath(m_path.substr(0, 2));

    else

      return TFilePath("");

  } else if (i == 0)

    return TFilePath("/");

  else

    return TFilePath(m_path.substr(0, i));

}

//-----------------------------------------------------------------------------

bool TFilePath::isLevelName() const {

  if (isFfmpegType()) return false;

  try {

    return getFrame() == TFrameId(TFrameId::EMPTY_FRAME);

  }

  catch (...) {

    return false;

  }

}

TFrameId TFilePath::getFrame() const {

  int i            = getLastSlash(m_path);  // cerco l'ultimo slash

  std::wstring str = m_path.substr(i + 1);  // str e' il path senza parentdir

  i                = str.rfind(L'.');

  if (i == (int)std::wstring::npos || str == L"." || str == L"..")

    return TFrameId(TFrameId::NO_FRAME);

  int j;

  j = str.substr(0, i).rfind(L'.');

  if (j == (int)std::wstring::npos && m_underscoreFormatAllowed)

    j = str.substr(0, i).rfind(L'_');

  if (j == (int)std::wstring::npos) return TFrameId(TFrameId::NO_FRAME);

  if (i == j + 1) return TFrameId(TFrameId::EMPTY_FRAME);

  /*-- 間が数字でない場合（ファイル名にまぎれた"_" や "."がある場合）を除外する

   * --*/

  if (!isNumbers(str, j, i)) return TFrameId(TFrameId::NO_FRAME);

  int k, number = 0;

  for (k = j + 1; k < i && iswdigit(str[k]); k++)

    number                     = number * 10 + str[k] - L'0';

  char letter                  = '\0';

  if (iswalpha(str[k])) letter = str[k++] + ('a' - L'a');

  if (number == 0 || k < i)  // || letter!='\0')

    throw TMalformedFrameException(

        *this,

        str + L": " + QObject::tr("Malformed frame name").toStdWString());

  return TFrameId(number, letter);

}

//-----------------------------------------------------------------------------

bool TFilePath::isFfmpegType() const {

  QString type = QString::fromStdString(getType()).toLower();

  if (type == "gif" || type == "mp4" || type == "webm")

    return true;

  else

    return false;

}

//-----------------------------------------------------------------------------

TFilePath TFilePath::withType(const std::string &type) const {

  assert(type.length() < 2 || type.substr(0, 2) != "..");

  int i            = getLastSlash(m_path);  // cerco l'ultimo slash

  std::wstring str = m_path.substr(i + 1);  // str e' il path senza parentdir

  int j            = str.rfind(L'.');

  if (j == (int)std::wstring::npos || str == L"..")

  // il path originale non ha tipo

  {

    if (type == "")

      return *this;

    else if (type[0] == '.')

      return TFilePath(m_path + ::to_wstring(type));

    else

      return TFilePath(m_path + ::to_wstring("." + type));

  } else

  // il path originale ha gia' il tipo

  {

    if (type == "")

      return TFilePath(m_path.substr(0, i + j + 1));

    else if (type[0] == '.')

      return TFilePath(m_path.substr(0, i + j + 1) + ::to_wstring(type));

    else

      return TFilePath(m_path.substr(0, i + j + 2) + ::to_wstring(type));

  }

}

//-----------------------------------------------------------------------------

TFilePath TFilePath::withName(const std::string &name) const {

  return withName(::to_wstring(name));

}

//-----------------------------------------------------------------------------

TFilePath TFilePath::withName(const std::wstring &name) const {

  int i            = getLastSlash(m_path);  // cerco l'ultimo slash

  std::wstring str = m_path.substr(i + 1);  // str e' il path senza parentdir

  int j;

  j = str.rfind(L'.');

  if (j == (int)std::wstring::npos) {

    if (m_underscoreFormatAllowed) {

      j = str.rfind(L'_');

      if (j != (int)std::wstring::npos)

        return TFilePath(m_path.substr(0, i + 1) + name + str.substr(j));

    }

    return TFilePath(m_path.substr(0, i + 1) + name);

  }

  int k;

  k = str.substr(0, j).rfind(L".");

  if (k == (int)std::wstring::npos && m_underscoreFormatAllowed)

    k = str.substr(0, j).rfind(L"_");

  if (k == (int)(std::wstring::npos))

    k = j;

  else if (k != j - 1 && !isNumbers(str, k, j))

    k = j;

  return TFilePath(m_path.substr(0, i + 1) + name + str.substr(k));

}

//-----------------------------------------------------------------------------

TFilePath TFilePath::withParentDir(const TFilePath &dir) const {

  int i = getLastSlash(m_path);  // cerco l'ultimo slash

  return dir + TFilePath(m_path.substr(i + 1));

}

//-----------------------------------------------------------------------------

TFilePath TFilePath::withFrame(const TFrameId &frame,

                               TFrameId::FrameFormat format) const {

  const std::wstring dot = L".", dotDot = L"..";

  int i            = getLastSlash(m_path);  // cerco l'ultimo slash

  std::wstring str = m_path.substr(i + 1);  // str e' il path senza parentdir

  assert(str != dot && str != dotDot);

  int j          = str.rfind(L'.');

  const char *ch = ".";

  if (m_underscoreFormatAllowed && (format == TFrameId::UNDERSCORE_FOUR_ZEROS ||

                                    format == TFrameId::UNDERSCORE_NO_PAD))

    ch = "_";

  if (j == (int)std::wstring::npos) {

    if (frame.isEmptyFrame() || frame.isNoFrame())

      return *this;

    else

      return TFilePath(m_path + ::to_wstring(ch + frame.expand(format)));

  }

  std::string frameString;

  if (frame.isNoFrame())

    frameString = "";

  else

    frameString = ch + frame.expand(format);

  int k = str.substr(0, j).rfind(L'.');

  if (k != (int)std::wstring::npos)

    return TFilePath(m_path.substr(0, k + i + 1) + ::to_wstring(frameString) +

                     str.substr(j));

  else if (m_underscoreFormatAllowed) {

    k = str.substr(0, j).rfind(L'_');

    if (k != (int)std::wstring::npos &&

        (k == j - 1 ||

         isNumbers(str, k, j))) /*-- "_." の並びか、"_[数字]."の並びのとき --*/

      return TFilePath(m_path.substr(0, k + i + 1) +

                       ((frame.isNoFrame())

                            ? L""

                            : ::to_wstring("_" + frame.expand(format))) +

                       str.substr(j));

  }

  return TFilePath(m_path.substr(0, j + i + 1) + ::to_wstring(frameString) +

                   str.substr(j));

}

//-----------------------------------------------------------------------------

bool TFilePath::isAncestorOf(const TFilePath &possibleDescendent) const {

  size_t len = m_path.length();

  if (len == 0) {

    // il punto e' antenato di tutti i path non assoluti

    return !possibleDescendent.isAbsolute();

  }

  // un path e' antenato di se stesso

  if (m_path == possibleDescendent.m_path) return true;

  int possibleDescendentLen = possibleDescendent.m_path.length();

  // altrimenti l'antenato deve essere piu' corto

  if ((int)len >= possibleDescendentLen) return false;

  // e deve coincidere con la prima parte del discendente

  if (toLower(m_path) != toLower(possibleDescendent.m_path.substr(0, len)))

    return false;

  // se l'antenato non finisce con slash ci deve essere uno slash nel

  // discendente, subito dopo

  if (m_path[len - 1] != wslash && possibleDescendent.m_path[len] != wslash)

    return false;

  return true;

}

//-----------------------------------------------------------------------------

TFilePath TFilePath::operator-(const TFilePath &fp) const {

  if (toLower(m_path) == toLower(fp.m_path)) return TFilePath("");

  if (!fp.isAncestorOf(*this)) return *this;

  int len = fp.m_path.length();

  if (len == 0 || fp.m_path[len - 1] != wslash) len++;

  return TFilePath(m_path.substr(len));

}

//-----------------------------------------------------------------------------

bool TFilePath::match(const TFilePath &fp) const {

  return getParentDir() == fp.getParentDir() && getName() == fp.getName() &&

         getFrame() == fp.getFrame() && getType() == fp.getType();

}

//-----------------------------------------------------------------------------

void TFilePath::split(std::wstring &head, TFilePath &tail) const {

  TFilePath ancestor = getParentDir();

  if (ancestor == TFilePath()) {

    head = getWideString();

    tail = TFilePath();

    return;

  }

  for (;;) {

    if (ancestor.isRoot()) break;

    TFilePath p = ancestor.getParentDir();

    if (p == TFilePath()) break;

    ancestor = p;

  }

  head = ancestor.getWideString();

  tail = *this - ancestor;

}