/source/library/Interlace/Erlang/Atom.cs
C# | 89 lines | 47 code | 15 blank | 27 comment | 1 complexity | 8dca857c62e4557c2bdc4164aef0ce4c MD5 | raw file
- #region Using Directives and Copyright Notice
-
- // Copyright (c) 2007-2010, Computer Consultancy Pty Ltd
- // All rights reserved.
- //
- // Redistribution and use in source and binary forms, with or without
- // modification, are permitted provided that the following conditions are met:
- // * Redistributions of source code must retain the above copyright
- // notice, this list of conditions and the following disclaimer.
- // * Redistributions in binary form must reproduce the above copyright
- // notice, this list of conditions and the following disclaimer in the
- // documentation and/or other materials provided with the distribution.
- // * Neither the name of the Computer Consultancy Pty Ltd nor the
- // names of its contributors may be used to endorse or promote products
- // derived from this software without specific prior written permission.
- //
- // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
- // AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
- // IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
- // ARE DISCLAIMED. IN NO EVENT SHALL COMPUTER CONSULTANCY PTY LTD BE LIABLE
- // FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
- // DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
- // SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
- // CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
- // LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
- // OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH
- // DAMAGE.
-
- #endregion
-
- // Portions of this code were originally developed for Bit Plantation BitLibrary.
- // (Portions Copyright © 2006 Bit Plantation)
-
- using System;
- using System.Collections.Generic;
- using System.Text;
-
- namespace Interlace.Erlang
- {
- public class Atom
- {
- static Dictionary<string, Atom> _atoms = new Dictionary<string, Atom>();
-
- readonly string _symbol;
-
- private Atom(string symbol)
- {
- _symbol = symbol;
- }
-
- public static Atom True
- {
- get { return Atom.From("true"); }
- }
-
- public static Atom From(string symbol)
- {
- Atom atom;
-
- if (!_atoms.TryGetValue(symbol, out atom))
- {
- atom = new Atom(symbol);
- _atoms[symbol] = atom;
- }
-
- return atom;
- }
-
- public string Value
- {
- get { return _symbol; }
- }
-
- public override bool Equals(object obj)
- {
- return Object.ReferenceEquals(this, obj);
- }
-
- public override int GetHashCode()
- {
- return _symbol.GetHashCode();
- }
-
- public override string ToString()
- {
- return string.Format("Atom(\"{0}\")", _symbol);
- }
- }
- }