Changeset 16173 for trunk/ippTasks/pantasks.pro

Timestamp:

Jan 20, 2008, 3:59:25 PM (18 years ago)

Author:

eugene

Message:

merging changes from eam_branch_20080109: adding workdir/volume mangling and chip/hostname relationships

File:

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

trunk/ippTasks/pantasks.pro

@@ -1 +1 @@
 
 # XXX make these upper-case
+$NEBULOUS = 0
 $network = 1
 $parallel = 1
@@ -339 +340 @@
   ??
 end
+
+macro set.workdir.by.camera
+  if ($0 != 3)
+    echo "USAGE: set.workdir.by.camera (camera) (class_id)"
+    break
+  end
+
+  # missing camera and/or chiphosts table results in host = NULL
+  book getword chiphosts $1 $2 -var $host
+
+  if ($NEBULOUS)
+    if ("$host" == "NULL")
+      $workdir = $workdir_default
+      $volume  = "NULL"
+      return
+    end
+    strsub $workdir_template @HOST@ $host -var workdir
+    strsub $volume_template @HOST@ $host -var volume
+    return
+  end
+
+  if ("$host" == "NULL")
+    $workdir = $workdir_default
+    return
+  end
+  strsub $workdir_template @HOST@ $host -var workdir
+end
+
+macro set.host.by.camera
+  if ($0 != 3)
+    echo "USAGE: set.host.by.camera (camera) (class_id)"
+    break
+  end
+
+  if (not($parallel))
+    host local
+    return
+  end
+
+  # missing camera and/or chiphosts table results in host = NULL
+  book getword chiphosts $1 $2 -var $host
+
+  if ("$host" == "NULL")
+    host anyhost
+  else
+    host $host
+  end
+end