X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fparser.yy;h=34e329be2e236bf75729c44e51321d2264007359;hb=d6048913c2c793a6298a3e16a1a25c76711463b1;hp=0e94082cc212e9d5b82ba11135576f22fcaeb0d6;hpb=5f42fe18c41237a73d99fd76b34e434a33598704;p=lilypond.git

diff --git a/lily/parser.yy b/lily/parser.yy
index 0e94082cc2..34e329be2e 100644
--- a/lily/parser.yy
+++ b/lily/parser.yy
@@ -14,7 +14,6 @@
 #include "notename-table.hh"
 #include "scalar.hh"
 #include "translation-property.hh"
-#include "script-def.hh"
 #include "lookup.hh"
 #include "misc.hh"
 #include "my-lily-lexer.hh"
@@ -30,7 +29,7 @@
 #include "command-request.hh"
 #include "musical-request.hh"
 #include "my-lily-parser.hh"
-#include "text-def.hh"
+#include "context-specced-music.hh"
 #include "translator-group.hh"
 #include "score.hh"
 #include "music-list.hh"
@@ -41,14 +40,18 @@
 #include "scope.hh"
 #include "relative-music.hh"
 #include "transposed-music.hh"
-#include "compressed-music.hh"
-#include "repeated-music.hh"
+#include "time-scaled-music.hh"
+#include "new-repeated-music.hh"
 
 // mmm
-Mudela_version oldest_version ("1.0.14");
-Mudela_version version ("1.0.15");
-
+Mudela_version oldest_version ("1.0.16");
+Mudela_version version ("1.0.19");
 
+void
+print_mudela_versions (ostream &os)
+{
+  os << "Mudela versions: oldest  " << oldest_version.str () << " current " << version.str () <<endl;
+}
 // needed for bison.simple's malloc() and free()
 #include <malloc.h>
 
@@ -96,7 +99,6 @@ Paper_def* current_paper = 0;
     Array<int> *intvec;
     Notename_table *chordmodifiertab;
     Duration *duration;
-    General_script_def * script;
     Identifier *id;
     Music *music;
     Music_list *music_list;
@@ -108,19 +110,16 @@ Paper_def* current_paper = 0;
     Musical_pitch * pitch;
     Midi_def* midi;
     Moment *moment;
-    Note_req *notereq;
     Notename_table *notenametab;
     Paper_def *paper;
     Real real;
     Request * request;
     Scalar *scalar;
-    Simultaneous_music *chord;
+
     String *string;
     Tempo_req *tempo;
-    Text_def * textdef;
     Translator* trans;
     char c;
-    const char *consstr;
     int i;
     int ii[10];
 }
@@ -143,7 +142,7 @@ yylex (YYSTYPE *s,  void * v_l)
 
 /* tokens which are not keywords */
 
-%token ABSDYNAMIC
+%token TEXTSCRIPT
 %token ACCEPTS
 %token ALTERNATIVE
 %token BAR
@@ -153,6 +152,7 @@ yylex (YYSTYPE *s,  void * v_l)
 %token CLEF
 %token CM_T
 %token CONSISTS
+%token CONSISTSEND
 %token DURATION
 %token EXTENDER
 %token FONT
@@ -184,19 +184,20 @@ yylex (YYSTYPE *s,  void * v_l)
 %token SCRIPT
 %token SHAPE
 %token SKIP
-%token SPANDYNAMIC
+%token SPANREQUEST
 %token TEMPO
 %token TIME_T
 %token TIMES
 %token TRANSLATOR
 %token TRANSPOSE
 %token TYPE
+%token CONTEXT
 %token VERSION
 
 /* escaped */
 %token E_EXCLAMATION E_SMALLER E_BIGGER E_CHAR
 
-%type <i>	dots
+%type <i>	dots exclamations questions
 %token <i>	DIGIT
 %token <pitch>	NOTENAME_PITCH
 %token <pitch>	TONICNAME_PITCH
@@ -205,9 +206,7 @@ yylex (YYSTYPE *s,  void * v_l)
 %token <id>	IDENTIFIER
 %token <id>	NOTENAME_TABLE_IDENTIFIER
 %token <id>	MUSIC_IDENTIFIER
