implement access_file/2 in C

This commit is contained in:
Vítor Santos Costa
2010-08-03 21:04:16 +01:00
parent 69b21df917
commit c081d01e78
6 changed files with 85 additions and 23 deletions

View File

@@ -90,10 +90,12 @@
AtomError = Yap_LookupAtom("error");
AtomEvaluable = Yap_LookupAtom("evaluable");
AtomEvaluationError = Yap_LookupAtom("evaluation_error");
AtomExecute = Yap_LookupAtom("execute");
AtomExecAnswers = Yap_LookupAtom("exec_answers");
AtomExecuteInMod = Yap_FullLookupAtom("$execute_in_mod");
AtomExecuteWithin = Yap_FullLookupAtom("$execute_within");
AtomExecuteWoMod = Yap_FullLookupAtom("$execute_wo_mod");
AtomExist = Yap_LookupAtom("exist");
AtomExistenceError = Yap_LookupAtom("existence_error");
AtomExpectedNumber = Yap_LookupAtom("expected_number_syntax");
AtomExtendFileSearchPath = Yap_FullLookupAtom("$extend_file_search_path");
@@ -172,6 +174,7 @@
AtomNbTerm = Yap_LookupAtom("nb_term");
AtomNew = Yap_LookupAtom("new");
AtomNoMemory = Yap_LookupAtom("no_memory");
AtomNone = Yap_LookupAtom("none");
AtomNonEmptyList = Yap_LookupAtom("non_empty_list");
AtomNot = Yap_LookupAtom("\\+");
AtomNotImplemented = Yap_LookupAtom("not_implemented");

View File

@@ -90,10 +90,12 @@
AtomError = AtomAdjust(AtomError);
AtomEvaluable = AtomAdjust(AtomEvaluable);
AtomEvaluationError = AtomAdjust(AtomEvaluationError);
AtomExecute = AtomAdjust(AtomExecute);
AtomExecAnswers = AtomAdjust(AtomExecAnswers);
AtomExecuteInMod = AtomAdjust(AtomExecuteInMod);
AtomExecuteWithin = AtomAdjust(AtomExecuteWithin);
AtomExecuteWoMod = AtomAdjust(AtomExecuteWoMod);
AtomExist = AtomAdjust(AtomExist);
AtomExistenceError = AtomAdjust(AtomExistenceError);
AtomExpectedNumber = AtomAdjust(AtomExpectedNumber);
AtomExtendFileSearchPath = AtomAdjust(AtomExtendFileSearchPath);
@@ -172,6 +174,7 @@
AtomNbTerm = AtomAdjust(AtomNbTerm);
AtomNew = AtomAdjust(AtomNew);
AtomNoMemory = AtomAdjust(AtomNoMemory);
AtomNone = AtomAdjust(AtomNone);
AtomNonEmptyList = AtomAdjust(AtomNonEmptyList);
AtomNot = AtomAdjust(AtomNot);
AtomNotImplemented = AtomAdjust(AtomNotImplemented);

View File

@@ -178,6 +178,8 @@
#define AtomEvaluable Yap_heap_regs->AtomEvaluable_
Atom AtomEvaluationError_;
#define AtomEvaluationError Yap_heap_regs->AtomEvaluationError_
Atom AtomExecute_;
#define AtomExecute Yap_heap_regs->AtomExecute_
Atom AtomExecAnswers_;
#define AtomExecAnswers Yap_heap_regs->AtomExecAnswers_
Atom AtomExecuteInMod_;
@@ -186,6 +188,8 @@
#define AtomExecuteWithin Yap_heap_regs->AtomExecuteWithin_
Atom AtomExecuteWoMod_;
#define AtomExecuteWoMod Yap_heap_regs->AtomExecuteWoMod_
Atom AtomExist_;
#define AtomExist Yap_heap_regs->AtomExist_
Atom AtomExistenceError_;
#define AtomExistenceError Yap_heap_regs->AtomExistenceError_
Atom AtomExpectedNumber_;
@@ -342,6 +346,8 @@
#define AtomNew Yap_heap_regs->AtomNew_
Atom AtomNoMemory_;
#define AtomNoMemory Yap_heap_regs->AtomNoMemory_
Atom AtomNone_;
#define AtomNone Yap_heap_regs->AtomNone_
Atom AtomNonEmptyList_;
#define AtomNonEmptyList Yap_heap_regs->AtomNonEmptyList_
Atom AtomNot_;