Changeset 594 for CMT


Ignore:
Timestamp:
Dec 2, 2011, 9:39:03 AM (12 years ago)
Author:
rybkin
Message:

See C.L. 471

Location:
CMT/HEAD
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • CMT/HEAD/ChangeLog

    r593 r594  
     12011-12-02    <rybkin@lal.in2p3.fr> 471
     2
     3        * source/cmt_system.cxx: In class CmtSystem functions, add cmt name into
     4        system functions error messages, rename helper function to get_absolute_path
     5       
    162011-12-01    <rybkin@lal.in2p3.fr> 470
    27

  • CMT/HEAD/source/cmt_system.cxx

    r592 r594  
    5858  if (NULL == ::getcwd (dir, sizeof (dir)))
    5959    {
    60       perror ("getcwd failure");
     60      perror ("cmt: getcwd failure");
    6161      return NULL;
    6262    }
    … …  
    9191      if (NULL == ::getcwd (buffer, sizeof (buffer)))
    9292        {
    93           perror ("getcwd failure");
     93          perror ("cmt: getcwd failure");
    9494          static const cmt_string empty;
    9595          return empty;
    … …  
    101101  const char* t = &buffer[0];
    102102  return ((cmt_string) t);
     103}
     104
     105//--------------------------------------------------
     106static cmt_string get_absolute_path (const cmt_string& name)
     107{
     108  cmt_string path;
     109  if (CmtSystem::absolute_path (name))
     110    {
     111      path = name;
     112    }
     113  else
     114    {
     115      char buffer[PATH_MAX];
     116      if (NULL == ::getcwd (buffer, sizeof (buffer)))
     117        {
     118          perror ("cmt: getcwd failure");
     119          path = name;
     120        }
     121      else
     122        {
     123          path += buffer;
     124          path += CmtSystem::file_separator ();
     125          path += name;
     126        }
     127    }
     128  CmtSystem::compress_path (path);
     129  return path;
    103130}
    104131
    … …  
    140167#endif
    141168          )
    142         perror ("chdir failure: " + s_dir);
     169        perror ("cmt: chdir failure: " + get_absolute_path (s_dir));
    143170      return (false);
    144171    }
    … …  
    297324
    298325//--------------------------------------------------
    299 static cmt_string get_full_path (const cmt_string& name)
    300 {
    301   cmt_string path;
    302   if (CmtSystem::absolute_path (name)) return name;
    303   else
    304     {
    305       char buffer[PATH_MAX];
    306       if (NULL == ::getcwd (buffer, sizeof (buffer)))
    307         {
    308           perror ("getcwd failure");
    309           path = name;
    310         }
    311       else
    312         {
    313           path += buffer;
    314           path += CmtSystem::file_separator ();
    315           path += name;
    316         }
    317     }
    318   return path;
    319 }
    320 
    321 //--------------------------------------------------
    322326bool CmtSystem::realpath_ (const cmt_string& path, cmt_string& result)
    323327{
    … …  
    332336      if (NULL == ::getcwd (buffer, sizeof (buffer)))
    333337        {
    334           perror ("getcwd failure: " + get_full_path (path));
     338          perror ("cmt: getcwd failure: " + get_absolute_path (path));
    335339          return false;
    336340        }
    … …  
    420424      if (errno != ENOENT)
    421425        {
    422           perror ("stat failure: " + get_full_path (name));
    423           CmtError::set (CmtError::file_access_error, get_full_path (name));
     426          perror ("cmt: stat failure: " + get_absolute_path (name));
     427          CmtError::set (CmtError::file_access_error, get_absolute_path (name));
    424428        }
    425429      return (false);
    … …  
    450454      if (errno != ENOENT)
    451455        {
    452           perror ("stat failure: " + get_full_path (name));
    453           CmtError::set (CmtError::file_access_error, get_full_path (name));
     456          perror ("cmt: stat failure: " + get_absolute_path (name));
     457          CmtError::set (CmtError::file_access_error, get_absolute_path (name));
    454458        }
    455459      return (false);
    … …  
    478482      if (errno != ENOENT)
    479483        {
    480           perror ("stat failure: " + get_full_path (name1));
    481           CmtError::set (CmtError::file_access_error, get_full_path (name1));
     484          perror ("cmt: stat failure: " + get_absolute_path (name1));
     485          CmtError::set (CmtError::file_access_error, get_absolute_path (name1));
    482486        }
    483487      return (false);
    … …  
    497501      if (errno != ENOENT)
    498502        {
    499           perror ("stat failure: " + get_full_path (name2));
    500           CmtError::set (CmtError::file_access_error, get_full_path (name2));
     503          perror ("cmt: stat failure: " + get_absolute_path (name2));
     504          CmtError::set (CmtError::file_access_error, get_absolute_path (name2));
    501505        }
    502506      return (false);
    … …  
    594598    {
    595599      if (errno != ENOENT)
    596         perror ("stat failure: " + get_full_path (name1));
     600        perror ("cmt: stat failure: " + get_absolute_path (name1));
    597601      // name1 does not exist
    598602      return (false);
    … …  
    628632              else
    629633                {
    630                   if (errno != ENOENT)
    631                     perror ("unlink failure: " + get_full_path (name1));
     634                  perror ("cmt: unlink failure: " + get_absolute_path (name1));
    632635                  return (false);
    633636                }
    … …  
    639642      if (errno != ENOENT)
    640643        {
    641           perror ("stat failure: " + get_full_path (name2));
     644          perror ("cmt: stat failure: " + get_absolute_path (name2));
    642645          return (false);
    643646        }
    … …  
    658661      else
    659662        {
    660           if (errno != ENOENT)
    661             {
    662               perror ("unlink failure: " + get_full_path (name1));
    663               return (false);
    664             }
    665           return (true);
     663          perror ("cmt: unlink failure: " + get_absolute_path (name1));
     664          return (false);
    666665        }
    667666    }
    … …  
    692691      if (errno != ENOENT)
    693692        {
    694           perror ("stat failure: " + get_full_path (name));
    695           return (-1);
     693          perror ("cmt: stat failure: " + get_absolute_path (name));
     694          return -1;
    696695        }
    697696      return (0);
    … …  
    784783      && errno != ENOENT)
    785784    {
    786       perror ("unlink failure: " + get_full_path (newname));
     785      perror ("cmt: unlink failure: " + get_absolute_path (newname));
    787786      return (false);
    788787    }
    … …  
    798797    {
    799798#ifndef WIN32
    800       perror ("symlink failure: " + newname + "->" + oldname);
     799      perror ("cmt: symlink failure: " + newname + "->" + oldname);
    801800#endif
    802801      return (false);
    … …  
    816815      //      cerr << "#CMT> Cannot remove file " << name << endl;
    817816      if (errno != ENOENT)
    818         perror ("unlink failure: " + get_full_path (name));
     817        perror ("cmt: unlink failure: " + get_absolute_path (name));
    819818      return (false);
    820819    }
    … …  
    849848  if (status != 0)
    850849    {
    851       perror ("rmdir failure: " + name);
     850      perror ("cmt: rmdir failure: " + get_absolute_path (name));
    852851      char num[32]; sprintf (num, "%d", errno);
    853852      CmtMessage::error ("Cannot remove directory " + name + " errno=" + num);
    … …  
    913912            {
    914913              // cerr << "CMT> cannot create directory " << full_path << endl;
    915               perror ("mkdir failure: " + full_path);
     914              perror ("cmt: mkdir failure: " + full_path);
    916915              return (false);
    917916            }
    … …  
    13111310  else
    13121311    {
    1313       perror ("uname failure");
     1312      perror ("cmt: uname failure");
    13141313    }
    13151314
    … …  
    13611360  if ((ptr = ::tmpnam (NULL)) == NULL)
    13621361    {
    1363       perror ("tmpnam failure");
     1362      perror ("cmt: tmpnam failure");
    13641363      static const cmt_string empty;
    13651364      return empty;
    … …  
    14981497        CmtMessage::error ("putenv failure: " + v);
    14991498#else
    1500         perror ("putenv failure: " + v);
     1499        perror ("cmt: putenv failure: " + v);
    15011500#endif
    15021501        return (false);
    … …  
    18411840      if (status == -1) // error reported by pclose ()
    18421841        {
    1843           perror ("pclose failure");
     1842          perror ("cmt: pclose failure");
    18441843          if (errno == ECHILD)
    18451844            {
Note: See TracChangeset for help on using the changeset viewer.