Run `make grand-replace'.

[lilypond.git] / lily / program-option.cc

diff --git a/lily/program-option.cc b/lily/program-option.cc
index e69de29bb2d1d6434b8b29ae775ad8c2e48c5391..a176df86da8b048a52c4521b59a48f09a9a2f355 100644 (file)
--- a/lily/program-option.cc
+++ b/lily/program-option.cc
@@ -0,0 +1,25 @@
+/* 
+  program-option.cc -- program options, non-scheme.
+  
+  source file of the GNU LilyPond music typesetter
+  
+  (c) 2007--2008 Han-Wen Nienhuys <hanwen@lilypond.org>
+  
+*/
+
+#include "program-option.hh"
+
+string
+get_output_backend_name ()
+{
+  return ly_symbol2string (ly_get_option (ly_symbol2scm ("backend")));
+}
+
+bool
+get_program_option (const char *s)
+{
+  SCM sym = ly_symbol2scm (s);
+
+  return to_boolean (ly_get_option (sym));
+}
+