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

CLP(BN) related fixes

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1914 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2007-07-07 01:52:57 +00:00
parent 71eea67bc8
commit 9a730f3b05
8 changed files with 228 additions and 530 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
library/matlab.yap
View File

@@ -19,7 +19,8 @@
matlab_item/4,
matlab_item1/3,
matlab_item1/4,
matlab_sequence/3]).
matlab_sequence/3,
matlab_call/2]).
:- ensure_loaded(library(lists)).
@@ -74,12 +75,14 @@ build_outputs([Out|Outs],[Out,' '|L],L0) :-
build_outputs(Outs,L,L0).
build_args([],L,L).
build_args([Arg],Lf,L0) :-
build_args([Arg],Lf,L0) :- !,
build_arg(Arg,Lf,[')'|L0]).
build_args([Arg|Args],L,L0) :-
build_arg(Arg,L,[', '|L1]),
build_args(Args,L1,L0).
build_arg(V,_,_) :- var(V), !,
throw(error(instantiation_error)).
build_arg(Arg,[Arg|L],L) :- atomic(Arg), !.
build_arg(\S0,['\'',S0,'\''|L],L) :-
atom(S0), !.
@@ -96,7 +99,8 @@ build_arg(F,[N,'{'|L],L0) :- %N({A}) = N{A}
F=..[N,{A}], !,
build_arg(A,L,['}'|L0]).
build_arg(F,[N,'('|L],L0) :-
build_args(A,L,L0).
F=..[N|As],
build_args(As,L,L0).
build_arglist([A],L,L0) :- !,
build_arg(A,L,[' ]'|L0]).