2 paper-outputter-scheme.cc -- implement Paper_outputter bindings
4 source file of the GNU LilyPond music typesetter
6 (c) 2005--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
9 #include "paper-outputter.hh"
11 #include "international.hh"
15 LY_DEFINE (ly_make_paper_outputter, "ly:make-paper-outputter",
16 2, 0, 0, (SCM port, SCM format),
17 "Create an outputter that evaluates within "
18 "@code{output-}@var{format}, writing to @var{port}.")
20 LY_ASSERT_TYPE (ly_is_port, port, 1);
21 LY_ASSERT_TYPE (scm_is_string, format, 2);
23 string f = ly_scm2string (format);
25 string output_name = "<unknown>";
27 SCM port_name = scm_port_filename (port);
28 if (scm_is_string (port_name))
29 output_name = ly_scm2string (port_name);
31 message (_f ("Layout output to `%s'...",
32 output_name.c_str ()));
34 progress_indication ("\n");
35 Paper_outputter *po = new Paper_outputter (port, f);
38 return po->self_scm ();
41 /* FIXME: why is output_* wrapper called dump? */
42 LY_DEFINE (ly_outputter_dump_stencil, "ly:outputter-dump-stencil",
43 2, 0, 0, (SCM outputter, SCM stencil),
44 "Dump stencil @var{expr} onto @var{outputter}.")
47 LY_ASSERT_SMOB (Paper_outputter, outputter, 1);
48 LY_ASSERT_SMOB (Stencil, stencil, 2);
50 Paper_outputter *po = unsmob_outputter (outputter);
51 Stencil *st = unsmob_stencil (stencil);
53 po->output_stencil (*st);
54 return SCM_UNSPECIFIED;
57 LY_DEFINE (ly_outputter_dump_string, "ly:outputter-dump-string",
58 2, 0, 0, (SCM outputter, SCM str),
59 "Dump @var{str} onto @var{outputter}.")
61 LY_ASSERT_SMOB (Paper_outputter, outputter, 1);
62 LY_ASSERT_TYPE (scm_is_string, str, 2);
64 Paper_outputter *po = unsmob_outputter (outputter);
66 return po->dump_string (str);
69 LY_DEFINE (ly_outputter_port, "ly:outputter-port",
70 1, 0, 0, (SCM outputter),
71 "Return output port for @var{outputter}.")
73 LY_ASSERT_SMOB (Paper_outputter, outputter, 1);
74 Paper_outputter *po = unsmob_outputter (outputter);
79 LY_DEFINE (ly_outputter_close, "ly:outputter-close",
80 1, 0, 0, (SCM outputter),
81 "Close port of @var{outputter}.")
83 LY_ASSERT_SMOB (Paper_outputter, outputter, 1);
84 Paper_outputter *po = unsmob_outputter (outputter);
87 return SCM_UNSPECIFIED;
90 LY_DEFINE (ly_outputter_output_scheme, "ly:outputter-output-scheme",
91 2, 0, 0, (SCM outputter, SCM expr),
92 "Eval @var{expr} in module of @var{outputter}.")
94 LY_ASSERT_SMOB (Paper_outputter, outputter, 1);
95 Paper_outputter *po = unsmob_outputter (outputter);
97 po->output_scheme (expr);
99 return SCM_UNSPECIFIED;