Autres/audacity
1
0
Fork 0
mirror of https://github.com/cookiengineer/audacity synced 2025-06-16 08:09:32 +02:00
Code Issues Releases Wiki Activity

Bug 101 - Nyquist implementation: (dribble [fname]) function

Browse Source
This commit is contained in:
Leland Lucius 2021-01-29 06:54:49 -06:00
parent 52bde299aa
commit 9fee0d1c19
1 changed files with 16 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lib-src/libnyquist/nyx.c
View File

@ -863,7 +863,10 @@ nyx_rval nyx_eval_expression(const char *expr_string)
expr = NULL; expr = NULL;
// Simulate the prompt // Simulate the prompt
stdputstr("> "); if (tfp) {
ostputc('>');
ostputc(' ');
}
// Read an expression // Read an expression
if (!xlread(getvalue(s_stdin), &expr, FALSE)) { if (!xlread(getvalue(s_stdin), &expr, FALSE)) {
@ -871,7 +874,9 @@ nyx_rval nyx_eval_expression(const char *expr_string)
} }
// Simulate the prompt // Simulate the prompt
if (tfp) {
ostputc('\n'); ostputc('\n');
}
#if 0 #if 0
/* save the input expression (so the user can refer to it /* save the input expression (so the user can refer to it
@ -883,8 +888,10 @@ nyx_rval nyx_eval_expression(const char *expr_string)
nyx_result = xleval(expr); nyx_result = xleval(expr);
// Print it // Print it
if (tfp) {
stdprint(nyx_result); stdprint(nyx_result);
} }
}
// This will unwind the xlisp context and restore internals to a point just // This will unwind the xlisp context and restore internals to a point just
// before we issued our xlbegin() above. This is important since the internal // before we issued our xlbegin() above. This is important since the internal
@ -1213,14 +1220,18 @@ int ostgetc()
{ {
if (nyx_expr_pos < nyx_expr_len) { if (nyx_expr_pos < nyx_expr_len) {
fflush(stdout); fflush(stdout);
if (tfp && nyx_expr_string[nyx_expr_pos] != '\n') {
ostputc(nyx_expr_string[nyx_expr_pos]); ostputc(nyx_expr_string[nyx_expr_pos]);
}
return (nyx_expr_string[nyx_expr_pos++]); return (nyx_expr_string[nyx_expr_pos++]);
} }
else if (nyx_expr_pos == nyx_expr_len) { else if (nyx_expr_pos == nyx_expr_len) {
/* Add whitespace at the end so that the parser /* Add whitespace at the end so that the parser
knows that this is the end of the expression */ knows that this is the end of the expression */
nyx_expr_pos++; nyx_expr_pos++;
if (tfp) {
ostputc('\n'); ostputc('\n');
}
return '\n'; return '\n';
} }