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

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

Parent Directory | Revision Log | View Patch Patch

-revision 1245 by schoenebeck,
Tue Jun 19 15:54:13 2007 UTC
+revision 1541 by iliev,
Tue Dec  4 18:09:26 2007 UTC
 Line 37
  // 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; }
  // clears input buffer
  void restart(yyparse_param_t* pparam, int& yychar);
-Line 48 
 void yyerror(const char* s);
+Line 50 
 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
  // external reference to the function which actually reads from the socket
  extern int GetLSCPCommand( void *buf, int max_size);
+ // external reference to the function in lscpserver.cpp which returns the
+ // current session (only works because the server runs as singleton)
+ extern yyparse_param_t* GetCurrentYaccSession();
  // returns true if supplied characters has an ASCII code of 128 or higher
  inline bool isExtendedAsciiChar(const char c) {
      return (c < 0);
-Line 72 
 int yylex(YYSTYPE* yylval) {
+Line 79 
 int yylex(YYSTYPE* yylval) {
      }
      // this is the next character in the input stream
      const char c = buf[ptr++];
+     // increment current reading position (just for verbosity / messages)
+     GetCurrentYaccSession()->iColumn++;
      // we have to handle "normal" and "extended" ASCII characters separately
      if (isExtendedAsciiChar(c)) {
          // workaround for characters with ASCII code higher than 127
-Line 92 
 int octalsToNumber(char oct_digit0, char
+Line 101 
 int octalsToNumber(char oct_digit0, char
      return atoi(d2)*8*8 + atoi(d1)*8 + atoi(d0);
  }
- int hexToNumber(char hex_digit) {
-     switch (hex_digit) {
-         case '0': return 0;
-         case '1': return 1;
-         case '2': return 2;
-         case '3': return 3;
-         case '4': return 4;
-         case '5': return 5;
-         case '6': return 6;
-         case '7': return 7;
-         case '8': return 8;
-         case '9': return 9;
-         // grammar rule 'digit_hex' already forced lower case
-         case 'a': return 10;
-         case 'b': return 11;
-         case 'c': return 12;
-         case 'd': return 13;
-         case 'e': return 14;
-         case 'f': return 15;
-         default:  return 0;
-     }
- }
- int hexsToNumber(char hex_digit0, char hex_digit1 = '0') {
-     return hexToNumber(hex_digit1)*16 + hexToNumber(hex_digit0);
- }
  %}
  // reentrant parser
  %pure_parser
+ // tell bison to spit out verbose syntax error messages
  %error-verbose
  %token <Char> EXT_ASCII_CHAR
- %type <Char> char digit digit_oct digit_hex escape_seq escape_seq_octal escape_seq_hex
+ %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 <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 <String> string string_escaped text text_escaped stringval stringval_escaped digits param_val_list param_val query_val pathname dirname filename 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
+ %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 <FillResponse> buffer_size_type
  %type <KeyValList> key_val_list query_val_list
  %type <LoadMode> instr_load_mode
  %type <Bool> modal_arg
+ %type <UniversalPath> path path_base path_prefix path_body
  %start input
-Line 155 
 input                 : line LF
+Line 140 
 input                 : line LF
                        | line CR LF
                        ;
- line                  :  /* epsilon (empty line ignored) */ { return LSCP_DONE; }
+ line                  :  /* epsilon (empty line ignored) */ { INCREMENT_LINE; return LSCP_DONE; }
-                       |  comment  { return LSCP_DONE; }
+                       |  comment  { INCREMENT_LINE; return LSCP_DONE; }
-                       |  command  { LSCPSERVER->AnswerClient($1); return LSCP_DONE; }
+                       |  command  { INCREMENT_LINE; LSCPSERVER->AnswerClient($1); return LSCP_DONE; }
-                       |  error    { LSCPSERVER->AnswerClient("ERR:0:Unknown command.\r\n"); RESTART; return LSCP_SYNTAX_ERROR; }
+                       |  error    { INCREMENT_LINE; LSCPSERVER->AnswerClient("ERR:0:" + sLastError + "\r\n"); RESTART; return LSCP_SYNTAX_ERROR; }
                        ;
  comment               :  '#'
-Line 186 
 command               :  ADD SP add_inst
+Line 171 
 command               :  ADD SP add_inst
                        |  MOVE SP move_instruction              { $$ = $3;                                                }
                        |  COPY SP copy_instruction              { $$ = $3;                                                }
                        |  EDIT SP edit_instruction              { $$ = $3;                                                }
+                       |  FORMAT SP format_instruction          { $$ = $3;                                                }
                        |  RESET                                 { $$ = LSCPSERVER->ResetSampler();                        }
                        |  QUIT                                  { LSCPSERVER->AnswerClient("Bye!\r\n"); return LSCP_QUIT; }
                        ;
- add_instruction       :  CHANNEL                               { $$ = LSCPSERVER->AddChannel();                          }
+ add_instruction       :  CHANNEL                               { $$ = LSCPSERVER->AddChannel();                  }
-                       |  DB_INSTRUMENT_DIRECTORY SP pathname   { $$ = LSCPSERVER->AddDbInstrumentDirectory($3);          }
+                       |  DB_INSTRUMENT_DIRECTORY SP db_path    { $$ = LSCPSERVER->AddDbInstrumentDirectory($3);  }
-                       |  DB_INSTRUMENTS SP NON_MODAL SP scan_mode SP pathname SP pathname        { $$ = 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 pathname SP pathname                     { $$ = LSCPSERVER->AddDbInstruments($3,$5,$7);        }
+                       |  DB_INSTRUMENTS SP scan_mode SP db_path SP filename                      { $$ = LSCPSERVER->AddDbInstruments($3,$5,$7);        }
-                       |  DB_INSTRUMENTS SP NON_MODAL SP pathname SP pathname                     { $$ = LSCPSERVER->AddDbInstruments($5,$7, -1, true); }
+                       |  DB_INSTRUMENTS SP NON_MODAL SP db_path SP filename                      { $$ = LSCPSERVER->AddDbInstruments($5,$7, -1, true); }
-                       |  DB_INSTRUMENTS SP NON_MODAL SP pathname SP pathname SP instrument_index { $$ = LSCPSERVER->AddDbInstruments($5,$7,$9, true);  }
+                       |  DB_INSTRUMENTS SP NON_MODAL SP db_path SP filename SP instrument_index  { $$ = LSCPSERVER->AddDbInstruments($5,$7,$9, true);  }
-                       |  DB_INSTRUMENTS SP pathname SP pathname                                  { $$ = LSCPSERVER->AddDbInstruments($3,$5);           }
+                       |  DB_INSTRUMENTS SP db_path SP filename                                   { $$ = LSCPSERVER->AddDbInstruments($3,$5);           }
-                       |  DB_INSTRUMENTS SP pathname SP pathname SP instrument_index              { $$ = LSCPSERVER->AddDbInstruments($3,$5,$7);        }
+                       |  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);              }
                        ;
-Line 223 
 subscribe_event       :  AUDIO_OUTPUT_DE
+Line 209 
 subscribe_event       :  AUDIO_OUTPUT_DE
                        |  DB_INSTRUMENT_INFO                    { $$ = LSCPSERVER->SubscribeNotification(LSCPEvent::event_db_instr_info);        }
                        |  DB_INSTRUMENTS_JOB_INFO               { $$ = LSCPSERVER->SubscribeNotification(LSCPEvent::event_db_instrs_job_info);   }
                        |  MISCELLANEOUS                         { $$ = LSCPSERVER->SubscribeNotification(LSCPEvent::event_misc);                 }
+                       |  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);          }
                        ;
