Changeset 2408

Timestamp:

Apr 25, 2011, 6:05:21 PM (14 years ago)

Author:

Andreas Schnellbacher

Message:

• Added DropAVar proc.

File:

• trunk/src/netlabs/macros/stdctrl.e (modified) (2 diffs)

trunk/src/netlabs/macros/stdctrl.e ¶

@@ -5 +5 @@
 * Copyright (c) Netlabs EPM Distribution Project 2002
 *
-* $Id: stdctrl.e,v 1.51 2009-06-23 00:53:58 aschn Exp $
+* $Id: stdctrl.e,v 1.52 2011-04-25 16:05:21 aschn Exp $
 *
 * ===========================================================================
@@ -1310 +1310 @@
    parse value args with varname varvalue
    call DelAVar( varname, varvalue)
+
+; ---------------------------------------------------------------------------
+; Remove varname from array
+defproc DropAVar( varname)
+   universal EPM_utility_array_ID
+   varname = lowcase( varname)
+   do_array 4, EPM_utility_array_ID, varname  -- delete entry
+   return
+
+defc DropAVar
+   varname = strip( arg(1))
+   call DropAVar( varname)
 
 ; ---------------------------------------------------------------------------