20:- system_module( '$_yio', [
at_end_of_line/0,
50 write_depth/2], [
'$default_expand'/1,
51 '$extend_file_search_path'/1,
52 '$set_default_expand'/1]).
54:-
'$system_catch'/4
use_system_module(
'$_boot', []).
56:-
'$do_error'/2
use_system_module(
'$_errors', []).
153 \+ '$undefined'(portray(
_),user),
154 catch(user
:portray(
T),
Error,
'$Error'(
Error)),
catch,
156'$portray'(
_)
:- set_value(
'$portray',false),
set_value.
201ttyget0(
N)
:- get0(user_input,
N).
211ttyskip(
N)
:- N1 is N,
'$skip'(user_input,
N1).
220ttyput(
N)
:- N1 is N,
put(user_output,
N1).
228put
:- nl(user_output).
243 line_count(
Stream,
N).
251 line_count(
Stream,
N).
271 set_stream_position(
Stream,
NewPosition).
278set_stream_position
:-
289 peek_code(
S,
N), (
N = 10 -> true
; N = -1).
302 '$all_char_conversions'(
List),
303 '$fetch_char_conversion'(
List,
X,
Y).
305 '$current_char_conversion'(
X,
Y).
308'$fetch_char_conversion'([
X,
Y|_],
X,
Y).
309'$fetch_char_conversion'([
_,
_|List],
X,
Y)
:-
310 '$fetch_char_conversion'(
List,
X,
Y).
312split_path_file(
File,
Path,
Name)
:-
313 file_directory_name(
File,
Path),
314 file_base_name(
File,
Name).
334 '$stream_name'(
Stream,
File).
336'$stream_name'(
Stream,
File)
:-
338'$stream_name'(
Stream, file_no(
File))
:-
340'$stream_name'(
Stream,
Stream).
342'$extend_file_search_path'(
P)
:-
344 '$env_separator'(
ES),
357 (
'$stream_position_field'(
Prop,
Pos)
358 -> arg(
Pos,
Term,
Value)
359 ; '$do_error'(domain_error(stream_position_data),
Prop)
362 '$stream_position_field'(
Prop,
Pos),
363 arg(
Pos,
Term,
Value).
365'$stream_position_field'(char_count,
1).
366'$stream_position_field'(line_count,
2).
367'$stream_position_field'(line_position,
3).
368'$stream_position_field'(byte_count,
4).
370'$set_encoding'(
Enc)
:-
371 set_stream(loop_stream, encoding(
Enc)).
381'$codes_to_chars'(
String0,
String,
String0)
:- String0 == String,
'$codes_to_chars'.
382'$codes_to_chars'(
String0, [
Code|String], [
Char|Chars])
:-
384 '$codes_to_chars'(
String0,
String,
Chars).
430 '$do_error'(instantiation_error, prolog_file_name(
File,
PrologFileName)).
434 atom
:true_file_name(
File,
PrologFileName).
436 '$do_error'(type_error(atom,
File), prolog_file_name(
File,
PrologFileName)).
445 yap_flag(file_errors,
_, error).
458 yap_flag(file_errors,
_, fail).
463absolute_file_name( -File:atom, +Path:atom, +Options:list)
catch( : Goal,+ Exception,+ Action)
stream_property( Stream, Prop )
prolog_file_name( +File, -PrologFileaName)
open_pipe_streams(Read, Write)
socket(+ DOMAIN,- SOCKET)
socket(+ DOMAIN,+ TYPE,+ PROTOCOL,- SOCKET)
socket_connect(+ SOCKET, + PORT, - STREAM)
atom_codes(?Atom, ?Codes)
at_end_of_line( +Stream )
current_char_conversion(? IN,? OUT)
current_line_number(- LineNumber)
current_line_number(+ Stream,- LineNumber)
stream_position(+ Stream,- StreamPosition)
stream_position(+ Stream,- StreamPosition, +_NewPosition_)
stream_position_data(+ Field,+ StreamPosition,- Info)