From: Adam Dickmeiss <adam@indexdata.dk>
Date: Tue, 10 Jun 2003 13:16:16 +0000 (+0000)
Subject: Fix default rule match
X-Git-Tag: tclrobot.0.2.0~14
X-Git-Url: http://git.indexdata.com/?p=tclrobot.git;a=commitdiff_plain;h=e0e42a2b8319ccf7b548ba425d42ba4c82b97ce0

Fix default rule match
---

diff --git a/robot.tcl b/robot.tcl
index 93604a8..2d9ea64 100755
--- a/robot.tcl
+++ b/robot.tcl
@@ -1,5 +1,5 @@
 #!/usr/bin/tclsh 
-# $Id: robot.tcl,v 1.40 2003/06/10 12:46:04 adam Exp $
+# $Id: robot.tcl,v 1.41 2003/06/10 13:16:16 adam Exp $
 #
 proc RobotFileNext1 {area lead} {
     # puts "RobotFileNext1 area=$area lead=$lead"
@@ -1066,6 +1066,8 @@ proc checkrule {task type this} {
     global control
     global debuglevel
 
+    set default_ret 1
+
     if {$debuglevel > 3} {
         puts "CHECKRULE $type $this"
     }
@@ -1079,6 +1081,7 @@ proc checkrule {task type this} {
             # consider mask (! negates)
             set masks [lindex $l 2]
 	    set ok 0
+	    set default_ret 0
 	    foreach mask $masks {	
                 if {$debuglevel > 4} {
                     puts "consider single mask $mask"
@@ -1108,15 +1111,11 @@ proc checkrule {task type this} {
                 return 0
             }
         }
-	if {$debuglevel > 3} {
-	    puts "CHECKFULE MATCH FAIL"
-	}
-	return 0
     }
     if {$debuglevel > 3} {
-        puts "CHECKRULE MATCH OK"
+        puts "CHECKRULE MATCH DEFAULT $default_ret"
     }
-    return 1
+    return $default_ret
 }