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

use heap_pstr_iter in AtomChars (#482)

Browse Source
This commit is contained in:
Mark Thom
2020-05-10 15:46:51 -06:00
parent c1df7ead1a
commit 540bc71873
2 changed files with 25 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/prolog/lib/builtins.pl
View File

@@ -932,7 +932,7 @@ atom_chars(Atom, List) :-
),
( var(Atom) ->
( var(Tail) -> throw(error(instantiation_error, atom_chars/2))
; ground(List), Tail == [] -> '$atom_chars'(Atom, List)
; ground(List) -> '$atom_chars'(Atom, List)
; throw(error(instantiation_error, atom_chars/2))
)
; atom(Atom) -> can_be_chars_or_vars(List, atom_chars/2), '$atom_chars'(Atom, List)

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

@@ -864,30 +864,34 @@ impl MachineState {
self.unify(a2, list_of_chars);
}
addr if addr.is_ref() => {
let stub = MachineError::functor_stub(clause_name!("atom_chars"), 2);
let mut iter = self.heap_pstr_iter(self[temp_v!(2)]);
let string = iter.to_string();
match self.try_from_list(temp_v!(2), stub) {
Err(e) => {
return Err(e);
match iter.focus() {
Addr::EmptyList => {
let chars = clause_name!(string, indices.atom_tbl);
let atom = self.heap.to_unifiable(
HeapCellValue::Atom(chars, None)
);
self.unify(addr, atom);
}
Ok(addrs) => {
match self.try_char_list(addrs) {
Ok(string) => {
let chars = clause_name!(string, indices.atom_tbl);
let atom = self.heap.to_unifiable(
HeapCellValue::Atom(chars, None)
);
focus => {
let stub = MachineError::functor_stub(
clause_name!("atom_chars"),
2,
);
self.unify(addr, atom);
}
Err(err) => {
let stub = MachineError::functor_stub(
clause_name!("atom_chars"),
2,
);
if let Addr::Lis(l) = focus {
let err = MachineError::type_error(
self.heap.h(),
ValidType::Character,
Addr::HeapCell(l),
);
return Err(self.error_form(err, stub));
}
return Err(self.error_form(err, stub));
} else {
unreachable!()
}
}
}