]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/object-key-undumper.cc
* flower
[lilypond.git] / lily / object-key-undumper.cc
index 52032e43cfa1ac63e2604dd6eb25d7039e21cad2..f904646b385916d34d3a0274561bcf7c6ede3115 100644 (file)
@@ -4,22 +4,21 @@
   source file of the GNU LilyPond music typesetter
 
   (c) 2004--2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
-
 */
 
 #include "object-key-undumper.hh"
 
 #include "ly-smobs.icc"
 
-IMPLEMENT_SMOBS(Object_key_undumper);
-IMPLEMENT_DEFAULT_EQUAL_P(Object_key_undumper);
+IMPLEMENT_SMOBS (Object_key_undumper);
+IMPLEMENT_DEFAULT_EQUAL_P (Object_key_undumper);
 
 SCM
 Object_key_undumper::mark_smob (SCM smob)
 {
-  Object_key_undumper * undumper = (Object_key_undumper*) SCM_CELL_WORD_1(smob);
-  for (Int_to_key_map::const_iterator i (undumper->keys_.begin());
-       i != undumper->keys_.end(); i++)
+  Object_key_undumper *undumper = (Object_key_undumper *) SCM_CELL_WORD_1 (smob);
+  for (Int_to_key_map::const_iterator i (undumper->keys_.begin ());
+       i != undumper->keys_.end (); i++)
     {
       scm_gc_mark ((*i).second->self_scm ());
     }
@@ -30,18 +29,16 @@ Object_key_undumper::mark_smob (SCM smob)
 int
 Object_key_undumper::print_smob (SCM s, SCM port, scm_print_state*)
 {
-  (void) s; 
+  (void) s;
   scm_puts ("#<Object_key_undumper>", port);
   return 1;
 }
 
-
 Object_key_undumper::Object_key_undumper ()
 {
-  smobify_self();
+  smobify_self ();
 }
 
-
 void
 Object_key_undumper::parse_contents (SCM contents)
 {
@@ -51,7 +48,6 @@ Object_key_undumper::parse_contents (SCM contents)
       if (scm_car (entry) != ly_symbol2scm ("define-key"))
        continue;
 
-      
       int number = scm_to_int (scm_cadr (entry));
       SCM skey = scm_caddr (entry);
 
@@ -65,31 +61,31 @@ Object_key_undumper::parse_contents (SCM contents)
            {
              int index = scm_to_int (scm_cadr (item));
              Object_key const *key = get_key (index);
-             *tail = scm_cons (key->self_scm(), SCM_EOL);
+             *tail = scm_cons (key->self_scm (), SCM_EOL);
            }
          else
            {
              *tail = scm_cons (item, SCM_EOL);
            }
-         tail = SCM_CDRLOC(*tail);
+         tail = SCM_CDRLOC (*tail);
        }
 
       Object_key *k = Object_key::undump (new_key);
       keys_[number] = k;
-      scm_gc_unprotect_object (k->self_scm());
+      scm_gc_unprotect_object (k->self_scm ());
     }
-  
+
 }
 
-Object_key const
+Object_key const *
 Object_key_undumper::get_key (int idx)
 {
   Int_to_key_map::const_iterator i (keys_.find (idx));
-  assert (i != keys_.end());
+  assert (i != keys_.end ());
 
   return (*i).second;
 }
 
-Object_key_undumper::~Object_key_undumper()
+Object_key_undumper::~Object_key_undumper ()
 {
 }