Nyquist.cpp File Reference

#include "Nyquist.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 "BasicUI.h"
#include "../EffectEditor.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 "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 "ProgressDialog.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.

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.

{
   ID_Editor = 10000,
   ID_Load,
   ID_Save,
 
   ID_Slider = 11000,
   ID_Text = 12000,
   ID_Choice = 13000,
   ID_Time = 14000,
   ID_FILE = 15000
};

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]

NyquistEffect::OnText NyquistEffect::OnTime EVT_COMMAND_RANGE	(	ID_FILE	,
		ID_FILE+	99,
		wxEVT_COMMAND_BUTTON_CLICKED	,
		NyquistEffect::OnFileButton
	)

Definition at line 138 of file Nyquist.cpp.

   : mIsPrompt{ fName == NYQUIST_PROMPT_ID }
{
   mOutputTrack[0] = mOutputTrack[1] = nullptr;
 
   mAction = XO("Applying Nyquist Effect...");
   mExternal = false;
   mCompiler = false;
   mTrace = false;
   mRedirectOutput = false;
   mDebug = false;
   mIsSal = false;
   mOK = false;
   mAuthor = XO("n/a");
   mReleaseVersion = XO("n/a");
   mCopyright = XO("n/a");
 
   // set clip/split handling when applying over clip boundary.
   mRestoreSplits = true;  // Default: Restore split lines.
   mMergeClips = -1;       // Default (auto):  Merge if length remains unchanged.
 
   mVersion = 4;
 
   mStop = false;
   mBreak = false;
   mCont = false;
   mIsTool = false;
 
   mMaxLen = NYQ_MAX_LEN;
 
   // Interactive Nyquist
   if (mIsPrompt) {
      mName = NYQUIST_PROMPT_NAME;
      mType = EffectTypeTool;
      mIsTool = true;
      mPromptName = mName;
      mPromptType = mType;
      mOK = true;
      return;
   }
 
   if (fName == NYQUIST_WORKER_ID) {
      // Effect spawned from Nyquist Prompt
/* i18n-hint: It is acceptable to translate this the same as for "Nyquist Prompt" */
      mName = XO("Nyquist Worker");
      return;
   }
 
   mFileName = fName;
   // Use the file name verbatim as effect name.
   // This is only a default name, overridden if we find a $name line:
   mName = Verbatim( mFileName.GetName() );
   mFileModified = mFileName.GetModificationTime();
   ParseFile();
 
   if (!mOK && mInitError.empty())
      mInitError = XO("Ill-formed Nyquist plug-in header");   
}

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

{
   auto string = UTF8CTOWX(getstring(xlgastring()));
#if !HAS_I18N_CONTEXTS
   // allow ignored context argument
   if ( moreargs() )
      nextarg();
#endif
   xllastarg();
   return cvstring(GetCustomTranslation(string).mb_str(wxConvUTF8));
}

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

{
#if HAS_I18N_CONTEXTS
   auto string = UTF8CTOWX(getstring(xlgastring()));
   auto context = UTF8CTOWX(getstring(xlgastring()));
   xllastarg();
   return cvstring(wxGetTranslation( string, "", 0, "", context )
      .mb_str(wxConvUTF8));
#else
   return gettext();
#endif
}

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

{
   auto string1 = UTF8CTOWX(getstring(xlgastring()));
   auto string2 = UTF8CTOWX(getstring(xlgastring()));
   auto number = getfixnum(xlgafixnum());
#if !HAS_I18N_CONTEXTS
   // allow ignored context argument
   if ( moreargs() )
      nextarg();
#endif
   xllastarg();
   return cvstring(
      wxGetTranslation(string1, string2, number).mb_str(wxConvUTF8));
}

References UTF8CTOWX.

Referenced by ngettextc(), and RegisterFunctions().

Here is the caller graph for this function:

ngettextc()

static LVAL ngettextc ( )

static

Definition at line 3512 of file Nyquist.cpp.

