Audacity 3.2.0
Macros | Enumerations | Functions | Variables
Nyquist.cpp File Reference
#include "Nyquist.h"
#include <algorithm>
#include <cmath>
#include <cstring>
#include <locale.h>
#include <wx/button.h>
#include <wx/checkbox.h>
#include <wx/choice.h>
#include <wx/datetime.h>
#include <wx/intl.h>
#include <wx/log.h>
#include <wx/scrolwin.h>
#include <wx/sizer.h>
#include <wx/slider.h>
#include <wx/sstream.h>
#include <wx/stattext.h>
#include <wx/textdlg.h>
#include <wx/tokenzr.h>
#include <wx/txtstrm.h>
#include <wx/valgen.h>
#include <wx/wfstream.h>
#include <wx/numformatter.h>
#include <wx/stdpaths.h>
#include "../EffectManager.h"
#include "FileNames.h"
#include "../../LabelTrack.h"
#include "Languages.h"
#include "../../NoteTrack.h"
#include "../../TimeTrack.h"
#include "../../prefs/SpectrogramSettings.h"
#include "PluginManager.h"
#include "Project.h"
#include "ProjectRate.h"
#include "../../ShuttleAutomation.h"
#include "../../ShuttleGetDefinition.h"
#include "../../ShuttleGui.h"
#include "TempDirectory.h"
#include "SyncLock.h"
#include "ViewInfo.h"
#include "../../WaveClip.h"
#include "../../WaveTrack.h"
#include "../../widgets/valnum.h"
#include "../../widgets/AudacityMessageBox.h"
#include "Prefs.h"
#include "wxFileNameWrapper.h"
#include "../../prefs/GUIPrefs.h"
#include "../../tracks/playabletrack/wavetrack/ui/WaveTrackView.h"
#include "../../tracks/playabletrack/wavetrack/ui/WaveTrackViewConstants.h"
#include "../../widgets/NumericTextCtrl.h"
#include "../../widgets/ProgressDialog.h"
#include "../../widgets/FileDialog/FileDialog.h"
#include <iostream>
#include <ostream>
#include <sstream>
#include <float.h>
#include "../../../lib-src/libnyquist/nyquist/xlisp/xlisp.h"
#include "../../commands/ScriptCommandRelay.h"

Go to the source code of this file.

Macros

#define NYQUIST_WORKER_ID   wxT("Nyquist Worker")
 
#define NYQ_MAX_LEN   (std::numeric_limits<long>::max())
 
#define UNINITIALIZED_CONTROL   ((double)99999999.99)
 

Enumerations

enum  {
  ID_Editor = 10000 , ID_Load , ID_Save , ID_Slider = 11000 ,
  ID_Choice = 13000 , ID_FILE = 15000
}
 