-Line 248 
 unsubscribe_event     :  AUDIO_OUTPUT_DE
+Line 235 
 unsubscribe_event     :  AUDIO_OUTPUT_DE
                        |  DB_INSTRUMENT_INFO                    { $$ = LSCPSERVER->UnsubscribeNotification(LSCPEvent::event_db_instr_info);        }
                        |  DB_INSTRUMENTS_JOB_INFO               { $$ = LSCPSERVER->UnsubscribeNotification(LSCPEvent::event_db_instrs_job_info);   }
                        |  MISCELLANEOUS                         { $$ = LSCPSERVER->UnsubscribeNotification(LSCPEvent::event_misc);                 }
+                       |  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);          }
                        ;
- 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::VOID,"",$3); }
+ 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); }
                        |  MIDI_INSTRUMENT SP modal_arg midi_map SP midi_bank SP midi_prog SP engine_name SP filename SP instrument_index SP volume_value SP instr_load_mode { $$ = LSCPSERVER->AddOrReplaceMIDIInstrumentMapping($4,$6,$8,$10,$12,$14,$16,$18,"",$3); }
-                       |  MIDI_INSTRUMENT SP modal_arg midi_map SP midi_bank SP midi_prog SP engine_name SP filename SP instrument_index SP volume_value SP entry_name { $$ = LSCPSERVER->AddOrReplaceMIDIInstrumentMapping($4,$6,$8,$10,$12,$14,$16,MidiInstrumentMapper::VOID,$18,$3); }
+                       |  MIDI_INSTRUMENT SP modal_arg midi_map SP midi_bank SP midi_prog SP engine_name SP filename SP instrument_index SP volume_value SP entry_name { $$ = LSCPSERVER->AddOrReplaceMIDIInstrumentMapping($4,$6,$8,$10,$12,$14,$16,MidiInstrumentMapper::DONTCARE,$18,$3); }
                        |  MIDI_INSTRUMENT SP modal_arg midi_map SP midi_bank SP midi_prog SP engine_name SP filename SP instrument_index SP volume_value SP instr_load_mode SP entry_name { $$ = LSCPSERVER->AddOrReplaceMIDIInstrumentMapping($4,$6,$8,$10,$12,$14,$16,$18,$20,$3); }
                        ;
  unmap_instruction     :  MIDI_INSTRUMENT SP midi_map SP midi_bank SP midi_prog  { $$ = LSCPSERVER->RemoveMIDIInstrumentMapping($3,$5,$7); }
                        ;
