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--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7   Jan Nieuwenhuizen <janneke@gnu.org>
   8 */
   9
  10 #include <time.h>
  11
  12 #include <math.h>
  13
  14
  15 #include "dimensions.hh"
  16 #include "virtual-methods.hh"
  17 #include "paper-outputter.hh"
  18 #include "molecule.hh"
  19 #include "array.hh"
  20 #include "string-convert.hh"
  21 #include "debug.hh"
  22 #include "font-metric.hh"
  23 #include "main.hh"
  24 #include "scm-hash.hh"
  25 #include "lily-version.hh"
  26 #include "paper-def.hh"
  27 #include "file-results.hh"
  28
  29
  30 /*
  31   Ugh, this is messy.
  32  */
  33 Paper_outputter::Paper_outputter (String name)
  34 {
  35   if (safe_global_b)
  36     {
  37       gh_define ("security-paranoia", SCM_BOOL_T);
  38     }
  39
  40   file_ = scm_open_file (ly_str02scm (name.ch_C()),
  41                             ly_str02scm ("w"));
  42
  43   SCM exp = scm_list_n (ly_symbol2scm ("find-dumper"),
  44                         ly_str02scm (output_format_global.ch_C()),
  45                         SCM_UNDEFINED);
  46
  47   output_func_  = scm_primitive_eval (exp);
  48 }
  49
  50 Paper_outputter::~Paper_outputter ()
  51 {
  52
  53 }
  54
  55
  56 void
  57 Paper_outputter::output_header ()
  58 {
  59   String       generate = _ (", at ");
  60   time_t t (time (0));
  61   generate += ctime (&t);
  62   generate = generate.left_str (generate.length_i () - 1);
  63
  64   /*
  65     Make fixed length time stamps
  66    */
  67   generate = generate + to_str (' ' * (120 - generate.length_i ())>? 0)  ;
  68   String creator = "lelie";
  69
  70   SCM args_scm = scm_list_n (ly_str02scm (creator.ch_C ()),
  71                              ly_str02scm (generate.ch_C ()), SCM_UNDEFINED);
  72
  73
  74   SCM scm = gh_cons (ly_symbol2scm ("header"), args_scm);
  75
  76   output_scheme (scm);
  77 }
  78
  79
  80
  81 void
  82 Paper_outputter::output_comment (String str)
  83 {
  84   output_scheme (scm_list_n (ly_symbol2scm ("comment"),
  85                           ly_str02scm ((char*)str.ch_C ()),
  86                           SCM_UNDEFINED)
  87                  );
  88 }
  89
  90 void
  91 Paper_outputter::output_scheme (SCM scm)
  92 {
  93   gh_call2 (output_func_, scm, file_);
  94 }
  95
  96 void
  97 Paper_outputter::output_scope (Scheme_hash_table *scope, String prefix)
  98 {
  99   SCM al = scope->to_alist ();
 100   for (SCM s = al ; gh_pair_p (s); s = ly_cdr (s))
 101     {
 102       SCM k = ly_caar (s);
 103       SCM v = ly_cdar (s);
 104       String s = ly_symbol2string (k);
 105
 106       if (gh_string_p (v))
 107         {
 108           output_String_def (prefix + s, ly_scm2string (v));
 109         }
 110       else if (scm_exact_p (v) == SCM_BOOL_T)
 111         {
 112           output_int_def (prefix + s, gh_scm2int (v));
 113         }
 114       else if (gh_number_p (v))
 115         {
 116           output_Real_def (prefix + s, gh_scm2double (v));
 117         }
 118     }
 119 }
 120
 121 void
 122 Paper_outputter::output_version ()
 123 {
 124   String id_str = "Lily was here";
 125   id_str += String_convert::pad_to (String (", ") + version_str (), 40);
 126
 127   output_String_def ("lilypondtagline", id_str);
 128   output_String_def ("LilyPondVersion", version_str ());
 129   output_String_def ("lilypondpaperunit", String (INTERNAL_UNIT));
 130 }
 131
 132
 133 void
 134 Paper_outputter::output_Real_def (String k, Real v)
 135 {
 136
 137   SCM scm = scm_list_n (ly_symbol2scm ("lily-def"),
 138                         ly_str02scm (k.ch_l ()),
 139                         ly_str02scm (to_str (v).ch_l ()),
 140                         SCM_UNDEFINED);
 141   output_scheme (scm);
 142 }
 143
 144 void
 145 Paper_outputter::output_String_def (String k, String v)
 146 {
 147
 148   SCM scm = scm_list_n (ly_symbol2scm ("lily-def"),
 149                      ly_str02scm (k.ch_l ()),
 150                      ly_str02scm (v.ch_l ()),
 151                      SCM_UNDEFINED);
 152   output_scheme (scm);
 153 }
 154
 155 void
 156 Paper_outputter::output_int_def (String k, int v)
 157 {
 158   SCM scm = scm_list_n (ly_symbol2scm ("lily-def"),
 159                      ly_str02scm (k.ch_l ()),
 160                      ly_str02scm (to_str (v).ch_l ()),
 161                      SCM_UNDEFINED);
 162   output_scheme (scm);
 163 }
 164
 165 void
 166 Paper_outputter::write_header_field_to_file (String filename, SCM key, SCM value)
 167 {
 168   output_scheme (scm_list_n (ly_symbol2scm ("header-to-file"),
 169                              ly_str02scm (filename.ch_C()),
 170                              ly_quote_scm (key), value,
 171                              SCM_UNDEFINED));
 172 }
 173
 174 void
 175 Paper_outputter::write_header_fields_to_file (Scheme_hash_table * header)
 176 {
 177   if (dump_header_fieldnames_global.size ())
 178     {
 179       SCM fields = header->to_alist ();
 180       for (int i = 0; i < dump_header_fieldnames_global.size (); i++)
 181         {
 182           String key = dump_header_fieldnames_global[i];
 183           SCM val = gh_assoc (ly_symbol2scm (key.ch_C ()), fields);
 184           String s;
 185           /* Only write header field to file if it exists */
 186           if (gh_pair_p (val))
 187             {
 188               s = ly_scm2string (ly_cdr (val));
 189               /* Always write header field file, even if string is empty ... */
 190               write_header_field_to_file (basename_ , ly_car (val), ly_cdr (val));
 191             }
 192         }
 193     }
 194 }