source file of the GNU LilyPond music typesetter
- (c) 1997--1998 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 1997--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
Jan Nieuwenhuizen <janneke@gnu.org>
*/
#include <time.h>
#include <fstream.h>
+#include "dimensions.hh"
#include "dictionary-iter.hh"
#include "virtual-methods.hh"
#include "paper-outputter.hh"
{
outstream_l_ = s;
output_header ();
+
+ if (output_global_ch == String ("scm"))
+ *outstream_l_->os << ""
+ "(primitive-load-path 'lily.scm)\n"
+ "(eval (tex-scm 'all-definitions))\n"
+ ";(eval (ps-scm 'all-definitions))\n"
+ "(display (map (lambda (x) (string-append (eval x) \"\\n\")) '(\n"
+ ;
}
Paper_outputter::~Paper_outputter ()
{
SCM scm = gh_list (ly_symbol ("end-output"), SCM_UNDEFINED);
output_scheme (scm);
+
+ if (String (output_global_ch) == "scm")
+ {
+ *outstream_l_->os << ")))";
+ }
}
void
Paper_outputter::output_header ()
{
-#if 0
- int gobble = 10000;
- {// alloc big chunk of memory.
- SCM beg = SCM_EOL;
- String bigstr = String_convert::char_str (' ', 50);
- for (int i = gobble; i--; )
- {
- beg = gh_cons (gh_str02scm (bigstr.ch_C()), beg);
- }
- }
-#endif
-
if (safe_global_b)
{
ly_set_scm ("security-paranoia", SCM_BOOL_T);
// gh_eval_str ("(set! security-paranoia #t)");
}
String s = String ("(eval (") + output_global_ch + "-scm 'all-definitions))";
- gh_eval_str (s.ch_C());
+ gh_eval_str (s.ch_C ());
String creator;
if (no_timestamps_global_b)
}
#endif
- SCM scm = gh_cons (ly_symbol ("header"), args_scm);
+ SCM scm = gh_cons (header_scm_sym, args_scm);
output_scheme (scm);
}
output_comment (nm);
}
-
+#ifdef ATOM_SMOB
+ for (SCM ptr = m->atom_list_; ptr != SCM_EOL; ptr = SCM_CDR(ptr))
+ {
+ Atom *i = Atom::atom_l (SCM_CAR(ptr));
+#else
for (Cons<Atom> *ptr = m->atom_list_; ptr; ptr = ptr->next_)
{
Atom * i = ptr->car_;
+#endif
+#if 0
+ }
+#endif
Offset a_off = i->off_;
a_off += o;
if (!i->func_)
continue;
+ if (a_off.length () > 100 CM)
+ {
+ warning (_f("Improbable offset for object type `%s\'", nm));
+ Axis a =X_AXIS;
+ while (a < NO_AXES)
+ {
+ if (abs(a_off[a]) > 50 CM)
+ a_off[a] = 50 CM;
+ incr (a);
+ }
+ }
+
if (i->font_)
{
output_scheme (gh_list (ly_symbol ("select-font"),
gh_str02scm (symbol_to_string (i->font_).ch_C()),
+ SCM (i->magn_),
SCM_UNDEFINED));
}
SCM box_scm
- = gh_list (ly_symbol ("placebox"),
+ = gh_list (placebox_scm_sym,
gh_double2scm (a_off.x ()),
- gh_double2scm (a_off.y ()),
- i->func_.to_SCM(),
+ gh_double2scm (a_off.y ()),
+ SCM(i->func_),
SCM_UNDEFINED);
output_scheme (box_scm);
{
if (String (output_global_ch) == "scm")
{
- static SCM port = 0;
-
- // urg
- if (!port)
- {
- int fd = 1;
- ofstream * of = dynamic_cast<ofstream*> (outstream_l_->os);
- if (of)
- fd = of->rdbuf()->fd();
- FILE *file = fdopen (fd, "a");
- port = scm_standard_stream_to_port (file, "a", "");
- scm_display (gh_str02scm ("(load 'lily.scm)\n"), port);
- }
-
- scm_display (gh_str02scm ("("), port);
- scm_write (scm, port);
- scm_display (gh_str02scm (")\n"),port);
- scm_fflush (port);
+ SCM result = scm_eval (scm_listify (ly_symbol ("scm->string"), ly_quote_scm (scm), SCM_UNDEFINED));
+ *outstream_l_->os << ly_scm2string (result) << endl;
}
else
{
id_str += ".";
else
id_str += String (", ") + version_str ();
- output_String_def ( "LilyIdString", id_str);
+
+ output_String_def ( "mudelatagline", id_str);
+ output_String_def ( "LilyPondVersion", version_str ());
}
void
-Paper_outputter::start_line ()
+Paper_outputter::start_line (Real height)
{
- SCM scm = gh_list (ly_symbol ("start-line"), SCM_UNDEFINED);
+ SCM scm = gh_list (ly_symbol ("start-line"),
+ gh_double2scm (height),
+ SCM_UNDEFINED);
output_scheme (scm);
}
void
Paper_outputter::stop_line ()
{
- SCM scm = gh_list (ly_symbol ("stop-line"), SCM_UNDEFINED);
+ SCM scm = gh_list (ly_symbol ("stop-line"), SCM_UNDEFINED);
+ output_scheme (scm);
+}
+
+void
+Paper_outputter::stop_last_line ()
+{
+ SCM scm = gh_list (ly_symbol ("stop-last-line"), SCM_UNDEFINED);
output_scheme (scm);
}