*/
#include <iostream.h>
-#include "lily-guile.hh"
#include "notename-table.hh"
#include "scalar.hh"
#include "translation-property.hh"
%token PT_T
%token RELATIVE
%token REMOVE
-%token SCHEME /* token vs typedef; can't be named SCM */
%token SCORE
%token SCRIPT
%token SHAPE
Midi_def_identifier ($1, MIDI_IDENTIFIER);
THIS->lexer_p_->set_identifier ("$defaultmidi", id)
}
- | embedded_scm {
- }
;
-embedded_scm:
- SCHEME STRING ';' {
- #ifdef HAVE_LIBGUILE
- gh_eval_str ($2->ch_C ());
- #endif
- delete $2;
- };
-
check_version:
VERSION STRING ';' {
Mudela_version ver (*$2);
| steno_notepitch '!' {
$$->forceacc_b_ = ! $$->forceacc_b_;
}
- | steno_notepitch '?' {
- $$->forceacc_b_ = ! $$->forceacc_b_;
- $$->cautionary_b_ = ! $$->cautionary_b_;
- }
;
symtable_body:
{ $$ = new Symtable; }
| symtable_body STRING symboldef {
- $$->add (*$2, *$3);
+ $$->elem (*$2) = *$3;
delete $2;
delete $3;
}