PageRenderTime 36ms CodeModel.GetById 13ms RepoModel.GetById 0ms app.codeStats 0ms

/source/library/Interlace/Erlang/Atom.cs

https://bitbucket.org/VahidN/interlace
C# | 89 lines | 47 code | 15 blank | 27 comment | 1 complexity | 8dca857c62e4557c2bdc4164aef0ce4c MD5 | raw file
  1. #region Using Directives and Copyright Notice
  2. // Copyright (c) 2007-2010, Computer Consultancy Pty Ltd
  3. // All rights reserved.
  4. //
  5. // Redistribution and use in source and binary forms, with or without
  6. // modification, are permitted provided that the following conditions are met:
  7. // * Redistributions of source code must retain the above copyright
  8. // notice, this list of conditions and the following disclaimer.
  9. // * Redistributions in binary form must reproduce the above copyright
  10. // notice, this list of conditions and the following disclaimer in the
  11. // documentation and/or other materials provided with the distribution.
  12. // * Neither the name of the Computer Consultancy Pty Ltd nor the
  13. // names of its contributors may be used to endorse or promote products
  14. // derived from this software without specific prior written permission.
  15. //
  16. // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
  17. // AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  18. // IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  19. // ARE DISCLAIMED. IN NO EVENT SHALL COMPUTER CONSULTANCY PTY LTD BE LIABLE
  20. // FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  21. // DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
  22. // SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
  23. // CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  24. // LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  25. // OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH
  26. // DAMAGE.
  27. #endregion
  28. // Portions of this code were originally developed for Bit Plantation BitLibrary.
  29. // (Portions Copyright © 2006 Bit Plantation)
  30. using System;
  31. using System.Collections.Generic;
  32. using System.Text;
  33. namespace Interlace.Erlang
  34. {
  35. public class Atom
  36. {
  37. static Dictionary<string, Atom> _atoms = new Dictionary<string, Atom>();
  38. readonly string _symbol;
  39. private Atom(string symbol)
  40. {
  41. _symbol = symbol;
  42. }
  43. public static Atom True
  44. {
  45. get { return Atom.From("true"); }
  46. }
  47. public static Atom From(string symbol)
  48. {
  49. Atom atom;
  50. if (!_atoms.TryGetValue(symbol, out atom))
  51. {
  52. atom = new Atom(symbol);
  53. _atoms[symbol] = atom;
  54. }
  55. return atom;
  56. }
  57. public string Value
  58. {
  59. get { return _symbol; }
  60. }
  61. public override bool Equals(object obj)
  62. {
  63. return Object.ReferenceEquals(this, obj);
  64. }
  65. public override int GetHashCode()
  66. {
  67. return _symbol.GetHashCode();
  68. }
  69. public override string ToString()
  70. {
  71. return string.Format("Atom(\"{0}\")", _symbol);
  72. }
  73. }
  74. }