Changeset 23916 for trunk/ippTasks/pantasks.pro

Timestamp:

Apr 17, 2009, 4:22:11 PM (17 years ago)

Author:

eugene

Message:

select tasks from a LABEL list rather than a single LABEL variable

File:

• trunk/ippTasks/pantasks.pro (modified) (5 diffs)

trunk/ippTasks/pantasks.pro

@@ -6 +6 @@
 $PARALLEL = 1
 $VERBOSE = 1
-$LABEL = "NONE"
+$LABEL:n = 0
 $POLLLIMIT = 32
 $LOGDIR = `pwd`
@@ -33 +33 @@
 $workdir_template = `pwd`
 
-# user function to add databases by name (avoids duplicates)
+# user functions to manage databases
 macro add.database
   if ($0 != 2)
@@ -44 +44 @@
   end
 
+  local found
   $found = 0
   for i 0 $DB:n
@@ -68 +69 @@
 
   list DB -del $1
+end
+
+macro show.databases
+  if ($0 != 1)
+    echo "USAGE: show.databases"
+    break
+  end
+  if ($?DB:n == 0)
+    echo "no databases defined"
+  end
+  if ($DB:n == 0)
+    echo "no databases defined"
+  end
+
+  local i
+  for i 0 $DB:n
+    echo $DB:$i
+  end
+end
+
+# user functions to manipulate labels
+macro add.label
+  if ($0 != 2)
+    echo "USAGE: add.label (label)"
+    break
+  end
+  if ($?LABEL:n == 0)
+    list LABEL -add $1
+    return
+  end
+
+  local found
+  $found = 0
+  for i 0 $LABEL:n
+    if ($LABEL:$i == $1) 
+      $found = 1
+      echo "$LABEL:$i set"
+      last
+    end
+  end
+  
+  if ($found == 0)
+    list LABEL -add $1
+  end
+end
+
+macro del.label
+  if ($0 != 2)
+    echo "USAGE: del.label (label)"
+    break
+  end
+  if ($?LABEL:n == 0)
+    return
+  end
+
+  list LABEL -del $1
+end
+
+macro show.labels
+  if ($0 != 1)
+    echo "USAGE: show.labels"
+    break
+  end
+  if ($?LABEL:n == 0)
+    echo "no labels defined"
+  end
+  if ($LABEL:n == 0)
+    echo "no labels defined"
+  end
+
+  local i
+  for i 0 $LABEL:n
+    echo $LABEL:$i
+  end
 end
 
@@ -198 +273 @@
     end
 
-    local command
+    local command i
     $command = $$1 -limit $POLLLIMIT
 
     # Only process the data with the specified label.
-    if ($?LABEL && $LABEL != "NONE")
-        $command = $command -label $LABEL
+    for i 0 $LABEL:n
+      $command = $command -label $LABEL:$i
     end