lilypond-1.3.100
[lilypond.git] / lily / my-lily-lexer.cc
blob88d00fd5fdfc9a791671e7f7c75cd15b53ccbe62
1 /*
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>
7 */
9 #include <strstream.h>
10 #include <ctype.h>
12 #include "interval.hh"
13 #include "identifier.hh"
14 #include "lily-guile.hh"
15 #include "parser.hh"
16 #include "keyword.hh"
17 #include "my-lily-lexer.hh"
18 #include "debug.hh"
19 #include "source-file.hh"
20 #include "main.hh"
21 #include "scope.hh"
22 #include "input.hh"
23 #include "moment.hh"
25 static Keyword_ent the_key_tab[]={
26 {"autochange", AUTOCHANGE},
27 {"arpeggio", ARPEGGIO },
28 {"spanrequest", SPANREQUEST},
29 {"commandspanrequest", COMMANDSPANREQUEST},
30 {"simultaneous", SIMULTANEOUS},
31 {"sequential", SEQUENTIAL},
32 {"accepts", ACCEPTS},
33 {"alternative", ALTERNATIVE},
34 {"bar", BAR},
35 {"breathe", BREATHE},
36 {"char", CHAR_T},
37 {"chordmodifiers", CHORDMODIFIERS},
38 {"chords", CHORDS},
39 {"clef", CLEF},
40 {"cm", CM_T},
41 {"consists", CONSISTS},
42 {"consistsend", CONSISTSEND},
43 {"context", CONTEXT},
44 {"denies", DENIES},
45 {"duration", DURATION},
46 {"dynamicscript", DYNAMICSCRIPT},
47 {"elementdescriptions", ELEMENTDESCRIPTIONS},
48 {"font", FONT},
49 {"grace", GRACE},
50 {"header", HEADER},
51 {"in", IN_T},
52 {"lyrics", LYRICS},
53 {"key", KEY},
54 {"mark", MARK},
55 {"musicalpitch", MUSICAL_PITCH},
56 {"time", TIME_T},
57 {"times", TIMES},
58 {"midi", MIDI},
59 {"mm", MM_T},
60 {"name", NAME},
61 {"notenames", NOTENAMES},
62 {"notes", NOTES},
63 {"outputproperty", OUTPUTPROPERTY},
64 {"push", PUSH},
65 {"pop", POP},
66 {"partial", PARTIAL},
67 {"paper", PAPER},
68 {"penalty", PENALTY},
69 {"property", PROPERTY},
70 {"pt", PT_T},
71 {"relative", RELATIVE},
72 {"remove", REMOVE},
73 {"repeat", REPEAT},
74 {"addlyrics", ADDLYRICS},
75 {"partcombine", PARTCOMBINE},
76 {"score", SCORE},
77 {"script", SCRIPT},
78 {"stylesheet", STYLESHEET},
79 {"skip", SKIP},
80 {"textscript", TEXTSCRIPT},
81 {"tempo", TEMPO},
82 {"translator", TRANSLATOR},
83 {"transpose", TRANSPOSE},
84 {"type", TYPE},
85 {0,0}
88 My_lily_lexer::My_lily_lexer()
90 keytable_p_ = new Keyword_table (the_key_tab);
91 toplevel_scope_p_ = new Scope;
92 scope_l_arr_.push (toplevel_scope_p_);
93 errorlevel_i_ = 0;
94 main_input_b_ = false;
97 int
98 My_lily_lexer::lookup_keyword (String s)
100 return keytable_p_->lookup (s.ch_C ());
104 My_lily_lexer::lookup_identifier (String s)
106 SCM sym = ly_symbol2scm (s.ch_C());
108 for (int i = scope_l_arr_.size (); i--; )
110 SCM val = SCM_UNSPECIFIED;
111 if (scope_l_arr_[i]->try_retrieve (sym, &val))
112 return val;
114 return SCM_UNSPECIFIED;
117 void
118 My_lily_lexer::start_main_input ()
120 new_input (main_input_str_, source_global_l);
121 allow_includes_b_ = allow_includes_b_ && !(safe_global_b);
124 void
125 My_lily_lexer::set_identifier (String name_str, SCM s)
127 if (lookup_keyword (name_str) >= 0)
129 warning ( _f ("Identifier name is a keyword: `%s'", name_str));
132 scope_l_arr_.top ()->set (name_str, s);
135 My_lily_lexer::~My_lily_lexer()
137 delete keytable_p_;
138 delete toplevel_scope_p_ ;
143 void
144 My_lily_lexer::LexerError (char const *s)
146 if (include_stack_.empty())
148 progress_indication (_f ("error at EOF: %s", s)+ String ("\n"));
150 else
152 errorlevel_i_ |= 1;
153 Input spot (source_file_l(),here_ch_C());
154 spot.error (s);
158 char
159 My_lily_lexer::escaped_char(char c) const
161 switch(c)
163 case 'n':
164 return '\n';
165 case 't':
166 return '\t';
168 case '\'':
169 case '\"':
170 case '\\':
171 return c;
173 return 0;
176 Input
177 My_lily_lexer::here_input () const
179 Source_file * f_l= source_file_l ();
180 return Input (f_l, (char*)here_ch_C ());