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

add Yap_ReadBuffer

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1064 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2004-05-14 16:33:47 +00:00
parent 19bfe301db
commit 0aa358a2b7
8 changed files with 145 additions and 64 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
console/yap.c
View File

@@ -105,13 +105,11 @@ static FILE *bootfile;
static int eof_found = FALSE;
static int yap_lineno = 0;
#ifdef DEBUG
static void
myputc (int ch)
{
putc(ch,stderr);
}
#endif
static int
mygetc (void)
@@ -532,6 +530,11 @@ exec_top_level(int BootMode, YAP_init_args *iap)
*/
livegoal = YAP_FullLookupAtom("$live");
atomfalse = YAP_MkAtomTerm (YAP_FullLookupAtom("$false"));
{
YAP_Term t = YAP_ReadBuffer("a(1)",NULL);
if (t)
YAP_Write(t,myputc,0);
}
while (YAP_GetValue (livegoal) != atomfalse) {
YAP_Reset();
do_top_goal (YAP_MkAtomTerm (livegoal));