fixing temp structure

This commit is contained in:
Theofrastos Mantadelis 2010-09-24 12:42:44 +02:00
parent a48d3195b2
commit c0b1d3d40d

View File

@ -465,8 +465,7 @@ problog_dir(PD):- problog_path(PD).
init_global_params :- init_global_params :-
%grow_atom_table(1000000), %grow_atom_table(1000000),
getcwd(Work),
concat_path_with_filename(Work, output, WorkDir),
%%%%%%%%%%%% %%%%%%%%%%%%
% working directory: all the temporary and output files will be located there % working directory: all the temporary and output files will be located there
% it assumes a subdirectory of the current working dir % it assumes a subdirectory of the current working dir
@ -475,7 +474,7 @@ init_global_params :-
%%%%%%%%%%%% %%%%%%%%%%%%
tmpnam(TempFolder), tmpnam(TempFolder),
atomic_concat([TempFolder, '_problog'], TempProblogFolder), atomic_concat([TempFolder, '_problog'], TempProblogFolder),
problog_define_flag(dir, problog_flag_validate_directory, 'directory for files', WorkDir, TempProblogFolder), problog_define_flag(dir, problog_flag_validate_directory, 'directory for files', TempProblogFolder, output),
check_existance('problogbdd'). check_existance('problogbdd').
check_existance(FileName):- check_existance(FileName):-