2 scm-hash.hh -- declare Scheme hasher.
4 source file of the GNU LilyPond music typesetter
6 (c) 1999--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
16 #include "lily-guile.hh"
22 bool operator () (SCM s1, SCM s2) const
24 return long(s1) < long (s2);
28 typedef map<SCM,SCM, SCM_less> Scm_stl_map;
31 auto resizing hash table.
33 1. ALWAYS USE THIS AS VIA A POINTER, i.e.
36 Scheme_hash_table * tab;
42 Scheme_hash_table tab;
46 2. UPON DESTRUCTION, DO
48 scm_unprotect_object (tab->self_scm_);
55 This should come from GUILE. We're typically doing double work,
56 because KEY already is a symbol, and is looked up in a symbol
60 class Scheme_hash_table : private Scm_stl_map
63 bool try_retrieve (SCM key, SCM *val);
64 bool elem_b (SCM key) const;
67 WARNING: putting something in assumes responsibility for cleaning
69 void set (SCM k, SCM v);
70 SCM get (SCM k) const;
73 void operator = (Scheme_hash_table const &);
74 Scheme_hash_table (Scheme_hash_table const &);
76 SCM to_alist () const;
77 DECLARE_SMOBS(Scheme_hash_table,foo);
80 #endif /* SCM_HASH_HH */