diff --git a/VERSION b/VERSION index d169b2f..c5d54ec 100644 --- a/VERSION +++ b/VERSION @@ -1 +1 @@ -0.0.8 +0.0.9 diff --git a/mksee b/mksee index 1b600d0..cfe3706 100755 --- a/mksee +++ b/mksee @@ -60,7 +60,7 @@ cat see.pl | sed -e "s/'SEE.*'/'SEE $RELEASE \($DATE\)'/" > see.pl.tmp mv see.pl.tmp see.pl # create image -swipl -f see.pl -g "qsave_program('see.pvm', [goal(main)]),halt" +swipl -f see.pl -g "qsave_program('see.pvm', [goal(main)]), halt." # link see command sudo ln -sf $(realpath ./see) /usr/local/bin diff --git a/see.pl b/see.pl index 83a81b2..025b333 100644 --- a/see.pl +++ b/see.pl @@ -19,7 +19,7 @@ :- use_module(library(semweb/turtle)). :- catch(use_module(library(http/http_open)), _, true). -version_info('SEE v0.0.8 (2024-03-07)'). +version_info('SEE v0.0.9 (2024-03-08)'). help_info('Usage: see * * see @@ -192,6 +192,7 @@ fail ; true ), + % move rdf lists ( graph(A, B), conj_list(B, C), relist(C, D), @@ -217,6 +218,9 @@ fail ; true ), + % remove rdf lists + retractall(''(_, _)), + retractall(''(_, _)), % create forward rules assertz(implies(( ''(R, A), @@ -275,25 +279,16 @@ retractall(brake) ; true )), true)), - % set scope + % set engine values findall(Sc, ( scope(Sc) ), Scope ), nb_setval(scope, Scope), - ( pfx('var:', _) - -> true - ; assertz(pfx('var:', '')) - ), - ( pfx('skolem:', _) - -> true - ; nb_getval(var_ns, Sns), - atomic_list_concat(['<', Sns, '>'], B), - assertz(pfx('skolem:', B)) - ), nb_setval(rn, 0), nb_setval(keep_ng, true), + % run engine catch(eam(0), Exc3, ( ( Exc3 = halt(0) -> true @@ -850,15 +845,6 @@ ; true ), !. -wt2(quad(triple(S, P, O), G)) :- - !, - wg(S), - write(' '), - wt0(P), - write(' '), - wg(O), - write(' '), - wg(G). wt2(graph(X, Y)) :- !, wp(X), @@ -915,15 +901,6 @@ write(' '), wg(O) ). -wtn(triple(S, P, O)) :- - !, - write('<< '), - wg(S), - write(' '), - wp(P), - write(' '), - wg(O), - write(' >>'). wtn(X) :- X =.. [B|C], ( atom(B), @@ -2858,26 +2835,10 @@ % Support % -def_pfx('math:', ''). -def_pfx('list:', ''). -def_pfx('xsd:', ''). -def_pfx('log:', ''). -def_pfx('rdfs:', ''). -def_pfx('time:', ''). -def_pfx('rdf:', ''). -def_pfx('string:', ''). -def_pfx('owl:', ''). - put_pfx(_, URI) :- atomic_list_concat(['<', URI, '>'], U), pfx(_, U), !. -put_pfx(_, URI) :- - atomic_list_concat(['<', URI, '>'], U), - def_pfx(Pf, U), - \+pfx(Pf, _), - !, - assertz(pfx(Pf, U)). put_pfx(Pf, URI) :- atomic_list_concat(['<', URI, '>'], U), fresh_pf(Pf, Pff), diff --git a/see.pvm b/see.pvm index f7b8c3d..d727b3e 100755 Binary files a/see.pvm and b/see.pvm differ