Autres/audacity
1
0
Fork 0
mirror of https://github.com/cookiengineer/audacity synced 2025-10-21 14:02:57 +02:00
Code Issues Releases Wiki Activity

Make AUD-DO return a cons.

Browse Source 
This is simple parsing of the response from AUD-DO.  The first part is the string message, the second 1 or NIL depending on if scripting reported OK or not.  Note that illegal scripting options often don't produce a 'Failed' but are silently substituted with valid ones.
This commit is contained in:
James Crook
2018-08-24 18:45:09 +01:00
parent 9b84deb43b
commit 66df5786de
2 changed files with 19 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/commands/ScriptCommandRelay.cpp
View File

@@ -141,6 +141,8 @@ int ExecCommand2(wxString *pIn, wxString *pOut)
// The void * return is actually a Lisp LVAL and will be cast to such as needed.
extern void * ExecForLisp( char * pIn );
extern void * nyq_make_opaque_string( int size, unsigned char *src );
extern void * nyq_reformat_aud_do_response(const wxString & Str);
void * ExecForLisp( char * pIn ){
wxString Str1( pIn );
@@ -148,11 +150,11 @@ void * ExecForLisp( char * pIn ){
ExecCommand2( &Str1, &Str2 );
// wxString provides a const char *
const char * pStr = static_cast<const char*>(Str2);
//const char * pStr = static_cast<const char*>(Str2);
// We'll be passing it as a non-const unsigned char *
// That 'unsafe' cast is actually safe. nyq_make_opaque_string is just copying the string.
void * pResult = nyq_make_opaque_string( Str2.Length(), (unsigned char *)pStr );
void * pResult = nyq_reformat_aud_do_response( Str2 );
return pResult;
};