]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/paper-outputter.cc
release commit
[lilypond.git] / lily / paper-outputter.cc
index 5a46415e69018d5da60ea74030c430c2d34fbb3d..44b9b671156db9794d8a4f4041b32ef2dbe67352 100644 (file)
 
   source file of the GNU LilyPond music typesetter
 
-  (c)  1997--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+  (c)  1997--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   Jan Nieuwenhuizen <janneke@gnu.org>
 */
 
 #include <time.h>
-#include <fstream.h>
+#include <math.h>
 
 #include "dimensions.hh"
-#include "dictionary-iter.hh"
 #include "virtual-methods.hh"
 #include "paper-outputter.hh"
-#include "paper-stream.hh"
 #include "molecule.hh"
 #include "array.hh"
 #include "string-convert.hh"
-#include "debug.hh"
-#include "lookup.hh"
+#include "warn.hh"
+#include "font-metric.hh"
 #include "main.hh"
-#include "scope.hh"
-#include "identifier.hh"
+#include "scm-hash.hh"
 #include "lily-version.hh"
-#include "atom.hh"
+#include "paper-def.hh"
+#include "input-file-results.hh"
+#include "ly-modules.hh"
 
-Paper_outputter::Paper_outputter (Paper_stream *s)
-{
-  outstream_l_ = s;
-  output_header ();
-}
 
-Paper_outputter::~Paper_outputter ()
-{
-  SCM scm = gh_list (ly_symbol ("end-output"), SCM_UNDEFINED);
-  output_scheme (scm);
-}
 
-void
-Paper_outputter::output_header ()
+/*
+  TODO: this entire class should be implemented at Scheme level.
+
+
+  
+ */
+Paper_outputter::Paper_outputter (String name)
 {
   if (safe_global_b)
     {
-      ly_set_scm ("security-paranoia", SCM_BOOL_T);
-      //      gh_eval_str ("(set! security-paranoia #t)");
+      gh_define ("security-paranoia", SCM_BOOL_T);      
     }
-  String s = String ("(eval (") + output_global_ch + "-scm 'all-definitions))";
-  gh_eval_str (s.ch_C());
-  
-  String creator;
-  if (no_timestamps_global_b)
-    creator = gnu_lilypond_str ();
-  else
-    creator = gnu_lilypond_version_str ();
   
-  String generate;
-  if (no_timestamps_global_b)
-    generate = ".\n";
-  else
-    {
-      generate = _ (", at ");
-      time_t t (time (0));
-      generate += ctime (&t);
-      //urg
-    }
+  file_ = scm_open_file (scm_makfrom0str (name.to_str0 ()),
+                           scm_makfrom0str ("w"));
 
-  SCM args_scm = 
-    gh_list (gh_str02scm (creator.ch_l ()),
-            gh_str02scm (generate.ch_l ()), SCM_UNDEFINED);
+  /*
+    ugh.
+   */
+  SCM exp = scm_list_n (ly_symbol2scm ("find-dumper"),
+                       scm_makfrom0str (output_format_global.to_str0 ()),
+                       SCM_UNDEFINED);
 
-#ifndef NPRINT
-  DOUT << "output_header\n";
-  if (check_debug && !monitor->silent_b ("Guile"))
-    {
-      gh_display (args_scm); gh_newline ();
-    }
-#endif
+  output_func_  = scm_primitive_eval (exp);
+}
 
-  SCM scm = gh_cons (header_scm_sym, args_scm);
-  output_scheme (scm);
+Paper_outputter::~Paper_outputter ()
+{
+  scm_close_port (file_);
+  file_ = SCM_EOL;
 }
 
+
 void
