From 35100fe51534e9f4a9e3c1c4bde51044e035c379 Mon Sep 17 00:00:00 2001 From: Vitor Santos Costa Date: Wed, 24 Nov 2010 08:41:21 +0000 Subject: [PATCH] add interface to SWI's prolog_to_os_filename/2 --- pl/yio.yap | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) diff --git a/pl/yio.yap b/pl/yio.yap index 9a406d509..89d1510b1 100644 --- a/pl/yio.yap +++ b/pl/yio.yap @@ -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). + + + + + + + + + +