From 7bafd80596b58d720f07f0afe3c0ff5e02cf782f Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Tue, 5 Nov 1996 15:06:02 +0000
Subject: [PATCH] lilypond-0.0.8

---
 item.cc  | 13 +++++++++++++
 parser.y | 14 ++++++++++++--
 2 files changed, 25 insertions(+), 2 deletions(-)

diff --git a/item.cc b/item.cc
index 4a84f47704..f10187bbb2 100644
--- a/item.cc
+++ b/item.cc
@@ -3,6 +3,19 @@
 #include "molecule.hh"
 #include "pcol.hh"
 
+void
+Item::postprocess()
+{
+    // default: do nothing
+}
+
+
+void
+Item::preprocess()
+{
+    // default: do nothing
+}
+
 String
 Item::TeXstring() const
 {
diff --git a/parser.y b/parser.y
index 4ca199bb77..3ce26028b1 100644
--- a/parser.y
+++ b/parser.y
@@ -37,7 +37,7 @@
 
 %token VOICE STAFF SCORE TITLE RHYTHMSTAFF BAR NOTENAME OUTPUT
 %token CM IN PT MM PAPER WIDTH METER UNITSPACE SKIP COMMANDS
-%token MELODICSTAFF
+%token MELODICSTAFF GEOMETRIC START
 
 %type <consstr> unit
 %token <id>  IDENTIFIER
@@ -76,6 +76,10 @@ declaration:
 		$$ = new Staff_id(*$1, $3);
 		delete $1; // this sux
 	}
+	| NEWIDENTIFIER '=' voice_block {
+		$$ = new Voice_id(*$1, $3);
+		delete $1;
+	}
 	;
 
 
@@ -108,6 +112,7 @@ paper_body:
 		delete $3;
 	}
 	| paper_body UNITSPACE dim	{ $$->whole_width = $3; }
+	| paper_body GEOMETRIC REAL	{ $$->geometric_ = $3; }
 	;
 
 dim:
@@ -160,10 +165,14 @@ voice_block:
 
 
 voice_body:
-	REAL voice_elts_dollar { $$ = $2; $$->start = $1; }
+	IDENTIFIER		{ $$ = new Voice(*$1->voice()); }
 	| voice_elts_dollar	{ $$ = $1; }
+	| voice_body START REAL { $$->start = $3; }
 	;
 
+
+	
+
 voice_elts_dollar:
 	'$' voice_elts '$'  { $$ = $2; }
  	;
@@ -219,5 +228,6 @@ parse_file(String s)
 #endif
    new_input(s);
    yyparse();
+   delete_identifiers();
    *mlog << "\n";
 }
-- 
2.39.5