+LY_DEFINE (ly_clone_parser, "ly:clone-parser",
+ 1, 0, 0, (SCM parser_smob),
+ "Return a clone of PARSER_SMOB.")
+{
+ My_lily_parser *parser = unsmob_my_lily_parser (parser_smob);
+ My_lily_parser *clone = new My_lily_parser (*parser);
+
+ /* FIXME: should copy scopes too. */
+ return scm_gc_unprotect_object (clone->self_scm ());
+}
+
+LY_DEFINE (ly_parser_define, "ly:parser-define",
+ 3, 0, 0, (SCM parser_smob, SCM symbol, SCM val),
+ "Bind SYMBOL to VAL in PARSER_SMOB's module.")
+{
+ My_lily_parser *parser = unsmob_my_lily_parser (parser_smob);
+ SCM_ASSERT_TYPE (ly_c_symbol_p (symbol), symbol, SCM_ARG2, __FUNCTION__, "symbol");
+ SCM_ASSERT_TYPE (parser, parser_smob, SCM_ARG2, __FUNCTION__, "parser");
+
+
+ parser->lexer_->set_identifier (scm_symbol_to_string (symbol), val);
+ return SCM_UNSPECIFIED;
+}
+
+LY_DEFINE (ly_parser_lookup, "ly:parser-lookup",
+ 2, 0, 0, (SCM parser_smob, SCM symbol),
+ "Lookup @var{symbol} in @var{parser_smob}'s module. "
+ "Undefined is '().")
+{
+ My_lily_parser *parser = unsmob_my_lily_parser (parser_smob);
+
+ SCM_ASSERT_TYPE (ly_c_symbol_p (symbol), symbol, SCM_ARG2, __FUNCTION__, "symbol");
+ SCM_ASSERT_TYPE (parser, parser_smob, SCM_ARG2, __FUNCTION__, "parser");
+
+ SCM val= parser->lexer_->lookup_identifier (ly_scm2string (scm_symbol_to_string (symbol)));
+ if (val != SCM_UNDEFINED)
+ return val;
+ else
+ return SCM_EOL;
+}
+