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

fix prompting?

Browse Source
This commit is contained in:
Vitor Santos Costa 2016-07-31 10:14:47 -05:00
parent d3599da6dc
commit 9d3b46132b
1 changed files with 20 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
os/console.c
View File

@ -40,6 +40,24 @@ static Int prompt1(USES_REGS1);
static int ConsoleGetc(int);
static int ConsolePutc(int, int);
bool Yap_DoPrompt(StreamDesc *s) {
if (s->status & Tty_Stream_f) {
if (GLOBAL_Stream[0].status & Tty_Stream_f &&
s->name == GLOBAL_Stream[0].name)
return true;
if (GLOBAL_Stream[1].status & Tty_Stream_f &&
s->name == GLOBAL_Stream[1].name)
return true;
if (GLOBAL_Stream[2].status & Tty_Stream_f &&
s->name == GLOBAL_Stream[2].name)
return true;
}
return false;
}
/* check if we read a newline or an EOF */
int console_post_process_read_char(int ch, StreamDesc *s) {
/* the character is also going to be output by the console handler */
@ -121,11 +139,10 @@ static int ConsoleGetc(int sno) {
restart:
/* keep the prompt around, just in case, but don't actually
show it in silent mode */
if (LOCAL_newline) {
if (Yap_DoPrompt(s)) {
if (!silentMode()) {
char *cptr = LOCAL_Prompt, ch;
/* use the default routine */
/* use the default routine */
while ((ch = *cptr++) != '\0') {
GLOBAL_Stream[StdErrStream].stream_putc(StdErrStream, ch);
}