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

working directory is now a part of YAP kernel.

Browse Source
This commit is contained in:
Vitor Santos Costa 2011-02-12 00:44:39 +00:00
parent 712300027e
commit 42ff655ae5
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
library/dialect/swi.yap
View File

@ -9,7 +9,6 @@
is_absolute_file_name/1, is_absolute_file_name/1,
read_clause/1, read_clause/1,
string/1, string/1,
working_directory/2,
chdir/1, chdir/1,
compile_aux_clauses/1, compile_aux_clauses/1,
convert_time/2, convert_time/2,
@ -210,7 +209,6 @@ goal_expansion('$push_input_context', system:'swi_$push_input_context').
goal_expansion('$pop_input_context', system:'swi_$pop_input_context'). goal_expansion('$pop_input_context', system:'swi_$pop_input_context').
goal_expansion('$size_stream'(A,B),system:'swi_$size_stream'(A,B)) :- swi_io. goal_expansion('$size_stream'(A,B),system:'swi_$size_stream'(A,B)) :- swi_io.
goal_expansion(working_directory(A,B),system:swi_working_directory(A,B)) :- swi_io.
goal_expansion(access_file(A,B),system:swi_access_file(A,B)) :- swi_io. goal_expansion(access_file(A,B),system:swi_access_file(A,B)) :- swi_io.
goal_expansion(size_file(A,B),system:swi_size_file(A,B)) :- swi_io. goal_expansion(size_file(A,B),system:swi_size_file(A,B)) :- swi_io.
goal_expansion(read_link(A,B,C), system:swi_read_link(A,B,C)) :- swi_io. goal_expansion(read_link(A,B,C), system:swi_read_link(A,B,C)) :- swi_io.
@ -315,10 +313,6 @@ cvt_bindings([[Name|Value]|L],[AName=Value|Bindings]) :-
atom_codes(AName, Name), atom_codes(AName, Name),
cvt_bindings(L,Bindings). cvt_bindings(L,Bindings).
working_directory(OCWD,NCWD) :-
getcwd(OCWD),
(var(NCWD) -> true ; cd(NCWD)).
chdir(X) :- cd(X). chdir(X) :- cd(X).
% Time is received as int, and converted to "..." % Time is received as int, and converted to "..."