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

init better; problog_low accepts conditional probabilities (untested); accept (p0::a;p1::b).

Browse Source
This commit is contained in:
Vitor Santos Costa
2016-08-05 16:43:11 -05:00
parent 0aeeb726e3
commit b3a11b339a
6 changed files with 123 additions and 121 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
packages/ProbLog/problog/os.yap
View File

@@ -244,15 +244,15 @@ set_problog_path( _Path):-
atom_concat(ROOT, '/bin', P2),
getenv('PATH',Dirs),
path_grouping( PathSep ),
atomic_list_concat( LPaths, PathSep, Dirs),
atomic_list_concat( LPaths, PathSep, Dirs),
set_problog_paths( [P1,P2| LPaths] ),
fail.
set_problog_path(Path):-
path_separator( S ),
sub_atom(Path, _, 1, 0, S), !,
sub_atom(Path, _, _, 1, Path0),
sub_atom(Path, _, 1, 0, S), !,
sub_atom(Path, _, _, 1, Path0),
asserta(problog_path(Path0)).
set_problog_path(Path):-
asserta(problog_path(Path)).
@@ -309,7 +309,8 @@ calc_md5_intern(Filename,MD5) :-
file_to_codes( F, Codes, LF ) :-
open(F, read, S),
get_codes( S, Codes, LF).
get_codes( S, Codes, LF),
close(S).
get_codes(S, [C|L], LF) :-
get_code(S, C),
@@ -319,13 +320,13 @@ get_codes(S, [C|L], LF) :-
get_codes(_, LF, LF).
%========================================================================
%=
%=
%=
%=
%=
%=
%========================================================================
check_existance(FileName):-
check_existance(FileName):-
convert_filename_to_problog_path(FileName, Path),
catch(file_exists(Path), _, fail), !.
check_existance(FileName):-
@@ -339,5 +340,3 @@ path_grouping(PathSep) :-
path_separator('\\') :-
current_prolog_flag( windows, true ).
path_separator('/').