Changeset 25742

Timestamp:

Oct 2, 2009, 11:48:31 AM (17 years ago)

Author:

eugene

Message:

add macros to save and load labels; protect user-set values for globals when reloading pantasks.pro

File:

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

trunk/ippTasks/pantasks.pro

@@ -1 +1 @@
 ## pantasks.pro : globals and support macros : -*- sh -*-
 
+# globals that may be modified by the user -- only init if not set
+if ($?NEBULOUS == 0)      set NEBULOUS = 0
+if ($?NETWORK == 0)       set NETWORK = 1
+if ($?PARALLEL == 0)      set PARALLEL = 1
+if ($?VERBOSE == 0)       set VERBOSE = 1
+if ($?LABEL:n == 0)       set LABEL:n = 0
+if ($?POLLLIMIT == 0)     set POLLLIMIT = 32
+if ($?KEEP_FAILURES == 0) set KEEP_FAILURES = 0
+
+if ($?LOGDIR == 0) 
+  $LOGDIR = `pwd`
+  $LOGDIR = $LOGDIR/pantasks_logs
+  mkdir $LOGDIR
+end
+
 # globals used to control system behavior : these should be in uppercase
-$NEBULOUS = 0
-$NETWORK = 1
-$PARALLEL = 1
-$VERBOSE = 1
-$LABEL:n = 0
-$POLLLIMIT = 32
-$LOGDIR = `pwd`
-$LOGDIR = $LOGDIR/pantasks_logs
-mkdir $LOGDIR
-$KEEP_FAILURES = 0
-
 $LOADPOLL = 1.0
 $LOADEXEC = 5.0
@@ -144 +148 @@
   for i 0 $LABEL:n
     echo $LABEL:$i
+  end
+end
+
+macro save.labels
+  if ($0 != 1)
+    echo "USAGE: save.labels"
+    break
+  end
+  if ($?LABEL:n == 0)
+    echo "no labels defined"
+  end
+  if ($LABEL:n == 0)
+    echo "no labels defined"
+  end
+
+  exec rm -f labels.list
+  local i
+  for i 0 $LABEL:n
+    exec echo $LABEL:$i >> labels.list
+  end
+end
+
+macro load.labels
+  if ($0 != 1)
+    echo "USAGE: load.labels"
+    break
+  end
+
+  file labels.list found
+  if (not($found)) 
+    echo "no saved labels in labels.list"
+    return
+  end
+ 
+  list mylabels -x "cat labels.list"
+  local i
+  for i 0 $mylabels:n
+    add.label $mylabels:$i
   end
 end