+string
+Gregorian_ligature::prefixes_to_str (Grob *primitive)
+{
+ string str;
+ int prefix_set
+ = scm_to_int (primitive->get_property ("prefix-set"));
+ check_prefix ("virga", VIRGA, prefix_set, &str);
+ check_prefix ("stropha", STROPHA, prefix_set, &str);
+ check_prefix ("inclinatum", INCLINATUM, prefix_set, &str);
+ check_prefix ("auctum", AUCTUM, prefix_set, &str);
+ check_prefix ("descendens", DESCENDENS, prefix_set, &str);
+ check_prefix ("ascendens", ASCENDENS, prefix_set, &str);
+ check_prefix ("oriscus", ORISCUS, prefix_set, &str);
+ check_prefix ("quilisma", QUILISMA, prefix_set, &str);
+ check_prefix ("deminutum", DEMINUTUM, prefix_set, &str);
+ check_prefix ("cavum", CAVUM, prefix_set, &str);
+ check_prefix ("linea", LINEA, prefix_set, &str);
+ return str;
+}