lily/property-inspect.cc

   1 /*
   2   property-inspect.cc --  implement Property inspect funcs.
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8  */
   9
  10 #include "property-inspect.hh"
  11
  12 bool
  13 isdir_b (SCM s)
  14 {
  15   if (SCM_NUMBERP (s))
  16     {
  17       int i = gh_int2scm (s);
  18       return i>= -1 && i <= 1;
  19     }
  20   return false;
  21 }
  22
  23 Direction
  24 to_dir (SCM s)
  25 {
  26   return (Direction) gh_scm2int (s);
  27 }