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

indenting

Browse Source
This commit is contained in:
Vítor Santos Costa 2016-03-17 00:01:09 +00:00
parent e9cac424f0
commit f6379bcd48
1 changed files with 14 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
pl/absf.yap
View File

@ -10,13 +10,10 @@
/** /**
@file absf.yap @file absf.yap
@author L.Damas, V.S.Costa @author L.Damas, V.S.Costa
*/ */
:- system_module( absf, [absolute_file_name/2, :- system_module( absf, [absolute_file_name/2,
absolute_file_name/3, absolute_file_name/3,
add_to_path/1, add_to_path/1,
@ -26,9 +23,8 @@
'$system_library_directories'/2]). '$system_library_directories'/2]).
/** /**
* @defgroup AbsoluteFileName File Name Resolution
@defgroup AbsoluteFileName File Name Resolution * @ingroup builtins
@ingroup builtins
Support for file name resolution through absolute_file_name/3 and Support for file name resolution through absolute_file_name/3 and
friends. These utility built-ins describe a list of directories that friends. These utility built-ins describe a list of directories that
@ -38,7 +34,7 @@
@{ @{
*/ */
:- use_system_module( '$_boot', ['$system_catch'/4]). :- use_system_module( '$_boot', ['$system_catch'/4]).
@ -143,12 +139,12 @@ swapped, thus the call
is valid as well. is valid as well.
*/ */
absolute_file_name(File,TrueFileName,Opts0) :-
absolute_file_name(File,TrueFileName,Opts) :-
( var(TrueFileName) -> ( var(TrueFileName) ->
true ; true ;
atom(TrueFileName), TrueFileName \= [] atom(TrueFileName), TrueFileName \= []
), !, ),
!,
absolute_file_name(File,Opts,TrueFileName). absolute_file_name(File,Opts,TrueFileName).
absolute_file_name(File,Opts,TrueFileName) :- absolute_file_name(File,Opts,TrueFileName) :-
'$absolute_file_name'(File,Opts,TrueFileName,absolute_file_name(File,Opts,TrueFileName)). '$absolute_file_name'(File,Opts,TrueFileName,absolute_file_name(File,Opts,TrueFileName)).
@ -158,7 +154,8 @@ absolute_file_name(File,Opts,TrueFileName) :-
Converts the given file specification into an absolute path, using default options. See absolute_file_name/3 for details on the options. Converts the given file specification into an absolute path, using default options. See absolute_file_name/3 for details on the options.
*/ */
absolute_file_name(V,Out) :- var(V), !, % absolute_file_name needs commenting. absolute_file_name(V,Out) :- var(V),
!, % absolute_file_name needs commenting.
'$do_error'(instantiation_error, absolute_file_name(V, Out)). '$do_error'(instantiation_error, absolute_file_name(V, Out)).
absolute_file_name(user,user) :- !. absolute_file_name(user,user) :- !.
absolute_file_name(File0,File) :- absolute_file_name(File0,File) :-
@ -247,7 +244,7 @@ absolute_file_name(File0,File) :-
; ;
EPath = APath EPath = APath
), ),
real_path( EPath, File), real_path( EPath, File),
'$absf_trace'(' after canonical path name: ~a', [File]), '$absf_trace'(' after canonical path name: ~a', [File]),
'$check_file'( File, Type, Access ), '$check_file'( File, Type, Access ),
'$absf_trace'(' after testing ~a for ~a and ~a', [File,Type,Access]). '$absf_trace'(' after testing ~a for ~a and ~a', [File,Type,Access]).
@ -256,7 +253,7 @@ absolute_file_name(File0,File) :-
'$core_file_name'(Name, Opts) --> '$core_file_name'(Name, Opts) -->
'$file_name'(Name, Opts, E), '$file_name'(Name, Opts, E),
'$suffix'(E, Opts), '$suffix'(E, Opts),
'$glob'(Opts). '$glob'(Opts).
% %
% handle library(lists) or foreign(jpl) % handle library(lists) or foreign(jpl)
@ -435,10 +432,10 @@ absolute_file_name(File0,File) :-
sub_atom(Cs, N0, 1, N, Sep), sub_atom(Cs, N0, 1, N, Sep),
!, !,
( (
sub_atom(Cs,0,N0,_,C) sub_atom(Cs,0,N0,_,C)
; ;
sub_atom(Cs,_,N,0,RC), sub_atom(Cs,_,N,0,RC),
'$paths'(RC, C) '$paths'(RC, C)
). ).
'$paths'(S, S). '$paths'(S, S).
@ -590,10 +587,6 @@ user:library_directory( Dir ) :-
This directory is initialized as a rule that calls the system predicate This directory is initialized as a rule that calls the system predicate
library_directories/2. library_directories/2.
*/
:- multifile user:commons_directory/1.
:- dynamic user:commons_directory/1. :- dynamic user:commons_directory/1.