Changeset 24244 for branches/cnb_branches/cnb_branch_20090301/ippTasks/pantasks.pro

Timestamp:

May 26, 2009, 1:59:32 PM (17 years ago)

Author:

beaumont

Message:

merged with trunk

Location:

branches/cnb_branches/cnb_branch_20090301

Files:

• . (modified) (1 prop)
• ippTasks/pantasks.pro (modified) (10 diffs)

branches/cnb_branches/cnb_branch_20090301/ippTasks/pantasks.pro

@@ -6 +6 @@
 $PARALLEL = 1
 $VERBOSE = 1
-$LABEL = "NONE"
+$LABEL:n = 0
 $POLLLIMIT = 32
 $LOGDIR = `pwd`
@@ -14 +14 @@
 
 $LOADPOLL = 1.0
-$LOADEXEC = 5
-$RUNPOLL = 0.5
-$RUNEXEC = 1
+$LOADEXEC = 5.0
+
+$RUNPOLL  = 0.5
+$RUNEXEC  = 1.0
 
 $EXIT_SUCCESS     = 0
@@ -24 +25 @@
 $EXIT_PROG_ERR    = 4
 $EXIT_DATA_ERR    = 5
+$EXIT_CRASH_ERR   = 256
 
 # DB lists the database names in use; the default ipprc database
@@ -33 +35 @@
 $workdir_template = `pwd`
 
-# user function to add databases by name (avoids duplicates)
+# user functions to manage databases
 macro add.database
   if ($0 != 2)
@@ -44 +46 @@
   end
 
+  local found
   $found = 0
   for i 0 $DB:n
@@ -68 +71 @@
 
   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 +275 @@
     end
 
-    local command
+    local command i
     $command = $$1 -limit $POLLLIMIT
 
+    $$1 = $command
+end
+
+macro add_poll_labels
+    if ($0 != 2)
+        echo "Must pass in the command of interest, and this function will supplement"
+        stop
+    end
+
+    local command i
+
+    $command = $$1
+
     # 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
 
@@ -302 +392 @@
   end
 
+  # failure related to pantasks
+  if ($exitCode == $EXIT_CRASH_ERR)
+    # stop
+    showcommand "crash error"
+    book setword $bookName $pageName pantaskState CRASH_ERR
+    return
+  end
+
   # any other exit status
   showcommand failure
@@ -322 +420 @@
     book delpage $1 -key pantaskState CONFIG_ERR
     book delpage $1 -key pantaskState UNKNOWN_ERR
-  end
+    book delpage $1 -key pantaskState CRASH_ERR
+  end
+end
+
+macro set.poll
+  if ($0 != 2)
+    echo "USAGE:set.poll (value)"
+    break
+  end
+ 
+  $POLLLIMIT = $1
+end
+
+macro get.poll
+  echo "poll limit: $POLLLIMIT"
 end
 
@@ -331 +443 @@
   end
   $VERBOSE = $1
+end
+
+macro get.verbosity
+  echo "verbosity: $VERBOSE"
 end