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"
#include "paper-stream.hh"
#include "molecule.hh"
-#include "atom.hh"
#include "array.hh"
#include "string-convert.hh"
#include "debug.hh"
#include "scope.hh"
#include "identifier.hh"
#include "lily-version.hh"
+#include "atom.hh"
Paper_outputter::Paper_outputter (Paper_stream *s)
{
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 (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);
}
if (check_debug)
*outstream_l_ << String ("\n%start: ") << nm << "\n";
- for (PCursor <Atom*> i (m->atoms_); i.ok (); i++)
+
+ if (check_debug)
+ {
+ output_comment (nm);
+ }
+
+#ifdef ATOM_SMOB
+ for (SCM ptr = m->atom_list_; ptr != SCM_EOL; ptr = SCM_CDR(ptr))
{
- Offset a_off = i->offset ();
+ 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
+ Offset a_off = i->off_;
a_off += o;
- if (!i->lambda_)
+ if (!i->func_)
continue;
- if (check_debug)
+ if (a_off.length () > 100 CM)
{
- output_comment (classname (i.ptr ()->origin_l_));
-
+ 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_UNDEFINED));
}
-
- switch_to_font (i->font_);
-
- SCM args_scm = gh_list (gh_double2scm (a_off.x ()),
- gh_double2scm (a_off.y ()),
- i->lambda_.to_SCM (),
- SCM_UNDEFINED);
-
-
- SCM box_scm = gh_cons (ly_symbol ("placebox"), args_scm);
+ SCM box_scm
+ = gh_list (placebox_scm_sym,
+ gh_double2scm (a_off.x ()),
+ gh_double2scm (a_off.y ()),
+ SCM(i->func_),
+ SCM_UNDEFINED);
+
output_scheme (box_scm);
}
}
void
Paper_outputter::output_scheme (SCM scm)
{
- String o = String ("\'") + output_global_ch;
-
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);
-}
-void
-Paper_outputter::switch_to_font (String fontname)
-{
- if (fontname.length_i () && fontname != current_font_)
- {
- current_font_ = fontname;
- int i=0;
-
- for (; i< font_arr_.size (); i++)
- if (font_arr_[i] == fontname)
- break;
-
- if (i == font_arr_.size ())
- {
- font_arr_.push (fontname);
- output_font_def (i, fontname);
- }
- output_font_switch (i);
- }
- return;
+ 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);
}
gh_define (k.ch_l (), gh_int2scm (v));
}
+
+
void
-Paper_outputter::output_font_switch (int i)
+Paper_outputter::stop_line ()
{
- SCM scm = gh_list (ly_symbol ("font-switch"),
- gh_int2scm (i),
- SCM_UNDEFINED);
-
+ SCM scm = gh_list (ly_symbol ("stop-line"), SCM_UNDEFINED);
output_scheme (scm);
}
void
-Paper_outputter::stop_line ()
+Paper_outputter::stop_last_line ()
{
- SCM scm = gh_list (ly_symbol ("stop-line"), SCM_UNDEFINED);
+ SCM scm = gh_list (ly_symbol ("stop-last-line"), SCM_UNDEFINED);
output_scheme (scm);
-
- current_font_ = "";
- font_arr_.clear ();
}