{
#if HAS_I18N_CONTEXTS
   auto string1 = UTF8CTOWX(getstring(xlgastring()));
   auto string2 = UTF8CTOWX(getstring(xlgastring()));
   auto number = getfixnum(xlgafixnum());
   auto context = UTF8CTOWX(getstring(xlgastring()));
   xllastarg();
   return cvstring(wxGetTranslation( string1, string2, number, "", context )
      .mb_str(wxConvUTF8));
#else
   return ngettext();
#endif
}

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

                                                             {
    LVAL dst;
    unsigned char * dstp;
    dst = new_string((int)(size+2));
    dstp = getstring(dst);
 
    /* copy the source to the destination */
    while (size-- > 0)
        *dstp++ = *src++;
    *dstp = '\0';
 
    return (void*)dst;
}

References size.

nyq_reformat_aud_do_response()

void * nyq_reformat_aud_do_response

(

const wxString &

Str

)

Definition at line 3541 of file Nyquist.cpp.

                                                          {
   LVAL dst;
   LVAL message;
   LVAL success;
   wxString Left = Str.BeforeLast('\n').BeforeLast('\n').ToAscii();
   wxString Right = Str.BeforeLast('\n').AfterLast('\n').ToAscii();
   message = cvstring(Left);
   success = Right.EndsWith("OK") ? s_true : nullptr;
   dst = cons(message, success);
   return (void *)dst;
}

Referenced by ExecForLisp().

Here is the caller graph for this function:

RegisterFunctions()

static void RegisterFunctions ( )

static

Definition at line 3579 of file Nyquist.cpp.

{
   // Add functions to XLisp.  Do this only once,
   // before the first call to nyx_init.
   static bool firstTime = true;
   if (firstTime) {
      firstTime = false;
 
      // All function names must be UP-CASED
      static const FUNDEF functions[] = {
         { "_", SUBR, gettext },
         { "_C", SUBR, gettextc },
         { "NGETTEXT", SUBR, ngettext },
         { "NGETTEXTC", SUBR, ngettextc },
         { "AUD-DO",  SUBR, xlc_aud_do },
       };
 
      xlbindfunctions( functions, WXSIZEOF( functions ) );
   }
}

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

{
// Based on string-trim...
    unsigned char *leftp;
    LVAL src,dst;
 
    /* get the string */
    src = xlgastring();
    xllastarg();
 
    /* setup the string pointer */
    leftp = getstring(src);
 
    // Go call my real function here...
    dst = (LVAL)ExecForLisp( (char *)leftp );
 
    //dst = cons(dst, (LVAL)1);
    /* return the new string */
    return (dst);
}

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

Definition at line 132 of file Nyquist.cpp.

Referenced by NyquistEffect::BuildEffectWindow(), NyquistEffect::OnFileButton(), NyquistEffect::OnSlider(), and NyquistEffect::OnText().

ID_Time

ID_Time = 14000

Definition at line 136 of file Nyquist.cpp.

Referenced by NyquistEffect::BuildEffectWindow(), NyquistEffect::OnTime(), NyquistEffect::TransferDataFromEffectWindow(), and NyquistEffect::TransferDataToEffectWindow().

KEY_Command

const wxChar* KEY_Command = wxT("Command")

static

Definition at line 117 of file Nyquist.cpp.

Referenced by NyquistEffect::DoLoadSettings(), NyquistEffect::SaveSettings(), and NyquistEffect::VisitSettings().

KEY_Parameters

const wxChar* KEY_Parameters = wxT("Parameters")

static

Definition at line 118 of file Nyquist.cpp.

Referenced by NyquistEffect::DoLoadSettings(), NyquistEffect::SaveSettings(), and NyquistEffect::VisitSettings().

LispScripts

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

static

Definition at line 3081 of file Nyquist.cpp.

NyquistScripts

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

static

Definition at line 3079 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::Editor::PopulateUI(), and NumericTextCtrl::Updated().