diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

be more struct; better support fir encodings.

Browse Source
This commit is contained in:
Vítor Santos Costa 2016-02-14 04:18:15 +00:00
parent fb966536a9
commit 05a978ce82
4 changed files with 54 additions and 53 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
C/save.c
View File

@ -1460,7 +1460,7 @@ OpenRestore(char *inpf, char *YapLibDir, CELL *Astate, CELL *ATrail, CELL *AStac
} }
FILE * FILE *
Yap_OpenRestore(char *inpf, char *YapLibDir) Yap_OpenRestore(const char *inpf, char *YapLibDir)
{ {
FILE *stream = NULL; FILE *stream = NULL;

6
pl/absf.yap
View File

@ -326,10 +326,10 @@ real_path( EPath, File),
exists_directory(F). exists_directory(F).
'$check_file'(_F, _Type, none) :- !. '$check_file'(_F, _Type, none) :- !.
'$check_file'(F, _Type, exist) :- '$check_file'(F, _Type, exist) :-
'$access_file'(F, exist). % if it has a type cannot be a directory.. '$access_file'(F, exist). % if it has a type cannot be a directory..
'$check_file'(F, _Type, Access) :- '$check_file'(F, _Type, Access) :-
'$access_file'(F, Access), '$access_file'(F, Access),
\+ exists_directory(F). % if it has a type cannot be a directory.. \+ exists_directory(F). % if it has a type cannot be a directory..
'$suffix'(Last, _Opts) --> '$suffix'(Last, _Opts) -->
{ lists:append(_, [0'.|Alphas], Last), '$id'(Alphas, _, [] ) }, { lists:append(_, [0'.|Alphas], Last), '$id'(Alphas, _, [] ) },

3
pl/yio.yap
View File

@ -422,7 +422,8 @@ stream_position_data(Prop, Term, Value) :-
'$stream_position_field'(line_position, 3). '$stream_position_field'(line_position, 3).
'$stream_position_field'(byte_count, 4). '$stream_position_field'(byte_count, 4).
'$set_encoding'(Enc) :-
stream_property(loop_stream, Enc).
%! @} %! @}