lily/paper-outputter.cc

   1 /*
   2   paper-outputter.cc -- implement Paper_outputter
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1997--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7                  Jan Nieuwenhuizen <janneke@gnu.org>
   8 */
   9
  10 #include <math.h>
  11 #include <time.h>
  12
  13 #include "array.hh"
  14 #include "dimensions.hh"
  15 #include "font-metric.hh"
  16 #include "input-smob.hh"
  17 #include "lily-guile.hh"
  18 #include "lily-version.hh"
  19 #include "ly-module.hh"
  20 #include "main.hh"
  21 #include "page.hh"
  22 #include "paper-book.hh"
  23 #include "paper-def.hh"
  24 #include "paper-line.hh"
  25 #include "paper-outputter.hh"
  26 #include "file-name.hh"
  27 #include "scm-hash.hh"
  28 #include "stencil.hh"
  29 #include "string-convert.hh"
  30 #include "warn.hh"
  31
  32 // JUNKME
  33 extern SCM stencil2line (Stencil* stil, bool is_title = false);
  34
  35 Paper_outputter::Paper_outputter (String filename)
  36 {
  37   filename_ = filename;
  38   file_ = scm_open_file (scm_makfrom0str (filename.to_str0 ()),
  39                          scm_makfrom0str ("w"));
  40
  41   String module_name = "scm output-" + output_format_global;
  42   output_module_ = scm_c_resolve_module (module_name.to_str0 ());
  43 }
  44
  45 Paper_outputter::~Paper_outputter ()
  46 {
  47   scm_close_port (file_);
  48   file_ = SCM_EOL;
  49 }
  50
  51 void
  52 Paper_outputter::output_scheme (SCM scm)
  53 {
  54   scm_display (scm_eval (scm, output_module_), file_);
  55 }
  56
  57 void
  58 Paper_outputter::output_metadata (Paper_def *paper, SCM scopes)
  59 {
  60   SCM fields = SCM_EOL;
  61   for (int i = dump_header_fieldnames_global.size (); i--; )
  62     fields
  63       = scm_cons (ly_symbol2scm (dump_header_fieldnames_global[i].to_str0 ()),
  64                  fields);
  65
  66   File_name file_name (filename_);
  67   file_name.ext_ = "";
  68   String basename = file_name.to_string ();
  69   output_scheme (scm_list_n (ly_symbol2scm ("output-scopes"),
  70                              paper->self_scm (),
  71                              ly_quote_scm (scopes),
  72                              ly_quote_scm (fields),
  73                              scm_makfrom0str (basename.to_str0 ()),
  74                              SCM_UNDEFINED));
  75 }
  76
  77 void
  78 Paper_outputter::output_header (Paper_def *paper, SCM scopes, int page_count,
  79                                 bool is_classic)
  80 {
  81   String creator = gnu_lilypond_version_string ();
  82   creator += " (http://lilypond.org)";
  83   time_t t (time (0));
  84   String time_stamp = ctime (&t);
  85   time_stamp = time_stamp.left_string (time_stamp.length () - 1)
  86     + " " + *tzname;
  87   output_scheme (scm_list_n (ly_symbol2scm ("header"),
  88                              scm_makfrom0str (creator.to_str0 ()),
  89                              scm_makfrom0str (time_stamp.to_str0 ()),
  90                              paper->self_scm (),
  91                              scm_int2num (page_count),
  92                              ly_bool2scm (is_classic),
  93                              SCM_UNDEFINED));
  94
  95   output_metadata (paper, scopes);
  96   output_music_output_def (paper);
  97
  98   output_scheme (scm_list_1 (ly_symbol2scm ("header-end")));
  99
 100   /* TODO: maybe have Scheme extract the fonts directly from \paper ?
 101
 102      Alternatively, we could simply load the fonts on demand in the
 103      output, and do away with this define-fonts step.  */
 104   SCM fonts = paper->font_descriptions ();
 105   output_scheme (scm_list_3 (ly_symbol2scm ("define-fonts"),
 106                              paper->self_scm (),
 107                              //FIXME:
 108                              ly_quote_scm (ly_list_qsort_uniq_x (fonts))));
 109 }
 110
 111 void
 112 Paper_outputter::output_line (SCM line, Offset *origin, bool is_last)
 113 {
 114   Paper_line *p = unsmob_paper_line (line);
 115   Offset dim = p->dim ();
 116   if (dim[Y_AXIS] > 50 CM)
 117     {
 118       programming_error (to_string ("Improbable line height: %f",
 119                                     dim[Y_AXIS]));
 120       dim[Y_AXIS] = 50 CM;
 121     }
 122
 123   output_scheme (scm_list_3 (ly_symbol2scm ("start-system"),
 124                              ly_quote_scm (ly_offset2scm (*origin)),
 125                              ly_quote_scm (ly_offset2scm (dim))));
 126
 127   output_stencil (*unsmob_stencil (p->to_stencil ()));
 128
 129   (*origin)[Y_AXIS] += dim[Y_AXIS];
 130   output_scheme (scm_list_2 (ly_symbol2scm ("stop-system"),
 131                              ly_bool2scm (is_last)));
 132 }
 133
 134 void
 135 Paper_outputter::output_page (Page *p, bool is_last)
 136 {
 137   output_scheme (scm_list_1 (ly_symbol2scm ("start-page")));
 138
 139   output_scheme (scm_list_3 (ly_symbol2scm ("start-system"),
 140                              ly_quote_scm (ly_offset2scm (Offset (0, 0))),
 141                              ly_quote_scm (ly_offset2scm (Offset (0, 0)))));
 142
 143   output_stencil (*unsmob_stencil (p->to_stencil ()));
 144
 145   output_scheme (scm_list_2 (ly_symbol2scm ("stop-system"), SCM_BOOL_T));
 146   output_scheme (scm_list_2 (ly_symbol2scm ("stop-page"),
 147                              ly_bool2scm (is_last
 148                                           && !unsmob_stencil (p->footer_))));
 149 }
 150
 151 void
 152 Paper_outputter::output_music_output_def (Music_output_def *odef)
 153 {
 154   output_scheme (scm_list_2 (ly_symbol2scm ("output-paper-def"),
 155                               odef->self_scm ()));
 156 }
 157
 158
 159 void
 160 paper_outputter_dump (void * po, SCM x)
 161 {
 162   Paper_outputter * me = (Paper_outputter*) po;
 163   me->output_scheme (x);
 164 }
 165
 166
 167 void
 168 Paper_outputter::output_stencil (Stencil stil)
 169 {
 170   interpret_stencil_expr (stil.expr (), paper_outputter_dump,
 171                           (void*) this, Offset (0,0));
 172 }
 173