From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Wed, 20 Jul 2005 10:33:53 +0000 (+0000)
Subject: new file, used for benchmarking.
X-Git-Tag: release/2.7.1
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=84ed119f2e76f41fcd4f4fda0614472717a9816c;p=lilypond.git

new file, used for benchmarking.
---

diff --git a/ChangeLog b/ChangeLog
index 9dcee9e64c..48237866db 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2005-07-20  Han-Wen Nienhuys  <hanwen@xs4all.nl>
+
+	* scm/framework-null.scm: new file, used for benchmarking.
+
 2005-07-19  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
 	* scm/define-markup-commands.scm (beam): use polygon in beam
diff --git a/lily/parser.yy b/lily/parser.yy
index 2b5b6c0caa..1f2c0d863a 100644
--- a/lily/parser.yy
+++ b/lily/parser.yy
@@ -1524,15 +1524,6 @@ scalar: string {
 	}
 	| bare_number {
 		$$ = $1;
-/*		if (scm_integer_p ($1) == SCM_BOOL_T)
-		{
-			int k = scm_to_int (scm_inexact_to_exact ($1));
-			$$ = k;
-		} else
-		{
-			THIS->parser_error (@1, _ ("need integer number arg"));
-			$$ = 0;
-		}*/
 	}
         | embedded_scm {
 		$$ = $1;
diff --git a/scm/framework-null.scm b/scm/framework-null.scm
new file mode 100644
index 0000000000..89fae350c2
--- /dev/null
+++ b/scm/framework-null.scm
@@ -0,0 +1,28 @@
+;; module for benchmarking.
+
+(define-module (scm framework-null)
+  #:export (output-framework)
+  )
+
+(use-modules (ice-9 regex)
+	     (ice-9 string-fun)
+	     (ice-9 format)
+	     (guile)
+	     (srfi srfi-1)
+	     (ice-9 pretty-print)
+	     (srfi srfi-13)
+	     (lily))
+
+(define-public (output-framework channel book scopes fields )
+
+  
+  #t)
+
+(define-public output-classic-framework output-framework)
+
+
+(define-public (convert-to-ps . args) #t)
+(define-public (convert-to-pdf . args) #t)
+(define-public (convert-to-png . args) #t)
+(define-public (convert-to-dvi . args) #t)
+(define-public (convert-to-tex . args) #t)