-#TODO:
-#distinction lun-jeudi, puis ven, sam, dim
-#isSameDay = function(day, day_ref)
-#{
-# if (day_ref ==
+# isSameDay
+#
+# Monday=Tuesday=Wednesday=Thursday ; Friday, Saturday, Sunday: specials.
+#
+# @param day Day index to test
+# @param day_ref Day index to compare to
+#
+.isSameDay = function(day, day_ref)
+{
+ if (day_ref %in% 1:4)
+ return (day %in% 1:4)
+ return (day == day_ref)
+}