symbol-impl.cpp

Go to the documentation of this file.

/*
  Symbol(impl)  -  helpers for working with literal string IDs 

   Copyright (C)
     2009,            Hermann Vosseler <Ichthyostega@web.de>

  **Lumiera** 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. See the file COPYING for further details.

* *****************************************************************/

#include "lib/symbol.hpp"
#include "lib/symbol-table.hpp"

#include <boost/functional/hash.hpp>
#include <cstddef>
#include <cstring>
#include <string>

using std::size_t;
using std::string;
using std::forward;
using boost::hash_combine;




namespace lib {
  
  const size_t STRING_MAX_RELEVANT = LUMIERA_IDSTRING_MAX_RELEVANT;
  
  
  namespace { // global symbol table
    
    SymbolTable&
    symbolTable()
    {
      static SymbolTable theSymbolTable;
      return theSymbolTable;  // Meyer's Singleton
    }
    
    inline int
    strNcmp (CStr a, CStr b, size_t len)
    {
      return a == b ? 0 : std::strncmp (a?a:"", b?b:"", len);
    }
  }
  
  
  Symbol::Symbol (string&& definition)
    : Literal{symbolTable().internedString (forward<string> (definition))}
    { }
  
  
  /* == predefined marker Symbols == */
  Symbol Symbol::ANY     = "*";
  Symbol Symbol::EMPTY   = "";
  Symbol Symbol::BOTTOM  = "⟂";
  Symbol Symbol::FAILURE = "↯";
  
  // see also: lib/format-obj.cpp
  // We can not share these definitions due to undefined static init order
  
  
  
  
  bool
  Literal::operator== (CStr charPtr)  const
  {
    return 0 == strNcmp (this->str_, charPtr, STRING_MAX_RELEVANT);
  }
  
  
  HashVal
  hash_value (Literal literal)
  {
    size_t hash=0;
    if (literal)
      {
        size_t cnt = 1;
        const char *pos = literal;
        for ( ; cnt <= STRING_MAX_RELEVANT and *pos ; ++cnt, ++pos )
          hash_combine (hash, *pos);
      }
    
    return hash;
  }
  
  HashVal
  hash_value (Symbol sym)
  {
    return sym? boost::hash_value (sym.c())
              : 0;
  }
  
  
  
} // namespace lib