patch::: 1.0.12.jcn2: opniewvisite

[lilypond.git] / lily / header.cc

diff --git a/lily/header.cc b/lily/header.cc
index 2a38c5e5976e751583d2ba9579bc16973e14f6c2..680245dc1acc8dfd6efe4dd2bbedac55ef476b1e 100644 (file)
--- a/lily/header.cc
+++ b/lily/header.cc
@@ -4,6 +4,7 @@
   source file of the GNU LilyPond music typesetter
 
   (c)  1997--1998 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+  Jan Nieuwenhuizen <janneke@gnu.org>
 */
 
 #include "string.hh"
@@ -11,25 +12,36 @@
 #include "header.hh"
 #include "main.hh"
 
-extern char const *lily_version_number_sz();
+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 () + "}";
   return s;
 }
 
-Header::Header ()
+String
+Header::ps_string () const
 {
-  lily_id_str_ = "Lily was here, " +
-    String (lily_version_number_sz ());
+  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";
+  return s;
 }
+