/[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 209 - (hide annotations) (download)
Sun Jul 18 00:29:39 2004 UTC (19 years, 8 months ago) by schoenebeck
File size: 17399 byte(s)
* src/Sampler.cpp: changed sampler channel index allocation from consistent
channel index allocation to incrementing channel index allocation, that is
it doesn't fill channel index gaps anymore (to avoid race conditions)
* implemented "LIST CHANNELS" LSCP command

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 senkov 170 #include "lscpevent.h"
28 schoenebeck 35
29     // as we need an reentrant scanner, we have to pass the pointer to the scanner with each yylex() call
30     #define YYLEX_PARAM ((yyparse_param_t*) yyparse_param)->pScanner
31    
32     // to save us typing work in the rules action definitions
33     #define LSCPSERVER ((yyparse_param_t*) yyparse_param)->pServer
34    
35     // clears input buffer and restarts scanner.
36     void restart(yyparse_param_t* pparam, int& yychar);
37     #define RESTART restart((yyparse_param_t*) YYPARSE_PARAM, yychar)
38    
39     // external reference to the main scanner function yylex()
40     extern YY_DECL;
41    
42     // external reference to restart the lex scanner
43     extern void yyrestart(FILE* input_file, yyscan_t yyscanner);
44    
45     // we provide our own version of yyerror() so we don't have to link against the yacc library
46     void yyerror(const char* s);
47    
48     %}
49    
50     // reentrant parser
51     %pure_parser
52    
53     %token <Char> CHAR
54     %token <Dotnum> DOTNUM
55     %token <Number> NUMBER
56 senkov 135 %token <String> STRINGVAL
57 schoenebeck 123 %token SP LF CR HASH EQ
58 senkov 141 %token ADD GET CREATE DESTROY LIST LOAD NON_MODAL REMOVE SET SUBSCRIBE UNSUBSCRIBE RESET QUIT
59 schoenebeck 35 %token CHANNEL NOTIFICATION
60 schoenebeck 123 %token AVAILABLE_ENGINES AVAILABLE_AUDIO_OUTPUT_DRIVERS CHANNELS INFO BUFFER_FILL STREAM_COUNT VOICE_COUNT
61 schoenebeck 35 %token INSTRUMENT ENGINE
62 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
63     %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
64 schoenebeck 35 %token BYTES PERCENTAGE
65 senkov 135 %token MISCELLANEOUS
66 schoenebeck 35
67     %type <Dotnum> volume
68 capela 159 %type <Number> sampler_channel instrument_index audio_output_channel audio_output_device midi_input_channel midi_input_port midi_input_device
69 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
70 schoenebeck 35 %type <FillResponse> buffer_size_type
71 schoenebeck 123 %type <KeyValList> key_val_list
72 schoenebeck 35
73     %start input
74    
75     %%
76    
77     //TODO: return more meaningful error messages
78    
79 senkov 170 input : line LF
80 schoenebeck 35
81 senkov 170 line : /* epsilon (empty line ignored) */ { return LSCP_DONE; }
82     | comment { return LSCP_DONE; }
83     | command { LSCPSERVER->AnswerClient($1); return LSCP_DONE; }
84 schoenebeck 35 | error { LSCPSERVER->AnswerClient("Err:0:Unknown command.\r\n"); RESTART; return LSCP_SYNTAX_ERROR; }
85     ;
86    
87 schoenebeck 111 comment : HASH
88     | comment HASH
89     | comment SP
90     | comment NUMBER
91     | comment string
92     ;
93    
94 schoenebeck 35 command : ADD SP CHANNEL { $$ = LSCPSERVER->AddChannel(); }
95     | GET SP get_instruction { $$ = $3; }
96 schoenebeck 123 | CREATE SP create_instruction { $$ = $3; }
97     | DESTROY SP destroy_instruction { $$ = $3; }
98     | LIST SP list_instruction { $$ = $3; }
99 senkov 141 | LOAD SP load_instruction { $$ = $3; }
100 schoenebeck 35 | REMOVE SP CHANNEL SP sampler_channel { $$ = LSCPSERVER->RemoveChannel($5); }
101 schoenebeck 123 | SET SP set_instruction { $$ = $3; }
102 senkov 135 | SUBSCRIBE SP subscribe_event { $$ = $3; }
103     | UNSUBSCRIBE SP unsubscribe_event { $$ = $3; }
104 schoenebeck 35 | RESET SP CHANNEL SP sampler_channel { $$ = LSCPSERVER->ResetChannel($5); }
105 senkov 170 | QUIT { LSCPSERVER->AnswerClient("Bye!\r\n"); return LSCP_QUIT; }
106 schoenebeck 35 ;
107    
108 senkov 170 subscribe_event : CHANNELS { $$ = LSCPSERVER->SubscribeNotification(LSCPEvent::event_channels); }
109     | VOICE_COUNT { $$ = LSCPSERVER->SubscribeNotification(LSCPEvent::event_voice_count); }
110     | STREAM_COUNT { $$ = LSCPSERVER->SubscribeNotification(LSCPEvent::event_stream_count); }
111     | BUFFER_FILL { $$ = LSCPSERVER->SubscribeNotification(LSCPEvent::event_buffer_fill); }
112     | INFO { $$ = LSCPSERVER->SubscribeNotification(LSCPEvent::event_info); }
113     | MISCELLANEOUS { $$ = LSCPSERVER->SubscribeNotification(LSCPEvent::event_misc); }
114 senkov 135 ;
115    
116 senkov 170 unsubscribe_event : CHANNELS { $$ = LSCPSERVER->UnsubscribeNotification(LSCPEvent::event_channels); }
117     | VOICE_COUNT { $$ = LSCPSERVER->UnsubscribeNotification(LSCPEvent::event_voice_count); }
118     | STREAM_COUNT { $$ = LSCPSERVER->UnsubscribeNotification(LSCPEvent::event_stream_count); }
119     | BUFFER_FILL { $$ = LSCPSERVER->UnsubscribeNotification(LSCPEvent::event_buffer_fill); }
120     | INFO { $$ = LSCPSERVER->UnsubscribeNotification(LSCPEvent::event_info); }
121     | MISCELLANEOUS { $$ = LSCPSERVER->UnsubscribeNotification(LSCPEvent::event_misc); }
122 senkov 135 ;
123    
124 senkov 170 get_instruction : AVAILABLE_ENGINES { $$ = LSCPSERVER->GetAvailableEngines(); }
125     | AVAILABLE_MIDI_INPUT_DRIVERS { $$ = LSCPSERVER->GetAvailableMidiInputDrivers(); }
126     | MIDI_INPUT_DRIVER SP INFO SP string { $$ = LSCPSERVER->GetMidiInputDriverInfo($5); }
127     | MIDI_INPUT_DRIVER_PARAMETER SP INFO SP string SP string { $$ = LSCPSERVER->GetMidiInputDriverParameterInfo($5, $7); }
128     | MIDI_INPUT_DRIVER_PARAMETER SP INFO SP string SP string SP key_val_list { $$ = LSCPSERVER->GetMidiInputDriverParameterInfo($5, $7, $9); }
129     | AVAILABLE_AUDIO_OUTPUT_DRIVERS { $$ = LSCPSERVER->GetAvailableAudioOutputDrivers(); }
130     | AUDIO_OUTPUT_DRIVER SP INFO SP string { $$ = LSCPSERVER->GetAudioOutputDriverInfo($5); }
131     | AUDIO_OUTPUT_DRIVER_PARAMETER SP INFO SP string SP string { $$ = LSCPSERVER->GetAudioOutputDriverParameterInfo($5, $7); }
132     | AUDIO_OUTPUT_DRIVER_PARAMETER SP INFO SP string SP string SP key_val_list { $$ = LSCPSERVER->GetAudioOutputDriverParameterInfo($5, $7, $9); }
133     | AUDIO_OUTPUT_DEVICES { $$ = LSCPSERVER->GetAudioOutputDeviceCount(); }
134     | MIDI_INPUT_DEVICES { $$ = LSCPSERVER->GetMidiInputDeviceCount(); }
135     | AUDIO_OUTPUT_DEVICE SP INFO SP NUMBER { $$ = LSCPSERVER->GetAudioOutputDeviceInfo($5); }
136     | MIDI_INPUT_DEVICE SP INFO SP NUMBER { $$ = LSCPSERVER->GetMidiInputDeviceInfo($5); }
137     | MIDI_INPUT_PORT SP INFO SP NUMBER SP NUMBER { $$ = LSCPSERVER->GetMidiInputPortInfo($5, $7); }
138 senkov 185 | MIDI_INPUT_PORT_PARAMETER SP INFO SP NUMBER SP NUMBER SP string { $$ = LSCPSERVER->GetMidiInputPortParameterInfo($5, $7, $9); }
139 senkov 170 | AUDIO_OUTPUT_CHANNEL SP INFO SP NUMBER SP NUMBER { $$ = LSCPSERVER->GetAudioOutputChannelInfo($5, $7); }
140     | AUDIO_OUTPUT_CHANNEL_PARAMETER SP INFO SP NUMBER SP NUMBER SP string { $$ = LSCPSERVER->GetAudioOutputChannelParameterInfo($5, $7, $9); }
141     | CHANNELS { $$ = LSCPSERVER->GetChannels(); }
142     | CHANNEL SP INFO SP sampler_channel { $$ = LSCPSERVER->GetChannelInfo($5); }
143     | CHANNEL SP BUFFER_FILL SP buffer_size_type SP sampler_channel { $$ = LSCPSERVER->GetBufferFill($5, $7); }
144     | CHANNEL SP STREAM_COUNT SP sampler_channel { $$ = LSCPSERVER->GetStreamCount($5); }
145     | CHANNEL SP VOICE_COUNT SP sampler_channel { $$ = LSCPSERVER->GetVoiceCount($5); }
146     | ENGINE SP INFO SP engine_name { $$ = LSCPSERVER->GetEngineInfo($5); }
147 schoenebeck 35 ;
148    
149 senkov 170 set_instruction : AUDIO_OUTPUT_DEVICE_PARAMETER SP NUMBER SP string EQ param_val { $$ = LSCPSERVER->SetAudioOutputDeviceParameter($3, $5, $7); }
150     | AUDIO_OUTPUT_CHANNEL_PARAMETER SP NUMBER SP NUMBER SP string EQ param_val { $$ = LSCPSERVER->SetAudioOutputChannelParameter($3, $5, $7, $9); }
151     | MIDI_INPUT_DEVICE_PARAMETER SP NUMBER SP string EQ param_val { $$ = LSCPSERVER->SetMidiInputDeviceParameter($3, $5, $7); }
152     | MIDI_INPUT_PORT_PARAMETER SP NUMBER SP NUMBER SP string EQ param_val { $$ = LSCPSERVER->SetMidiInputPortParameter($3, $5, $7, $9); }
153 senkov 155 | CHANNEL SP set_chan_instruction { $$ = $3; }
154 schoenebeck 123 ;
155    
156 senkov 135 create_instruction : AUDIO_OUTPUT_DEVICE SP string SP key_val_list { $$ = LSCPSERVER->CreateAudioOutputDevice($3,$5); }
157 capela 159 | AUDIO_OUTPUT_DEVICE SP string { $$ = LSCPSERVER->CreateAudioOutputDevice($3); }
158     | MIDI_INPUT_DEVICE SP string SP key_val_list { $$ = LSCPSERVER->CreateMidiInputDevice($3,$5); }
159     | MIDI_INPUT_DEVICE SP string { $$ = LSCPSERVER->CreateMidiInputDevice($3); }
160 schoenebeck 123 ;
161    
162 senkov 170 destroy_instruction : AUDIO_OUTPUT_DEVICE SP NUMBER { $$ = LSCPSERVER->DestroyAudioOutputDevice($3); }
163     | MIDI_INPUT_DEVICE SP NUMBER { $$ = LSCPSERVER->DestroyMidiInputDevice($3); }
164 schoenebeck 123 ;
165    
166 schoenebeck 35 load_instruction : INSTRUMENT SP load_instr_args { $$ = $3; }
167     | ENGINE SP load_engine_args { $$ = $3; }
168     ;
169    
170 capela 159 set_chan_instruction : AUDIO_OUTPUT_DEVICE SP sampler_channel SP audio_output_device { $$ = LSCPSERVER->SetAudioOutputDevice($5, $3); }
171 schoenebeck 123 | AUDIO_OUTPUT_CHANNEL SP sampler_channel SP audio_output_channel SP audio_output_channel { $$ = LSCPSERVER->SetAudioOutputChannel($5, $7, $3); }
172 capela 143 | AUDIO_OUTPUT_TYPE SP sampler_channel SP audio_output_type { $$ = LSCPSERVER->SetAudioOutputType($5, $3); }
173 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); }
174     | MIDI_INPUT_DEVICE SP sampler_channel SP midi_input_device { $$ = LSCPSERVER->SetMIDIInputDevice($5, $3); }
175     | MIDI_INPUT_PORT SP sampler_channel SP midi_input_port { $$ = LSCPSERVER->SetMIDIInputPort($5, $3); }
176     | MIDI_INPUT_CHANNEL SP sampler_channel SP midi_input_channel { $$ = LSCPSERVER->SetMIDIInputChannel($5, $3); }
177 schoenebeck 123 | MIDI_INPUT_TYPE SP sampler_channel SP midi_input_type { $$ = LSCPSERVER->SetMIDIInputType($5, $3); }
178     | VOLUME SP sampler_channel SP volume { $$ = LSCPSERVER->SetVolume($5, $3); }
179 schoenebeck 35 ;
180    
181 senkov 135 key_val_list : string EQ param_val { $$[$1] = $3; }
182     | key_val_list SP string EQ param_val { $$ = $1; $$[$3] = $5; }
183     ;
184 schoenebeck 123
185 schoenebeck 35 buffer_size_type : BYTES { $$ = fill_response_bytes; }
186     | PERCENTAGE { $$ = fill_response_percentage; }
187     ;
188    
189 schoenebeck 209 list_instruction : AUDIO_OUTPUT_DEVICES { $$ = LSCPSERVER->GetAudioOutputDevices(); }
190     | MIDI_INPUT_DEVICES { $$ = LSCPSERVER->GetMidiInputDevices(); }
191     | CHANNELS { $$ = LSCPSERVER->ListChannels(); }
192 schoenebeck 123 ;
193    
194 senkov 170 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 senkov 170 load_engine_args : engine_name SP sampler_channel { $$ = LSCPSERVER->LoadEngine($1, $3); }
199 schoenebeck 35 ;
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     // reset lookahead symbol
263     yyclearin;
264     }

  ViewVC Help
Powered by ViewVC