- remove_instruction    :  CHANNEL SP sampler_channel                    { $$ = LSCPSERVER->RemoveChannel($3);                     }
+ remove_instruction    :  CHANNEL SP sampler_channel                   { $$ = LSCPSERVER->RemoveChannel($3);                      }
-                       |  MIDI_INSTRUMENT_MAP SP midi_map               { $$ = LSCPSERVER->RemoveMidiInstrumentMap($3);           }
+                       |  MIDI_INSTRUMENT_MAP SP midi_map              { $$ = LSCPSERVER->RemoveMidiInstrumentMap($3);            }
-                       |  MIDI_INSTRUMENT_MAP SP ALL                    { $$ = LSCPSERVER->RemoveAllMidiInstrumentMaps();         }
+                       |  MIDI_INSTRUMENT_MAP SP ALL                   { $$ = LSCPSERVER->RemoveAllMidiInstrumentMaps();          }
-                       |  DB_INSTRUMENT_DIRECTORY SP FORCE SP pathname  { $$ = LSCPSERVER->RemoveDbInstrumentDirectory($5, true); }
+                       |  DB_INSTRUMENT_DIRECTORY SP FORCE SP db_path  { $$ = LSCPSERVER->RemoveDbInstrumentDirectory($5, true);  }
-                       |  DB_INSTRUMENT_DIRECTORY SP pathname           { $$ = LSCPSERVER->RemoveDbInstrumentDirectory($3);       }
+                       |  DB_INSTRUMENT_DIRECTORY SP db_path           { $$ = LSCPSERVER->RemoveDbInstrumentDirectory($3);        }
-                       |  DB_INSTRUMENT SP pathname                     { $$ = LSCPSERVER->RemoveDbInstrument($3);                }
+                       |  DB_INSTRUMENT SP db_path                     { $$ = LSCPSERVER->RemoveDbInstrument($3);                 }
                        ;
  get_instruction       :  AVAILABLE_ENGINES                                                          { $$ = LSCPSERVER->GetAvailableEngines();                          }
-Line 293 
 get_instruction       :  AVAILABLE_ENGIN
+Line 281 
 get_instruction       :  AVAILABLE_ENGIN
                        |  CHANNEL SP VOICE_COUNT SP sampler_channel                                  { $$ = LSCPSERVER->GetVoiceCount($5);                              }
                        |  ENGINE SP INFO SP engine_name                                              { $$ = LSCPSERVER->GetEngineInfo($5);                              }
                        |  SERVER SP INFO                                                             { $$ = LSCPSERVER->GetServerInfo();                                }
+                       |  TOTAL_STREAM_COUNT                                                         { $$ = LSCPSERVER->GetTotalStreamCount();                           }
                        |  TOTAL_VOICE_COUNT                                                          { $$ = LSCPSERVER->GetTotalVoiceCount();                           }
                        |  TOTAL_VOICE_COUNT_MAX                                                      { $$ = LSCPSERVER->GetTotalVoiceCountMax();                        }
                        |  MIDI_INSTRUMENTS SP midi_map                                               { $$ = LSCPSERVER->GetMidiInstrumentMappings($3);                  }
-Line 302 
 get_instruction       :  AVAILABLE_ENGIN
+Line 291 
 get_instruction       :  AVAILABLE_ENGIN
                        |  MIDI_INSTRUMENT_MAP SP INFO SP midi_map                                    { $$ = LSCPSERVER->GetMidiInstrumentMap($5);                       }
                        |  FX_SENDS SP sampler_channel                                                { $$ = LSCPSERVER->GetFxSends($3);                                 }
                        |  FX_SEND SP INFO SP sampler_channel SP fx_send_id                           { $$ = LSCPSERVER->GetFxSendInfo($5,$7);                           }
-                       |  DB_INSTRUMENT_DIRECTORIES SP RECURSIVE SP pathname                         { $$ = LSCPSERVER->GetDbInstrumentDirectoryCount($5, true);        }
+                       |  DB_INSTRUMENT_DIRECTORIES SP RECURSIVE SP db_path                          { $$ = LSCPSERVER->GetDbInstrumentDirectoryCount($5, true);        }
-                       |  DB_INSTRUMENT_DIRECTORIES SP pathname                                      { $$ = LSCPSERVER->GetDbInstrumentDirectoryCount($3, false);       }
+                       |  DB_INSTRUMENT_DIRECTORIES SP db_path                                       { $$ = LSCPSERVER->GetDbInstrumentDirectoryCount($3, false);       }
-                       |  DB_INSTRUMENT_DIRECTORY SP INFO SP pathname                                { $$ = LSCPSERVER->GetDbInstrumentDirectoryInfo($5);               }
+                       |  DB_INSTRUMENT_DIRECTORY SP INFO SP db_path                                 { $$ = LSCPSERVER->GetDbInstrumentDirectoryInfo($5);               }
-                       |  DB_INSTRUMENTS SP RECURSIVE SP pathname                                    { $$ = LSCPSERVER->GetDbInstrumentCount($5, true);                 }
+                       |  DB_INSTRUMENTS SP RECURSIVE SP db_path                                     { $$ = LSCPSERVER->GetDbInstrumentCount($5, true);                 }
-                       |  DB_INSTRUMENTS SP pathname                                                 { $$ = LSCPSERVER->GetDbInstrumentCount($3, false);                }
+                       |  DB_INSTRUMENTS SP db_path                                                  { $$ = LSCPSERVER->GetDbInstrumentCount($3, false);                }
-                       |  DB_INSTRUMENT SP INFO SP pathname                                          { $$ = LSCPSERVER->GetDbInstrumentInfo($5);                        }
+                       |  DB_INSTRUMENT SP INFO SP db_path                                           { $$ = LSCPSERVER->GetDbInstrumentInfo($5);                        }
                        |  DB_INSTRUMENTS_JOB SP INFO SP number                                       { $$ = LSCPSERVER->GetDbInstrumentsJobInfo($5);                    }
                        |  VOLUME                                                                     { $$ = LSCPSERVER->GetGlobalVolume();                              }
