NyquistBase.cpp File Reference

#include "NyquistBase.h"
#include "BasicUI.h"
#include "EffectManager.h"
#include "EffectOutputTracks.h"
#include "FileNames.h"
#include "LabelTrack.h"
#include "Languages.h"
#include "NoteTrack.h"
#include "PlatformCompatibility.h"
#include "PluginManager.h"
#include "Prefs.h"
#include "Project.h"
#include "ProjectRate.h"
#include "ShuttleAutomation.h"
#include "SpectrogramSettings.h"
#include "SyncLock.h"
#include "TempDirectory.h"
#include "TimeTrack.h"
#include "TimeWarper.h"
#include "ViewInfo.h"
#include "WaveChannelUtilities.h"
#include "WaveClip.h"
#include "WaveTrack.h"
#include "wxFileNameWrapper.h"
#include "nyquist/xlisp/xlisp.h"
#include "nyx.h"
#include <cfloat>
#include <cstring>
#include <iostream>
#include <wx/log.h>
#include <wx/numformatter.h>
#include <wx/sstream.h>
#include <wx/tokenzr.h>
#include <wx/txtstrm.h>
#include <wx/wfstream.h>

Include dependency graph for NyquistBase.cpp:

Go to the source code of this file.

Classes
struct	NyquistBase::NyxContext

Namespaces
namespace	anonymous_namespace{NyquistBase.cpp}

Macros
#define	NYQ_MAX_LEN   (std::numeric_limits<int64_t>::max())

Functions
static void	RegisterFunctions ()
wxString	anonymous_namespace{NyquistBase.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)
void *	ExecForLisp (char *pIn)
LVAL	xlc_aud_do (void)

Variables
static const wxChar *	KEY_Command = wxT("Command")
static const wxChar *	KEY_Parameters = wxT("Parameters")

Macro Definition Documentation

NYQ_MAX_LEN

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

Definition at line 51 of file NyquistBase.cpp.

Function Documentation

ExecForLisp()

void * ExecForLisp

(

char *

pIn

)

Definition at line 2939 of file NyquistBase.cpp.

{
   wxString Str1(pIn);
   wxString Str2;
 
   NyquistBase::ExecFromMainHook::Call(&Str1, &Str2);
 
   return nyq_reformat_aud_do_response(Str2);
}

References GlobalHook< ExecFromMainHook, void(wxString *pIn, wxString *pOut)>::Call(), nyq_reformat_aud_do_response(), and Str2.

Referenced by xlc_aud_do().

Here is the call graph for this function:

Here is the caller graph for this function:

gettext()

static LVAL gettext ( )

static

Definition at line 2856 of file NyquistBase.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 2868 of file NyquistBase.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 2881 of file NyquistBase.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 2896 of file NyquistBase.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 2911 of file NyquistBase.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 2926 of file NyquistBase.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 2972 of file NyquistBase.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 NyquistBase::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 2951 of file NyquistBase.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

KEY_Command

const wxChar* KEY_Command = wxT("Command")

static

Definition at line 53 of file NyquistBase.cpp.

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

KEY_Parameters

const wxChar* KEY_Parameters = wxT("Parameters")

static

Definition at line 54 of file NyquistBase.cpp.

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