-%token <id>	POST_REQUEST_IDENTIFIER
-%token <id>	SCRIPT_IDENTIFIER
-%token <id>	COMMAND_IDENTIFIER
+%token <id>	REQUEST_IDENTIFIER
 %token <id>	REAL_IDENTIFIER
 %token <id>	STRING_IDENTIFIER
 %token <id>	TRANS_IDENTIFIER
@@ -224,6 +223,7 @@ yylex (YYSTYPE *s,  void * v_l)
 %type <outputdef> output_def
 %type <scope> 	mudela_header mudela_header_body
 %type <request>	open_request_parens close_request_parens open_request close_request
+%type <request> request_with_dir request_that_take_dir verbose_request
 %type <i>	sub_quotes sup_quotes
 %type <music>	simple_element  request_chord command_element Simple_music  Composite_music 
 %type <music>	Alternative_music Repeated_music
@@ -236,10 +236,10 @@ yylex (YYSTYPE *s,  void * v_l)
 %type <duration> entered_notemode_duration explicit_duration
 %type <intvec>	intastint_list int_list
 %type <reqvec>  pre_requests post_requests
-
+%type <request> gen_text_def
 %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 chord_notes
@@ -248,26 +248,25 @@ yylex (YYSTYPE *s,  void * v_l)
 %type <duration>	duration_length
 
 %type <scalar>  scalar
-%type <music>	Music  relative_music Sequential_music Simultaneous_music
+%type <music>	Music  relative_music Sequential_music Simultaneous_music Music_sequence
 %type <music>	property_def translator_change
 %type <music_list> Music_list
 %type <paper>	paper_block paper_def_body
 %type <real>	real_expression real real_with_dimension
 %type <request> abbrev_command_req
-%type <request>	post_request structured_post_request
+%type <request>	post_request 
 %type <request> command_req verbose_command_req
-%type <request>	script_req  dynamic_req extender_req
+%type <request>	extender_req
 %type <string>	string
 %type <score>	score_block score_body
 %type <intarr>	shape_array
-%type <script>	script_definition script_body mudela_script gen_script_def
-%type <textdef> text_def finger
+
 %type <string>	script_abbreviation
 %type <trans>	translator_spec_block translator_spec_body
 %type <tempo> 	tempo_request
 %type <notenametab> notenames_body notenames_block chordmodifiers_block
 
-%expect 7
+
 
 
 %left '-' '+'
@@ -312,17 +311,17 @@ toplevel_expression:
 	;
 
 embedded_scm:
