mirror of
https://github.com/cookiengineer/audacity
synced 2025-10-10 16:43:33 +02:00
Add support for aud-do command into Nyquist.
Examples: (aud-do "GetInfo") (aud-do "Select: Start=4 End=7")
This commit is contained in:
committed by
Paul Licameli
parent
e52552056a
commit
6236a9fb94
1
lib-src/libnyquist/nyquist/nyqsrc/audacityfnintdefs.h
Normal file
1
lib-src/libnyquist/nyquist/nyqsrc/audacityfnintdefs.h
Normal file
@@ -0,0 +1 @@
|
||||
extern LVAL xlc_aud_do(void);
|
1
lib-src/libnyquist/nyquist/nyqsrc/audacityfnintptrs.h
Normal file
1
lib-src/libnyquist/nyquist/nyqsrc/audacityfnintptrs.h
Normal file
@@ -0,0 +1 @@
|
||||
{ "AUD-DO", S, xlc_aud_do},
|
@@ -3,6 +3,7 @@
|
||||
/* CHANGE LOG
|
||||
* --------------------------------------------------------------------
|
||||
* 28Apr03 dm changes for portability and fix compiler warnings
|
||||
* 12Feb18 jkc added aud-do function, that is only available in Audacity.
|
||||
*/
|
||||
|
||||
#include "xlisp.h"
|
||||
@@ -53,3 +54,50 @@ void print_local_gc_info(void)
|
||||
max_sample_block_len) / 1024);
|
||||
stdputstr(buf);
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
/*--------------------Audacity Automation -------------------------*/
|
||||
/* These functions may later move to their own source file. */
|
||||
extern void * ExecForLisp( char * pIn );
|
||||
extern void * nyq_make_opaque_string( int size, unsigned char *src );
|
||||
|
||||
|
||||
void * nyq_make_opaque_string( int size, unsigned char *src ){
|
||||
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;
|
||||
}
|
||||
|
||||
/* xlc_aud_do -- interface to C routine aud_do */
|
||||
/**/
|
||||
LVAL xlc_aud_do(void)
|
||||
{
|
||||
// Based on string-trim...
|
||||
unsigned char *leftp,*rightp;
|
||||
LVAL src,dst;
|
||||
|
||||
/* get the string */
|
||||
src = xlgastring();
|
||||
xllastarg();
|
||||
|
||||
/* setup the string pointers */
|
||||
leftp = getstring(src);
|
||||
rightp = leftp + getslength(src) - 2;
|
||||
|
||||
// Go call my real function here...
|
||||
dst = (LVAL)ExecForLisp( leftp );
|
||||
|
||||
/* return the new string */
|
||||
return (dst);
|
||||
}
|
||||
|
||||
|
@@ -1,3 +1,4 @@
|
||||
/* include actual local file headers: */
|
||||
#include "sndfnintdefs.h"
|
||||
#include "seqfnintdefs.h"
|
||||
#include "audacityfnintdefs.h"
|
||||
|
@@ -2,8 +2,11 @@
|
||||
*
|
||||
* CHANGE LOG
|
||||
* 28-Apr-03 rbd Removed "include switches.h" -- already included
|
||||
* 12-Feb-18 jkc Added "include audacityfnintptrs.h" -- for internal Audacity commands
|
||||
*/
|
||||
|
||||
/* extension to xlisp */
|
||||
#include "sndfnintptrs.h"
|
||||
#include "seqfnintptrs.h"
|
||||
#include "audacityfnintptrs.h"
|
||||
|
||||
|
Reference in New Issue
Block a user