From: marko <marko>
Date: Wed, 24 Sep 2008 13:02:54 +0000 (+0000)
Subject: Do not special-case parsing of constant values in event scheduler.
X-Git-Url: https://git.entuzijast.net/?a=commitdiff_plain;h=5454938997adee622d98f4014d22d7fe7bc54aeb;p=imunes.git

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 4f122d6..ca42a8a 100644
--- 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 {