diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix prompt in silent mode (obs from Tony Wilson)

Browse Source
This commit is contained in:
Vitor Santos Costa 2008-12-22 12:44:49 +00:00
parent 915ae47d18
commit 7598b56c38
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
C/iopreds.c
View File

@ -1550,13 +1550,17 @@ ConsoleGetc(int sno)
int ch; int ch;
restart: restart:
/* keep the prompt around, just in case, but don't actually
show it in silent mode */
if (newline) { if (newline) {
if (!yap_flags[QUIET_MODE_FLAG]) {
char *cptr = Prompt, ch; char *cptr = Prompt, ch;
/* use the default routine */ /* use the default routine */
while ((ch = *cptr++) != '\0') { while ((ch = *cptr++) != '\0') {
Stream[StdErrStream].stream_putc(StdErrStream, ch); Stream[StdErrStream].stream_putc(StdErrStream, ch);
} }
}
strncpy (Prompt, RepAtom (*AtPrompt)->StrOfAE, MAX_PROMPT); strncpy (Prompt, RepAtom (*AtPrompt)->StrOfAE, MAX_PROMPT);
newline = FALSE; newline = FALSE;
} }