2 lily-parser-scheme.cc -- implement Lily_parser bindings
4 source file of the GNU LilyPond music typesetter
6 (c) 2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
11 #include "file-name.hh"
12 #include "file-path.hh"
14 #include "lily-parser.hh"
17 #include "lily-lexer.hh"
18 #include "ly-module.hh"
19 #include "file-name-map.hh"
21 /* Do not append `!' suffix, since 1st argument is not modified. */
22 LY_DEFINE (ly_set_point_and_click
, "ly:set-point-and-click",
27 warning (_f ("deprecated function called: %s", "ly:set-point-and-click"));
28 return SCM_UNSPECIFIED
;
31 LY_DEFINE (ly_parse_file
, "ly:parse-file",
33 "Parse a single @code{.ly} file. "
34 "Upon failure, throw @code{ly-file-failed} key.")
36 SCM_ASSERT_TYPE (scm_is_string (name
), name
, SCM_ARG1
, __FUNCTION__
, "string");
37 char const *file
= scm_i_string_chars (name
);
38 char const *extensions
[] = {"ly", "", 0};
40 String file_name
= global_path
.find (file
, extensions
);
42 /* By default, use base name of input file for output file name,
43 write output to cwd; do not use root and directory parts of input
45 File_name
out_file_name (file_name
);
47 global_path
.append (out_file_name
.dir_
);
49 out_file_name
.ext_
= "";
50 out_file_name
.root_
= "";
51 out_file_name
.dir_
= "";
53 /* When running from gui, generate output in .ly source directory. */
54 if (output_name_global
.is_empty ()
55 && scm_call_0 (ly_lily_module_constant ("running-from-gui?")) == SCM_BOOL_T
)
60 output_name_global
= f
.to_string ();
63 if (!output_name_global
.is_empty ())
65 /* Interpret --output=DIR to mean --output=DIR/BASE. */
66 if (is_dir (output_name_global
))
69 getcwd (cwd
, PATH_MAX
);
71 if (output_name_global
!= cwd
)
73 global_path
.prepend (cwd
);
74 message (_f ("Changing working directory to `%s'",
75 output_name_global
.to_str0 ()));
76 chdir (output_name_global
.to_str0 ());
79 output_name_global
= "";
82 out_file_name
= File_name (output_name_global
);
86 if (!init_name_global
.is_empty ())
87 init
= init_name_global
;
91 String out_file
= out_file_name
.to_string ();
93 if (init
.length () && global_path
.find (init
).is_empty ())
95 warning (_f ("can't find init file: `%s'", init
));
96 warning (_f ("(search path: `%s')",
97 global_path
.to_string ().to_str0 ()));
101 if ((file_name
!= "-") && global_path
.find (file_name
).is_empty ())
103 warning (_f ("can't find file: `%s'", file_name
));
104 scm_throw (ly_symbol2scm ("ly-file-failed"),
105 scm_list_1 (scm_makfrom0str (file_name
.to_str0 ())));
110 sources
.set_path (&global_path
);
112 String mapped_fn
= map_file_name (file_name
);
113 message (_f ("Processing `%s'", mapped_fn
.to_str0 ()));
114 progress_indication ("\n");
116 Lily_parser
*parser
= new Lily_parser (&sources
);
118 parser
->parse_file (init
, file_name
, out_file
);
120 bool error
= parser
->error_level_
;
121 scm_gc_unprotect_object (parser
->self_scm ());
124 /* TODO: pass renamed input file too. */
125 scm_throw (ly_symbol2scm ("ly-file-failed"),
126 scm_list_1 (scm_makfrom0str (file_name
.to_str0 ())));
128 return SCM_UNSPECIFIED
;
131 LY_DEFINE (ly_parse_string
, "ly:parse-string",
132 1, 0, 0, (SCM ly_code
),
133 "Parse the string LY_CODE. "
134 "Upon failure, throw @code{ly-file-failed} key.")
136 SCM_ASSERT_TYPE (scm_is_string (ly_code
), ly_code
, SCM_ARG1
, __FUNCTION__
, "string");
139 sources
.set_path (&global_path
);
140 Lily_parser
*parser
= new Lily_parser (&sources
);
141 scm_module_define (global_lily_module
, ly_symbol2scm ("parser"),
142 parser
->self_scm ());
143 parser
->parse_string (ly_scm2string (ly_code
));
144 scm_gc_unprotect_object (parser
->self_scm ());
147 return SCM_UNSPECIFIED
;
150 LY_DEFINE (ly_clone_parser
, "ly:clone-parser",
151 1, 0, 0, (SCM parser_smob
),
152 "Return a clone of PARSER_SMOB.")
154 Lily_parser
*parser
= unsmob_lily_parser (parser_smob
);
155 Lily_parser
*clone
= new Lily_parser (*parser
);
157 return scm_gc_unprotect_object (clone
->self_scm ());
160 LY_DEFINE (ly_parser_define
, "ly:parser-define",
161 3, 0, 0, (SCM parser_smob
, SCM symbol
, SCM val
),
162 "Bind SYMBOL to VAL in PARSER_SMOB's module.")
164 Lily_parser
*parser
= unsmob_lily_parser (parser_smob
);
165 SCM_ASSERT_TYPE (scm_is_symbol (symbol
), symbol
, SCM_ARG2
, __FUNCTION__
, "symbol");
166 SCM_ASSERT_TYPE (parser
, parser_smob
, SCM_ARG2
, __FUNCTION__
, "parser");
168 parser
->lexer_
->set_identifier (scm_symbol_to_string (symbol
), val
);
169 return SCM_UNSPECIFIED
;
172 LY_DEFINE (ly_parser_lookup
, "ly:parser-lookup",
173 2, 0, 0, (SCM parser_smob
, SCM symbol
),
174 "Lookup @var{symbol} in @var{parser_smob}'s module. "
177 Lily_parser
*parser
= unsmob_lily_parser (parser_smob
);
179 SCM_ASSERT_TYPE (scm_is_symbol (symbol
), symbol
, SCM_ARG2
, __FUNCTION__
, "symbol");
180 SCM_ASSERT_TYPE (parser
, parser_smob
, SCM_ARG2
, __FUNCTION__
, "parser");
182 SCM val
= parser
->lexer_
->lookup_identifier (ly_scm2string (scm_symbol_to_string (symbol
)));
183 if (val
!= SCM_UNDEFINED
)
189 LY_DEFINE (ly_parser_parse_string
, "ly:parser-parse-string",
190 2, 0, 0, (SCM parser_smob
, SCM ly_code
),
191 "Parse the string LY_CODE with PARSER_SMOB."
192 "Upon failure, throw @code{ly-file-failed} key.")
194 Lily_parser
*parser
= unsmob_lily_parser (parser_smob
);
196 SCM_ASSERT_TYPE (parser
, parser_smob
, SCM_ARG1
, __FUNCTION__
, "parser");
197 SCM_ASSERT_TYPE (scm_is_string (ly_code
), ly_code
, SCM_ARG2
, __FUNCTION__
, "string");
199 parser
->parse_string (ly_scm2string (ly_code
));
201 return SCM_UNSPECIFIED
;
204 LY_DEFINE (ly_parser_set_note_names
, "ly:parser-set-note-names",
205 2, 0, 0, (SCM parser
, SCM names
),
206 "Replace current note names in @var{parser}. "
207 "@var{names} is an alist of symbols. "
208 "This only has effect if the current mode is notes.")
210 Lily_parser
*p
= unsmob_lily_parser (parser
);
211 SCM_ASSERT_TYPE (p
, parser
, SCM_ARG1
, __FUNCTION__
, "Lilypond parser");
213 if (p
->lexer_
->is_note_state ())
215 p
->lexer_
->pop_state ();
216 p
->lexer_
->push_note_state (alist_to_hashq (names
));
219 return SCM_UNSPECIFIED
;