Use scalar instead of embedded_scm for context mod overrides.
[lilypond/mpolesky.git] / lily / gregorian-ligature.cc
blob4c84c89deeb9de97315b72a96a51ea039da33f52
1 /*
2 gregorian-ligature.cc -- implement Gregorian_ligature
4 source file of the GNU LilyPond music typesetter
6 (c) 2003--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
7 */
9 #include "gregorian-ligature.hh"
11 #include "grob.hh"
13 void check_prefix (string name, int mask, int prefix_set, string *str)
15 if (prefix_set & mask)
17 if (!str->empty ())
18 *str += ", ";
19 *str += name;
23 string
24 Gregorian_ligature::prefixes_to_str (Grob *primitive)
26 string str;
27 int prefix_set
28 = scm_to_int (primitive->get_property ("prefix-set"));
29 check_prefix ("virga", VIRGA, prefix_set, &str);
30 check_prefix ("stropha", STROPHA, prefix_set, &str);
31 check_prefix ("inclinatum", INCLINATUM, prefix_set, &str);
32 check_prefix ("auctum", AUCTUM, prefix_set, &str);
33 check_prefix ("descendens", DESCENDENS, prefix_set, &str);
34 check_prefix ("ascendens", ASCENDENS, prefix_set, &str);
35 check_prefix ("oriscus", ORISCUS, prefix_set, &str);
36 check_prefix ("quilisma", QUILISMA, prefix_set, &str);
37 check_prefix ("deminutum", DEMINUTUM, prefix_set, &str);
38 check_prefix ("cavum", CAVUM, prefix_set, &str);
39 check_prefix ("linea", LINEA, prefix_set, &str);
40 return str;
44 CHECK ME -- does prefix-set come from here ?
46 In a way, yes. Actually, prefix-set is a property that is written
47 by code of GregorianLigatureEngraver that is virtually invoked by a
48 subclass like VaticanaLigatureEngraver. The property is lateron
49 read by the associated item class, such as VaticanaLigature.--jr
51 ADD_INTERFACE (Gregorian_ligature,
52 "A gregorian ligature.",
54 /* properties */
55 "virga "
56 "stropha "
57 "inclinatum "
58 "auctum "
59 "descendens "
60 "ascendens "
61 "oriscus "
62 "quilisma "
63 "deminutum "
64 "cavum "
65 "linea "
66 "pes-or-flexa "
67 "context-info "
68 "prefix-set "