+                       |  FILE SP INSTRUMENTS SP filename                                            { $$ = LSCPSERVER->GetFileInstruments($5);                         }
+                       |  FILE SP INSTRUMENT SP INFO SP filename SP instrument_index                 { $$ = LSCPSERVER->GetFileInstrumentInfo($7,$9);                   }
                        ;
  set_instruction       :  AUDIO_OUTPUT_DEVICE_PARAMETER SP number SP string '=' param_val_list             { $$ = LSCPSERVER->SetAudioOutputDeviceParameter($3, $5, $7);      }
                        |  AUDIO_OUTPUT_CHANNEL_PARAMETER SP number SP number SP string '=' param_val_list  { $$ = LSCPSERVER->SetAudioOutputChannelParameter($3, $5, $7, $9); }
                        |  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);      }
                        |  CHANNEL SP set_chan_instruction                                                  { $$ = $3;                                                         }
                        |  MIDI_INSTRUMENT_MAP SP NAME SP midi_map SP map_name                              { $$ = LSCPSERVER->SetMidiInstrumentMapName($5, $7);               }
-Line 322 
 set_instruction       :  AUDIO_OUTPUT_DE
+Line 314 
 set_instruction       :  AUDIO_OUTPUT_DE
                        |  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);                       }
-                       |  DB_INSTRUMENT_DIRECTORY SP NAME SP pathname SP dirname                           { $$ = LSCPSERVER->SetDbInstrumentDirectoryName($5,$7);            }
+                       |  DB_INSTRUMENT_DIRECTORY SP NAME SP db_path SP stringval_escaped                  { $$ = LSCPSERVER->SetDbInstrumentDirectoryName($5,$7);            }
-                       |  DB_INSTRUMENT_DIRECTORY SP DESCRIPTION SP pathname SP stringval                  { $$ = LSCPSERVER->SetDbInstrumentDirectoryDescription($5,$7);     }
+                       |  DB_INSTRUMENT_DIRECTORY SP DESCRIPTION SP db_path SP stringval_escaped           { $$ = LSCPSERVER->SetDbInstrumentDirectoryDescription($5,$7);     }
-                       |  DB_INSTRUMENT SP NAME SP pathname SP dirname                                     { $$ = LSCPSERVER->SetDbInstrumentName($5,$7);                     }
+                       |  DB_INSTRUMENT SP NAME SP db_path SP stringval_escaped                            { $$ = LSCPSERVER->SetDbInstrumentName($5,$7);                     }
-                       |  DB_INSTRUMENT SP DESCRIPTION SP pathname SP stringval                            { $$ = LSCPSERVER->SetDbInstrumentDescription($5,$7);              }
+                       |  DB_INSTRUMENT SP DESCRIPTION SP db_path SP stringval_escaped                     { $$ = LSCPSERVER->SetDbInstrumentDescription($5,$7);              }
                        |  ECHO SP boolean                                                                  { $$ = LSCPSERVER->SetEcho((yyparse_param_t*) yyparse_param, $3);  }
                        |  VOLUME SP volume_value                                                           { $$ = LSCPSERVER->SetGlobalVolume($3);                            }
                        ;
-Line 345 
 clear_instruction     :  MIDI_INSTRUMENT
+Line 337 
 clear_instruction     :  MIDI_INSTRUMENT
                        |  MIDI_INSTRUMENTS SP ALL        { $$ = LSCPSERVER->ClearAllMidiInstrumentMappings(); }
                        ;
- find_instruction      :  DB_INSTRUMENTS SP NON_RECURSIVE SP pathname SP query_val_list             { $$ = LSCPSERVER->FindDbInstruments($5,$7, false);           }
+ find_instruction      :  DB_INSTRUMENTS SP NON_RECURSIVE SP db_path SP query_val_list              { $$ = LSCPSERVER->FindDbInstruments($5,$7, false);           }
-                       |  DB_INSTRUMENTS SP pathname SP query_val_list                              { $$ = LSCPSERVER->FindDbInstruments($3,$5, true);            }
+                       |  DB_INSTRUMENTS SP db_path SP query_val_list                               { $$ = LSCPSERVER->FindDbInstruments($3,$5, true);            }
-                       |  DB_INSTRUMENT_DIRECTORIES SP NON_RECURSIVE SP pathname SP query_val_list  { $$ = LSCPSERVER->FindDbInstrumentDirectories($5,$7, false); }
+                       |  DB_INSTRUMENT_DIRECTORIES SP NON_RECURSIVE SP db_path SP query_val_list   { $$ = LSCPSERVER->FindDbInstrumentDirectories($5,$7, false); }
-                       |  DB_INSTRUMENT_DIRECTORIES SP pathname SP query_val_list                   { $$ = LSCPSERVER->FindDbInstrumentDirectories($3,$5, true);  }
+                       |  DB_INSTRUMENT_DIRECTORIES SP db_path SP query_val_list                    { $$ = LSCPSERVER->FindDbInstrumentDirectories($3,$5, true);  }
                        ;
- move_instruction      :  DB_INSTRUMENT_DIRECTORY SP pathname SP pathname  { $$ = LSCPSERVER->MoveDbInstrumentDirectory($3,$5); }
+ move_instruction      :  DB_INSTRUMENT_DIRECTORY SP db_path SP db_path    { $$ = LSCPSERVER->MoveDbInstrumentDirectory($3,$5); }
-                       |  DB_INSTRUMENT SP pathname SP pathname            { $$ = LSCPSERVER->MoveDbInstrument($3,$5);          }
+                       |  DB_INSTRUMENT SP db_path SP db_path              { $$ = LSCPSERVER->MoveDbInstrument($3,$5);          }
                        ;
