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

all global symbols should now start with _YAP

Browse Source 
add the T formatting control sequence for debugging the
internal representation of terms


git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@684 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
stasinos 2002-11-12 10:29:31 +00:00
parent 9d4712b400
commit 9cfd0deeab
1 changed files with 76 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

107
C/iopreds.c
View File

@ -867,36 +867,6 @@ ReadlinePutc (int sno, int ch)
return ((int) ch); return ((int) ch);
} }
int
_YAP_GetCharForSIGINT(void)
{
int ch;
#if HAVE_LIBREADLINE
if ((_YAP_PrologMode & ConsoleGetcMode) && _line != (char *) NULL) {
ch = _line[0];
free(_line);
_line = NULL;
} else {
_line = readline ("Action (h for help): ");
if (_line == (char *)NULL || _line == (char *)EOF) {
ch = EOF;
} else {
ch = _line[0];
free(_line);
_line = NULL;
}
}
#else
/* ask for a new line */
fprintf(stderr, "Action (h for help): ");
ch = getc(stdin);
/* first process up to end of line */
while ((fgetc(stdin)) != '\n');
#endif
newline = TRUE;
return ch;
}
/* /*
reading from the console is complicated because we need to reading from the console is complicated because we need to
know whether to prompt and so on... know whether to prompt and so on...
@ -972,9 +942,39 @@ ReadlineGetc(int sno)
return(console_post_process_read_char(ch, s, sno)); return(console_post_process_read_char(ch, s, sno));
} }
#endif #endif /* HAVE_LIBREADLINE */
int
_YAP_GetCharForSIGINT(void)
{
int ch;
#if HAVE_LIBREADLINE
if ((_YAP_PrologMode & ConsoleGetcMode) && _line != (char *) NULL) {
ch = _line[0];
free(_line);
_line = NULL;
} else {
_line = readline ("Action (h for help): ");
if (_line == (char *)NULL || _line == (char *)EOF) {
ch = EOF;
} else {
ch = _line[0];
free(_line);
_line = NULL;
}
}
#else
/* ask for a new line */
fprintf(stderr, "Action (h for help): ");
ch = getc(stdin);
/* first process up to end of line */
while ((fgetc(stdin)) != '\n');
#endif
newline = TRUE;
return ch;
}
/* handle reading from a stream after having found an EOF */ /* handle reading from a stream after having found an EOF */
static int static int
EOFGetc(int sno) EOFGetc(int sno)
@ -4412,6 +4412,51 @@ format(Term tail, Term args, int sno)
pad_max->pos = format_ptr-format_base; pad_max->pos = format_ptr-format_base;
pad_max++; pad_max++;
break; break;
#if DEBUG
case 'T':
{
Int radix = 16;
unsigned *uint_ptr;
ptr = tmp2;
if (size_args)
radix = arg_size;
if (IsVarTerm (args)) {
FreeAtomSpace(format_base);
Error(INSTANTIATION_ERROR,args,"~T in format/2");
return(FALSE);
} else if (!IsPairTerm (args)) {
FreeAtomSpace(format_base);
Error(TYPE_ERROR_LIST,args,"~T in format/2");
return(FALSE);
}
if (radix > 36 || radix < 2) {
FreeAtomSpace(format_base);
Error(DOMAIN_ERROR_RADIX,MkIntTerm(radix),"~T in format/2");
return(FALSE);
}
arghd = HeadOfTerm (args);
args = TailOfTerm (args);
uint_ptr = (unsigned *)&arghd;
for (i = 0; i < sizeof (arghd) / sizeof (unsigned); ++i) {
if (uint_ptr[i] == 0)
format_putc(sno, (int) '0');
while (uint_ptr[i] != 0) {
Int numb = uint_ptr[i] % radix;
if (numb >= 10)
numb += 'a' - 10;
else
numb += '0';
*ptr++ = numb;
uint_ptr[i] = uint_ptr[i] / radix;
}
while (--ptr >= tmp2)
format_putc(sno, (int) *ptr);
}
}
break;
#endif /* DEBUG */
default: default:
_YAP_FreeAtomSpace(format_base); _YAP_FreeAtomSpace(format_base);
return (FALSE); return (FALSE);