lily/output-def-scheme.cc

   1 /*
   2   output-def-scheme.cc --  implement Output_def bindings
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
   7
   8 */
   9
  10 #include "output-def.hh"
  11 #include "ly-module.hh"
  12 #include "context-def.hh"
  13
  14 LY_DEFINE (ly_layout_lookup, "ly:output-def-lookup",
  15            2, 0, 0, (SCM pap, SCM sym),
  16            "Lookup @var{sym} in @var{pap}. "
  17            "Return the value or @code{'()} if undefined.")
  18 {
  19   Output_def *op = unsmob_output_def (pap);
  20   SCM_ASSERT_TYPE (op, pap, SCM_ARG1, __FUNCTION__, "Output_def");
  21   SCM_ASSERT_TYPE (scm_is_symbol (sym), sym, SCM_ARG2, __FUNCTION__, "symbol");
  22
  23   return op->lookup_variable (sym);
  24 }
  25
  26 LY_DEFINE (ly_output_def_scope, "ly:output-def-scope",
  27            1, 0, 0, (SCM def),
  28            "Get the variable scope inside @var{def}.")
  29 {
  30   Output_def *op = unsmob_output_def (def);
  31   SCM_ASSERT_TYPE (op, def, SCM_ARG1, __FUNCTION__, "Output definition");
  32   return op->scope_;
  33 }
  34
  35 LY_DEFINE (ly_output_def_parent, "ly:output-def-parent",
  36            1, 0, 0, (SCM def),
  37            "Get the parent output-def of @var{def}.")
  38 {
  39   Output_def *op = unsmob_output_def (def);
  40   SCM_ASSERT_TYPE (op, def, SCM_ARG1, __FUNCTION__, "Output definition");
  41   return op->parent_ ? op->parent_->self_scm () : SCM_EOL;
  42 }
  43
  44 LY_DEFINE (ly_output_def_clone, "ly:output-def-clone",
  45            1, 0, 0, (SCM def),
  46            "Clone @var{def}.")
  47 {
  48   Output_def *op = unsmob_output_def (def);
  49   SCM_ASSERT_TYPE (op, def, SCM_ARG1, __FUNCTION__, "Output definition");
  50   SCM s = op->clone ()->self_scm ();
  51   scm_gc_unprotect_object (s);
  52   return s;
  53 }
  54
  55 LY_DEFINE (ly_output_description, "ly:output-description",
  56            1, 0, 0, (SCM output_def),
  57            "Return the description of translators in @var{output-def}.")
  58 {
  59   Output_def *id = unsmob_output_def (output_def);
  60
  61   SCM al = ly_module2alist (id->scope_);
  62
  63   SCM ell = SCM_EOL;
  64   for (SCM s = al; scm_is_pair (s); s = scm_cdr (s))
  65     {
  66       Context_def * td = unsmob_context_def (scm_cdar (s));
  67       SCM key = scm_caar (s);
  68       if (td && key == td->get_context_name ())
  69         ell = scm_cons (scm_cons (key, td->to_alist ()),  ell);
  70     }
  71   return ell;
  72 }
  73
  74 LY_DEFINE (ly_layout_def_p, "ly:layout-def?",
  75            1, 0, 0, (SCM def),
  76            "Is @var{def} a layout definition?")
  77 {
  78   return ly_bool2scm (unsmob_output_def (def));
  79 }
  80
  81 LY_DEFINE (ly_paper_outputscale, "ly:paper-outputscale",
  82           1, 0, 0, (SCM bp),
  83           "Get outputscale for BP.")
  84 {
  85   Output_def *b = unsmob_output_def (bp);
  86   SCM_ASSERT_TYPE (b, bp, SCM_ARG1, __FUNCTION__, "paper");
  87   return scm_make_real (output_scale (b));
  88 }
  89
  90 LY_DEFINE (ly_make_output_def, "ly:make-output-def",
  91            0, 0, 0, (),
  92            "Make a output def.")
  93 {
  94   Output_def *bp = new Output_def ;
  95   return scm_gc_unprotect_object (bp->self_scm ());
  96 }