usr/src/lib/libshell/common/tests/functions.sh

   1 ########################################################################
   2 #                                                                      #
   3 #               This software is part of the ast package               #
   4 #          Copyright (c) 1982-2010 AT&T Intellectual Property          #
   5 #                      and is licensed under the                       #
   6 #                  Common Public License, Version 1.0                  #
   7 #                    by AT&T Intellectual Property                     #
   8 #                                                                      #
   9 #                A copy of the License is available at                 #
  10 #            http://www.opensource.org/licenses/cpl1.0.txt             #
  11 #         (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9)         #
  12 #                                                                      #
  13 #              Information and Software Systems Research               #
  14 #                            AT&T Research                             #
  15 #                           Florham Park NJ                            #
  16 #                                                                      #
  17 #                  David Korn <dgk@research.att.com>                   #
  18 #                                                                      #
  19 ########################################################################
  20 function err_exit
  21 {
  22         print -u2 -n "\t"
  23         print -u2 -r ${Command}[$1]: "${@:2}"
  24         let Errors+=1
  25 }
  26 alias err_exit='err_exit $LINENO'
  27
  28 integer Errors=0
  29 Command=${0##*/}
  30
  31 ulimit -c 0
  32
  33 tmp=$(mktemp -dt) || { err_exit mktemp -dt failed; exit 1; }
  34 trap "cd /; rm -rf $tmp" EXIT
  35
  36 integer foo=33
  37 bar=bye
  38 # check for global variables and $0
  39 function foobar
  40 {
  41         case $1 in
  42         1)      print -r - "$foo" "$bar";;
  43         2)      print -r - "$0";;
  44         3)      typeset foo=foo
  45                 integer bar=10
  46                 print -r - "$foo" "$bar";;
  47         4)      trap 'foo=36' EXIT
  48                 typeset foo=20;;
  49         esac
  50 }
  51 function print
  52 {
  53         command print hi
  54 }
  55 if      [[ $(print) != hi ]]
  56 then    err_exit "command print not working inside print function"
  57 fi
  58 unset -f print
  59
  60 if      [[ $(foobar 1) != '33 bye' ]]
  61 then    err_exit 'global variables not correct'
  62 fi
  63
  64 if      [[ $(foobar 2) != 'foobar' ]]
  65 then    err_exit '$0  not correct'
  66 fi
  67
  68 if      [[ $(bar=foo foobar 1) != '33 foo' ]]
  69 then    err_exit 'environment override not correct'
  70 fi
  71 if      [[ $bar == foo ]]
  72 then    err_exit 'scoping error'
  73 fi
  74
  75 if      [[ $(foobar 3) != 'foo 10' ]]
  76 then    err_exit non-local variables
  77 fi
  78
  79 foobar 4
  80 if      [[ $foo != 36 ]]
  81 then    err_exit EXIT trap in wrong scope
  82 fi
  83 unset -f foobar || err_exit "cannot unset function foobar"
  84 typeset -f foobar>/dev/null  && err_exit "typeset -f has incorrect exit status"
  85
  86 function foobar
  87 {
  88         (return 0)
  89 }
  90 > $tmp/test1
  91 {
  92 foobar
  93 if      [ -r $tmp/test1 ]
  94 then    rm -r $tmp/test1
  95 else    err_exit 'return within subshell inside function error'
  96 fi
  97 }
  98 abc() print hi
  99 if      [[ $(abc) != hi ]]
 100 then    err_exit 'abc() print hi not working'
 101 fi
 102 ( unset -f abc )
 103 if      [[ $(abc 2>/dev/null) != hi ]]
 104 then    err_exit 'abc() print hi not working after subshell unset'
 105 fi
 106 (
 107         function f
 108         {
 109                 exit 1
 110         }
 111         f
 112         err_exit 'exit from function not working'
 113 )
 114 unset -f foo
 115 function foo
 116 {
 117         x=2
 118         (
 119                 x=3
 120                 cd $tmp
 121                 print bar
 122         )
 123         if      [[ $x != 2 ]]
 124         then    err_exit 'value of x not restored after subshell inside function'
 125         fi
 126 }
 127 x=1
 128 dir=$PWD
 129 if      [[ $(foo) != bar ]]
 130 then    err_exit 'cd inside nested subshell not working'
 131 fi
 132 if      [[ $PWD != "$dir" ]]
 133 then    err_exit 'cd inside nested subshell changes $PWD'
 134 fi
 135 fun() /bin/echo hello
 136 if      [[ $(fun) != hello ]]
 137 then    err_exit one line functions not working
 138 fi
 139 cat > $tmp/script <<-\!
 140         print -r -- "$1"
 141 !
 142 chmod +x $tmp/script
 143 function passargs
 144 {
 145         $tmp/script "$@"
 146 }
 147 if      [[ $(passargs one) != one ]]
 148 then    err_exit 'passing args from functions to scripts not working'
 149 fi
 150 cat > $tmp/script <<-\!
 151         trap 'exit 0' EXIT
 152         function foo
 153         {
 154                 /tmp > /dev/null 2>&1
 155         }
 156         foo
 157 !
 158 if      ! $tmp/script
 159 then    err_exit 'exit trap incorrectly triggered'
 160 fi
 161 if      ! $SHELL -c $tmp/script
 162 then    err_exit 'exit trap incorrectly triggered when invoked with -c'
 163 fi
 164 $SHELL -c "trap 'rm $tmp/script' EXIT"
 165 if      [[ -f $tmp/script ]]
 166 then    err_exit 'exit trap not triggered when invoked with -c'
 167 fi
 168 cat > $tmp/script <<- \EOF
 169         foobar()
 170         {
 171                 return
 172         }
 173         shift
 174         foobar
 175         print -r -- "$1"
 176 EOF
 177 chmod +x $tmp/script
 178 if      [[ $( $SHELL $tmp/script arg1 arg2) != arg2 ]]
 179 then    err_exit 'arguments not restored by posix functions'
 180 fi
 181 function foo
 182 {
 183         print hello
 184 }
 185 (
 186         function foo
 187         {
 188                 print bar
 189         }
 190         if [[ $(foo) != bar ]]
 191         then    err_exit 'function definitions inside subshells not working'
 192         fi
 193 )
 194 if [[ $(foo) != hello ]]
 195 then    err_exit 'function definitions inside subshells not restored'
 196 fi
 197 unset -f foo bar
 198 function bar
 199 {
 200         print "$y"
 201 }
 202
 203 function foo
 204 {
 205         typeset x=3
 206         y=$x bar
 207 }
 208 x=1
 209 if      [[ $(foo) != 3 ]]
 210 then    err_exit 'variable assignment list not using parent scope'
 211 fi
 212 unset -f foobar
 213 cat > $tmp/foobar <<!
 214 function foobar
 215 {
 216         print foo
 217 }
 218 !
 219 chmod +x $tmp/foobar
 220 FPATH=$tmp
 221 autoload foobar
 222 if      [[ $(foobar 2>/dev/null) != foo ]]
 223 then    err_exit 'autoload not working'
 224 fi
 225 unset -f foobar
 226 function foobar
 227 {
 228         typeset -r x=3
 229         return 0
 230 }
 231 ( foobar ) 2> /dev/null || err_exit "cannot unset readonly variable in function"
 232 if      $SHELL -n 2> /dev/null <<-!
 233         abc()
 234         !
 235 then    err_exit 'abc() without a function body is not a syntax error'
 236 fi
 237 function winpath
 238 {
 239         usage='q pathname ...'
 240         typeset var format=s
 241         while   getopts  "$usage" var
 242         do      case $var in
 243                 q)      format=q;;
 244                 esac
 245         done
 246         print done
 247 }
 248 if      [[ $( (winpath --man 2>/dev/null); print ok) != ok ]]
 249 then    err_exit 'getopts --man in functions not working'
 250 fi
 251 if      [[ $( (winpath -z 2>/dev/null); print ok) != ok ]]
 252 then    err_exit 'getopts with bad option in functions not working'
 253 fi
 254 unset -f x
 255 function x
 256 {
 257         print "$@"
 258 }
 259 typeset -ft x
 260 if      [[ $(x x=y 2>/dev/null) != x=y ]]
 261 then    err_exit 'name=value pair args not passed to traced functions'
 262 fi
 263 function bad
 264 {
 265         false
 266 }
 267 trap 'val=false' ERR
 268 val=true
 269 bad
 270 if      [[ $val != false ]]
 271 then    err_exit 'set -e not working for functions'
 272 fi
 273 function bad
 274 {
 275         false
 276         return 0
 277 }
 278 val=true
 279 bad
 280 if      [[ $val != true ]]
 281 then    err_exit 'set -e not disabled for functions'
 282 fi
 283 bad()
 284 {
 285         false
 286         return 0
 287 }
 288 val=true
 289 bad
 290 if      [[ $val != false ]]
 291 then    err_exit 'set -e not inherited for posix functions'
 292 fi
 293 trap - ERR
 294
 295 function myexport
 296 {
 297         nameref var=$1
 298         if      (( $# > 1 ))
 299         then    export  $1=$2
 300         fi
 301         if      (( $# > 2 ))
 302         then    print $(myexport "$1" "$3" )
 303                 return
 304         fi
 305         typeset val
 306         val=$(export | grep "^$1=")
 307         print ${val#"$1="}
 308 }
 309 export dgk=base
 310 val=$(myexport dgk fun)
 311 if      [[ $val != fun ]]
 312 then    err_exit "export inside function not working -- expected 'fun', got '$val'"
 313 fi
 314 val=$(export | sed -e '/^dgk=/!d' -e 's/^dgk=//')
 315 if      [[ $val != base ]]
 316 then    err_exit "export not restored after function call -- expected 'base', got '$val'"
 317 fi
 318 val=$(myexport dgk fun fun2)
 319 if      [[ $val != fun2 ]]
 320 then    err_exit "export inside function not working with recursive function -- expected 'fun2', got '$val'"
 321 fi
 322 val=$(export | sed -e '/^dgk=/!d' -e 's/^dgk=//')
 323 if      [[ $val != base ]]
 324 then    err_exit "export not restored after recursive function call -- expected 'base', got '$val'"
 325 fi
 326 val=$(dgk=try3 myexport dgk)
 327 if      [[ $val != try3 ]]
 328 then    err_exit "name=value not added to export list with function call -- expected 'try3', got '$val'"
 329 fi
 330 val=$(export | sed -e '/^dgk=/!d' -e 's/^dgk=//')
 331 if      [[ $val != base ]]
 332 then    err_exit "export not restored name=value function call -- expected 'base', got '$val'"
 333 fi
 334 unset zzz
 335 val=$(myexport zzz fun)
 336 if      [[ $val != fun ]]
 337 then    err_exit "export inside function not working -- expected 'fun', got '$val'"
 338 fi
 339 val=$(export | sed -e '/^zzz=/!d' -e 's/^zzz=//')
 340 if      [[ $val ]]
 341 then    err_exit "unset varaible exported after function call -- expected '', got '$val'"
 342 fi
 343
 344 unset zzz
 345 typeset -u zzz
 346 function foo
 347 {
 348         zzz=abc
 349         print $zzz
 350 }
 351 if      [[ $(foo)$(foo) != ABCABC ]]
 352 then    err_exit 'attributes on unset variables not saved/restored'
 353 fi
 354 function xpd {
 355         typeset i j=$1
 356                 for i
 357                         do print i=$i j=$j
 358                         [[ $i == a ]] && xpd b
 359                         done
 360                 }
 361 if      [[ $(xpd a c) != $'i=a j=a\ni=b j=b\ni=c j=a' ]]
 362 then    err_exit 'for loop function optimization error'
 363 fi
 364
 365 typeset -A visited
 366 integer level=0
 367 function closure
 368 {
 369         (( $# > 5 )) && return 1
 370         ((level < 2)) && ((level++))
 371         typeset tmp r=0
 372         visited[$1]=1
 373
 374         for tmp in $level _$level
 375         do
 376                 [[ ${visited[$tmp]} == 1 ]] && continue
 377                 closure $tmp $* || r=1
 378         done
 379         return $r
 380 }
 381 closure 0 || err_exit -u2 'for loop function optimization bug2'
 382 dir=$tmp/dir
 383 mkdir $dir
 384 cd $dir || { err_exit "cd $dir failed"; exit 1; }
 385
 386 (
 387         function a {
 388                 print a
 389         }
 390         function b {
 391                 print 1
 392                 a
 393                 print 2
 394         } > /dev/null
 395         typeset -ft a b
 396         PS4=X
 397         b
 398 ) > file 2>&1
 399 [[ $(<file) == *'Xprint 2'* ]] ||  err_exit 'function trace disabled by function call'
 400 rm -f file
 401
 402 print 'false' > try
 403 chmod +x try
 404 cat > tst <<- EOF
 405         function ignore
 406         {
 407                 ./try
 408                 return 0
 409         }
 410         trap "print error; exit 1" ERR
 411         ignore
 412 EOF
 413 if      [[ $($SHELL < tst)  == error ]]
 414 then    err_exit 'ERR trap not cleared'
 415 fi
 416 FPATH=$dir
 417 print ': This does nothing' > foobar
 418 chmod +x foobar
 419 unset -f foobar
 420 { foobar; } 2>/dev/null
 421 got=$?
 422 exp=126
 423 if      [[ $got != $exp ]]
 424 then    err_exit "function file without function definition processes wrong error -- expected '$exp', got '$got'"
 425 fi
 426 print 'set a b c' > dotscript
 427 [[ $(PATH=$PATH: $SHELL -c '. dotscript;print $#') == 3 ]] || err_exit 'positional parameters not preserved with . script without arguments'
 428 cd ~- || err_exit "cd back failed"
 429 function errcheck
 430 {
 431         trap 'print ERR; return 1' ERR
 432         false
 433         print ok
 434 }
 435 err=$(errcheck)
 436 [[ $err == ERR ]] || err_exit 'trap on ERR not working in a function'
 437 x="$(
 438         function foobar
 439         {
 440                 print ok
 441         }
 442         typeset -f foobar
 443 )"
 444 eval "$x"  || err_exit 'typeset -f generates syntax error'
 445 [[ $(foobar) != ok ]] && err_exit 'typeset -f not generating function'
 446 unset -f a b c
 447 a()
 448 {
 449         b
 450         b
 451         print ${.sh.fun}
 452 }
 453 b() { : ;}
 454 [[ $(a) == a ]] || err_exit '.sh.fun not set correctly in a function'
 455 print $'a(){\ndate\n}'  | $SHELL 2> /dev/null || err_exit 'parser error in a(){;date;}'
 456 cat > $tmp/data1 << '++EOF'
 457      1  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 458      2  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 459      3  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 460      4  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 461      5  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 462      6  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 463      7  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 464      8  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 465      9  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 466     10  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 467     11  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 468     12  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 469     13  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 470     14  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 471     15  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 472     16  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 473     17  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 474     18  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 475     19  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 476     20  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 477 ++EOF
 478 cat > $tmp/script << '++EOF'
 479 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 480 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 481 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 482 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 483 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 484 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 485 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 486 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 487 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 488 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 489 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 490 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 491 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 492 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 493 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 494 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 495 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 496 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 497 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 498 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 499 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 500 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 501 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 502 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 503 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 504 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 505 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 506 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 507 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 508 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 509 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 510 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 511 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 512 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 513 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 514 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 515 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 516 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 517 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 518 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 519 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 520 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 521 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 522 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 523 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 524 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 525 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 526 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 527 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 528 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 529 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 530 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 531 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 532 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 533 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 534 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 535 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 536 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 537 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 538 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 539 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 540 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 541 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 542 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 543 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 544 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 545 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 546 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 547 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 548 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 549 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 550 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 551 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 552 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 553 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 554 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 555 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 556 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 557 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 558 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 559 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 560 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 561 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 562 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 563 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 564 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 565 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 566 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 567 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 568 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 569 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 570 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 571 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 572 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 573 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 574 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 575 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 576 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 577 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 578 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 579 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 580 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 581 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 582 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 583 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 584 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 585 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 586 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 587 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 588 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 589 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 590 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 591 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 592 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 593 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 594 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 595 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 596 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 597 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 598 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 599 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 600 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 601 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 602 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 603 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 604 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 605 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 606 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 607 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 608 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 609 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 610 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 611 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 612 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 613 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 614 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 615 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 616 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 617 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 618 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 619 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 620 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 621 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 622 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 623 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 624 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 625 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 626 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 627 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 628 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 629 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 630 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 631 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 632 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 633 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 634 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 635 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 636 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 637 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 638 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 639 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 640 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 641 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 642 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 643 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 644 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 645 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 646 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 647 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 648 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 649 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 650 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 651 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 652 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 653 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 654 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 655 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 656 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 657 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 658 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 659 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 660 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 661 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 662 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 663 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 664 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 665 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 666 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 667 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 668 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 669 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 670 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 671 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 672 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 673 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 674 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 675 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 676 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 677 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 678 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 679 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 680 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 681 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 682 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 683 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 684 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 685 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 686 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 687 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 688 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 689 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 690 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 691 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 692 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 693 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 694 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 695 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 696 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 697 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 698 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 699 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 700 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 701 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 702 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 703 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 704 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 705 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 706 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 707 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 708 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 709 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 710 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 711 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 712 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 713 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 714 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 715 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 716 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 717 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 718 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 719 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 720 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 721 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 722 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 723 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 724 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 725 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 726 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 727 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 728 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 729 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 730 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 731 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 732 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 733 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 734 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 735 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 736 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 737 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 738 # XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 739
 740 f()
 741 {
 742 cat <<\M
 743 ++EOF
 744 cat $tmp/data1 >> $tmp/script
 745 printf 'M\n}\n\nf\n\n' >> $tmp/script
 746 $SHELL -c $tmp/script  > $tmp/data2
 747 cmp -s $tmp/data[12] || err_exit 'error with long functions'
 748 v=1
 749 function f
 750 {
 751         typeset i
 752         for i in 0 1
 753         do      typeset v
 754                 v=$i
 755                 [[ $v == $i ]] || return 1
 756         done
 757 }
 758 f || err_exit "typeset optimization bug"
 759 function f
 760 {
 761         print -r -- "$foo$bar"
 762 }
 763 function g
 764 {
 765         print -r -- $(bar=bam f)
 766 }
 767 unset foo bar
 768 [[ $(foo=hello g) == hellobam ]] || err_exit 'function exports not passed on'
 769 [[ $(bar=hello g) == bam ]] || err_exit 'function exports not overridden'
 770 unset -f foo
 771 function foo
 772 {
 773         typeset line=$1
 774         set +n
 775         while   [[ $line ]]
 776         do      if      [[ ! $varname ]]
 777                 then    varname=${line%% *}
 778                         line=${line##"$varname"?( )}
 779                         [[ $line ]] && continue
 780                 else    print ok
 781                         return
 782                 fi
 783                 varname=
 784         done
 785 }
 786 [[ $(foo 'NUMBERED RECORDSIZE') == ok ]] || err_exit 'optimization error with undefined variable'
 787 unset x
 788 x=$(
 789         set -e
 790         integer count=0
 791         function err_f
 792         {
 793                 if      ((count++==3))
 794                 then    print failed
 795                 else    false
 796                 fi
 797         }
 798         trap 'err_f' ERR
 799         false
 800 )
 801 [[ $x == failed ]] && err_exit 'ERR trap executed multiple times'
 802 export environment
 803 typeset global
 804 function f
 805 {
 806         typeset i t local
 807
 808         for i
 809         do      case $i in
 810                 [-+]*)  set "$@"
 811                         continue
 812                         ;;
 813                 local)  local=f
 814                         t=$(typeset +f $local)
 815                         ;;
 816                 global) global=f
 817                         t=$(typeset +f $global)
 818                         ;;
 819                 environment)
 820                         environment=f
 821                         t=$(typeset +f $environment)
 822                         ;;
 823                 literal)t=$(typeset +f f)
 824                         ;;
 825                 positional)
 826                         set -- f
 827                         t=$(typeset +f $1)
 828                         ;;
 829                 esac
 830                 [[ $t ]] || err_exit "typeset +f \$$i failed"
 831         done
 832 }
 833 f local global environment literal positional
 834 $SHELL -c '
 835         print exit 0 > '$tmp'/script
 836         chmod +x '$tmp'/script
 837         unset var
 838         var=( ident=1 )
 839         function fun
 840         {
 841                 PATH='$tmp' script
 842         }
 843         fun
 844 ' || err_exit "compound variable cleanup before script exec failed"
 845 ( $SHELL << \++EOF++
 846 function main
 847 {
 848         typeset key
 849         typeset -A entry
 850         entry[a]=( value=aaa )
 851 }
 852 main
 853 ++EOF++
 854 ) 2> /dev/null || err_exit 'function main fails'
 855 optind=$OPTIND
 856 sub()
 857 {
 858         (
 859                 OPTIND=1
 860                 while getopts :abc OPTION "$@"
 861                 do      print OPTIND=$OPTIND
 862                 done
 863         )
 864 }
 865 [[ $(sub -a) == OPTIND=2 ]] || err_exit 'OPTIND should be 2'
 866 [[ $(sub -a) == OPTIND=2 ]] || err_exit 'OPTIND should be 2 again'
 867 [[ $OPTIND == "$optind" ]] || err_exit 'OPTIND should be 1'
 868
 869 function bar
 870 {
 871         [[ -o nounset ]] && err_exit  'nounset option should not be inherited'
 872 }
 873 function foo
 874 {
 875         set -o nounset
 876         bar
 877 }
 878 set +o nounset
 879 foo
 880 function red
 881 {
 882         integer -S d=0
 883         printf 'red_one %d\n' d
 884         (( d++ ))
 885         return 0
 886 }
 887 [[ ${ red } != 'red_one 0' ]] && err_exit 'expected red_one 0'
 888 [[ ${ red } != 'red_one 1' ]] && err_exit 'expected red_one 1'
 889 xyz=$0
 890 function traceback
 891 {
 892         integer .level=.sh.level
 893         while((--.level>=0))
 894         do
 895                 ((.sh.level = .level))
 896                 [[ $xyz == "$0" ]] || err_exit "\$xyz=$xyz does not match $0 on level ${.level}"
 897                 [[ ${.sh.lineno} == "$1" ]] || err_exit "\${.sh.lineno}=${.sh.lineno} does not match $1 on level ${.level}"
 898         done
 899 }
 900
 901 function foo
 902 {
 903         typeset xyz=foo
 904         set -- $((LINENO+1))
 905         bar $LINENO "$1"
 906 }
 907
 908 function bar
 909 {
 910         typeset xyz=bar
 911         set -- $((LINENO+2))
 912         trap 'traceback $LINENO' DEBUG
 913         : $LINENO "$1"
 914 }
 915
 916 set -- $((LINENO+1))
 917 foo $LINENO
 918 function .sh.fun.set
 919 {
 920         print -r -- "${.sh.value}"
 921 }
 922 function abc
 923 {
 924         :
 925 }
 926 def()
 927 {
 928         :
 929 }
 930 [[ $(abc) == abc ]] || err_exit '.sh.fun.set not capturing function name'
 931 [[ $(def) == def ]] || err_exit '.sh.fun.set not capturing name()'
 932 unset -f .sh.fun.set
 933
 934 # tests for debug functions
 935 basefile=${.sh.file}
 936 integer baseline
 937 cat > $tmp/debug << \+++
 938         : line 1
 939
 940         : line 3
 941 +++
 942 # Print one line in a call stack
 943 function _Dbg_print_frame
 944 {
 945         typeset -i pos=$1
 946         typeset fn=$2
 947         typeset filename="$3"
 948         typeset -i line=$4
 949         typeset  arg=$5
 950         shift 5
 951         if      ((pos==0))
 952         then    [[ $filename == "$basefile" ]] || err_exit "filename for level 0 is $filename not $basename"
 953                 [[ $arg == DEBUG  ]] && ((baseline++))
 954                 [[ $line == "$baseline" ]] || err_exit "line number for level 0 is $line not $baseline"
 955         elif    ((pos==1))
 956         then    [[ $filename == "$tmp/debug" ]] ||  err_exit "filename for level 1 is $filename not $tmp/debug"
 957                 [[ $* == 'foo bar' ]] || err_exit "args are '$*', not 'foo bar'"
 958                 [[ $line == $arg ]] || err_exit "line number for level 1 is $line not $arg"
 959         else    err_exit "level should be 0 or 1 but is $pos"
 960         fi
 961 }
 962
 963 function _Dbg_debug_trap_handler
 964 {
 965
 966         integer .level=.sh.level .max=.sh.level-1
 967         while((--.level>=0))
 968         do
 969                 ((.sh.level = .level))
 970                 _Dbg_print_frame  "${.level}" "$0" "${.sh.file}" "${.sh.lineno}" "${.sh.command##* }" "$@"
 971         done
 972 }
 973
 974 ((baseline=LINENO+2))
 975 trap '_Dbg_debug_trap_handler' DEBUG
 976 .  $tmp/debug foo bar
 977 trap '' DEBUG
 978
 979 caller() {
 980   integer .level=.sh.level .max=.sh.level-1
 981   while((--.level>=0))
 982   do
 983       ((.sh.level = .level))
 984       print -r -- "${.sh.lineno}"
 985   done
 986 }
 987 bar() { caller;}
 988 set -- $(bar)
 989 [[ $1 == $2 ]] && err_exit ".sh.inline optimization bug"
 990 ( $SHELL  -c ' function foo { typeset x=$1;print $1;};z=();z=($(foo bar)) ') 2> /dev/null ||  err_exit 'using a function to set an array in a command sub  fails'
 991
 992 {
 993 got=$(
 994 s=$(ulimit -s)
 995 if      [[ $s == +([[:digit:]]) ]] && (( s < 16384 ))
 996 then    ulimit -s 16384 2>/dev/null
 997 fi
 998 $SHELL << \+++
 999 f()
1000 {
1001         if      (($1>1))
1002         then    x=$(f $(($1-1))) || exit 1
1003         fi
1004         return 0
1005 }
1006 f 257 && print ok
1007 +++
1008 )
1009 } 2>/dev/null
1010 [[ $got == ok ]] || err_exit 'cannot handle comsub depth > 256 in function'
1011
1012 tmp1=$tmp/job.1
1013 tmp2=$tmp/job.2
1014 cat > $tmp1 << +++
1015 #! $SHELL
1016 print \$\$
1017 +++
1018 chmod +x $tmp1
1019 function foo
1020 {
1021         typeset pid
1022         $tmp1 > $tmp2 & pid=$!
1023         wait $!
1024         [[ $(< $tmp2) == $pid ]] || err_exit 'wrong pid for & job in function'
1025 }
1026 foo
1027 # make sure compiled functions work
1028 [[ $(tmp=$tmp $SHELL <<- \++++
1029         cat > $tmp/functions <<- \EOF
1030                 function bar
1031                 {
1032                         print foo
1033                 }
1034                 function foobar
1035                 {
1036                         bar
1037                 }
1038         EOF
1039         ${SHCOMP:-${SHELL%/*}/shcomp} $tmp/functions > $tmp/foobar
1040         rm -f "$tmp/functions"
1041         chmod +x $tmp/foobar
1042         rm $tmp/!(dir|foobar)
1043         FPATH=$tmp
1044         PATH=$FPATH:$PATH
1045         foobar
1046 ++++
1047 ) == foo ]] > /dev/null  || err_exit 'functions compiled with shcomp not working'
1048 # test for functions in shell having side effects.
1049 unset -f foo foobar bar
1050 cd "$tmp"
1051 FPATH=$PWD
1052 PATH=$FPATH:$PATH
1053 cat > foo <<- \EOF
1054         function bar
1055         {
1056                 print foobar
1057         }
1058         function foo
1059         {
1060                 bar
1061         }
1062 EOF
1063 chmod +x foo
1064 : $(foo)
1065 [[ $(typeset +f) == *foo* ]] &&  err_exit 'function in subshell leaving side effect of function foo'
1066 unset -f foo bar
1067 :  $(foo)
1068 [[ $(typeset +f) == *foo* ]] && err_exit 'function in subshell leaving side effects of function foo after reload'
1069 [[ $(typeset +f) == *bar* ]] && err_exit 'function in subshell leaving side effects of function bar after reload'
1070
1071 unset -f foo
1072 typeset -A bar
1073 function foo
1074 {
1075         typeset -i bar[$1].x
1076         bar[$1].x=5
1077 }
1078 foo sub
1079 [[ ${!bar[@]} == sub ]] || err_exit 'scoping problem with compound array variables'
1080
1081 function A
1082 {
1083         trap "> /dev/null;print TRAP A" EXIT
1084         # (( stderr )) && print >&2
1085 }
1086
1087 function B
1088 {
1089         trap "> /dev/null;print TRAP B" EXIT
1090         A
1091 }
1092
1093 x=$(B)
1094 [[ $x == $'TRAP A\nTRAP B' ]] || err_exit "trap from funtions in subshells fails got" $x
1095
1096 exit $((Errors))