2004-10-07 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ * lily/include/guile-compatibility.hh:
+
* scm/framework-tex.scm (convert-to-dvi): use max of current
extra_mem_top and 1M.
set_property_on_children (Context *trans, char const *sym, SCM val)
{
trans->set_property (sym, ly_deep_copy (val));
- for (SCM p = trans->children_contexts (); scm_is_pair (p); p = ly_cdr (p))
+ for (SCM p = trans->children_contexts (); scm_is_pair (p); p = scm_cdr (p))
{
- Context *trg = unsmob_context (ly_car (p));
+ Context *trg = unsmob_context (scm_car (p));
set_property_on_children (trg, sym, ly_deep_copy (val));
}
}
|| laziness== SCM_BOOL_T)
return true;
- return (bar_number <= scm_to_int (ly_cdr (alteration_def)) + scm_to_int (laziness));
+ return (bar_number <= scm_to_int (scm_cdr (alteration_def)) + scm_to_int (laziness));
}
static int
if (scm_is_number (alteration_def))
return scm_to_int (alteration_def);
else if (scm_is_pair (alteration_def))
- return scm_to_int (ly_car (alteration_def));
+ return scm_to_int (scm_car (alteration_def));
else if (alteration_def == SCM_BOOL_F)
return 0;
else
is_tied (SCM alteration_def)
{
return (alteration_def == SCM_BOOL_T)
- || (scm_is_pair (alteration_def) && ly_car (alteration_def) == SCM_BOOL_T);
+ || (scm_is_pair (alteration_def) && scm_car (alteration_def) == SCM_BOOL_T);
}
static int
scm_int2num (n)), sig, SCM_BOOL_F);
SCM from_key_signature = ly_assoc_get (scm_int2num (n), sig, SCM_BOOL_F);
SCM from_other_octaves = SCM_BOOL_F;
- for (SCM s = sig ; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = sig ; scm_is_pair (s); s = scm_cdr (s))
{
- SCM entry = ly_car (s);
- if (scm_is_pair (ly_car (entry))
- && ly_cdar (entry) == scm_int2num (n))
- from_other_octaves = ly_cdr (entry);
+ SCM entry = scm_car (s);
+ if (scm_is_pair (scm_car (entry))
+ && scm_cdar (entry) == scm_int2num (n))
+ from_other_octaves = scm_cdr (entry);
}
int number = 0;
*different = false;
- if (scm_is_pair (accidentals) && !scm_is_symbol (ly_car (accidentals)))
+ if (scm_is_pair (accidentals) && !scm_is_symbol (scm_car (accidentals)))
warning (_f ("Accidental typesetting list must begin with context-name: %s",
- ly_scm2string (ly_car (accidentals)).to_str0 ()));
+ ly_scm2string (scm_car (accidentals)).to_str0 ()));
for (; scm_is_pair (accidentals) && origin;
- accidentals = ly_cdr (accidentals))
+ accidentals = scm_cdr (accidentals))
{
// If pair then it is a new accidentals typesetting rule to be checked
- SCM rule = ly_car (accidentals);
+ SCM rule = scm_car (accidentals);
if (scm_is_pair (rule))
{
- SCM type = ly_car (rule);
- SCM laziness = ly_cdr (rule);
+ SCM type = scm_car (rule);
+ SCM laziness = scm_cdr (rule);
SCM localsig = origin->get_property ("localKeySignature");
bool same_octave_b =
entry = SCM_EOL;
}
else
- entry = ly_cdr (entry);
+ entry = scm_cdr (entry);
entry = scm_cons (a->self_scm (), entry);
Link_array<Grob> *real_acc)
{
for (SCM acs =accs->get_property ("accidental-grobs"); scm_is_pair (acs);
- acs =ly_cdr (acs))
- for (SCM s = ly_cdar (acs); scm_is_pair (s); s = ly_cdr (s))
+ acs =scm_cdr (acs))
+ for (SCM s = scm_cdar (acs); scm_is_pair (s); s = scm_cdr (s))
{
- Grob *a = unsmob_grob (ly_car (s));
+ Grob *a = unsmob_grob (scm_car (s));
if (unsmob_grob (a->get_property ("tie")))
break_reminder->push (a);
Y-position, they share an Ape, and will be printed in overstrike.
*/
Link_array<Accidental_placement_entry> apes;
- for (SCM s = accs; scm_is_pair (s); s =ly_cdr (s))
+ for (SCM s = accs; scm_is_pair (s); s =scm_cdr (s))
{
Accidental_placement_entry *ape = new Accidental_placement_entry;
- ape->notename_ = scm_to_int (ly_caar (s));
+ ape->notename_ = scm_to_int (scm_caar (s));
- for (SCM t = ly_cdar (s); scm_is_pair (t); t =ly_cdr (t))
- ape->grobs_.push (unsmob_grob (ly_car (t)));
+ for (SCM t = scm_cdar (s); scm_is_pair (t); t =scm_cdr (t))
+ ape->grobs_.push (unsmob_grob (scm_car (t)));
apes.push (ape);
}
&& !parens
&& scm_ilength (accs) == 1)
{
- if (scm_to_int (ly_car (accs)) == FLAT)
+ if (scm_to_int (scm_car (accs)) == FLAT)
{
Box stem = b;
Box bulb = b;
Stencil mol;
for (SCM s = me->get_property ("accidentals");
- scm_is_pair (s); s = ly_cdr (s))
+ scm_is_pair (s); s = scm_cdr (s))
{
- int alteration = scm_to_int (ly_car (s));
+ int alteration = scm_to_int (scm_car (s));
String font_char = get_fontcharname (style, alteration);
Stencil acc (fm->find_by_name ("accidentals-" + font_char));
Axis
Align_interface::axis (Grob*me)
{
- return Axis (scm_to_int (ly_car (me->get_property ("axes"))));
+ return Axis (scm_to_int (scm_car (me->get_property ("axes"))));
}
void
handle = scm_assoc (scm_from_int (p.get_notename ()),
start_key_sig_);
- int sig_alter = (handle != SCM_BOOL_F) ? scm_to_int (ly_cdr (handle)) : 0;
+ int sig_alter = (handle != SCM_BOOL_F) ? scm_to_int (scm_cdr (handle)) : 0;
if (sig_alter == p.get_alteration ())
{
accidentals_[d]->suicide();
Grob *me = unsmob_grob (smob);
Grob * common = me;
- for (SCM s = me->get_property ("stems"); scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = me->get_property ("stems"); scm_is_pair (s); s = scm_cdr (s))
{
- Grob * stem = unsmob_grob (ly_car (s));
+ Grob * stem = unsmob_grob (scm_car (s));
common = common->common_refpoint (Staff_symbol_referencer::get_staff_symbol (stem),
Y_AXIS);
}
Interval heads;
Real my_y = me->relative_coordinate (common, Y_AXIS);
- for (SCM s = me->get_property ("stems"); scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = me->get_property ("stems"); scm_is_pair (s); s = scm_cdr (s))
{
- Grob * stem = unsmob_grob (ly_car (s));
+ Grob * stem = unsmob_grob (scm_car (s));
Grob * ss = Staff_symbol_referencer::get_staff_symbol (stem);
Interval iv =Stem::head_positions (stem);
iv *= Staff_symbol::staff_space (ss)/2.0;
Grob *me = unsmob_grob (smob);
Grob * common = me;
- for (SCM s = me->get_property ("stems"); scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = me->get_property ("stems"); scm_is_pair (s); s = scm_cdr (s))
{
- Grob * stem = unsmob_grob (ly_car (s));
+ Grob * stem = unsmob_grob (scm_car (s));
common = common->common_refpoint (Staff_symbol_referencer::get_staff_symbol (stem),
Y_AXIS);
}
Interval heads;
Real my_y = me->relative_coordinate (common, Y_AXIS);
- for (SCM s = me->get_property ("stems"); scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = me->get_property ("stems"); scm_is_pair (s); s = scm_cdr (s))
{
- Grob * stem = unsmob_grob (ly_car (s));
+ Grob * stem = unsmob_grob (scm_car (s));
Grob * ss = Staff_symbol_referencer::get_staff_symbol (stem);
Interval iv = Stem::head_positions (stem);
iv *= Staff_symbol::staff_space (ss)/2.0;
/* second guess: property generic time exception */
SCM m = scm_assoc (ly_append3 (function, wild, time), settings);
- if (m != SCM_BOOL_F && unsmob_moment (ly_cdr (m)))
- moment = * unsmob_moment (ly_cdr (m));
+ if (m != SCM_BOOL_F && unsmob_moment (scm_cdr (m)))
+ moment = * unsmob_moment (scm_cdr (m));
/* third guess: property time exception, specific for duration type */
m = scm_assoc (ly_append3 (function, type, time), settings);
- if (m != SCM_BOOL_F && unsmob_moment (ly_cdr (m)))
- moment = * unsmob_moment (ly_cdr (m));
+ if (m != SCM_BOOL_F && unsmob_moment (scm_cdr (m)))
+ moment = * unsmob_moment (scm_cdr (m));
/* fourth guess [user override]: property plain generic */
m = scm_assoc (ly_append3 (function, wild, wild), settings);
- if (m != SCM_BOOL_F && unsmob_moment (ly_cdr (m)))
- moment = * unsmob_moment (ly_cdr (m));
+ if (m != SCM_BOOL_F && unsmob_moment (scm_cdr (m)))
+ moment = * unsmob_moment (scm_cdr (m));
/* fifth guess [user override]: property plain, specific for duration type */
m = scm_assoc (ly_append3 (function, type, wild), settings);
- if (m != SCM_BOOL_F && unsmob_moment (ly_cdr (m)))
- moment = * unsmob_moment (ly_cdr (m));
+ if (m != SCM_BOOL_F && unsmob_moment (scm_cdr (m)))
+ moment = * unsmob_moment (scm_cdr (m));
Rational r;
if (moment.to_bool ())
Moment now = get_outlet ()->now_mom ();
Moment *splitm = 0;
- for (; scm_is_pair (split_list_); split_list_ = ly_cdr (split_list_))
+ for (; scm_is_pair (split_list_); split_list_ = scm_cdr (split_list_))
{
- splitm = unsmob_moment (ly_caar (split_list_));
+ splitm = unsmob_moment (scm_caar (split_list_));
if ((*splitm + start_moment_) > now)
break ;
- SCM tag = ly_cdar (split_list_);
+ SCM tag = scm_cdar (split_list_);
Direction d = to_dir (tag);
if (d && d != where_dir_)
void
Axis_group_interface::add_element (Grob*me,Grob *e)
{
- for (SCM ax = me->get_property ("axes"); ax != SCM_EOL ; ax = ly_cdr (ax))
+ for (SCM ax = me->get_property ("axes"); ax != SCM_EOL ; ax = scm_cdr (ax))
{
- Axis a = (Axis) scm_to_int (ly_car (ax));
+ Axis a = (Axis) scm_to_int (scm_car (ax));
if (!e->get_parent (a))
e->set_parent (me, a);
Axis_group_interface::relative_group_extent (Axis a, Grob *common, SCM elts)
{
Interval r;
- for (SCM s = elts; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = elts; scm_is_pair (s); s = scm_cdr (s))
{
- Grob * se = unsmob_grob (ly_car (s));
+ Grob * se = unsmob_grob (scm_car (s));
Interval dims = se->extent (common, a);
if (!dims.is_empty ())
r.unite (dims);
if (!has_interface (me))
return childs;
- for (SCM ep = me->get_property ("elements"); scm_is_pair (ep); ep = ly_cdr (ep))
+ for (SCM ep = me->get_property ("elements"); scm_is_pair (ep); ep = scm_cdr (ep))
{
- Grob* e = unsmob_grob (ly_car (ep));
+ Grob* e = unsmob_grob (scm_car (ep));
if (e)
childs.concat (Axis_group_interface::get_children (e));
}
Grob *me = unsmob_grob (smob);
SCM s = me->get_property ("positions");
- Real yl = scm_to_double (ly_car (s));
- Real yr = scm_to_double (ly_cdr (s));
+ Real yl = scm_to_double (scm_car (s));
+ Real yr = scm_to_double (scm_cdr (s));
/*
Beam::get_beam_count (Grob *me)
{
int m = 0;
- for (SCM s = me->get_property ("stems"); scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = me->get_property ("stems"); scm_is_pair (s); s = scm_cdr (s))
{
- Grob *stem = unsmob_grob (ly_car (s));
+ Grob *stem = unsmob_grob (scm_car (s));
m = m >? (Stem::beam_multiplicity (stem).length () + 1);
}
return m;
{
me->warning (_ ("removing beam with less than two stems"));
- unsmob_grob (ly_car (stems))->set_property ("beam", SCM_EOL);
+ unsmob_grob (scm_car (stems))->set_property ("beam", SCM_EOL);
me->suicide ();
return SCM_UNSPECIFIED;
Direction left_dir,
Direction right_dir)
{
- Slice lslice = int_list_to_slice (ly_cdr (left_beaming));
+ Slice lslice = int_list_to_slice (scm_cdr (left_beaming));
int best_count = 0;
int best_start = 0;
(i - lslice[left_dir])* left_dir <= 0 ; i+= left_dir)
{
int count =0;
- for ( SCM s = ly_car (right_beaming); scm_is_pair (s); s = ly_cdr (s))
+ for ( SCM s = scm_car (right_beaming); scm_is_pair (s); s = scm_cdr (s))
{
- int k = - right_dir * scm_to_int (ly_car (s)) + i;
+ int k = - right_dir * scm_to_int (scm_car (s)) + i;
if (scm_c_memq (scm_int2num (k), left_beaming) != SCM_BOOL_F)
count ++;
}
new_slice.set_empty ();
SCM s = index_get_cell (this_beaming, d);
- for (; scm_is_pair (s); s = ly_cdr (s))
+ for (; scm_is_pair (s); s = scm_cdr (s))
{
int new_beam_pos =
- start_point - this_dir * scm_to_int (ly_car (s));
+ start_point - this_dir * scm_to_int (scm_car (s));
new_slice.add_point (new_beam_pos);
scm_set_car_x (s, scm_int2num (new_beam_pos));
else
{
scm_set_car_x ( this_beaming, SCM_EOL);
- SCM s = ly_cdr (this_beaming);
- for (; scm_is_pair (s); s = ly_cdr (s))
+ SCM s = scm_cdr (this_beaming);
+ for (; scm_is_pair (s); s = scm_cdr (s))
{
- int np = - this_dir * scm_to_int (ly_car (s));
+ int np = - this_dir * scm_to_int (scm_car (s));
scm_set_car_x (s, scm_int2num (np));
last_int.add_point (np);
}
scm_set_cdr_x (this_beaming, SCM_EOL);
}
- if (scm_ilength (ly_cdr (this_beaming)) > 0)
+ if (scm_ilength (scm_cdr (this_beaming)) > 0)
{
last_beaming = this_beaming;
last_dir = this_dir;
right from the left stem, and rfliebertjes pointing left from
right stem.
*/
- SCM left = (i > 0) ? ly_cdr (last_beaming) : SCM_EOL;
- SCM right = st ? ly_car (this_beaming) : SCM_EOL;
+ SCM left = (i > 0) ? scm_cdr (last_beaming) : SCM_EOL;
+ SCM right = st ? scm_car (this_beaming) : SCM_EOL;
Array<int> full_beams;
Array<int> lfliebertjes;
Array<int> rfliebertjes;
for (SCM s = left;
- scm_is_pair (s); s =ly_cdr (s))
+ scm_is_pair (s); s =scm_cdr (s))
{
- int b = scm_to_int (ly_car (s));
- if (scm_c_memq (ly_car (s), right) != SCM_BOOL_F)
+ int b = scm_to_int (scm_car (s));
+ if (scm_c_memq (scm_car (s), right) != SCM_BOOL_F)
{
full_beams.push (b);
}
}
}
for (SCM s = right;
- scm_is_pair (s); s =ly_cdr (s))
+ scm_is_pair (s); s =scm_cdr (s))
{
- int b = scm_to_int (ly_car (s));
- if (scm_c_memq (ly_car (s), left) == SCM_BOOL_F)
+ int b = scm_to_int (scm_car (s));
+ if (scm_c_memq (scm_car (s), left) == SCM_BOOL_F)
{
rfliebertjes.push (b);
}
SCM s = ly_deep_copy (me->get_property ("positions"));
me->set_property ("positions", s);
- if (ly_car (s) == SCM_BOOL_F)
+ if (scm_car (s) == SCM_BOOL_F)
{
// one wonders if such genericity is necessary --hwn.
SCM callbacks = me->get_property ("position-callbacks");
- for (SCM i = callbacks; scm_is_pair (i); i = ly_cdr (i))
- scm_call_1 (ly_car (i), me->self_scm ());
+ for (SCM i = callbacks; scm_is_pair (i); i = scm_cdr (i))
+ scm_call_1 (scm_car (i), me->self_scm ());
}
set_stem_lengths (me);
{
Slice l;
- for ( SCM s = ly_car (beaming); scm_is_pair (s) ; s = ly_cdr (s))
+ for ( SCM s = scm_car (beaming); scm_is_pair (s) ; s = scm_cdr (s))
{
- if (scm_c_memq (ly_car (s), ly_cdr (beaming)) != SCM_BOOL_F)
+ if (scm_c_memq (scm_car (s), scm_cdr (beaming)) != SCM_BOOL_F)
- l.add_point (scm_to_int (ly_car (s)));
+ l.add_point (scm_to_int (scm_car (s)));
}
return l;
Drul_array<Real> pos (0, 0);
SCM s = beam->get_property ("positions");
- if (scm_is_pair (s) && scm_is_number (ly_car (s)))
+ if (scm_is_pair (s) && scm_is_number (scm_car (s)))
pos = ly_scm2interval (s);
Real staff_space = Staff_symbol_referencer::staff_space (rest);
bool knee = false;
int d = 0;
- for (SCM s = me->get_property ("stems"); scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = me->get_property ("stems"); scm_is_pair (s); s = scm_cdr (s))
{
- Direction dir = get_grob_direction (unsmob_grob (ly_car (s)));
+ Direction dir = get_grob_direction (unsmob_grob (scm_car (s)));
if (d && d != dir)
{
knee = true;
{
SCM met = scm_assoc (scm_make_real (lookup_mag), sizes);
if (scm_is_pair (met))
- return unsmob_metrics (ly_cdr (met));
+ return unsmob_metrics (scm_cdr (met));
}
else
sizes = SCM_EOL;
Virtual_font (Scaled (Font1), Scaled (Font2)) */
SCM lst = SCM_EOL;
SCM *t = &lst;
- for (SCM s = vf->get_font_list (); scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = vf->get_font_list (); scm_is_pair (s); s = scm_cdr (s))
{
Font_metric *scaled = find_scaled_font (mod,
- unsmob_metrics (ly_car (s)),
+ unsmob_metrics (scm_car (s)),
m, input_enc_name);
*t = scm_cons (scaled->self_scm (), SCM_EOL);
t = SCM_CDRLOC (*t);
SCM func = ly_scheme_function ("hash-table->alist");
for (SCM s = scm_call_1 (func, font_table); scm_is_pair (s);
- s = ly_cdr (s))
+ s = scm_cdr (s))
{
- SCM entry = ly_car (s);
- for (SCM t = ly_cdr (entry); scm_is_pair (t); t = ly_cdr (t))
+ SCM entry = scm_car (s);
+ for (SCM t = scm_cdr (entry); scm_is_pair (t); t = scm_cdr (t))
{
- Font_metric *fm = unsmob_metrics (ly_cdar (t));
+ Font_metric *fm = unsmob_metrics (scm_cdar (t));
if (dynamic_cast<Modified_font_metric*> (fm))
ell = scm_cons (fm->self_scm (), ell);
if (ly_c_module_p (header))
book->header_ = header;
- for (SCM s = scores; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = scores; scm_is_pair (s); s = scm_cdr (s))
{
- Score *score = unsmob_score (ly_car (s));
+ Score *score = unsmob_score (scm_car (s));
if (score)
book->scores_.push (score);
}
void
Break_align_engraver::stop_translation_timestep ()
{
- for (SCM p = column_alist_; scm_is_pair (p); p = ly_cdr (p))
+ for (SCM p = column_alist_; scm_is_pair (p); p = scm_cdr (p))
{
- SCM pair = ly_car (p);
- add_column (ly_cdr (pair));
+ SCM pair = scm_car (p);
+ add_column (scm_cdr (pair));
}
column_alist_ = SCM_EOL;
if (s != SCM_BOOL_F)
{
- Grob *e = unsmob_grob (ly_cdr (s));
+ Grob *e = unsmob_grob (scm_cdr (s));
group = dynamic_cast<Item*> (e);
}
else
Copy in order specified in BREAK-ALIGN-ORDER.
*/
Link_array<Grob> new_elts;
- for (; scm_is_pair (order); order = ly_cdr (order))
+ for (; scm_is_pair (order); order = scm_cdr (order))
{
- SCM sym = ly_car (order);
+ SCM sym = scm_car (order);
- for (SCM s =elts; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s =elts; scm_is_pair (s); s = scm_cdr (s))
{
- Grob *g = unsmob_grob (ly_car (s));
+ Grob *g = unsmob_grob (scm_car (s));
if (g && sym == g->get_property ("break-align-symbol"))
{
new_elts.push (g);
Find the first grob with a space-alist entry.
*/
for (SCM s = l->get_property ("elements");
- scm_is_pair (s) ; s = ly_cdr (s))
+ scm_is_pair (s) ; s = scm_cdr (s))
{
- Grob *elt = unsmob_grob (ly_car (s));
+ Grob *elt = unsmob_grob (scm_car (s));
if (edge_idx < 0
&& elt->get_property ("break-align-symbol")
reason.
*/
for (SCM s = r ? r->get_property ("elements") : SCM_EOL;
- !scm_is_symbol (rsym) && scm_is_pair (s); s = ly_cdr (s))
+ !scm_is_symbol (rsym) && scm_is_pair (s); s = scm_cdr (s))
{
- Grob * elt =unsmob_grob (ly_car (s));
+ Grob * elt =unsmob_grob (scm_car (s));
rsym = elt->get_property ("break-align-symbol");
}
if (entry_found)
{
- entry = ly_cdr (entry);
+ entry = scm_cdr (entry);
- distance = scm_to_double (ly_cdr (entry));
- type = ly_car (entry) ;
+ distance = scm_to_double (scm_cdr (entry));
+ type = scm_car (entry) ;
}
if (r)
/*
UGH! breaks on circular lists.
*/
- SCM newcar = do_break_substitution (ly_car (src));
- SCM oldcdr = ly_cdr (src);
+ SCM newcar = do_break_substitution (scm_car (src));
+ SCM oldcdr = scm_cdr (src);
if (newcar == SCM_UNDEFINED
&& (scm_is_pair (oldcdr) || oldcdr == SCM_EOL))
SCM l = SCM_EOL;
SCM * tail = &l;
- for (SCM s = grob_list; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = grob_list; scm_is_pair (s); s = scm_cdr (s))
{
- SCM n= substitute_grob (unsmob_grob (ly_car (s)));
+ SCM n= substitute_grob (unsmob_grob (scm_car (s)));
if (n != SCM_UNDEFINED)
{
int sp_index = len;
int it_index = 0;
- for (SCM s = grob_list; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = grob_list; scm_is_pair (s); s = scm_cdr (s))
{
- Grob * g = unsmob_grob (ly_car (s));
+ Grob * g = unsmob_grob (scm_car (s));
Slice sr = grob_system_range (g);
sr.intersect (system_range);
SCM l = SCM_EOL;
SCM *tail = &l;
- for (SCM s = alist; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = alist; scm_is_pair (s); s = scm_cdr (s))
{
- SCM sym = ly_caar (s);
- SCM val = ly_cdar (s);
+ SCM sym = scm_caar (s);
+ SCM val = scm_cdar (s);
SCM type = scm_object_property (sym, ly_symbol2scm ("backend-type?"));
if (type == grob_list_p)
line with the center of the note heads?
*/
- for (SCM s = cols; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = cols; scm_is_pair (s); s = scm_cdr (s))
{
- Grob * col = unsmob_grob (ly_car (s));
+ Grob * col = unsmob_grob (scm_car (s));
Interval yext = col->extent (commony, Y_AXIS);
Real x = col->relative_coordinate (commonx, X_AXIS) - left_coord;
if (scm_is_pair (cols))
{
Grob *next_commony = common_refpoint_of_list (cols, next, Y_AXIS);
- Grob * col = unsmob_grob (ly_car (scm_last_pair (cols)));
+ Grob * col = unsmob_grob (scm_car (scm_last_pair (cols)));
Interval v = col->extent (next_commony, Y_AXIS);
Real x = right_bound->relative_coordinate (commonx, X_AXIS) - left_coord;
Grob *sl = Staff_symbol_referencer::get_staff_symbol (item);
for (SCM tail = parent->get_property ("elements");
scm_is_pair (tail);
- tail = ly_cdr (tail))
+ tail = scm_cdr (tail))
{
- Item *sibling = unsmob_item (ly_car (tail));
+ Item *sibling = unsmob_item (scm_car (tail));
if ((sibling) &&
(Staff_symbol_referencer::get_staff_symbol (sibling) == sl))
{
void
Context_def::add_context_mod (SCM mod)
{
- SCM tag = ly_car (mod);
+ SCM tag = scm_car (mod);
if (ly_symbol2scm ("description") == tag)
{
- description_ = ly_cadr (mod);
+ description_ = scm_cadr (mod);
return;
}
- SCM sym = ly_cadr (mod);
+ SCM sym = scm_cadr (mod);
if (scm_is_string (sym))
sym = scm_string_to_symbol (sym);
{
SCM mods = scm_reverse_x (scm_list_copy (accept_mods_), user_mod);
SCM acc = SCM_EOL;
- for (SCM s = mods; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = mods; scm_is_pair (s); s = scm_cdr (s))
{
- SCM tag = ly_caar (s);
- SCM sym = ly_cadar (s);
+ SCM tag = scm_caar (s);
+ SCM sym = scm_cadar (s);
if (tag == ly_symbol2scm ("accepts"))
acc = scm_cons (sym, acc);
else if (tag == ly_symbol2scm ("denies"))
SCM accepted = get_accepted (SCM_EOL);
Link_array<Context_def> accepteds;
- for (SCM s = accepted; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = accepted; scm_is_pair (s); s = scm_cdr (s))
if (Context_def *t = unsmob_context_def (find_context_def (odef,
- ly_car (s))))
+ scm_car (s))))
accepteds.push (t);
Link_array<Context_def> best_result;
SCM mods = scm_reverse_x (scm_list_copy (translator_mods_), user_mod);
- for (SCM s = mods; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = mods; scm_is_pair (s); s = scm_cdr (s))
{
- SCM tag = ly_caar (s);
- SCM arg = ly_cadar (s);
+ SCM tag = scm_caar (s);
+ SCM arg = scm_cadar (s);
if (scm_is_string (arg))
arg = scm_string_to_symbol (arg);
{
for (SCM *tail = ℓ scm_is_pair (*tail); tail = SCM_CDRLOC (*tail))
{
- if (dynamic_cast<Performer*> (unsmob_translator (ly_car (*tail))))
+ if (dynamic_cast<Performer*> (unsmob_translator (scm_car (*tail))))
{
- *tail = ly_cdr (*tail);
+ *tail = scm_cdr (*tail);
if (!scm_is_pair (*tail))
break ;
}
SCM *tail = ℓ
for (; scm_is_pair (*tail) ; tail = SCM_CDRLOC (*tail))
{
- if (dynamic_cast<Engraver*> (unsmob_translator (ly_car (*tail))))
+ if (dynamic_cast<Engraver*> (unsmob_translator (scm_car (*tail))))
{
- *tail = ly_cdr (*tail);
+ *tail = scm_cdr (*tail);
if (!scm_is_pair (*tail))
break ;
}
SCM trans_list = SCM_EOL;
- for (SCM s = trans_names; scm_is_pair (s) ; s = ly_cdr (s))
+ for (SCM s = trans_names; scm_is_pair (s) ; s = scm_cdr (s))
{
- Translator *t = get_translator (ly_car (s));
+ Translator *t = get_translator (scm_car (s));
if (!t)
warning (_f ("can't find: `%s'", s));
else
void
Context::check_removal ()
{
- for (SCM p = context_list_; scm_is_pair (p); p = ly_cdr (p))
+ for (SCM p = context_list_; scm_is_pair (p); p = scm_cdr (p))
{
- Context *trg = unsmob_context (ly_car (p));
+ Context *trg = unsmob_context (scm_car (p));
trg->check_removal ();
if (trg->is_removable ())
Context::default_child_context_name () const
{
return scm_is_pair (accepts_list_)
- ? ly_car (scm_last_pair (accepts_list_))
+ ? scm_car (scm_last_pair (accepts_list_))
: SCM_EOL;
}
Context * found = 0;
for (SCM s = where->children_contexts ();
- !found && scm_is_pair (s); s = ly_cdr (s))
+ !found && scm_is_pair (s); s = scm_cdr (s))
{
- Context * tr = unsmob_context (ly_car (s));
+ Context * tr = unsmob_context (scm_car (s));
found = find_context_below (tr, type, id);
}
if (scm_is_pair (defn))
{
- SCM pos = ly_caddr (defn);
- SCM style =ly_car (defn);
- SCM script = ly_cadr (defn);
+ SCM pos = scm_caddr (defn);
+ SCM style =scm_car (defn);
+ SCM script = scm_cadr (defn);
if (scm_integer_p (pos) == SCM_BOOL_T)
note->set_property ("staff-position", pos);
{
SCM head = scm_last_pair (info.grob_->get_property ("note-heads"));
if (scm_is_pair (head))
- script_->set_parent (unsmob_grob (ly_car (head)), X_AXIS);
+ script_->set_parent (unsmob_grob (scm_car (head)), X_AXIS);
}
SCM meta = info.grob_->internal_get_property (meta_sym);
SCM nm = scm_assoc (name_sym, meta);
if (scm_is_pair (nm))
- nm = ly_cdr (nm);
+ nm = scm_cdr (nm);
else
{
/*
scm_hashq_set_x (tab, nm, acklist);
}
- for (SCM p = acklist; scm_is_pair (p); p = ly_cdr (p))
+ for (SCM p = acklist; scm_is_pair (p); p = scm_cdr (p))
{
- Translator * t = unsmob_translator (ly_car (p));
+ Translator * t = unsmob_translator (scm_car (p));
Engraver * eng = dynamic_cast<Engraver*> (t);
if (eng && eng != info.origin_trans_)
eng->acknowledge_grob (info);
{
int count = announce_infos_.size ();
for (SCM s = context ()->children_contexts ();
- scm_is_pair (s); s = ly_cdr (s))
+ scm_is_pair (s); s = scm_cdr (s))
{
- Context *c = unsmob_context (ly_car (s));
+ Context *c = unsmob_context (scm_car (s));
Engraver_group_engraver * group
=dynamic_cast<Engraver_group_engraver*> (c->implementation ());
{
do {
for (SCM s = context ()->children_contexts ();
- scm_is_pair (s); s = ly_cdr (s))
+ scm_is_pair (s); s = scm_cdr (s))
{
- Context *c = unsmob_context (ly_car (s));
+ Context *c = unsmob_context (scm_car (s));
Engraver_group_engraver * group
= dynamic_cast<Engraver_group_engraver*> (c->implementation ());
if (group)
engraver_valid (Translator*tr, SCM ifaces)
{
SCM ack_ifs = scm_assoc (ly_symbol2scm ("interfaces-acked"), tr->translator_description ());
- ack_ifs = ly_cdr (ack_ifs);
- for (SCM s = ifaces; scm_is_pair (s); s = ly_cdr (s))
- if (scm_c_memq (ly_car (s), ack_ifs) != SCM_BOOL_F)
+ ack_ifs = scm_cdr (ack_ifs);
+ for (SCM s = ifaces; scm_is_pair (s); s = scm_cdr (s))
+ if (scm_c_memq (scm_car (s), ack_ifs) != SCM_BOOL_F)
return true;
return false;
}
SCM
find_acknowledge_engravers (SCM gravlist, SCM meta_alist)
{
- SCM ifaces = ly_cdr (scm_assoc (ly_symbol2scm ("interfaces"), meta_alist));
+ SCM ifaces = scm_cdr (scm_assoc (ly_symbol2scm ("interfaces"), meta_alist));
SCM l = SCM_EOL;
- for (SCM s = gravlist; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = gravlist; scm_is_pair (s); s = scm_cdr (s))
{
- Translator* tr = unsmob_translator (ly_car (s));
+ Translator* tr = unsmob_translator (scm_car (s));
if (engraver_valid (tr, ifaces))
l = scm_cons (tr->self_scm (), l);
}
}
for (SCM s = c->children_contexts () ; scm_is_pair (s);
- s =ly_cdr (s))
+ s =scm_cdr (s))
{
- recurse_down_engravers (unsmob_context (ly_car (s)), ptr, context_first);
+ recurse_down_engravers (unsmob_context (scm_car (s)), ptr, context_first);
}
if (context_first)
void
engraver_each (SCM list, Engraver_method method)
{
- for (SCM p = list; scm_is_pair (p); p = ly_cdr (p))
+ for (SCM p = list; scm_is_pair (p); p = scm_cdr (p))
{
- Engraver * e = dynamic_cast<Engraver*>(unsmob_translator (ly_car (p)));
+ Engraver * e = dynamic_cast<Engraver*>(unsmob_translator (scm_car (p)));
if (e)
(e->*method) ();
}
if (last_processed_mom_ < Moment (0))
{
for (SCM s = dynamic_cast<Music_sequence *> (get_music ())->music_list ();
- scm_is_pair (s); s = ly_cdr (s))
+ scm_is_pair (s); s = scm_cdr (s))
{
- Music *mus = unsmob_music (ly_car (s));
+ Music *mus = unsmob_music (scm_car (s));
bool gotcha = try_music (mus);
if (!gotcha)
SCM newlist = SCM_EOL;
Pitch *p = unsmob_pitch (pit);
- for (SCM s = l; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = l; scm_is_pair (s); s = scm_cdr (s))
{
- SCM key = ly_caar (s);
- SCM alter = ly_cdar (s);
+ SCM key = scm_caar (s);
+ SCM alter = scm_cdar (s);
if (scm_is_pair (key))
{
- Pitch orig (scm_to_int (ly_car (key)),
- scm_to_int (ly_cdr (key)),
+ Pitch orig (scm_to_int (scm_car (key)),
+ scm_to_int (scm_cdr (key)),
scm_to_int (alter));
orig =orig.transposed (*p);
alist_equal_p (SCM a, SCM b)
{
for (SCM s = a;
- scm_is_pair (s); s = ly_cdr (s))
+ scm_is_pair (s); s = scm_cdr (s))
{
- SCM key = ly_caar (s);
- SCM val = ly_cdar (s);
+ SCM key = scm_caar (s);
+ SCM val = scm_cdar (s);
SCM l = scm_assoc (key, b);
if (l == SCM_BOOL_F
- || !ly_c_equal_p ( ly_cdr (l), val))
+ || !ly_c_equal_p ( scm_cdr (l), val))
return false;
}
SCM heads = sp->get_property ("heads");
if (scm_is_pair (heads))
{
- Item *it = dynamic_cast<Item*> (unsmob_grob (ly_car (heads)));
+ Item *it = dynamic_cast<Item*> (unsmob_grob (scm_car (heads)));
if (it)
sp->set_bound (RIGHT, it);
}
{
Font_metric *fm = unsmob_metrics (font);
SCM_ASSERT_TYPE (fm, font, SCM_ARG1, __FUNCTION__, "font-metric");
- return ly_car (fm->description_);
+ return scm_car (fm->description_);
}
{
Font_metric *fm = unsmob_metrics (font);
SCM_ASSERT_TYPE (fm, font, SCM_ARG1, __FUNCTION__, "font-metric");
- return ly_cdr (fm->description_);
+ return scm_cdr (fm->description_);
}
LY_DEFINE (ly_font_design_size,"ly:font-design-size", 1 , 0, 0,
{
SCM name = ly_assoc_chain (ly_symbol2scm ("font-name"), chain);
- if (!scm_is_pair (name) || !scm_is_string (ly_cdr (name)))
+ if (!scm_is_pair (name) || !scm_is_string (scm_cdr (name)))
{
SCM fonts = paper->lookup_variable (ly_symbol2scm ("fonts"));
name = properties_to_font_size_family (fonts, chain);
}
else
- name = ly_cdr (name);
+ name = scm_cdr (name);
if (scm_is_string (name))
{
SCM mag = ly_assoc_chain (ly_symbol2scm ("font-magnification"), chain);
Real rmag = (scm_is_pair (mag)
- ? robust_scm2double (ly_cdr (mag), 1.0)
+ ? robust_scm2double (scm_cdr (mag), 1.0)
: 1);
Font_metric *fm = all_fonts_global->find_font (ly_scm2string (name));
SCM font_size = ly_assoc_chain (ly_symbol2scm ("font-size"), chain);
Real req = 0;
if (scm_is_pair (font_size))
- req = scm_to_double (ly_cdr (font_size));
+ req = scm_to_double (scm_cdr (font_size));
return get_font_by_mag_step (paper, req, vec, scm_to_double (base_size),
input_encoding);
SCM busy = get_property ("busyGrobs");
Moment now = now_mom ();
- while (scm_is_pair (busy) && unsmob_moment (ly_caar (busy))->main_part_ == now.main_part_)
- busy = ly_cdr (busy);
+ while (scm_is_pair (busy) && unsmob_moment (scm_caar (busy))->main_part_ == now.main_part_)
+ busy = scm_cdr (busy);
while (scm_is_pair (busy))
{
- Grob *g = unsmob_grob (ly_cdar (busy));
+ Grob *g = unsmob_grob (scm_cdar (busy));
if (Rhythmic_head::has_interface (g))
{
get_score_engraver ()->forbid_breaks ();
}
- busy = ly_cdr (busy);
+ busy = scm_cdr (busy);
}
}
Global_context::get_score_context () const
{
return (scm_is_pair (context_list_))
- ? dynamic_cast<Score_context*> (unsmob_context (ly_car (context_list_)))
+ ? dynamic_cast<Score_context*> (unsmob_context (scm_car (context_list_)))
: 0;
}
{
SCM lst = get_property ("finalizations");
set_property ("finalizations", SCM_EOL);
- for (SCM s = lst; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = lst; scm_is_pair (s); s = scm_cdr (s))
/* TODO: make safe. */
- scm_primitive_eval (ly_car (s));
+ scm_primitive_eval (scm_car (s));
}
/* Add a function to execute before stepping to the next time step. */
SCM ifs = me->get_property ("interfaces");
bool found = false;
- for (; !found && scm_is_pair (ifs); ifs =ly_cdr (ifs))
+ for (; !found && scm_is_pair (ifs); ifs =scm_cdr (ifs))
{
- SCM iface = scm_hashq_ref (all_ifaces , ly_car (ifs), SCM_BOOL_F);
+ SCM iface = scm_hashq_ref (all_ifaces , scm_car (ifs), SCM_BOOL_F);
if (iface == SCM_BOOL_F)
{
String msg = to_string (_f ("Unknown interface `%s'",
- ly_symbol2string (ly_car (ifs)).to_str0 ()));
+ ly_symbol2string (scm_car (ifs)).to_str0 ()));
programming_error (msg);
continue;
}
- found= found || (scm_c_memq (sym, ly_caddr (iface)) != SCM_BOOL_F);
+ found= found || (scm_c_memq (sym, scm_caddr (iface)) != SCM_BOOL_F);
}
if (!found)
2, 0 ,0, (SCM a, SCM b),
"Compare 2 grob priority queue entries. Internal")
{
- if (Moment::compare (*unsmob_moment (ly_car (a)),
- *unsmob_moment (ly_car (b))) < 0)
+ if (Moment::compare (*unsmob_moment (scm_car (a)),
+ *unsmob_moment (scm_car (b))) < 0)
return SCM_BOOL_T;
else
return SCM_BOOL_F;
Moment now = now_mom ();
SCM start_busy = get_property ("busyGrobs");
SCM busy = start_busy;
- while (scm_is_pair (busy) && *unsmob_moment (ly_caar (busy)) == now)
+ while (scm_is_pair (busy) && *unsmob_moment (scm_caar (busy)) == now)
{
- busy = ly_cdr (busy);
+ busy = scm_cdr (busy);
}
if (start_busy != busy)
SCM start_busy = get_property ("busyGrobs");
SCM busy = start_busy;
- while (scm_is_pair (busy) && *unsmob_moment (ly_caar (busy)) < now)
+ while (scm_is_pair (busy) && *unsmob_moment (scm_caar (busy)) < now)
{
/*
The grob-pq-engraver is not water tight, and stuff like
tupletSpannerDuration confuses it.
*/
- busy = ly_cdr (busy);
+ busy = scm_cdr (busy);
}
if (start_busy != busy)
if (handle != SCM_BOOL_F)
{
- scm_set_cdr_x (handle, scm_cons (thing, ly_cdr (handle)));
+ scm_set_cdr_x (handle, scm_cons (thing, scm_cdr (handle)));
}
else
{
mutable prop list.
*/
handle = scm_sloppy_assq (sym, immutable_property_alist_);
- SCM tail = (handle != SCM_BOOL_F) ? ly_cdr (handle) : SCM_EOL;
+ SCM tail = (handle != SCM_BOOL_F) ? scm_cdr (handle) : SCM_EOL;
SCM val = scm_cons (thing, tail);
mutable_property_alist_ = scm_cons (scm_cons (sym, val),
{
SCM s = scm_sloppy_assq (sym, mutable_property_alist_);
if (s != SCM_BOOL_F)
- return ly_cdr (s);
+ return scm_cdr (s);
s = scm_sloppy_assq (sym, immutable_property_alist_);
if (internal_type_checking_global_b && scm_is_pair (s))
{
- if (!type_check_assignment (sym, ly_cdr (s),
+ if (!type_check_assignment (sym, scm_cdr (s),
ly_symbol2scm ("backend-type?")))
abort ();
check_interfaces_for_property (this, sym);
}
- return (s == SCM_BOOL_F) ? SCM_EOL : ly_cdr (s);
+ return (s == SCM_BOOL_F) ? SCM_EOL : scm_cdr (s);
}
void
/* Switch off interface checks for the moment. */
bool itc = internal_type_checking_global_b;
internal_type_checking_global_b = false;
- internal_set_property (ly_symbol2scm ("interfaces"), ly_cdr (ifs));
+ internal_set_property (ly_symbol2scm ("interfaces"), scm_cdr (ifs));
internal_type_checking_global_b = itc;
}
status_ = busy;
for (SCM d = get_property ("dependencies"); scm_is_pair (d);
- d = ly_cdr (d))
- unsmob_grob (ly_car (d))->calculate_dependencies (final, busy, funcname);
+ d = scm_cdr (d))
+ unsmob_grob (scm_car (d))->calculate_dependencies (final, busy, funcname);
SCM proc = internal_get_property (funcname);
if (ly_c_procedure_p (proc))
/* THIS, SP is the original spanner. We use a special function
because some Spanners have enormously long lists in their
properties, and a special function fixes FOO */
- for (SCM s = mutable_property_alist_; scm_is_pair (s); s = ly_cdr (s))
- sp->substitute_one_mutable_property (ly_caar (s), ly_cdar (s));
+ for (SCM s = mutable_property_alist_; scm_is_pair (s); s = scm_cdr (s))
+ sp->substitute_one_mutable_property (scm_caar (s), scm_cdar (s));
System *system = get_system ();
/* Signs ? */
if (scm_is_pair (extra))
{
- ext[BIGGER] += scm_to_double (ly_cdr (extra));
- ext[SMALLER] += scm_to_double (ly_car (extra));
+ ext[BIGGER] += scm_to_double (scm_cdr (extra));
+ ext[SMALLER] += scm_to_double (scm_car (extra));
}
extra = get_property (a == X_AXIS
? "minimum-X-extent"
: "minimum-Y-extent");
if (scm_is_pair (extra))
- ext.unite (Interval (scm_to_double (ly_car (extra)),
- scm_to_double (ly_cdr (extra))));
+ ext.unite (Interval (scm_to_double (scm_car (extra)),
+ scm_to_double (scm_cdr (extra))));
ext.translate (x);
Grob *
common_refpoint_of_list (SCM elist, Grob *common, Axis a)
{
- for (; scm_is_pair (elist); elist = ly_cdr (elist))
- if (Grob *s = unsmob_grob (ly_car (elist)))
+ for (; scm_is_pair (elist); elist = scm_cdr (elist))
+ if (Grob *s = unsmob_grob (scm_car (elist)))
{
if (common)
common = common->common_refpoint (s, a);
{
SCM meta = get_property ("meta");
SCM nm = scm_assoc (ly_symbol2scm ("name"), meta);
- nm = (scm_is_pair (nm)) ? ly_cdr (nm) : SCM_EOL;
+ nm = (scm_is_pair (nm)) ? scm_cdr (nm) : SCM_EOL;
return scm_is_symbol (nm) ? ly_symbol2string (nm) : classname (this);
}
{
Link_array<Grob> arr;
- for (SCM s = lst; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = lst; scm_is_pair (s); s = scm_cdr (s))
{
- SCM e = ly_car (s);
+ SCM e = scm_car (s);
arr.push (unsmob_grob (e));
}
{
bool neighbor_found = false;
for (SCM adj = me->get_property ("adjacent-hairpins");
- scm_is_pair (adj); adj = ly_cdr (adj))
+ scm_is_pair (adj); adj = scm_cdr (adj))
{
/*
FIXME: this will fuck up in case of polyphonic
in the current staff/voice.
*/
- Spanner *pin = unsmob_spanner (ly_car (adj));
+ Spanner *pin = unsmob_spanner (scm_car (adj));
if (pin
&& (pin->get_bound (LEFT)->get_column() == b->get_column ()
|| pin->get_bound (RIGHT)->get_column() == b->get_column() ))
SCM heads = sp->get_property ("heads");
if (scm_is_pair (heads))
{
- Item* it = dynamic_cast<Item*> (unsmob_grob (ly_car (heads)));
+ Item* it = dynamic_cast<Item*> (unsmob_grob (scm_car (heads)));
if (it)
sp->set_bound (RIGHT, it);
}
{
Link_array<T> arr;
- for (SCM s = elt->get_property (name); scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = elt->get_property (name); scm_is_pair (s); s = scm_cdr (s))
{
- SCM e = ly_car (s);
+ SCM e = scm_car (s);
arr.push (dynamic_cast<T*> (unsmob_grob (e)));
}
#include "drul-array.hh"
#include "direction.hh"
-
-#if SCM_MINOR_VERSION < 7
-/* guile-1.6.x compatibility */
-#define scm_gc_unregister_collectable_memory(a, b, c) scm_done_free (b)
-#define scm_gc_register_collectable_memory(a, b, c) scm_done_malloc (b)
-#define SCM_VECTOR_REF(v,i) (SCM_VELTS ((v))[(i)])
-#define scm_from_int(x) SCM_MAKINUM (x)
-#define scm_is_integer(x) SCM_INUMP (x)
-#define scm_is_string(x) SCM_STRINGP(x)
-#define scm_hash_table_p scm_vector_p
-#define scm_i_string_chars(x) SCM_STRING_CHARS(x)
-#define scm_i_string_length(x) SCM_STRING_LENGTH(x)
-inline bool ly_c_number_p (SCM x) { return SCM_NUMBERP (x); }
-#define scm_is_number(x) (scm_number_p(x)==SCM_BOOL_T)
-inline int ly_scm2int (SCM x) { return scm_num2int (x, 0, "ly_scm2int"); }
-#define scm_to_int(x) (ly_scm2int(x))
-inline bool ly_c_symbol_p (SCM x) { return SCM_SYMBOLP (x); }
-#define scm_is_symbol(x) ly_c_symbol_p(x)
-inline bool ly_c_boolean_p (SCM x) { return SCM_BOOLP (x); }
-#define scm_is_bool(x) ly_c_boolean_p(x)
-inline bool ly_c_eq_p (SCM x, SCM y) { return SCM_EQ_P (x, y); }
-#define scm_is_eq(x,y) (SCM_EQ_P((x), (y)))
-
-#define scm_is_pair(x) (SCM_CONSP(x))
-
-
-inline double ly_scm2double (SCM x) { return scm_num2dbl (x, "ly_scm2double"); }
-#define scm_to_double(x) (ly_scm2double(x))
-#define scm_from_double(x) (scm_make_real(x))
-
-
-
-#endif /* SCM_MINOR_VERSION < 7 */
+#include "guile-compatibility.hh"
#ifndef SMOB_FREE_RETURN_VAL
#define SMOB_FREE_RETURN_VAL(CL) 0
inline bool ly_c_equal_p (SCM x, SCM y) {
return SCM_NFALSEP (scm_equal_p (x, y));
}
-inline SCM ly_cdr (SCM x) {
- if (SCM_NCONSP(x))
- abort();
- return SCM_CDR (x);
-}
-inline SCM ly_car (SCM x) {
- if (SCM_NCONSP(x))
- abort();
- return SCM_CAR (x);
-}
-inline SCM ly_caar (SCM x) { return SCM_CAAR (x); }
-inline SCM ly_cdar (SCM x) { return SCM_CDAR (x); }
-inline SCM ly_cadr (SCM x) { return SCM_CADR (x); }
-inline SCM ly_cddr (SCM x) { return SCM_CDDR (x); }
-inline SCM ly_caddr (SCM x) { return SCM_CADDR (x); }
-inline SCM ly_cdadr (SCM x) { return SCM_CDADR (x); }
-inline SCM ly_caadr (SCM x) { return SCM_CAADR (x); }
-inline SCM ly_cadar (SCM x) { return SCM_CADAR (x); }
+
+
inline bool ly_scm2bool (SCM x) { return SCM_NFALSEP (x); }
inline char ly_scm2char (SCM x) { return SCM_CHAR(x); }
inline unsigned long ly_length (SCM x) {
{
SCM args = scm_list_n (scm_int2num (break_status_dir ()), SCM_UNDEFINED);
SCM result = scm_apply_0 (vis, args);
- bool trans = ly_scm2bool (ly_car (result));
- bool empty = ly_scm2bool (ly_cdr (result));
+ bool trans = ly_scm2bool (scm_car (result));
+ bool empty = ly_scm2bool (scm_cdr (result));
if (empty && trans)
suicide ();
SCM n = scm_list_copy (p);
SCM accs = SCM_EOL;
for (SCM s = get_property ("keyAccidentalOrder");
- scm_is_pair (s); s = ly_cdr (s))
+ scm_is_pair (s); s = scm_cdr (s))
{
- if (scm_is_pair (scm_member (ly_car (s), n)))
+ if (scm_is_pair (scm_member (scm_car (s), n)))
{
- accs = scm_cons (ly_car (s), accs);
- n = scm_delete_x (ly_car (s), n);
+ accs = scm_cons (scm_car (s), accs);
+ n = scm_delete_x (scm_car (s), n);
}
}
- for (SCM s = n ; scm_is_pair (s); s = ly_cdr (s))
- if (scm_to_int (ly_cdar (s)))
- accs = scm_cons (ly_car (s), accs);
+ for (SCM s = n ; scm_is_pair (s); s = scm_cdr (s))
+ if (scm_to_int (scm_cdar (s)))
+ accs = scm_cons (scm_car (s), accs);
context ()->set_property ("keySignature", accs);
context ()->set_property ("tonic" ,
SCM acc = scm_call_1 (proc, pitchlist);
Pitch key_do (0,
- scm_to_int (ly_caar (pitchlist)),
- scm_to_int (ly_cdar (pitchlist)));
+ scm_to_int (scm_caar (pitchlist)),
+ scm_to_int (scm_cdar (pitchlist)));
Pitch c_do (0, 0, 0);
alteration_pos (SCM what, int alter, int c0p)
{
if (scm_is_pair (what))
- return scm_to_int (ly_car (what)) * 7 + scm_to_int (ly_cdr (what)) + c0p;
+ return scm_to_int (scm_car (what)) * 7 + scm_to_int (scm_cdr (what)) + c0p;
int p = scm_to_int (what);
*/
Font_metric *fm = Font_interface::get_default_font (me);
- for (SCM s = newas; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = newas; scm_is_pair (s); s = scm_cdr (s))
{
- int alteration = scm_to_int (ly_cdar (s));
+ int alteration = scm_to_int (scm_cdar (s));
String font_char =
Accidental_interface::get_fontcharname (style, alteration);
Stencil acc (fm->find_by_name ("accidentals-" + font_char));
}
else
{
- SCM what = ly_caar (s);
+ SCM what = scm_caar (s);
int pos = alteration_pos (what, alteration, c0p);
acc.translate_axis (pos * inter, Y_AXIS);
mol.add_at_edge (X_AXIS, LEFT, acc, 0, 0);
int last_pos = -100;
- for (; scm_is_pair (old); old = ly_cdr (old))
+ for (; scm_is_pair (old); old = scm_cdr (old))
{
- SCM found = scm_assoc (ly_caar (old), newas);
+ SCM found = scm_assoc (scm_caar (old), newas);
if (found == SCM_BOOL_F
- || ly_cdr (found) != ly_cdar (old))
+ || scm_cdr (found) != scm_cdar (old))
{
- SCM what = ly_caar (old);
+ SCM what = scm_caar (old);
int alteration = 0;
int pos = alteration_pos (what, alteration, c0p);
progress_indication ("\n");
progress_indication (_f ("input renamed to: `%s'", s.to_str0 ()));
progress_indication ("\n");
- scm_module_define (ly_car (scopes_),
+ scm_module_define (scm_car (scopes_),
ly_symbol2scm ("input-file-name"),
scm_makfrom0str (s.to_str0()));
String str (YYText () + 1);
SCM s = lookup_markup_command (str);
- if (scm_is_pair (s) && scm_is_symbol (ly_cdr (s)) ) {
- yylval.scm = ly_car(s);
- SCM tag = ly_cdr(s);
+ if (scm_is_pair (s) && scm_is_symbol (scm_cdr (s)) ) {
+ yylval.scm = scm_car(s);
+ SCM tag = scm_cdr(s);
if (tag == ly_symbol2scm("markup0"))
return MARKUP_HEAD_MARKUP0;
if (tag == ly_symbol2scm("empty"))
Lily_lexer::pop_state ()
{
if (YYSTATE == notes || YYSTATE == chords)
- pitchname_tab_stack_ = ly_cdr (pitchname_tab_stack_);
+ pitchname_tab_stack_ = scm_cdr (pitchname_tab_stack_);
yy_pop_state ();
}
if ((YYSTATE == notes) || (YYSTATE == chords)) {
SCM handle = SCM_BOOL_F;
if (scm_is_pair (pitchname_tab_stack_))
- handle = scm_hashq_get_handle (ly_car (pitchname_tab_stack_), sym);
+ handle = scm_hashq_get_handle (scm_car (pitchname_tab_stack_), sym);
if (scm_is_pair (handle)) {
- yylval.scm = ly_cdr (handle);
+ yylval.scm = scm_cdr (handle);
if (unsmob_pitch (yylval.scm))
return (YYSTATE == notes) ? NOTENAME_PITCH : TONICNAME_PITCH;
else if (scm_is_symbol (yylval.scm))
}
else if ((handle = scm_hashq_get_handle (chordmodifier_tab_, sym))!= SCM_BOOL_F)
{
- yylval.scm = ly_cdr (handle);
+ yylval.scm = scm_cdr (handle);
return CHORD_MODIFIER;
}
}
SCM target_callback = ly_symbol2scm ("print-function");
SCM source_callback = ly_symbol2scm ("ligature-primitive-callback");
SCM noteHeadProperties = updated_grob_properties (context (), ly_symbol2scm ("NoteHead"));
- SCM value = ly_cdr (scm_sloppy_assq (source_callback, noteHeadProperties));
+ SCM value = scm_cdr (scm_sloppy_assq (source_callback, noteHeadProperties));
execute_pushpop_property (context (), ly_symbol2scm ("NoteHead"),
target_callback, value);
}
SCM
ly_last (SCM list)
{
- return ly_car (scm_last_pair (list));
+ return scm_car (scm_last_pair (list));
}
{
assert (d);
- return (d == LEFT) ? ly_car (s) : ly_cdr (s);
+ return (d == LEFT) ? scm_car (s) : scm_cdr (s);
}
SCM
is_number_pair (SCM p)
{
return scm_is_pair (p)
- && scm_is_number (ly_car (p)) && scm_is_number (ly_cdr (p));
+ && scm_is_number (scm_car (p)) && scm_is_number (scm_cdr (p));
}
typedef void (*Void_fptr) ();
default_value = SCM_BOOL_F;
if (scm_is_pair (handle))
- return ly_cdr (handle);
+ return scm_cdr (handle);
else
return default_value;
}
Interval
ly_scm2interval (SCM p)
{
- return Interval (scm_to_double (ly_car (p)), scm_to_double (ly_cdr (p)));
+ return Interval (scm_to_double (scm_car (p)), scm_to_double (scm_cdr (p)));
}
Drul_array<Real>
ly_scm2realdrul (SCM p)
{
- return Drul_array<Real> (scm_to_double (ly_car (p)),
- scm_to_double (ly_cdr (p)));
+ return Drul_array<Real> (scm_to_double (scm_car (p)),
+ scm_to_double (scm_cdr (p)));
}
SCM
{
SCM newcons = scm_cons (elt, SCM_EOL);
- scm_set_cdr_x (ly_car (l), newcons);
+ scm_set_cdr_x (scm_car (l), newcons);
scm_set_car_x (l, newcons);
}
Offset
ly_scm2offset (SCM s)
{
- return Offset (scm_to_double (ly_car (s)),
- scm_to_double (ly_cdr (s)));
+ return Offset (scm_to_double (scm_car (s)),
+ scm_to_double (scm_cdr (s)));
}
LY_DEFINE (ly_number2string, "ly:number->string",
ly_deep_copy (SCM src)
{
if (scm_is_pair (src))
- return scm_cons (ly_deep_copy (ly_car (src)), ly_deep_copy (ly_cdr (src)));
+ return scm_cons (ly_deep_copy (scm_car (src)), ly_deep_copy (scm_cdr (src)));
else if (ly_c_vector_p (src))
{
int len = SCM_VECTOR_LENGTH (src);
{
if (scm_is_pair (achain))
{
- SCM handle = scm_assoc (key, ly_car (achain));
+ SCM handle = scm_assoc (key, scm_car (achain));
if (scm_is_pair (handle))
return handle;
else
- return ly_assoc_chain (key, ly_cdr (achain));
+ return ly_assoc_chain (key, scm_cdr (achain));
}
else
return SCM_BOOL_F;
{
if (scm_is_pair (alist))
{
- SCM trykey = ly_caar (alist);
- if (scm_is_pair (trykey) && to_boolean (scm_equal_p (key, ly_cdr (trykey))))
- return ly_car (alist);
+ SCM trykey = scm_caar (alist);
+ if (scm_is_pair (trykey) && to_boolean (scm_equal_p (key, scm_cdr (trykey))))
+ return scm_car (alist);
else
- return ly_assoc_cdr (key, ly_cdr (alist));
+ return ly_assoc_cdr (key, scm_cdr (alist));
}
return SCM_BOOL_F;
}
{
SCM s = lst;
k--;
- for (; scm_is_pair (s) && k--; s = ly_cdr (s))
+ for (; scm_is_pair (s) && k--; s = scm_cdr (s))
;
if (scm_is_pair (s))
ly_unique (SCM list)
{
SCM unique = SCM_EOL;
- for (SCM i = list; scm_is_pair (i); i = ly_cdr (i))
+ for (SCM i = list; scm_is_pair (i); i = scm_cdr (i))
{
- if (!scm_is_pair (ly_cdr (i))
- || !ly_c_equal_p (ly_car (i), ly_cadr (i)))
- unique = scm_cons (ly_car (i), unique);
+ if (!scm_is_pair (scm_cdr (i))
+ || !ly_c_equal_p (scm_car (i), scm_cadr (i)))
+ unique = scm_cons (scm_car (i), unique);
}
return scm_reverse_x (unique, SCM_EOL);
}
int len = scm_ilength (lst);
SCM *arr = new SCM[len];
int k = 0;
- for (SCM s = lst; SCM_NNULLP (s); s = ly_cdr (s))
- arr[k++] = ly_car (s);
+ for (SCM s = lst; SCM_NNULLP (s); s = scm_cdr (s))
+ arr[k++] = scm_car (s);
assert (k == len);
qsort (arr, len, sizeof (SCM), &scm_default_compare);
SCM after = list;
for (; scm_is_pair (after);)
{
- SCM i = ly_car (after);
- after = ly_cdr (after);
+ SCM i = scm_car (after);
+ after = scm_cdr (after);
if (ly_c_equal_p (i, s))
break;
before = scm_cons (i, before);
SCM p = scm_current_output_port ();
scm_puts ("(", p);
- for (; scm_is_pair (s); s =ly_cdr (s))
+ for (; scm_is_pair (s); s =scm_cdr (s))
{
- scm_display (ly_car (s), p);
+ scm_display (scm_car (s), p);
scm_puts (" ", p);
}
scm_puts (")", p);
{
Slice s;
s.set_empty ();
- for (; scm_is_pair (l); l = ly_cdr (l))
- if (scm_is_number (ly_car (l)))
- s.add_point (scm_to_int (ly_car (l)));
+ for (; scm_is_pair (l); l = scm_cdr (l))
+ if (scm_is_number (scm_car (l)))
+ s.add_point (scm_to_int (scm_car (l)));
return s;
}
SCM
robust_list_ref (int i, SCM l)
{
- while (i-- > 0 && scm_is_pair (ly_cdr (l)))
- l = ly_cdr (l);
- return ly_car (l);
+ while (i-- > 0 && scm_is_pair (scm_cdr (l)))
+ l = scm_cdr (l);
+ return scm_car (l);
}
Real
return scm_c_make_hash_table (0);
SCM tab = scm_c_make_hash_table (i);
- for (SCM s = alist; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = alist; scm_is_pair (s); s = scm_cdr (s))
{
- SCM pt = ly_cdar (s);
- scm_hashq_set_x (tab, ly_caar (s), pt);
+ SCM pt = scm_cdar (s);
+ scm_hashq_set_x (tab, scm_caar (s), pt);
}
return tab;
}
SCM scopes = SCM_EOL;
SCM *tail = &scopes;
- for (SCM s = src.scopes_; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = src.scopes_; scm_is_pair (s); s = scm_cdr (s))
{
SCM newmod = ly_make_anonymous_module (false);
- ly_import_module (newmod, ly_car (s));
+ ly_import_module (newmod, scm_car (s));
*tail = scm_cons (newmod, SCM_EOL);
tail = SCM_CDRLOC (*tail);
}
{
ly_reexport_module (scm_current_module ());
scm_set_current_module (module);
- for (SCM s = scopes_; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = scopes_; scm_is_pair (s); s = scm_cdr (s))
{
- ly_use_module (module, ly_car (s));
+ ly_use_module (module, scm_car (s));
}
scopes_ = scm_cons (module, scopes_);
}
SCM
Lily_lexer::remove_scope ()
{
- SCM sc = ly_car (scopes_);
- scopes_ = ly_cdr (scopes_);
- scm_set_current_module (ly_car (scopes_));
+ SCM sc = scm_car (scopes_);
+ scopes_ = scm_cdr (scopes_);
+ scm_set_current_module (scm_car (scopes_));
return sc;
}
SCM
Lily_lexer::lookup_identifier_symbol (SCM sym)
{
- for (SCM s = scopes_; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = scopes_; scm_is_pair (s); s = scm_cdr (s))
{
- SCM var = ly_module_lookup (ly_car (s), sym);
+ SCM var = ly_module_lookup (scm_car (s), sym);
if (var != SCM_BOOL_F)
return scm_variable_ref (var);
}
/* Do not allow \include in --safe-mode */
allow_includes_b_ = allow_includes_b_ && !safe_global_b;
- scm_module_define (ly_car (scopes_),
+ scm_module_define (scm_car (scopes_),
ly_symbol2scm ("input-file-name"),
scm_makfrom0str (main_input_name_.to_str0 ()));
}
warning (_f ("Identifier name is a keyword: `%s'", symstr.to_str0()));
}
- SCM mod = ly_car (scopes_);
+ SCM mod = scm_car (scopes_);
scm_module_define (mod, sym, s);
}
SCM oldmod = scm_current_module ();
- scm_set_current_module (ly_car (lexer_->scopes_));
+ scm_set_current_module (scm_car (lexer_->scopes_));
// TODO: use $parser
lexer_->set_identifier (ly_symbol2scm ("parser"),
Lookup::accordion (SCM s, Real staff_space, Font_metric *fm)
{
Stencil m;
- String sym = ly_scm2string (ly_car (s));
- String reg = ly_scm2string (ly_car (ly_cdr (s)));
+ String sym = ly_scm2string (scm_car (s));
+ String reg = ly_scm2string (scm_car (scm_cdr (s)));
if (sym == "Discant")
{
"returning the first occurence. "
"If not found, return @var{default}, or @code{#f}.")
{
- for (SCM s = modules; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = modules; scm_is_pair (s); s = scm_cdr (s))
{
- SCM mod = ly_car (s);
+ SCM mod = scm_car (s);
SCM v = scm_sym2var (sym, scm_module_lookup_closure (mod),
SCM_UNDEFINED);
if (SCM_VARIABLEP(v) && SCM_VARIABLE_REF(v) != SCM_UNDEFINED)
bool busy = false;
for (; scm_is_pair (melisma_properties);
- melisma_properties = ly_cdr (melisma_properties))
- busy = busy || to_boolean (tr->internal_get_property (ly_car (melisma_properties)));
+ melisma_properties = scm_cdr (melisma_properties))
+ busy = busy || to_boolean (tr->internal_get_property (scm_car (melisma_properties)));
return busy;
}
SCM grobs = tr->get_property ("busyGrobs");
Moment now = tr->now_mom ();
- for (; scm_is_pair (grobs); grobs = ly_cdr (grobs))
+ for (; scm_is_pair (grobs); grobs = scm_cdr (grobs))
{
- SCM grob = ly_cdar (grobs);
- Moment end =*unsmob_moment (ly_caar (grobs));
+ SCM grob = scm_cdar (grobs);
+ Moment end =*unsmob_moment (scm_caar (grobs));
/*
SCM l = get_property ("elements");
if (!scm_is_pair (l))
return 0;
- return unsmob_music (ly_car (l));
+ return unsmob_music (scm_car (l));
}
SCM l = get_property ("elements");
if (!scm_is_pair (l))
return 0;
- l = ly_cdr (l);
+ l = scm_cdr (l);
if (!scm_is_pair (l))
return 0;
- return unsmob_music (ly_car (l));
+ return unsmob_music (scm_car (l));
}
get_current_note_head (Context *voice)
{
for (SCM s = voice->get_property ("busyGrobs");
- scm_is_pair (s); s = ly_cdr (s))
+ scm_is_pair (s); s = scm_cdr (s))
{
- Item *g = dynamic_cast<Item*> (unsmob_grob (ly_cdar (s)));
+ Item *g = dynamic_cast<Item*> (unsmob_grob (scm_cdar (s)));
if (g && !g->get_column ()
&& Note_head::has_interface (g))
bool found_tex = false;
SCM formats = ly_output_formats ();
- for (SCM s = formats; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = formats; scm_is_pair (s); s = scm_cdr (s))
{
- found_tex = found_tex || (ly_scm2string (ly_car (s)) == "tex");
+ found_tex = found_tex || (ly_scm2string (scm_car (s)) == "tex");
}
Rational where (0);
for (SCM s = grouping; scm_is_pair (s);
- where += Rational (scm_to_int (ly_car (s))) * bl,
- s = ly_cdr (s)
+ where += Rational (scm_to_int (scm_car (s))) * bl,
+ s = scm_cdr (s)
)
{
- int grouplen = scm_to_int (ly_car (s));
+ int grouplen = scm_to_int (scm_car (s));
if (where == mp)
{
if (grouping_)
SCM desc = m->description_;
- Real total_mag = magn * scm_to_double (ly_cdr (desc));
+ Real total_mag = magn * scm_to_double (scm_cdr (desc));
assert (total_mag);
- description_ = scm_cons (ly_car (desc), scm_make_real (total_mag));
+ description_ = scm_cons (scm_car (desc), scm_make_real (total_mag));
orig_ = m;
if (coding_scheme_ != ""
inner_padding = 1.0;
Stencil mol;
- for (SCM s = mols; scm_is_pair (s); s = ly_cdr (s))
- mol.add_at_edge (X_AXIS, LEFT, *unsmob_stencil (ly_car (s)),
+ for (SCM s = mols; scm_is_pair (s); s = scm_cdr (s))
+ mol.add_at_edge (X_AXIS, LEFT, *unsmob_stencil (scm_car (s)),
inner_padding, 0);
mol.align_to (X_AXIS, LEFT);
mol.translate_axis (outer_padding_factor * inner_padding, X_AXIS);
"@code{ly:music?} predicates or other type predicates.")
{
String str = "";
- for (SCM s = signature; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = signature; scm_is_pair (s); s = scm_cdr (s))
{
if (str != "")
str += "-";
- if (ly_car (s) == Music_type_p_proc)
+ if (scm_car (s) == Music_type_p_proc)
str += "music";
- else if (ly_c_procedure_p (ly_car (s)))
+ else if (ly_c_procedure_p (scm_car (s)))
str += "scm";
}
if (str == "") str = "noarg";
void
transpose_music_list (SCM l, Pitch rq)
{
- for (SCM s = l; scm_is_pair (s); s = ly_cdr (s))
- unsmob_music (ly_car (s))->transpose (rq);
+ for (SCM s = l; scm_is_pair (s); s = scm_cdr (s))
+ unsmob_music (scm_car (s))->transpose (rq);
}
Moment
Moment cumulative;
Moment last_len;
- for (SCM s = l; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = l; scm_is_pair (s); s = scm_cdr (s))
{
- Moment l = unsmob_music (ly_car (s))->get_length ();
+ Moment l = unsmob_music (scm_car (s))->get_length ();
if (last_len.grace_part_ && l.main_part_)
{
last_len.grace_part_ = Rational (0);
Music_sequence::maximum_length (SCM l)
{
Moment dur = 0;
- for (SCM s = l; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = l; scm_is_pair (s); s = scm_cdr (s))
{
- Music * m = unsmob_music (ly_car (s));
+ Music * m = unsmob_music (scm_car (s));
Moment l = m->get_length ();
dur = dur >? l;
}
int count=0;
Pitch last = p;
- for (SCM s = l; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = l; scm_is_pair (s); s = scm_cdr (s))
{
- if (Music *m = unsmob_music (ly_car (s)))
+ if (Music *m = unsmob_music (scm_car (s)))
{
last = m->to_relative_octave (last);
if (!count ++)
void
compress_music_list (SCM l, Moment m)
{
- for (SCM s = l; scm_is_pair (s); s = ly_cdr (s))
- unsmob_music (ly_car (s))->compress (m);
+ for (SCM s = l; scm_is_pair (s); s = scm_cdr (s))
+ unsmob_music (scm_car (s))->compress (m);
}
ADD_MUSIC (Music_sequence);
{
Moment m;
- for (SCM s = l; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = l; scm_is_pair (s); s = scm_cdr (s))
{
- m = m <? unsmob_music (ly_car (s))->start_mom ();
+ m = m <? unsmob_music (scm_car (s))->start_mom ();
}
return m;
}
{
Moment m;
- for (SCM s = l; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = l; scm_is_pair (s); s = scm_cdr (s))
{
- Music * mus = unsmob_music (ly_car (s));
+ Music * mus = unsmob_music (scm_car (s));
Moment l = mus->get_length ();
Moment s = mus->start_mom ();
if (l.to_bool () || s.to_bool ())
print_alist (SCM a, SCM port)
{
/* SCM_EOL -> catch malformed lists. */
- for (SCM s = a; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = a; scm_is_pair (s); s = scm_cdr (s))
{
- scm_display (ly_caar (s), port);
+ scm_display (scm_caar (s), port);
scm_puts (" = ", port);
- scm_write (ly_cdar (s), port);
+ scm_write (scm_cdar (s), port);
scm_puts ("\n", port);
}
}
void
Music::transpose (Pitch delta)
{
- for (SCM s = this->get_property_alist (true); scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = this->get_property_alist (true); scm_is_pair (s); s = scm_cdr (s))
{
- SCM entry = ly_car (s);
- SCM val = ly_cdr (entry);
+ SCM entry = scm_car (s);
+ SCM val = scm_cdr (entry);
if (Pitch * p = unsmob_pitch (val))
{
{
SCM s = scm_sloppy_assq (sym, mutable_property_alist_);
if (s != SCM_BOOL_F)
- return ly_cdr (s);
+ return scm_cdr (s);
s = scm_sloppy_assq (sym, immutable_property_alist_);
- return (s == SCM_BOOL_F) ? SCM_EOL : ly_cdr (s);
+ return (s == SCM_BOOL_F) ? SCM_EOL : scm_cdr (s);
}
void
if (scm_list_p (lst) == SCM_BOOL_T)
while (scm_is_pair (lst))
{
- if (!unsmob_music (ly_car (lst)))
+ if (!unsmob_music (scm_car (lst)))
return SCM_BOOL_F;
- lst = ly_cdr (lst);
+ lst = scm_cdr (lst);
}
return SCM_BOOL_T;
scm_gc_unprotect_object (copy);
}
else if (scm_is_pair (m))
- copy = scm_cons (ly_deep_mus_copy (ly_car (m)),
- ly_deep_mus_copy (ly_cdr (m)));
+ copy = scm_cons (ly_deep_mus_copy (scm_car (m)),
+ ly_deep_mus_copy (scm_cdr (m)));
return copy;
}
SCM arts = note_ev->get_property ("articulations");
- for (SCM s = arts; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = arts; scm_is_pair (s); s = scm_cdr (s))
{
- Music * m = unsmob_music (ly_car (s));
+ Music * m = unsmob_music (scm_car (s));
if (!m)
continue;
Real left_most = 1e6;
Array<Real> amounts;
- for (; scm_is_pair (hand); hand =ly_cdr (hand))
+ for (; scm_is_pair (hand); hand =scm_cdr (hand))
{
- Grob * s = unsmob_grob (ly_caar (hand));
- Real amount = scm_to_double (ly_cdar (hand)) * wid;
+ Grob * s = unsmob_grob (scm_caar (hand));
+ Real amount = scm_to_double (scm_cdar (hand)) * wid;
done.push (s);
amounts.push (amount);
left_most = amount;
}
- for (; scm_is_pair (autos); autos =ly_cdr (autos))
+ for (; scm_is_pair (autos); autos =scm_cdr (autos))
{
- Grob * s = unsmob_grob (ly_caar (autos));
- Real amount = scm_to_double (ly_cdar (autos)) *wid;
+ Grob * s = unsmob_grob (scm_caar (autos));
+ Real amount = scm_to_double (scm_cdar (autos)) *wid;
if (!done.find (s))
{
Drul_array<Link_array<Grob> > clash_groups;
SCM s = me->get_property ("elements");
- for (; scm_is_pair (s); s = ly_cdr (s))
+ for (; scm_is_pair (s); s = scm_cdr (s))
{
- SCM car = ly_car (s);
+ SCM car = scm_car (s);
Grob * se = unsmob_grob (car);
if (Note_column::has_interface (se))
SCM tups = SCM_EOL;
SCM s = me->get_property ("elements");
- for (; scm_is_pair (s); s = ly_cdr (s))
+ for (; scm_is_pair (s); s = scm_cdr (s))
{
- Grob * se = unsmob_grob (ly_car (s));
+ Grob * se = unsmob_grob (scm_car (s));
SCM force = se->get_property ("force-hshift");
if (scm_is_number (force))
iv.set_empty ();
SCM h = me->get_property ("note-heads");
- for (; scm_is_pair (h); h = ly_cdr (h))
+ for (; scm_is_pair (h); h = scm_cdr (h))
{
- Grob *se = unsmob_grob (ly_car (h));
+ Grob *se = unsmob_grob (scm_car (h));
int j = Staff_symbol_referencer::get_rounded_position (se);
iv.unite (Slice (j,j));
{
SCM heads = me->get_property ("note-heads");
Grob * acc = 0;
- for (;scm_is_pair (heads); heads =ly_cdr (heads))
+ for (;scm_is_pair (heads); heads =scm_cdr (heads))
{
- Grob * h = unsmob_grob (ly_car (heads));
+ Grob * h = unsmob_grob (scm_car (heads));
acc = h ? unsmob_grob (h->get_property ("accidental-grob")) : 0;
if (acc)
break;
if (!scm_is_pair (result))
return 0.0;
- result = (a == X_AXIS) ? ly_car (result) : ly_cdr (result);
+ result = (a == X_AXIS) ? scm_car (result) : scm_cdr (result);
return robust_scm2double (result,0);
}
Interval left_head_wid;
do
{
- for (SCM s = props[d]; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = props[d]; scm_is_pair (s); s = scm_cdr (s))
{
- Item * it= dynamic_cast<Item*> (unsmob_grob (ly_car (s)));
+ Item * it= dynamic_cast<Item*> (unsmob_grob (scm_car (s)));
if (d == RIGHT && it->break_status_dir () != col_dir)
{
Item *mincol = 0;
int min_rank = INT_MAX;
bool prune = false;
- for (SCM s = right ; scm_is_pair (s) ; s = ly_cdr (s))
+ for (SCM s = right ; scm_is_pair (s) ; s = scm_cdr (s))
{
- Item * ri = unsmob_item (ly_car (s));
+ Item * ri = unsmob_item (scm_car (s));
Item * col = ri->get_column ();
int rank = Paper_column::get_rank (col);
{
// I'm a lazy bum. We could do this in-place.
SCM newright = SCM_EOL;
- for (SCM s = right ; scm_is_pair (s) ; s =ly_cdr (s))
+ for (SCM s = right ; scm_is_pair (s) ; s =scm_cdr (s))
{
- if (unsmob_item (ly_car (s))->get_column () == mincol)
- newright = scm_cons (ly_car (s), newright);
+ if (unsmob_item (scm_car (s))->get_column () == mincol)
+ newright = scm_cons (scm_car (s), newright);
}
me->set_property ("right-items", newright);
do
{
- for (SCM s = props[d]; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = props[d]; scm_is_pair (s); s = scm_cdr (s))
{
- Item * it= dynamic_cast<Item*> (unsmob_grob (ly_car (s)));
+ Item * it= dynamic_cast<Item*> (unsmob_grob (scm_car (s)));
if (d == RIGHT)
acc_right = acc_right || Note_column::accidentals (it);
{
SCM heads = b->get_property ("note-heads");
common = common_refpoint_of_list (heads, common, X_AXIS);
- for (SCM s = heads; scm_is_pair (s); s =ly_cdr (s))
+ for (SCM s = heads; scm_is_pair (s); s =scm_cdr (s))
{
- Grob * h = unsmob_grob (ly_car (s));
+ Grob * h = unsmob_grob (scm_car (s));
Grob * dots = Rhythmic_head::get_dots (h);
if (dots)
common = dots->common_refpoint (common, X_AXIS);
Interval ext;
if (Note_column::has_interface (b))
{
- for (SCM s = b->get_property ("note-heads"); scm_is_pair (s); s =ly_cdr (s))
+ for (SCM s = b->get_property ("note-heads"); scm_is_pair (s); s =scm_cdr (s))
{
- Grob * h = unsmob_grob (ly_car (s));
+ Grob * h = unsmob_grob (scm_car (s));
ext.unite (h->extent (common, X_AXIS));
Grob * dots = Rhythmic_head::get_dots (h);
SCM al = ly_module2alist (id->scope_);
SCM ell = SCM_EOL;
- for (SCM s = al; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = al; scm_is_pair (s); s = scm_cdr (s))
{
- Context_def * td = unsmob_context_def (ly_cdar (s));
- SCM key = ly_caar (s);
+ Context_def * td = unsmob_context_def (scm_cdar (s));
+ SCM key = scm_caar (s);
if (td && key == td->get_context_name ())
ell = scm_cons (scm_cons (key, td->to_alist ()), ell);
}
pages ();
SCM formats = ly_output_formats ();
- for (SCM s = formats; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = formats; scm_is_pair (s); s = scm_cdr (s))
{
- String format = ly_scm2string (ly_car (s));
+ String format = ly_scm2string (scm_car (s));
String file_name = outname;
if (file_name != "-")
int i = 0;
Paper_system *last = 0;
- for (SCM s = systems_; s != SCM_EOL; s = ly_cdr (s))
+ for (SCM s = systems_; s != SCM_EOL; s = scm_cdr (s))
{
- Paper_system *ps = unsmob_paper_system (ly_car (s));
+ Paper_system *ps = unsmob_paper_system (scm_car (s));
ps->number_ = ++i;
if (last && last->is_title ())
while (scm_is_pair (*ptrptr))
{
- Grob * g = unsmob_grob (ly_car (*ptrptr));
+ Grob * g = unsmob_grob (scm_car (*ptrptr));
if (!g || !g->is_live ())
{
- *ptrptr = ly_cdr (*ptrptr);
+ *ptrptr = scm_cdr (*ptrptr);
}
else
{
ps->start_location_.error (_("GUILE signaled an error for the expression beginning here"));
if (scm_ilength (args) > 2)
- scm_display_error_message (ly_cadr (args), ly_caddr (args), scm_current_error_port ());
+ scm_display_error_message (scm_cadr (args), scm_caddr (args), scm_current_error_port ());
/*
The following is a kludge; we should probably search for
void
set_music_properties (Music *p, SCM a)
{
- for (SCM k = a; scm_is_pair (k); k = ly_cdr (k))
- p->internal_set_property (ly_caar (k), ly_cdar (k));
+ for (SCM k = a; scm_is_pair (k); k = scm_cdr (k))
+ p->internal_set_property (scm_caar (k), scm_cdar (k));
}
SCM
ly_input_procedure_p (SCM x)
{
return ly_c_procedure_p (x)
- || (scm_is_pair (x) && ly_c_procedure_p (ly_car (x)));
+ || (scm_is_pair (x) && ly_c_procedure_p (scm_car (x)));
}
Music*
| context_def_spec_body GROBDESCRIPTIONS embedded_scm {
Context_def*td = unsmob_context_def ($$);
- for (SCM p = $3; scm_is_pair (p); p = ly_cdr (p)) {
- SCM tag = ly_caar (p);
+ for (SCM p = $3; scm_is_pair (p); p = scm_cdr (p)) {
+ SCM tag = scm_caar (p);
/* TODO: should make new tag "grob-definition" ? */
td->add_context_mod (scm_list_3 (ly_symbol2scm ("assign"),
- tag, scm_cons (ly_cdar (p), SCM_EOL)));
+ tag, scm_cons (scm_cdar (p), SCM_EOL)));
}
}
| context_def_spec_body context_mod {
SCM c = scm_cons ($2->self_scm (), SCM_EOL);
scm_gc_unprotect_object ($2->self_scm ()); /* UGH */
- if (scm_is_pair (ly_cdr (s)))
- scm_set_cdr_x (ly_cdr (s), c); /* append */
+ if (scm_is_pair (scm_cdr (s)))
+ scm_set_cdr_x (scm_cdr (s), c); /* append */
else
scm_set_car_x (s, c); /* set first cons */
scm_set_cdr_x (s, c); /* remember last cell */
SCM c = scm_cons (m->self_scm (), SCM_EOL);
scm_gc_unprotect_object (m->self_scm ()); /* UGH */
- if (scm_is_pair (ly_cdr (s)))
- scm_set_cdr_x (ly_cdr (s), c); /* append */
+ if (scm_is_pair (scm_cdr (s)))
+ scm_set_cdr_x (scm_cdr (s), c); /* append */
else
scm_set_car_x (s, c); /* set first cons */
scm_set_cdr_x (s, c); /* remember last cell */
{
Music *beg = $4;
int times = $3;
- SCM alts = scm_is_pair ($5) ? ly_car ($5) : SCM_EOL;
+ SCM alts = scm_is_pair ($5) ? scm_car ($5) : SCM_EOL;
if (times < scm_ilength (alts)) {
- unsmob_music (ly_car (alts))
+ unsmob_music (scm_car (alts))
->origin ()->warning (
_ ("More alternatives than repeats. Junking excess alternatives."));
alts = ly_truncate_list (times, alts);
Sequential_music:
SEQUENTIAL '{' Music_list '}' {
$$ = MY_MAKE_MUSIC ("SequentialMusic");
- $$->set_property ("elements", ly_car ($3));
+ $$->set_property ("elements", scm_car ($3));
$$->set_spot (THIS->here_input ());
}
| '{' Music_list '}' {
$$ = MY_MAKE_MUSIC ("SequentialMusic");
- $$->set_property ("elements", ly_car ($2));
+ $$->set_property ("elements", scm_car ($2));
$$->set_spot (THIS->here_input ());
}
;
Simultaneous_music:
SIMULTANEOUS '{' Music_list '}'{
$$ = MY_MAKE_MUSIC ("SimultaneousMusic");
- $$->set_property ("elements", ly_car ($3));
+ $$->set_property ("elements", scm_car ($3));
$$->set_spot (THIS->here_input ());
}
| simul_open Music_list simul_close {
$$ = MY_MAKE_MUSIC ("SimultaneousMusic");
- $$->set_property ("elements", ly_car ($2));
+ $$->set_property ("elements", scm_car ($2));
$$->set_spot (THIS->here_input ());
}
;
Generic_prefix_music:
Generic_prefix_music_scm {
- SCM func = ly_car ($1);
- Input *loc = unsmob_input (ly_cadr ($1));
- SCM args = ly_cddr ($1);
+ SCM func = scm_car ($1);
+ Input *loc = unsmob_input (scm_cadr ($1));
+ SCM args = scm_cddr ($1);
SCM sig = scm_object_property (func, ly_symbol2scm ("music-function-signature"));
int k = 0;
bool ok = true;
for (SCM s = sig, t = args;
ok && scm_is_pair (s) && scm_is_pair (t);
- s = ly_cdr (s), t = ly_cdr (t)) {
+ s = scm_cdr (s), t = scm_cdr (t)) {
k++;
- if (scm_call_1 (ly_car (s), ly_car (t)) != SCM_BOOL_T)
+ if (scm_call_1 (scm_car (s), scm_car (t)) != SCM_BOOL_T)
{
loc->error (_f ("Argument %d failed typecheck", k));
THIS->error_level_ = 1;
}
SCM m = SCM_EOL;
if (ok)
- m = scm_apply_0 (func, ly_cdr ($1));
+ m = scm_apply_0 (func, scm_cdr ($1));
if (unsmob_music (m))
{
$$ = unsmob_music (m);
fraction Music
{
- int n = scm_to_int (ly_car ($3)); int d = scm_to_int (ly_cdr ($3));
+ int n = scm_to_int (scm_car ($3)); int d = scm_to_int (scm_cdr ($3));
Music *mp = $4;
$$= MY_MAKE_MUSIC ("TimeScaledMusic");
Music *all = MY_MAKE_MUSIC ("SimultaneousMusic");
SCM lst = SCM_EOL;
- for (SCM s = $2; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = $2; scm_is_pair (s); s = scm_cdr (s))
{
- Music *music = unsmob_music (ly_car (s));
+ Music *music = unsmob_music (scm_car (s));
Music *com = make_lyric_combine_music (name, music);
Music *csm = context_spec_music (context,
get_next_unique_context (), com, SCM_EOL);
OVERRIDE context_prop_spec embedded_scm '=' scalar {
$$ = property_op_to_music (scm_list_4 (
ly_symbol2scm ("poppush"),
- ly_cadr ($2),
+ scm_cadr ($2),
$3, $5));
- $$= context_spec_music (ly_car ($2), SCM_UNDEFINED, $$, SCM_EOL);
+ $$= context_spec_music (scm_car ($2), SCM_UNDEFINED, $$, SCM_EOL);
}
| REVERT context_prop_spec embedded_scm {
$$ = property_op_to_music (scm_list_3 (
ly_symbol2scm ("pop"),
- ly_cadr ($2),
+ scm_cadr ($2),
$3));
- $$= context_spec_music (ly_car ($2), SCM_UNDEFINED, $$, SCM_EOL);
+ $$= context_spec_music (scm_car ($2), SCM_UNDEFINED, $$, SCM_EOL);
}
| SET context_prop_spec '=' scalar {
$$ = property_op_to_music (scm_list_3 (
ly_symbol2scm ("assign"),
- ly_cadr ($2),
+ scm_cadr ($2),
$4));
- $$= context_spec_music (ly_car ($2), SCM_UNDEFINED, $$, SCM_EOL);
+ $$= context_spec_music (scm_car ($2), SCM_UNDEFINED, $$, SCM_EOL);
}
| UNSET context_prop_spec {
$$ = property_op_to_music (scm_list_2 (
ly_symbol2scm ("unset"),
- ly_cadr ($2)));
- $$= context_spec_music (ly_car ($2), SCM_UNDEFINED, $$, SCM_EOL);
+ scm_cadr ($2)));
+ $$= context_spec_music (scm_car ($2), SCM_UNDEFINED, $$, SCM_EOL);
}
| ONCE music_property_def {
SCM e = $2->get_property ("element");
SCM es = $1->get_property ("elements");
SCM postevs = scm_reverse_x ($3, SCM_EOL);
- for (SCM s = es; scm_is_pair (s); s = ly_cdr (s))
- unsmob_music (ly_car (s))->set_property ("duration", dur);
+ for (SCM s = es; scm_is_pair (s); s = scm_cdr (s))
+ unsmob_music (scm_car (s))->set_property ("duration", dur);
es = ly_append2 (es, postevs);
$1-> set_property ("elements", es);
| TIME_T fraction {
SCM proc= ly_scheme_function ("make-time-signature-set");
- SCM result = scm_apply_2 (proc, ly_car ($2), ly_cdr ($2), SCM_EOL);
+ SCM result = scm_apply_2 (proc, scm_car ($2), scm_cdr ($2), SCM_EOL);
scm_gc_protect_object (result);
$$ = unsmob_music (result);
}
$$ = unsmob_duration ($$)->compressed ( $3) .smobbed_copy ();
}
| multiplied_duration '*' FRACTION {
- Rational m (scm_to_int (ly_car ($3)), scm_to_int (ly_cdr ($3)));
+ Rational m (scm_to_int (scm_car ($3)), scm_to_int (scm_cdr ($3)));
$$ = unsmob_duration ($$)->compressed (m).smobbed_copy ();
}
Music *m = unsmob_music ($1);
Input i = THIS->pop_spot ();
m->set_spot (i);
- for (SCM s = m->get_property ("elements"); scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = m->get_property ("elements"); scm_is_pair (s); s = scm_cdr (s))
{
- unsmob_music (ly_car (s))->set_property ("duration", $2);
+ unsmob_music (scm_car (s))->set_property ("duration", $2);
}
$$ = m;
}
property_op_to_music (SCM op)
{
Music *m = 0;
- SCM tag = ly_car (op);
- SCM symbol = ly_cadr (op);
- SCM args = ly_cddr (op);
+ SCM tag = scm_car (op);
+ SCM symbol = scm_cadr (op);
+ SCM args = scm_cddr (op);
SCM grob_val = SCM_UNDEFINED;
SCM grob_sym = SCM_UNDEFINED;
SCM val = SCM_UNDEFINED;
if (tag == ly_symbol2scm ("assign"))
{
m = MY_MAKE_MUSIC ("PropertySet");
- val = ly_car (args);
+ val = scm_car (args);
}
else if (tag == ly_symbol2scm ("unset"))
m = MY_MAKE_MUSIC ("PropertyUnset");
|| tag == ly_symbol2scm ("push"))
{
m = MY_MAKE_MUSIC ("OverrideProperty");
- grob_sym = ly_car (args);
- grob_val = ly_cadr (args);
+ grob_sym = scm_car (args);
+ grob_val = scm_cadr (args);
}
else if (tag == ly_symbol2scm ("pop")) {
m = MY_MAKE_MUSIC ("RevertProperty");
- grob_sym = ly_car (args);
+ grob_sym = scm_car (args);
}
m->set_property ("symbol", symbol);
one_.set_translator (one);
set_translator (one);
- first_iter_ = unsmob_iterator (get_iterator (unsmob_music (ly_car (lst))));
+ first_iter_ = unsmob_iterator (get_iterator (unsmob_music (scm_car (lst))));
Context *two = tr->find_create_context (ly_symbol2scm ("Voice"),
"two", props);
two_.set_translator (two);
set_translator (two);
- second_iter_ = unsmob_iterator (get_iterator (unsmob_music (ly_cadr (lst))));
+ second_iter_ = unsmob_iterator (get_iterator (unsmob_music (scm_cadr (lst))));
set_translator (tr);
Moment now = get_outlet ()->now_mom ();
Moment *splitm = 0;
- for (; scm_is_pair (split_list_); split_list_ = ly_cdr (split_list_))
+ for (; scm_is_pair (split_list_); split_list_ = scm_cdr (split_list_))
{
- splitm = unsmob_moment (ly_caar (split_list_));
+ splitm = unsmob_moment (scm_caar (split_list_));
if (splitm && *splitm + start_moment_ > now)
break ;
- SCM tag = ly_cdar (split_list_);
+ SCM tag = scm_cdar (split_list_);
if (tag == ly_symbol2scm ("chords"))
chords_together ();
{
Audio_element_info info = announce_infos_[j];
- for (SCM p = get_simple_trans_list (); scm_is_pair (p); p = ly_cdr (p))
+ for (SCM p = get_simple_trans_list (); scm_is_pair (p); p = scm_cdr (p))
{
- Translator * t = unsmob_translator (ly_car (p));
+ Translator * t = unsmob_translator (scm_car (p));
Performer * eng = dynamic_cast<Performer*> (t);
if (eng && eng!= info.origin_trans_)
eng->acknowledge_audio_element (info);
void
performer_each (SCM list, Performer_method method)
{
- for (SCM p = list; scm_is_pair (p); p = ly_cdr (p))
+ for (SCM p = list; scm_is_pair (p); p = scm_cdr (p))
{
- Performer * e = dynamic_cast<Performer*>(unsmob_translator (ly_car (p)));
+ Performer * e = dynamic_cast<Performer*>(unsmob_translator (scm_car (p)));
if (e)
(e->*method) ();
}
}
else
{
- s = ly_cadr (strings);
+ s = scm_cadr (strings);
}
p->start_ev_ = p->event_drul_[START];
}
}
else
{
- s = ly_caddr (strings);
+ s = scm_caddr (strings);
}
p->start_ev_ = 0;
}
else if (p->event_drul_[START])
{
p->start_ev_ = p->event_drul_[START];
- s = ly_car (strings);
+ s = scm_car (strings);
if (!mixed)
{
/*
if (!p->event_drul_[START])
{
SCM flare = p->bracket_->get_property ("bracket-flare");
- p->bracket_->set_property ("bracket-flare", scm_cons (ly_car (flare),
+ p->bracket_->set_property ("bracket-flare", scm_cons (scm_car (flare),
scm_make_real (0)));
}
if (!p->finished_bracket_)
{
SCM flare = p->bracket_->get_property ("bracket-flare");
- p->bracket_->set_property ("bracket-flare", scm_cons (scm_make_real (0),ly_cdr (flare)));
+ p->bracket_->set_property ("bracket-flare", scm_cons (scm_make_real (0),scm_cdr (flare)));
}
{
SCM accept = get_outlet()->get_property ("quotedEventTypes");
for (SCM s = mus->get_property ("types");
- scm_is_pair (s); s = ly_cdr (s))
+ scm_is_pair (s); s = scm_cdr (s))
{
- if (scm_memq (ly_car (s), accept) != SCM_BOOL_F)
+ if (scm_memq (scm_car (s), accept) != SCM_BOOL_F)
return true;
}
{
int cmp = (lo + hi) / 2;
- SCM when = ly_caar (SCM_VECTOR_REF (vec, cmp));
+ SCM when = scm_caar (SCM_VECTOR_REF (vec, cmp));
bool result = (*is_less) (key, when);
if (result)
hi = cmp;
Quote_iterator::pending_moment () const
{
SCM entry = SCM_VECTOR_REF (event_vector_, event_idx_);
- return *unsmob_moment (ly_caar (entry)) - start_moment_;
+ return *unsmob_moment (scm_caar (entry)) - start_moment_;
}
void
{
entry = SCM_VECTOR_REF (event_vector_, event_idx_);
- Moment em = *unsmob_moment (ly_caar (entry));
+ Moment em = *unsmob_moment (scm_caar (entry));
if (em > m)
return ;
if (scm_is_pair (entry))
{
- Pitch * quote_pitch = unsmob_pitch (ly_cdar (entry));
+ Pitch * quote_pitch = unsmob_pitch (scm_cdar (entry));
/*
The pitch that sounds like central C
*/
Pitch * me_pitch = unsmob_pitch (get_outlet ()->get_property ("instrumentTransposition"));
- for (SCM s = ly_cdr (entry); scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = scm_cdr (entry); scm_is_pair (s); s = scm_cdr (s))
{
- SCM ev_acc = ly_car (s);
+ SCM ev_acc = scm_car (s);
- Music * mus = unsmob_music (ly_car (ev_acc));
+ Music * mus = unsmob_music (scm_car (ev_acc));
if (!mus)
programming_error ("need music in quote.");
else if (accept_music_type (mus))
SCM proc = get_property ("recordEventSequence");
if (ly_c_procedure_p (proc))
- scm_call_2 (proc, context ()->self_scm (), ly_cdr (accumulator_));
+ scm_call_2 (proc, context ()->self_scm (), scm_cdr (accumulator_));
}
bool
bool volta_found = false;
while (scm_is_pair (cs))
{
- SCM command = ly_car (cs);
+ SCM command = scm_car (cs);
if (command == ly_symbol2scm ("start-repeat"))
start = true;
else if (command == ly_symbol2scm ("end-repeat"))
end = true;
- else if (scm_is_pair (command) && ly_car (command) == ly_symbol2scm ("volta"))
+ else if (scm_is_pair (command) && scm_car (command) == ly_symbol2scm ("volta"))
volta_found = true;
- cs = ly_cdr (cs);
+ cs = scm_cdr (cs);
}
if (start && end)
{
lily_1_8_compatibility_used = true;
- for (SCM s = alternatives (); scm_is_pair (s); s = ly_cdr (s))
- unsmob_music (ly_car (s))->to_relative_octave (p);
+ for (SCM s = alternatives (); scm_is_pair (s); s = scm_cdr (s))
+ unsmob_music (scm_car (s))->to_relative_octave (p);
}
return last;
SCM p = alternatives ();
while (scm_is_pair (p) && done < repeat_count ())
{
- m = m + unsmob_music (ly_car (p))->get_length ();
+ m = m + unsmob_music (scm_car (p))->get_length ();
done ++;
if (repeat_count () - done < scm_ilength (alternatives ()))
- p = ly_cdr (p);
+ p = scm_cdr (p);
}
return m;
}
SCM p = alternatives ();
while (scm_is_pair (p))
{
- m = m + unsmob_music (ly_car (p))->get_length ();
- p = ly_cdr (p);
+ m = m + unsmob_music (scm_car (p))->get_length ();
+ p = scm_cdr (p);
}
return m;
}
Link_array<Grob> rests;
Link_array<Grob> notes;
- for (SCM s = elts; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = elts; scm_is_pair (s); s = scm_cdr (s))
{
- Grob * e = unsmob_grob (ly_car (s));
+ Grob * e = unsmob_grob (scm_car (s));
if (unsmob_grob (e->get_property ("rest")))
{
/*
{
int k = 0;
for (int i = SCM_VECTOR_LENGTH (src); i--;)
- for (SCM s = scm_vector_ref (src, scm_from_int (i)); scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = scm_vector_ref (src, scm_from_int (i)); scm_is_pair (s); s = scm_cdr (s))
{
- scm_hashq_set_x (dest, ly_caar (s), ly_cdar (s));
+ scm_hashq_set_x (dest, scm_caar (s), scm_cdar (s));
k++;
}
return k ;
SCM handle = scm_hashq_get_handle (hash_tab_, k);
if (scm_is_pair (handle))
{
- *v = ly_cdr (handle);
+ *v = scm_cdr (handle);
return true;
}
else
{
assert (scm_is_symbol (k));
SCM handle = scm_hashq_create_handle_x (hash_tab_, k, SCM_UNDEFINED);
- if (ly_cdr (handle) == SCM_UNDEFINED)
+ if (scm_cdr (handle) == SCM_UNDEFINED)
{
elt_count_++;
}
{
SCM l = SCM_EOL;
for (int i = SCM_VECTOR_LENGTH (hash_tab_); i--;)
- for (SCM s = scm_vector_ref (hash_tab_, scm_int2num (i)); scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = scm_vector_ref (hash_tab_, scm_int2num (i)); scm_is_pair (s); s = scm_cdr (s))
{
- l = scm_acons (ly_caar (s), ly_cdar (s), l);
+ l = scm_acons (scm_caar (s), scm_cdar (s), l);
}
return l;
}
{
/* URG? */
SCM check_funcs = ly_scheme_function ("toplevel-music-functions");
- for (; scm_is_pair (check_funcs); check_funcs = ly_cdr (check_funcs))
- music = scm_call_2 (ly_car (check_funcs), music, parser);
+ for (; scm_is_pair (check_funcs); check_funcs = scm_cdr (check_funcs))
+ music = scm_call_2 (scm_car (check_funcs), music, parser);
if (unsmob_music (music_))
{
Drul_array<SCM> scripts (SCM_EOL, SCM_EOL);
Link_array<Grob> staff_sided;
- for (SCM s = me->get_property ("scripts"); scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = me->get_property ("scripts"); scm_is_pair (s); s = scm_cdr (s))
{
- Grob *sc = unsmob_grob (ly_car (s));
+ Grob *sc = unsmob_grob (scm_car (s));
/*
Don't want to consider scripts horizontally next to notes.
ss = scm_stable_sort_x (ss, ly_grob_script_priority_less_proc);
Grob * last = 0;
- for (SCM s = ss; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = ss; scm_is_pair (s); s = scm_cdr (s))
{
- Grob *g = unsmob_grob (ly_car (s));
+ Grob *g = unsmob_grob (scm_car (s));
if (last)
Side_position_interface::add_support (g,last);
{
SCM entry = scm_assoc (sym, alist);
if (scm_is_pair (entry))
- g->internal_set_property (sym, ly_cdr (entry));
+ g->internal_set_property (sym, scm_cdr (entry));
}
}
return;
}
- art = ly_cdr (art);
+ art = scm_cdr (art);
SCM follow_scm = scm_assoc (ly_symbol2scm ("follow-into-staff"),
art);
- *follow = scm_is_pair (follow_scm) && to_boolean (ly_cdr (follow_scm));
+ *follow = scm_is_pair (follow_scm) && to_boolean (scm_cdr (follow_scm));
bool priority_found = false ;
- for (SCM s = art ; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = art ; scm_is_pair (s); s = scm_cdr (s))
{
- SCM sym = ly_caar (s);
+ SCM sym = scm_caar (s);
SCM type = scm_object_property (sym, ly_symbol2scm ("backend-type?"));
if (!ly_c_procedure_p (type))
continue;
- SCM val = ly_cdar (s);
+ SCM val = scm_cdar (s);
if (sym == ly_symbol2scm ("script-priority"))
{
SCM s = me->get_property ("script-stencil");
assert (scm_is_pair (s));
- SCM key = ly_car (s);
+ SCM key = scm_car (s);
if (key == ly_symbol2scm ("feta"))
{
- SCM name_entry = ly_cdr (s);
+ SCM name_entry = scm_cdr (s);
SCM str = ((scm_is_pair (name_entry)) ? index_get_cell (name_entry, d)
: name_entry);
return Font_interface::get_default_font (me)
->find_by_name ("scripts-" + ly_scm2string (str));
}
else if (key == ly_symbol2scm ("accordion"))
- return Lookup::accordion (ly_cdr (s), 1.0,
+ return Lookup::accordion (scm_cdr (s), 1.0,
Font_interface::get_default_font (me));
else
assert (false);
return;
- for (; scm_is_pair (next); next = ly_cdr (next))
+ for (; scm_is_pair (next); next = scm_cdr (next))
{
- Item *l = dynamic_cast<Item*> (unsmob_grob (ly_car ( next)));
+ Item *l = dynamic_cast<Item*> (unsmob_grob (scm_car ( next)));
Item *lb = l->find_prebroken_piece (RIGHT);
if (lb)
*/
Real padding = robust_scm2double (me->get_property ("padding"), 0.1);
- for (SCM s = me->get_property ("elements"); scm_is_pair (s) && scm_is_pair (ly_cdr (s)); s = ly_cdr (s))
+ for (SCM s = me->get_property ("elements"); scm_is_pair (s) && scm_is_pair (scm_cdr (s)); s = scm_cdr (s))
{
/*
Order of elements is reversed!
*/
- SCM elt = ly_car (s);
+ SCM elt = scm_car (s);
Item *r = unsmob_item (elt);
if (!r)
Item *rb
= dynamic_cast<Item*> (r->find_prebroken_piece (LEFT));
- find_rods (r, ly_cdr (s), padding);
+ find_rods (r, scm_cdr (s), padding);
if (rb)
- find_rods (rb, ly_cdr (s), padding);
+ find_rods (rb, scm_cdr (s), padding);
}
return SCM_UNSPECIFIED ;
Paper_column * pc = item->get_column ();
- for (SCM s = me->get_property ("conditional-elements"); scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = me->get_property ("conditional-elements"); scm_is_pair (s); s = scm_cdr (s))
{
- SCM elt = ly_car (s);
+ SCM elt = scm_car (s);
if (!unsmob_grob (elt))
continue;
Paper_column * pc = item->get_column ();
Interval w;
- for (SCM s = me->get_property ("elements"); scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = me->get_property ("elements"); scm_is_pair (s); s = scm_cdr (s))
{
- SCM elt = ly_car (s);
+ SCM elt = scm_car (s);
if (!unsmob_grob (elt))
continue;
last_ext->set_empty ();
Grob *last_grob = 0;
for (SCM s = separation_item->get_property ("elements");
- scm_is_pair (s); s = ly_cdr (s))
+ scm_is_pair (s); s = scm_cdr (s))
{
- Grob * break_item = unsmob_grob (ly_car (s));
+ Grob * break_item = unsmob_grob (scm_car (s));
if (!scm_is_symbol (break_item->get_property ("break-align-symbol")))
continue;
if (scm_is_pair (cursor_))
- iter_->music_ == unsmob_music (ly_car (cursor_))
+ iter_->music_ == unsmob_music (scm_car (cursor_))
else
iter_ == 0;
Grace_fixup *head = 0;
Grace_fixup **tail = &head;
- for (; scm_is_pair (cursor); cursor = ly_cdr (cursor))
+ for (; scm_is_pair (cursor); cursor = scm_cdr (cursor))
{
- Music *mus = unsmob_music (ly_car (cursor));
+ Music *mus = unsmob_music (scm_car (cursor));
Moment s = mus->start_mom ();
Moment l = mus->get_length () - s;
iter_ = 0;
if (scm_is_pair (cursor_))
{
- Music *m = unsmob_music (ly_car (cursor_));
+ Music *m = unsmob_music (scm_car (cursor_));
iter_ = unsmob_iterator (get_iterator (m));
}
here_mom_ += len;
}
- cursor_ = ly_cdr (cursor_);
+ cursor_ = scm_cdr (cursor_);
iter_->quit ();
if (scm_is_pair (cursor_))
- iter_ = unsmob_iterator (get_iterator (unsmob_music (ly_car (cursor_))));
+ iter_ = unsmob_iterator (get_iterator (unsmob_music (scm_car (cursor_))));
else
iter_ = 0;
}
dim = st->extent (common, Y_AXIS);
}
- for (SCM s = support; s != SCM_EOL; s = ly_cdr (s))
+ for (SCM s = support; s != SCM_EOL; s = scm_cdr (s))
{
- Grob * e = unsmob_grob (ly_car (s));
+ Grob * e = unsmob_grob (scm_car (s));
if (e)
if (use_extents)
dim.unite (e->extent (common, a));
bool is_ragged = ragged == SCM_BOOL_T;
Simple_spacer spacer;
- for (SCM s = springs; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = springs; scm_is_pair (s); s = scm_cdr (s))
{
- Real ideal = scm_to_double (ly_caar (s));
- Real hooke = scm_to_double (ly_cadar (s));
+ Real ideal = scm_to_double (scm_caar (s));
+ Real hooke = scm_to_double (scm_cadar (s));
spacer.add_spring (ideal, hooke);
}
- for (SCM s = rods; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = rods; scm_is_pair (s); s = scm_cdr (s))
{
- SCM entry = ly_car (s);
- int l = scm_to_int (ly_car (entry));
- int r = scm_to_int (ly_cadr (entry));
- entry = ly_cddr (entry);
+ SCM entry = scm_car (s);
+ int l = scm_to_int (scm_car (entry));
+ int r = scm_to_int (scm_cadr (entry));
+ entry = scm_cddr (entry);
- Real distance = scm_to_double (ly_car (entry));
+ Real distance = scm_to_double (scm_car (entry));
spacer.add_rod (l, r, distance);
}
for (SCM s = cols[i]->get_property ("ideal-distances");
!spring && scm_is_pair (s);
- s = ly_cdr (s))
+ s = scm_cdr (s))
{
- Spring_smob *sp = unsmob_spring (ly_car (s));
+ Spring_smob *sp = unsmob_spring (scm_car (s));
if (sp->other_ == cols[i+1])
for (int i=0; i < cols.size () - 1; i++)
{
for (SCM s = Spaceable_grob::get_minimum_distances (cols[i]);
- scm_is_pair (s); s = ly_cdr (s))
+ scm_is_pair (s); s = scm_cdr (s))
{
- Grob * other = unsmob_grob (ly_caar (s));
+ Grob * other = unsmob_grob (scm_caar (s));
int oi = cols.find_index (other);
if (oi >= 0)
{
- spacer_->add_rod (i, oi, scm_to_double (ly_cdar (s)));
+ spacer_->add_rod (i, oi, scm_to_double (scm_cdar (s)));
}
}
}
void
Simultaneous_music_iterator::derived_substitute (Context *f,Context *t)
{
- for (SCM s = children_list_; scm_is_pair (s); s = ly_cdr (s))
- unsmob_iterator (ly_car (s))-> substitute_outlet (f,t);
+ for (SCM s = children_list_; scm_is_pair (s); s = scm_cdr (s))
+ unsmob_iterator (scm_car (s))-> substitute_outlet (f,t);
}
void
children_list_ = SCM_EOL;
SCM * tail = &children_list_;
- for (; scm_is_pair (i); i = ly_cdr (i), j++)
+ for (; scm_is_pair (i); i = scm_cdr (i), j++)
{
- Music *mus = unsmob_music (ly_car (i));
+ Music *mus = unsmob_music (scm_car (i));
SCM scm_iter = get_static_get_iterator (mus);
Music_iterator * mi = unsmob_iterator (scm_iter);
SCM *proc = &children_list_;
while (scm_is_pair (*proc))
{
- Music_iterator * i = unsmob_iterator (ly_car (*proc));
+ Music_iterator * i = unsmob_iterator (scm_car (*proc));
if (i->run_always ()
|| i->pending_moment () == until)
{
if (!i->ok ())
{
i->quit ();
- *proc = ly_cdr (*proc);
+ *proc = scm_cdr (*proc);
}
else
{
Moment next;
next.set_infinite (1);
- for (SCM s = children_list_; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = children_list_; scm_is_pair (s); s = scm_cdr (s))
{
- Music_iterator * it = unsmob_iterator (ly_car (s));
+ Music_iterator * it = unsmob_iterator (scm_car (s));
next = next <? it->pending_moment ();
}
Simultaneous_music_iterator::ok () const
{
bool run_always_ok = false;
- for (SCM s = children_list_; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = children_list_; scm_is_pair (s); s = scm_cdr (s))
{
- Music_iterator * it = unsmob_iterator (ly_car (s));
+ Music_iterator * it = unsmob_iterator (scm_car (s));
if (!it->run_always ())
return true;
else
bool
Simultaneous_music_iterator::run_always () const
{
- for (SCM s = children_list_; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = children_list_; scm_is_pair (s); s = scm_cdr (s))
{
- Music_iterator * it = unsmob_iterator (ly_car (s));
+ Music_iterator * it = unsmob_iterator (scm_car (s));
if (it->run_always ())
return true;
}
Simultaneous_music_iterator::try_music_in_children (Music *m) const
{
Music_iterator * b=0;
- for (SCM s = children_list_; !b && scm_is_pair (s); s = ly_cdr (s))
- b =unsmob_iterator (ly_car (s))->try_music (m);
+ for (SCM s = children_list_; !b && scm_is_pair (s); s = scm_cdr (s))
+ b =unsmob_iterator (scm_car (s))->try_music (m);
return b;
}
void
Simultaneous_music_iterator::do_quit ()
{
- for (SCM s = children_list_; scm_is_pair (s); s = ly_cdr (s))
- unsmob_iterator (ly_car (s))->quit ();
+ for (SCM s = children_list_; scm_is_pair (s); s = scm_cdr (s))
+ unsmob_iterator (scm_car (s))->quit ();
}
IMPLEMENT_CTOR_CALLBACK (Simultaneous_music_iterator);
{
SCM entry = scm_assq (sym, alist);
return robust_scm2double (scm_is_pair (entry)
- ? ly_cdr (entry)
+ ? scm_cdr (entry)
: SCM_EOL,
0.0);
}
- SCM last_point = ly_car (scm_last_pair (neighbor->get_property ("control-points")));
+ SCM last_point = scm_car (scm_last_pair (neighbor->get_property ("control-points")));
- return scm_to_double (ly_cdr (last_point))
+ return scm_to_double (scm_cdr (last_point))
+ neighbor->relative_coordinate (common_next_system, Y_AXIS);
}
return by;
&& scm_ilength (accs) == 1)
{
/* End copy accidental.cc */
- switch (scm_to_int (ly_car (accs)))
+ switch (scm_to_int (scm_car (accs)))
{
case FLAT:
case DOUBLE_FLAT:
Bezier b;
int i = 0;
for (SCM s = me->get_property ("control-points"); s != SCM_EOL;
- s = ly_cdr (s))
- b.control_[i++] = ly_scm2offset (ly_car (s));
+ s = scm_cdr (s))
+ b.control_[i++] = ly_scm2offset (scm_car (s));
return b;
}
SCM mins = get_minimum_distances (me);
SCM newdist = scm_make_real (d);
- for (SCM s = mins; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = mins; scm_is_pair (s); s = scm_cdr (s))
{
- SCM dist = ly_car (s);
- if (ly_car (dist) == p->self_scm ())
+ SCM dist = scm_car (s);
+ if (scm_car (dist) == p->self_scm ())
{
- scm_set_cdr_x (dist, scm_max (ly_cdr (dist),
+ scm_set_cdr_x (dist, scm_max (scm_cdr (dist),
newdist));
return ;
}
#ifndef NDEBUG
SCM mins = me->get_property ("ideal-distances");
- for (SCM s = mins; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = mins; scm_is_pair (s); s = scm_cdr (s))
{
- Spring_smob * sp = unsmob_spring(ly_car (s));
+ Spring_smob * sp = unsmob_spring(scm_car (s));
if (sp->other_ == p)
{
programming_error ("already have that spring");
if (!scm_is_pair (lns) || !scm_is_pair (rns))
return false;
- Item * l_neighbor = dynamic_cast<Item*> (unsmob_grob (ly_car (lns)));
- Item * r_neighbor = dynamic_cast<Item*> (unsmob_grob (ly_car (rns)));
+ Item * l_neighbor = dynamic_cast<Item*> (unsmob_grob (scm_car (lns)));
+ Item * r_neighbor = dynamic_cast<Item*> (unsmob_grob (scm_car (rns)));
if (!l_neighbor || !r_neighbor)
return false;
in any case, we don't want to move bar lines.
*/
- for (SCM e = c->get_property ("elements"); scm_is_pair (e); e = ly_cdr (e))
+ for (SCM e = c->get_property ("elements"); scm_is_pair (e); e = scm_cdr (e))
{
- Grob * g = unsmob_grob (ly_car (e));
+ Grob * g = unsmob_grob (scm_car (e));
if (g && Break_align_interface::has_interface (g))
{
for (SCM s = g->get_property ("elements"); scm_is_pair (s);
- s = ly_cdr (s))
+ s = scm_cdr (s))
{
- Grob *h = unsmob_grob (ly_car (s));
+ Grob *h = unsmob_grob (scm_car (s));
/*
ugh. -- fix staff-bar name?
if (loose_column (cols->elem (i-1), c, cols->elem (i+1)))
{
SCM lns = c->get_property ("left-neighbors");
- lns = scm_is_pair (lns) ? ly_car (lns) : SCM_BOOL_F;
+ lns = scm_is_pair (lns) ? scm_car (lns) : SCM_BOOL_F;
SCM rns = c->get_property ("right-neighbors");
- rns = scm_is_pair (rns) ? ly_car (rns) : SCM_BOOL_F;
+ rns = scm_is_pair (rns) ? scm_car (rns) : SCM_BOOL_F;
/*
Either object can be non existent, if the score ends
prematurely.
*/
- rns = ly_car (unsmob_grob (rns)->get_property ("right-items"));
+ rns = scm_car (unsmob_grob (rns)->get_property ("right-items"));
c->set_property ("between-cols", scm_cons (lns,
rns));
Item *rc = dynamic_cast<Item*> (d == LEFT ? c : next_door[RIGHT]);
for (SCM s = lc->get_property ("spacing-wishes");
- scm_is_pair (s); s = ly_cdr (s))
+ scm_is_pair (s); s = scm_cdr (s))
{
- Grob *sp = unsmob_grob (ly_car (s));
+ Grob *sp = unsmob_grob (scm_car (s));
if (Note_spacing::left_column (sp) != lc
|| Note_spacing::right_column (sp) != rc)
continue;
SCM wishes= cols[i]->get_property ("spacing-wishes");
- for (SCM s =wishes; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s =wishes; scm_is_pair (s); s = scm_cdr (s))
{
- Item * wish = dynamic_cast<Item*> (unsmob_grob (ly_car (s)));
+ Item * wish = dynamic_cast<Item*> (unsmob_grob (scm_car (s)));
Item * lc = wish->get_column ();
Grob * right = Note_spacing::right_column (wish);
int maxrank = 0;
SCM left_neighs = rc->get_property ("left-neighbors");
if (scm_is_pair (left_neighs)
- && unsmob_grob (ly_car (left_neighs)))
+ && unsmob_grob (scm_car (left_neighs)))
{
- Item * it = dynamic_cast<Item*> (unsmob_grob (ly_car (left_neighs)));
+ Item * it = dynamic_cast<Item*> (unsmob_grob (scm_car (left_neighs)));
maxrank = Paper_column::get_rank (it->get_column ());
}
happens after the current note (this is set in the grob
property SPACING-SEQUENCE.
*/
- for (SCM s = seq; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = seq; scm_is_pair (s); s = scm_cdr (s))
{
- Grob * wish = unsmob_grob (ly_car (s));
+ Grob * wish = unsmob_grob (scm_car (s));
Item *wish_rcol = Note_spacing::right_column (wish);
if (Note_spacing::left_column (wish) != lc
if (dt == Moment (0,0))
{
for (SCM s = l->get_property ("spacing-wishes");
- scm_is_pair (s); s = ly_cdr (s))
+ scm_is_pair (s); s = scm_cdr (s))
{
- Item * spacing_grob = dynamic_cast<Item*> (unsmob_grob (ly_car (s)));
+ Item * spacing_grob = dynamic_cast<Item*> (unsmob_grob (scm_car (s)));
if (!spacing_grob || !Staff_spacing::has_interface (spacing_grob))
continue;
for (int i=0; i < arpeggios_.size (); i ++)
{
for (SCM s = arpeggios_[i]->get_property ("stems");
- scm_is_pair (s); s = ly_cdr (s))
- Group_interface::add_thing (span_arpeggio_, ly_symbol2scm ("stems"), ly_car (s));
+ scm_is_pair (s); s = scm_cdr (s))
+ Group_interface::add_thing (span_arpeggio_, ly_symbol2scm ("stems"), scm_car (s));
for (SCM s = arpeggios_[i]->get_property ("side-support-elements");
- scm_is_pair (s); s = ly_cdr (s))
- Group_interface::add_thing (span_arpeggio_, ly_symbol2scm ("side-support-elements"), ly_car (s));
+ scm_is_pair (s); s = scm_cdr (s))
+ Group_interface::add_thing (span_arpeggio_, ly_symbol2scm ("side-support-elements"), scm_car (s));
/*
we can't kill the children, since we don't want to the
/* compute common refpoint of elements */
Grob *refp = me;
- for (SCM elts = first_elt; scm_is_pair (elts); elts = ly_cdr (elts))
+ for (SCM elts = first_elt; scm_is_pair (elts); elts = scm_cdr (elts))
{
- SCM smobbed_staff_bar = ly_car (elts);
+ SCM smobbed_staff_bar = scm_car (elts);
Grob *staff_bar = unsmob_grob (smobbed_staff_bar);
refp = staff_bar->common_refpoint (refp, Y_AXIS);
}
Stencil span_bar_mol;
Interval prev_extent;
- for (SCM elts = first_elt; scm_is_pair (elts); elts = ly_cdr (elts))
+ for (SCM elts = first_elt; scm_is_pair (elts); elts = scm_cdr (elts))
{
- SCM smobbed_staff_bar = ly_car (elts);
+ SCM smobbed_staff_bar = scm_car (elts);
Grob *staff_bar = unsmob_grob (smobbed_staff_bar);
Interval ext = staff_bar->extent (refp, Y_AXIS);
if (ext.is_empty ())
return ;
for (SCM s = me->get_property ("elements");
- !scm_is_string (gl) && scm_is_pair (s); s = ly_cdr (s))
+ !scm_is_string (gl) && scm_is_pair (s); s = scm_cdr (s))
{
- gl = unsmob_grob (ly_car (s))
+ gl = unsmob_grob (scm_car (s))
->get_property ("glyph");
}
Real max_corr =0.0;
for (SCM s = me->get_property ("right-items");
- scm_is_pair (s); s = ly_cdr (s))
+ scm_is_pair (s); s = scm_cdr (s))
{
- Grob * g = unsmob_grob (ly_car (s));
+ Grob * g = unsmob_grob (scm_car (s));
max_corr = max_corr >? next_note_correction (me, g, bar_size);
for (SCM t = g->get_property ("elements");
- scm_is_pair (t); t = ly_cdr (t))
- max_corr = max_corr >? next_note_correction (me, unsmob_grob (ly_car (t)), bar_size);
+ scm_is_pair (t); t = scm_cdr (t))
+ max_corr = max_corr >? next_note_correction (me, unsmob_grob (scm_car (t)), bar_size);
}
Item * me_item = dynamic_cast<Item*> (me);
for (SCM s = me->get_property ("left-items");
- scm_is_pair (s); s = ly_cdr (s))
+ scm_is_pair (s); s = scm_cdr (s))
{
- Grob * cand = unsmob_grob (ly_car (s));
+ Grob * cand = unsmob_grob (scm_car (s));
if (cand && Separation_item::has_interface (cand))
separation_item = cand ;
}
return;
}
- space_def = ly_cdr (space_def);
- Real distance = scm_to_double (ly_cdr (space_def));
- SCM type = ly_car (space_def) ;
+ space_def = scm_cdr (space_def);
+ Real distance = scm_to_double (scm_cdr (space_def));
+ SCM type = scm_car (space_def) ;
*fixed = last_ext[RIGHT];
if (type == ly_symbol2scm ("fixed-space"))
Real dy = 0;
SCM s = beam->get_property ("positions");
if (is_number_pair (s))
- dy = -scm_to_double (ly_car (s)) +scm_to_double (ly_cdr (s));
+ dy = -scm_to_double (scm_car (s)) +scm_to_double (scm_cdr (s));
Real dx = Beam::last_visible_stem (beam)->relative_coordinate (0, X_AXIS)
- Beam::first_visible_stem (beam)->relative_coordinate (0, X_AXIS);
{
if (head_count (me) == 1)
/* UGH. */
- return unsmob_grob (ly_car (me->get_property ("note-heads")));
+ return unsmob_grob (scm_car (me->get_property ("note-heads")));
return first_head (me);
}
exthead[LEFT] = exthead[RIGHT] =0;
for (SCM s = me->get_property ("note-heads"); scm_is_pair (s);
- s = ly_cdr (s))
+ s = scm_cdr (s))
{
- Grob *n = unsmob_grob (ly_car (s));
+ Grob *n = unsmob_grob (scm_car (s));
int p = Staff_symbol_referencer::get_rounded_position (n);
Direction d = LEFT;
{
Array<int> ps ;
for (SCM s = me->get_property ("note-heads"); scm_is_pair (s);
- s = ly_cdr (s))
+ s = scm_cdr (s))
{
- Grob *n = unsmob_grob (ly_car (s));
+ Grob *n = unsmob_grob (scm_car (s));
int p = Staff_symbol_referencer::get_rounded_position (n);
ps.push (p);
Stem_info si;
si.dir_ = get_grob_direction (me);
- si.ideal_y_ = scm_to_double (ly_car (scm_info));
- si.shortest_y_ = scm_to_double (ly_cadr (scm_info));
+ si.ideal_y_ = scm_to_double (scm_car (scm_info));
+ si.shortest_y_ = scm_to_double (scm_cadr (scm_info));
return si;
}
Stem::beam_multiplicity (Grob *stem)
{
SCM beaming= stem->get_property ("beaming");
- Slice le = int_list_to_slice (ly_car (beaming));
- Slice ri = int_list_to_slice (ly_cdr (beaming));
+ Slice le = int_list_to_slice (scm_car (beaming));
+ Slice ri = int_list_to_slice (scm_cdr (beaming));
le.unite (ri);
return le;
}
while (!SCM_NULLP (args))
{
- Stencil *s = unsmob_stencil (ly_car (args));
+ Stencil *s = unsmob_stencil (scm_car (args));
if (!s)
- SCM_ASSERT_TYPE (s, ly_car (args), SCM_ARGn, __FUNCTION__, "Stencil");
+ SCM_ASSERT_TYPE (s, scm_car (args), SCM_ARGn, __FUNCTION__, "Stencil");
result.add_stencil (*s);
- args = ly_cdr (args);
+ args = scm_cdr (args);
}
return result.smobbed_copy ();
if (!scm_is_pair (expr))
return;
- SCM head = ly_car (expr);
+ SCM head = scm_car (expr);
if (head == ly_symbol2scm ("translate-stencil"))
{
- o += ly_scm2offset (ly_cadr (expr));
- expr = ly_caddr (expr);
+ o += ly_scm2offset (scm_cadr (expr));
+ expr = scm_caddr (expr);
}
else if (head == ly_symbol2scm ("combine-stencil"))
{
- for (SCM x = ly_cdr (expr); scm_is_pair (x); x = ly_cdr (x))
- interpret_stencil_expression (ly_car (x), func, func_arg, o);
+ for (SCM x = scm_cdr (expr); scm_is_pair (x); x = scm_cdr (x))
+ interpret_stencil_expression (scm_car (x), func, func_arg, o);
return;
}
else if (head == ly_symbol2scm ("grob-cause"))
{
- SCM grob = ly_cadr (expr);
+ SCM grob = scm_cadr (expr);
(*func) (func_arg, scm_list_2 (head, grob));
- interpret_stencil_expression (ly_caddr (expr), func, func_arg, o);
+ interpret_stencil_expression (scm_caddr (expr), func, func_arg, o);
(*func) (func_arg, scm_list_1 (ly_symbol2scm ("no-origin")));
return ;
{
Font_list *me = (Font_list*) fs;
- if (ly_car (x) == ly_symbol2scm ("placebox"))
+ if (scm_car (x) == ly_symbol2scm ("placebox"))
{
- SCM args = ly_cdr (x);
- SCM what = ly_caddr (args);
+ SCM args = scm_cdr (x);
+ SCM what = scm_caddr (args);
if (scm_is_pair (what))
{
- SCM head = ly_car (what);
+ SCM head = scm_car (what);
if (ly_symbol2scm ("text") == head)
- me->fonts_ = scm_cons (ly_cadr (what), me->fonts_);
+ me->fonts_ = scm_cons (scm_cadr (what), me->fonts_);
else if (head == ly_symbol2scm ("char"))
- me->fonts_ = scm_cons (ly_cadr (what), me->fonts_);
+ me->fonts_ = scm_cons (scm_cadr (what), me->fonts_);
}
}
}
*/
SCM elts = me->get_property ("elements");
Grob *common = common_refpoint_of_list (elts, me, Y_AXIS);
- for (SCM s = elts; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = elts; scm_is_pair (s); s = scm_cdr (s))
{
- Interval v = unsmob_grob (ly_car (s))->extent (common, Y_AXIS);
+ Interval v = unsmob_grob (scm_car (s))->extent (common, Y_AXIS);
if (!v.is_empty ())
count ++;
Grob * common = common_refpoint_of_list (elts, me, Y_AXIS);
Interval ext;
- for (SCM s = elts; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = elts; scm_is_pair (s); s = scm_cdr (s))
{
- Spanner * sp = unsmob_spanner (ly_car (s));
+ Spanner * sp = unsmob_spanner (scm_car (s));
if (sp &&
sp->get_bound (LEFT) == me->get_bound (LEFT))
{
System::spanner_count () const
{
int k = 0;
- for (SCM s = get_property ("all-elements"); scm_is_pair (s); s = ly_cdr (s))
- if (dynamic_cast<Spanner*> (unsmob_grob (ly_car (s))))
+ for (SCM s = get_property ("all-elements"); scm_is_pair (s); s = scm_cdr (s))
+ if (dynamic_cast<Spanner*> (unsmob_grob (scm_car (s))))
k++;
return k;
}
static void
fixup_refpoints (SCM s)
{
- for (; scm_is_pair (s); s = ly_cdr (s))
+ for (; scm_is_pair (s); s = scm_cdr (s))
{
- Grob::fixup_refpoint (ly_car (s));
+ Grob::fixup_refpoint (scm_car (s));
}
}
SCM
System::get_lines ()
{
- for (SCM s = get_property ("all-elements"); scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = get_property ("all-elements"); scm_is_pair (s); s = scm_cdr (s))
{
- Grob *g = unsmob_grob (ly_car (s));
+ Grob *g = unsmob_grob (scm_car (s));
if (g->internal_has_interface (ly_symbol2scm ("only-prebreak-interface")))
{
/*
{
Grob *se = broken_intos_[i];
SCM all = se->get_property ("all-elements");
- for (SCM s = all; scm_is_pair (s); s = ly_cdr (s))
- fixup_refpoint (ly_car (s));
+ for (SCM s = all; scm_is_pair (s); s = scm_cdr (s))
+ fixup_refpoint (scm_car (s));
count += scm_ilength (all);
}
*/
fixup_refpoints (get_property ("all-elements"));
- for (SCM s = get_property ("all-elements"); scm_is_pair (s); s = ly_cdr (s))
- unsmob_grob (ly_car (s))->handle_broken_dependencies ();
+ for (SCM s = get_property ("all-elements"); scm_is_pair (s); s = scm_cdr (s))
+ unsmob_grob (scm_car (s))->handle_broken_dependencies ();
handle_broken_dependencies ();
#if 0 /* don't do this: strange side effects. */
if (!scm_is_pair (between))
break;
- Item *le = dynamic_cast<Item*> (unsmob_grob (ly_car (between)));
- Item *re = dynamic_cast<Item*> (unsmob_grob (ly_cdr (between)));
+ Item *le = dynamic_cast<Item*> (unsmob_grob (scm_car (between)));
+ Item *re = dynamic_cast<Item*> (unsmob_grob (scm_cdr (between)));
if (!(le && re))
break;
{
Grob *me = this;
SCM cs = me->get_property ("columns");
- Grob *prev = scm_is_pair (cs) ? unsmob_grob (ly_car (cs)) : 0;
+ Grob *prev = scm_is_pair (cs) ? unsmob_grob (scm_car (cs)) : 0;
p->rank_ = prev ? Paper_column::get_rank (prev) + 1 : 0;
void
System::pre_processing ()
{
- for (SCM s = get_property ("all-elements"); scm_is_pair (s); s = ly_cdr (s))
- unsmob_grob (ly_car (s))->discretionary_processing ();
+ for (SCM s = get_property ("all-elements"); scm_is_pair (s); s = scm_cdr (s))
+ unsmob_grob (scm_car (s))->discretionary_processing ();
if (verbose_global_b)
progress_indication (_f ("Grob count %d", element_count ()));
- for (SCM s = get_property ("all-elements"); scm_is_pair (s); s = ly_cdr (s))
- unsmob_grob (ly_car (s))->handle_prebroken_dependencies ();
+ for (SCM s = get_property ("all-elements"); scm_is_pair (s); s = scm_cdr (s))
+ unsmob_grob (scm_car (s))->handle_prebroken_dependencies ();
fixup_refpoints (get_property ("all-elements"));
- for (SCM s = get_property ("all-elements"); scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = get_property ("all-elements"); scm_is_pair (s); s = scm_cdr (s))
{
- Grob *sc = unsmob_grob (ly_car (s));
+ Grob *sc = unsmob_grob (scm_car (s));
sc->calculate_dependencies (PRECALCED, PRECALCING, ly_symbol2scm ("before-line-breaking-callback"));
}
progress_indication ("\n");
progress_indication (_ ("Calculating line breaks..."));
progress_indication (" ");
- for (SCM s = get_property ("all-elements"); scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = get_property ("all-elements"); scm_is_pair (s); s = scm_cdr (s))
{
- Grob *e = unsmob_grob (ly_car (s));
+ Grob *e = unsmob_grob (scm_car (s));
SCM proc = e->get_property ("spacing-procedure");
if (ly_c_procedure_p (proc))
scm_call_1 (proc, e->self_scm ());
void
System::post_processing ()
{
- for (SCM s = get_property ("all-elements"); scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = get_property ("all-elements"); scm_is_pair (s); s = scm_cdr (s))
{
- Grob *g = unsmob_grob (ly_car (s));
+ Grob *g = unsmob_grob (scm_car (s));
g->calculate_dependencies (POSTCALCED, POSTCALCING,
ly_symbol2scm ("after-line-breaking-callback"));
}
all = ly_list_qsort_uniq_x (all);
this->get_stencil ();
- for (SCM s = all; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = all; scm_is_pair (s); s = scm_cdr (s))
{
- Grob *g = unsmob_grob (ly_car (s));
+ Grob *g = unsmob_grob (scm_car (s));
g->get_stencil ();
}
}
staff_refpoints.set_empty();
for (int i = LAYER_COUNT; i--;)
- for (SCM s = all; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = all; scm_is_pair (s); s = scm_cdr (s))
{
- Grob *g = unsmob_grob (ly_car (s));
+ Grob *g = unsmob_grob (scm_car (s));
Stencil *stil = g->get_stencil ();
if (i == 0
right = right->get_column ();
SCM s = get_property ("columns");
- while (scm_is_pair (s) && ly_car (s) != right->self_scm ())
- s = ly_cdr (s);
+ while (scm_is_pair (s) && scm_car (s) != right->self_scm ())
+ s = scm_cdr (s);
if (scm_is_pair (s))
- s = ly_cdr (s);
+ s = scm_cdr (s);
- while (scm_is_pair (s) && ly_car (s) != left->self_scm ())
+ while (scm_is_pair (s) && scm_car (s) != left->self_scm ())
{
- Paper_column*c = dynamic_cast<Paper_column*> (unsmob_grob (ly_car (s)));
+ Paper_column*c = dynamic_cast<Paper_column*> (unsmob_grob (scm_car (s)));
if (Item::is_breakable (c) && !c->system_)
ret.push (c);
- s = ly_cdr (s);
+ s = scm_cdr (s);
}
ret.reverse ();
Music * tabstring_event=0;
for (SCM s =event->get_property ("articulations");
- !tabstring_event && scm_is_pair (s); s = ly_cdr (s))
+ !tabstring_event && scm_is_pair (s); s = scm_cdr (s))
{
- Music * art = unsmob_music (ly_car (s));
+ Music * art = unsmob_music (scm_car (s));
if (art->is_mus_type ("string-number-event"))
tabstring_event = art;
return interpret_string (paper_smob, props, SCM_EOL, markup);
else if (scm_is_pair (markup))
{
- SCM func = ly_car (markup);
- SCM args = ly_cdr (markup);
+ SCM func = scm_car (markup);
+ SCM args = scm_cdr (markup);
if (!markup_p (markup))
programming_error ("Markup head has no markup signature.");
return (scm_is_string (x)
|| (scm_is_pair (x)
&& SCM_BOOL_F
- != scm_object_property (ly_car (x),
+ != scm_object_property (scm_car (x),
ly_symbol2scm ("markup-signature"))));
}
SCM lim // groetjes aan de chirurgendochter.
= scm_assq (ly_symbol2scm ("height-limit"),details);
- Real h_inf = scm_to_double (ly_cdr (lim)) * staff_space;
- Real r_0 = scm_to_double (ly_cdr (scm_assq (ly_symbol2scm ("ratio"),details)));
+ Real h_inf = scm_to_double (scm_cdr (lim)) * staff_space;
+ Real r_0 = scm_to_double (scm_cdr (scm_assq (ly_symbol2scm ("ratio"),details)));
Bezier b = slur_shape (width, h_inf, r_0);
Bezier b;
int i = 0;
- for (SCM s= cp; s != SCM_EOL; s = ly_cdr (s))
+ for (SCM s= cp; s != SCM_EOL; s = scm_cdr (s))
{
- b.control_[i] = ly_scm2offset (ly_car (s));
+ b.control_[i] = ly_scm2offset (scm_car (s));
i++;
}
&& last_time_fraction_ != fr
&& scm_is_pair (fr))
{
- int den = scm_to_int (ly_cdr (fr));
+ int den = scm_to_int (scm_cdr (fr));
if (den != (1 << intlog2 (den)))
{
/*
*/
warning (_f ("Found strange time signature %d/%d.",
den,
- scm_to_int (ly_car (fr))
+ scm_to_int (scm_car (fr))
));
}
if (scm_is_pair (fr) && !ly_c_equal_p (fr, prev_fraction_))
{
prev_fraction_ = fr;
- int b = scm_to_int (ly_car (fr));
- int o = scm_to_int (ly_cdr (fr));
+ int b = scm_to_int (scm_car (fr));
+ int o = scm_to_int (scm_cdr (fr));
audio_ = new Audio_time_signature (b,o);
Audio_element_info info (audio_, 0);
int d = 4;
if (scm_is_pair (frac))
{
- n = scm_to_int (ly_car (frac));
- d = scm_to_int (ly_cdr (frac));
+ n = scm_to_int (scm_car (frac));
+ d = scm_to_int (scm_cdr (frac));
}
Stencil m;
{
SCM l = global_translator_dict ? global_translator_dict->to_alist () : SCM_EOL;
- for (SCM s =l; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s =l; scm_is_pair (s); s = scm_cdr (s))
{
- scm_set_car_x (s, ly_cdar (s));
+ scm_set_car_x (s, scm_cdar (s));
}
return l;
void
translator_each (SCM list, Translator_method method)
{
- for (SCM p = list; scm_is_pair (p); p = ly_cdr (p))
- (unsmob_translator (ly_car (p))->*method) ();
+ for (SCM p = list; scm_is_pair (p); p = scm_cdr (p))
+ (unsmob_translator (scm_car (p))->*method) ();
}
{
SCM ack_ifs = scm_assoc (ly_symbol2scm ("events-accepted"),
tr->translator_description ());
- ack_ifs = ly_cdr (ack_ifs);
- for (SCM s = ifaces; scm_is_pair (s); s = ly_cdr (s))
- if (scm_c_memq (ly_car (s), ack_ifs) != SCM_BOOL_F)
+ ack_ifs = scm_cdr (ack_ifs);
+ for (SCM s = ifaces; scm_is_pair (s); s = scm_cdr (s))
+ if (scm_c_memq (scm_car (s), ack_ifs) != SCM_BOOL_F)
return true;
return false;
}
find_accept_translators (SCM gravlist, SCM ifaces)
{
SCM l = SCM_EOL;
- for (SCM s = gravlist; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = gravlist; scm_is_pair (s); s = scm_cdr (s))
{
- Translator* tr = unsmob_translator (ly_car (s));
+ Translator* tr = unsmob_translator (scm_car (s));
if (translator_accepts_any_of (tr, ifaces))
l = scm_cons (tr->self_scm (), l);
}
if (!scm_is_pair (name))
return false;
- name = ly_cdr (name);
+ name = scm_cdr (name);
SCM accept_list = scm_hashq_ref (tab, name, SCM_UNDEFINED);
if (accept_list == SCM_BOOL_F)
{
scm_hashq_set_x (tab, name, accept_list);
}
- for (SCM p = accept_list; scm_is_pair (p); p = ly_cdr (p))
+ for (SCM p = accept_list; scm_is_pair (p); p = scm_cdr (p))
{
- Translator * t = unsmob_translator (ly_car (p));
+ Translator * t = unsmob_translator (scm_car (p));
if (t && t->try_music (m))
return true;
}
}
for (SCM s = c->children_contexts () ; scm_is_pair (s);
- s =ly_cdr (s))
+ s =scm_cdr (s))
{
- recurse_over_translators (unsmob_context (ly_car (s)), ptr, dir);
+ recurse_over_translators (unsmob_context (scm_car (s)), ptr, dir);
}
if (dir == UP)
return ;
}
- SCM prev_alist = ly_car (prev);
+ SCM prev_alist = scm_car (prev);
if (scm_is_pair (prev_alist) || prev_alist == SCM_EOL)
{
else if (trg->where_defined (prop) == trg)
{
SCM prev = trg->internal_get_property (prop);
- SCM prev_alist = ly_car (prev);
- SCM daddy = ly_cdr (prev);
+ SCM prev_alist = scm_car (prev);
+ SCM daddy = scm_cdr (prev);
SCM new_alist = SCM_EOL;
SCM *tail = &new_alist;
while (prev_alist != daddy)
{
- if (ly_c_equal_p (ly_caar (prev_alist), eltprop))
+ if (ly_c_equal_p (scm_caar (prev_alist), eltprop))
{
- prev_alist = ly_cdr (prev_alist);
+ prev_alist = scm_cdr (prev_alist);
break ;
}
- *tail = scm_cons (ly_car (prev_alist), SCM_EOL);
+ *tail = scm_cons (scm_car (prev_alist), SCM_EOL);
tail = SCM_CDRLOC (*tail);
- prev_alist = ly_cdr (prev_alist);
+ prev_alist = scm_cdr (prev_alist);
}
if (new_alist == SCM_EOL && prev_alist == daddy)
apply_property_operations (Context *tg, SCM pre_init_ops)
{
SCM correct_order = scm_reverse (pre_init_ops);
- for (SCM s = correct_order; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = correct_order; scm_is_pair (s); s = scm_cdr (s))
{
- SCM entry = ly_car (s);
- SCM type = ly_car (entry);
- entry = ly_cdr (entry);
+ SCM entry = scm_car (s);
+ SCM type = scm_car (entry);
+ entry = scm_cdr (entry);
if (type == ly_symbol2scm ("push") || type == ly_symbol2scm ("poppush"))
{
- SCM val = ly_cddr (entry);
- val = scm_is_pair (val) ? ly_car (val) : SCM_UNDEFINED;
+ SCM val = scm_cddr (entry);
+ val = scm_is_pair (val) ? scm_car (val) : SCM_UNDEFINED;
- execute_pushpop_property (tg, ly_car (entry), ly_cadr (entry), val);
+ execute_pushpop_property (tg, scm_car (entry), scm_cadr (entry), val);
}
else if (type == ly_symbol2scm ("assign"))
{
- tg->internal_set_property (ly_car (entry), ly_cadr (entry));
+ tg->internal_set_property (scm_car (entry), scm_cadr (entry));
}
}
}
return SCM_EOL;
}
- SCM based_on = ly_cdr (props);
+ SCM based_on = scm_cdr (props);
if (based_on == daddy_props)
{
- return ly_car (props);
+ return scm_car (props);
}
else
{
SCM copy = daddy_props;
SCM * tail = ©
- SCM p = ly_car (props);
+ SCM p = scm_car (props);
while (p != based_on)
{
- *tail = scm_cons (ly_car (p), daddy_props);
+ *tail = scm_cons (scm_car (p), daddy_props);
tail = SCM_CDRLOC (*tail);
- p = ly_cdr (p);
+ p = scm_cdr (p);
}
scm_set_car_x (props, copy);
{
SCM ps = par_beam->get_property ("positions");
- Real lp = scm_to_double (ly_car (ps));
- Real rp = scm_to_double (ly_cdr (ps));
+ Real lp = scm_to_double (scm_car (ps));
+ Real rp = scm_to_double (scm_cdr (ps));
/*
duh. magic.
Tuplet_bracket::get_default_dir (Grob*me)
{
Drul_array<int> dirs (0,0);
- for (SCM s = me->get_property ("note-columns"); scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = me->get_property ("note-columns"); scm_is_pair (s); s = scm_cdr (s))
{
- Grob * nc = unsmob_grob (ly_car (s));
+ Grob * nc = unsmob_grob (scm_car (s));
Direction d = Note_column::dir (nc);
if (d)
dirs[d]++;
if (alt_count)
{
- *tail = scm_cons (ly_car (alts), SCM_EOL);
+ *tail = scm_cons (scm_car (alts), SCM_EOL);
tail = SCM_CDRLOC (*tail);
if (i >= rep_count - alt_count)
- alts = ly_cdr (alts);
+ alts = scm_cdr (alts);
}
}
SCM name_list = SCM_EOL;
SCM *name_tail = &name_list;
- for (SCM s = font_list; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = font_list; scm_is_pair (s); s = scm_cdr (s))
{
- if (Font_metric *fm = unsmob_metrics (ly_car (s)))
+ if (Font_metric *fm = unsmob_metrics (scm_car (s)))
{
- *tail = scm_cons (ly_car (s),SCM_EOL);
+ *tail = scm_cons (scm_car (s),SCM_EOL);
tail = SCM_CDRLOC (*tail);
if (!scm_is_number (mag))
/* Ugh. */
- mag = ly_cdr (fm->description_);
+ mag = scm_cdr (fm->description_);
- *name_tail = scm_cons (ly_car (fm->description_), SCM_EOL);
+ *name_tail = scm_cons (scm_car (fm->description_), SCM_EOL);
name_tail = SCM_CDRLOC (*name_tail);
}
}
Real
Virtual_font_metric::design_size () const
{
- return unsmob_metrics (ly_car (font_list_))-> design_size ();
+ return unsmob_metrics (scm_car (font_list_))-> design_size ();
}
void
Virtual_font_metric::count () const
{
int k = 0;
- for (SCM s = font_list_; scm_is_pair (s); s = ly_cdr (s))
- k += unsmob_metrics (ly_car (s))->count ();
+ for (SCM s = font_list_; scm_is_pair (s); s = scm_cdr (s))
+ k += unsmob_metrics (scm_car (s))->count ();
return k;
}
Virtual_font_metric::find_by_name (String glyph) const
{
Stencil m;
- for (SCM s = font_list_; m.is_empty () && scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = font_list_; m.is_empty () && scm_is_pair (s); s = scm_cdr (s))
{
- m = unsmob_metrics (ly_car (s))->find_by_name (glyph);
+ m = unsmob_metrics (scm_car (s))->find_by_name (glyph);
}
return m;
Virtual_font_metric::get_indexed_wxwy (int code) const
{
int total = 0;
- for (SCM s = font_list_; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = font_list_; scm_is_pair (s); s = scm_cdr (s))
{
- Font_metric *fm = unsmob_metrics (ly_car (s));
+ Font_metric *fm = unsmob_metrics (scm_car (s));
if (code < total + fm->count ())
return fm->get_indexed_wxwy (code - total);
total += fm->count ();
Virtual_font_metric::get_indexed_char (int code) const
{
int total = 0;
- for (SCM s = font_list_; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = font_list_; scm_is_pair (s); s = scm_cdr (s))
{
- Font_metric *fm = unsmob_metrics (ly_car (s));
+ Font_metric *fm = unsmob_metrics (scm_car (s));
if (code < total + fm->count ())
return fm->get_indexed_char (code - total);
total += fm->count ();
{
Stencil m;
int total = 0;
- for (SCM s = font_list_; m.is_empty () && scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = font_list_; m.is_empty () && scm_is_pair (s); s = scm_cdr (s))
{
- Font_metric *m =unsmob_metrics (ly_car (s));
+ Font_metric *m =unsmob_metrics (scm_car (s));
int k = m->name_to_index (glyph);
if (k >= 0)
return total + k;
Stencil m ;
int total = 0;
- for (SCM s = font_list_; scm_is_pair (s); s = ly_cdr (s))
+ for (SCM s = font_list_; scm_is_pair (s); s = scm_cdr (s))
{
- Font_metric *fm = unsmob_metrics (ly_car (s));
+ Font_metric *fm = unsmob_metrics (scm_car (s));
if (code < total + fm->count ())
{
/* Ugh. */
String
Virtual_font_metric::coding_scheme () const
{
- Font_metric *fm = unsmob_metrics (ly_car (font_list_));
+ Font_metric *fm = unsmob_metrics (scm_car (font_list_));
return fm->coding_scheme ();
}
bool no_vertical_start = orig_span && !broken_first_bracket;
bool no_vertical_end = orig_span && !broken_last_bracket;
SCM s = me->get_property ("bars");
- Grob * endbar = scm_is_pair (s) ? unsmob_grob (ly_car (s)) : 0;
+ Grob * endbar = scm_is_pair (s) ? unsmob_grob (scm_car (s)) : 0;
SCM glyph = endbar ? endbar->get_property ("glyph") : SCM_EOL;
String str;
programming_error ("Huh? Volta engraver can't find staffs?");
return false;
}
- else if (ly_car (scm_last_pair (staffs)) != staff_)
+ else if (scm_car (scm_last_pair (staffs)) != staff_)
{
return false;
}
start_string_ = SCM_EOL;
while (scm_is_pair (cs))
{
- SCM c = ly_car (cs);
+ SCM c = scm_car (cs);
if (scm_is_pair (c)
- && ly_car (c) == ly_symbol2scm ("volta")
- && scm_is_pair (ly_cdr (c)))
+ && scm_car (c) == ly_symbol2scm ("volta")
+ && scm_is_pair (scm_cdr (c)))
{
- if (ly_cadr (c) == SCM_BOOL_F)
+ if (scm_cadr (c) == SCM_BOOL_F)
end = true;
else
- start_string_ = ly_cadr (c);
+ start_string_ = scm_cadr (c);
}
- cs = ly_cdr (cs);
+ cs = scm_cdr (cs);
}
if (volta_span_)