- copy_instruction      :  DB_INSTRUMENT_DIRECTORY SP pathname SP pathname  { $$ = LSCPSERVER->CopyDbInstrumentDirectory($3,$5); }
+ copy_instruction      :  DB_INSTRUMENT_DIRECTORY SP db_path SP db_path    { $$ = LSCPSERVER->CopyDbInstrumentDirectory($3,$5); }
-                       |  DB_INSTRUMENT SP pathname SP pathname            { $$ = LSCPSERVER->CopyDbInstrument($3,$5);          }
+                       |  DB_INSTRUMENT SP db_path SP db_path              { $$ = LSCPSERVER->CopyDbInstrument($3,$5);          }
                        ;
  destroy_instruction   :  AUDIO_OUTPUT_DEVICE SP number  { $$ = LSCPSERVER->DestroyAudioOutputDevice($3); }
-Line 384 
 set_chan_instruction  :  AUDIO_OUTPUT_DE
+Line 376 
 set_chan_instruction  :  AUDIO_OUTPUT_DE
                        |  MIDI_INSTRUMENT_MAP SP sampler_channel SP DEFAULT                                                   { $$ = LSCPSERVER->SetChannelMap($3, -2);             }
                        ;
- edit_instruction      :  INSTRUMENT SP sampler_channel  { $$ = LSCPSERVER->EditSamplerChannelInstrument($3); }
+ edit_instruction      :  CHANNEL SP INSTRUMENT SP sampler_channel  { $$ = LSCPSERVER->EditSamplerChannelInstrument($5); }
+                       ;
+ format_instruction    :  INSTRUMENTS_DB  { $$ = LSCPSERVER->FormatInstrumentsDb(); }
                        ;
  modal_arg             :  /* epsilon (empty argument) */  { $$ = true;  }
-Line 409 
 list_instruction      :  AUDIO_OUTPUT_DE
+Line 404 
 list_instruction      :  AUDIO_OUTPUT_DE
                        |  MIDI_INSTRUMENTS SP ALL                            { $$ = LSCPSERVER->ListAllMidiInstrumentMappings();      }
                        |  MIDI_INSTRUMENT_MAPS                               { $$ = LSCPSERVER->ListMidiInstrumentMaps();             }
                        |  FX_SENDS SP sampler_channel                        { $$ = LSCPSERVER->ListFxSends($3);                      }
-                       |  DB_INSTRUMENT_DIRECTORIES SP RECURSIVE SP pathname { $$ = LSCPSERVER->GetDbInstrumentDirectories($5, true); }
+                       |  DB_INSTRUMENT_DIRECTORIES SP RECURSIVE SP db_path  { $$ = LSCPSERVER->GetDbInstrumentDirectories($5, true); }
-                       |  DB_INSTRUMENT_DIRECTORIES SP pathname              { $$ = LSCPSERVER->GetDbInstrumentDirectories($3);       }
+                       |  DB_INSTRUMENT_DIRECTORIES SP db_path               { $$ = LSCPSERVER->GetDbInstrumentDirectories($3);       }
-                       |  DB_INSTRUMENTS SP RECURSIVE SP pathname            { $$ = LSCPSERVER->GetDbInstruments($5, true);           }
+                       |  DB_INSTRUMENTS SP RECURSIVE SP db_path             { $$ = LSCPSERVER->GetDbInstruments($5, true);           }
-                       |  DB_INSTRUMENTS SP pathname                         { $$ = LSCPSERVER->GetDbInstruments($3);                 }
+                       |  DB_INSTRUMENTS SP db_path                          { $$ = LSCPSERVER->GetDbInstruments($3);                 }
+                       |  FILE SP INSTRUMENTS SP filename                    { $$ = LSCPSERVER->ListFileInstruments($5);              }
                        ;
  load_instr_args       :  filename SP instrument_index SP sampler_channel               { $$ = LSCPSERVER->LoadInstrument($1, $3, $5);       }
-Line 474 
 fx_send_id                :  number
+Line 470 
 fx_send_id                :  number
  engine_name               :  string
                            ;
- pathname                  :  stringval
+ filename                  :  path  {
+                                  #if WIN32
+                                  $$ = $1.toWindows();
+                                  #else
+                                  // assuming POSIX
+                                  $$ = $1.toPosix();
+                                  #endif
+                              }
                            ;
- dirname                   :  stringval
+ db_path                   :  path  { $$ = $1.toDbPath(); }
                            ;
- filename                  :  stringval_escaped
+ map_name                  :  stringval_escaped
                            ;
- map_name                  :  stringval
+ entry_name                :  stringval_escaped
                            ;
- entry_name                :  stringval
+ fx_send_name              :  stringval_escaped
-                           ;
- fx_send_name              :  stringval
                            ;
  param_val_list            :  param_val
                            |  param_val_list','param_val  { $$ = $1 + "," + $3; }
                            ;
- param_val                 :  string
+ //TODO: the re-encapsulation into apostrophes for string and strinval here is a hack, since we need a way for __parse_strings() (DeviceParameters.cpp) to distinguish a comma separated list of strings and a string which contains commas. A clean solution would be to move those parser jobs over here to lscp.y
-                           |  stringval
+ param_val                 :  string            { $$ = "\'" + $1 + "\'"; }
+                           |  stringval         { $$ = "\'" + $1 + "\'"; }
                            |  number            { std::stringstream ss; ss << "\'" << $1 << "\'"; $$ = ss.str(); }
                            |  dotnum            { std::stringstream ss; ss << "\'" << $1 << "\'"; $$ = ss.str(); }
                            ;
