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--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7   Jan Nieuwenhuizen <janneke@gnu.org>
   8 */
   9
  10 #include <time.h>
  11 #include <fstream.h>
  12
  13 #include "dimensions.hh"
  14 #include "dictionary-iter.hh"
  15 #include "virtual-methods.hh"
  16 #include "paper-outputter.hh"
  17 #include "paper-stream.hh"
  18 #include "molecule.hh"
  19 #include "array.hh"
  20 #include "string-convert.hh"
  21 #include "debug.hh"
  22 #include "lookup.hh"
  23 #include "main.hh"
  24 #include "scope.hh"
  25 #include "identifier.hh"
  26 #include "lily-version.hh"
  27 #include "atom.hh"
  28
  29 Paper_outputter::Paper_outputter (Paper_stream *s)
  30 {
  31   outstream_l_ = s;
  32   output_header ();
  33
  34   if (output_global_ch == String ("scm"))
  35     *outstream_l_->os << ""
  36       "(primitive-load-path 'lily.scm)\n"
  37       "(eval (tex-scm 'all-definitions))\n"
  38       ";(eval (ps-scm 'all-definitions))\n"
  39       "(display (map (lambda (x) (string-append (eval x) \"\\n\")) '(\n"
  40     ;
  41 }
  42
  43 Paper_outputter::~Paper_outputter ()
  44 {
  45   SCM scm = gh_list (ly_symbol ("end-output"), SCM_UNDEFINED);
  46   output_scheme (scm);
  47
  48   if (String (output_global_ch) == "scm")
  49     {
  50       *outstream_l_->os << ")))";
  51     }
  52 }
  53
  54 void
  55 Paper_outputter::output_header ()
  56 {
  57   if (safe_global_b)
  58     {
  59       ly_set_scm ("security-paranoia", SCM_BOOL_T);
  60       //      gh_eval_str ("(set! security-paranoia #t)");
  61     }
  62   String s = String ("(eval (") + output_global_ch + "-scm 'all-definitions))";
  63   gh_eval_str (s.ch_C ());
  64
  65   String creator;
  66   if (no_timestamps_global_b)
  67     creator = gnu_lilypond_str ();
  68   else
  69     creator = gnu_lilypond_version_str ();
  70
  71   String generate;
  72   if (no_timestamps_global_b)
  73     generate = ".\n";
  74   else
  75     {
  76       generate = _ (", at ");
  77       time_t t (time (0));
  78       generate += ctime (&t);
  79       //urg
  80     }
  81
  82   SCM args_scm =
  83     gh_list (gh_str02scm (creator.ch_l ()),
  84              gh_str02scm (generate.ch_l ()), SCM_UNDEFINED);
  85
  86 #ifndef NPRINT
  87   DOUT << "output_header\n";
  88   if (check_debug && !monitor->silent_b ("Guile"))
  89     {
  90       gh_display (args_scm); gh_newline ();
  91     }
  92 #endif
  93
  94   SCM scm = gh_cons (header_scm_sym, args_scm);
  95   output_scheme (scm);
  96 }
  97
  98 void
  99 Paper_outputter::output_molecule (Molecule const*m, Offset o, char const *nm)
 100 {
 101   if (check_debug)
 102     *outstream_l_ << String ("\n%start: ") << nm << "\n";
 103
 104
 105   if (check_debug)
 106     {
 107       output_comment (nm);
 108     }
 109
 110 #ifdef ATOM_SMOB
 111   for (SCM ptr = m->atom_list_; ptr != SCM_EOL; ptr = SCM_CDR(ptr))
 112     {
 113       Atom *i = Atom::atom_l (SCM_CAR(ptr));
 114 #else
 115   for (Cons<Atom> *ptr = m->atom_list_; ptr; ptr = ptr->next_)
 116     {
 117       Atom * i = ptr->car_;
 118 #endif
 119 #if 0
 120     }
 121 #endif
 122       Offset a_off = i->off_;
 123       a_off += o;
 124
 125       if (!i->func_)
 126         continue;
 127
 128       if (a_off.length () > 100 CM)
 129         {
 130           warning (_f("Improbable offset for object type `%s\'", nm));
 131           Axis a  =X_AXIS;
 132           while (a < NO_AXES)
 133             {
 134               if (abs(a_off[a]) > 50 CM)
 135                 a_off[a] = 50 CM;
 136               incr (a);
 137             }
 138         }
 139
 140       if (i->font_)
 141         {
 142           output_scheme (gh_list (ly_symbol ("select-font"),
 143                                   gh_str02scm (symbol_to_string (i->font_).ch_C()),
 144                                   SCM_UNDEFINED));
 145         }
 146
 147       SCM box_scm
 148         = gh_list (placebox_scm_sym,
 149                    gh_double2scm (a_off.x ()),
 150                    gh_double2scm (a_off.y ()),
 151                    SCM(i->func_),
 152                    SCM_UNDEFINED);
 153
 154       output_scheme (box_scm);
 155     }
 156 }
 157
 158 void
 159 Paper_outputter::output_comment (String str)
 160 {
 161   if (String (output_global_ch) == "scm")
 162     {
 163       *outstream_l_ << "; " << str << '\n';
 164     }
 165   else
 166     {
 167       *outstream_l_ << "% " << str << "\n";
 168     }
 169 }
 170
 171
 172 void
 173 Paper_outputter::output_scheme (SCM scm)
 174 {
 175   if (String (output_global_ch) == "scm")
 176     {
 177       SCM result =  scm_eval (scm_listify (ly_symbol ("scm->string"), ly_quote_scm (scm), SCM_UNDEFINED));
 178     *outstream_l_->os << ly_scm2string (result) << endl;
 179     }
 180   else
 181     {
 182       SCM result = scm_eval (scm);
 183       char *c=gh_scm2newstr (result, NULL);
 184
 185       *outstream_l_ << c;
 186       free (c);
 187     }
 188 }
 189
 190 void
 191 Paper_outputter::output_scope (Scope *scope, String prefix)
 192 {
 193   for (Scope_iter i (*scope); i.ok (); i++)
 194     {
 195       if (dynamic_cast<String_identifier*> (i.val ()))
 196         {
 197           String val = *i.val()->access_content_String (false);
 198
 199           output_String_def (prefix + i.key (), val);
 200         }
 201       else if(dynamic_cast<Real_identifier*> (i.val ()))
 202         {
 203           Real val  = *i.val ()->access_content_Real (false);
 204
 205           output_Real_def (prefix + i.key (), val);
 206         }
 207       else if (dynamic_cast<int_identifier*> (i.val ()))
 208         {
 209           int val  = *i.val ()->access_content_int (false);
 210
 211           output_int_def (prefix + i.key (), val);
 212         }
 213     }
 214 }
 215
 216 void
 217 Paper_outputter::output_version ()
 218 {
 219   String id_str = "Lily was here";
 220   if (no_timestamps_global_b)
 221     id_str += ".";
 222   else
 223     id_str += String (", ") + version_str ();
 224
 225   output_String_def ( "mudelatagline", id_str);
 226   output_String_def ( "LilyPondVersion", version_str ());
 227 }
 228
 229 void
 230 Paper_outputter::start_line (Real height)
 231 {
 232   SCM scm = gh_list (ly_symbol ("start-line"),
 233                      gh_double2scm (height),
 234                      SCM_UNDEFINED);
 235   output_scheme (scm);
 236 }
 237
 238 void
 239 Paper_outputter::output_font_def (int i, String str)
 240 {
 241   SCM scm = gh_list (ly_symbol ("font-def"),
 242                      gh_int2scm (i),
 243                      gh_str02scm (str.ch_l ()),
 244                      SCM_UNDEFINED);
 245
 246   output_scheme (scm);
 247 }
 248
 249 void
 250 Paper_outputter::output_Real_def (String k, Real v)
 251 {
 252
 253   SCM scm = gh_list (ly_symbol ("lily-def"),
 254                      gh_str02scm (k.ch_l ()),
 255                      gh_str02scm (to_str(v).ch_l ()),
 256                      SCM_UNDEFINED);
 257   output_scheme (scm);
 258
 259   gh_define (k.ch_l (), gh_double2scm (v));
 260 }
 261
 262 void
 263 Paper_outputter::output_String_def (String k, String v)
 264 {
 265
 266   SCM scm = gh_list (ly_symbol ("lily-def"),
 267                      gh_str02scm (k.ch_l ()),
 268                      gh_str02scm (v.ch_l ()),
 269                      SCM_UNDEFINED);
 270   output_scheme (scm);
 271
 272   gh_define (k.ch_l (), gh_str02scm (v.ch_l ()));
 273 }
 274
 275 void
 276 Paper_outputter::output_int_def (String k, int v)
 277 {
 278   SCM scm = gh_list (ly_symbol ("lily-def"),
 279                      gh_str02scm (k.ch_l ()),
 280                      gh_str02scm (to_str (v).ch_l ()),
 281                      SCM_UNDEFINED);
 282   output_scheme (scm);
 283
 284   gh_define (k.ch_l (), gh_int2scm (v));
 285 }
 286
 287
 288
 289 void
 290 Paper_outputter::stop_line ()
 291 {
 292   SCM scm = gh_list (ly_symbol ("stop-line"), SCM_UNDEFINED);
 293   output_scheme (scm);
 294 }
 295
 296 void
 297 Paper_outputter::stop_last_line ()
 298 {
 299   SCM scm = gh_list (ly_symbol ("stop-last-line"), SCM_UNDEFINED);
 300   output_scheme (scm);
 301 }