source: main/tags/2.27/gsdl/lib/fileutil.cpp@ 35514

/**********************************************************************
 *
 * fileutil.cpp -- 
 * Copyright (C) 1999  The New Zealand Digital Library Project
 *
 * A component of the Greenstone digital library software
 * from the New Zealand Digital Library Project at the
 * University of Waikato, New Zealand.
 *
 * 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., 675 Mass Ave, Cambridge, MA 02139, USA.
 *
 *********************************************************************/

#include "fileutil.h"

#if defined(GSDL_USE_OBJECTSPACE)
#  include <ospace\std\iostream>
#  include <ospace\std\fstream>
#elif defined(GSDL_USE_IOS_H)
#  include <iostream.h>
#  include <fstream.h>
#else
#  include <iostream>
#  include <fstream>
#endif


// returns the proper concatenation of the two paths
text_t filename_cat (text_t path1, text_t path2) {
  text_t::iterator here;
  text_t::iterator begin;
  text_t::iterator end;

  // make sure there is just one slash, of the correct type,
  // at the end of path1 (unless path1 is an empty string).
  if (!path1.empty()) {
    // remove all trailing slashes
    here = path1.end();
    here--;
    begin = path1.begin();
    while (here != begin && (*here == '/' || *here == '\\')) {
      here--;
    }
    here++;
    path1.erase(here,path1.end());
    
    // add one final slash
#ifdef __WIN32__
    path1 += "\\";
#else
    path1 += "/";
#endif 
  }

  // remove all slashes from the start of path2
  here = path2.begin();
  end = path2.end();
  while (here != end && (*here == '/' || *here == '\\')) {
    here++;
  }
  path2.erase (path2.begin(), here);
  
  text_t fullpath = path1 + path2;
  
  // make sure all the right slashes are used
  here = fullpath.begin();
  end = fullpath.end();
  while (here != end) {
#ifdef __WIN32__
    if (*here == '/') *here = '\\';
#else
    if (*here == '\\') *here = '/';
#endif
    here ++;
  }
  return fullpath;
}

text_t filename_cat (text_t path1, text_t path2, text_t path3) {
  return filename_cat(filename_cat(path1,path2),path3);
}

text_t filename_cat (text_t path1, text_t path2, text_t path3, text_t path4) {
  return filename_cat(filename_cat(filename_cat(path1,path2),path3),path4);
}

text_t filename_cat (text_t path1, text_t path2, text_t path3, text_t path4, 
             text_t path5) {
  return filename_cat(filename_cat(filename_cat(filename_cat(path1,path2),path3),
                   path4),path5);
}

text_t filename_cat (text_t path1, text_t path2, text_t path3, text_t path4, 
             text_t path5, text_t path6) {
  return filename_cat(filename_cat(path1,path2,path3,path4,path5),path6);
}

// returns true if filename can be opened
bool file_exists (const text_t &filename) {
  char *cstr = filename.getcstr();
#ifdef GSDL_USE_IOS_H
  ifstream filestream (cstr, ios::in | ios::nocreate);
#else
  ifstream filestream (cstr, ios::in);
#endif
  delete cstr;
  
  if (filestream) {
    // file exists
    filestream.close ();
    return true;
  }
  
  // file does not exist
  return false;
}

// returns true if filename can be opened
bool file_writable (const text_t &filename) {
  char *cstr = filename.getcstr();
#ifdef GSDL_USE_IOS_H
  ifstream filestream (cstr, ios::out | ios::nocreate);
#else
  ifstream filestream (cstr, ios::out);
#endif
  delete cstr;
  
  if (filestream) {
    // file exists
    filestream.close ();
    return true;
  }
  
  // file does not exist
  return false;
}

#if defined(__WIN32__) && !defined(__GNUC__)

#include <windows.h>

bool directory_exists (const text_t &dirname) {
  
  WIN32_FIND_DATA FileData;  
  HANDLE hSearch; 
  char *dirpath = dirname.getcstr();
  strcat (dirpath, "\\*");
  
  hSearch = FindFirstFile(dirpath, &FileData); 
  // freeing this memory can cause a runtime error on some (particularly
  // debug) versions of VC++
  delete dirpath;
  
  if (hSearch == INVALID_HANDLE_VALUE) {
    return false;
  }
  return true;
}

bool read_dir (const text_t &dirname, text_tarray &filelist) {
  
  WIN32_FIND_DATA FileData;  
  HANDLE hSearch; 
  char *dirpath = dirname.getcstr();
  strcat (dirpath, "\\*");
  
  hSearch = FindFirstFile(dirpath, &FileData); 
  // freeing this memory can cause a runtime error on some (particularly
  // debug) versions of VC++
  delete dirpath;
  
  if (hSearch == INVALID_HANDLE_VALUE) {
    return false;
  }
  
  text_t filename = FileData.cFileName;
  if (filename != "." && filename != ".." && filename != "CVS")
    filelist.push_back (filename); 
  
  while (FindNextFile(hSearch, &FileData)) {
    filename = FileData.cFileName;
    if (filename == "." || filename == ".." || filename == "CVS")
      continue;
    filelist.push_back (filename); 
  }
  
  FindClose(hSearch);
  
  return true;
}

