Audacity 3.2.0
Classes | Namespaces | Macros | Enumerations | Functions | Variables
Nyquist.cpp File Reference
#include "Nyquist.h"
#include "EffectOutputTracks.h"
#include <algorithm>
#include <cmath>
#include <cstring>
#include <locale.h>
#include <wx/checkbox.h>
#include <wx/choice.h>
#include <wx/datetime.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 "../../LabelTrack.h"
#include "NoteTrack.h"
#include "../../ShuttleGetDefinition.h"
#include "../../prefs/GUIPrefs.h"
#include "../../prefs/SpectrogramSettings.h"
#include "../../tracks/playabletrack/wavetrack/ui/WaveChannelView.h"
#include "../../tracks/playabletrack/wavetrack/ui/WaveChannelViewConstants.h"
#include "../../widgets/NumericTextCtrl.h"
#include "../../widgets/valnum.h"
#include "../EffectEditor.h"
#include "../EffectManager.h"
#include "AudacityMessageBox.h"
#include "BasicUI.h"
#include "FileNames.h"
#include "Languages.h"
#include "PluginManager.h"
#include "Prefs.h"
#include "ProgressDialog.h"
#include "Project.h"
#include "ProjectRate.h"
#include "ShuttleAutomation.h"
#include "ShuttleGui.h"
#include "SyncLock.h"
#include "TempDirectory.h"
#include "TimeTrack.h"
#include "TimeWarper.h"
#include "ViewInfo.h"
#include "WaveClip.h"
#include "WaveTrack.h"
#include "wxFileNameWrapper.h"
#include "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.

Classes

struct  NyquistEffect::NyxContext
 

Namespaces

namespace  anonymous_namespace{Nyquist.cpp}
 

Macros

#define NYQUIST_WORKER_ID   wxT("Nyquist Worker")
 
#define NYQ_MAX_LEN   (std::numeric_limits<int64_t>::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 ()
 
wxString anonymous_namespace{Nyquist.cpp}::GetClipBoundaries (const Track *t)
 
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<int64_t>::max())

Definition at line 115 of file Nyquist.cpp.

◆ NYQUIST_WORKER_ID

#define NYQUIST_WORKER_ID   wxT("Nyquist Worker")

Definition at line 97 of file Nyquist.cpp.

◆ UNINITIALIZED_CONTROL

#define UNINITIALIZED_CONTROL   ((double)99999999.99)

Definition at line 117 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 101 of file Nyquist.cpp.

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

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 140 of file Nyquist.cpp.

145 : mIsPrompt{ fName == NYQUIST_PROMPT_ID }
146{
147 mAction = XO("Applying Nyquist Effect...");
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 (mIsPrompt) {
174 mName = NYQUIST_PROMPT_NAME;
175 mType = EffectTypeTool;
176 mIsTool = true;
177 mPromptName = mName;
178 mPromptType = mType;
179 mOK = true;
180 return;
181 }
182
183 if (fName == NYQUIST_WORKER_ID) {
184 // Effect spawned from Nyquist Prompt
185/* i18n-hint: It is acceptable to translate this the same as for "Nyquist Prompt" */
186 mName = XO("Nyquist Worker");
187 return;
188 }
189
190 mFileName = fName;
191 // Use the file name verbatim as effect name.
192 // This is only a default name, overridden if we find a $name line:
193 mName = Verbatim( mFileName.GetName() );
194 mFileModified = mFileName.GetModificationTime();
195 ParseFile();
196
197 if (!mOK && mInitError.empty())
198 mInitError = XO("Ill-formed Nyquist plug-in header");
199}
@ EffectTypeTool
XO("Cut/Copy/Paste")
#define NYQUIST_WORKER_ID
Definition: Nyquist.cpp:97
#define NYQ_MAX_LEN
Definition: Nyquist.cpp:115
#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 NYQUIST_PROMPT_ID.

◆ 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 3509 of file Nyquist.cpp.

3510{
3511 auto string = UTF8CTOWX(getstring(xlgastring()));
3512#if !HAS_I18N_CONTEXTS
3513 // allow ignored context argument
3514 if ( moreargs() )
3515 nextarg();
3516#endif
3517 xllastarg();
3518 return cvstring(GetCustomTranslation(string).mb_str(wxConvUTF8));
3519}
STRINGS_API const wxString & GetCustomTranslation(const wxString &str1)
Definition: Internat.cpp:70
#define UTF8CTOWX(X)
Definition: Internat.h:157

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 3521 of file Nyquist.cpp.

3522{
3523#if HAS_I18N_CONTEXTS
3524 auto string = UTF8CTOWX(getstring(xlgastring()));
3525 auto context = UTF8CTOWX(getstring(xlgastring()));
3526 xllastarg();
3527 return cvstring(wxGetTranslation( string, "", 0, "", context )
3528 .mb_str(wxConvUTF8));
3529#else
3530 return gettext();
3531#endif
3532}
static LVAL gettext()
Definition: Nyquist.cpp:3509

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 3534 of file Nyquist.cpp.

