107 lines
1.8 KiB
Text
107 lines
1.8 KiB
Text
# This program is free software: you can redistribute it and/or modify
|
|
# it under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation, either version 3 of the License, or
|
|
# (at your option) any later version.
|
|
#
|
|
# This program is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
#
|
|
|
|
# assoc_expand_once for builtins
|
|
|
|
typeset -A a
|
|
a[0]=0 a[1]=1
|
|
|
|
let "a[\" \"]=11" ; typeset -p a ; a[0]=0
|
|
|
|
unset a
|
|
|
|
# tests for `problem' keys when using associative arrays and assoc_expand_once
|
|
# deal with problems for now; this is a placeholder for if and when I fix them
|
|
|
|
typeset -A a
|
|
|
|
k='['
|
|
echo $(( a[$k]=7 ))
|
|
|
|
k=']'
|
|
echo $(( a[$k]=7 ))
|
|
|
|
unset a
|
|
|
|
declare -A A
|
|
|
|
for k in $'\t' ' '; do
|
|
(( A[$k]=2 ))
|
|
done
|
|
declare -p A
|
|
|
|
for k in ']' '*' '@'; do
|
|
(( A[$k]=2 ))
|
|
done
|
|
|
|
declare -p A
|
|
|
|
unset A
|
|
declare -A A
|
|
|
|
for k in $'\t' ' ' ']' '*' '@'; do
|
|
read "A[$k]" <<< X
|
|
done
|
|
declare -p A
|
|
|
|
unset A
|
|
declare -A A
|
|
|
|
for k in $'\t' ' ' ']' '*' '@'; do
|
|
printf -v "A[$k]" "%s" X
|
|
done
|
|
declare -p A
|
|
|
|
unset A
|
|
declare -A A
|
|
|
|
for k in ']' '*' '@'; do
|
|
declare A[$k]=X
|
|
done
|
|
declare -p A
|
|
|
|
unset A
|
|
declare -A A
|
|
|
|
for k in ']' '*' '@'; do
|
|
declare "A[$k]=X"
|
|
done
|
|
declare -p A
|
|
|
|
unset A
|
|
|
|
# this isn't right yet, but changes will show up here
|
|
shopt -s assoc_expand_once
|
|
declare -A assoc
|
|
key='x],b[$(echo uname >&2)'
|
|
|
|
let assoc[$key]++
|
|
declare -p assoc
|
|
|
|
unset assoc
|
|
|
|
typeset -A assoc
|
|
at=@
|
|
|
|
key='$(echo foo)'
|
|
|
|
assoc[$key]=1
|
|
declare -p assoc
|
|
|
|
shopt -s assoc_expand_once
|
|
test -v assoc["$key"] ; echo $?
|
|
|
|
unset assoc
|
|
shopt -u assoc_expand_once
|
|
|