-	SCMFILE STRING ';' {
+	SCMFILE STRING semicolon {
 		read_lily_scm_file (*$2);
 		delete $2;
 	}
-	| SCM_T STRING ';' {
+	| SCM_T STRING semicolon {
 		gh_eval_str ($2->ch_l ());
 		delete $2;
 	};
 
 check_version:
-	VERSION STRING ';'		{
+	VERSION STRING semicolon		{
 	 	Mudela_version ver (*$2);
 		if (!((ver >= oldest_version) && (ver <= version))) {
 			if (THIS->ignore_version_b_) {
@@ -367,7 +366,7 @@ mudela_header_body:
 		$$ = new Scope;
 		THIS->lexer_p_-> scope_l_arr_.push ($$);
 	}
-	| mudela_header_body assignment ';' { 
+	| mudela_header_body assignment semicolon { 
 
 	}
 	;
@@ -422,7 +421,7 @@ identifier_init:
 	}
 
 	| post_request {
-		$$ = new Request_identifier ($1, POST_REQUEST_IDENTIFIER);
+		$$ = new Request_identifier ($1, REQUEST_IDENTIFIER);
 	}
 	| explicit_duration {
 		$$ = new Duration_identifier ($1, DURATION_IDENTIFIER);
@@ -436,15 +435,13 @@ identifier_init:
 	| int	{
 		$$ = new int_identifier (new int ($1), INT_IDENTIFIER);
 	}
-	| script_definition {
-		$$ = new General_script_def_identifier ($1, SCRIPT_IDENTIFIER);
-
-	}
 	;
 
 translator_spec_block:
 	TRANSLATOR '{' translator_spec_body '}'
-		{ $$ = $3; }
+		{
+		$$ = $3;
+	}
 	;
 
 translator_spec_body:
@@ -452,7 +449,7 @@ translator_spec_body:
 		$$ = $1->access_content_Translator (true);
 		$$-> set_spot (THIS->here_input ());
 	}
-	| TYPE STRING ';'	{
+	| TYPE STRING semicolon	{
 		Translator* t = get_translator_l (*$2);
 		Translator_group * tg = dynamic_cast<Translator_group*> (t);
 
@@ -464,7 +461,7 @@ translator_spec_body:
 		$$ = t;
 		delete $2;
 	}
-	| translator_spec_body STRING '=' identifier_init ';'	{ 
+	| translator_spec_body STRING '=' identifier_init semicolon	{ 
 		Identifier* id = $4;
 		String_identifier *s = dynamic_cast<String_identifier*> (id);
 		Real_identifier *r= dynamic_cast<Real_identifier*>(id);
@@ -482,19 +479,23 @@ translator_spec_body:
 		Translator_group * tr = dynamic_cast<Translator_group*>($$);
 		tr->set_property (*$2, str);
 	}
-	| translator_spec_body NAME STRING ';' {
+	| translator_spec_body NAME STRING semicolon {
 		$$->type_str_ = *$3;
 		delete $3;
 	}
-	| translator_spec_body CONSISTS STRING ';' {
+	| translator_spec_body CONSISTS STRING semicolon {
+		dynamic_cast<Translator_group*> ($$)-> set_element (*$3, true);
+		delete $3;
+	}
+	| translator_spec_body CONSISTSEND STRING semicolon {
 		dynamic_cast<Translator_group*> ($$)-> set_element (*$3, true);
 		delete $3;
 	}
-	| translator_spec_body ACCEPTS STRING ';' {
+	| translator_spec_body ACCEPTS STRING semicolon {
 		dynamic_cast<Translator_group*> ($$)-> set_acceptor (*$3, true);
 		delete $3;
 	}
-	| translator_spec_body REMOVE STRING ';' {
+	| translator_spec_body REMOVE STRING semicolon {
 		dynamic_cast<Translator_group*> ($$)-> set_element (*$3, false);
 		delete $3;
 	}
@@ -567,6 +568,7 @@ paper_block:
 	}
 	;
 
+
 optional_dot:
 	/* empty */
 	| '.'
@@ -589,13 +591,13 @@ paper_def_body:
 		delete $5;
 		$$->set_lookup ($2, l);
 	}
-	| paper_def_body assignment ';' {
+	| paper_def_body assignment semicolon {
 
 	}
 	| paper_def_body translator_spec_block {
 		$$->assign_translator ($2);
 	}
-	| paper_def_body SHAPE '=' shape_array ';' {
+	| paper_def_body SHAPE '=' shape_array semicolon {
 		$$->shape_int_a_ = *$4;
 		delete $4;
 	}
@@ -680,7 +682,7 @@ midi_body: /* empty */ 		{
 	| midi_body translator_spec_block	{
 		$$-> assign_translator ($2);
 	}
-	| midi_body tempo_request ';' {
+	| midi_body tempo_request semicolon {
 		$$->set_tempo ($2->dur_.length_mom (), $2->metronome_i_);
 		delete $2;
 	}
@@ -714,22 +716,33 @@ Music:
 	| Composite_music
 	;
 
-Alternative_music: {
-		Music_list* m = new Music_list;
-		$$ = new Sequential_music (m);
+Alternative_music:
+	/* empty */ {
+		$$ = 0;
 	}
-	| ALTERNATIVE Simultaneous_music {
+	| ALTERNATIVE Music_sequence {
 		$$ = $2;
 	}
-	| ALTERNATIVE Sequential_music {
-		$$ = $2;
+	;
+
+
+
+
+Repeated_music:
+	REPEAT STRING unsigned Music Alternative_music
+	{
+		Music_sequence* m = dynamic_cast <Music_sequence*> ($5);
+
+		New_repeated_music * r = new New_repeated_music ($4, $3 >? 1, m);
+		$$ = r;
+		r->fold_b_ = (*$2 == "fold");
+		r->semi_fold_b_ =  (*$2 == "semi");
+		delete $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);
+Music_sequence: '{' Music_list '}'	{
+		$$ = new Music_sequence ($2);
 	}
 	;
 
@@ -750,26 +763,33 @@ Simple_music:
 	| translator_change
 	| Simple_music '*' unsigned '/' unsigned 	{
 		/* urg */
-		$$ = new Compressed_music ($3, $5, $1);
+		$$ = new Time_scaled_music ($3, $5, $1);
 	}
 	| Simple_music '*' unsigned		 {
-		$$ = new Compressed_music ($3, 1, $1);
+		$$ = new Time_scaled_music ($3, 1, $1);
 	}
 	;
 
 
 Composite_music:
-	TYPE STRING Music	{
-		$$ = $3;
-		$$->translator_type_str_ = *$2;
+	CONTEXT STRING Music	{
+		Context_specced_music *csm =  new Context_specced_music ($3);
+
+		csm->translator_type_str_ = *$2;
+		csm->translator_id_str_ = "";
 		delete $2;
+
+		$$ = csm;
 	}
-	| TYPE STRING '=' STRING Music {
-		$$ = $5;
-		$$->translator_type_str_ = *$2;
-		$$->translator_id_str_ = *$4;
+	| CONTEXT STRING '=' STRING Music {
+		Context_specced_music *csm =  new Context_specced_music ($5);
+
+		csm->translator_type_str_ = *$2;
+		csm->translator_id_str_ = *$4;
 		delete $2;
 		delete $4;
+
+		$$ = csm;
 	}
 	| TIMES {
 		THIS->remember_spot ();
@@ -778,7 +798,7 @@ Composite_music:
 		unsigned '/' unsigned Music 	
 
 	{
-		$$ = new Compressed_music ($3, $5, $6);
+		$$ = new Time_scaled_music ($3, $5, $6);
 		$$->set_spot (THIS->pop_spot ());
 	}
 	| Repeated_music		{ $$ = $1; }
@@ -838,11 +858,16 @@ translator_change:
 property_def:
 	PROPERTY STRING '.' STRING '=' scalar	{
 		Translation_property *t = new Translation_property;
-		t-> translator_type_str_ = *$2;
+
 		t-> var_str_ = *$4;
 		t-> value_ = *$6;
-		$$ = t;
+
+		Context_specced_music *csm = new Context_specced_music (t);
+		$$ = csm;
 		$$->set_spot (THIS->here_input ());
+
+		csm-> translator_type_str_ = *$2;
+
 		delete $2;
 		delete $4;
 		delete $6;
@@ -850,7 +875,7 @@ property_def:
 	;
 
 scalar:
-	STRING		{ $$ = new Scalar (*$1); delete $1; }
+	string		{ $$ = new Scalar (*$1); delete $1; }
 	| int		{ $$ = new Scalar ($1); }
 	;
 
@@ -879,7 +904,7 @@ command_element:
 
 command_req:
 	abbrev_command_req
-	| verbose_command_req ';'	{ $$ = $1; }
+	| verbose_command_req semicolon	{ $$ = $1; }
 	;
 
 abbrev_command_req:
@@ -889,20 +914,19 @@ abbrev_command_req:
 	| '|'				{
 		$$ = new Barcheck_req;
 	}
-	| COMMAND_IDENTIFIER	{
-		$$ = $1->access_content_Request (true);
-	}
 	| '~'	{
 		$$ = new Tie_req;
 	}
 	| '['		{
-		Beam_req*b= new Beam_req;
-		b->spantype_ = START;
+		Span_req*b= new Span_req;
+		b->span_dir_ = START;
+		b->span_type_str_ = "beam";
 		$$ =b;
 	}
 	| ']'		{
-		Beam_req*b= new Beam_req;
-		b->spantype_ = STOP;
+		Span_req*b= new Span_req;
+		b->span_dir_ = STOP;
+		b->span_type_str_ = "beam";
 		$$ = b;
 	}
 	;
@@ -926,9 +950,9 @@ verbose_command_req:
 		m->one_beat_i_=$4;
 		$$ = m;
 	}
-	| PENALTY '=' int	{
+	| PENALTY int	{
 		Break_req * b = new Break_req;
-		b->penalty_i_ = $3;
+		b->penalty_i_ = $2;
 		b-> set_spot (THIS->here_input ());
 		$$ = b;
 	}
@@ -960,14 +984,14 @@ verbose_command_req:
 		$$ = key_p;
 		delete $2;
 	}
-	| KEYSIGNATURE pitch_list 	{
+	| KEYSIGNATURE pitch_list {
 		Key_change_req *key_p= new Key_change_req;
 		key_p->pitch_arr_ = *$2;
 		key_p->ordinary_key_b_ = false;
 		$$ = key_p;
 		delete $2;
 	}
-	| GROUPING intastint_list {
+	| GROUPING intastint_list  {
 		  Measure_grouping_req * mr_p = new Measure_grouping_req;
 		  for (int i=0; i < $2->size();) 
 		    {
@@ -985,33 +1009,75 @@ post_requests:
 	{
 		$$ = new Link_array<Request>;
 	}
-	| post_requests structured_post_request {
+	| post_requests post_request {
 		$2->set_spot (THIS->here_input ());
 		$$->push ($2);
 	}
-	| post_requests close_request	{
-		$$->push ($2);
-	}
 	;
 
-structured_post_request:
-	script_req
-	| post_request
+post_request:
+	verbose_request
+	| request_with_dir
+	| close_request
 	;
 
-post_request:
-	POST_REQUEST_IDENTIFIER	{
+
+request_that_take_dir:
+	gen_text_def
+	| verbose_request
+	| script_abbreviation {
+		Identifier*i = THIS->lexer_p_->lookup_identifier ("dash-" + *$1);
+		Articulation_req *a = new Articulation_req;
+		a->articulation_str_ = *i->access_content_String (false);
+		delete $1;
+		$$ = a;
+	}
+	;
+
+request_with_dir:
+	script_dir request_that_take_dir	{
+		if (G_script_req * gs = dynamic_cast<G_script_req*> ($2))
+			gs->dir_ = $1;
+		else if ($1)
+			$2->warning ("Can't specify direction for this request");
+		$$ = $2;
+	}
+	;
+	
+verbose_request:
+	REQUEST_IDENTIFIER	{
 		$$ = (Request*)$1->access_content_Request (true);
+		$$->set_spot (THIS->here_input ());
 	}
-	| dynamic_req {
-		$$ = $1;
+	| TEXTSCRIPT STRING STRING 	{
+		Text_script_req *ts_p = new Text_script_req;
+		ts_p-> text_str_ = *$2;
+		ts_p-> style_str_ = *$3;
+		ts_p->set_spot (THIS->here_input ());
+		delete $3;
+		delete $2;
+		$$ = ts_p;
+	}
+	| SPANREQUEST int STRING {
+		Span_req * sp_p = new Span_req;
+		sp_p-> span_dir_  = Direction($2);
+		sp_p->span_type_str_ = *$3;
+		sp_p->set_spot (THIS->here_input ());
+		$$ = sp_p;
 	}
 	| abbrev_type	{
 		Abbreviation_req* a = new Abbreviation_req;
+		a->set_spot (THIS->here_input ());
 		a->type_i_ = $1;
 		$$ = a;
 	}
-
+	| SCRIPT STRING 	{ 
+		Articulation_req * a = new Articulation_req;
+		a->articulation_str_ = *$2;
+		a->set_spot (THIS->here_input ());
+		$$ = a;
+		delete $2;
+	}
 	;
 
 optional_modality:
@@ -1086,23 +1152,6 @@ musical_pitch:
 	| explicit_musical_pitch
 	;
 
-steno_notepitch:
-	musical_pitch	{
-		$$ = new Note_req;
-		
-		$$->pitch_ = *$1;
-		delete $1;
-	}
-	| steno_notepitch  '!' 		{
-		$$->forceacc_b_ = ! $$->forceacc_b_;
-	}
-	| steno_notepitch  '?' 		{
-		$$->forceacc_b_ = ! $$->forceacc_b_;
-		$$->cautionary_b_ = ! $$->cautionary_b_;
-	}
-	;
-
-
 explicit_duration:
 	DURATION '{' int_list '}'	{
 		$$ = new Duration;
@@ -1124,41 +1173,27 @@ extender_req:
 	}
 	;
 
-dynamic_req:
-	ABSDYNAMIC '{' STRING '}'	{
-		Absolute_dynamic_req *ad_p = new Absolute_dynamic_req;
-		ad_p ->loudness_str_ = *$3;
-		delete $3;
-		$$ =ad_p;
-	}
-	| SPANDYNAMIC '{' int int '}' {
-		Span_dynamic_req * sp_p = new Span_dynamic_req;
-		sp_p-> dynamic_dir_  = Direction($3);
-		sp_p->spantype_ = Direction($4);
-		$$ = sp_p;
-	}
-	;
-
-
 close_request:
 	close_request_parens {
 		$$ = $1;
-		dynamic_cast<Span_req*> ($$)->spantype_ = START;
+		dynamic_cast<Span_req*> ($$)->span_dir_ = START;
 	}
 	
 close_request_parens:
 	'('	{
-		$$= new Slur_req;
+		Span_req* s= new Span_req;
+		$$ = s;
+		s->span_type_str_ = "slur";
 	}
 	| E_SMALLER {
-		Span_dynamic_req*s =new Span_dynamic_req;
+		Span_req*s =new Span_req;
 		$$ = s;
-		s->dynamic_dir_ = UP;
+		s->span_type_str_ = "crescendo";
 	}
 	| E_BIGGER {
-		Span_dynamic_req*s =new Span_dynamic_req;
+		Span_req*s =new Span_req;
 		$$ = s;
-		s->dynamic_dir_ = DOWN;
+		s->span_type_str_ = "decrescendo";
 	}
 	;
 
@@ -1166,76 +1201,33 @@ close_request_parens:
 open_request:
 	open_request_parens {
 		$$ = $1;
-		dynamic_cast<Span_req*> ($$)->spantype_ = STOP;
+		dynamic_cast<Span_req*> ($$)->span_dir_ = STOP;
 	}
 	;
 
 open_request_parens:
 	E_EXCLAMATION 	{
-		Span_dynamic_req *s =  new Span_dynamic_req;
-		s->dynamic_dir_ = SMALLER;
+		Span_req *s =  new Span_req;
+		s->span_type_str_ = "crescendo";
 		$$ = s;
-		
 	}
 	| ')'	{
-		$$= new Slur_req
-	}
-	;
-
-
-
-script_definition:
-	SCRIPT '{' script_body '}' 	{ $$ = $3; }
-	;
-
-script_body:
-	STRING int int int int int		{
-		Script_def *s = new Script_def;
-		s->set_from_input (*$1,$2, $3,$4,$5, $6);
-		$$  = s;
-		delete $1;
-	}
-	;
-
-script_req:
-	script_dir gen_script_def	{
-		Musical_script_req *m = new Musical_script_req;
-		$$ = m;
-		m->scriptdef_p_ = $2;
-		m->set_spot (THIS->here_input ());
-		if (!m->dir_)
-		  m->dir_  = (Direction)$1;
-	}
-	;
-
-gen_script_def:
-	text_def	{ 
-		$$ = $1;
-		((Text_def*) $$)->align_dir_ = LEFT; /* UGH */
-	}
-	| mudela_script	{ 
-		$$ = $1;
-		$$-> set_spot (THIS->here_input ());
-	}
-	| finger {
-		$$ = $1;
-		((Text_def*)$$)->align_dir_ = RIGHT; /* UGH */
+		Span_req* s= new Span_req;
+		$$ = s;
+		s->span_type_str_ = "slur";
 	}
 	;
 
-text_def:
+gen_text_def:
 	string {
-		Text_def *t  = new Text_def;
+		Text_script_req *t  = new Text_script_req;
 		$$ = t;
 		t->text_str_ = *$1;
 		delete $1;
 		$$->set_spot (THIS->here_input ());
 	}
-	;
-
-finger:
-	 DIGIT {
-		Text_def* t  = new Text_def;
+	| DIGIT {
+		Text_script_req* t  = new Text_script_req;
 		$$ = t;
 		t->text_str_ = to_str ($1);
 		t->style_str_ = "finger";
@@ -1245,45 +1237,30 @@ finger:
 
 script_abbreviation:
 	'^'		{
-		$$ = THIS->lexer_p_
-		->lookup_identifier ("dash-hat")->access_content_String (true)
-
+		$$ = new String ("hat");
 	}
 	| '+'		{
-		$$ = THIS->lexer_p_
-		->lookup_identifier ("dash-plus")->access_content_String (true)
- }
-	| '-'		{
-		$$ = THIS->lexer_p_
-		->lookup_identifier ("dash-dash")->access_content_String (true)
- }
+		$$ = new String ("plus");
+	}
+	| '-' 		{
+		$$ = new String ("dash");
+	}
  	| '|'		{
-		$$ = THIS->lexer_p_
-		->lookup_identifier ("dash-bar")->access_content_String (true)
- }
+		$$ = new String ("bar");
+	}
 	| '>'		{
-		$$ = THIS->lexer_p_
-		->lookup_identifier ("dash-larger")->access_content_String (true)
- }
+		$$ = new String ("larger");
+	}
 	| '.' 		{
-		$$ = THIS->lexer_p_
-		->lookup_identifier ("dash-dot")->access_content_String (true);
+		$$ = new String ("dot");
 	}
 	;
 
-mudela_script:
-	SCRIPT_IDENTIFIER		{ $$ = $1->access_content_General_script_def (true); }
-	| script_definition		{ $$ = $1; }
-	| script_abbreviation		{
-		$$ = THIS->lexer_p_->lookup_identifier (*$1)->access_content_General_script_def (true);
-		delete $1;
-	}
-	;
 
 script_dir:
 	'_'	{ $$ = DOWN; }
-	| '^'	{ $$ = CENTER; }
-	| '-'	{ $$ = UP; }
+	| '^'	{ $$ = UP; }
+	| '-'	{ $$ = CENTER; }
 	;
 
 pre_requests:
@@ -1313,18 +1290,11 @@ duration_length:
 	}
 	;
 
-dots:
-	'.'		{ $$ = 1; }
-	| dots '.'	{ $$ ++; }
-	;
-
 entered_notemode_duration:
-	/* */		{
+	dots		{
 		$$ = new Duration (THIS->default_duration_);
-	}
-	| dots		{
-		$$ = new Duration (THIS->default_duration_);
-		$$->dots_i_  = $1;
+		if ($1)
+			$$->dots_i_  = $1;
 	}
 	| steno_duration	{
 		THIS->set_last_duration ($1);
@@ -1369,13 +1339,28 @@ abbrev_type:
 	;
 
 
-
 simple_element:
-	steno_notepitch notemode_duration  {
+	musical_pitch exclamations questions notemode_duration  {
 		if (!THIS->lexer_p_->note_state_b ())
 			THIS->parser_error (_ ("have to be in Note mode for notes"));
-		$1->duration_ = *$2;
-		$$ = THIS->get_note_element ($1, $2);
+
+
+		Note_req *n = new Note_req;
+		
+		n->pitch_ = *$1;
+		delete $1;
+		n->duration_ = *$4;
+		delete $4;
+		n->cautionary_b_ = $3 % 2;
+		n->forceacc_b_ = $2 % 2 || n->cautionary_b_;
+
+		Simultaneous_music*v = new Request_chord;
+		v->set_spot (THIS->here_input ());
+		n->set_spot (THIS->here_input ());
+
+		v->add_music (n);
+
+		$$ = v;
 	}
 	| RESTNAME notemode_duration		{
 		$$ = THIS->get_rest_element (*$1, $2);
@@ -1419,6 +1404,7 @@ notemode_chord:
                 $$ = THIS->get_chord (*$1, $3, $4, $5, *$2);
         };
 
+
 chord_additions: 
 	{
 		$$ = new Array<Musical_pitch>;
@@ -1438,6 +1424,21 @@ chord_notes:
 	}
 	;
 
+chord_subtractions: 
+	{
+		$$ = new Array<Musical_pitch>;
+	} 
+	| '^' chord_notes {
+		$$ = $2;
+	}
+	;
+
+
+/*
+	forevery : X : optional_X sucks. Devise  a solution.
+*/
+
+
 chord_addsub:
 	chord_note optional_dot
 	| CHORDMODIFIER_PITCH optional_dot
@@ -1482,15 +1483,6 @@ chord_note:
 	}
         ;
 
-chord_subtractions: 
-	{
-		$$ = new Array<Musical_pitch>;
-	} 
-	| '^' chord_notes {
-		$$ = $2;
-	}
-	;
-
 /*
 	UTILITIES
  */
@@ -1550,8 +1542,27 @@ string:
 
 
 
+dots:
+			{ $$ = 0; }
+	| dots '.'	{ $$ ++; }
+	;
+
+
+
+exclamations:
+		{ $$ = 0; }
+	| exclamations '!'	{ $$ ++; }
+	;
+
+questions:
+		{ $$ = 0; }
+	| questions '?'	{ $$ ++; }
+	;
 
 
+semicolon:
+	';'
+	;
 %%
 
 void
@@ -1568,3 +1579,4 @@ My_lily_parser::do_yyparse ()
 }
 
 
+