3535{
3536 auto string1 = UTF8CTOWX(getstring(xlgastring()));
3537 auto string2 = UTF8CTOWX(getstring(xlgastring()));
3538 auto number = getfixnum(xlgafixnum());
3539#if !HAS_I18N_CONTEXTS
3540 // allow ignored context argument
3541 if ( moreargs() )
3542 nextarg();
3543#endif
3544 xllastarg();
3545 return cvstring(
3546 wxGetTranslation(string1, string2, number).mb_str(wxConvUTF8));
3547}

References UTF8CTOWX.

Referenced by ngettextc(), and RegisterFunctions().

Here is the caller graph for this function:

◆ ngettextc()

static LVAL ngettextc ( )
static

Definition at line 3549 of file Nyquist.cpp.

3550{
3551#if HAS_I18N_CONTEXTS
3552 auto string1 = UTF8CTOWX(getstring(xlgastring()));
3553 auto string2 = UTF8CTOWX(getstring(xlgastring()));
3554 auto number = getfixnum(xlgafixnum());
3555 auto context = UTF8CTOWX(getstring(xlgastring()));
3556 xllastarg();
3557 return cvstring(wxGetTranslation( string1, string2, number, "", context )
3558 .mb_str(wxConvUTF8));
3559#else
3560 return ngettext();
3561#endif
3562}
static LVAL ngettext()
Definition: Nyquist.cpp:3534

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 3564 of file Nyquist.cpp.

3564 {
3565 LVAL dst;
3566 unsigned char * dstp;
3567 dst = new_string((int)(size+2));
3568 dstp = getstring(dst);
3569
3570 /* copy the source to the destination */
3571 while (size-- > 0)
3572 *dstp++ = *src++;
3573 *dstp = '\0';
3574
3575 return (void*)dst;
3576}

References size.

◆ nyq_reformat_aud_do_response()

void * nyq_reformat_aud_do_response ( const wxString &  Str)

Definition at line 3578 of file Nyquist.cpp.

3578 {
3579 LVAL dst;
3580 LVAL message;
3581 LVAL success;
3582 wxString Left = Str.BeforeLast('\n').BeforeLast('\n').ToAscii();
3583 wxString Right = Str.BeforeLast('\n').AfterLast('\n').ToAscii();
3584 message = cvstring(Left);
3585 success = Right.EndsWith("OK") ? s_true : nullptr;
3586 dst = cons(message, success);
3587 return (void *)dst;
3588}

Referenced by ExecForLisp().

Here is the caller graph for this function:

◆ RegisterFunctions()

static void RegisterFunctions ( )
static

Definition at line 3616 of file Nyquist.cpp.

3617{
3618 // Add functions to XLisp. Do this only once,
3619 // before the first call to nyx_init.
3620 static bool firstTime = true;
3621 if (firstTime) {
3622 firstTime = false;
3623
3624 // All function names must be UP-CASED
3625 static const FUNDEF functions[] = {
3626 { "_", SUBR, gettext },
3627 { "_C", SUBR, gettextc },
3628 { "NGETTEXT", SUBR, ngettext },
3629 { "NGETTEXTC", SUBR, ngettextc },
3630 { "AUD-DO", SUBR, xlc_aud_do },
3631 };
3632
3633 xlbindfunctions( functions, WXSIZEOF( functions ) );
3634 }
3635}
static LVAL gettextc()
Definition: Nyquist.cpp:3521
LVAL xlc_aud_do(void)
Definition: Nyquist.cpp:3595
static LVAL ngettextc()
Definition: Nyquist.cpp:3549

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 3595 of file Nyquist.cpp.

3596{
3597// Based on string-trim...
3598 unsigned char *leftp;
3599 LVAL src,dst;
3600
3601 /* get the string */
3602 src = xlgastring();
3603 xllastarg();
3604
3605 /* setup the string pointer */
3606 leftp = getstring(src);
3607
3608 // Go call my real function here...
3609 dst = (LVAL)ExecForLisp( (char *)leftp );
3610
3611 //dst = cons(dst, (LVAL)1);
3612 /* return the new string */
3613 return (dst);
3614}
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 3118 of file Nyquist.cpp.

◆ NyquistScripts

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

Definition at line 3116 of file Nyquist.cpp.

◆ wxEVT_COMMAND_TEXT_UPDATED

NyquistEffect::OnText wxEVT_COMMAND_TEXT_UPDATED

Definition at line 135 of file Nyquist.cpp.

Referenced by LadspaEditor::PopulateUI(), and NumericTextCtrl::Updated().