tests/varenv4.sub

   1 #   This program is free software: you can redistribute it and/or modify
   2 #   it under the terms of the GNU General Public License as published by
   3 #   the Free Software Foundation, either version 3 of the License, or
   4 #   (at your option) any later version.
   5 #
   6 #   This program is distributed in the hope that it will be useful,
   7 #   but WITHOUT ANY WARRANTY; without even the implied warranty of
   8 #   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   9 #   GNU General Public License for more details.
  10 #
  11 #   You should have received a copy of the GNU General Public License
  12 #   along with this program.  If not, see <http://www.gnu.org/licenses/>.
  13 #
  14 f()
  15 {
  16         local -a v
  17         local -a w
  18
  19         g
  20         echo "f: ${v[@]}, ${w[@]}"
  21 }
  22
  23 g()
  24 {
  25         aux=v
  26         declare -ga "$aux=( asdf fdsa )"
  27         declare -ga w=( asdf fdsa )
  28
  29         echo "g: ${v[@]}, ${w[@]}"
  30 }
  31
  32 f
  33 echo "FIN: ${v[@]}, ${w[@]}"
  34
  35 unset v w
  36 unset -f f g
  37
  38 f()
  39 {
  40         local  v
  41         local  w
  42
  43         g
  44         echo f: v = $v, w = $w
  45 }
  46
  47 g()
  48 {
  49         aux=v
  50         declare -g w=one
  51         declare -g "$aux=two"
  52
  53         echo g: v = $v, w = $w
  54 }
  55
  56 f
  57 echo FIN: v = $v, w = $w
  58
  59 # problem with error return propagation through bush-4.3
  60 unset -f aaa bbb
  61 unset unique
  62
  63 aaa() {
  64     declare -g -a unique=()
  65 }
  66 bbb() {
  67     declare -g -A unique=()
  68 }
  69 aaa
  70 bbb
  71 echo after bbb: $?