Eclipse Support

This commit is contained in:
Vitor Santos Costa 2014-03-13 16:57:21 +00:00
parent 4591e1baaf
commit 228bc76a35
3 changed files with 5 additions and 2 deletions

View File

@ -2234,7 +2234,7 @@ X_API qid_t PL_open_query(module_t ctx, int flags, predicate_t p, term_t t0)
t = Yap_AddressFromSlot(t0 PASS_REGS); t = Yap_AddressFromSlot(t0 PASS_REGS);
/* ignore flags and module for now */ /* ignore flags and module for now */
qid_t new = (qid_t)Yap_AllocCodeSpace(sizeof(*qid_t)); qid_t new = (qid_t)Yap_AllocCodeSpace(sizeof(struct open_query_struct));
LOCAL_execution = new; LOCAL_execution = new;
new->q_open=1; new->q_open=1;
new->q_state=0; new->q_state=0;

View File

@ -591,6 +591,9 @@ PL_install_readline(void)
#ifndef __WINDOWS__ #ifndef __WINDOWS__
if ( !truePrologFlag(PLFLAG_TTY_CONTROL) || !isatty(0) ) if ( !truePrologFlag(PLFLAG_TTY_CONTROL) || !isatty(0) )
return; return;
// don't allow YAP to run readline under an Eclipse Console
if (getenv("EclipseVersion"))
return;
#endif #endif
alevel = setAccessLevel(ACCESS_LEVEL_SYSTEM); alevel = setAccessLevel(ACCESS_LEVEL_SYSTEM);

View File

@ -60,7 +60,7 @@ int get_term_depth(TERM t)
XDEREF(t); XDEREF(t);
SWITCH_OP(t, l_term_depth, { return 0; }, { return 0; }, { SWITCH_OP(t, l_term_depth, { return 0; }, { return (0); }, {
if (IsNumberedVar(t)) return 0; if (IsNumberedVar(t)) return 0;
d = 0; d = 0;