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

add support for char codes

Browse Source
This commit is contained in:
Mark Thom
2019-03-31 19:48:40 -06:00
parent a97e8a4b5c
commit a15ebd20c1
6 changed files with 225 additions and 118 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/prolog/machine/system_calls.rs
View File

@@ -736,7 +736,9 @@ impl MachineState {
DoubleQuotes::Chars =>
self.unify(a1, Addr::Con(atom!("chars"))),
DoubleQuotes::Atom =>
self.unify(a1, Addr::Con(atom!("atom")))
self.unify(a1, Addr::Con(atom!("atom"))),
DoubleQuotes::Codes =>
self.unify(a1, Addr::Con(atom!("codes")))
}
},
&SystemClauseType::GetSCCCleaner => {
@@ -985,6 +987,8 @@ impl MachineState {
self.flags.double_quotes = DoubleQuotes::Chars,
Addr::Con(Constant::Atom(ref atom, _)) if atom.as_str() == "atom" =>
self.flags.double_quotes = DoubleQuotes::Atom,
Addr::Con(Constant::Atom(ref atom, _)) if atom.as_str() == "codes" =>
self.flags.double_quotes = DoubleQuotes::Codes,
_ => self.fail = true
},
&SystemClauseType::InferenceLevel => {