Lily_parser::print_smob (SCM s, SCM port, scm_print_state*)
{
scm_puts ("#<my_lily_parser ", port);
Lily_parser::print_smob (SCM s, SCM port, scm_print_state*)
{
scm_puts ("#<my_lily_parser ", port);
/* Process one .ly file, or book. */
void
Lily_parser::parse_file (String init, String name, String out_name)
{
if (output_backend_global == "tex")
{
/* Process one .ly file, or book. */
void
Lily_parser::parse_file (String init, String name, String out_name)
{
if (output_backend_global == "tex")
{
lexer_ = new Lily_lexer (sources_);
scm_gc_unprotect_object (lexer_->self_scm ());
// TODO: use $parser
lexer_->set_identifier (ly_symbol2scm ("parser"),
self_scm ());
output_basename_ = out_name;
lexer_ = new Lily_lexer (sources_);
scm_gc_unprotect_object (lexer_->self_scm ());
// TODO: use $parser
lexer_->set_identifier (ly_symbol2scm ("parser"),
self_scm ());
output_basename_ = out_name;
lexer_ = (parent == 0 ? new Lily_lexer (sources_)
: new Lily_lexer (*parent));
scm_gc_unprotect_object (lexer_->self_scm ());
lexer_ = (parent == 0 ? new Lily_lexer (sources_)
: new Lily_lexer (*parent));
scm_gc_unprotect_object (lexer_->self_scm ());
lexer_->main_input_name_ = "<string>";
lexer_->is_main_input_ = true;
set_yydebug (0);
lexer_->new_input (lexer_->main_input_name_, ly_code, sources_);
do_yyparse ();
lexer_->main_input_name_ = "<string>";
lexer_->is_main_input_ = true;
set_yydebug (0);
lexer_->new_input (lexer_->main_input_name_, ly_code, sources_);
do_yyparse ();
get_paper (Lily_parser *parser)
{
SCM id = parser->lexer_->lookup_identifier ("$defaultpaper");
Output_def *layout = unsmob_output_def (id);
get_paper (Lily_parser *parser)
{
SCM id = parser->lexer_->lookup_identifier ("$defaultpaper");
Output_def *layout = unsmob_output_def (id);