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

extras

Browse Source
This commit is contained in:
Vitor Santos Costa
2019-04-07 23:09:01 +01:00
parent 31743139b0
commit 1cde9d0eed
7 changed files with 59 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
packages/real/real.pl
View File

@@ -954,6 +954,11 @@ prolog:message( correspondence ) -->
prolog:message( r_root ) -->
['Real was unable to find the R root directory. \n If you have installed R from sources set $R_HOME to point to $PREFIX/lib/R.\n You should also make sure libR.so is in a directory appearing in $LD_LIBRARY_PATH' - [] ].
eval_text( Text ) :-
atomic_to_term( Text, Goal, VarNames ),
call(user:Goal).
:- at_halt(halt_r).
:- initialization(start_r, now).

4
packages/real/yap4r/src/RcppExports.cpp
View File

@@ -6,10 +6,10 @@
using namespace Rcpp;
RcppExport SEXP _rcpp_module_boot_yap4r();
RcppExport SEXP _rcpp_module_boot_mod_yap4r();
static const R_CallMethodDef CallEntries[] = {
{"_rcpp_module_boot_yap4r", (DL_FUNC) &_rcpp_module_boot_yap4r, 0},
{"_rcpp_module_boot_mod_yap4r", (DL_FUNC) &_rcpp_module_boot_mod_yap4r, 0},
{NULL, NULL, 0}
};

20
packages/real/yap4r/src/yap4r.cpp
View File

@@ -26,6 +26,8 @@ public:
std::string p_module = "user");
bool more();
bool done();
bool eval_text(std::string l);
bool run(SEXP s);
SEXP peek(int i);
bool compile(std::string s);
bool library(std::string s);
@@ -74,6 +76,17 @@ bool yap4r::query(std::string p_name, GenericVector sexps,
return rc;
}
bool yap4r::run(SEXP l) {
yhandle_t yh = Yap_InitHandle(MkVarTerm());
if (!sexp_to_pl(yh, l))
return false;
return yap->mgoal(Yap_GetFromHandle(yh), USER_MODULE);
}
bool yap4r::eval_text(std::string l) {
YAPAtomTerm t = YAPAtomTerm(l.c_str());
return yap->mgoal(YAPApplTerm("eval_text", t).term(), MkAtomTerm(Yap_LookupAtom("real")));
}
bool yap4r::compile(std::string s) {
YAPTerm t;
@@ -116,13 +129,14 @@ SEXP yap4r::peek(int i) {
return term_to_sexp(Yap_InitSlot(Yap_XREGS[i]), false);
}
RCPP_MODULE(yap4r) {
RCPP_MODULE(mod_yap4r) {
class_<yap4r>("yap4r")
.constructor("create an object encapsulating a Prolog engine")
.method("query", &yap4r::query,
"create an active query within the engine")
.method("query", &yap4r::query, "create an active query within the engine")
.method("more", &yap4r::more, "ask for an extra solution")
.method("done", &yap4r::done, "terminate the query")
.method("eval_text", &yap4r::eval_text, "terminate the query")
.method("run", &yap4r::run, "terminate the query")
.method("compile", &yap4r::compile, "compile the file")
.method("library", &yap4r::library, "compile the library")
.method("peek", &yap4r::peek, "load arg[i] into R");