source file of the GNU LilyPond music typesetter
- (c) 1997--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 1997--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
Jan Nieuwenhuizen <janneke@gnu.org>
*/
#include <time.h>
-
#include <math.h>
-
#include "dimensions.hh"
#include "virtual-methods.hh"
#include "paper-outputter.hh"
#include "molecule.hh"
#include "array.hh"
#include "string-convert.hh"
-#include "debug.hh"
+#include "warn.hh"
#include "font-metric.hh"
#include "main.hh"
-#include "scope.hh"
-
+#include "scm-hash.hh"
#include "lily-version.hh"
#include "paper-def.hh"
#include "file-results.hh"
}
void
-Paper_outputter::output_scope (Scope *scope, String prefix)
+Paper_outputter::output_scope (Scheme_hash_table *scope, String prefix)
{
SCM al = scope->to_alist ();
for (SCM s = al ; gh_pair_p (s); s = ly_cdr (s))
}
else if (gh_number_p (v))
{
- output_Real_def (prefix + s, gh_scm2double (v));
+ output_Real_def (prefix + s, gh_scm2double (v));
}
}
}
output_String_def ("lilypondtagline", id_str);
output_String_def ("LilyPondVersion", version_str ());
+ output_String_def ("lilypondpaperunit", String (INTERNAL_UNIT));
}
-
-
void
Paper_outputter::output_Real_def (String k, Real v)
{
SCM scm = scm_list_n (ly_symbol2scm ("lily-def"),
- ly_str02scm (k.ch_l ()),
- ly_str02scm (to_str (v).ch_l ()),
- SCM_UNDEFINED);
+ ly_str02scm (k.ch_l ()),
+ ly_str02scm (to_str (v).ch_l ()),
+ SCM_UNDEFINED);
output_scheme (scm);
}
}
void
-Paper_outputter::write_header_fields_to_file (Scope * header)
+Paper_outputter::write_header_fields_to_file (Scheme_hash_table * header)
{
if (dump_header_fieldnames_global.size ())
{