Functions

 EVT_COMMAND_RANGE (ID_Slider, ID_Slider+99, wxEVT_COMMAND_SLIDER_UPDATED, NyquistEffect::OnSlider) EVT_COMMAND_RANGE(ID_Text
 
NyquistEffect::OnText EVT_COMMAND_RANGE (ID_Choice, ID_Choice+99, wxEVT_COMMAND_CHOICE_SELECTED, NyquistEffect::OnChoice) EVT_COMMAND_RANGE(ID_Time
 
NyquistEffect::OnText NyquistEffect::OnTime EVT_COMMAND_RANGE (ID_FILE, ID_FILE+99, wxEVT_COMMAND_BUTTON_CLICKED, NyquistEffect::OnFileButton) NyquistEffect
 
static void RegisterFunctions ()
 
static LVAL gettext ()
 
static LVAL gettextc ()
 
static LVAL ngettext ()
 
static LVAL ngettextc ()
 
void * nyq_make_opaque_string (int size, unsigned char *src)
 
void * nyq_reformat_aud_do_response (const wxString &Str)
 
LVAL xlc_aud_do (void)
 

Variables

static const wxChar * KEY_Command = wxT("Command")
 
static const wxChar * KEY_Parameters = wxT("Parameters")
 
 ID_Text = 12000
 
 wxEVT_COMMAND_TEXT_UPDATED
 
NyquistEffect::OnText ID_Time = 14000
 
static const FileNames::FileType NyquistScripts = { XO("Nyquist scripts"), { wxT("ny") }, true }
 
static const FileNames::FileType LispScripts = { XO("Lisp scripts"), { wxT("lsp") }, true }
 

Macro Definition Documentation

◆ NYQ_MAX_LEN

#define NYQ_MAX_LEN   (std::numeric_limits<long>::max())

Definition at line 113 of file Nyquist.cpp.

◆ NYQUIST_WORKER_ID

#define NYQUIST_WORKER_ID   wxT("Nyquist Worker")

Definition at line 95 of file Nyquist.cpp.

◆ UNINITIALIZED_CONTROL

#define UNINITIALIZED_CONTROL   ((double)99999999.99)

Definition at line 115 of file Nyquist.cpp.

Enumeration Type Documentation

◆ anonymous enum

anonymous enum
Enumerator
ID_Editor 
ID_Load 
ID_Save 
ID_Slider 
ID_Choice 
ID_FILE 

Definition at line 99 of file Nyquist.cpp.

100{
101 ID_Editor = 10000,
102 ID_Load,
103 ID_Save,
104
105 ID_Slider = 11000,
106 ID_Text = 12000,
107 ID_Choice = 13000,
108 ID_Time = 14000,
109 ID_FILE = 15000
110};
@ ID_Editor
Definition: Nyquist.cpp:101
@ ID_Load
Definition: Nyquist.cpp:102
@ ID_FILE
Definition: Nyquist.cpp:109
@ ID_Choice
Definition: Nyquist.cpp:107
@ ID_Slider
Definition: Nyquist.cpp:105
@ ID_Save
Definition: Nyquist.cpp:103
ID_Text
Definition: Nyquist.cpp:132
NyquistEffect::OnText ID_Time
Definition: Nyquist.cpp:136

Function Documentation

◆ EVT_COMMAND_RANGE() [1/3]

NyquistEffect::OnText EVT_COMMAND_RANGE ( ID_Choice  ,
ID_Choice 99,
wxEVT_COMMAND_CHOICE_SELECTED  ,
NyquistEffect::OnChoice   
)

◆ EVT_COMMAND_RANGE() [2/3]

Definition at line 138 of file Nyquist.cpp.

143{
144 mOutputTrack[0] = mOutputTrack[1] = nullptr;
145
146 mAction = XO("Applying Nyquist Effect...");
147 mIsPrompt = false;
148 mExternal = false;
149 mCompiler = false;
150 mTrace = false;
151 mRedirectOutput = false;
152 mDebug = false;
153 mIsSal = false;
154 mOK = false;
155 mAuthor = XO("n/a");
156 mReleaseVersion = XO("n/a");
157 mCopyright = XO("n/a");
158
159 // set clip/split handling when applying over clip boundary.
160 mRestoreSplits = true; // Default: Restore split lines.
161 mMergeClips = -1; // Default (auto): Merge if length remains unchanged.
162
163 mVersion = 4;
164
165 mStop = false;
166 mBreak = false;
167 mCont = false;
168 mIsTool = false;
169
170 mMaxLen = NYQ_MAX_LEN;
171
172 // Interactive Nyquist
173 if (fName == NYQUIST_PROMPT_ID) {
174 mName = NYQUIST_PROMPT_NAME;
175 mType = EffectTypeTool;
176 mIsTool = true;
177 mPromptName = mName;
178 mPromptType = mType;
179 mOK = true;
180 mIsPrompt = true;
181 return;
182 }
183
184 if (fName == NYQUIST_WORKER_ID) {
185 // Effect spawned from Nyquist Prompt
186/* i18n-hint: It is acceptable to translate this the same as for "Nyquist Prompt" */
187 mName = XO("Nyquist Worker");
188 return;
189 }
190
191 mFileName = fName;
192 // Use the file name verbatim as effect name.
193 // This is only a default name, overridden if we find a $name line:
194 mName = Verbatim( mFileName.GetName() );
195 mFileModified = mFileName.GetModificationTime();
196 ParseFile();
197
198 if (!mOK && mInitError.empty())
199 mInitError = XO("Ill-formed Nyquist plug-in header");
200}
@ EffectTypeTool
#define XO(s)
Definition: Internat.h:31
#define NYQUIST_WORKER_ID
Definition: Nyquist.cpp:95
#define NYQ_MAX_LEN
Definition: Nyquist.cpp:113
#define NYQUIST_PROMPT_ID
#define NYQUIST_PROMPT_NAME
TranslatableString Verbatim(wxString str)
Require calls to the one-argument constructor to go through this distinct global function name.

References EffectTypeTool, NYQ_MAX_LEN, NYQUIST_PROMPT_ID, NYQUIST_PROMPT_NAME, NYQUIST_WORKER_ID, Verbatim(), and XO.

Here is the call graph for this function:

◆ EVT_COMMAND_RANGE() [3/3]

EVT_COMMAND_RANGE ( ID_Slider  ,
ID_Slider 99,
wxEVT_COMMAND_SLIDER_UPDATED  ,
NyquistEffect::OnSlider   
)

◆ gettext()

static LVAL gettext ( )
static

Definition at line 3441 of file Nyquist.cpp.

3442{
3443 auto string = UTF8CTOWX(getstring(xlgastring()));
3444#if !HAS_I18N_CONTEXTS
3445 // allow ignored context argument
3446 if ( moreargs() )
3447 nextarg();
3448#endif
3449 xllastarg();
3450 return cvstring(GetCustomTranslation(string).mb_str(wxConvUTF8));
3451}
STRINGS_API const wxString & GetCustomTranslation(const wxString &str1)
Definition: Internat.cpp:71
#define UTF8CTOWX(X)
Definition: Internat.h:159

References GetCustomTranslation(), and UTF8CTOWX.

Referenced by gettextc(), and RegisterFunctions().

Here is the call graph for this function:
Here is the caller graph for this function:

◆ gettextc()

static LVAL gettextc ( )
static

Definition at line 3453 of file Nyquist.cpp.

3454{
3455#if HAS_I18N_CONTEXTS
3456 auto string = UTF8CTOWX(getstring(xlgastring()));
3457 auto context = UTF8CTOWX(getstring(xlgastring()));
3458 xllastarg();
3459 return cvstring(wxGetTranslation( string, "", 0, "", context )
3460 .mb_str(wxConvUTF8));
3461#else
3462 return gettext();
3463#endif
3464}
static LVAL gettext()
Definition: Nyquist.cpp:3441

References gettext(), and UTF8CTOWX.

Referenced by RegisterFunctions().

Here is the call graph for this function:
Here is the caller graph for this function:

◆ ngettext()

static LVAL ngettext ( )
static

Definition at line 3466 of file Nyquist.cpp.

3467{
3468 auto string1 = UTF8CTOWX(getstring(xlgastring()));
3469 auto string2 = UTF8CTOWX(getstring(xlgastring()));
3470 auto number = getfixnum(xlgafixnum());
3471#if !HAS_I18N_CONTEXTS
3472 // allow ignored context argument
3473 if ( moreargs() )
3474 nextarg();
3475#endif
3476 xllastarg();
3477 return cvstring(
3478 wxGetTranslation(string1, string2, number).mb_str(wxConvUTF8));
3479}

References UTF8CTOWX.

Referenced by ngettextc(), and RegisterFunctions().

Here is the caller graph for this function:

◆ ngettextc()

static LVAL ngettextc ( )
static

Definition at line 3481 of file Nyquist.cpp.

3482{
3483#if HAS_I18N_CONTEXTS
3484 auto string1 = UTF8CTOWX(getstring(xlgastring()));
3485 auto string2 = UTF8CTOWX(getstring(xlgastring()));
3486 auto number = getfixnum(xlgafixnum());
3487 auto context = UTF8CTOWX(getstring(xlgastring()));
3488 xllastarg();
3489 return cvstring(wxGetTranslation( string1, string2, number, "", context )
3490 .mb_str(wxConvUTF8));
3491#else
3492 return ngettext();
3493#endif
3494}
static LVAL ngettext()
Definition: Nyquist.cpp:3466

References ngettext(), and UTF8CTOWX.

Referenced by RegisterFunctions().

Here is the call graph for this function:
Here is the caller graph for this function:

◆ nyq_make_opaque_string()

void * nyq_make_opaque_string ( int  size,
unsigned char *  src 
)

Definition at line 3496 of file Nyquist.cpp.

3496 {
3497 LVAL dst;
3498 unsigned char * dstp;
3499 dst = new_string((int)(size+2));
3500 dstp = getstring(dst);
3501
3502 /* copy the source to the destination */
3503 while (size-- > 0)
3504 *dstp++ = *src++;
3505 *dstp = '\0';
3506
3507 return (void*)dst;
3508}

References size.

◆ nyq_reformat_aud_do_response()

void * nyq_reformat_aud_do_response ( const wxString &  Str)

Definition at line 3510 of file Nyquist.cpp.

3510 {
3511 LVAL dst;
3512 LVAL message;
3513 LVAL success;
3514 wxString Left = Str.BeforeLast('\n').BeforeLast('\n').ToAscii();
3515 wxString Right = Str.BeforeLast('\n').AfterLast('\n').ToAscii();
3516 message = cvstring(Left);
3517 success = Right.EndsWith("OK") ? s_true : nullptr;
3518 dst = cons(message, success);
3519 return (void *)dst;
3520}

Referenced by ExecForLisp().

Here is the caller graph for this function:

◆ RegisterFunctions()

static void RegisterFunctions ( )
static

Definition at line 3548 of file Nyquist.cpp.

3549{
3550 // Add functions to XLisp. Do this only once,
3551 // before the first call to nyx_init.
3552 static bool firstTime = true;
3553 if (firstTime) {
3554 firstTime = false;
3555
3556 // All function names must be UP-CASED
3557 static const FUNDEF functions[] = {
3558 { "_", SUBR, gettext },
3559 { "_C", SUBR, gettextc },
3560 { "NGETTEXT", SUBR, ngettext },
3561 { "NGETTEXTC", SUBR, ngettextc },
3562 { "AUD-DO", SUBR, xlc_aud_do },
3563 };
3564
3565 xlbindfunctions( functions, WXSIZEOF( functions ) );
3566 }
3567}
static LVAL gettextc()
Definition: Nyquist.cpp:3453
LVAL xlc_aud_do(void)
Definition: Nyquist.cpp:3527
static LVAL ngettextc()
Definition: Nyquist.cpp:3481

References gettext(), gettextc(), ngettext(), ngettextc(), and xlc_aud_do().

Referenced by NyquistEffect::Process().

Here is the call graph for this function:
Here is the caller graph for this function:

◆ xlc_aud_do()

LVAL xlc_aud_do ( void  )

Definition at line 3527 of file Nyquist.cpp.

3528{
3529// Based on string-trim...
3530 unsigned char *leftp;
3531 LVAL src,dst;
3532
3533 /* get the string */
3534 src = xlgastring();
3535 xllastarg();
3536
3537 /* setup the string pointer */
3538 leftp = getstring(src);
3539
3540 // Go call my real function here...
3541 dst = (LVAL)ExecForLisp( (char *)leftp );
3542
3543 //dst = cons(dst, (LVAL)1);
3544 /* return the new string */
3545 return (dst);
3546}
void * ExecForLisp(char *pIn)

References ExecForLisp().

Referenced by RegisterFunctions().

Here is the call graph for this function:
Here is the caller graph for this function:

Variable Documentation

◆ ID_Text

ID_Text = 12000

◆ ID_Time

ID_Time = 14000

◆ KEY_Command

const wxChar* KEY_Command = wxT("Command")
static

◆ KEY_Parameters

const wxChar* KEY_Parameters = wxT("Parameters")
static

◆ LispScripts

const FileNames::FileType LispScripts = { XO("Lisp scripts"), { wxT("lsp") }, true }
static

Definition at line 3050 of file Nyquist.cpp.

◆ NyquistScripts

const FileNames::FileType NyquistScripts = { XO("Nyquist scripts"), { wxT("ny") }, true }
static

Definition at line 3048 of file Nyquist.cpp.

◆ wxEVT_COMMAND_TEXT_UPDATED

NyquistEffect::OnText wxEVT_COMMAND_TEXT_UPDATED

Definition at line 133 of file Nyquist.cpp.

Referenced by LadspaEffect::Validator::PopulateUI(), and NumericTextCtrl::Updated().