Do not special-case parsing of constant values in event scheduler.

Instead, constants are now specified as a "const" function with a
single argument, in addition to already existing "rand", "ramp" and
"square" functions.

Bug found by:
Submitted by:	Mirta Medanic <mirta.medanic@fer.hr>
Reviewed by:
Approved by:
Obtained from:

diff --git a/eventsched.tcl b/eventsched.tcl
index 4f122d68e58dd9e707edb048b67b0b4f3c73a802..ca42a8ac447fbc639904c8d7ab4b24d1f34567b8 100644 (file)
--- a/eventsched.tcl
+++ b/eventsched.tcl
@@ -23,7 +23,7 @@
 # SUCH DAMAGE.
 #
 
-# $Id: eventsched.tcl,v 1.7 2008/07/17 13:09:01 marko Exp $
+# $Id: eventsched.tcl,v 1.8 2008/09/24 13:02:54 marko Exp $
 
 
 proc evsched {} {
@@ -113,8 +113,10 @@ proc evsched {} {
                        set need_sort 1
                    }
                }
+           } elseif { [lindex $params 0] == "const" } {
+               set value [lindex $params 1]
            } else {
-               set value [lindex $params 0]
+               puts "bogus event line: $event"
            }
            switch -exact -- $target {
                bandwidth {