lily/profile.cc

   1 /*
   2   profile.cc -- implement profiling utilities.
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 2005 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
  16 LY_DEFINE (ly_context_property_lookup_stats, "ly:context-property-lookup-stats",
  17            0, 0, 0, (),
  18            "")
  19 {
  20   return context_property_lookup_table ? context_property_lookup_table
  21     : scm_c_make_hash_table (1);
  22 }
  23
  24
  25 LY_DEFINE (ly_property_lookup_stats, "ly:grob-property-lookup-stats",
  26            0, 0, 0, (),
  27            "")
  28 {
  29   return grob_property_lookup_table ? grob_property_lookup_table
  30     : scm_c_make_hash_table (1);
  31 }
  32
  33 void
  34 note_property_access (SCM *table, SCM sym)
  35 {
  36   /*
  37     Statistics: which properties are looked up?
  38   */
  39   if (!*table)
  40     *table = scm_permanent_object (scm_c_make_hash_table (259));
  41
  42   SCM hashhandle = scm_hashq_get_handle (*table, sym);
  43   if (hashhandle == SCM_BOOL_F)
  44     {
  45       scm_hashq_set_x (*table, sym, scm_from_int (0));
  46       hashhandle = scm_hashq_get_handle (*table, sym);
  47     }
  48
  49   int count = scm_to_int (scm_cdr (hashhandle)) + 1;
  50   scm_set_cdr_x (hashhandle, scm_from_int (count));
  51 }