Changeset 13554 for trunk/ippTasks/pantasks.pro

Timestamp:

May 30, 2007, 12:43:54 PM (19 years ago)

Author:

eugene

Message:

adding macros to add and del databases

File:

• trunk/ippTasks/pantasks.pro (modified) (1 diff)

trunk/ippTasks/pantasks.pro

@@ -22 +22 @@
 # is only used if DB:n is 0
 $DB:n = 0
+
+# user function to add databases by name (avoids duplicates)
+macro add.database
+  if ($0 != 2)
+    echo "USAGE: add.database (db)"
+    break
+  end
+  if ($?DB:n == 0)
+    list DB -add $1
+    return
+  end
+
+  $found = 0
+  for i 0 $DB:n
+    if ($DB:$i == $1) 
+      $found = 1
+      echo "$DB:$i set"
+      last
+    end
+  end
+  
+  if ($found == 0)
+    list DB -add $1
+  end
+end
+
+macro del.database
+  if ($0 != 2)
+    echo "USAGE: del.database (db)"
+    break
+  end
+  if ($?DB:n == 0)
+    return
+  end
+
+  list DB -del $1
+end
 
 macro init.cluster.po