X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Finclude%2Fscm-hash.hh;h=976429682bee33d1b0715d94ecf3901f1120f63a;hb=5b4b0d6e9a197e8f9eb085b7c2ad78b8be3e5cfc;hp=289f9d779c15885d7763c6576aaefaac4c77fb0f;hpb=ff3d20fcb28e7ccf0fa9ad242dc16afb9cf0f7ba;p=lilypond.git diff --git a/lily/include/scm-hash.hh b/lily/include/scm-hash.hh index 289f9d779c..976429682b 100644 --- a/lily/include/scm-hash.hh +++ b/lily/include/scm-hash.hh @@ -1,66 +1,55 @@ -/* +/* scm-hash.hh -- declare Scheme hasher. - + source file of the GNU LilyPond music typesetter - - (c) 1999--2003 Han-Wen Nienhuys - - */ + + (c) 1999--2008 Han-Wen Nienhuys +*/ #ifndef SCM_HASH_HH #define SCM_HASH_HH - -#include "lily-guile.hh" #include "smobs.hh" +/* + hash table. -/** - auto resizing hash table. - - 1. ALWAYS USE THIS AS VIA A POINTER, i.e. - - class Foo { - Scheme_hash_table * tab; - }; + 1. ALWAYS USE THIS AS VIA A POINTER, i.e. - and NOT + class Foo { + Scheme_hash_table * tab; + }; - class Foo { - Scheme_hash_table tab; - } + and NOT + class Foo { + Scheme_hash_table tab; + } - 2. UPON DESTRUCTION, DO - scm_gc_unprotect_object (tab->self_scm_); + 2. UPON DESTRUCTION, DO - */ + scm_gc_unprotect_object (tab->self_scm_); +*/ class Scheme_hash_table -{ +{ public: bool try_retrieve (SCM key, SCM *val); bool contains (SCM key) const; - - /** - WARNING: putting something in assumes responsibility for cleaning - up. */ void set (SCM k, SCM v); - SCM get (SCM k) const; + SCM get (SCM k) const; void remove (SCM k); Scheme_hash_table (); - void operator = (Scheme_hash_table const &); + void operator = (Scheme_hash_table const &); Scheme_hash_table (Scheme_hash_table const &); - SCM to_alist () const; + private: SCM hash_tab_; - unsigned elt_count_; - - DECLARE_SMOBS (Scheme_hash_table,foo); + void copy (Scheme_hash_table const &src); + DECLARE_SMOBS (Scheme_hash_table); }; - #endif /* SCM_HASH_HH */