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

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

Parent Directory | Revision Log | View Patch Patch

-revision 1695 by schoenebeck,
Sat Feb 16 01:09:33 2008 UTC
+revision 2510 by schoenebeck,
Thu Jan 23 04:00:26 2014 UTC
 Line 3
   *   LinuxSampler - modular, streaming capable sampler                     *
   *                                                                         *
   *   Copyright (C) 2003, 2004 by Benno Senoner and Christian Schoenebeck   *
-  *   Copyright (C) 2005 - 2008 Christian Schoenebeck                       *
+  *   Copyright (C) 2005 - 2014 Christian Schoenebeck                       *
   *                                                                         *
   *   This program is free software; you can redistribute it and/or modify  *
   *   it under the terms of the GNU General Public License as published by  *
 Line 34
  #include "lscpparser.h"
  #include "lscpserver.h"
  #include "lscpevent.h"
+ #include "lscpsymbols.h"
+ #include <algorithm>
+ namespace LinuxSampler {
  // to save us typing work in the rules action definitions
  #define LSCPSERVER ((yyparse_param_t*) yyparse_param)->pServer
  #define SESSION_PARAM ((yyparse_param_t*) yyparse_param)
- #define INCREMENT_LINE { SESSION_PARAM->iLine++; SESSION_PARAM->iColumn = 0; }
+ #define INCREMENT_LINE { SESSION_PARAM->iLine++; SESSION_PARAM->iColumn = 0; sParsed.clear(); }
  // clears input buffer
  void restart(yyparse_param_t* pparam, int& yychar);
  #define RESTART restart((yyparse_param_t*) YYPARSE_PARAM, yychar)
- // we provide our own version of yyerror() so we don't have to link against the yacc library
- void yyerror(const char* s);
  static char buf[1024]; // input buffer to feed the parser with new characters
  static int bytes = 0;  // current number of characters in the input buffer
  static int ptr   = 0;  // current position in the input buffer
  static String sLastError; // error message of the last error occured
+ static String sParsed; ///< Characters of current line which have already been shifted (consumed/parsed) by the parser.
  // external reference to the function which actually reads from the socket
  extern int GetLSCPCommand( void *buf, int max_size);
-Line 81 
 int yylex(YYSTYPE* yylval) {
+Line 83 
 int yylex(YYSTYPE* yylval) {
      const char c = buf[ptr++];
      // increment current reading position (just for verbosity / messages)
      GetCurrentYaccSession()->iColumn++;
+     sParsed += c;
      // we have to handle "normal" and "extended" ASCII characters separately
      if (isExtendedAsciiChar(c)) {
          // workaround for characters with ASCII code higher than 127
-Line 101 
 int octalsToNumber(char oct_digit0, char
+Line 104 
 int octalsToNumber(char oct_digit0, char
      return atoi(d2)*8*8 + atoi(d1)*8 + atoi(d0);
  }
+ }
+ using namespace LinuxSampler;
+ static std::set<String> yyExpectedSymbols();
+ /**
+  * Will be called when an error occured (usually syntax error).
+  *
+  * We provide our own version of yyerror() so we a) don't have to link against
+  * the yacc library and b) can render more helpful syntax error messages.
+  */
+ void yyerror(void* x, const char* s) {
+     yyparse_param_t* param = GetCurrentYaccSession();
+     // get the text part already parsed (of current line)
+     const bool bContainsLineFeed =
+         sParsed.find('\r') != std::string::npos ||
+         sParsed.find('\n') != std::string::npos;
+     // remove potential line feed characters
+     if (bContainsLineFeed) {
+         for (size_t p = sParsed.find('\r'); p != std::string::npos;
+              p = sParsed.find('\r')) sParsed.erase(p);
+         for (size_t p = sParsed.find('\n'); p != std::string::npos;
+              p = sParsed.find('\n')) sParsed.erase(p);
+     }
+     // start assembling the error message with Bison's own message
+     String txt = s;
+     // append exact position info of syntax error
+     txt += (" (line:"  + ToString(param->iLine+1)) +
+            (",column:" + ToString(param->iColumn)) + ")";
+     // append the part of the lined that has already been parsed
+     txt += ". Context: \"" + sParsed;
+     if (txt.empty() || bContainsLineFeed)
+         txt += "^";
+     else
+         txt.insert(txt.size() - 1, "^");
+     txt += "...\"";
+     // append the non-terminal symbols expected now/next
+     std::set<String> expectedSymbols = yyExpectedSymbols();
+     for (std::set<String>::const_iterator it = expectedSymbols.begin();
+          it != expectedSymbols.end(); ++it)
+     {
+         if (it == expectedSymbols.begin())
+             txt += " -> Should be: " + *it;
+         else
+             txt += " | " + *it;
+     }
+     dmsg(2,("LSCPParser: %s\n", txt.c_str()));
+     sLastError = txt;
+ }
  %}
  // reentrant parser
- %pure_parser
+ %pure-parser
+ %parse-param {void* yyparse_param}
+ // After entering the yyparse() function, store references to the parser's
+ // state stack, so that we can create more helpful syntax error messages than
+ // Bison (2.x) could do.
+ %initial-action {
+     yyparse_param_t* p = (yyparse_param_t*) yyparse_param;
+     p->ppStackBottom = &yyss;
+     p->ppStackTop    = &yyssp;
+ }
  // tell bison to spit out verbose syntax error messages
  %error-verbose
-Line 112 
 int octalsToNumber(char oct_digit0, char
+Line 183 
 int octalsToNumber(char oct_digit0, char
  %token <Char> EXT_ASCII_CHAR
  %type <Char> char char_base alpha_char digit digit_oct digit_hex escape_seq escape_seq_octal escape_seq_hex
- %type <Dotnum> dotnum volume_value boolean
+ %type <Dotnum> real dotnum volume_value boolean control_value
- %type <Number> number sampler_channel instrument_index fx_send_id audio_channel_index device_index midi_input_channel_index midi_input_port_index midi_map midi_bank midi_prog midi_ctrl
+ %type <Number> number sampler_channel instrument_index fx_send_id audio_channel_index device_index effect_index effect_instance effect_chain chain_pos input_control midi_input_channel_index midi_input_port_index midi_map midi_bank midi_prog midi_ctrl
- %type <String> string string_escaped text text_escaped text_escaped_base stringval stringval_escaped digits param_val_list param_val query_val filename db_path map_name entry_name fx_send_name engine_name command add_instruction create_instruction destroy_instruction get_instruction list_instruction load_instruction set_chan_instruction load_instr_args load_engine_args audio_output_type_name midi_input_type_name remove_instruction unmap_instruction set_instruction subscribe_event unsubscribe_event map_instruction reset_instruction clear_instruction find_instruction move_instruction copy_instruction scan_mode edit_instruction format_instruction
+ %type <String> string string_escaped text text_escaped text_escaped_base stringval stringval_escaped digits param_val_list param_val query_val filename module effect_system db_path map_name entry_name fx_send_name effect_name engine_name command add_instruction create_instruction destroy_instruction get_instruction list_instruction load_instruction send_instruction set_chan_instruction load_instr_args load_engine_args audio_output_type_name midi_input_type_name remove_instruction unmap_instruction set_instruction subscribe_event unsubscribe_event map_instruction reset_instruction clear_instruction find_instruction move_instruction copy_instruction scan_mode edit_instruction format_instruction append_instruction insert_instruction
  %type <FillResponse> buffer_size_type
  %type <KeyValList> key_val_list query_val_list
  %type <LoadMode> instr_load_mode
-Line 172 
 command               :  ADD SP add_inst
+Line 243 
 command               :  ADD SP add_inst
                        |  COPY SP copy_instruction              { $$ = $3;                                                }
                        |  EDIT SP edit_instruction              { $$ = $3;                                                }
                        |  FORMAT SP format_instruction          { $$ = $3;                                                }
+                       |  SEND SP send_instruction              { $$ = $3;                                                }
+                       |  APPEND SP append_instruction          { $$ = $3;                                                }
+                       |  INSERT SP insert_instruction          { $$ = $3;                                                }
                        |  RESET                                 { $$ = LSCPSERVER->ResetSampler();                        }
                        |  QUIT                                  { LSCPSERVER->AnswerClient("Bye!\r\n"); return LSCP_QUIT; }
                        ;
  add_instruction       :  CHANNEL                               { $$ = LSCPSERVER->AddChannel();                  }
+                       |  CHANNEL SP MIDI_INPUT SP sampler_channel SP device_index                           { $$ = LSCPSERVER->AddChannelMidiInput($5,$7);    }
+                       |  CHANNEL SP MIDI_INPUT SP sampler_channel SP device_index SP midi_input_port_index  { $$ = LSCPSERVER->AddChannelMidiInput($5,$7,$9); }
                        |  DB_INSTRUMENT_DIRECTORY SP db_path    { $$ = LSCPSERVER->AddDbInstrumentDirectory($3);  }
-                       |  DB_INSTRUMENTS SP NON_MODAL SP scan_mode SP db_path SP filename         { $$ = LSCPSERVER->AddDbInstruments($5,$7,$9, true);  }
+                       |  DB_INSTRUMENTS SP NON_MODAL SP scan_mode SP db_path SP filename                        { $$ = LSCPSERVER->AddDbInstruments($5,$7,$9, true);        }
-                       |  DB_INSTRUMENTS SP scan_mode SP db_path SP filename                      { $$ = LSCPSERVER->AddDbInstruments($3,$5,$7);        }
+                       |  DB_INSTRUMENTS SP NON_MODAL SP scan_mode SP FILE_AS_DIR SP db_path SP filename         { $$ = LSCPSERVER->AddDbInstruments($5,$9,$11, true, true); }
-                       |  DB_INSTRUMENTS SP NON_MODAL SP db_path SP filename                      { $$ = LSCPSERVER->AddDbInstruments($5,$7, -1, true); }
+                       |  DB_INSTRUMENTS SP scan_mode SP db_path SP filename                                     { $$ = LSCPSERVER->AddDbInstruments($3,$5,$7);              }
-                       |  DB_INSTRUMENTS SP NON_MODAL SP db_path SP filename SP instrument_index  { $$ = LSCPSERVER->AddDbInstruments($5,$7,$9, true);  }
+                       |  DB_INSTRUMENTS SP scan_mode SP FILE_AS_DIR SP db_path SP filename                      { $$ = LSCPSERVER->AddDbInstruments($3,$7,$9, false, true); }
-                       |  DB_INSTRUMENTS SP db_path SP filename                                   { $$ = LSCPSERVER->AddDbInstruments($3,$5);           }
+                       |  DB_INSTRUMENTS SP NON_MODAL SP db_path SP filename                                     { $$ = LSCPSERVER->AddDbInstruments($5,$7, -1, true);       }
-                       |  DB_INSTRUMENTS SP db_path SP filename SP instrument_index               { $$ = LSCPSERVER->AddDbInstruments($3,$5,$7);        }
+                       |  DB_INSTRUMENTS SP NON_MODAL SP db_path SP filename SP instrument_index                 { $$ = LSCPSERVER->AddDbInstruments($5,$7,$9, true);        }
+                       |  DB_INSTRUMENTS SP db_path SP filename                                                  { $$ = LSCPSERVER->AddDbInstruments($3,$5);                 }
+                       |  DB_INSTRUMENTS SP db_path SP filename SP instrument_index                              { $$ = LSCPSERVER->AddDbInstruments($3,$5,$7);              }
                        |  MIDI_INSTRUMENT_MAP                   { $$ = LSCPSERVER->AddMidiInstrumentMap();                }
                        |  MIDI_INSTRUMENT_MAP SP map_name       { $$ = LSCPSERVER->AddMidiInstrumentMap($3);              }
+                       |  SEND_EFFECT_CHAIN SP device_index     { $$ = LSCPSERVER->AddSendEffectChain($3);                }
                        ;
  subscribe_event       :  AUDIO_OUTPUT_DEVICE_COUNT             { $$ = LSCPSERVER->SubscribeNotification(LSCPEvent::event_audio_device_count);   }
-Line 214 
 subscribe_event       :  AUDIO_OUTPUT_DE
+Line 293 
 subscribe_event       :  AUDIO_OUTPUT_DE
                        |  TOTAL_STREAM_COUNT                    { $$ = LSCPSERVER->SubscribeNotification(LSCPEvent::event_total_stream_count);   }
                        |  TOTAL_VOICE_COUNT                     { $$ = LSCPSERVER->SubscribeNotification(LSCPEvent::event_total_voice_count);    }
                        |  GLOBAL_INFO                           { $$ = LSCPSERVER->SubscribeNotification(LSCPEvent::event_global_info);          }
+                       |  EFFECT_INSTANCE_COUNT                 { $$ = LSCPSERVER->SubscribeNotification(LSCPEvent::event_fx_instance_count);    }
+                       |  EFFECT_INSTANCE_INFO                  { $$ = LSCPSERVER->SubscribeNotification(LSCPEvent::event_fx_instance_info);     }
+                       |  SEND_EFFECT_CHAIN_COUNT               { $$ = LSCPSERVER->SubscribeNotification(LSCPEvent::event_send_fx_chain_count);  }
+                       |  SEND_EFFECT_CHAIN_INFO                { $$ = LSCPSERVER->SubscribeNotification(LSCPEvent::event_send_fx_chain_info);   }
                        ;
  unsubscribe_event     :  AUDIO_OUTPUT_DEVICE_COUNT             { $$ = LSCPSERVER->UnsubscribeNotification(LSCPEvent::event_audio_device_count);   }
-Line 242 
 unsubscribe_event     :  AUDIO_OUTPUT_DE
+Line 325 
 unsubscribe_event     :  AUDIO_OUTPUT_DE
                        |  TOTAL_STREAM_COUNT                    { $$ = LSCPSERVER->UnsubscribeNotification(LSCPEvent::event_total_stream_count);   }
                        |  TOTAL_VOICE_COUNT                     { $$ = LSCPSERVER->UnsubscribeNotification(LSCPEvent::event_total_voice_count);    }
                        |  GLOBAL_INFO                           { $$ = LSCPSERVER->UnsubscribeNotification(LSCPEvent::event_global_info);          }
+                       |  EFFECT_INSTANCE_COUNT                 { $$ = LSCPSERVER->UnsubscribeNotification(LSCPEvent::event_fx_instance_count);    }
+                       |  EFFECT_INSTANCE_INFO                  { $$ = LSCPSERVER->UnsubscribeNotification(LSCPEvent::event_fx_instance_info);     }
+                       |  SEND_EFFECT_CHAIN_COUNT               { $$ = LSCPSERVER->UnsubscribeNotification(LSCPEvent::event_send_fx_chain_count);  }
+                       |  SEND_EFFECT_CHAIN_INFO                { $$ = LSCPSERVER->UnsubscribeNotification(LSCPEvent::event_send_fx_chain_info);   }
                        ;
  map_instruction       :  MIDI_INSTRUMENT SP modal_arg midi_map SP midi_bank SP midi_prog SP engine_name SP filename SP instrument_index SP volume_value { $$ = LSCPSERVER->AddOrReplaceMIDIInstrumentMapping($4,$6,$8,$10,$12,$14,$16,MidiInstrumentMapper::DONTCARE,"",$3); }
-Line 254 
 unmap_instruction     :  MIDI_INSTRUMENT
+Line 341 
 unmap_instruction     :  MIDI_INSTRUMENT
                        ;
  remove_instruction    :  CHANNEL SP sampler_channel                   { $$ = LSCPSERVER->RemoveChannel($3);                      }
+                       |  CHANNEL SP MIDI_INPUT SP sampler_channel                                           { $$ = LSCPSERVER->RemoveChannelMidiInput($5);       }
+                       |  CHANNEL SP MIDI_INPUT SP sampler_channel SP device_index                           { $$ = LSCPSERVER->RemoveChannelMidiInput($5,$7);    }
+                       |  CHANNEL SP MIDI_INPUT SP sampler_channel SP device_index SP midi_input_port_index  { $$ = LSCPSERVER->RemoveChannelMidiInput($5,$7,$9); }
                        |  MIDI_INSTRUMENT_MAP SP midi_map              { $$ = LSCPSERVER->RemoveMidiInstrumentMap($3);            }
                        |  MIDI_INSTRUMENT_MAP SP ALL                   { $$ = LSCPSERVER->RemoveAllMidiInstrumentMaps();          }
+                       |  SEND_EFFECT_CHAIN SP device_index SP effect_chain  { $$ = LSCPSERVER->RemoveSendEffectChain($3,$5);     }
+                       |  SEND_EFFECT_CHAIN SP EFFECT SP device_index SP effect_chain SP chain_pos  { $$ = LSCPSERVER->RemoveSendEffectChainEffect($5,$7,$9); }
+                       |  FX_SEND SP EFFECT SP sampler_channel SP fx_send_id  { $$ = LSCPSERVER->SetFxSendEffect($5,$7,-1,-1);    }
                        |  DB_INSTRUMENT_DIRECTORY SP FORCE SP db_path  { $$ = LSCPSERVER->RemoveDbInstrumentDirectory($5, true);  }
                        |  DB_INSTRUMENT_DIRECTORY SP db_path           { $$ = LSCPSERVER->RemoveDbInstrumentDirectory($3);        }
                        |  DB_INSTRUMENT SP db_path                     { $$ = LSCPSERVER->RemoveDbInstrument($3);                 }
                        ;
  get_instruction       :  AVAILABLE_ENGINES                                                          { $$ = LSCPSERVER->GetAvailableEngines();                          }
+                       |  AVAILABLE_EFFECTS                                                          { $$ = LSCPSERVER->GetAvailableEffects();                          }
+                       |  EFFECT_INSTANCES                                                           { $$ = LSCPSERVER->GetEffectInstances();                           }
+                       |  EFFECT SP INFO SP effect_index                                             { $$ = LSCPSERVER->GetEffectInfo($5);                              }
+                       |  EFFECT_INSTANCE SP INFO SP effect_instance                                 { $$ = LSCPSERVER->GetEffectInstanceInfo($5);                      }
+                       |  EFFECT_INSTANCE_INPUT_CONTROL SP INFO SP effect_instance SP input_control  { $$ = LSCPSERVER->GetEffectInstanceInputControlInfo($5,$7);       }
+                       |  SEND_EFFECT_CHAINS SP device_index                                         { $$ = LSCPSERVER->GetSendEffectChains($3);                        }
+                       |  SEND_EFFECT_CHAIN SP INFO SP device_index SP effect_chain                  { $$ = LSCPSERVER->GetSendEffectChainInfo($5,$7);                  }
                        |  AVAILABLE_MIDI_INPUT_DRIVERS                                               { $$ = LSCPSERVER->GetAvailableMidiInputDrivers();                 }
                        |  MIDI_INPUT_DRIVER SP INFO SP string                                        { $$ = LSCPSERVER->GetMidiInputDriverInfo($5);                     }
                        |  MIDI_INPUT_DRIVER_PARAMETER SP INFO SP string SP string                    { $$ = LSCPSERVER->GetMidiInputDriverParameterInfo($5, $7);        }
-Line 303 
 get_instruction       :  AVAILABLE_ENGIN
+Line 403 
 get_instruction       :  AVAILABLE_ENGIN
                        |  DB_INSTRUMENT SP INFO SP db_path                                           { $$ = LSCPSERVER->GetDbInstrumentInfo($5);                        }
                        |  DB_INSTRUMENTS_JOB SP INFO SP number                                       { $$ = LSCPSERVER->GetDbInstrumentsJobInfo($5);                    }
                        |  VOLUME                                                                     { $$ = LSCPSERVER->GetGlobalVolume();                              }
+                       |  VOICES                                                                     { $$ = LSCPSERVER->GetGlobalMaxVoices();                           }
+                       |  STREAMS                                                                    { $$ = LSCPSERVER->GetGlobalMaxStreams();                          }
                        |  FILE SP INSTRUMENTS SP filename                                            { $$ = LSCPSERVER->GetFileInstruments($5);                         }
                        |  FILE SP INSTRUMENT SP INFO SP filename SP instrument_index                 { $$ = LSCPSERVER->GetFileInstrumentInfo($7,$9);                   }
                        ;
-Line 312 
 set_instruction       :  AUDIO_OUTPUT_DE
+Line 414 
 set_instruction       :  AUDIO_OUTPUT_DE
                        |  MIDI_INPUT_DEVICE_PARAMETER SP number SP string '=' param_val_list               { $$ = LSCPSERVER->SetMidiInputDeviceParameter($3, $5, $7);        }
                        |  MIDI_INPUT_PORT_PARAMETER SP number SP number SP string '=' NONE                 { $$ = LSCPSERVER->SetMidiInputPortParameter($3, $5, $7, "");      }
                        |  MIDI_INPUT_PORT_PARAMETER SP number SP number SP string '=' param_val_list       { $$ = LSCPSERVER->SetMidiInputPortParameter($3, $5, $7, $9);      }
+                       |  EFFECT_INSTANCE_INPUT_CONTROL SP VALUE SP effect_instance SP input_control SP control_value  { $$ = LSCPSERVER->SetEffectInstanceInputControlValue($5, $7, $9); }
                        |  CHANNEL SP set_chan_instruction                                                  { $$ = $3;                                                         }
                        |  MIDI_INSTRUMENT_MAP SP NAME SP midi_map SP map_name                              { $$ = LSCPSERVER->SetMidiInstrumentMapName($5, $7);               }
                        |  FX_SEND SP NAME SP sampler_channel SP fx_send_id SP fx_send_name                 { $$ = LSCPSERVER->SetFxSendName($5,$7,$9);                        }
                        |  FX_SEND SP AUDIO_OUTPUT_CHANNEL SP sampler_channel SP fx_send_id SP audio_channel_index SP audio_channel_index  { $$ = LSCPSERVER->SetFxSendAudioOutputChannel($5,$7,$9,$11); }
                        |  FX_SEND SP MIDI_CONTROLLER SP sampler_channel SP fx_send_id SP midi_ctrl         { $$ = LSCPSERVER->SetFxSendMidiController($5,$7,$9);              }
                        |  FX_SEND SP LEVEL SP sampler_channel SP fx_send_id SP volume_value                { $$ = LSCPSERVER->SetFxSendLevel($5,$7,$9);                       }
+                       |  FX_SEND SP EFFECT SP sampler_channel SP fx_send_id SP effect_chain SP chain_pos  { $$ = LSCPSERVER->SetFxSendEffect($5,$7,$9,$11);                  }
                        |  DB_INSTRUMENT_DIRECTORY SP NAME SP db_path SP stringval_escaped                  { $$ = LSCPSERVER->SetDbInstrumentDirectoryName($5,$7);            }
                        |  DB_INSTRUMENT_DIRECTORY SP DESCRIPTION SP db_path SP stringval_escaped           { $$ = LSCPSERVER->SetDbInstrumentDirectoryDescription($5,$7);     }
                        |  DB_INSTRUMENT SP NAME SP db_path SP stringval_escaped                            { $$ = LSCPSERVER->SetDbInstrumentName($5,$7);                     }
                        |  DB_INSTRUMENT SP DESCRIPTION SP db_path SP stringval_escaped                     { $$ = LSCPSERVER->SetDbInstrumentDescription($5,$7);              }
+                       |  DB_INSTRUMENT SP FILE_PATH SP filename SP filename                               { $$ = LSCPSERVER->SetDbInstrumentFilePath($5,$7);                 }
                        |  ECHO SP boolean                                                                  { $$ = LSCPSERVER->SetEcho((yyparse_param_t*) yyparse_param, $3);  }
                        |  VOLUME SP volume_value                                                           { $$ = LSCPSERVER->SetGlobalVolume($3);                            }
+                       |  VOICES SP number                                                                 { $$ = LSCPSERVER->SetGlobalMaxVoices($3);                         }
+                       |  STREAMS SP number                                                                { $$ = LSCPSERVER->SetGlobalMaxStreams($3);                        }
                        ;
  create_instruction    :  AUDIO_OUTPUT_DEVICE SP string SP key_val_list  { $$ = LSCPSERVER->CreateAudioOutputDevice($3,$5); }
-Line 332 
 create_instruction    :  AUDIO_OUTPUT_DE
+Line 439 
 create_instruction    :  AUDIO_OUTPUT_DE
                        |  MIDI_INPUT_DEVICE SP string                    { $$ = LSCPSERVER->CreateMidiInputDevice($3);      }
                        |  FX_SEND SP sampler_channel SP midi_ctrl        { $$ = LSCPSERVER->CreateFxSend($3,$5);            }
                        |  FX_SEND SP sampler_channel SP midi_ctrl SP fx_send_name  { $$ = LSCPSERVER->CreateFxSend($3,$5,$7); }
+                       |  EFFECT_INSTANCE SP effect_index                { $$ = LSCPSERVER->CreateEffectInstance($3);       }
+                       |  EFFECT_INSTANCE SP effect_system SP module SP effect_name  { $$ = LSCPSERVER->CreateEffectInstance($3,$5,$7); }
                        ;
  reset_instruction     :  CHANNEL SP sampler_channel  { $$ = LSCPSERVER->ResetChannel($3); }
-Line 345 
 find_instruction      :  DB_INSTRUMENTS
+Line 454 
 find_instruction      :  DB_INSTRUMENTS
                        |  DB_INSTRUMENTS SP db_path SP query_val_list                               { $$ = LSCPSERVER->FindDbInstruments($3,$5, true);            }
                        |  DB_INSTRUMENT_DIRECTORIES SP NON_RECURSIVE SP db_path SP query_val_list   { $$ = LSCPSERVER->FindDbInstrumentDirectories($5,$7, false); }
                        |  DB_INSTRUMENT_DIRECTORIES SP db_path SP query_val_list                    { $$ = LSCPSERVER->FindDbInstrumentDirectories($3,$5, true);  }
+                       |  LOST SP DB_INSTRUMENT_FILES                                               { $$ = LSCPSERVER->FindLostDbInstrumentFiles();                 }
                        ;
  move_instruction      :  DB_INSTRUMENT_DIRECTORY SP db_path SP db_path    { $$ = LSCPSERVER->MoveDbInstrumentDirectory($3,$5); }
-Line 358 
 copy_instruction      :  DB_INSTRUMENT_D
+Line 468 
 copy_instruction      :  DB_INSTRUMENT_D
  destroy_instruction   :  AUDIO_OUTPUT_DEVICE SP number  { $$ = LSCPSERVER->DestroyAudioOutputDevice($3); }
                        |  MIDI_INPUT_DEVICE SP number    { $$ = LSCPSERVER->DestroyMidiInputDevice($3);   }
                        |  FX_SEND SP sampler_channel SP fx_send_id  { $$ = LSCPSERVER->DestroyFxSend($3,$5); }
+                       |  EFFECT_INSTANCE SP number      { $$ = LSCPSERVER->DestroyEffectInstance($3);    }
                        ;
  load_instruction      :  INSTRUMENT SP load_instr_args  { $$ = $3; }
                        |  ENGINE SP load_engine_args     { $$ = $3; }
                        ;
+ append_instruction    :  SEND_EFFECT_CHAIN SP EFFECT SP device_index SP effect_chain SP effect_instance  { $$ = LSCPSERVER->AppendSendEffectChainEffect($5,$7,$9); }
+                       ;
+ insert_instruction    :  SEND_EFFECT_CHAIN SP EFFECT SP device_index SP effect_chain SP chain_pos SP effect_instance  { $$ = LSCPSERVER->InsertSendEffectChainEffect($5,$7,$9,$11); }
+                       ;
  set_chan_instruction  :  AUDIO_OUTPUT_DEVICE SP sampler_channel SP device_index                                              { $$ = LSCPSERVER->SetAudioOutputDevice($5, $3);      }
                        |  AUDIO_OUTPUT_CHANNEL SP sampler_channel SP audio_channel_index SP audio_channel_index               { $$ = LSCPSERVER->SetAudioOutputChannel($5, $7, $3); }
                        |  AUDIO_OUTPUT_TYPE SP sampler_channel SP audio_output_type_name                                      { $$ = LSCPSERVER->SetAudioOutputType($5, $3);        }
-Line 401 
 buffer_size_type      :  BYTES       { $
+Line 518 
 buffer_size_type      :  BYTES       { $
  list_instruction      :  AUDIO_OUTPUT_DEVICES                               { $$ = LSCPSERVER->GetAudioOutputDevices();              }
                        |  MIDI_INPUT_DEVICES                                 { $$ = LSCPSERVER->GetMidiInputDevices();                }
                        |  CHANNELS                                           { $$ = LSCPSERVER->ListChannels();                       }
+                       |  CHANNEL SP MIDI_INPUTS SP sampler_channel          { $$ = LSCPSERVER->ListChannelMidiInputs($5);            }
                        |  AVAILABLE_ENGINES                                  { $$ = LSCPSERVER->ListAvailableEngines();               }
+                       |  AVAILABLE_EFFECTS                                  { $$ = LSCPSERVER->ListAvailableEffects();               }
+                       |  EFFECT_INSTANCES                                   { $$ = LSCPSERVER->ListEffectInstances();                }
+                       |  SEND_EFFECT_CHAINS SP number                       { $$ = LSCPSERVER->ListSendEffectChains($3);             }
                        |  AVAILABLE_MIDI_INPUT_DRIVERS                       { $$ = LSCPSERVER->ListAvailableMidiInputDrivers();      }
                        |  AVAILABLE_AUDIO_OUTPUT_DRIVERS                     { $$ = LSCPSERVER->ListAvailableAudioOutputDrivers();    }
                        |  MIDI_INSTRUMENTS SP midi_map                       { $$ = LSCPSERVER->ListMidiInstrumentMappings($3);       }
-Line 415 
 list_instruction      :  AUDIO_OUTPUT_DE
+Line 536 
 list_instruction      :  AUDIO_OUTPUT_DE
                        |  FILE SP INSTRUMENTS SP filename                    { $$ = LSCPSERVER->ListFileInstruments($5);              }
                        ;
+ send_instruction      :  CHANNEL SP MIDI_DATA SP string SP sampler_channel SP number SP number  { $$ = LSCPSERVER->SendChannelMidiData($5, $7, $9, $11); }
+                       ;
  load_instr_args       :  filename SP instrument_index SP sampler_channel               { $$ = LSCPSERVER->LoadInstrument($1, $3, $5);       }
                        |  NON_MODAL SP filename SP instrument_index SP sampler_channel  { $$ = LSCPSERVER->LoadInstrument($3, $5, $7, true); }
                        ;
-Line 427 
 instr_load_mode       :  ON_DEMAND
+Line 551 
 instr_load_mode       :  ON_DEMAND
                        |  PERSISTENT      { $$ = MidiInstrumentMapper::PERSISTENT;     }
                        ;
+ effect_instance           : number
+                           ;
  device_index              :  number
                            ;
-Line 462 
 volume_value              :  dotnum
+Line 589 
 volume_value              :  dotnum
                            |  number  { $$ = $1; }
                            ;
+ control_value             :  real
+                           ;
  sampler_channel           :  number
                            ;
-Line 496 
 entry_name                :  stringval_e
+Line 626 
 entry_name                :  stringval_e
  fx_send_name              :  stringval_escaped
                            ;
+ effect_name               :  stringval_escaped
+                           ;
+ effect_index              :  number
+                           ;
+ effect_chain              :  number
+                           ;
+ chain_pos                 :  number
+                           ;
+ input_control             :  number
+                           ;
  param_val_list            :  param_val
                            |  param_val_list','param_val  { $$ = $1 + "," + $3; }
                            ;
-Line 504 
 param_val_list            :  param_val
+Line 649 
 param_val_list            :  param_val
  param_val                 :  string            { $$ = "\'" + $1 + "\'"; }
                            |  stringval         { $$ = "\'" + $1 + "\'"; }
                            |  number            { std::stringstream ss; ss << "\'" << $1 << "\'"; $$ = ss.str(); }
-                           |  dotnum            { std::stringstream ss; ss << "\'" << $1 << "\'"; $$ = ss.str(); }
+                           |  dotnum            { std::stringstream ss; ss << "\'" << $1 << "\'"; $$ = ss.str(); } //TODO: maybe better using 'real' instead of 'number' and 'dotnum' rules
                            ;
  query_val_list            :  string '=' query_val                    { $$[$1] = $3;          }
-Line 520 
 scan_mode                 :  RECURSIVE
+Line 665 
 scan_mode                 :  RECURSIVE
                            |  FLAT           { $$ = "FLAT"; }
                            ;
+ effect_system             :  string
+                           ;
+ module                    :  filename
+                           ;
  // GRAMMAR_BNF_END - do NOT delete or modify this line !!!
-Line 534 
 dotnum                :      digits '.'
+Line 685 
 dotnum                :      digits '.'
                        |  '-' digits '.' digits  { std::stringstream ss("-" + $2 + "." + $4); ss.imbue(std::locale::classic()); ss >> $$; }
                        ;
+ real                  :      digits '.' digits  { std::stringstream ss($1 + "." + $3); ss.imbue(std::locale::classic()); ss >> $$; }
+                       |  '+' digits '.' digits  { std::stringstream ss($2 + "." + $4); ss.imbue(std::locale::classic()); ss >> $$; }
+                       |  '-' digits '.' digits  { std::stringstream ss("-" + $2 + "." + $4); ss.imbue(std::locale::classic()); ss >> $$; }
+                       |      digits             { std::stringstream ss($1); ss.imbue(std::locale::classic()); ss >> $$;                  }
+                       |  '+' digits             { std::stringstream ss($2); ss.imbue(std::locale::classic()); ss >> $$;                  }
+                       |  '-' digits             { std::stringstream ss("-" + $2); ss.imbue(std::locale::classic()); ss >> $$;            }
+                       ;
  digits                :  digit         { $$ = $1;      }
                        |  digits digit  { $$ = $1 + $2; }
-Line 722 
 CLEAR                 :  'C''L''E''A''R'
+Line 881 
 CLEAR                 :  'C''L''E''A''R'
  FIND                  :  'F''I''N''D'
                        ;
+ FILE_AS_DIR           :  'F''I''L''E''_''A''S''_''D''I''R'
+                       ;
  MOVE                  :  'M''O''V''E'
                        ;
-Line 758 
 REMOVE                :  'R''E''M''O''V'
+Line 920 
 REMOVE                :  'R''E''M''O''V'
  SET                   :  'S''E''T'
                        ;
+ APPEND                :  'A''P''P''E''N''D'
+                       ;
+ INSERT                :  'I''N''S''E''R''T'
+                       ;
  SUBSCRIBE             :  'S''U''B''S''C''R''I''B''E'
                        ;
-Line 815 
 DB_INSTRUMENT_COUNT           :  'D''B''
+Line 983 
 DB_INSTRUMENT_COUNT           :  'D''B''
  DB_INSTRUMENT_INFO            :  'D''B''_''I''N''S''T''R''U''M''E''N''T''_''I''N''F''O'
                                ;
+ DB_INSTRUMENT_FILES           :  'D''B''_''I''N''S''T''R''U''M''E''N''T''_''F''I''L''E''S'
+                               ;
  DB_INSTRUMENTS_JOB_INFO       :  'D''B''_''I''N''S''T''R''U''M''E''N''T''S''_''J''O''B''_''I''N''F''O'
                                ;
-Line 857 
 TOTAL_VOICE_COUNT_MAX:  'T''O''T''A''L''
+Line 1028 
 TOTAL_VOICE_COUNT_MAX:  'T''O''T''A''L''
  GLOBAL_INFO          :  'G''L''O''B''A''L''_''I''N''F''O'
                       ;
+ EFFECT_INSTANCE_COUNT   :  'E''F''F''E''C''T''_''I''N''S''T''A''N''C''E''_''C''O''U''N''T'
+                         ;
+ EFFECT_INSTANCE_INFO    :  'E''F''F''E''C''T''_''I''N''S''T''A''N''C''E''_''I''N''F''O'
+                         ;
+ SEND_EFFECT_CHAIN_COUNT :  'S''E''N''D''_''E''F''F''E''C''T''_''C''H''A''I''N''_''C''O''U''N''T'
+                         ;
+ SEND_EFFECT_CHAIN_INFO  :  'S''E''N''D''_''E''F''F''E''C''T''_''C''H''A''I''N''_''I''N''F''O'
+                         ;
  INSTRUMENT           :  'I''N''S''T''R''U''M''E''N''T'
                       ;
-Line 899 
 AUDIO_OUTPUT_CHANNEL  :  'A''U''D''I''O'
+Line 1082 
 AUDIO_OUTPUT_CHANNEL  :  'A''U''D''I''O'
  AUDIO_OUTPUT_TYPE     :  'A''U''D''I''O''_''O''U''T''P''U''T''_''T''Y''P''E'
                        ;
+ AVAILABLE_EFFECTS :  'A''V''A''I''L''A''B''L''E''_''E''F''F''E''C''T''S'
+                   ;
+ EFFECT :  'E''F''F''E''C''T'
+        ;
+ EFFECT_INSTANCE :  'E''F''F''E''C''T''_''I''N''S''T''A''N''C''E'
+                 ;
+ EFFECT_INSTANCES :  'E''F''F''E''C''T''_''I''N''S''T''A''N''C''E''S'
+                  ;
+ EFFECT_INSTANCE_INPUT_CONTROL :  'E''F''F''E''C''T''_''I''N''S''T''A''N''C''E''_''I''N''P''U''T''_''C''O''N''T''R''O''L'
+                               ;
+ SEND_EFFECT_CHAIN :  'S''E''N''D''_''E''F''F''E''C''T''_''C''H''A''I''N'
+                   ;
+ SEND_EFFECT_CHAINS :  'S''E''N''D''_''E''F''F''E''C''T''_''C''H''A''I''N''S'
+                    ;
  AVAILABLE_MIDI_INPUT_DRIVERS  :  'A''V''A''I''L''A''B''L''E''_''M''I''D''I''_''I''N''P''U''T''_''D''R''I''V''E''R''S'
                                ;
-Line 944 
 MIDI_INPUT_TYPE       :  'M''I''D''I''_'
+Line 1148 
 MIDI_INPUT_TYPE       :  'M''I''D''I''_'
  MIDI_INPUT            :  'M''I''D''I''_''I''N''P''U''T'
                        ;
+ MIDI_INPUTS           :  'M''I''D''I''_''I''N''P''U''T''S'
+                       ;
  MIDI_CONTROLLER       :  'M''I''D''I''_''C''O''N''T''R''O''L''L''E''R'
                        ;
+ SEND                  :  'S''E''N''D'
+                       ;
  FX_SEND               :  'F''X''_''S''E''N''D'
                        ;
-Line 986 
 RECURSIVE                  :  'R''E''C''
+Line 1196 
 RECURSIVE                  :  'R''E''C''
  NON_RECURSIVE              :  'N''O''N''_''R''E''C''U''R''S''I''V''E'
                             ;
+ LOST                       :  'L''O''S''T'
+                            ;
+ FILE_PATH                  :  'F''I''L''E''_''P''A''T''H'
+                            ;
  SERVER                :  'S''E''R''V''E''R'
                        ;
-Line 995 
 VOLUME                :  'V''O''L''U''M'
+Line 1211 
 VOLUME                :  'V''O''L''U''M'
  LEVEL                 :  'L''E''V''E''L'
                        ;
+ VALUE                 :  'V''A''L''U''E'
+                       ;
  MUTE                  :  'M''U''T''E'
                        ;
  SOLO                  :  'S''O''L''O'
                        ;
+ VOICES                :  'V''O''I''C''E''S'
+                       ;
+ STREAMS               :  'S''T''R''E''A''M''S'
+                       ;
  BYTES                 :  'B''Y''T''E''S'
                        ;
-Line 1016 
 EDIT                  :  'E''D''I''T'
+Line 1241 
 EDIT                  :  'E''D''I''T'
  FORMAT                :  'F''O''R''M''A''T'
                        ;
+ MIDI_DATA             :  'M''I''D''I''_''D''A''T''A'
+                       ;
  RESET                 :  'R''E''S''E''T'
                        ;
-Line 1033 
 QUIT                  :  'Q''U''I''T'
+Line 1261 
 QUIT                  :  'Q''U''I''T'
  %%
+ #define DEBUG_BISON_SYNTAX_ERROR_WALKER 0
  /**
-  * Will be called when an error occured (usually syntax error).
+  * Internal function, only called by yyExpectedSymbols(). It is given a Bison
+  * parser state stack, reflecting the parser's entire state at a certain point,
+  * i.e. when a syntax error occured. This function will then walk ahead the
+  * potential parse tree starting from the current head of the given state
+  * stack. This function will call itself recursively to scan the individual
+  * parse tree branches. As soon as it hits on the next non-terminal grammar
+  * symbol in one parse tree branch, it adds the found non-terminal symbol to
+  * @a expectedSymbols and aborts scanning the respective tree branch further.
+  * If any local parser state is reached a second time, the respective parse
+  * tree is aborted to avoid any endless recursion.
+  *
+  * @param stack - Bison (yacc) state stack
+  * @param expectedSymbols - will be filled with next expected grammar symbols
+  * @param depth - just for internal debugging purposes
   */
- void yyerror(const char* s) {
+ static void walkAndFillExpectedSymbols(std::vector<YYTYPE_INT16>& stack, std::set<String>& expectedSymbols, int depth = 0) {
+ #if DEBUG_BISON_SYNTAX_ERROR_WALKER
+     printf("\n");
+     for (int i = 0; i < depth; ++i) printf("\t");
+     printf("State stack:");
+     for (int i = 0; i < stack.size(); ++i) {
+         printf(" %d", stack[i]);
+     }
+     printf("\n");
+ #endif
+     if (stack.empty()) return;
+     int state = stack[stack.size() - 1];
+     int n = yypact[state];
+     if (n == YYPACT_NINF) { // default reduction required ...
+         // get default reduction rule for this state
+         n = yydefact[state];
+         if (n <= 0 || n >= YYNRULES) return; // no rule, something is wrong
+         // return the new resolved expected symbol (left-hand symbol of grammar
+         // rule), then we're done in this state
+         expectedSymbols.insert(yytname[yyr1[n]]);
+         return;
+     }
+     if (!(YYPACT_NINF < n && n <= YYLAST)) return;
+ #if DEBUG_BISON_SYNTAX_ERROR_WALKER
+     for (int i = 0; i < depth; ++i) printf("\t");
+     printf("Expected tokens:");
+ #endif
+     int begin = n < 0 ? -n : 0;
+     int checklim = YYLAST - n + 1;
+     int end = checklim < YYNTOKENS ? checklim : YYNTOKENS;
+     int rule, action, stackSize;
+     for (int token = begin; token < end; ++token) {
+         if (token == YYTERROR || yycheck[n + token] != token) continue;
+ #if DEBUG_BISON_SYNTAX_ERROR_WALKER
+         printf(" %s", yytname[token]);
+ #endif
+         //if (yycheck[n + token] != token) goto default_reduction;
+         action = yytable[n + token];
+         if (action == 0 || action == YYTABLE_NINF) {
+ #if DEBUG_BISON_SYNTAX_ERROR_WALKER
+             printf(" (invalid action) "); fflush(stdout);
+ #endif
+             continue; // error, ignore
+         }
+         if (action < 0) { // reduction with rule -action required ...
+ #if DEBUG_BISON_SYNTAX_ERROR_WALKER
+             printf(" (reduction) "); fflush(stdout);
+ #endif
+             rule = -action;
+             goto reduce;
+         }
+         if (action == YYFINAL) continue; // "accept" state, we don't care about it here
+         // "shift" required ...
+         if (std::find(stack.begin(), stack.end(), action) != stack.end())
+             continue; // duplicate state, ignore it to avoid endless recursions
+         // "shift" / push the new state on the state stack and call this
+         // function recursively, and restore the stack after the recurse return
+         stackSize = stack.size();
+         stack.push_back(action);
+         walkAndFillExpectedSymbols( //FIXME: could cause stack overflow (should be a loop instead), is probably fine with our current grammar though
+             stack, expectedSymbols, depth + 1
+         );
+         stack.resize(stackSize); // restore stack
+         continue;
+     //default_reduction: // resolve default reduction for this state
+     //    printf(" (default red.) "); fflush(stdout);
+     //    rule = yydefact[state];
+     reduce: // "reduce" required
+ #if DEBUG_BISON_SYNTAX_ERROR_WALKER
+         printf(" (reduce by %d) ", rule); fflush(stdout);
+ #endif
+         if (rule == 0 || rule >= YYNRULES) continue; // invalid rule, something is wrong
+         // store the left-hand symbol of the grammar rule
+         expectedSymbols.insert(yytname[yyr1[rule]]);
+ #if DEBUG_BISON_SYNTAX_ERROR_WALKER
+         printf(" (SYM %s) ", yytname[yyr1[rule]]); fflush(stdout);
+ #endif
+     }
+ #if DEBUG_BISON_SYNTAX_ERROR_WALKER
+     printf("\n");
+ #endif
+ }
+ /**
+  * Should only be called on syntax errors: returns a set of non-terminal
+  * symbols expected to appear now/next, just at the point where the syntax
+  * error appeared.
+  */
+ static std::set<String> yyExpectedSymbols() {
+     std::set<String> result;
      yyparse_param_t* param = GetCurrentYaccSession();
-     String msg = s
+     YYTYPE_INT16* ss = (*param->ppStackBottom);
-         + (" (line:"   + ToString(param->iLine+1))
+     YYTYPE_INT16* sp = (*param->ppStackTop);
-         + ( ",column:" + ToString(param->iColumn))
+     int iStackSize   = sp - ss + 1;
-         + ")";
+     // copy and wrap parser's state stack into a convenient STL container
-     dmsg(2,("LSCPParser: %s\n", msg.c_str()));
+     std::vector<YYTYPE_INT16> stack;
-     sLastError = msg;
+     for (int i = 0; i < iStackSize; ++i) {
+         stack.push_back(ss[i]);
+     }
+     // do the actual parser work
+     walkAndFillExpectedSymbols(stack, result);
+     return result;
  }
+ namespace LinuxSampler {
  /**
   * Clears input buffer.
   */
-Line 1053 
 void restart(yyparse_param_t* pparam, in
+Line 1402 
 void restart(yyparse_param_t* pparam, in
      bytes = 0;
      ptr   = 0;
      sLastError = "";
+     sParsed = "";
+ }
  }

 Legend:



Removed from v.1695
 


changed lines


 
Added in v.2510
 Legend:



Removed from v.1695
 


changed lines


 
Added in v.2510
-Removed from v.1695
+Added in v.2510

	ViewVC Help
Powered by ViewVC