lily/newkey.cc

   1 #include "newkey.hh"
   2
   3 Newkey::Newkey ()
   4 {
   5   clear();
   6 }
   7
   8 void
   9 Newkey::clear()
  10 {
  11   key_alist_ = SCM_EOL;
  12 }
  13
  14 void
  15 Newkey::set (int n, int a)
  16 {
  17   set_scm (gh_int2scm (n), gh_int2scm (a));
  18 }
  19
  20 void
  21 Newkey::set (int o, int n, int a)
  22 {
  23   set_scm (gh_cons (gh_int2scm (o),gh_int2scm(n)), gh_int2scm (a));
  24 }
  25
  26 void
  27 Newkey::set_scm (SCM k, SCM v)
  28 {
  29   key_alist_
  30     = scm_assoc_set_x (key_alist_, k, v);
  31 }
  32
  33 int
  34 Newkey::get (int o, int n)
  35 {
  36   SCM r = scm_assoc (gh_cons (gh_int2scm (o), gh_int2scm (n)), key_alist_);
  37   return r == SCM_BOOL_F ? get (n) : gh_cdr (r);
  38 }
  39
  40 int
  41 Newkey::get (int n)
  42 {
  43   SCM r = scm_assoc (gh_int2scm (n), key_alist_);
  44   return r == SCM_BOOL_F ? 0: gh_cdr (r);
  45 }