2 paper-outputter-scheme.cc -- implement Paper_outputter bindings
4 source file of the GNU LilyPond music typesetter
6 (c) 2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
9 #include "paper-outputter.hh"
13 LY_DEFINE (ly_make_paper_outputter, "ly:make-paper-outputter",
14 2, 0, 0, (SCM outname, SCM format),
15 "Create an outputter that evaluates within "
16 "@code{output-}@var{format}, writing to file @var{outname}.")
18 SCM_ASSERT_TYPE (scm_is_string (outname), outname, SCM_ARG1, __FUNCTION__,
20 SCM_ASSERT_TYPE (scm_is_string (format), format, SCM_ARG2, __FUNCTION__,
23 String outname_str = ly_scm2string (outname);
24 String f = ly_scm2string (format);
26 progress_indication (_f ("Layout output to `%s'...",
30 progress_indication ("\n");
31 Paper_outputter *po = new Paper_outputter (outname_str, f);
33 scm_gc_unprotect_object (po->self_scm ());
34 return po->self_scm ();
37 /* FIXME: why is output_* wrapper called dump? */
38 LY_DEFINE (ly_outputter_dump_stencil, "ly:outputter-dump-stencil",
39 2, 0, 0, (SCM outputter, SCM stencil),
40 "Dump stencil @var{expr} onto @var{outputter}.")
42 Paper_outputter *po = unsmob_outputter (outputter);
43 Stencil *st = unsmob_stencil (stencil);
44 SCM_ASSERT_TYPE (po, outputter, SCM_ARG1, __FUNCTION__, "Paper_outputter");
45 SCM_ASSERT_TYPE (st, stencil, SCM_ARG1, __FUNCTION__, "Paper_outputter");
46 po->output_stencil (*st);
47 return SCM_UNSPECIFIED;
50 LY_DEFINE (ly_outputter_dump_string, "ly:outputter-dump-string",
51 2, 0, 0, (SCM outputter, SCM str),
52 "Dump @var{str} onto @var{outputter}.")
54 Paper_outputter *po = unsmob_outputter (outputter);
55 SCM_ASSERT_TYPE (po, outputter, SCM_ARG1, __FUNCTION__, "Paper_outputter");
56 SCM_ASSERT_TYPE (scm_is_string (str), str, SCM_ARG1, __FUNCTION__, "Paper_outputter");
58 return po->dump_string (str);
61 LY_DEFINE (ly_outputter_port, "ly:outputter-port",
62 1, 0, 0, (SCM outputter),
63 "Return output port for @var{outputter}.")
65 Paper_outputter *po = unsmob_outputter (outputter);
66 SCM_ASSERT_TYPE (po, outputter, SCM_ARG1, __FUNCTION__, "Paper_outputter");
71 LY_DEFINE (ly_outputter_close, "ly:outputter-close",
72 1, 0, 0, (SCM outputter),
73 "Close port of @var{outputter}.")
75 Paper_outputter *po = unsmob_outputter (outputter);
76 SCM_ASSERT_TYPE (po, outputter, SCM_ARG1, __FUNCTION__, "Paper_outputter");
79 return SCM_UNSPECIFIED;