From e0e42a2b8319ccf7b548ba425d42ba4c82b97ce0 Mon Sep 17 00:00:00 2001
From: Adam Dickmeiss <adam@indexdata.dk>
Date: Tue, 10 Jun 2003 13:16:16 +0000
Subject: [PATCH] Fix default rule match

---
 robot.tcl |   13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

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
 }
 
 
-- 
1.7.10.4