-Paper_outputter::output_molecule (Molecule const*m, Offset o, char const *nm)
+Paper_outputter::output_header ()
 {
-  if (check_debug)
-    *outstream_l_ << String ("\n%start: ") << nm << "\n";
+  time_t t (time (0));
+  String generate = ctime (&t);
+  generate = generate.left_string (generate.length () - 1) + " " + *tzname;
+  
+  /* Fixed length time stamp */
+  generate = generate + to_string (' ', (50 - generate.length ()) >? 0);
+  
+  /* Fixed length creator string */
+  String creator = gnu_lilypond_version_string ();
+  creator += " (http://lilypond.org)";
+  creator = creator + to_string (' ', (50 - creator.length ()) >? 0);
+  
+  SCM args_scm = scm_list_n (scm_makfrom0str (creator.to_str0 ()),
+                            scm_makfrom0str (generate.to_str0 ()),
+                            SCM_UNDEFINED);
 
 
-  if (check_debug)
-    {
-      output_comment (nm);
-    }
-      
-#ifdef ATOM_SMOB
-  for (SCM ptr = m->atom_list_; ptr != SCM_EOL; ptr = SCM_CDR(ptr))
-    {
-      Atom *i = Atom::atom_l (SCM_CAR(ptr));
-#else
-  for (Cons<Atom> *ptr = m->atom_list_; ptr; ptr = ptr->next_cons_p_)
-    {
-      Atom * i = ptr->car_p_;
-#endif
-      Offset a_off = i->off_;
-      a_off += o;
+  SCM scm = gh_cons (ly_symbol2scm ("header"), args_scm);
 
-      if (!i->func_)
-       continue; 
+  output_scheme (scm);
+}
 
-      if (a_off.length () > 100 CM)
-       {
-         warning (_f("Improbable dimension for object type `%s\'", nm));
-         Axis a  =X_AXIS;
-         while (a < NO_AXES)
-           {
-             if (abs(a_off[a]) > 50 CM)
-               a_off[a] = 50 CM;
-             incr (a);
-           }
-       }
-       
-      if (i->font_)
-       {
-         output_scheme (gh_list (ly_symbol ("select-font"),
-                                 gh_str02scm (symbol_to_string (i->font_).ch_C()),
-                                 SCM_UNDEFINED));
-       }
 
-      SCM box_scm
-       = gh_list (placebox_scm_sym,
-                  gh_double2scm (a_off.x ()),
-                  gh_double2scm (a_off.y ()),
-                  SCM(i->func_),
-                  SCM_UNDEFINED);
-      
-      output_scheme (box_scm);
-    }
-}
 
 void
 Paper_outputter::output_comment (String str)
 {
-  if (String (output_global_ch) == "scm")
-    {
-      *outstream_l_ << "; " << str << '\n';
-    }
-  else
-    {
-      *outstream_l_ << "% " << str << "\n";
-    }
+  output_scheme (scm_list_n (ly_symbol2scm ("comment"),
+                         scm_makfrom0str ((char*)str.to_str0 ()),
+                         SCM_UNDEFINED)
+                );
 }
 
-
 void
 Paper_outputter::output_scheme (SCM scm)
 {
-  if (String (output_global_ch) == "scm")
-    {
-      static SCM port = 0;
-
-      // urg
-      if (!port)
-        {
-         int fd = 1;
-         ofstream * of = dynamic_cast<ofstream*> (outstream_l_->os);
-         if (of)
-           fd = of->rdbuf()->fd();
-         FILE *file = fdopen (fd, "a");
-         port = scm_standard_stream_to_port (file, "a", "");
-         scm_display (gh_str02scm ("(load 'lily.scm)\n"), port);
-       }
-
-      scm_display (gh_str02scm ("("), port);
-      scm_write (scm, port);
-      scm_display (gh_str02scm (")\n"),port);
-      scm_fflush (port);
-    }
-  else
-    {
-      SCM result = scm_eval (scm);
-      char *c=gh_scm2newstr (result, NULL);
-
-      *outstream_l_ << c;
-      free (c);
-    }
+  gh_call2 (output_func_, scm, file_);
 }
 
 void
-Paper_outputter::output_scope (Scope *scope, String prefix)
+Paper_outputter::output_scope (SCM mod, String prefix)
 {
-  for (Scope_iter i (*scope); i.ok (); i++)
+  if (!SCM_MODULEP (mod))
+    return ;
+  
+  SCM al = ly_module_to_alist (mod);
+  for (SCM s = al ; gh_pair_p (s); s = ly_cdr (s))
     {
-      if (dynamic_cast<String_identifier*> (i.val ()))
+      SCM k = ly_caar (s);
+      SCM v = ly_cdar (s);
+      String s = ly_symbol2string (k);
+      
+      if (gh_string_p (v))
        {
-         String val = *i.val()->access_content_String (false);
-
-         output_String_def (prefix + i.key (), val);
+         output_String_def (prefix + s, ly_scm2string (v));
        }
-      else if(dynamic_cast<Real_identifier*> (i.val ()))
+      else if (scm_exact_p (v) == SCM_BOOL_T)
        {
-         Real val  = *i.val ()->access_content_Real (false);
-
-         output_Real_def (prefix + i.key (), val);       
+         output_int_def (prefix + s, gh_scm2int (v));    
        }
-      else if (dynamic_cast<int_identifier*> (i.val ()))
+      else if (gh_number_p (v))
        {
-         int val  = *i.val ()->access_content_int (false);       
-         
-         output_int_def (prefix + i.key (), val);        
+         output_Real_def (prefix + s, gh_scm2double (v));
        }
     }
 }
