patch::: 1.0.14.tca1

[lilypond.git] / lily / header.cc

diff --git a/lily/header.cc b/lily/header.cc
index 39dffd5dbffaf846b6be97ffcdd66d1e840a8ede..fc95d2f8b279869b9123c71b057c07695f5bae34 100644 (file)
--- a/lily/header.cc
+++ b/lily/header.cc
@@ -3,23 +3,45 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c)  1997--1998 Han-Wen Nienhuys <hanwen@stack.nl>
+  (c)  1997--1998 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+  Jan Nieuwenhuizen <janneke@gnu.org>
 */
 
 #include "string.hh"
 #include "dictionary-iter.hh"
 #include "header.hh"
+#include "main.hh"
 
+extern char const *lily_version_number_sz ();
+
+Header::Header ()
+{
+  lily_id_str_ = "Lily was here, " +
+    String (lily_version_number_sz ());
+}
+
+//urg
 String
-Header::TeX_string() const
+Header::tex_string () const
 {
   String s;
 
   s+= "\\def\\LilyIdString{"  + lily_id_str_ + "}";
   
-  for (Dictionary_iter<String> i(*this); i.ok(); i++) 
-    {
-      s += "\\def\\mudela" + i.key() + "{" + i.val() + "}";
-    }
+  for (Dictionary_iter<String> i (*this); i.ok (); i++) 
+    s += "\\def\\mudela" + i.key () + "{" + i.val () + "}\n";
   return s;
 }
+
+String
+Header::ps_string () const
+{
+  String s;
+
+  s+= "/lily_id_string\n{" + lily_id_str_ + "} bind def\n";
+  
+  for (Dictionary_iter<String> i (*this); i.ok (); i++) 
+    s += "/mudela" + i.key () + "{" + i.val () + "} bind def\n";
+  return s;
+}
+