#else

#include <dirent.h>

bool directory_exists (const text_t &dirname) {
  
  char *tmp = dirname.getcstr();
  DIR *dirin = opendir (tmp);
  delete tmp;
  
  if (dirin == NULL) return false;
  closedir (dirin);
  return true;
}

bool read_dir (const text_t &dirname, text_tarray &filelist) {
  
  filelist.erase (filelist.begin(), filelist.end());
  
  char *tmp = dirname.getcstr();
  DIR *dirin = opendir (tmp);
  delete tmp;
  
  if (dirin == NULL) return false;
  
  dirent *dirp; 
  
  text_t filename;
  while ((dirp = readdir (dirin)) != NULL) {
    filename = dirp->d_name;
    if (filename == "." || filename == ".." || filename == "CVS")
      continue;
    filelist.push_back (filename);
  }
  closedir (dirin);
  return true;
}

#endif

// returns true if things look like they happened ok
bool file_copy (const text_t &fromfile, const text_t &tofile) {
  
  char *fromfilec = fromfile.getcstr();
  char *tofilec = tofile.getcstr();
  bool fail = false;

#ifdef __WIN32__
  if (CopyFile (fromfilec, tofilec, FALSE) == 0) fail = true;

#else

  // I'm sure there's a better way to do this - for now I don't have 
  // time to find it though
  ifstream from (fromfilec);
  if (!from) {
    fail = true;
  } else {
    ofstream to (tofilec);
    if (!to) {
      fail = true;
      from.close();
    } else {
      char c;
      from.get(c);
      while (!from.eof ()) {
    to.put(c);
    from.get(c);
      }
      from.close();
      to.close();
    }
  }

#endif

  delete fromfilec;
  delete tofilec;
  if (fail) return false;
  return true;
}


text_t file_tail (const text_t &filename, int numlines) {
  if (numlines < 1) numlines = 1;
  int numchars = 256*numlines;

  text_tarray lines;
  text_t ret;

  char *filenamec = filename.getcstr();
  char linec[256];
  ifstream file_in (filenamec);
  delete filenamec;
  if (file_in) {

    // this should be here to keep things reasonably fast
    // when there's a long file to tail but I can't work out 
    // how to tell when it's rewound past the beginning of the file 
    // (which causes some problems) 

    //    file_in.seekg (-numchars, ios::end);

    while (!file_in.eof()) {
      file_in.getline (linec, 256);
      ret.setcstr(linec);
      text_t::const_iterator here = ret.begin();
      text_t::const_iterator end = ret.end();
      // make sure line has content
      while (here != end) {
    if (*here != '\n' && *here != ' ') {
      lines.push_back (ret);
      break;
    }
    here ++;
      }
    }
    file_in.close();
  }

  ret.clear();
  int numlinesgot = lines.size();
  int sindex = 0;
  if (numlinesgot > numlines) sindex = numlinesgot - numlines;
  for (int i = sindex; i < numlinesgot; i++) {
    ret += lines[i] + "\n";
  }

  return ret;
}

// returns the last numlines lines (or last numlines*256 
// characters) of file
/*
text_t file_tail (const text_t &filename) {


  text_t return_str, tmpstr;
  char *filenamec = filename.getcstr();
  char linec[256];

  ifstream file_in (filenamec);
  delete filenamec;
  if (file_in) {
    file_in.seekg (-256, ios::end);
    file_in.getline (linec, 256, EOF);
    file_in.close();

    tmpstr.setcstr (linec);
    text_t::const_iterator here = tmpstr.begin();
    text_t::const_iterator end = tmpstr.end();
    while (here != end) {
      // handle trailing carriage returns
      while (*here == '\n') {
    here++;
    if (here == end) return return_str;
    else if (*here != '\n') return_str.clear();
      } 
      if (*here == '\\') return_str.push_back ('\\');
      return_str.push_back (*here);
      here ++;
    }
  }
  return return_str;
}
*/
#ifdef __WIN32__

#include <direct.h>
// returns true if directory was created successfully
bool mk_dir (const text_t &dirname) {
  char *dirnamec = dirname.getcstr();
  int rv = _mkdir (dirnamec);
  delete dirnamec;
  if (rv == 0) return true;
  return false;
}

#else

#include <sys/stat.h>
#include <sys/types.h>
#include <fcntl.h>
#include <unistd.h>
// returns true if directory was created successfully
bool mk_dir (const text_t &dirname) {
  mode_t mode = 0777;
  char *dirnamec = dirname.getcstr();
  int rv = mkdir (dirnamec, mode);
  delete dirnamec;
  if (rv == 0) return true;
  return false;
}

#endif

// read in file from filename and load into content
bool read_file (const text_t &filename, text_t &content) {

  content.clear();

  char *filenamec = filename.getcstr();
#ifdef GSDL_USE_IOS_H
  ifstream file_in (filenamec, ios::in | ios::nocreate);
#else
  ifstream file_in (filenamec, ios::in);
#endif
  delete filenamec;

  if (file_in) {
    char c;
    file_in.get(c);
    while (!file_in.eof ()) {
      content.push_back(c);
      file_in.get(c);
    }
    file_in.close();
  } else {
    return false;
  }
  return true;
}