X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fparser.yy;h=405d9c1e30c40ff2ee018c7d16a80f4b41dfb437;hb=afa5829cd270e1b0c616b7ba5c5e6cdc0e920e5f;hp=99af0e5ec1d7b1ea3aaf9b22dc617179007ca82a;hpb=e99a6533b0a5cfdf1d8ec5b00ed4010459285deb;p=lilypond.git

diff --git a/lily/parser.yy b/lily/parser.yy
index 99af0e5ec1..405d9c1e30 100644
--- a/lily/parser.yy
+++ b/lily/parser.yy
@@ -10,14 +10,13 @@
 */
 
 #include <iostream.h>
+#include "lily-guile.hh"
 #include "notename-table.hh"
 #include "scalar.hh"
 #include "translation-property.hh"
 #include "script-def.hh"
 #include "symtable.hh"
 #include "lookup.hh"
-#include "ps-lookup.hh"
-#include "tex-lookup.hh"
 #include "misc.hh"
 #include "my-lily-lexer.hh"
 #include "paper-def.hh"
@@ -27,7 +26,7 @@
 #include "keyword.hh"
 #include "debug.hh"
 #include "parseconstruct.hh"
-#include "dimension.hh"
+#include "dimensions.hh"
 #include "identifier.hh"
 #include "command-request.hh"
 #include "musical-request.hh"
@@ -36,7 +35,6 @@
 #include "translator-group.hh"
 #include "score.hh"
 #include "music-list.hh"
-#include "header.hh"
 #include "duration-convert.hh"
 #include "change-translator.hh"
 #include "file-results.hh"
@@ -44,23 +42,33 @@
 #include "scope.hh"
 #include "relative-music.hh"
 #include "transposed-music.hh"
+#include "compressed-music.hh"
+#include "repeated-music.hh"
 
 // mmm
-Mudela_version oldest_version ("1.0.6");
-Mudela_version version ("1.0.6");
+Mudela_version oldest_version ("1.0.14");
+Mudela_version version ("1.0.14");
 
 
 // needed for bison.simple's malloc() and free()
 #include <malloc.h>
 
-int const GUESS_PLET = 5;
-int guess_plet_a[GUESS_PLET] =
-{ 
-  1,
-  3,
-  2,
-  3,
-  4
+struct Assignment {
+	String *name_p_;
+	Identifier *id_p_;
+	~Assignment () {
+		delete name_p_;
+		delete id_p_;
+	}
+	Assignment () {
+		name_p_ = 0;
+		id_p_ =0;
+	}
+	Assignment (Assignment const&s)
+	{
+		name_p_ = new String (*s.name_p_);
+		id_p_ = s.id_p_->clone ();
+	}
 };
 
 Paper_def* current_paper = 0;
@@ -78,7 +86,6 @@ Paper_def* current_paper = 0;
 #define yyerror THIS->parser_error
 #define ARRAY_SIZE(a,s)   if (a.size () != s) THIS->parser_error (_f("expecting %d arguments", s))
 
-
 %}
 
 
@@ -87,15 +94,16 @@ Paper_def* current_paper = 0;
     Array<Musical_pitch> *pitch_arr;
     Array<String> * strvec;
     Array<int> *intvec;
+    Atom * symbol;
     Box *box;
-    Simultaneous_music *chord;
+    Notename_table *chordmodifiertab;
     Duration *duration;
+    General_script_def * script;
     Identifier *id;
-    Translator* trans;
     Music *music;
     Music_list *music_list;
     Score *score;
-    Header *header;
+    Scope *scope;
     Interval *interval;
     Musical_req* musreq;
     Music_output_def * outputdef;
@@ -107,18 +115,17 @@ Paper_def* current_paper = 0;
     Paper_def *paper;
     Real real;
     Request * request;
-    General_script_def * script;
     Scalar *scalar;
+    Simultaneous_music *chord;
     String *string;
-    Atom * symbol;
     Symtable * symtable;
     Symtables* symtables;
-    Text_def * textdef;
     Tempo_req *tempo;
+    Text_def * textdef;
+    Translator* trans;
     char c;
     const char *consstr;
     int i;
