2 my-lily-lexer.cc -- implement My_lily_lexer
4 source file of the GNU LilyPond music typesetter
6 (c) 1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
11 #include "notename-table.hh"
12 #include "interval.hh"
13 #include "identifier.hh"
14 #include "lily-guile.hh"
17 #include "my-lily-lexer.hh"
19 #include "source-file.hh"
25 static Keyword_ent the_key_tab
[]={
26 {"autochange", AUTOCHANGE
},
27 {"spanrequest", SPANREQUEST
},
28 {"commandspanrequest", COMMANDSPANREQUEST
},
29 {"simultaneous", SIMULTANEOUS
},
30 {"sequential", SEQUENTIAL
},
32 {"alternative", ALTERNATIVE
},
36 {"chordmodifiers", CHORDMODIFIERS
},
40 {"consists", CONSISTS
},
41 {"consistsend", CONSISTSEND
},
43 {"duration", DURATION
},
50 {"keysignature", KEYSIGNATURE
},
52 {"musicalpitch", MUSICAL_PITCH
},
58 {"notenames", NOTENAMES
},
60 {"outputproperty", OUTPUTPROPERTY
},
64 {"property", PROPERTY
},
66 {"relative", RELATIVE
},
69 {"repetitions", REPETITIONS
},
70 {"addlyrics", ADDLYRICS
},
74 {"textscript", TEXTSCRIPT
},
76 {"translator", TRANSLATOR
},
77 {"transpose", TRANSPOSE
},
82 My_lily_lexer::My_lily_lexer()
84 keytable_p_
= new Keyword_table (the_key_tab
);
85 toplevel_scope_p_
= new Scope
;
86 scope_l_arr_
.push (toplevel_scope_p_
);
88 note_tab_p_
= new Notename_table
;
89 chordmodifier_tab_p_
= new Notename_table
;
90 main_input_b_
= false;
94 My_lily_lexer::lookup_keyword (String s
)
96 return keytable_p_
->lookup (s
.ch_C ());
100 My_lily_lexer::lookup_identifier (String s
)
102 SCM sym
= ly_symbol2scm (s
.ch_C());
104 for (int i
= scope_l_arr_
.size (); i
--; )
105 if (scope_l_arr_
[i
]->elem_b (sym
))
106 return scope_l_arr_
[i
]->elem(sym
);
111 My_lily_lexer::start_main_input ()
113 if (flower_dstream
&& !flower_dstream
->silent_b ("InitDeclarations") && flower_dstream
)
114 print_declarations (true);
115 if (flower_dstream
&& !flower_dstream
->silent_b ("InitLexer") && flower_dstream
)
119 new_input (main_input_str_
, source_global_l
);
120 allow_includes_b_
= allow_includes_b_
&& !(safe_global_b
);
123 print_declarations(true);
127 My_lily_lexer::set_identifier (String name_str
, Identifier
* i
, bool )
130 if (scope_l_arr_
.top ()->elem_b (name_str
))
131 old
= scope_l_arr_
.top ()->elem(name_str
);
138 old
->warning(_f ("redeclaration of `\\%s'", name_str
));
142 if (lookup_keyword (name_str
) >= 0)
144 warning ( _f ("Identifier name is a keyword: `%s'", name_str
));
147 scope_l_arr_
.top ()->elem (name_str
) = i
;
150 My_lily_lexer::~My_lily_lexer()
152 delete chordmodifier_tab_p_
;
154 delete toplevel_scope_p_
;
159 My_lily_lexer::print_declarations (bool ) const
161 for (int i
=scope_l_arr_
.size (); i
--; )
163 DEBUG_OUT
<< "Scope no. " << i
<< '\n';
164 scope_l_arr_
[i
]->print ();
169 My_lily_lexer::LexerError (char const *s
)
171 if (include_stack_
.empty())
173 progress_indication (_f ("error at EOF: %s", s
)+ String ("\n"));
178 Input
spot (source_file_l(),here_ch_C());
184 My_lily_lexer::lookup_notename (String s
)
186 return note_tab_p_
->get_pitch (s
);
190 My_lily_lexer::lookup_chordmodifier (String s
)
192 return chordmodifier_tab_p_
->get_pitch (s
);
197 My_lily_lexer::set_notename_table (Notename_table
*p
)
206 My_lily_lexer::set_chordmodifier_table (Notename_table
*p
)
208 delete chordmodifier_tab_p_
;
209 chordmodifier_tab_p_
= p
;
213 My_lily_lexer::escaped_char(char c
) const
231 My_lily_lexer::here_input () const
233 Source_file
* f_l
= source_file_l ();
234 return Input (f_l
, (char*)here_ch_C ());