-Line 506 
 query_val_list            :  string '='
+Line 507 
 query_val_list            :  string '='
                            |  query_val_list SP string '=' query_val  { $$ = $1; $$[$3] = $5; }
                            ;
- query_val                 :  string
+ query_val                 :  text_escaped
-                           |  stringval
+                           |  stringval_escaped
                            ;
  scan_mode                 :  RECURSIVE      { $$ = "RECURSIVE"; }
-Line 524 
 boolean               :  number  { $$ =
+Line 525 
 boolean               :  number  { $$ =
                        |  string  { $$ = -1; }
                        ;
- string                :  char          { std::string s; s = $1; $$ = s; }
+ dotnum                :      digits '.' digits  { std::stringstream ss($1 + "." + $3); ss.imbue(std::locale::classic()); ss >> $$; }
-                       |  '\\'          { $$ = "\\";                     } // we have to place this rule here, because we currently distinguish between escaped and unescaped strings
+                       |  '+' digits '.' digits  { std::stringstream ss($2 + "." + $4); ss.imbue(std::locale::classic()); ss >> $$; }
-                       |  string char   { $$ = $1 + $2;                  }
+                       |  '-' digits '.' digits  { std::stringstream ss("-" + $2 + "." + $4); ss.imbue(std::locale::classic()); ss >> $$; }
-                       ;
- string_escaped        :  char                        { std::string s; s = $1; $$ = s; }
-                       |  escape_seq                  { std::string s; s = $1; $$ = s; }
-                       |  string_escaped char         { $$ = $1 + $2;                  }
-                       |  string_escaped escape_seq   { $$ = $1 + $2;                  }
-                       ;
- dotnum                :      digits '.' digits  { $$ = atof(String($1 + "." + $3).c_str());                         }
-                       |  '+' digits '.' digits  { String s = "+"; s += $2; s += "."; s += $4; $$ = atof(s.c_str()); }
-                       |  '-' digits '.' digits  { $$ = atof(String("-" + $2 + "." + $4).c_str());                   }
                        ;
-Line 601 
 number                :  digit       { $
+Line 591 
 number                :  digit       { $
                        |  '7' digits  { $$ = atoi(String(String("7") + $2).c_str()); }
                        |  '8' digits  { $$ = atoi(String(String("8") + $2).c_str()); }
                        |  '9' digits  { $$ = atoi(String(String("9") + $2).c_str()); }
+                       ;
- char                  :  'A' { $$ = 'A'; } | 'B' { $$ = 'B'; } | 'C' { $$ = 'C'; } | 'D' { $$ = 'D'; } | 'E' { $$ = 'E'; } | 'F' { $$ = 'F'; } | 'G' { $$ = 'G'; } | 'H' { $$ = 'H'; } | 'I' { $$ = 'I'; } | 'J' { $$ = 'J'; } | 'K' { $$ = 'K'; } | 'L' { $$ = 'L'; } | 'M' { $$ = 'M'; } | 'N' { $$ = 'N'; } | 'O' { $$ = 'O'; } | 'P' { $$ = 'P'; } | 'Q' { $$ = 'Q'; } | 'R' { $$ = 'R'; } | 'S' { $$ = 'S'; } | 'T' { $$ = 'T'; } | 'U' { $$ = 'U'; } | 'V' { $$ = 'V'; } | 'W' { $$ = 'W'; } | 'X' { $$ = 'X'; } | 'Y' { $$ = 'Y'; } | 'Z' { $$ = 'Z'; }
+ path                  :  '\'' path_base '\''  { $$ = $2; }
-                       |  'a' { $$ = 'a'; } | 'b' { $$ = 'b'; } | 'c' { $$ = 'c'; } | 'd' { $$ = 'd'; } | 'e' { $$ = 'e'; } | 'f' { $$ = 'f'; } | 'g' { $$ = 'g'; } | 'h' { $$ = 'h'; } | 'i' { $$ = 'i'; } | 'j' { $$ = 'j'; } | 'k' { $$ = 'k'; } | 'l' { $$ = 'l'; } | 'm' { $$ = 'm'; } | 'n' { $$ = 'n'; } | 'o' { $$ = 'o'; } | 'p' { $$ = 'p'; } | 'q' { $$ = 'q'; } | 'r' { $$ = 'r'; } | 's' { $$ = 's'; } | 't' { $$ = 't'; } | 'u' { $$ = 'u'; } | 'v' { $$ = 'v'; } | 'w' { $$ = 'w'; } | 'x' { $$ = 'x'; } | 'y' { $$ = 'y'; } | 'z' { $$ = 'z'; }
+                       |  '\"' path_base '\"'  { $$ = $2; }
-                       |  '0' { $$ = '0'; } | '1' { $$ = '1'; } | '2' { $$ = '2'; } | '3' { $$ = '3'; } | '4' { $$ = '4'; } | '5' { $$ = '5'; } | '6' { $$ = '6'; } | '7' { $$ = '7'; } | '8' { $$ = '8'; } | '9' { $$ = '9'; }
+                       ;
-                       |  '!' { $$ = '!'; } | '#' { $$ = '#'; } | '$' { $$ = '$'; } | '%' { $$ = '%'; } | '&' { $$ = '&'; } | '(' { $$ = '('; } | ')' { $$ = ')'; } | '*' { $$ = '*'; } | '+' { $$ = '+'; } | '-' { $$ = '-'; } | '.' { $$ = '.'; } | ',' { $$ = ','; } | '/' { $$ = '/'; }
-                       |  ':' { $$ = ':'; } | ';' { $$ = ';'; } | '<' { $$ = '<'; } | '=' { $$ = '='; } | '>' { $$ = '>'; } | '?' { $$ = '?'; } | '@' { $$ = '@'; }
+ path_base             :  path_prefix path_body  { $$ = $1 + $2; }
-                       |  '[' { $$ = '['; } | ']' { $$ = ']'; } | '^' { $$ = '^'; } | '_' { $$ = '_'; }
+                       ;
-                       |  '{' { $$ = '{'; } | '|' { $$ = '|'; } | '}' { $$ = '}'; } | '~' { $$ = '~'; }
-                       |  EXT_ASCII_CHAR
+ path_prefix           :  '/'                 { $$ = Path();                    }
+                       |  alpha_char ':' '/'  { Path p; p.setDrive($1); $$ = p; }
+                       ;
+ path_body             :  /* epsilon (empty argument) */ { $$ = Path();                           }
+                       |  path_body '/'                  { $$ = $1;                               }
+                       |  path_body text_escaped_base    { Path p; p.appendNode($2); $$ = $1 + p; }
+                       ;
+ stringval             :  '\'' text '\''  { $$ = $2; }
+                       |  '\"' text '\"'  { $$ = $2; }
+                       ;
+ stringval_escaped     :  '\'' text_escaped '\''  { $$ = $2; }
+                       |  '\"' text_escaped '\"'  { $$ = $2; }
                        ;
  text                  :  SP           { $$ = " ";      }
-Line 618 
 text                  :  SP           {
+Line 623 
 text                  :  SP           {
                        |  text string  { $$ = $1 + $2;  }
                        ;
- text_escaped          :  SP                           { $$ = " ";      }
+ // like text_escaped, but missing the slash ('/') character
+ text_escaped_base     :  SP                                { $$ = " ";      }
                        |  string_escaped
-                       |  text_escaped SP              { $$ = $1 + " "; }
+                       |  text_escaped_base SP              { $$ = $1 + " "; }
-                       |  text_escaped string_escaped  { $$ = $1 + $2;  }
+                       |  text_escaped_base string_escaped  { $$ = $1 + $2;  }
                        ;
- stringval             :  '\'' text '\''  { $$ = $2; }
+ text_escaped          :  '/'                              { $$ = "/";      }
-                       |  '\"' text '\"'  { $$ = $2; }
+                       |  text_escaped_base
+                       |  text_escaped '/'                 { $$ = $1 + "/"; }
+                       |  text_escaped text_escaped_base   { $$ = $1 + $2;  }
                        ;
- stringval_escaped     :  '\'' text_escaped '\''  { $$ = $2; }
+ string                :  char          { std::string s; s = $1; $$ = s; }
-                       |  '\"' text_escaped '\"'  { $$ = $2; }
+                       |  string char   { $$ = $1 + $2;                  }
+                       ;
+ string_escaped        :  char_base                   { std::string s; s = $1; $$ = s; }
+                       |  escape_seq                  { std::string s; s = $1; $$ = s; }
+                       |  string_escaped char_base    { $$ = $1 + $2;                  }
+                       |  string_escaped escape_seq   { $$ = $1 + $2;                  }
+                       ;
+ // full ASCII character set except space, quotation mark and apostrophe
+ char                  :  char_base
+                       |  '\\'  { $$ = '\\'; }
+                       |  '/'   { $$ = '/';  }
+                       ;
+ // characters A..Z and a..z
+ alpha_char            :  'A' { $$ = 'A'; } | 'B' { $$ = 'B'; } | 'C' { $$ = 'C'; } | 'D' { $$ = 'D'; } | 'E' { $$ = 'E'; } | 'F' { $$ = 'F'; } | 'G' { $$ = 'G'; } | 'H' { $$ = 'H'; } | 'I' { $$ = 'I'; } | 'J' { $$ = 'J'; } | 'K' { $$ = 'K'; } | 'L' { $$ = 'L'; } | 'M' { $$ = 'M'; } | 'N' { $$ = 'N'; } | 'O' { $$ = 'O'; } | 'P' { $$ = 'P'; } | 'Q' { $$ = 'Q'; } | 'R' { $$ = 'R'; } | 'S' { $$ = 'S'; } | 'T' { $$ = 'T'; } | 'U' { $$ = 'U'; } | 'V' { $$ = 'V'; } | 'W' { $$ = 'W'; } | 'X' { $$ = 'X'; } | 'Y' { $$ = 'Y'; } | 'Z' { $$ = 'Z'; }
+                       |  'a' { $$ = 'a'; } | 'b' { $$ = 'b'; } | 'c' { $$ = 'c'; } | 'd' { $$ = 'd'; } | 'e' { $$ = 'e'; } | 'f' { $$ = 'f'; } | 'g' { $$ = 'g'; } | 'h' { $$ = 'h'; } | 'i' { $$ = 'i'; } | 'j' { $$ = 'j'; } | 'k' { $$ = 'k'; } | 'l' { $$ = 'l'; } | 'm' { $$ = 'm'; } | 'n' { $$ = 'n'; } | 'o' { $$ = 'o'; } | 'p' { $$ = 'p'; } | 'q' { $$ = 'q'; } | 'r' { $$ = 'r'; } | 's' { $$ = 's'; } | 't' { $$ = 't'; } | 'u' { $$ = 'u'; } | 'v' { $$ = 'v'; } | 'w' { $$ = 'w'; } | 'x' { $$ = 'x'; } | 'y' { $$ = 'y'; } | 'z' { $$ = 'z'; }
+                       ;
+ // ASCII characters except space, quotation mark, apostrophe, backslash and slash
+ char_base             :  alpha_char
+                       |  '0' { $$ = '0'; } | '1' { $$ = '1'; } | '2' { $$ = '2'; } | '3' { $$ = '3'; } | '4' { $$ = '4'; } | '5' { $$ = '5'; } | '6' { $$ = '6'; } | '7' { $$ = '7'; } | '8' { $$ = '8'; } | '9' { $$ = '9'; }
+                       |  '!' { $$ = '!'; } | '#' { $$ = '#'; } | '$' { $$ = '$'; } | '%' { $$ = '%'; } | '&' { $$ = '&'; } | '(' { $$ = '('; } | ')' { $$ = ')'; } | '*' { $$ = '*'; } | '+' { $$ = '+'; } | '-' { $$ = '-'; } | '.' { $$ = '.'; } | ',' { $$ = ','; }
+                       |  ':' { $$ = ':'; } | ';' { $$ = ';'; } | '<' { $$ = '<'; } | '=' { $$ = '='; } | '>' { $$ = '>'; } | '?' { $$ = '?'; } | '@' { $$ = '@'; }
+                       |  '[' { $$ = '['; } | ']' { $$ = ']'; } | '^' { $$ = '^'; } | '_' { $$ = '_'; }
+                       |  '{' { $$ = '{'; } | '|' { $$ = '|'; } | '}' { $$ = '}'; } | '~' { $$ = '~'; }
+                       |  EXT_ASCII_CHAR
                        ;
  escape_seq            :  '\\' '\''  { $$ = '\''; }
                        |  '\\' '\"'  { $$ = '\"'; }
                        |  '\\' '\\'  { $$ = '\\'; }
+                       |  '\\' '/'   { $$ = '/';  }
                        |  '\\' 'n'   { $$ = '\n'; }
                        |  '\\' 'r'   { $$ = '\r'; }
                        |  '\\' 'f'   { $$ = '\f'; }
-Line 799 
 STREAM_COUNT         :  'S''T''R''E''A''
+Line 835 
 STREAM_COUNT         :  'S''T''R''E''A''
  VOICE_COUNT          :  'V''O''I''C''E''_''C''O''U''N''T'
                       ;
+ TOTAL_STREAM_COUNT   :  'T''O''T''A''L''_''S''T''R''E''A''M''_''C''O''U''N''T'
+                      ;
  TOTAL_VOICE_COUNT    :  'T''O''T''A''L''_''V''O''I''C''E''_''C''O''U''N''T'
                       ;
-Line 811 
 GLOBAL_INFO          :  'G''L''O''B''A''
+Line 850 
 GLOBAL_INFO          :  'G''L''O''B''A''
  INSTRUMENT           :  'I''N''S''T''R''U''M''E''N''T'
                       ;
+ INSTRUMENTS          :  'I''N''S''T''R''U''M''E''N''T''S'
+                      ;
  ENGINE               :  'E' 'N' 'G' 'I' 'N' 'E'
                       ;
-Line 916 
 DB_INSTRUMENT              :  'D''B''_''
+Line 958 
 DB_INSTRUMENT              :  'D''B''_''
  DB_INSTRUMENTS_JOB         :  'D''B''_''I''N''S''T''R''U''M''E''N''T''S''_''J''O''B'
                             ;
+ INSTRUMENTS_DB             :  'I''N''S''T''R''U''M''E''N''T''S''_''D''B'
+                            ;
  DESCRIPTION                :  'D''E''S''C''R''I''P''T''I''O''N'
                             ;
-Line 952 
 BYTES                 :  'B''Y''T''E''S'
+Line 997 
 BYTES                 :  'B''Y''T''E''S'
  PERCENTAGE            :  'P''E''R''C''E''N''T''A''G''E'
                        ;
+ FILE                  :  'F''I''L''E'
+                       ;
  EDIT                  :  'E''D''I''T'
                        ;
+ FORMAT                :  'F''O''R''M''A''T'
+                       ;
  RESET                 :  'R''E''S''E''T'
                        ;
-Line 976 
 QUIT                  :  'Q''U''I''T'
+Line 1027 
 QUIT                  :  'Q''U''I''T'
   * Will be called when an error occured (usually syntax error).
   */
  void yyerror(const char* s) {
-     dmsg(2,("LSCPParser: %s\n", s));
+     yyparse_param_t* param = GetCurrentYaccSession();
+     String msg = s
+         + (" (line:"   + ToString(param->iLine+1))
+         + ( ",column:" + ToString(param->iColumn))
+         + ")";
+     dmsg(2,("LSCPParser: %s\n", msg.c_str()));
+     sLastError = msg;
  }
  /**
-Line 985 
 void yyerror(const char* s) {
+Line 1042 
 void yyerror(const char* s) {
  void restart(yyparse_param_t* pparam, int& yychar) {
      bytes = 0;
      ptr   = 0;
+     sLastError = "";
  }

 Legend:



Removed from v.1245
 


changed lines


 
Added in v.1541
 Legend:



Removed from v.1245
 


changed lines


 
Added in v.1541
-Removed from v.1245
+Added in v.1541

	ViewVC Help
Powered by ViewVC