-    int pair[2];
     int ii[10];
 }
 %{
@@ -142,40 +149,41 @@ yylex (YYSTYPE *s,  void * v_l)
 
 %token ABSDYNAMIC
 %token ACCEPTS
+%token ALTERNATIVE
 %token BAR
-%token BEAMPLET
 %token CADENZA
+%token CHORDMODIFIERS
+%token CHORDS
 %token CLEF
 %token CM_T
 %token CONSISTS
 %token DURATION
-%token END
+%token EXTENDER
 %token FONT
 %token GROUPING
 %token HEADER
 %token IN_T
 %token KEY
 %token KEYSIGNATURE
-%token LYRIC
-%token MAEBTELP
+%token LYRICS
 %token MARK
 %token MEASURES
 %token MIDI
 %token MM_T
-%token MUSIC
 %token MUSICAL_PITCH
+%token NAME
 %token NOTENAMES
 %token NOTES
-%token OCTAVE
-%token OUTPUT
 %token PAPER
 %token PARTIAL
 %token PENALTY
-%token PLET
 %token PROPERTY
 %token PT_T
 %token RELATIVE
 %token REMOVE
+%token REPEAT
+%token SCM_T
+%token SCMFILE
 %token SCORE
 %token SCRIPT
 %token SHAPE
@@ -183,9 +191,9 @@ yylex (YYSTYPE *s,  void * v_l)
 %token SPANDYNAMIC
 %token SYMBOLTABLES
 %token TABLE
-%token TELP
 %token TEMPO
 %token TIME_T
+%token TIMES
 %token TRANSLATOR
 %token TRANSPOSE
 %token TYPE
@@ -197,6 +205,8 @@ yylex (YYSTYPE *s,  void * v_l)
 %type <i>	dots
 %token <i>	DIGIT
 %token <pitch>	NOTENAME_PITCH
+%token <pitch>	TONICNAME_PITCH
+%token <pitch>	CHORDMODIFIER_PITCH
 %token <id>	DURATION_IDENTIFIER
 %token <id>	IDENTIFIER
 %token <id>	NOTENAME_TABLE_IDENTIFIER
@@ -211,7 +221,6 @@ yylex (YYSTYPE *s,  void * v_l)
 %token <id>	SCORE_IDENTIFIER
 %token <id>	MIDI_IDENTIFIER
 %token <id>	PAPER_IDENTIFIER
-%token <id>	REQUEST_IDENTIFIER
 %token <real>	REAL
 %token <string>	DURATION RESTNAME
 %token <string>	STRING
@@ -219,17 +228,17 @@ yylex (YYSTYPE *s,  void * v_l)
 
 
 %type <outputdef> output_def
-%type <header> 	mudela_header mudela_header_body
+%type <scope> 	mudela_header mudela_header_body
 %type <box>	box
 %type <i>	open_request_parens close_request_parens
-%type <i>	open_abbrev_parens
-%type <i>	open_plet_parens close_plet_parens
 %type <i>	sub_quotes sup_quotes
-%type <music>	simple_element  request_chord command_element
+%type <music>	simple_element  request_chord command_element Simple_music  Composite_music 
+%type <music>	Alternative_music Repeated_music
 %type <i>	abbrev_type
 %type <i>	int unsigned
 %type <i>	script_dir
-%type <id>	identifier_init simple_identifier_init
+%type <i>	optional_modality
+%type <id>	identifier_init simple_identifier_init block_identifier
 %type <duration> steno_duration notemode_duration
 %type <duration> entered_notemode_duration explicit_duration
 %type <interval>	dinterval
@@ -237,8 +246,12 @@ yylex (YYSTYPE *s,  void * v_l)
 %type <symtables>	symtables symtables_body
 
 %type <pitch>   explicit_musical_pitch steno_musical_pitch musical_pitch absolute_musical_pitch
+%type <pitch>   steno_tonic_pitch
 %type <notereq>	steno_notepitch
 %type <pitch_arr>	pitch_list
+%type <music>	chord notemode_chord
+%type <pitch_arr>	chord_additions chord_subtractions
+%type <pitch>	chord_addsub chord_note chord_inversion notemode_chord_inversion
 %type <midi>	midi_block midi_body
 %type <duration>	duration_length
 
@@ -247,16 +260,12 @@ yylex (YYSTYPE *s,  void * v_l)
 %type <music>	property_def translator_change
 %type <music_list> Music_list
 %type <paper>	paper_block paper_def_body
-%type <real>	dim real
-%type <real>	real_mult_expression real_primary
-%type <real>	unit
+%type <real>	real_expression real dimension
 %type <request> abbrev_command_req
 %type <request>	post_request structured_post_request
-%type <pair>	plet_fraction
 %type <request> command_req verbose_command_req
-%type <request>	script_req  dynamic_req
+%type <request>	script_req  dynamic_req extender_req
 %type <string>	string
-%type <string>	string_primary
 %type <score>	score_block score_body
 %type <intarr>	shape_array
 %type <script>	script_definition script_body mudela_script gen_script_def
@@ -266,15 +275,21 @@ yylex (YYSTYPE *s,  void * v_l)
 %type <symtable>	symtable symtable_body
 %type <trans>	translator_spec translator_spec_body
 %type <tempo> 	tempo_request
-%type <notenametab> notenames_body notenames_block
-%expect 1
+%type <notenametab> notenames_body notenames_block chordmodifiers_block
+
+/* 5 extra for notemode_chord */
+%expect 15
 
 
+%left '-' '+'
+%left '*' '/'
+%left UNARY_MINUS
+
 %%
 
 mudela:	/* empty */
 	| mudela toplevel_expression {}
-	| mudela add_declaration { }
+	| mudela assignment { }
 	| mudela error
 	| mudela check_version { }
 	;
@@ -283,6 +298,9 @@ toplevel_expression:
 	notenames_block			{
 		THIS->lexer_p_->set_notename_table ($1);
 	}
+	| chordmodifiers_block			{
+		THIS->lexer_p_->set_chordmodifier_table ($1);
+	}
 	| mudela_header {
 		delete header_global_p;
 		header_global_p = $1;
@@ -300,8 +318,20 @@ toplevel_expression:
 			Midi_def_identifier ($1, MIDI_IDENTIFIER);
 		THIS->lexer_p_->set_identifier ("$defaultmidi", id)
 	}
+	| embedded_scm { 
+	}
 	;
 
+embedded_scm:
+	SCMFILE STRING ';' {
+		read_lily_scm_file (*$2);
+		delete $2;
+	}
+	| SCM_T STRING ';' {
+		gh_eval_str ($2->ch_l ());
+		delete $2;
+	};
+
 check_version:
 	VERSION STRING ';'		{
 	 	Mudela_version ver (*$2);
@@ -317,6 +347,11 @@ check_version:
 	;
 
 
+chordmodifiers_block:
+	CHORDMODIFIERS '{' notenames_body '}'  {  $$ = $3; }
+	;
+
+
 notenames_block:
 	NOTENAMES '{' notenames_body '}'  {  $$ = $3; }
 	;
@@ -328,7 +363,7 @@ notenames_body:
 		$$ = new Notename_table;
 	}
 	| NOTENAME_TABLE_IDENTIFIER	{
-		$$ = $1-> access_Notename_table(true);
+		$$ = $1-> access_content_Notename_table(true);
 	}
 	| notenames_body STRING '=' explicit_musical_pitch {
 		(*$$)[*$2] = *$4;
@@ -339,19 +374,19 @@ notenames_body:
 	;
 
 mudela_header_body:
-		{
-		$$ = new Header;
+	{
+		$$ = new Scope;
+		THIS->lexer_p_-> scope_l_arr_.push ($$);
 	}
-	| mudela_header_body STRING '=' string ';' {
-		(*$$)[*$2] = *$4;
-		delete $2;
-		delete $4;
+	| mudela_header_body assignment ';' { 
+
 	}
 	;
 
 mudela_header:
 	HEADER '{' mudela_header_body '}'	{
 		$$ = $3;
+		THIS->lexer_p_-> scope_l_arr_.pop ();		
 	}
 	;
 
@@ -359,23 +394,33 @@ mudela_header:
 /*
 	DECLARATIONS
 */
-add_declaration:
+assignment:
 	STRING {
 		THIS->remember_spot ();
 	}
-	/* cont */ '=' identifier_init optional_semicolon {
+	/* cont */ '=' identifier_init  {
 	    THIS->lexer_p_->set_identifier (*$1, $4);
 	    $4->init_b_ = THIS->init_parse_b_;
 	    $4->set_spot (THIS->pop_spot ());
 	}
 	;
+
+
 simple_identifier_init: identifier_init
 	;
+
 identifier_init:
+	block_identifier
+	;
+
+block_identifier:
 	score_block {
 		$$ = new Score_identifier ($1, SCORE_IDENTIFIER);
 
 	}
+	| chordmodifiers_block {
+		$$ = new Notename_table_identifier ($1, NOTENAME_TABLE_IDENTIFIER);
+	}
 	| notenames_block {
 		$$ = new Notename_table_identifier ($1, NOTENAME_TABLE_IDENTIFIER);
 	}
@@ -386,17 +431,16 @@ identifier_init:
 		$$ = new Midi_def_identifier ($1, MIDI_IDENTIFIER);
 
 	}
-	| script_definition {
-		$$ = new General_script_def_identifier ($1, SCRIPT_IDENTIFIER);
-
+	| symtables {
+		$$ = new Symtables_identifier ($1, IDENTIFIER);
+	}
+	| translator_spec {
+		$$ = new Translator_identifier ($1, TRANS_IDENTIFIER);
 	}
 	| Music  {
 		$$ = new Music_identifier ($1, MUSIC_IDENTIFIER);
-
-	}
-	| symtables {
-		$$ = new Symtables_identifier ($1, IDENTIFIER);
 	}
+
 	| post_request {
 		$$ = new Request_identifier ($1, POST_REQUEST_IDENTIFIER);
 	}
@@ -412,8 +456,9 @@ identifier_init:
 	| int	{
 		$$ = new int_identifier (new int ($1), INT_IDENTIFIER);
 	}
-	| translator_spec {
-		$$ = new Translator_identifier ($1, TRANS_IDENTIFIER);
+	| script_definition {
+		$$ = new General_script_def_identifier ($1, SCRIPT_IDENTIFIER);
+
 	}
 	;
 
@@ -424,12 +469,12 @@ translator_spec:
 
 translator_spec_body:
 	TRANS_IDENTIFIER	{
-		$$ = $1->access_Translator (true);
+		$$ = $1->access_content_Translator (true);
 		$$-> set_spot (THIS->here_input ());
 	}
 	| TYPE STRING ';'	{
 		Translator* t = get_translator_l (*$2);
-		Translator_group * tg = t->access_Translator_group ();
+		Translator_group * tg = dynamic_cast<Translator_group*> (t);
 
 		if (!tg)
 			THIS->parser_error (_("Need a translator group for a context"));
@@ -441,34 +486,34 @@ translator_spec_body:
 	}
 	| translator_spec_body STRING '=' simple_identifier_init ';'	{ 
 		Identifier* id = $4;
-		String_identifier *s = id->access_String_identifier ();
-		Real_identifier *r= id->access_Real_identifier ();
-		int_identifier *i = id->access_int_identifier ();
+		String_identifier *s = dynamic_cast<String_identifier*> (id);
+		Real_identifier *r= dynamic_cast<Real_identifier*>(id);
+		int_identifier *i = dynamic_cast<int_identifier*> (id);
 	
 		String str;
-		if (s) str = *s->access_String (false); 
-		if (i) str = to_str (*i->access_int (false));
-		if (r) str = to_str (*r->access_Real (false));
+		if (s) str = *s->access_content_String (false); 
+		if (i) str = to_str (*i->access_content_int (false));
+		if (r) str = to_str (*r->access_content_Real (false));
 		if (!s && !i && !r)
 			THIS->parser_error (_("Wrong type for property value"));
 
 		delete $4;
 		$$->set_property (*$2, str);
 	}
-	| translator_spec_body STRING ';' {
-		$$->type_str_ = *$2;
-		delete $2;
+	| translator_spec_body NAME STRING ';' {
+		$$->type_str_ = *$3;
+		delete $3;
 	}
 	| translator_spec_body CONSISTS STRING ';' {
-		$$->access_Translator_group ()-> set_element (*$3, true);
+		dynamic_cast<Translator_group*> ($$)-> set_element (*$3, true);
 		delete $3;
 	}
 	| translator_spec_body ACCEPTS STRING ';' {
-		$$->access_Translator_group ()-> set_acceptor (*$3, true);
+		dynamic_cast<Translator_group*> ($$)-> set_acceptor (*$3, true);
 		delete $3;
 	}
 	| translator_spec_body REMOVE STRING ';' {
-		$$->access_Translator_group ()-> set_element (*$3, false);
+		dynamic_cast<Translator_group*> ($$)-> set_element (*$3, false);
 		delete $3;
 	}
 	;
@@ -478,7 +523,6 @@ translator_spec_body:
 */
 score_block:
 	SCORE { THIS->remember_spot ();
-		THIS->error_level_i_ =0;
 	}
 	/*cont*/ '{' score_body '}' 	{
 		$$ = $4;
@@ -486,9 +530,6 @@ score_block:
 		if (!$$->def_p_arr_.size ())
 			$$->add_output (THIS->default_paper_p ());
 
-		/* handle error levels. */
-		$$->errorlevel_i_ = THIS->error_level_i_;
-		THIS->error_level_i_ = 0;
 	}
 	;
 
@@ -496,7 +537,7 @@ score_body:		{
 		$$ = new Score;
 	}
 	| SCORE_IDENTIFIER {
-		$$ = $1->access_Score (true);
+		$$ = $1->access_content_Score (true);
 	}
 	| score_body mudela_header 	{
 		$$->header_p_ = $2;
@@ -549,6 +590,11 @@ optional_semicolon:
 	| ';'
 	;
 
+optional_dot:
+	/* empty */
+	| '.'
+	;
+
 paper_def_body:
 	/* empty */		 	{
 		Paper_def *p = THIS->default_paper_p ();
@@ -556,21 +602,19 @@ paper_def_body:
 		$$ = p;
 	}
 	| PAPER_IDENTIFIER optional_semicolon	{
-		Paper_def *p = $1->access_Paper_def (true);
+		Paper_def *p = $1->access_content_Paper_def (true);
 		THIS->lexer_p_->scope_l_arr_.push (p->scope_p_);
 		$$ = p;
 	}
 	| paper_def_body int '=' symtables		{ // ugh, what a syntax
-		Lookup * l = ps_output_global_b ? new Ps_lookup (*$4)
-		  : new Tex_lookup (*$4);
+		Lookup * l = new Lookup (*$4);
 		$$->set_lookup ($2, l);
 	}
-	| paper_def_body STRING '=' simple_identifier_init ';' {
-	      THIS->lexer_p_->set_identifier (*$2, $4);
-	      delete $2;
+	| paper_def_body assignment ';' {
+
 	}
 	| paper_def_body translator_spec {
-		$$-> assign_translator ($2);
+		$$->assign_translator ($2);
 	}
 	| paper_def_body SHAPE '=' shape_array ';' {
 		$$->shape_int_a_ = *$4;
@@ -581,44 +625,61 @@ paper_def_body:
 	}
 	;
 
-real_primary:
-	REAL		{
-		$$ = $1;
+
+real:
+	real_expression  	{ $$ = $1; }
+	;
+
+
+dimension:
+	REAL CM_T	{
+		$$ = $1 CM;
 	}
-	| REAL_IDENTIFIER		{
-		$$= *$1->access_Real (false);
+	| REAL PT_T	{
+		$$ = $1 PT;
 	}
-	| dim
-	| '(' real ')' {
-		$$ = $2;
+	| REAL IN_T	{
+		$$ = $1 INCH;
+	}
+	| REAL MM_T	{
+		$$ = $1 MM;
 	}
 	;
 
-real:
-	real_mult_expression
-	| real '+' real_mult_expression {
-		$$ = $1 + $3;
+real_expression:
+	REAL		{
+		$$ = $1;
 	}
-	| real '-' real_mult_expression {
-		$$ = $1 - $3;
+	| dimension
+	| REAL_IDENTIFIER		{
+		$$= *$1->access_content_Real (false);
 	}
-	;
-
-real_mult_expression:
-	real_primary
-	| real_mult_expression '*' real_primary {
+	| '-'  real_expression %prec UNARY_MINUS {
+		$$ = -$2;
+	}
+	| real_expression '*' real_expression {
 		$$ = $1 * $3;
 	}
-	| real_mult_expression '/' real_primary {
+	| real_expression '/' real_expression {
 		$$ = $1 / $3;
 	}
+	| real_expression '+' real_expression {
+		$$ = $1  + $3;
+	}
+	| real_expression '-' real_expression {
+		$$ = $1 - $3;
+	}
+	| '(' real_expression ')'	{
+		$$ = $2;
+	}
 	;
+		
 
 shape_array:
 	/* empty */ {
 		$$ = new Array<Interval>;
 	}
-	| shape_array dim dim {
+	| shape_array real real {
 		$$->push(Interval($2, $2 + $3));
 	};
 
@@ -635,7 +696,7 @@ midi_body: /* empty */ 		{
 		$$ = THIS->default_midi_p ();
 	}
 	| MIDI_IDENTIFIER	{
-		$$ = $1-> access_Midi_def (true);
+		$$ = $1-> access_content_Midi_def (true);
 	}
 	| midi_body translator_spec	{
 		$$-> assign_translator ($2);
@@ -650,7 +711,7 @@ midi_body: /* empty */ 		{
 	;
 
 tempo_request:
-	TEMPO entered_notemode_duration '=' unsigned	{
+	TEMPO steno_duration '=' unsigned	{
 		$$ = new Tempo_req;
 		$$->dur_ = *$2;
 		delete $2;
@@ -669,6 +730,30 @@ Music_list: /* empty */ {
 	;
 
 
+Music:
+	Simple_music
+	| Composite_music
+	;
+
+Alternative_music: {
+		Music_list* m = new Music_list;
+		$$ = new Sequential_music (m);
+	}
+	| ALTERNATIVE Simultaneous_music {
+		$$ = $2;
+	}
+	| ALTERNATIVE Sequential_music {
+		$$ = $2;
+	}
+	;
+
+Repeated_music: REPEAT unsigned Music Alternative_music	{
+		Music_sequence* m = dynamic_cast <Music_sequence*> ($4);
+		assert (m);
+		$$ = new Repeated_music ($3, $2 >? 1, m);
+	}
+	;
+
 Sequential_music: '{' Music_list '}'		{
 		$$ = new Sequential_music ($2);
 	}
@@ -678,9 +763,24 @@ Simultaneous_music: '<' Music_list '>'	{
 		$$ = new Simultaneous_music ($2);
 	}
 	;
-Music:
+
+Simple_music:
 	request_chord		{ $$ = $1; }
-	| TYPE STRING Music	{
+	| MUSIC_IDENTIFIER { $$ = $1->access_content_Music (true); }
+	| property_def
+	| translator_change
+	| Simple_music '*' unsigned '/' unsigned 	{
+		/* urg */
+		$$ = new Compressed_music ($3, $5, $1);
+	}
+	| Simple_music '*' unsigned		 {
+		$$ = new Compressed_music ($3, 1, $1);
+	}
+	;
+
+
+Composite_music:
+	TYPE STRING Music	{
 		$$ = $3;
 		$$->translator_type_str_ = *$2;
 		delete $2;
@@ -692,29 +792,47 @@ Music:
 		delete $2;
 		delete $4;
 	}
+	| TIMES {
+		THIS->remember_spot ();
+	}
+	/* CONTINUED */ 
+		unsigned '/' unsigned Music 	
+
+	{
+		$$ = new Compressed_music ($3, $5, $6);
+		$$->set_spot (THIS->pop_spot ());
+	}
+	| Repeated_music		{ $$ = $1; }
 	| Simultaneous_music		{ $$ = $1; }
 	| Sequential_music		{ $$ = $1; }
 	| TRANSPOSE musical_pitch Music {
 		$$ = new Transposed_music ($3, *$2);
 		delete $2;
 	}
-	| MUSIC_IDENTIFIER { $$ = $1->access_Music (true); }
+	| TRANSPOSE steno_tonic_pitch Music {
+		$$ = new Transposed_music ($3, *$2);
+		delete $2;
+	}
 	| NOTES
 		{ THIS->lexer_p_->push_note_state (); }
 	Music
 		{ $$ = $3;
 		  THIS->lexer_p_->pop_state ();
 		}
-
-	| LYRIC
+	| CHORDS
+		{ THIS->lexer_p_->push_chord_state (); }
+	Music
+		{
+		  $$ = $3;
+		  THIS->lexer_p_->pop_state ();
+	}
+	| LYRICS
 		{ THIS->lexer_p_->push_lyric_state (); }
 	Music
 		{
 		  $$ = $3;
 		  THIS->lexer_p_->pop_state ();
-		}
-	| property_def
-	| translator_change
+	}
 	| relative_music	{ $$ = $1; }
 	;
 
@@ -758,7 +876,6 @@ scalar:
 	;
 
 
-
 request_chord:
 	pre_requests simple_element post_requests	{
 	 	THIS->add_requests ((Simultaneous_music*)$2);//ugh
@@ -767,16 +884,12 @@ request_chord:
 	| command_element
 	;
 
-
-
-
 command_element:
 	command_req {
 		$$ = new Request_chord;
 		$$-> set_spot (THIS->here_input ());
 		$1-> set_spot (THIS->here_input ());
 		((Simultaneous_music*)$$) ->add_music ($1);//ugh
-
 	}
 	;
 
@@ -790,10 +903,24 @@ abbrev_command_req:
 		$$ = new Barcheck_req;
 	}
 	| COMMAND_IDENTIFIER	{
-		$$ = $1->access_Request (true);
+		$$ = $1->access_content_Request (true);
+	}
+	| '~'	{
+		$$ = new Tie_req;
+	}
+	| '['		{
+		Beam_req*b= new Beam_req;
+		b->spantype_ = START;
+		$$ =b;
+	}
+	| ']'		{
+		Beam_req*b= new Beam_req;
+		b->spantype_ = STOP;
+		$$ = b;
 	}
 	;
 
+
 verbose_command_req:
 	BAR STRING 			{
 		$$ = new Bar_req (*$2);
@@ -838,10 +965,11 @@ verbose_command_req:
 		$$ = new Clef_change_req (*$2);
 		delete $2;
 	}
-	| KEY NOTENAME_PITCH 	{
+	| KEY NOTENAME_PITCH optional_modality	{
 		Key_change_req *key_p= new Key_change_req;
 		key_p->pitch_arr_.push(*$2);
 		key_p->ordinary_key_b_ = true;
+		key_p->modality_i_ = $3;
 		$$ = key_p;
 		delete $2;
 	}
@@ -886,7 +1014,7 @@ structured_post_request:
 
 post_request:
 	POST_REQUEST_IDENTIFIER	{
-		$$ = (Request*)$1->access_Request (true);
+		$$ = (Request*)$1->access_content_Request (true);
 	}
 	| dynamic_req {
 		$$ = $1;
@@ -896,6 +1024,18 @@ post_request:
 		a->type_i_ = $1;
 		$$ = a;
 	}
+	| extender_req {
+		$$ = $1;
+	}
+	;
+
+optional_modality:
+	/* empty */	{
+		$$ = 0;
+	}
+	| int	{
+		$$ = $1;
+	}
 	;
 
 sup_quotes:
@@ -929,6 +1069,20 @@ steno_musical_pitch:
 	}
 	;
 
+steno_tonic_pitch:
+	TONICNAME_PITCH	{
+		$$ = $1;
+	}
+	| TONICNAME_PITCH sup_quotes 	{
+		$$ = $1;
+		$$->octave_i_ +=  $2;
+	}
+	| TONICNAME_PITCH sub_quotes	 {
+		$$ = $1;
+		$$->octave_i_ += - $2;
+	}
+	;
+
 explicit_musical_pitch:
 	MUSICAL_PITCH '{' int_list '}'	{/* ugh */
 		Array<int> &a = *$3;
@@ -956,6 +1110,10 @@ steno_notepitch:
 	| steno_notepitch  '!' 		{
 		$$->forceacc_b_ = ! $$->forceacc_b_;
 	}
+	| steno_notepitch  '?' 		{
+		$$->forceacc_b_ = ! $$->forceacc_b_;
+		$$->cautionary_b_ = ! $$->cautionary_b_;
+	}
 	;
 
 
@@ -972,6 +1130,16 @@ explicit_duration:
 	}
 	;
 
+extender_req:
+	EXTENDER {
+		if (!THIS->lexer_p_->lyric_state_b ())
+			THIS->parser_error (_ ("have to be in Lyric mode for lyrics"));
+		Extender_req * e_p = new Extender_req;
+		e_p->spantype_ = START;
+		$$ = e_p;
+		THIS->extender_req = e_p;
+	};
+
 dynamic_req:
 	ABSDYNAMIC '{' unsigned '}'	{
 		Absolute_dynamic_req *ad_p = new Absolute_dynamic_req;
@@ -980,91 +1148,27 @@ dynamic_req:
 	}
 	| SPANDYNAMIC '{' int int '}' {
 		Span_dynamic_req * sp_p = new Span_dynamic_req;
-		sp_p->spantype = (Span_req::Spantype)$4;
+		sp_p->spantype_ = (Direction)$4;
 		sp_p-> dynamic_dir_  = (Direction)$3;
 		$$ = sp_p;
 	}
 	;
 
-plet_fraction:
-	unsigned '/' unsigned {
-		$$[0] = $1;
-		$$[1] = $3;
-	}
-	|
-	'/' unsigned {
-		int num = $2 >? 1;
-		$$[0] = guess_plet_a[(num <? GUESS_PLET) - 1];
-		$$[1] = num;
-	}
-	;
 
-close_plet_parens:
-	']' plet_fraction {
-		$$ = MAEBTELP;
-		THIS->plet_.type_i_ = $2[1];
-		THIS->plet_.iso_i_ = $2[0];
-		THIS->default_duration_.plet_ = THIS->plet_;
-	}
-	| TELP {
-		$$ = TELP;
-		THIS->plet_.type_i_ = 1;
-		THIS->plet_.iso_i_ = 1;
-		THIS->default_duration_.plet_ = THIS->plet_;
-	}
-	| TELP plet_fraction {
-		$$ = TELP;
-		THIS->plet_.type_i_ = $2[1];
-		THIS->plet_.iso_i_ = $2[0];
-		THIS->default_duration_.plet_ = THIS->plet_;
-	}
-	;
 
 close_request_parens:
-	'~'	{
-		$$ = '~';
-	}
-	| '('	{
+	'('	{
 		$$='(';
 	}
-	| ']'	{
-		$$ = ']';
-	}
 	| E_SMALLER {
 		$$ = '<';
 	}
 	| E_BIGGER {
 		$$ = '>';
 	}
-	| close_plet_parens
 	;
 
-open_abbrev_parens:
-	'[' ':' unsigned {
-		$$ = '[';
-		if (!Duration::duration_type_b ($3))
-			THIS->parser_error (_f ("not a duration: %d", $3));
-		else if ($3 < 8)
-			THIS->parser_error (_ ("can't abbreviate"));
-		else
-			THIS->set_abbrev_beam ($3);
-	}
-	;
 
-open_plet_parens:
-	'[' plet_fraction {
-		$$ = BEAMPLET;
-		THIS->plet_.type_i_ = $2[1];
-		THIS->plet_.iso_i_ = $2[0];
-		THIS->default_duration_.plet_ = THIS->plet_;
-	}
-	| PLET plet_fraction {
-		$$ = PLET;
-		THIS->plet_.type_i_ = $2[1];
-		THIS->plet_.iso_i_ = $2[0];
-		THIS->default_duration_.plet_ = THIS->plet_;
-	}
-	;
 
 open_request_parens:
 	E_EXCLAMATION 	{
@@ -1073,11 +1177,6 @@ open_request_parens:
 	| ')'	{
 		$$=')';
 	}
-	| '['	{
-		$$='[';
-	}
-	| open_abbrev_parens
-	| open_plet_parens
 	;
 
 
@@ -1154,10 +1253,10 @@ script_abbreviation:
 	;
 
 mudela_script:
-	SCRIPT_IDENTIFIER		{ $$ = $1->access_General_script_def (true); }
+	SCRIPT_IDENTIFIER		{ $$ = $1->access_content_General_script_def (true); }
 	| script_definition		{ $$ = $1; }
 	| script_abbreviation		{
-		$$ = THIS->lexer_p_->lookup_identifier (*$1)->access_General_script_def (true);
+		$$ = THIS->lexer_p_->lookup_identifier (*$1)->access_content_General_script_def (true);
 		delete $1;
 	}
 	;
@@ -1170,8 +1269,17 @@ script_dir:
 
 pre_requests:
 	{
+		if (THIS->extender_req)
+		  {
+		    Extender_req * e_p = new Extender_req;
+		    e_p->spantype_ = STOP;
+		    THIS->pre_reqs.push (e_p);
+		    THIS->extender_req = 0;
+		  }
+			
 	}
 	| pre_requests open_request_parens {
+
 		Array<Request*>& r = *THIS->get_parens_request ($2);
 		for (int i = 0; i < r.size (); i++ )
 			r[i]->set_spot (THIS->here_input ());
@@ -1190,6 +1298,12 @@ duration_length:
 	steno_duration {
 		$$ = $1;
 	}
+	| duration_length '*' unsigned {
+		$$->plet_.iso_i_ *= $3;
+	}
+	| duration_length '/' unsigned {
+		$$->plet_.type_i_ *= $3;
+	}
 	;
 
 dots:
@@ -1223,21 +1337,14 @@ steno_duration:
 			THIS->parser_error (_f ("not a duration: %d", $1));
 		else {
 			$$->durlog_i_ = Duration_convert::i2_type ($1);
-			$$->set_plet (THIS->plet_.iso_i_, THIS->plet_.type_i_);
 		     }
 	}
 	| DURATION_IDENTIFIER	{
-		$$ = $1->access_Duration (true);
+		$$ = $1->access_content_Duration (true);
 	}
 	| steno_duration '.' 	{
 		$$->dots_i_ ++;
 	}
-	| steno_duration '*' unsigned  {
-		$$->plet_.iso_i_ *= $3;
-	}
-	| steno_duration '/' unsigned {
-		$$->plet_.type_i_ *= $3;
-	}
 	;
 
 
@@ -1260,8 +1367,7 @@ simple_element:
 	steno_notepitch notemode_duration  {
 		if (!THIS->lexer_p_->note_state_b ())
 			THIS->parser_error (_ ("have to be in Note mode for notes"));
-		$1->set_duration (*$2);
-		int durlog_i = $2->durlog_i_;
+		$1->duration_ = *$2;
 		$$ = THIS->get_note_element ($1, $2);
 	}
 	| RESTNAME notemode_duration		{
@@ -1284,8 +1390,97 @@ simple_element:
 		$$ = THIS->get_word_element (*$1, $2);
 		delete $1;
 	}
+	| chord {
+		if (!THIS->lexer_p_->chord_state_b ())
+			THIS->parser_error (_ ("have to be in Chord mode for chords"));
+		$$ = $1;
+	}
+	| '@' notemode_chord {
+		if (!THIS->lexer_p_->note_state_b ())
+			THIS->parser_error (_ ("have to be in Note mode for @chords"));
+		$$ = $2;
+	}
 	;
 
+chord:
+	steno_tonic_pitch notemode_duration chord_additions chord_subtractions chord_inversion {
+                $$ = THIS->get_chord (*$1, $3, $4, $5, *$2);
+        };
+
+notemode_chord:
+	steno_musical_pitch notemode_duration chord_additions chord_subtractions notemode_chord_inversion {
+                $$ = THIS->get_chord (*$1, $3, $4, $5, *$2);
+        };
+
+chord_additions: 
+	{
+		$$ = new Array<Musical_pitch>;
+	} 
+	| '-' {
+		$$ = new Array<Musical_pitch>;
+	} 
+	| chord_additions chord_addsub {
+		$$ = $1;
+		$$->push (*$2);
+	}
+	;
+
+chord_addsub:
+	chord_note optional_dot
+	| CHORDMODIFIER_PITCH optional_dot
+	;
+
+chord_inversion:
+	{
+		$$ = 0;
+	}
+	| '/' steno_tonic_pitch {
+		$$ = $2
+	}
+	;
+
+notemode_chord_inversion:
+	{
+		$$ = 0;
+	}
+	| '/' steno_musical_pitch {
+		$$ = $2
+	}
+	;
+
+chord_note:
+	UNSIGNED {
+		$$ = new Musical_pitch;
+		$$->notename_i_ = ($1 - 1) % 7;
+		$$->octave_i_ = $1 > 7 ? 1 : 0;
+		$$->accidental_i_ = 0;
+        } 
+	| UNSIGNED '+' {
+		$$ = new Musical_pitch;
+		$$->notename_i_ = ($1 - 1) % 7;
+		$$->octave_i_ = $1 > 7 ? 1 : 0;
+		$$->accidental_i_ = 1;
+	}
+	| UNSIGNED '-' {
+		$$ = new Musical_pitch;
+		$$->notename_i_ = ($1 - 1) % 7;
+		$$->octave_i_ = $1 > 7 ? 1 : 0;
+		$$->accidental_i_ = -1;
+	}
+        ;
+
+chord_subtractions:
+	{
+		$$ = new Array<Musical_pitch>;
+	}
+	| '^' {
+		$$ = new Array<Musical_pitch>;
+	}
+	| chord_subtractions chord_addsub {
+		$$ = $1;
+		$$->push (*$2);
+	}
+	;
 
 /*
 	UTILITIES
@@ -1325,39 +1520,25 @@ int:
 		$$ = -$2;
 	}
 	| INT_IDENTIFIER	{
-		$$ = *$1->access_int (false);
+		$$ = *$1->access_content_int (false);
 	}
 	;
 
-string_primary:
+
+string:
 	STRING		{
 		$$ = $1;
 	}
 	| STRING_IDENTIFIER	{
-		$$ = $1->access_String (true);
+		$$ = $1->access_content_String (true);
 	}
-	;
-
-string:
-	string_primary {
-		$$ = $1;
-	}
-	| string '+' string_primary {
+	| string '+' string {
 		*$$ += *$3;
 		delete $3;
 	}
 	;
 
-dim:
-	real_primary unit	{ $$ = $1*$2; }
-	;
-
 
-unit:	CM_T		{ $$ = 1 CM; }
-	|IN_T		{ $$ = 1 INCH; }
-	|MM_T		{ $$ = 1 MM; }
-	|PT_T		{ $$ = 1 PT; }
-	;
 
 /*
 	symbol tables
@@ -1371,14 +1552,10 @@ symtables_body:
 		$$ = new Symtables;
 	}
 	| IDENTIFIER		{
-		$$ = $1->access_Symtables (true);
+		$$ = $1->access_content_Symtables (true);
 	}
 	| symtables_body FONT STRING 		{
-		$$->font_ = *$3;
-		$$->font_path_ = global_path.find (*$3);
-		if  (!$$->font_path_.length_i ())
-			THIS->here_input ().error (_f("can't open file: `%s'", $3->ch_C()));
-
+		$$->font_name_ = *$3;
 		delete $3;
 	}
 	| symtables_body STRING '=' symtable		{
@@ -1394,20 +1571,22 @@ symtable:
 symtable_body:
 				{ $$ = new Symtable; }
 	| symtable_body	STRING	symboldef {
-		$$->add (*$2, *$3);
+		$$->elem (*$2) = *$3;
 		delete $2;
 		delete $3;
 	}
 	;
 
 symboldef:
-	STRING 	box		{
-		$$ = new Atom (*$1, *$2);
+	STRING unsigned box		{
+		// ignore #args
+		$$ = new Atom (*$1, *$3);
 		delete $1;
-		delete $2;
+		delete $3;
 	}
-	| STRING {
+	| STRING unsigned {
 		Box b (Interval (0,0), Interval (0,0));
+		// ignore #args
 		$$ = new Atom (*$1, b);
 		delete $1;
 	}
@@ -1421,7 +1600,7 @@ box:
 	}
 	;
 
-dinterval: dim	dim		{
+dinterval: real	real		{
 		$$ = new Interval ($1, $2);
 	}
 	;