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

Android /assets support

Browse Source
This commit is contained in:
Vítor Santos Costa 2014-06-11 19:26:50 +01:00
parent 71b40e0438
commit 2455a1d83c
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pl/absf.yap
View File

@ -316,6 +316,14 @@ absolute_file_name(File0,File) :-
'$check_file'(F0, Type, Access, F). '$check_file'(F0, Type, Access, F).
'$check_file'(F, _Type, none, F) :- !. '$check_file'(F, _Type, none, F) :- !.
'$check_file'(F0, _Type, _Access, F0) :-
format('IN ~w~n', [F0]),
yap_flag( c_cc, Flag),
sub_atom( Flag, _, _, _, android),
sub_atom( F0, 0, _, _, '/assets'),
catch( open( F0, Access, S ), _, fail ),
format('~w~n', [F0]),
!.
'$check_file'(F0, Type, Access, F0) :- '$check_file'(F0, Type, Access, F0) :-
access_file(F0, Access), access_file(F0, Access),
(Type == directory -> (Type == directory ->