strpool.C

Go to the documentation of this file.

#include "support.H"

#include <cctype>

#ifndef WIN32
#include <dirent.h>
#include <sys/stat.h>
#endif

// Static constructors can be the spawn of satan.  We don't know when
// str_ptr::null will be referenced before it has been initialized, so
// we want to make sure that we protect against this by using
// null_str()

// useful string constants:
STR         *STR::null = 0;
Cstr_ptr str_ptr::null(str_ptr::null_str());

// A string pool is just a hash table
HASH *STR::strpool = 0;

extern "C"
int
compare_words(const void *a, const void *b)
{
   str_ptr m1 = *((str_ptr *)a);
   str_ptr m2 = *((str_ptr *)b);
   return strcmp(**m1, **m2);
}

//
// Gets a list of files in a certain directory
//
str_list dir_list(Cstr_ptr &path)
{
   str_list list;
#ifdef WIN32
   WIN32_FIND_DATA file;
   HANDLE hFile;
   
   Cstr_ptr dot(".");
   Cstr_ptr dotdot("..");
   str_ptr current = path+"*";
   
   if ((hFile = FindFirstFile(**current, &file)) != INVALID_HANDLE_VALUE) 
   {
      while (1) 
      {
         str_ptr fname(file.cFileName);
         if ((fname != dot) && (fname != dotdot)) list += fname;
         if (!FindNextFile(hFile, &file)) break;
      }
      FindClose(hFile);
   }
#else
   DIR *dir = 0;
   struct dirent *direntry;
   if (!!path && (dir =opendir(**path))) 
   {
      static Cstr_ptr dot(".");
      static Cstr_ptr dotdot("..");
      struct stat statbuf;
      while ((direntry= readdir(dir))) 
      {
           str_ptr file(direntry->d_name);
            if (file != dot && file != dotdot) 
            {
              str_ptr path_to_file = path + "/" + file;
              if (!stat(**path_to_file, &statbuf) && (statbuf.st_mode & S_IFMT) == S_IFREG) 
              {
                 list += file;
              }
           }
      }
      closedir(dir);
   }
#endif
   list.sort(compare_words);
   return list;
}

str_list
tokenize(
   Cstr_ptr &string,
   char      delim
   )
{
   str_list tokens;
   if (string  == NULL_STR) return tokens;
   
   char *buff = new char[strlen(**string) + 1];
   strcpy(buff, **string);
   char delimstr[2];
   delimstr[0] = delim;
   delimstr[1] = '\0';
   char *item = strtok(buff, delimstr);
   if (item) {
      tokens += str_ptr(item);
      while ((item = strtok(0, delimstr))) {
         tokens += str_ptr(item);
      }
   }
   delete [] buff;
   return tokens;
}

str_ptr
str_ptr::to_upper() const
{
   if ((*this) == NULL_STR) return NULL_STR;
   char buff[1024];
   strcpy(buff, **p_);
   const int len = strlen(buff);
   for (int i = 0; i < len; i++) {
      buff[i] = toupper(buff[i]);
   }
   return str_ptr(buff);
}

str_ptr
str_ptr::to_lower() const
{
   if ((*this) == NULL_STR) return NULL_STR;
   char buff[1024];
   strcpy(buff, **p_);
   const int len = strlen(buff);
   for (int i = 0; i < len; i++) {
      buff[i] = tolower(buff[i]);
   }
   return str_ptr(buff);
}


// Does this string contain any of the strings in str_list s?
bool
str_ptr::contains(Cstr_list &s) const
{
   for (int i = 0; i < s.num(); i++) {
      if (contains(s[i])) return 1;
   }
   return 0;
}

---