rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

slight tweaks to bimetatrans

Browse Source
This commit is contained in:
Mark Thom
2020-04-18 12:24:42 -06:00
parent 1ad4ce9822
commit d5d635e50f
1 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/prolog/examples/bimetatrans_ruleml.pl
View File

@@ -2,6 +2,7 @@
:- use_module(library(dcgs)). :- use_module(library(dcgs)).
:- use_module(library(iso_ext)). :- use_module(library(iso_ext)).
:- use_module(library(lists)).
:- set_prolog_flag(double_quotes, chars). :- set_prolog_flag(double_quotes, chars).
@@ -499,7 +500,7 @@ ruleml_plex(Plex) -->
list_ws("</Plex>") list_ws("</Plex>")
; list_ws("<Plex/>") ; list_ws("<Plex/>")
) )
; { \+ partial_string(Plex), ; { ( \+ partial_string(Plex) ; Plex == [] ),
acyclic_term(Plex) }, acyclic_term(Plex) },
( { functor(Plex, ('.'), 2) } -> ( { functor(Plex, ('.'), 2) } ->
{ split_plex(Plex, PlexItems, RepoVar) }, { split_plex(Plex, PlexItems, RepoVar) },
@@ -583,13 +584,11 @@ ruleml_atom(Item) -->
list_ws("<Atom>"), list_ws("<Atom>"),
list_ws("<Rel>"), list_ws("<Rel>"),
prolog_symbol(Name), prolog_symbol(Name),
{ Name \== (','), Name \== (';') },
list_ws("</Rel>"), list_ws("</Rel>"),
ruleml_items(Args), ruleml_items(Args),
list_ws("</Atom>"), list_ws("</Atom>"),
{ Item =.. [Name | Args] } { Item =.. [Name | Args] }
; { Item =.. [Name | Args] }, ; { Item =.. [Name | Args] },
{ Name \== (','), Name \== (';') },
"<Atom>", "<Atom>",
"<Rel>", "<Rel>",
prolog_symbol(Name), prolog_symbol(Name),