goo/st-symbol.c

   1 /* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; indent-offset: 4 -*- */
   2 /*
   3  * st-symbol.c
   4  *
   5  * Copyright (C) 2008 Vincent Geddes <vgeddes@gnome.org>
   6  *
   7  * This library is free software: you can redistribute it and/or
   8  * modify it under the terms of the GNU Lesser General Public
   9  * License as published by the Free Software Foundation, either
  10  * version 3 of the License, or (at your option) any later version.
  11  *
  12  * This library is distributed in the hope that it will be useful,
  13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15  * GNU Lesser General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU Lesser General Public License
  18  * along with this program.  If not, see <http://www.gnu.org/licenses/>.
  19  */
  20
  21 #include <st-symbol.h>
  22 #include <st-hashed-collection.h>
  23 #include <st-byte-array.h>
  24
  25 #include <string.h>
  26
  27 ST_DEFINE_VTABLE (st_symbol, st_byte_array_vtable ());
  28
  29 static bool
  30 symbol_equal (st_oop_t object, st_oop_t another)
  31 {
  32     if (object == another)
  33         return true;
  34
  35     if (st_object_class (object) == st_object_class (another))
  36         return false;
  37
  38     // now just do a string comparison
  39     if (st_byte_array_vtable ()->equal (object, another))
  40         return true;
  41
  42     return false;
  43 }
  44
  45 static bool
  46 is_symbol (void)
  47 {
  48     return true;
  49 }
  50
  51 static void
  52 st_symbol_vtable_init (st_vtable_t * table)
  53 {
  54     table->equal = symbol_equal;
  55
  56     table->is_symbol = is_symbol;
  57 }
  58
  59 static st_oop_t
  60 string_new (st_oop_t klass, const char *bytes)
  61 {
  62     int len = strlen (bytes);
  63
  64     st_oop_t string = st_object_new_arrayed (klass, len);
  65
  66     guchar *data = st_byte_array_bytes (string);
  67
  68     memcpy (data, bytes, len);
  69
  70     return string;
  71 }
  72
  73 st_oop_t
  74 st_string_new (const char *bytes)
  75 {
  76     return string_new (st_string_class, bytes);
  77
  78 }
  79
  80 st_oop_t
  81 st_symbol_new (const char *bytes)
  82 {
  83     st_oop_t element = st_set_like (st_symbol_table, st_string_new (bytes));
  84
  85     if (element == st_nil) {
  86
  87         st_oop_t symbol = string_new (st_symbol_class, bytes);
  88
  89         st_set_add (st_symbol_table, symbol);
  90
  91         return symbol;
  92     }
  93
  94     return element;
  95 }