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

add interface to SWI's prolog_to_os_filename/2

This commit is contained in:
Vitor Santos Costa 2010-11-24 08:41:21 +00:00
parent f9cd010242
commit 35100fe515
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
pl/yio.yap
View File

@ -1209,3 +1209,21 @@ with_output_to(Output, Command) :-
atom_codes(Char, [Code]),
'$codes_to_chars'(String0, String, Chars).
prolog_to_os_filename(Prolog, OS) :-
'$undefined'(swi_prolog_to_os_filename(Prolog, OS), system),
'$current_module'(Old, system),
load_foreign_files([libplstream], [], initIO),
'$current_module'(system, Old),
fail.
prolog_to_os_filename(Prolog, OS) :-
system:swi_prolog_to_os_filename(Prolog, OS).