initial commit

tcl/startup/array.tcl

@@ -0,0 +1,7 @@
+proc array_init {name args} {
+  foreach {key value} $args {
+    if {![$name exists $key]} {
+      $name makeitem $key $value
+    }
+  }
+}