From d6e87420e3ee9f4a5b062c5724f70e4cc16212ee Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Mon, 13 Jun 2011 01:43:40 +0100
Subject: [PATCH] user:prolog_file_type/2. avoid using old OS stuff, if we have
 it in.

---
 pl/consult.yap | 7 +++++--
 pl/init.yap    | 4 ++++
 2 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/pl/consult.yap b/pl/consult.yap
index 514e52ad0..6ee9988fc 100755
--- a/pl/consult.yap
+++ b/pl/consult.yap
@@ -834,8 +834,8 @@ absolute_file_name(File,Opts,TrueFileName) :-
 	'$to_list_of_atoms'(As, L1, [A|L2]),
 	'$to_list_of_atoms'(Bs, L2, LF).
 
-'$get_abs_file'(File,opts(_,D0,_,_,_,_,_),AbsFile) :-
-	operating_system_support:true_file_name(File,D0,AbsFile).
+'$get_abs_file'(File,opts(_,_D0,_,_,_,_,_),AbsFile) :-
+	'$absolute_file_name'(File,AbsFile).
 
 '$search_in_path'(File,opts(Extensions,_,Type,Access,_,_,_),F) :-
 	'$add_extensions'(Extensions, File, F0),
@@ -870,6 +870,9 @@ absolute_file_name(File,Opts,TrueFileName) :-
 '$add_type_extensions'(Type,File,F) :-
 	'$type_extension'(Type,Ext),
 	atom_concat([File,Ext],F).
+'$add_type_extensions'(Type,File,F) :-
+	user:prolog_file_type(Type, File),
+	atom_concat([File,Ext],F).
 
 '$type_extension'(txt,'').
 '$type_extension'(prolog,'.yap').
diff --git a/pl/init.yap b/pl/init.yap
index d42b7c371..95f1c5264 100644
--- a/pl/init.yap
+++ b/pl/init.yap
@@ -168,6 +168,10 @@ yap_hacks:cut_by(CP) :- '$$cut_by'(CP).
 
 :- dynamic goal_expansion/3.
 
+:- multifile prolog_file_type/2.
+
+:- dynamic prolog_file_type/2.
+
 :- multifile goal_expansion/2.
 
 :- dynamic goal_expansion/2.