implement access_file/2 in C
This commit is contained in:
@@ -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");
|
||||
|
||||
@@ -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);
|
||||
|
||||
@@ -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_;
|
||||
|
||||
Reference in New Issue
Block a user