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--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7   Jan Nieuwenhuizen <janneke@gnu.org>
   8 */
   9
  10 #include <time.h>
  11 #include <fstream.h>
  12 #include <math.h>
  13 #include <iostream.h>
  14
  15 #include "dimensions.hh"
  16 #include "virtual-methods.hh"
  17 #include "paper-outputter.hh"
  18 #include "paper-stream.hh"
  19 #include "molecule.hh"
  20 #include "array.hh"
  21 #include "string-convert.hh"
  22 #include "debug.hh"
  23 #include "font-metric.hh"
  24 #include "main.hh"
  25 #include "scope.hh"
  26
  27 #include "lily-version.hh"
  28 #include "paper-def.hh"
  29 #include "file-results.hh"
  30
  31
  32 /*
  33   Ugh, this is messy.
  34  */
  35
  36 Paper_outputter::Paper_outputter (String name)
  37 {
  38   stream_p_ =  new Paper_stream (name);
  39
  40  /*
  41    lilypond -f scm x.ly
  42    guile -s x.scm
  43   */
  44   verbatim_scheme_b_ = output_format_global == "scm";
  45
  46   if (verbatim_scheme_b_)
  47     {
  48         *stream_p_ << ""
  49           ";;; Usage: guile -s x.scm > x.tex\n"
  50           " (primitive-load-path 'standalone.scm)\n"
  51           "; (scm-tex-output)\n"
  52           " (scm-ps-output)\n"
  53           " (map (lambda (x) (display (ly-eval x))) ' (\n"
  54         ;
  55     }
  56
  57 }
  58
  59 Paper_outputter::~Paper_outputter ()
  60 {
  61   if (verbatim_scheme_b_)
  62     {
  63       *stream_p_ << "))";
  64     }
  65   delete stream_p_;
  66 }
  67
  68
  69 void
  70 Paper_outputter::output_header ()
  71 {
  72   if (safe_global_b)
  73     {
  74       gh_define ("security-paranoia", SCM_BOOL_T);
  75     }
  76
  77   SCM exp = gh_list (ly_symbol2scm ((output_format_global + "-scm").ch_C ()),
  78                      ly_quote_scm (ly_symbol2scm ("all-definitions")),
  79                      SCM_UNDEFINED);
  80   exp = scm_eval2 (exp, SCM_EOL);
  81   scm_eval2 (exp, SCM_EOL);
  82
  83   String creator;
  84   if (no_timestamps_global_b)
  85     creator = gnu_lilypond_str ();
  86   else
  87     creator = gnu_lilypond_version_str ();
  88
  89   String generate;
  90   if (no_timestamps_global_b)
  91     generate = ".";
  92   else
  93     {
  94       generate = _ (", at ");
  95       time_t t (time (0));
  96       generate += ctime (&t);
  97       generate = generate.left_str (generate.length_i () - 1);
  98     }
  99
 100   /*
 101     Make fixed length time stamps
 102    */
 103   generate = generate + to_str (' ' * (120 - generate.length_i ())>? 0)  ;
 104
 105   SCM args_scm =
 106     gh_list (ly_str02scm (creator.ch_l ()),
 107              ly_str02scm (generate.ch_l ()), SCM_UNDEFINED);
 108
 109
 110   SCM scm = gh_cons (ly_symbol2scm ("header"), args_scm);
 111   output_scheme (scm);
 112 }
 113
 114
 115
 116 void
 117 Paper_outputter::output_comment (String str)
 118 {
 119   output_scheme (gh_list (ly_symbol2scm ("comment"),
 120                           ly_str02scm ((char*)str.ch_C ()),
 121                           SCM_UNDEFINED)
 122                  );
 123 }
 124
 125
 126 void
 127 Paper_outputter::output_scheme (SCM scm)
 128 {
 129   /*
 130     we don't rename dump_scheme, because we might in the future want
 131     to remember Scheme. We don't now, because it sucks up a lot of memory.
 132   */
 133   dump_scheme (scm);
 134 }
 135
 136
 137 /*
 138   UGH.
 139
 140   Should probably change interface to do less eval (symbol), and more
 141   apply (procedure, args)
 142  */
 143 void
 144 Paper_outputter::dump_scheme (SCM s)
 145 {
 146   if (verbatim_scheme_b_)
 147     {
 148       *stream_p_ << ly_scm2string (ly_write2scm (s));
 149     }
 150   else
 151     {
 152       SCM result = scm_eval2 (s, SCM_EOL);
 153       char *c=gh_scm2newstr (result, NULL);
 154
 155       *stream_p_ << c;
 156       free (c);
 157     }
 158 }
 159
 160 void
 161 Paper_outputter::output_scope (Scope *scope, String prefix)
 162 {
 163   SCM al = scope->to_alist ();
 164   for (SCM s = al ; gh_pair_p (s); s = gh_cdr (s))
 165     {
 166       SCM k = gh_caar (s);
 167       SCM v = gh_cdar (s);
 168       String s = ly_symbol2string (k);
 169
 170
 171       if (gh_string_p (v))
 172         {
 173           output_String_def (prefix + s, ly_scm2string (v));
 174         }
 175       else if (scm_integer_p (v) == SCM_BOOL_T)
 176         {
 177           output_int_def (prefix + s, gh_scm2int (v));
 178         }
 179       else if (gh_number_p (v))
 180         {
 181           output_Real_def (prefix + s, gh_scm2double (v));
 182         }
 183     }
 184 }
 185
 186 void
 187 Paper_outputter::output_version ()
 188 {
 189   String id_str = "Lily was here";
 190   if (no_timestamps_global_b)
 191     id_str += ".";
 192   else
 193     id_str += String (", ") + version_str ();
 194
 195   output_String_def ("lilypondtagline", id_str);
 196   output_String_def ("LilyPondVersion", version_str ());
 197 }
 198
 199
 200
 201
 202 void
 203 Paper_outputter::output_Real_def (String k, Real v)
 204 {
 205
 206   SCM scm = gh_list (ly_symbol2scm ("lily-def"),
 207                      ly_str02scm (k.ch_l ()),
 208                      ly_str02scm (to_str (v).ch_l ()),
 209                      SCM_UNDEFINED);
 210   output_scheme (scm);
 211 }
 212
 213 void
 214 Paper_outputter::output_String_def (String k, String v)
 215 {
 216
 217   SCM scm = gh_list (ly_symbol2scm ("lily-def"),
 218                      ly_str02scm (k.ch_l ()),
 219                      ly_str02scm (v.ch_l ()),
 220                      SCM_UNDEFINED);
 221   output_scheme (scm);
 222 }
 223
 224 void
 225 Paper_outputter::output_int_def (String k, int v)
 226 {
 227   SCM scm = gh_list (ly_symbol2scm ("lily-def"),
 228                      ly_str02scm (k.ch_l ()),
 229                      ly_str02scm (to_str (v).ch_l ()),
 230                      SCM_UNDEFINED);
 231   output_scheme (scm);
 232 }
 233
 234 void
 235 Paper_outputter::output_string (SCM str)
 236 {
 237   *stream_p_ <<  ly_scm2string (str);
 238 }
 239
 240 void
 241 Paper_outputter::write_header_field_to_file (String filename, String key, String value)
 242 {
 243   if (filename != "-")
 244     filename += String (".") + key;
 245   progress_indication (_f ("writing header field %s to %s...",
 246                            key,
 247                            filename == "-" ? String ("<stdout>") : filename));
 248
 249   ostream *os = open_file_stream (filename);
 250   *os << value;
 251   close_file_stream (os);
 252   progress_indication ("\n");
 253 }
 254
 255 void
 256 Paper_outputter::write_header_fields_to_file (Scope * header)
 257 {
 258   if (dump_header_fieldnames_global.size ())
 259     {
 260       SCM fields = header->to_alist ();
 261       for (int i = 0; i < dump_header_fieldnames_global.size (); i++)
 262         {
 263           String key = dump_header_fieldnames_global[i];
 264           SCM val = gh_assoc (ly_symbol2scm (key.ch_C ()), fields);
 265           String s;
 266           /* Only write header field to file if it exists */
 267           if (gh_pair_p (val))
 268             {
 269               s = ly_scm2string (gh_cdr (val));
 270               /* Always write header field file, even if string is empty ... */
 271               write_header_field_to_file (basename_, key, s);
 272             }
 273         }
 274     }
 275 }