chg: dev: factored array functions out !cosmetic

bin/compose

@@ -34,6 +34,7 @@
 include pretty
 include parse
 include charm
+include array
 
 depends shyaml docker
 
@@ -637,64 +638,6 @@ EOF
 export -f docker_add_host_declaration
 
 
-##
-## Arrays
-##
-
-array_values_to_stdin() {
-    local e
-    if [ "$#" -ne "1" ]; then
-        print_syntax_warning "$FUNCNAME: need one argument."
-        return 1
-    fi
-    var="$1"
-    eval "for e in \"\${$var[@]}\"; do echo -en \"\$e\\0\"; done"
-}
-
-array_keys_to_stdin() {
-    local e
-    if [ "$#" -ne "1" ]; then
-        print_syntax_warning "$FUNCNAME: need one argument."
-        return 1
-    fi
-    var="$1"
-    eval "for e in \"\${!$var[@]}\"; do echo -en \"\$e\\0\"; done"
-}
-
-array_kv_to_stdin() {
-    local e
-    if [ "$#" -ne "1" ]; then
-        print_syntax_warning "$FUNCNAME: need one argument."
-        return 1
-    fi
-    var="$1"
-    eval "for e in \"\${!$var[@]}\"; do echo -n \"\$e\"; echo -en '\0'; echo -n \"\${$var[\$e]}\"; echo -en '\0'; done"
-}
-
-
-array_pop() {
-    local narr="$1" nres="$2"
-    for key in $(eval "echo \${!$narr[@]}"); do
-        eval "$nres=\${$narr[\"\$key\"]}"
-        eval "unset $narr[\"\$key\"]"
-        return 0
-    done
-}
-export -f array_pop
-
-array_member() {
-    local src="$1" elt="$2"
-    while read-0 key; do
-        if [ "$(eval "echo -n \"\${$src[\$key]}\"")" == "$elt" ]; then
-            return 0
-        fi
-    done < <(array_keys_to_stdin "$src")
-    return 1
-}
-export -f array_member
-
-
-
 
 ##
 ## Internal Process