From 34530e116fd6d733b64d037ed59b8726a60068d7 Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Wed, 30 Nov 2011 18:33:26 +0100 Subject: [PATCH] parser.yy: remove unused functions --- lily/parser.yy | 35 ----------------------------------- 1 file changed, 35 deletions(-) diff --git a/lily/parser.yy b/lily/parser.yy index d98780c374..728bc66193 100644 --- a/lily/parser.yy +++ b/lily/parser.yy @@ -208,13 +208,11 @@ static Music *make_music_with_input (SCM name, Input where); SCM check_scheme_arg (Lily_parser *parser, Input loc, SCM arg, SCM args, SCM pred); SCM loc_on_music (Input loc, SCM arg); -SCM get_first_context_id (SCM type, Music *m); SCM make_chord_elements (SCM pitch, SCM dur, SCM modification_list); SCM make_chord_step (int step, Rational alter); SCM make_simple_markup (SCM a); bool is_duration (int t); bool is_regular_identifier (SCM id); -bool ly_input_procedure_p (SCM x); int yylex (YYSTYPE *s, YYLTYPE *loc, void *v); void set_music_properties (Music *p, SCM a); @@ -3305,19 +3303,6 @@ make_music_with_input (SCM name, Input where) return m; } -SCM -get_first_context_id (SCM type, Music *m) -{ - SCM id = m->get_property ("context-id"); - if (SCM_BOOL_T == scm_equal_p (m->get_property ("context-type"), type) - && scm_is_string (m->get_property ("context-id")) - && scm_c_string_length (id) > 0) - { - return id; - } - return SCM_EOL; -} - SCM make_simple_markup (SCM a) { @@ -3358,26 +3343,6 @@ make_chord_elements (SCM pitch, SCM dur, SCM modification_list) return scm_call_3 (chord_ctor, pitch, dur, modification_list); } -SCM -try_unpack_lyrics (SCM pred, SCM arg) -{ - if (Music *m = unsmob_music (arg)) - if (m->is_mus_type ("lyric-event")) { - SCM text = m->get_property ("text"); - if (scm_is_true (scm_call_1 (pred, text))) - return text; - } - return SCM_UNDEFINED; -} - -/* Todo: actually also use apply iso. call too ... */ -bool -ly_input_procedure_p (SCM x) -{ - return ly_is_procedure (x) - || (scm_is_pair (x) && ly_is_procedure (scm_car (x))); -} - int yylex (YYSTYPE *s, YYLTYPE *loc, void *v) { -- 2.39.5