From: fred <fred>
Date: Sat, 23 Oct 1999 22:34:35 +0000 (+0000)
Subject: lilypond-1.3.0
X-Git-Tag: release/1.5.59~5763
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=167100ee4b7243842caa089c480ab275e41b2fc8;p=lilypond.git

lilypond-1.3.0
---

diff --git a/lily/include/property-inspect.hh b/lily/include/property-inspect.hh
new file mode 100644
index 0000000000..31d26ac3e9
--- /dev/null
+++ b/lily/include/property-inspect.hh
@@ -0,0 +1,20 @@
+/*   
+  property-inspect.hh -- declare various property related funcs.
+  
+  source file of the GNU LilyPond music typesetter
+  
+  (c) 1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+  
+ */
+
+#ifndef PROPERTY_INSPECT_HH
+#define PROPERTY_INSPECT_HH
+
+#include "direction.hh"
+#include "lily-guile.hh"
+
+bool isdir_b (SCM s);
+Direction to_dir (SCM s);
+
+#endif /* PROPERTY_INSPECT_HH */
+
diff --git a/lily/property-inspect.cc b/lily/property-inspect.cc
new file mode 100644
index 0000000000..5e29f4160b
--- /dev/null
+++ b/lily/property-inspect.cc
@@ -0,0 +1,27 @@
+/*   
+  property-inspect.cc --  implement Property inspect funcs.
+  
+  source file of the GNU LilyPond music typesetter
+  
+  (c) 1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+  
+ */
+
+#include "property-inspect.hh"
+
+bool
+isdir_b (SCM s)
+{
+  if (SCM_NUMBERP (s))
+    {
+      int i = gh_int2scm (s);
+      return i>= -1 && i <= 1; 
+    }
+  return false;
+}
+
+Direction
+to_dir (SCM s)
+{
+  return (Direction) gh_scm2int (s);
+}