lily/include/parse-scm.hh

   1 /*
   2   This file is part of LilyPond, the GNU music typesetter.
   3
   4   Copyright (C) 2004--2014 Han-Wen Nienhuys <hanwen@xs4all.nl>
   5
   6   LilyPond is free software: you can redistribute it and/or modify
   7   it under the terms of the GNU General Public License as published by
   8   the Free Software Foundation, either version 3 of the License, or
   9   (at your option) any later version.
  10
  11   LilyPond is distributed in the hope that it will be useful,
  12   but WITHOUT ANY WARRANTY; without even the implied warranty of
  13   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14   GNU General Public License for more details.
  15
  16   You should have received a copy of the GNU General Public License
  17   along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
  18 */
  19
  20 #ifndef PARSE_SCM_HH
  21 #define PARSE_SCM_HH
  22
  23 #include "input.hh"
  24 #include "lily-guile.hh"
  25
  26 extern bool parse_protect_global;
  27 extern bool parsed_objects_should_be_dead;
  28
  29 struct Parse_start
  30 {
  31   char const *str;
  32   int nchars;
  33   Input start_location_;
  34   bool safe_;
  35   SCM (*func_) (Parse_start *ps);
  36   SCM form_;
  37   Lily_parser *parser_;
  38
  39   Parse_start ()
  40   {
  41     str = 0;
  42     nchars = 0;
  43     safe_ = false;
  44     parser_ = 0;
  45     form_ = SCM_UNDEFINED;
  46     func_ = 0;
  47   }
  48 };
  49
  50 SCM catch_protected_parse_body (void *);
  51 SCM protected_ly_parse_scm (Parse_start *, bool);
  52 SCM ly_parse_scm (char const *, int *, Input, bool, Lily_parser *);
  53 SCM ly_eval_scm (SCM, Input, bool, Lily_parser *);
  54
  55 #endif /* PARSE_SCM_HH */