Autres/audacity
1
0
Fork 0
mirror of https://github.com/cookiengineer/audacity synced 2025-10-21 06:01:13 +02:00
Code Issues Releases Wiki Activity

Update Nyquist to v3.09.

Browse Source
This commit is contained in:
Leland Lucius
2015-04-07 22:10:17 -05:00
parent f88b27e6d8
commit 9fb0ce5b82
358 changed files with 26327 additions and 7043 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
lib-src/libnyquist/nyquist/xlisp/xlfio.c
View File

@@ -19,13 +19,13 @@
/* do some sanity checking: */
#ifndef XL_BIG_ENDIAN
#ifndef XL_LITTLE_ENDIAN
configuration error -- either XL_BIG_ or XL_LITTLE_ENDIAN must be defined
#error configuration error -- either XL_BIG_ or XL_LITTLE_ENDIAN must be defined
in xlisp.h
#endif
#endif
#ifdef XL_BIG_ENDIAN
#ifdef XL_LITTLE_ENDIAN
configuration error -- both XL_BIG_ and XL_LITTLE_ENDIAN are defined!
#error configuration error -- both XL_BIG_ and XL_LITTLE_ENDIAN are defined!
#endif
#endif
@@ -655,7 +655,7 @@ LVAL xformat(void)
case '\n':
case '\r':
/* mac may read \r -- this should be ignored */
if (*fmt == '\r') *fmt++;
if (*fmt == '\r') fmt++;
while (*fmt && *fmt != '\n' && isspace(*fmt))
++fmt;
break;
@@ -699,17 +699,17 @@ LOCAL LVAL getstroutput(LVAL stream)
LVAL xlistdir(void)
{
char *path;
const char *path;
LVAL result = NULL;
LVAL *tail;
/* get the path */
/* get the path, converting unsigned char * to char * */
path = (char *)getstring(xlgetfname());
/* try to start listing */
if (osdir_list_start(path)) {
char *filename;
const char *filename;
xlsave1(result);
tail = &result;
while (filename = osdir_list_next()) {
while ((filename = osdir_list_next())) {
*tail = cons(NIL, NIL);
rplaca(*tail, cvstring(filename));
tail = &cdr(*tail);