/[svn]/linuxsampler/trunk/src/network/lscp.y
ViewVC logotype

Annotation of /linuxsampler/trunk/src/network/lscp.y

Parent Directory Parent Directory | Revision Log Revision Log


Revision 159 - (hide annotations) (download)
Tue Jun 29 21:11:50 2004 UTC (19 years, 9 months ago) by capela
File size: 17458 byte(s)
* Unconsolidaded MIDI input related channel commands are back:
  SET CHANNEL MIDI_INPUT_DEVICE <chan> <midi-device>
  SET CHANNEL MIDI_INPUT_PORT <chan> <midi-port>
  SET CHANNEL MIDI_INPUT_CHANNEL <chan> <midi-chan>

* Still useful for compability with legacy clients, an almost
  deprecated command gets re-implemented:
  SET CHANNEL MIDI_INPUT_TYPE <chan> <midi-driver>

* Optional parameter list on MIDI input device creation fixed,
  but not quite fully effective yet:
  CREATE MIDI_INPUT_DEVICE <midi-driver> [<key>=<val>...]

1 schoenebeck 35 /***************************************************************************
2     * *
3     * LinuxSampler - modular, streaming capable sampler *
4     * *
5 schoenebeck 56 * Copyright (C) 2003, 2004 by Benno Senoner and Christian Schoenebeck *
6 schoenebeck 35 * *
7     * This program is free software; you can redistribute it and/or modify *
8     * it under the terms of the GNU General Public License as published by *
9     * the Free Software Foundation; either version 2 of the License, or *
10     * (at your option) any later version. *
11     * *
12     * This program is distributed in the hope that it will be useful, *
13     * but WITHOUT ANY WARRANTY; without even the implied warranty of *
14     * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
15     * GNU General Public License for more details. *
16     * *
17     * You should have received a copy of the GNU General Public License *
18     * along with this program; if not, write to the Free Software *
19     * Foundation, Inc., 59 Temple Place, Suite 330, Boston, *
20     * MA 02111-1307 USA *
21     ***************************************************************************/
22    
23     %{
24    
25     #include "lscpparser.h"
26     #include "lscpserver.h"
27    
28     // as we need an reentrant scanner, we have to pass the pointer to the scanner with each yylex() call
29     #define YYLEX_PARAM ((yyparse_param_t*) yyparse_param)->pScanner
30    
31     // to save us typing work in the rules action definitions
32     #define LSCPSERVER ((yyparse_param_t*) yyparse_param)->pServer
33    
34     // clears input buffer and restarts scanner.
35     void restart(yyparse_param_t* pparam, int& yychar);
36     #define RESTART restart((yyparse_param_t*) YYPARSE_PARAM, yychar)
37    
38     // external reference to the main scanner function yylex()
39     extern YY_DECL;
40    
41     // external reference to restart the lex scanner
42     extern void yyrestart(FILE* input_file, yyscan_t yyscanner);
43    
44     // we provide our own version of yyerror() so we don't have to link against the yacc library
45     void yyerror(const char* s);
46    
47     %}
48    
49     // reentrant parser
50     %pure_parser
51    
52     %token <Char> CHAR
53     %token <Dotnum> DOTNUM
54     %token <Number> NUMBER
55 senkov 135 %token <String> STRINGVAL
56 schoenebeck 123 %token SP LF CR HASH EQ
57 senkov 141 %token ADD GET CREATE DESTROY LIST LOAD NON_MODAL REMOVE SET SUBSCRIBE UNSUBSCRIBE RESET QUIT
58 schoenebeck 35 %token CHANNEL NOTIFICATION
59 schoenebeck 123 %token AVAILABLE_ENGINES AVAILABLE_AUDIO_OUTPUT_DRIVERS CHANNELS INFO BUFFER_FILL STREAM_COUNT VOICE_COUNT
60 schoenebeck 35 %token INSTRUMENT ENGINE
61 senkov 155 %token AUDIO_OUTPUT_CHANNEL AUDIO_OUTPUT_CHANNEL_PARAMETER AUDIO_OUTPUT_DEVICE AUDIO_OUTPUT_DEVICES AUDIO_OUTPUT_DEVICE_PARAMETER AUDIO_OUTPUT_DRIVER AUDIO_OUTPUT_DRIVER_PARAMETER AUDIO_OUTPUT_TYPE MIDI_INPUT MIDI_INPUT_TYPE MIDI_INPUT_PORT MIDI_INPUT_CHANNEL VOLUME
62     %token MIDI_INPUT_DRIVER MIDI_INPUT_DRIVER_PARAMETER AVAILABLE_MIDI_INPUT_DRIVERS MIDI_INPUT_DEVICE MIDI_INPUT_DEVICES MIDI_INPUT_DEVICE_PARAMETER MIDI_INPUT_PORT_PARAMETER
63 schoenebeck 35 %token BYTES PERCENTAGE
64 senkov 135 %token MISCELLANEOUS
65 schoenebeck 35
66     %type <Dotnum> volume
67 capela 159 %type <Number> sampler_channel instrument_index audio_output_channel audio_output_device midi_input_channel midi_input_port midi_input_device
68 senkov 155 %type <String> string param_val filename engine_name command create_instruction destroy_instruction get_instruction list_instruction load_instruction set_chan_instruction load_instr_args load_engine_args audio_output_type midi_input_type set_instruction subscribe_event unsubscribe_event
69 schoenebeck 35 %type <FillResponse> buffer_size_type
70 schoenebeck 123 %type <KeyValList> key_val_list
71 schoenebeck 35
72     %start input
73    
74     %%
75    
76     //TODO: return more meaningful error messages
77    
78     input : line
79     | input LF line
80     | input CR LF line
81     ;
82    
83     line : /* epsilon (empty line ignored) */
84 schoenebeck 111 | comment
85 schoenebeck 35 | command { LSCPSERVER->AnswerClient($1); }
86     | error { LSCPSERVER->AnswerClient("Err:0:Unknown command.\r\n"); RESTART; return LSCP_SYNTAX_ERROR; }
87     ;
88    
89 schoenebeck 111 comment : HASH
90     | comment HASH
91     | comment SP
92     | comment NUMBER
93     | comment string
94     ;
95    
96 schoenebeck 35 command : ADD SP CHANNEL { $$ = LSCPSERVER->AddChannel(); }
97     | GET SP get_instruction { $$ = $3; }
98 schoenebeck 123 | CREATE SP create_instruction { $$ = $3; }
99     | DESTROY SP destroy_instruction { $$ = $3; }
100     | LIST SP list_instruction { $$ = $3; }
101 senkov 141 | LOAD SP load_instruction { $$ = $3; }
102 schoenebeck 35 | REMOVE SP CHANNEL SP sampler_channel { $$ = LSCPSERVER->RemoveChannel($5); }
103 schoenebeck 123 | SET SP set_instruction { $$ = $3; }
104 senkov 135 | SUBSCRIBE SP subscribe_event { $$ = $3; }
105     | UNSUBSCRIBE SP unsubscribe_event { $$ = $3; }
106 schoenebeck 35 | RESET SP CHANNEL SP sampler_channel { $$ = LSCPSERVER->ResetChannel($5); }
107     | QUIT { LSCPSERVER->AnswerClient("Bye!\r\n"); return 0; }
108     ;
109    
110 senkov 135 subscribe_event : CHANNELS { $$ = LSCPSERVER->SubscribeNotification(event_channels); }
111     | VOICE_COUNT { $$ = LSCPSERVER->SubscribeNotification(event_voice_count); }
112     | STREAM_COUNT { $$ = LSCPSERVER->SubscribeNotification(event_stream_count); }
113     | BUFFER_FILL { $$ = LSCPSERVER->SubscribeNotification(event_channel_buffer_fill); }
114     | INFO { $$ = LSCPSERVER->SubscribeNotification(event_channel_info); }
115     | MISCELLANEOUS { $$ = LSCPSERVER->SubscribeNotification(event_misc); }
116     ;
117    
118     unsubscribe_event : CHANNELS { $$ = LSCPSERVER->UnsubscribeNotification(event_channels); }
119     | VOICE_COUNT { $$ = LSCPSERVER->UnsubscribeNotification(event_voice_count); }
120     | STREAM_COUNT { $$ = LSCPSERVER->UnsubscribeNotification(event_stream_count); }
121     | BUFFER_FILL { $$ = LSCPSERVER->UnsubscribeNotification(event_channel_buffer_fill); }
122     | INFO { $$ = LSCPSERVER->UnsubscribeNotification(event_channel_info); }
123     | MISCELLANEOUS { $$ = LSCPSERVER->UnsubscribeNotification(event_misc); }
124     ;
125    
126 schoenebeck 123 get_instruction : AVAILABLE_ENGINES { $$ = LSCPSERVER->GetAvailableEngines(); }
127 senkov 155 | AVAILABLE_MIDI_INPUT_DRIVERS { $$ = LSCPSERVER->GetAvailableMidiInputDrivers(); }
128     | MIDI_INPUT_DRIVER SP INFO SP string { $$ = LSCPSERVER->GetMidiInputDriverInfo($5); }
129     | MIDI_INPUT_DRIVER_PARAMETER SP INFO SP string SP string { $$ = LSCPSERVER->GetMidiInputDriverParameterInfo($5, $7); }
130     | MIDI_INPUT_DRIVER_PARAMETER SP INFO SP string SP string SP key_val_list { $$ = LSCPSERVER->GetMidiInputDriverParameterInfo($5, $7, $9); }
131 schoenebeck 123 | AVAILABLE_AUDIO_OUTPUT_DRIVERS { $$ = LSCPSERVER->GetAvailableAudioOutputDrivers(); }
132     | AUDIO_OUTPUT_DRIVER SP INFO SP string { $$ = LSCPSERVER->GetAudioOutputDriverInfo($5); }
133     | AUDIO_OUTPUT_DRIVER_PARAMETER SP INFO SP string SP string { $$ = LSCPSERVER->GetAudioOutputDriverParameterInfo($5, $7); }
134     | AUDIO_OUTPUT_DRIVER_PARAMETER SP INFO SP string SP string SP key_val_list { $$ = LSCPSERVER->GetAudioOutputDriverParameterInfo($5, $7, $9); }
135     | AUDIO_OUTPUT_DEVICES { $$ = LSCPSERVER->GetAudioOutputDeviceCount(); }
136 senkov 155 | MIDI_INPUT_DEVICES { $$ = LSCPSERVER->GetMidiInputDeviceCount(); }
137 schoenebeck 123 | AUDIO_OUTPUT_DEVICE SP INFO SP NUMBER { $$ = LSCPSERVER->GetAudioOutputDeviceInfo($5); }
138 senkov 155 | MIDI_INPUT_DEVICE SP INFO SP NUMBER { $$ = LSCPSERVER->GetMidiInputDeviceInfo($5); }
139     | MIDI_INPUT_PORT SP INFO SP NUMBER SP NUMBER { $$ = LSCPSERVER->GetMidiInputPortInfo($5, $7); }
140 schoenebeck 123 | AUDIO_OUTPUT_CHANNEL SP INFO SP NUMBER SP NUMBER { $$ = LSCPSERVER->GetAudioOutputChannelInfo($5, $7); }
141     | AUDIO_OUTPUT_CHANNEL_PARAMETER SP INFO SP NUMBER SP NUMBER SP string { $$ = LSCPSERVER->GetAudioOutputChannelParameterInfo($5, $7, $9); }
142     | CHANNELS { $$ = LSCPSERVER->GetChannels(); }
143     | CHANNEL SP INFO SP sampler_channel { $$ = LSCPSERVER->GetChannelInfo($5); }
144     | CHANNEL SP BUFFER_FILL SP buffer_size_type SP sampler_channel { $$ = LSCPSERVER->GetBufferFill($5, $7); }
145     | CHANNEL SP STREAM_COUNT SP sampler_channel { $$ = LSCPSERVER->GetStreamCount($5); }
146     | CHANNEL SP VOICE_COUNT SP sampler_channel { $$ = LSCPSERVER->GetVoiceCount($5); }
147     | ENGINE SP INFO SP engine_name { $$ = LSCPSERVER->GetEngineInfo($5); }
148 schoenebeck 35 ;
149    
150 senkov 135 set_instruction : AUDIO_OUTPUT_DEVICE_PARAMETER SP NUMBER SP string EQ param_val { $$ = LSCPSERVER->SetAudioOutputDeviceParameter($3, $5, $7); }
151     | AUDIO_OUTPUT_CHANNEL_PARAMETER SP NUMBER SP NUMBER SP string EQ param_val { $$ = LSCPSERVER->SetAudioOutputChannelParameter($3, $5, $7, $9); }
152 senkov 155 | MIDI_INPUT_DEVICE_PARAMETER SP NUMBER SP string EQ param_val { $$ = LSCPSERVER->SetMidiInputDeviceParameter($3, $5, $7); }
153     | MIDI_INPUT_PORT_PARAMETER SP NUMBER SP NUMBER SP string EQ param_val { $$ = LSCPSERVER->SetMidiInputPortParameter($3, $5, $7, $9); }
154     | CHANNEL SP set_chan_instruction { $$ = $3; }
155 schoenebeck 123 ;
156    
157 senkov 135 create_instruction : AUDIO_OUTPUT_DEVICE SP string SP key_val_list { $$ = LSCPSERVER->CreateAudioOutputDevice($3,$5); }
158 capela 159 | AUDIO_OUTPUT_DEVICE SP string { $$ = LSCPSERVER->CreateAudioOutputDevice($3); }
159     | MIDI_INPUT_DEVICE SP string SP key_val_list { $$ = LSCPSERVER->CreateMidiInputDevice($3,$5); }
160     | MIDI_INPUT_DEVICE SP string { $$ = LSCPSERVER->CreateMidiInputDevice($3); }
161 schoenebeck 123 ;
162    
163     destroy_instruction : AUDIO_OUTPUT_DEVICE SP NUMBER { $$ = LSCPSERVER->DestroyAudioOutputDevice($3); }
164 senkov 155 | MIDI_INPUT_DEVICE SP NUMBER { $$ = LSCPSERVER->DestroyMidiInputDevice($3); }
165 schoenebeck 123 ;
166    
167 schoenebeck 35 load_instruction : INSTRUMENT SP load_instr_args { $$ = $3; }
168     | ENGINE SP load_engine_args { $$ = $3; }
169     ;
170    
171 capela 159 set_chan_instruction : AUDIO_OUTPUT_DEVICE SP sampler_channel SP audio_output_device { $$ = LSCPSERVER->SetAudioOutputDevice($5, $3); }
172 schoenebeck 123 | AUDIO_OUTPUT_CHANNEL SP sampler_channel SP audio_output_channel SP audio_output_channel { $$ = LSCPSERVER->SetAudioOutputChannel($5, $7, $3); }
173 capela 143 | AUDIO_OUTPUT_TYPE SP sampler_channel SP audio_output_type { $$ = LSCPSERVER->SetAudioOutputType($5, $3); }
174 capela 159 | MIDI_INPUT SP sampler_channel SP midi_input_device SP midi_input_port SP midi_input_channel { $$ = LSCPSERVER->SetMIDIInput($5, $7, $9, $3); }
175     | MIDI_INPUT_DEVICE SP sampler_channel SP midi_input_device { $$ = LSCPSERVER->SetMIDIInputDevice($5, $3); }
176     | MIDI_INPUT_PORT SP sampler_channel SP midi_input_port { $$ = LSCPSERVER->SetMIDIInputPort($5, $3); }
177     | MIDI_INPUT_CHANNEL SP sampler_channel SP midi_input_channel { $$ = LSCPSERVER->SetMIDIInputChannel($5, $3); }
178 schoenebeck 123 | MIDI_INPUT_TYPE SP sampler_channel SP midi_input_type { $$ = LSCPSERVER->SetMIDIInputType($5, $3); }
179     | VOLUME SP sampler_channel SP volume { $$ = LSCPSERVER->SetVolume($5, $3); }
180 schoenebeck 35 ;
181    
182 senkov 135 key_val_list : string EQ param_val { $$[$1] = $3; }
183     | key_val_list SP string EQ param_val { $$ = $1; $$[$3] = $5; }
184     ;
185 schoenebeck 123
186 schoenebeck 35 buffer_size_type : BYTES { $$ = fill_response_bytes; }
187     | PERCENTAGE { $$ = fill_response_percentage; }
188     ;
189    
190 schoenebeck 123 list_instruction : AUDIO_OUTPUT_DEVICES { $$ = LSCPSERVER->GetAudioOutputDevices(); }
191 senkov 155 | MIDI_INPUT_DEVICES { $$ = LSCPSERVER->GetMidiInputDevices(); }
192 schoenebeck 123 ;
193    
194 senkov 141 load_instr_args : filename SP instrument_index SP sampler_channel { $$ = LSCPSERVER->LoadInstrument($1, $3, $5); }
195     | NON_MODAL SP filename SP instrument_index SP sampler_channel { $$ = LSCPSERVER->LoadInstrument($3, $5, $7, true); }
196 schoenebeck 35 ;
197    
198     load_engine_args : engine_name SP sampler_channel { $$ = LSCPSERVER->LoadEngine($1, $3); }
199     ;
200    
201 capela 159 audio_output_device : NUMBER
202     ;
203    
204     audio_output_channel : NUMBER
205     ;
206    
207 capela 143 audio_output_type : string
208     ;
209    
210 senkov 155 midi_input_device : NUMBER
211     ;
212    
213     midi_input_port : NUMBER
214     ;
215    
216     midi_input_channel : NUMBER
217     ;
218    
219 schoenebeck 123 midi_input_type : string
220 schoenebeck 35 ;
221    
222     volume : DOTNUM
223     | NUMBER { $$ = $1; }
224     ;
225    
226     sampler_channel : NUMBER
227     ;
228    
229     instrument_index : NUMBER
230     ;
231    
232     engine_name : string
233     ;
234    
235 senkov 135 filename : STRINGVAL
236 schoenebeck 35 ;
237    
238 senkov 135 param_val : STRINGVAL { $$ = $1; }
239 schoenebeck 35 | NUMBER { std::stringstream ss; ss << $1; $$ = ss.str(); }
240 senkov 135 | DOTNUM { std::stringstream ss; ss << $1; $$ = ss.str(); }
241 schoenebeck 35 ;
242    
243     string : CHAR { std::string s; s = $1; $$ = s; }
244     | string CHAR { $$ = $1 + $2; }
245     ;
246    
247     %%
248    
249     /**
250     * Will be called when an error occured (usually syntax error).
251     */
252     void yyerror(const char* s) {
253     dmsg(2,("LSCPParser: %s\n", s));
254     }
255    
256     /**
257     * Clears input buffer and restarts scanner.
258     */
259     void restart(yyparse_param_t* pparam, int& yychar) {
260     // restart scanner
261     yyrestart(stdin, pparam->pScanner);
262     // flush input buffer
263     static char buf[1024];
264     while(recv(hSession, buf, 1024, MSG_DONTWAIT) > 0);
265     // reset lookahead symbol
266     yyclearin;
267     }

  ViewVC Help
Powered by ViewVC