lily/profile.cc

   1 /*
   2   profile.cc -- implement profiling utilities.
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 2005--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
   7 */
   8
   9 #include "profile.hh"
  10
  11 void note_property_access (SCM *table, SCM sym);
  12
  13 SCM context_property_lookup_table;
  14 SCM grob_property_lookup_table;
  15 SCM prob_property_lookup_table;
  16
  17 LY_DEFINE (ly_property_lookup_stats, "ly:property-lookup-stats",
  18            1, 0, 0, (SCM sym),
  19            "Return hash table with a property access corresponding to @var{sym}. "
  20            "Choices are prob, grob and context.")
  21 {
  22   if (sym == ly_symbol2scm ("context"))
  23     return context_property_lookup_table ? context_property_lookup_table
  24       : scm_c_make_hash_table (1);
  25   if (sym == ly_symbol2scm ("prob"))
  26     return prob_property_lookup_table ? prob_property_lookup_table
  27       : scm_c_make_hash_table (1);
  28   if (sym == ly_symbol2scm ("grob"))
  29     return grob_property_lookup_table ? grob_property_lookup_table
  30       : scm_c_make_hash_table (1);
  31   return scm_c_make_hash_table (1);
  32 }
  33
  34
  35 void
  36 note_property_access (SCM *table, SCM sym)
  37 {
  38   /*
  39     Statistics: which properties are looked up?
  40   */
  41   if (!*table)
  42     *table = scm_permanent_object (scm_c_make_hash_table (259));
  43
  44   SCM hashhandle = scm_hashq_get_handle (*table, sym);
  45   if (hashhandle == SCM_BOOL_F)
  46     {
  47       scm_hashq_set_x (*table, sym, scm_from_int (0));
  48       hashhandle = scm_hashq_get_handle (*table, sym);
  49     }
  50
  51   int count = scm_to_int (scm_cdr (hashhandle)) + 1;
  52   scm_set_cdr_x (hashhandle, scm_from_int (count));
  53 }