@@ -216,79 +133,75 @@ Paper_outputter::output_scope (Scope *scope, String prefix)
 void
 Paper_outputter::output_version ()
 {
-  String id_str = "Lily was here";
-  if (no_timestamps_global_b)
-    id_str += ".";
-  else
-    id_str += String (", ") + version_str ();
+  String id_string = "Engraved by LilyPond";
+  id_string += String_convert::pad_to (String (", ") + version_string (), 40);
 
-  output_String_def ( "mudelatagline", id_str);
-  output_String_def ( "LilyPondVersion", version_str ());
+  output_String_def ("lilypondtagline", id_string);
+  output_String_def ("LilyPondVersion", version_string ());
+  output_String_def ("lilypondpaperunit", String (INTERNAL_UNIT));  
 }
 
-void
-Paper_outputter::start_line (Real height)
-{
-  SCM scm = gh_list (ly_symbol ("start-line"),
-                    gh_double2scm (height),
-                    SCM_UNDEFINED);
-  output_scheme (scm);
-}
-
-void
-Paper_outputter::output_font_def (int i, String str)
-{
-  SCM scm = gh_list (ly_symbol ("font-def"),
-                    gh_int2scm (i),
-                    gh_str02scm (str.ch_l ()),
-                    SCM_UNDEFINED);
-
-  output_scheme (scm);
-}
 
 void
 Paper_outputter::output_Real_def (String k, Real v)
 {
   
-  SCM scm = gh_list (ly_symbol ("lily-def"),
-                    gh_str02scm (k.ch_l ()),
-                    gh_str02scm (to_str(v).ch_l ()),
-                    SCM_UNDEFINED);
+  SCM scm = scm_list_n (ly_symbol2scm ("lily-def"),
+                       scm_makfrom0str (k.get_str0 ()),
+                       scm_makfrom0str (to_string (v).get_str0 ()),
+                       SCM_UNDEFINED);
   output_scheme (scm);
-
-  gh_define (k.ch_l (), gh_double2scm (v));
 }
 
 void
 Paper_outputter::output_String_def (String k, String v)
 {
   
-  SCM scm = gh_list (ly_symbol ("lily-def"),
-                    gh_str02scm (k.ch_l ()),
-                    gh_str02scm (v.ch_l ()),
+  SCM scm = scm_list_n (ly_symbol2scm ("lily-def"),
+                    scm_makfrom0str (k.get_str0 ()),
+                    scm_makfrom0str (v.get_str0 ()),
                     SCM_UNDEFINED);
   output_scheme (scm);
-
-  gh_define (k.ch_l (), gh_str02scm (v.ch_l ()));
 }
 
 void
 Paper_outputter::output_int_def (String k, int v)
 {
-  SCM scm = gh_list (ly_symbol ("lily-def"),
-                    gh_str02scm (k.ch_l ()),
-                    gh_str02scm (to_str (v).ch_l ()),
+  SCM scm = scm_list_n (ly_symbol2scm ("lily-def"),
+                    scm_makfrom0str (k.get_str0 ()),
+                    scm_makfrom0str (to_string (v).get_str0 ()),
                     SCM_UNDEFINED);
   output_scheme (scm);
-
-  gh_define (k.ch_l (), gh_int2scm (v));
 }
 
-
+void
+Paper_outputter::write_header_field_to_file (String filename, SCM key, SCM value)
+{
+  output_scheme (scm_list_n (ly_symbol2scm ("header-to-file"),
+                            scm_makfrom0str (filename.to_str0 ()),
+                            ly_quote_scm (key), value,
+                            SCM_UNDEFINED));
+}
 
 void
-Paper_outputter::stop_line ()
+Paper_outputter::write_header_fields_to_file (SCM mod)
 {
-  SCM scm = gh_list (ly_symbol ("stop-line"), SCM_UNDEFINED);
-  output_scheme (scm);
+  if (ly_module_p (mod)&&
+      dump_header_fieldnames_global.size ())
+    {
+      SCM fields = ly_module_to_alist (mod);
+      for (int i = 0; i < dump_header_fieldnames_global.size (); i++)
+       {
+         String key = dump_header_fieldnames_global[i];
+         SCM val = gh_assoc (ly_symbol2scm (key.to_str0 ()), fields);
+         String s;
+         /* Only write header field to file if it exists */
+         if (gh_pair_p (val) && gh_string_p (ly_cdr (val)))
+           {
+             s = ly_scm2string (ly_cdr (val));
+             /* Always write header field file, even if string is empty ... */
+             write_header_field_to_file (basename_ , ly_car (val), ly_cdr (val));
+           }
+       }
+    }
 }