From b2c05fb789b33eb7720aa5242e53d780f1745412 Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Tue, 4 Mar 1997 22:12:59 +0000
Subject: [PATCH] lilypond-0.0.39

---
 lily/include/parser.hh |  86 +++++
 lily/lexer.l           | 281 ++++++++++++++
 lily/parser.y          | 828 +++++++++++++++++++++++++++++++++++++++++
 3 files changed, 1195 insertions(+)
 create mode 100644 lily/include/parser.hh
 create mode 100644 lily/lexer.l
 create mode 100644 lily/parser.y

diff --git a/lily/include/parser.hh b/lily/include/parser.hh
new file mode 100644
index 0000000000..3a3d4de3ef
--- /dev/null
+++ b/lily/include/parser.hh
@@ -0,0 +1,86 @@
+typedef union {
+    Request * request;
+    Real real;
+    Identifier *id;    
+   Voice *voice;    
+    Voice_element *el;	
+    String *string;
+    const char *consstr;
+    Paper_def *paper;
+    Midi_def* midi;
+    Input_music *music;
+    Music_general_chord *chord;
+    Music_voice *mvoice; 
+    int i;
+    char c;
+    int ii[10];
+	Moment *moment;
+
+    Array<String> * strvec;
+    Array<int> *intvec;
+    Array<Melodic_req*> *melreqvec;
+    Input_staff *staff;    
+    Input_score *score;
+    Symtables * symtables;
+    Symtable * symtable;
+    Symbol * symbol;
+    Lookup*lookup;
+    Interval *interval;
+    Box *box;
+    Notename_tab *notename_tab;
+    Script_def * script;
+    Text_def * textdef;
+} YYSTYPE;
+#define	VOICE	258
+#define	STAFF	259
+#define	SCORE	260
+#define	TITLE	261
+#define	BAR	262
+#define	OUTPUT	263
+#define	MULTIVOICE	264
+#define	CM_T	265
+#define	IN_T	266
+#define	PT_T	267
+#define	MM_T	268
+#define	PAPER	269
+#define	WIDTH	270
+#define	METER	271
+#define	UNITSPACE	272
+#define	SKIP	273
+#define	COMMANDS	274
+#define	COMMAND	275
+#define	GEOMETRIC	276
+#define	START_T	277
+#define	DURATIONCOMMAND	278
+#define	OCTAVECOMMAND	279
+#define	KEY	280
+#define	CLEF	281
+#define	TABLE	282
+#define	VOICES	283
+#define	STEM	284
+#define	PARTIAL	285
+#define	MUSIC	286
+#define	GROUPING	287
+#define	CADENZA	288
+#define	END	289
+#define	SYMBOLTABLES	290
+#define	TEXID	291
+#define	NOTENAMES	292
+#define	SCRIPT	293
+#define	TEXTSTYLE	294
+#define	PLET	295
+#define	GOTO	296
+#define	MIDI	297
+#define	TEMPO	298
+#define	IDENTIFIER	299
+#define	PITCHMOD	300
+#define	DURATION	301
+#define	RESTNAME	302
+#define	NOTENAME	303
+#define	REAL	304
+#define	STRING	305
+#define	DOTS	306
+#define	INT	307
+
+
+extern YYSTYPE yylval;
diff --git a/lily/lexer.l b/lily/lexer.l
new file mode 100644
index 0000000000..6f5945a605
--- /dev/null
+++ b/lily/lexer.l
@@ -0,0 +1,281 @@
+%{ // -*-Fundamental-*-
+
+#include <stdio.h>
+
+#include "string.hh"
+#include "string-convert.hh"
+#include "notename.hh"
+#include "lexer.hh"
+#include "varray.hh"
+#include "parser.hh"
+#include "debug.hh"
+#include "input-score.hh"
+#include "parseconstruct.hh"
+#include "main.hh"
+
+%}
+
+%option c++
+%option noyywrap
+%option nodefault
+%option yylineno
+%option debug
+%option yyclass="My_flex_lexer"
+%option stack
+
+%x notes
+%x incl
+%x quote
+%x lyrics
+
+
+
+A		[a-zA-Z]
+AA		{A}|_
+N		[0-9]
+AN		{AA}|{N}
+PUNCT		[?!,.:;]
+ACCENT		[\\'"^]
+NATIONAL	[\241-\377]
+TEX		{AA}|-|{PUNCT}|{ACCENT}|{NATIONAL}
+
+WORD		{A}{AN}*
+ALPHAWORD	{A}+
+INT		-?{N}+
+REAL		{INT}?(\.{N}*)?
+
+OPTSIGN		!?
+PITCHMOD	['`]*{OPTSIGN}
+RESTNAME	r|s|p
+NOTECOMMAND	\\{WORD}
+NOTENAME	[a-z]+
+UNOTENAME	[A-Z][a-z]*
+DOTS		\.+
+LYRICS		{TEX}+
+COMMENT		[%#].*\n
+
+%%
+
+\$		{
+	yy_push_state(notes); 
+}
+
+\@		{
+	yy_push_state(lyrics); 
+}
+
+<notes>{RESTNAME} 	{
+	const char *s = YYText();
+	yylval.string = new String (s);	
+	mtor << "rest:"<< yylval.string;
+	return RESTNAME;
+}
+<notes>{UNOTENAME}	{
+	int *p=yylval.ii;
+	return ret_notename(p, YYText(), -1);
+}
+
+<notes>{NOTENAME}	{
+	int *p=yylval.ii;
+	return ret_notename(p, YYText(), 0);
+}
+
+<notes>{NOTECOMMAND}	{
+	String c = YYText() +1;
+	mtor << "\\word: " << YYText()+1<<eol;
+	int l = lookup_keyword(c);
+	if (l != -1)
+		return l;
+	Identifier * id = lookup_identifier(c);
+	if (id) {		
+		yylval.id = id;
+		return IDENTIFIER;
+	}
+	String *sp = new String( c);
+	yylval.string=sp;
+	return STRING;
+}
+
+<notes>{PITCHMOD}	{
+	const char *s = YYText();
+	mtor << "pitchmod:"<< YYText()<<eol;
+	yylval.string = new String (s);
+	return PITCHMOD;
+}
+<notes>{DOTS}		{
+	yylval.i = strlen(YYText());
+	return DOTS;
+}
+<notes>{INT}		{
+	yylval.i = String_convert::dec2_i( String( YYText() ) );
+	return INT;
+}
+<notes>{COMMENT}	{
+}
+<notes>[ \t\n]+		{
+
+}
+<notes>\$	{
+	yy_pop_state();
+}
+<notes>\"[^"]*\" {
+	String s (YYText()+1);
+	s = s.left_str(s.length_i()-1);
+	yylval.string = new String(s);
+	return STRING;
+}
+<notes>.	{
+	return yylval.c = YYText()[0];
+}
+
+\"		{
+	yy_push_state(quote);
+}
+<quote>[^"]*	{
+	yylval.string = new String (YYText());
+}
+<quote>\"	{
+	mtor << "quoted string\n";
+	yy_pop_state();
+	return STRING;
+}
+
+<lyrics>{DOTS}		{
+	yylval.i = strlen(YYText());
+	return DOTS;
+}
+<lyrics>{INT}		{
+	yylval.i = String_convert::dec2_i( String( YYText() ) );
+	return INT;
+}
+<lyrics>{NOTECOMMAND}	{
+	String c = YYText() +1;
+	mtor << "\\word: " << YYText()+1<<eol;
+	int l = lookup_keyword(c);
+	if (l != -1)
+		return l;
+
+/* let's try passing tex's typesetting macros like \ss \alpha \c */
+	String* str_p = new String(YYText());//huh?
+	return STRING;	
+
+/* and skip identifiers...
+	Identifier * id = lookup_identifier(c);
+	if (id) {		
+		yylval.id = id;
+		return IDENTIFIER;
+	}
+	String *sp = new String( c);
+
+	yylval.string=sp;
+	return STRING;
+*/
+}
+<lyrics>\"[^"]*\" {
+	String s (YYText()+1);
+	s = s.left_str(s.length_i()-1);
+	yylval.string = new String(s);
+	return STRING;
+}
+<lyrics>{LYRICS} {
+	String s (YYText()); 
+	int i = 0;
+	while ((i=s.index_i("_")) != -1) // change word binding "_" to " "
+		*(s.ch_l() + i) = ' ';
+	if ((i=s.index_i("\\,")) != -1)   // change "\," to TeX's "\c "
+		{
+		*(s.ch_l() + i + 1) = 'c';
+		s = s.left_str(i+2) + " " + s.right_str(s.length_i()-i-2);
+		}
+	yylval.string = new String(s);
+	return STRING;
+}
+<lyrics>\|	{
+	return YYText()[0];
+}
+<lyrics>{COMMENT}		{ 
+
+}
+<lyrics>[{}]	{
+	return YYText()[0];
+}
+<lyrics>[()\[\]|/.^>_-] {
+	return yylval.c = YYText()[0];
+}
+<lyrics>[ \t\n]+		{
+}
+<lyrics>@	{
+	yy_pop_state();
+}
+
+<<EOF>> {
+	mtor << "<<EOF>>";
+
+	if (! close_input())
+ 	  yyterminate(); // can't move this, since it actually rets a YY_NULL
+}
+
+
+include           {
+	yy_push_state(incl);
+}
+<incl>[ \t]*      { /* eat the whitespace */ }
+<incl>\"[^"]*\"+   { /* got the include file name */
+   String s (YYText()+1);
+   s = s.left_str(s.length_i()-1);
+   defined_ch_c_l = here_ch_c_l() - String( YYText() ).length_i() - 1;
+   new_input(s);
+   yy_pop_state();
+}
+
+
+{WORD}		{
+	mtor << "word: " << YYText()<<eol;
+	String c = YYText();
+	int l = lookup_keyword(c);
+	if (l != -1)
+		return l;
+	Identifier * id = lookup_identifier(c);
+	if (id) {		
+		yylval.id = id;
+		return IDENTIFIER;
+	}
+	String *sp = new String( c);
+	mtor << "new id: " << *sp << eol;
+	yylval.string=sp;
+	return STRING;
+}
+
+{REAL}		{
+	Real r;
+	int cnv=sscanf (YYText(), "%lf", &r);
+	assert(cnv == 1);
+	mtor  << "REAL" << r<<'\n';
+	yylval.real = r;
+	return REAL;
+}
+
+[{}]	{
+
+	mtor << "parens\n";
+	return YYText()[0];
+}
+[*:=]		{
+	char c = YYText()[0];
+	mtor << "misc char" <<c<<"\n";
+	return c;
+}
+[ \t\n]+	{
+	
+}
+
+{COMMENT}		{
+	//ignore
+}
+.		{
+	error( String( "illegal character: " ) + String( YYText()[0] ), here_ch_c_l() );
+	return YYText()[0];
+}
+
+%%
+
diff --git a/lily/parser.y b/lily/parser.y
new file mode 100644
index 0000000000..ba9703e4b8
--- /dev/null
+++ b/lily/parser.y
@@ -0,0 +1,828 @@
+%{ // -*-Fundamental-*-
+#include <iostream.h>
+
+#include "lookup.hh"
+#include "misc.hh"
+#include "lexer.hh"
+#include "paper-def.hh"
+#include "midi-def.hh"
+#include "input-score.hh"
+#include "main.hh"
+#include "keyword.hh"
+#include "debug.hh"
+#include "parseconstruct.hh"
+#include "dimen.hh"
+#include "identifier.hh"
+#include "commandrequest.hh"
+#include "musicalrequest.hh"
+#include "voice-element.hh"
+
+#ifndef NDEBUG
+#define YYDEBUG 1
+#endif
+
+Array<Request*> pre_reqs, post_reqs;
+Array<const char *> define_spots;
+Paper_def*default_paper();
+char const* defined_ch_c_l;
+char const* req_defined_ch_c_l;
+int fatal_error_i = 0;
+
+%}
+
+
+%union {
+    Request * request;
+    Real real;
+    Identifier *id;    
+   Voice *voice;    
+    Voice_element *el;	
+    String *string;
+    const char *consstr;
+    Paper_def *paper;
+    Midi_def* midi;
+    Input_music *music;
+    Music_general_chord *chord;
+    Music_voice *mvoice; 
+    int i;
+    char c;
+    int ii[10];
+	Moment *moment;
+
+    Array<String> * strvec;
+    Array<int> *intvec;
+    Array<Melodic_req*> *melreqvec;
+    Input_staff *staff;    
+    Input_score *score;
+    Symtables * symtables;
+    Symtable * symtable;
+    Symbol * symbol;
+    Lookup*lookup;
+    Interval *interval;
+    Box *box;
+    Notename_tab *notename_tab;
+    Script_def * script;
+    Text_def * textdef;
+}
+
+%token VOICE STAFF SCORE TITLE  BAR  OUTPUT MULTIVOICE
+%token CM_T IN_T PT_T MM_T PAPER WIDTH METER UNITSPACE SKIP COMMANDS COMMAND
+%token GEOMETRIC START_T DURATIONCOMMAND OCTAVECOMMAND
+%token KEY CLEF  TABLE  VOICES STEM
+%token PARTIAL MUSIC GROUPING CADENZA
+%token END SYMBOLTABLES TEXID TABLE NOTENAMES SCRIPT TEXTSTYLE PLET
+%token  GOTO
+%token MIDI TEMPO
+
+%token <id>  IDENTIFIER
+%token <string> PITCHMOD DURATION RESTNAME
+%token <ii> NOTENAME 
+%token <real> REAL 
+%token <string> STRING
+
+%token <i> DOTS INT
+%type <real> unit
+%type <melreqvec> pitch_list 
+%type <c> open_request_parens close_request_parens close_plet_parens
+%type <id> declaration
+%type <string> declarable_identifier
+%type <paper> paper_block paper_body
+%type <midi> midi_block midi_body
+%type <real> dim real
+%type <ii>  default_duration explicit_duration notemode_duration mudela_duration
+%type <ii> notename
+%type <moment> duration_length
+%type <el> voice_elt full_element lyrics_elt command_elt
+
+%type <score> score_block score_body
+%type <staff> staff_block staff_init staff_body
+%type <i> int
+%type <intvec> intastint_list
+%type <request> post_request pre_request command_req
+%type <string> pitchmod
+%type <music> music 
+%type <chord> music_chord music_chord_body
+
+%type <mvoice>  music_voice_body music_voice 
+
+%type <interval> dinterval
+%type <box> box
+%type <symtable> symtable symtable_body
+%type <lookup> symtables symtables_body
+%type <symbol> symboldef
+%type <notename_tab> notename_tab notename_tab_body
+%type <i> script_dir
+%type <script> script_definition script_body mudela_script
+%type <request> script_req textscript_req
+%type <textdef> mudela_text
+
+
+%%
+
+mudela:	/* empty */
+	| mudela score_block {
+		add_score($2);		
+	}
+	| mudela add_declaration { }
+	| mudela mudela_command  {}
+	;
+
+mudela_command:
+	notename_tab			{ lexer->set($1); }
+	;
+
+/*
+	DECLARATIONS
+*/
+add_declaration: declaration	{
+		lexer->add_identifier($1);
+	}
+	;
+
+declarable_identifier:
+	STRING { $$ = $1; }
+	| IDENTIFIER { $$ = new String($1->name); }
+	;
+
+declaration:
+	declarable_identifier '=' staff_block  {
+		$$ = new Staff_id(*$1, $3);
+		delete $1; 
+	}
+	| declarable_identifier '=' music_voice {
+		$$ = new M_voice_id(*$1, $3);
+		delete $1;
+	}
+	| declarable_identifier '=' script_definition {
+		$$ = new Script_id(*$1, $3);
+		delete $1;
+	}
+	| declarable_identifier '=' music_chord  {
+		$$ = new M_chord_id(*$1, $3);
+		delete $1;
+	}
+	| declarable_identifier '=' symtables {
+		$$ = new Lookup_id(*$1, $3);
+		delete $1;
+	}
+	| declarable_identifier '=' notename_tab {
+		$$ = new Notetab_id(*$1, $3);
+		delete $1;
+	}
+	| declarable_identifier '=' real	{
+		$$ = new Real_id(*$1, new Real($3));
+		delete $1;
+	}
+	| declarable_identifier error '}' {
+
+	}
+	;
+
+notename_tab:
+	NOTENAMES '{' notename_tab_body '}'	{ $$ = $3; }
+	;
+
+notename_tab_body:				{
+		$$ = new Notename_tab;
+	}
+	| IDENTIFIER				{
+		$$ = $1->notename_tab(true);
+	}
+	| notename_tab_body STRING int int			{
+		$$->set($3, $4, *$2);
+		delete $2;
+	}
+	;
+
+/*
+	SCORE
+*/
+score_block:
+	SCORE { define_spots.push(lexer->here_ch_c_l()); }
+	/*cont*/ '{' score_body '}' 	{
+		$$ = $4;
+		$$->defined_ch_c_l_ = define_spots.pop();
+		if (!$$->paper_p_ && ! $$->midi_p_)
+			$$->paper_p_ = default_paper();
+
+		/* handle error levels. */
+		$$->errorlevel_i_ = lexer->errorlevel_i_;
+		lexer->errorlevel_i_ = 0;
+	}
+	;
+
+score_body:		{ 
+		$$ = new Input_score; 
+	}
+	| score_body staff_block	{ $$->add($2); }
+	| score_body COMMANDS '{' music_voice_body '}'		{
+		$$->set($4);
+	}
+	| score_body paper_block		{ $$->set($2);	}
+	| score_body midi_block		{ $$->set($2);	}
+	| score_body error {
+
+	}
+	;
+
+intastint_list:
+	/* */	{ $$ =new Array<int>; }
+	| intastint_list int '*' int	{
+		$$->push($2); $$->push($4);
+	}
+	;
+
+
+/*
+	PAPER
+*/
+paper_block:
+	PAPER
+
+	'{' paper_body '}' 	{ $$ = $3; }
+	;
+
+paper_body:
+	/* empty */		 	{
+		$$ = default_paper();
+	}
+	| paper_body WIDTH dim		{ $$->linewidth = $3;}
+	| paper_body OUTPUT STRING	{ $$->outfile = *$3;
+		delete $3;
+	}
+	| paper_body symtables		{ $$->set($2); }
+	| paper_body UNITSPACE dim	{ $$->whole_width = $3; }
+	| paper_body GEOMETRIC REAL	{ $$->geometric_ = $3; }
+	| paper_body error {
+
+	}
+	;
+
+/*
+	MIDI
+*/
+midi_block:
+	MIDI
+
+	'{' midi_body '}' 	{ $$ = $3; }
+	;
+
+midi_body: { 
+		$$ = new Midi_def; 
+	}
+	| midi_body OUTPUT STRING	{ 
+		$$->outfile_str_ = *$3; 
+		delete $3; 
+	}
+	| midi_body TEMPO mudela_duration ':' int {
+		$$->set_tempo( wholes( $3[0], $3[1] ), $5 );
+	}
+	| midi_body error {
+
+	}
+	;
+
+/*
+	STAFFs
+*/
+staff_block:
+	STAFF 	{ define_spots.push(lexer->here_ch_c_l()); }
+/*cont*/	'{' staff_body '}' 	{
+		$$ = $4; 
+		$$-> defined_ch_c_l_ = define_spots.pop();
+	}
+	;
+
+
+
+staff_init:
+	IDENTIFIER		{ $$ = $1->staff(true); }
+	| STRING		{
+		$$ = new Input_staff(*$1);
+		delete $1;
+	}
+	;
+
+staff_body:
+	staff_init
+	| staff_body COMMANDS '{' music_voice_body '}'	{
+		$$->set_score_wide($4);
+	}
+	| staff_body music	{
+		$2->set_default_group( "staff_music" + String($$->music_.size()));
+		$$->add($2);
+	}
+	| staff_body error {
+	}
+	;
+
+/*
+	MUSIC
+*/
+music:
+	music_voice	{ $$ = $1; }
+	| music_chord	{ $$ = $1; }
+	;
+
+music_voice:  MUSIC '{' music_voice_body '}'	{ $$ = $3; }
+	;
+
+music_voice_body:
+	/* */ 	{
+		$$ = new Music_voice;
+	}
+	| music_voice_body IDENTIFIER {
+		$$->concatenate($2->mvoice(true));
+	}
+	| music_voice_body full_element {
+		$$->add_elt($2);
+	}
+	| music_voice_body voice_command {
+	}
+	| music_voice_body music	{
+		$$->add($2);
+	}
+	| music_voice_body error {
+	}
+	;
+
+music_chord:  '{' music_chord_body '}'	{ $$ = $2; }
+	;
+
+music_chord_body:
+	/* */	{
+		$$ = new Voice_group_chord;
+	}
+	| MULTIVOICE {
+		$$ = new Multi_voice_chord;
+	}
+	| music_chord_body IDENTIFIER {
+		$$->concatenate($2->mchord(true));
+	}
+	| music_chord_body music {
+		$$->add($2);
+	}
+	| music_chord_body full_element {
+		$$ ->add_elt($2);
+	}
+	| music_chord_body error {
+	}
+	;
+
+
+/*
+	VOICE ELEMENTS
+*/
+full_element:	pre_requests voice_elt post_requests {
+		add_requests($2, pre_reqs);
+		add_requests($2, post_reqs);
+		$$ = $2;
+	}
+ 	| pre_requests lyrics_elt post_requests {
+ 		add_requests($2, pre_reqs);
+ 		add_requests($2, post_reqs);
+ 		$$ = $2;
+        }
+	| command_elt
+	;
+
+command_elt:
+/* empty */ 	{
+		$$ = new Voice_element;
+		$$-> defined_ch_c_l_ = lexer->here_ch_c_l();
+	}
+/* cont: */
+	command_req	{
+		$2-> defined_ch_c_l_ = $$->defined_ch_c_l_;
+		$$->add($2);
+
+	}
+	;
+
+command_req:
+	 '|'				{ 
+		$$ = new Barcheck_req;
+	}
+	| BAR STRING 			{
+		$$ = new Bar_req(*$2);
+		delete $2;
+	}
+	| METER '{' int '*' int '}'	{
+		Meter_change_req *m = new Meter_change_req;
+		m->set($3,$5);
+		$$ = m;
+	}
+	| SKIP '{' duration_length '}' {
+		Skip_req * skip_p = new Skip_req;
+		skip_p->duration_ = *$3;
+		delete $3;
+		$$ = skip_p;
+	}
+	| CADENZA '{' int '}'	{
+		$$ = new Cadenza_req($3);
+	}
+	| PARTIAL '{' duration_length '}'	{
+		$$ = new Partial_measure_req(*$3);
+		delete $3;
+	}
+	| STEM '{' int '}'		{
+		$$ = get_stemdir_req($3);
+	}
+	| CLEF STRING {
+		$$ = new Clef_change_req(*$2);
+		delete $2;
+	}
+	| KEY '{' pitch_list '}' 	{	
+		Key_change_req *key_p= new Key_change_req;
+		key_p->melodic_p_arr_ = *$3;
+		$$ = key_p;
+		delete $3;
+	}
+	| GROUPING '{' intastint_list '}' {
+		$$ = get_grouping_req(*$3); delete $3;
+	}
+	;
+
+post_requests:
+	{
+		assert(post_reqs.empty());
+	}
+	| post_requests post_request {
+		$2->defined_ch_c_l_ = lexer->here_ch_c_l();
+		post_reqs.push($2);
+	}
+	| post_requests close_plet_parens INT '/' INT { 
+		post_reqs.push( get_request($2) ); 
+		req_defined_ch_c_l = lexer->here_ch_c_l();
+		post_reqs.push( get_plet_request( $2, $3, $5 ) ); 
+	}
+	;
+
+post_request:
+	close_request_parens	{ 
+		$$ = get_request($1); 
+	}
+	| script_req
+	| textscript_req
+	;
+
+close_plet_parens:
+	']' {
+		req_defined_ch_c_l = lexer->here_ch_c_l();
+		$$ = ']';
+	}
+	;
+
+close_request_parens:
+	'('	{ 
+		$$='(';
+	}
+	| ']'	{ 
+		$$ = ']';
+	}
+	;
+  
+open_request_parens:
+	')'	{ 
+		$$=')';
+	}
+	| '['	{
+		$$='[';
+	}
+	;
+
+script_definition:
+	SCRIPT '{' script_body '}' 	{ $$ = $3; }
+	;
+
+script_body:
+	STRING int int int 		{
+		$$ = new Script_def(*$1,$2, $3,$4);
+		delete $1;
+	}	
+	;
+
+textscript_req:
+	script_dir mudela_text		{ $$ = get_text_req($1,$2); }
+	;
+
+mudela_text:
+	STRING			{ 
+		defined_ch_c_l = lexer->here_ch_c_l();
+		$$ = get_text(*$1); 
+		delete $1;
+	}
+	;
+
+script_req:
+	script_dir mudela_script	{ 
+		$$ = get_script_req($1, $2);
+	}
+	;
+
+mudela_script:
+	IDENTIFIER		{ $$ = $1->script(true); }
+	| script_definition		{ $$ = $1; }
+	| '^'		{ $$ = get_scriptdef('^'); }
+	| '+'		{ $$ = get_scriptdef('+'); }
+	| '-'		{ $$ = get_scriptdef('-'); }
+ 	| '|'		{ $$ = get_scriptdef('|'); }
+	| 'o'		{ $$ = get_scriptdef('o'); }
+	| '>'		{ $$ = get_scriptdef('>'); }
+	| '.' 		{ $$ = get_scriptdef('.'); }
+	| DOTS 		{
+		if ( $1 > 1 ) 
+		    warning( "too many staccato dots", lexer->here_ch_c_l() );
+		$$ = get_scriptdef('.');
+	}
+	| error {
+		$$ = get_scriptdef('.');
+		yyerrok;
+	}
+	;
+
+script_dir:
+	'_'	{ $$ = -1; }
+	|'^'	{ $$ = 1; }
+	|'-'	{ $$ = 0; }
+	;
+
+pre_requests:
+	| pre_requests pre_request {
+		pre_reqs.push($2);
+		$2->defined_ch_c_l_ = lexer->here_ch_c_l();
+	}
+	;
+
+pre_request: 
+	open_request_parens	{ 
+		defined_ch_c_l = lexer->here_ch_c_l();
+		$$ = get_request($1); 
+	}
+	;
+
+voice_command:
+	PLET	'{' INT '/' INT '}'		{
+		set_plet($3,$5);
+	}
+	| DURATIONCOMMAND '{' STRING '}'	{
+		set_duration_mode(*$3);
+		delete $3;
+	}
+	| DURATIONCOMMAND '{' notemode_duration '}'	{
+		set_default_duration($3);
+	}
+	| OCTAVECOMMAND '{' pitchmod '}'	{
+		set_default_octave(*$3);
+		delete $3;
+	}
+	| TEXTSTYLE STRING 	{
+		set_text_style(*$2);
+		delete $2;
+	}
+	;
+
+duration_length:	
+	mudela_duration		{
+		$$ = new Moment(wholes($1[0], $1[1]));
+	}
+	|int '*' mudela_duration	{
+		$$ = new Moment(Rational($1) * wholes($3[0], $3[1]));
+	}
+	;
+
+notemode_duration:
+	explicit_duration
+	| default_duration
+	;
+
+mudela_duration:
+	int		{
+		$$[0] = $1;
+		$$[1] = 0;
+	}
+	| int DOTS 	{
+		$$[0] = $1;
+		$$[1] = $2;
+	}
+	;
+
+
+explicit_duration:
+	INT		{
+		last_duration($1);
+		$$[0] = $1;
+		$$[1] = 0;
+	}
+	| INT DOTS 	{
+		last_duration($1);
+		$$[0] = $1;
+		$$[1] = $2;
+	}
+	| DOTS  {
+                get_default_duration($$);
+                $$[1] = $1;
+	}
+	| INT '*' INT '/' INT {
+		// ugh, must use Duration
+		set_plet( $3, $5 );
+		$$[ 0 ] = $1;
+		$$[ 1 ] = 0;
+		set_plet( 1, 1 );
+	}
+	;
+
+default_duration:
+	{
+		get_default_duration($$);
+	}
+	;
+
+pitchmod:		{ 
+		defined_ch_c_l = lexer->here_ch_c_l();
+		$$ = new String; 
+	}
+	| PITCHMOD	{ 
+		defined_ch_c_l = lexer->here_ch_c_l();
+		$$ = $1;
+	}
+	;
+
+notename:
+	NOTENAME
+	;
+
+voice_elt:
+	pitchmod notename notemode_duration 			{
+		$$ = get_note_element(*$1, $2, $3);
+		delete $1;
+	}
+	| RESTNAME notemode_duration		{
+		$$ = get_rest_element(*$1, $2);
+		delete $1;
+
+	}
+	;
+
+lyrics_elt:
+	mudela_text notemode_duration 			{
+		$$ = get_word_element($1, $2);
+	};
+
+/*
+	UTILITIES
+ */
+pitch_list:			{
+		$$ = new Array<Melodic_req*>;
+	}
+	| pitch_list NOTENAME	{
+		Melodic_req *m_p = new Melodic_req;
+		m_p->notename_i_ = $2[0];
+		m_p->accidental_i_ = $2[1];
+		$$->push(m_p);
+	}
+	;
+
+int:
+	real			{
+		$$ = int($1);
+		if ( distance($1,Real(int($$)) ) > 1e-8)
+			error( "integer expected", lexer->here_ch_c_l() );
+	}
+	;
+
+real:
+	INT			{
+		$$ = Real($1);
+	}
+	| REAL		{
+		$$ = $1;
+	}
+	| IDENTIFIER		{
+		$$ = * $1->real(0);		
+	}
+	;
+	
+
+
+dim:
+	real unit	{ $$ = $1*$2; }
+	;
+
+
+unit:	CM_T		{ $$ = 1 CM; }
+	|IN_T		{ $$ = 1 INCH; }
+	|MM_T		{ $$ = 1 MM; }
+	|PT_T		{ $$ = 1 PT; }
+	;
+	
+/*
+	symbol tables
+*/
+symtables:
+	SYMBOLTABLES '{' symtables_body '}'	{ $$ = $3; }
+	;
+
+symtables_body:
+	 		{
+		$$ = new Lookup;
+	}
+	| IDENTIFIER		{
+		$$ = new Lookup(*$1->lookup(true));
+	}
+	| symtables_body TEXID STRING 		{
+		$$->texsetting = *$3;
+		delete $3;
+	}
+	| symtables_body STRING '=' symtable		{
+		$$->add(*$2, $4);
+		delete $2;
+	}
+	;
+
+symtable:
+	TABLE '{' symtable_body '}' { $$ = $3; }
+	;
+
+symtable_body:
+				{ $$ = new Symtable; }
+	| symtable_body	STRING	symboldef {
+		$$->add(*$2, *$3);
+		delete $2;
+		delete $3;
+	}
+	;
+
+symboldef:
+	STRING 	box		{
+		$$ = new Symbol(*$1, *$2);
+		delete $1;
+		delete $2;
+	}
+	| STRING {
+		Box b;
+		$$ = new Symbol(*$1, b);
+		delete $1;
+	}
+	;
+
+box:
+	dinterval dinterval 	{
+		$$ = new Box(*$1, *$2);
+		delete $1;
+		delete $2;
+	}
+	;
+
+dinterval: dim	dim		{
+		$$ = new Interval($1, $2);	
+	}
+	;
+
+%%
+
+void
+yyerror(const char *s)
+{
+	lexer->LexerError(s);
+
+	if ( fatal_error_i )
+		exit( fatal_error_i );
+}
+
+void
+parse_file(String init, String s)
+{
+   *mlog << "Parsing ... ";
+   lexer = new My_flex_lexer;
+
+#ifdef YYDEBUG
+   yydebug = !monitor->silence("InitParser") && check_debug;
+   lexer->set_debug( !monitor->silence("InitLexer") && check_debug);
+#endif
+
+   lexer->new_input(init);
+   yyparse();
+
+#ifdef YYDEBUG
+   yydebug = !monitor->silence("Parser") && check_debug;
+   lexer->set_debug( !monitor->silence("Lexer") && check_debug);
+#endif
+
+   lexer->new_input(s);
+   yyparse();
+   delete lexer;
+   lexer = 0;
+
+   if(!define_spots.empty())
+	warning("Braces don't match.",0);
+}
+
+Paper_def*
+default_paper()
+{
+    return new Paper_def(
+	lexer->lookup_identifier("default_table")->lookup(true));
+}
+
+
-- 
2.39.5