X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fprogram-option.cc;h=81f2d5ab6d1708e7b9e7a226ec64118ac0c60b5b;hb=730e35bfe91fc8b151fbd54c6daddaf930664327;hp=e69de29bb2d1d6434b8b29ae775ad8c2e48c5391;hpb=e9a308e9c6002900fc336733950a0175bcbcc333;p=lilypond.git

diff --git a/lily/program-option.cc b/lily/program-option.cc
index e69de29bb2..81f2d5ab6d 100644
--- 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--2009 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));
+}
+