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

Allow all kinds of string to be processed in open/4

Browse Source
This commit is contained in:
Adrián Arroyo Calle
2021-11-28 12:37:16 +01:00
parent ca28f24e42
commit 86161ccf2a
2 changed files with 8 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/lib/builtins.pl
View File

@@ -1475,7 +1475,11 @@ open(SourceSink, Mode, Stream, StreamOptions) :-
( SourceSink = stream(S0) -> ( SourceSink = stream(S0) ->
'$set_stream_options'(S0, Alias, EOFAction, Reposition, Type), '$set_stream_options'(S0, Alias, EOFAction, Reposition, Type),
Stream = S0 Stream = S0
; '$open'(SourceSink, Mode, Stream, Alias, EOFAction, Reposition, Type) ; (
atom(SourceSink) ->
atom_chars(SourceSink, SourceSinkString)
; SourceSink = SourceSinkString
), '$open'(SourceSinkString, Mode, Stream, Alias, EOFAction, Reposition, Type)
) )
). ).

27
src/machine/system_calls.rs
View File

@@ -3169,31 +3169,10 @@ impl MachineState {
let options = self.to_stream_options(alias, eof_action, reposition, stream_type); let options = self.to_stream_options(alias, eof_action, reposition, stream_type);
let mut stream = match self.store(self.deref(self[temp_v!(1)])) { let mut iter = self.heap_pstr_iter(self[temp_v!(1)]);
Addr::Con(h) if self.heap.atom_at(h) => match &self.heap[h] { let file_spec = clause_name!(iter.to_string(), self.atom_tbl);
&HeapCellValue::Atom(ref atom, _) => {
self.stream_from_file_spec(atom.clone(), indices, &options)?
}
_ => {
unreachable!()
}
},
Addr::Char(c) => {
let atom = clause_name!(c.to_string(), self.atom_tbl);
self.stream_from_file_spec(atom, indices, &options)?
}
Addr::PStrLocation(h, n) => match &self.heap[h] {
&HeapCellValue::PartialString(_, _has_tail @ false) => {
let mut heap_pstr_iter = self.heap_pstr_iter(Addr::PStrLocation(h, n));
let file_spec = clause_name!(heap_pstr_iter.to_string(), self.atom_tbl); let mut stream = self.stream_from_file_spec(file_spec, indices, &options)?;
self.stream_from_file_spec(file_spec, indices, &options)?
}
_ => self.stream_from_file_spec(clause_name!(""), indices, &options)?,
},
_ => self.stream_from_file_spec(clause_name!(""), indices, &options)?,
};
*stream.options_mut() = options; *stream.options_mut() = options;