initialize FloatVar

2013-09-04 17:01:37 +01:00
parent c21b5bef3c
commit 614e7ab856
2 changed files with 21 additions and 0 deletions
--- a/library/gecode/gecode4_yap_hand_written.yap
+++ b/library/gecode/gecode4_yap_hand_written.yap
@@ -410,6 +410,14 @@ new_intvar(IVar, Space, IntSet) :- !,
 	gecode_new_intvar_from_intset(Idx,Space_,L),
 	IVar='IntVar'(Idx,-1).

+new_floatvar(FVar, Space, Lo, Hi) :- !,
+	assert_var(IVar),
+	assert_is_Space_or_Clause(Space,Space_),
+	assert_float(Lo),
+	assert_float(Hi),
+	gecode_new_floatvar_from_bounds(Idx,Space_,Lo,Hi),
+	FVar='FloatVar'(Idx,-1).
+
 new_boolvar(BVar, Space) :- !,
 	assert_var(BVar),
 	assert_is_Space_or_Clause(Space,Space_),