* lily/include/lily-guile.hh: many new ly_ functions. Thanks to

[lilypond.git] / lily / translator-property.cc

diff --git a/lily/translator-property.cc b/lily/translator-property.cc
index de977343fc295dbf282c3d726dc1aed55b871879..0ccb82c897050a2537757adefdcdcfdbb7bae11d 100644 (file)
--- a/lily/translator-property.cc
+++ b/lily/translator-property.cc
@@ -32,7 +32,7 @@ void
 execute_pushpop_property (Context * trg,
                          SCM prop, SCM eltprop, SCM val)
 {
-  if (gh_symbol_p (prop) && gh_symbol_p (eltprop))
+  if (ly_symbol_p (prop) && ly_symbol_p (eltprop))
     {
       if (val != SCM_UNDEFINED)
        {
@@ -48,21 +48,21 @@ execute_pushpop_property (Context * trg,
          if (where != trg)
            {
              SCM base = updated_grob_properties (trg, prop);
-             prev = gh_cons (base, base); 
+             prev = scm_cons (base, base); 
              trg->internal_set_property (prop, prev);
            }
          else
            prev = trg->internal_get_property (prop);
          
-         if (!gh_pair_p (prev))
+         if (!ly_pair_p (prev))
            {
              programming_error ("Grob definition should be cons.");
              return ;
            }
 
-         SCM prev_alist = gh_car (prev);
+         SCM prev_alist = ly_car (prev);
          
-         if (gh_pair_p (prev_alist) || prev_alist == SCM_EOL)
+         if (ly_pair_p (prev_alist) || prev_alist == SCM_EOL)
            {
              bool ok = type_check_assignment (eltprop, val, ly_symbol2scm ("backend-type?"));
 
@@ -70,7 +70,7 @@ execute_pushpop_property (Context * trg,
               tack onto alist:
              */
              if (ok)
-               gh_set_car_x (prev, scm_acons (eltprop, val, prev_alist));
+               scm_set_car_x (prev, scm_acons (eltprop, val, prev_alist));
            }
          else
            {
@@ -80,24 +80,24 @@ execute_pushpop_property (Context * trg,
       else if (trg->where_defined (prop) == trg)
        {
          SCM prev = trg->internal_get_property (prop);
-         SCM prev_alist = gh_car (prev);
-         SCM daddy = gh_cdr (prev);
+         SCM prev_alist = ly_car (prev);
+         SCM daddy = ly_cdr (prev);
          
          SCM new_alist = SCM_EOL;
          SCM *tail = &new_alist;
 
          while (prev_alist != daddy)
            {
-             if (gh_equal_p (gh_caar (prev_alist), eltprop))
+             if (ly_equal_p (ly_caar (prev_alist), eltprop))
                {
-                 prev_alist = gh_cdr (prev_alist);
+                 prev_alist = ly_cdr (prev_alist);
                  break ;
                }
 
              
-             *tail = gh_cons (gh_car (prev_alist), SCM_EOL);
+             *tail = scm_cons (ly_car (prev_alist), SCM_EOL);
              tail = SCM_CDRLOC (*tail);
-             prev_alist = gh_cdr (prev_alist);
+             prev_alist = ly_cdr (prev_alist);
            }
 
          if (new_alist == SCM_EOL && prev_alist == daddy)
@@ -105,7 +105,7 @@ execute_pushpop_property (Context * trg,
          else
            {
              *tail = prev_alist;
-             trg->internal_set_property (prop, gh_cons (new_alist, daddy));
+             trg->internal_set_property (prop, scm_cons (new_alist, daddy));
            }
        }
     }
@@ -124,7 +124,7 @@ void
 apply_property_operations (Context *tg, SCM pre_init_ops)
 {
   SCM correct_order = scm_reverse (pre_init_ops);
-  for (SCM s = correct_order; gh_pair_p (s); s = ly_cdr (s))
+  for (SCM s = correct_order; ly_pair_p (s); s = ly_cdr (s))
     {
       SCM entry = ly_car (s);
       SCM type = ly_car (entry);
@@ -133,7 +133,7 @@ apply_property_operations (Context *tg, SCM pre_init_ops)
       if (type == ly_symbol2scm ("push") || type == ly_symbol2scm ("poppush"))
        {
          SCM val = ly_cddr (entry);
-         val = gh_pair_p (val) ? ly_car (val) : SCM_UNDEFINED;
+         val = ly_pair_p (val) ? ly_car (val) : SCM_UNDEFINED;
 
          execute_pushpop_property (tg, ly_car (entry), ly_cadr (entry), val);
        }
@@ -151,7 +151,7 @@ apply_property_operations (Context *tg, SCM pre_init_ops)
 SCM
 updated_grob_properties (Context * tg, SCM sym)
 {
-  assert (gh_symbol_p (sym));
+  assert (ly_symbol_p (sym));
   
   tg = tg->where_defined (sym);
   if (!tg)
@@ -164,25 +164,25 @@ updated_grob_properties (Context * tg, SCM sym)
   
   SCM props  = tg->internal_get_property (sym);
 
-  if (!gh_pair_p (props))
+  if (!ly_pair_p (props))
     {
       programming_error ("grob props not a pair?");
       return SCM_EOL;
     }
 
-  SCM based_on = gh_cdr (props);
+  SCM based_on = ly_cdr (props);
   if (based_on == daddy_props)
     {
-      return gh_car (props);
+      return ly_car (props);
     }
   else
     {
       SCM copy = daddy_props;
       SCM * tail = ©
-      SCM p = gh_car (props);
+      SCM p = ly_car (props);
       while  (p != based_on)
        {
-         *tail = gh_cons (gh_car (p), daddy_props);
+         *tail = scm_cons (ly_car (p), daddy_props);
          tail = SCM_CDRLOC (*tail);
          p = SCM_CDR (p);
        }