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

fix new consult code

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@319 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-01-22 19:29:28 +00:00
parent 93a41f0ef5
commit fe63bae633
4 changed files with 14 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
C/sysbits.c
View File

@ -1789,6 +1789,7 @@ p_cd (void)
#if __simplescalar__ #if __simplescalar__
strncpy(FileNameBuf,"PWD=",YAP_FILENAME_MAX); strncpy(FileNameBuf,"PWD=",YAP_FILENAME_MAX);
strncat(FileNameBuf,FileNameBuf2,YAP_FILENAME_MAX); strncat(FileNameBuf,FileNameBuf2,YAP_FILENAME_MAX);
fprintf(stderr,"adding %s\n", FileNameBuf);
putenv(FileNameBuf); putenv(FileNameBuf);
#endif #endif
return (!chdir (FileNameBuf2)); return (!chdir (FileNameBuf2));

7
changes4.3.html
View File

@ -16,6 +16,13 @@
<h2>Yap-4.3.21:</h2> <h2>Yap-4.3.21:</h2>
<ul> <ul>
<li>FIXED: more SICStus like top-level messaging (Nicos Angelopoulos).</li>
<li>FIXED: missing WIN32 interface declaration (Christophe Billard).</li>
<li>FIXED: alarm was not working in WIN32 (Tolga Konick).</li>
<li>FIXED: get0/2 and get/2 should call $get directly.</li>
<li>CHANGE: make full leash default.</li>
<li>NEW: continue creeping after a goal. (Ines Dutra)</li>
<li>FIXED: creep should not creep the whole debugger.</li>
<li>FIXED: break should not start the whole system.</li> <li>FIXED: break should not start the whole system.</li>
<li>FIXED: abolish could backtrack and give weird error (Nicos <li>FIXED: abolish could backtrack and give weird error (Nicos
Angelopoulos).</li> Angelopoulos).</li>

4
pl/boot.yap
View File

@ -928,7 +928,7 @@ break :- '$get_value'('$break',BL), NBL is BL+1,
'$format'(user_error, "~*|[ consulting ~w... ]~n", [LC,F]) '$format'(user_error, "~*|[ consulting ~w... ]~n", [LC,F])
; true ) ; true )
; ;
'$print_message'(informational, loading(consulting, F)) '$print_message'(informational, loading(consulting, File))
), ),
'$loop'(Stream,consult), '$loop'(Stream,consult),
'$exec_initialisation_goals', '$exec_initialisation_goals',
@ -943,7 +943,7 @@ break :- '$get_value'('$break',BL), NBL is BL+1,
true true
) )
; ;
'$print_message'(informational, loaded(consulted, F, Mod, T, H)) '$print_message'(informational, loaded(consulted, File, Mod, T, H))
), ),
'$set_value'('$consulting',Old), '$set_value'('$consulting',Old),
'$set_value'('$consulting_file',OldF), '$set_value'('$consulting_file',OldF),

8
pl/consult.yap
View File

@ -136,7 +136,7 @@ reconsult(Fs) :-
'$start_reconsulting'(F), '$start_reconsulting'(F),
'$start_consult'(reconsult,File,LC), '$start_consult'(reconsult,File,LC),
'$recorda'('$initialisation','$',_), '$recorda'('$initialisation','$',_),
'$print_message'(informational, loading(reconsulting, F)), '$print_message'(informational, loading(reconsulting, File)),
'$loop'(Stream,reconsult), '$loop'(Stream,reconsult),
'$exec_initialisation_goals', '$exec_initialisation_goals',
'$current_module'(Mod,OldModule), '$current_module'(Mod,OldModule),
@ -144,7 +144,7 @@ reconsult(Fs) :-
'$clear_reconsulting', '$clear_reconsulting',
( LC == 0 -> prompt(_,' |: ') ; true), ( LC == 0 -> prompt(_,' |: ') ; true),
H is heapused-H0, '$cputime'(TF,_), T is TF-T0, H is heapused-H0, '$cputime'(TF,_), T is TF-T0,
'$print_message'(informational, loaded(reconsulted, F, Mod, T, H)), '$print_message'(informational, loaded(reconsulted, File, Mod, T, H)),
'$set_value'('$consulting',Old), '$set_value'('$consulting',Old),
'$set_value'('$consulting_file',OldF), '$set_value'('$consulting_file',OldF),
'$cd'(OldD), '$cd'(OldD),
@ -169,7 +169,7 @@ reconsult(Fs) :-
'$start_consult'(reconsult,File,LC), '$start_consult'(reconsult,File,LC),
'$current_module'(OldModule), '$current_module'(OldModule),
'$recorda'('$initialisation','$',_), '$recorda'('$initialisation','$',_),
'$print_message'(informational, loading(reconsulting, F)), '$print_message'(informational, loading(reconsulting, File)),
'$loop'(Stream,reconsult), '$loop'(Stream,reconsult),
'$exec_initialisation_goals', '$exec_initialisation_goals',
'$current_module'(Mod,OldModule), '$current_module'(Mod,OldModule),
@ -177,7 +177,7 @@ reconsult(Fs) :-
'$clear_reconsulting', '$clear_reconsulting',
( LC == 0 -> prompt(_,' |: ') ; true), ( LC == 0 -> prompt(_,' |: ') ; true),
H is heapused-H0, '$cputime'(TF,_), T is TF-T0, H is heapused-H0, '$cputime'(TF,_), T is TF-T0,
'$print_message'(informational, loaded(reconsulted, F, Mod, T, H)), '$print_message'(informational, loaded(reconsulted, File, Mod, T, H)),
'$set_value'('$consulting',Old), '$set_value'('$consulting',Old),
'$set_value'('$consulting_file',OldF), '$set_value'('$consulting_file',OldF),
'$cd'(OldD), '$cd'(OldD),