Assigning Values to an Array: Difference between revisions

Content added Content deleted

Inline

@@ Line 542: / Line 542: @@
 =={{header|Tcl}}==
-  proc setIfExist {theVariable value} {
+<lang tcl>proc setIfExist {theVariable value} {
-      upvar 1 $theVariable variable
+    upvar 1 $theVariable variable
-      if {[info exists theVariable]} {
+    if {[info exists theVariable]} {
-          set theVariable $value
+        set theVariable $value
-      } else {
+    } else {
-          error "$theVariable doesn't exist"
+        error "$theVariable doesn't exist"
-      }
+    }
+}</lang>
-  }
 Note that <tt>setIfExist</tt> is general purpose and works on regular variables as well as arrays:
-  setIfExist foo(bar) 10 ;# error if foo(bar) doesn't exist
+<lang tcl>setIfExist foo(bar) 10 ;# error if foo(bar) doesn't exist
-  setIfExist x 10        ;# error if x doesn't exist
+setIfExist x 10        ;# error if x doesn't exist</lang>
 =={{header|Toka}}==