+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
}
| 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;
--- /dev/null
+;; 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)