From 6914048088e93e8200383dd74d494b95b8c96cd6 Mon Sep 17 00:00:00 2001
From: "Gregory P. Smith" <greg@krypto.org>
Date: Mon, 16 Jan 2012 02:05:55 -0800
Subject: regenerate configure using autoconf.  includes the dirfd test.

---
 configure | 595 ++++++++++++++++++++++++++++++++------------------------------
 1 file changed, 309 insertions(+), 286 deletions(-)

diff --git a/configure b/configure
index eb0ea71..3ddf4a8 100755
--- a/configure
+++ b/configure
@@ -1,7 +1,7 @@
 #! /bin/sh
 # From configure.in Revision.
 # Guess values for system-dependent variables and create Makefiles.
-# Generated by GNU Autoconf 2.67 for python 3.2.
+# Generated by GNU Autoconf 2.68 for python 3.2.
 #
 # Report bugs to <http://bugs.python.org/>.
 #
@@ -92,6 +92,7 @@ fi
 IFS=" ""	$as_nl"
 
 # Find who we are.  Look in the path if we contain no directory separator.
+as_myself=
 case $0 in #((
   *[\\/]* ) as_myself=$0 ;;
   *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
@@ -217,11 +218,18 @@ IFS=$as_save_IFS
   # We cannot yet assume a decent shell, so we have to provide a
 	# neutralization value for shells without unset; and this also
 	# works around shells that cannot unset nonexistent variables.
+	# Preserve -v and -x to the replacement shell.
 	BASH_ENV=/dev/null
 	ENV=/dev/null
 	(unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV
 	export CONFIG_SHELL
-	exec "$CONFIG_SHELL" "$as_myself" ${1+"$@"}
+	case $- in # ((((
+	  *v*x* | *x*v* ) as_opts=-vx ;;
+	  *v* ) as_opts=-v ;;
+	  *x* ) as_opts=-x ;;
+	  * ) as_opts= ;;
+	esac
+	exec "$CONFIG_SHELL" $as_opts "$as_myself" ${1+"$@"}
 fi
 
     if test x$as_have_required = xno; then :
@@ -1178,7 +1186,7 @@ Try \`$0 --help' for more information"
     $as_echo "$as_me: WARNING: you should use --build, --host, --target" >&2
     expr "x$ac_option" : ".*[^-._$as_cr_alnum]" >/dev/null &&
       $as_echo "$as_me: WARNING: invalid host type: $ac_option" >&2
-    : ${build_alias=$ac_option} ${host_alias=$ac_option} ${target_alias=$ac_option}
+    : "${build_alias=$ac_option} ${host_alias=$ac_option} ${target_alias=$ac_option}"
     ;;
 
   esac
@@ -1516,7 +1524,7 @@ test -n "$ac_init_help" && exit $ac_status
 if $ac_init_version; then
   cat <<\_ACEOF
 python configure 3.2
-generated by GNU Autoconf 2.67
+generated by GNU Autoconf 2.68
 
 Copyright (C) 2010 Free Software Foundation, Inc.
 This configure script is free software; the Free Software Foundation
@@ -1562,7 +1570,7 @@ sed 's/^/| /' conftest.$ac_ext >&5
 
 	ac_retval=1
 fi
-  eval $as_lineno_stack; test "x$as_lineno_stack" = x && { as_lineno=; unset as_lineno;}
+  eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
   as_fn_set_status $ac_retval
 
 } # ac_fn_c_try_compile
@@ -1608,7 +1616,7 @@ fi
   # interfere with the next link command; also delete a directory that is
   # left behind by Apple's compiler.  We do this before executing the actions.
   rm -rf conftest.dSYM conftest_ipa8_conftest.oo
-  eval $as_lineno_stack; test "x$as_lineno_stack" = x && { as_lineno=; unset as_lineno;}
+  eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
   as_fn_set_status $ac_retval
 
 } # ac_fn_c_try_link
@@ -1645,7 +1653,7 @@ sed 's/^/| /' conftest.$ac_ext >&5
 
     ac_retval=1
 fi
-  eval $as_lineno_stack; test "x$as_lineno_stack" = x && { as_lineno=; unset as_lineno;}
+  eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
   as_fn_set_status $ac_retval
 
 } # ac_fn_c_try_cpp
@@ -1658,10 +1666,10 @@ fi
 ac_fn_c_check_header_mongrel ()
 {
   as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
-  if eval "test \"\${$3+set}\"" = set; then :
+  if eval \${$3+:} false; then :
   { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5
 $as_echo_n "checking for $2... " >&6; }
-if eval "test \"\${$3+set}\"" = set; then :
+if eval \${$3+:} false; then :
   $as_echo_n "(cached) " >&6
 fi
 eval ac_res=\$$3
@@ -1728,7 +1736,7 @@ $as_echo "$as_me: WARNING: $2: proceeding with the compiler's result" >&2;}
 esac
   { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5
 $as_echo_n "checking for $2... " >&6; }
-if eval "test \"\${$3+set}\"" = set; then :
+if eval \${$3+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   eval "$3=\$ac_header_compiler"
@@ -1737,7 +1745,7 @@ eval ac_res=\$$3
 	       { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
 $as_echo "$ac_res" >&6; }
 fi
-  eval $as_lineno_stack; test "x$as_lineno_stack" = x && { as_lineno=; unset as_lineno;}
+  eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
 
 } # ac_fn_c_check_header_mongrel
 
@@ -1778,7 +1786,7 @@ sed 's/^/| /' conftest.$ac_ext >&5
        ac_retval=$ac_status
 fi
   rm -rf conftest.dSYM conftest_ipa8_conftest.oo
-  eval $as_lineno_stack; test "x$as_lineno_stack" = x && { as_lineno=; unset as_lineno;}
+  eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
   as_fn_set_status $ac_retval
 
 } # ac_fn_c_try_run
@@ -1792,7 +1800,7 @@ ac_fn_c_check_header_compile ()
   as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
   { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5
 $as_echo_n "checking for $2... " >&6; }
-if eval "test \"\${$3+set}\"" = set; then :
+if eval \${$3+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   cat confdefs.h - <<_ACEOF >conftest.$ac_ext
@@ -1810,7 +1818,7 @@ fi
 eval ac_res=\$$3
 	       { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
 $as_echo "$ac_res" >&6; }
-  eval $as_lineno_stack; test "x$as_lineno_stack" = x && { as_lineno=; unset as_lineno;}
+  eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
 
 } # ac_fn_c_check_header_compile
 
@@ -1823,7 +1831,7 @@ ac_fn_c_check_type ()
   as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
   { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5
 $as_echo_n "checking for $2... " >&6; }
-if eval "test \"\${$3+set}\"" = set; then :
+if eval \${$3+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   eval "$3=no"
@@ -1864,7 +1872,7 @@ fi
 eval ac_res=\$$3
 	       { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
 $as_echo "$ac_res" >&6; }
-  eval $as_lineno_stack; test "x$as_lineno_stack" = x && { as_lineno=; unset as_lineno;}
+  eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
 
 } # ac_fn_c_check_type
 
@@ -1877,7 +1885,7 @@ ac_fn_c_find_uintX_t ()
   as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
   { $as_echo "$as_me:${as_lineno-$LINENO}: checking for uint$2_t" >&5
 $as_echo_n "checking for uint$2_t... " >&6; }
-if eval "test \"\${$3+set}\"" = set; then :
+if eval \${$3+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   eval "$3=no"
@@ -1917,7 +1925,7 @@ fi
 eval ac_res=\$$3
 	       { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
 $as_echo "$ac_res" >&6; }
-  eval $as_lineno_stack; test "x$as_lineno_stack" = x && { as_lineno=; unset as_lineno;}
+  eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
 
 } # ac_fn_c_find_uintX_t
 
@@ -1930,7 +1938,7 @@ ac_fn_c_find_intX_t ()
   as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
   { $as_echo "$as_me:${as_lineno-$LINENO}: checking for int$2_t" >&5
 $as_echo_n "checking for int$2_t... " >&6; }
-if eval "test \"\${$3+set}\"" = set; then :
+if eval \${$3+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   eval "$3=no"
@@ -1991,7 +1999,7 @@ fi
 eval ac_res=\$$3
 	       { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
 $as_echo "$ac_res" >&6; }
-  eval $as_lineno_stack; test "x$as_lineno_stack" = x && { as_lineno=; unset as_lineno;}
+  eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
 
 } # ac_fn_c_find_intX_t
 
@@ -2168,7 +2176,7 @@ rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
 rm -f conftest.val
 
   fi
-  eval $as_lineno_stack; test "x$as_lineno_stack" = x && { as_lineno=; unset as_lineno;}
+  eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
   as_fn_set_status $ac_retval
 
 } # ac_fn_c_compute_int
@@ -2181,7 +2189,7 @@ ac_fn_c_check_func ()
   as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
   { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5
 $as_echo_n "checking for $2... " >&6; }
-if eval "test \"\${$3+set}\"" = set; then :
+if eval \${$3+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   cat confdefs.h - <<_ACEOF >conftest.$ac_ext
@@ -2236,7 +2244,7 @@ fi
 eval ac_res=\$$3
 	       { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
 $as_echo "$ac_res" >&6; }
-  eval $as_lineno_stack; test "x$as_lineno_stack" = x && { as_lineno=; unset as_lineno;}
+  eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
 
 } # ac_fn_c_check_func
 
@@ -2249,7 +2257,7 @@ ac_fn_c_check_member ()
   as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
   { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2.$3" >&5
 $as_echo_n "checking for $2.$3... " >&6; }
-if eval "test \"\${$4+set}\"" = set; then :
+if eval \${$4+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   cat confdefs.h - <<_ACEOF >conftest.$ac_ext
@@ -2293,7 +2301,7 @@ fi
 eval ac_res=\$$4
 	       { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
 $as_echo "$ac_res" >&6; }
-  eval $as_lineno_stack; test "x$as_lineno_stack" = x && { as_lineno=; unset as_lineno;}
+  eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
 
 } # ac_fn_c_check_member
 
@@ -2308,7 +2316,7 @@ ac_fn_c_check_decl ()
   as_decl_use=`echo $2|sed -e 's/(/((/' -e 's/)/) 0&/' -e 's/,/) 0& (/g'`
   { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $as_decl_name is declared" >&5
 $as_echo_n "checking whether $as_decl_name is declared... " >&6; }
-if eval "test \"\${$3+set}\"" = set; then :
+if eval \${$3+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   cat confdefs.h - <<_ACEOF >conftest.$ac_ext
@@ -2339,7 +2347,7 @@ fi
 eval ac_res=\$$3
 	       { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
 $as_echo "$ac_res" >&6; }
-  eval $as_lineno_stack; test "x$as_lineno_stack" = x && { as_lineno=; unset as_lineno;}
+  eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
 
 } # ac_fn_c_check_decl
 cat >config.log <<_ACEOF
@@ -2347,7 +2355,7 @@ This file contains any messages produced by compilers while
 running configure, to aid debugging if configure makes a mistake.
 
 It was created by python $as_me 3.2, which was
-generated by GNU Autoconf 2.67.  Invocation command line was
+generated by GNU Autoconf 2.68.  Invocation command line was
 
   $ $0 $@
 
@@ -2605,7 +2613,7 @@ $as_echo "$as_me: loading site script $ac_site_file" >&6;}
       || { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
 as_fn_error $? "failed to load site script $ac_site_file
-See \`config.log' for more details" "$LINENO" 5 ; }
+See \`config.log' for more details" "$LINENO" 5; }
   fi
 done
 
@@ -3195,7 +3203,7 @@ if test -n "$ac_tool_prefix"; then
 set dummy ${ac_tool_prefix}gcc; ac_word=$2
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
 $as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_prog_CC+set}" = set; then :
+if ${ac_cv_prog_CC+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   if test -n "$CC"; then
@@ -3235,7 +3243,7 @@ if test -z "$ac_cv_prog_CC"; then
 set dummy gcc; ac_word=$2
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
 $as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_prog_ac_ct_CC+set}" = set; then :
+if ${ac_cv_prog_ac_ct_CC+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   if test -n "$ac_ct_CC"; then
@@ -3288,7 +3296,7 @@ if test -z "$CC"; then
 set dummy ${ac_tool_prefix}cc; ac_word=$2
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
 $as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_prog_CC+set}" = set; then :
+if ${ac_cv_prog_CC+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   if test -n "$CC"; then
@@ -3328,7 +3336,7 @@ if test -z "$CC"; then
 set dummy cc; ac_word=$2
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
 $as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_prog_CC+set}" = set; then :
+if ${ac_cv_prog_CC+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   if test -n "$CC"; then
@@ -3387,7 +3395,7 @@ if test -z "$CC"; then
 set dummy $ac_tool_prefix$ac_prog; ac_word=$2
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
 $as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_prog_CC+set}" = set; then :
+if ${ac_cv_prog_CC+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   if test -n "$CC"; then
@@ -3431,7 +3439,7 @@ do
 set dummy $ac_prog; ac_word=$2
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
 $as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_prog_ac_ct_CC+set}" = set; then :
+if ${ac_cv_prog_ac_ct_CC+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   if test -n "$ac_ct_CC"; then
@@ -3486,7 +3494,7 @@ fi
 test -z "$CC" && { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
 as_fn_error $? "no acceptable C compiler found in \$PATH
-See \`config.log' for more details" "$LINENO" 5 ; }
+See \`config.log' for more details" "$LINENO" 5; }
 
 # Provide some information about the compiler.
 $as_echo "$as_me:${as_lineno-$LINENO}: checking for C compiler version" >&5
@@ -3601,7 +3609,7 @@ sed 's/^/| /' conftest.$ac_ext >&5
 { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
 as_fn_error 77 "C compiler cannot create executables
-See \`config.log' for more details" "$LINENO" 5 ; }
+See \`config.log' for more details" "$LINENO" 5; }
 else
   { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
 $as_echo "yes" >&6; }
@@ -3644,7 +3652,7 @@ else
   { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
 as_fn_error $? "cannot compute suffix of executables: cannot compile and link
-See \`config.log' for more details" "$LINENO" 5 ; }
+See \`config.log' for more details" "$LINENO" 5; }
 fi
 rm -f conftest conftest$ac_cv_exeext
 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_exeext" >&5
@@ -3703,7 +3711,7 @@ $as_echo "$ac_try_echo"; } >&5
 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
 as_fn_error $? "cannot run C compiled programs.
 If you meant to cross compile, use \`--host'.
-See \`config.log' for more details" "$LINENO" 5 ; }
+See \`config.log' for more details" "$LINENO" 5; }
     fi
   fi
 fi
@@ -3714,7 +3722,7 @@ rm -f conftest.$ac_ext conftest$ac_cv_exeext conftest.out
 ac_clean_files=$ac_clean_files_save
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for suffix of object files" >&5
 $as_echo_n "checking for suffix of object files... " >&6; }
-if test "${ac_cv_objext+set}" = set; then :
+if ${ac_cv_objext+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   cat confdefs.h - <<_ACEOF >conftest.$ac_ext
@@ -3755,7 +3763,7 @@ sed 's/^/| /' conftest.$ac_ext >&5
 { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
 as_fn_error $? "cannot compute suffix of object files: cannot compile
-See \`config.log' for more details" "$LINENO" 5 ; }
+See \`config.log' for more details" "$LINENO" 5; }
 fi
 rm -f conftest.$ac_cv_objext conftest.$ac_ext
 fi
@@ -3765,7 +3773,7 @@ OBJEXT=$ac_cv_objext
 ac_objext=$OBJEXT
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are using the GNU C compiler" >&5
 $as_echo_n "checking whether we are using the GNU C compiler... " >&6; }
-if test "${ac_cv_c_compiler_gnu+set}" = set; then :
+if ${ac_cv_c_compiler_gnu+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   cat confdefs.h - <<_ACEOF >conftest.$ac_ext
@@ -3802,7 +3810,7 @@ ac_test_CFLAGS=${CFLAGS+set}
 ac_save_CFLAGS=$CFLAGS
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CC accepts -g" >&5
 $as_echo_n "checking whether $CC accepts -g... " >&6; }
-if test "${ac_cv_prog_cc_g+set}" = set; then :
+if ${ac_cv_prog_cc_g+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   ac_save_c_werror_flag=$ac_c_werror_flag
@@ -3880,7 +3888,7 @@ else
 fi
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $CC option to accept ISO C89" >&5
 $as_echo_n "checking for $CC option to accept ISO C89... " >&6; }
-if test "${ac_cv_prog_cc_c89+set}" = set; then :
+if ${ac_cv_prog_cc_c89+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   ac_cv_prog_cc_c89=no
@@ -4015,7 +4023,7 @@ then
 set dummy g++; ac_word=$2
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
 $as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_path_CXX+set}" = set; then :
+if ${ac_cv_path_CXX+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   case $CXX in
@@ -4056,7 +4064,7 @@ fi
 set dummy c++; ac_word=$2
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
 $as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_path_CXX+set}" = set; then :
+if ${ac_cv_path_CXX+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   case $CXX in
@@ -4107,7 +4115,7 @@ do
 set dummy $ac_prog; ac_word=$2
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
 $as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_prog_CXX+set}" = set; then :
+if ${ac_cv_prog_CXX+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   if test -n "$CXX"; then
@@ -4208,7 +4216,7 @@ if test -n "$CPP" && test -d "$CPP"; then
   CPP=
 fi
 if test -z "$CPP"; then
-  if test "${ac_cv_prog_CPP+set}" = set; then :
+  if ${ac_cv_prog_CPP+:} false; then :
   $as_echo_n "(cached) " >&6
 else
       # Double quotes because CPP needs to be expanded
@@ -4324,7 +4332,7 @@ else
   { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
 as_fn_error $? "C preprocessor \"$CPP\" fails sanity check
-See \`config.log' for more details" "$LINENO" 5 ; }
+See \`config.log' for more details" "$LINENO" 5; }
 fi
 
 ac_ext=c
@@ -4336,7 +4344,7 @@ ac_compiler_gnu=$ac_cv_c_compiler_gnu
 
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for grep that handles long lines and -e" >&5
 $as_echo_n "checking for grep that handles long lines and -e... " >&6; }
-if test "${ac_cv_path_GREP+set}" = set; then :
+if ${ac_cv_path_GREP+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   if test -z "$GREP"; then
@@ -4399,7 +4407,7 @@ $as_echo "$ac_cv_path_GREP" >&6; }
 
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for egrep" >&5
 $as_echo_n "checking for egrep... " >&6; }
-if test "${ac_cv_path_EGREP+set}" = set; then :
+if ${ac_cv_path_EGREP+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   if echo a | $GREP -E '(a|b)' >/dev/null 2>&1
@@ -4466,7 +4474,7 @@ $as_echo "$ac_cv_path_EGREP" >&6; }
 
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ANSI C header files" >&5
 $as_echo_n "checking for ANSI C header files... " >&6; }
-if test "${ac_cv_header_stdc+set}" = set; then :
+if ${ac_cv_header_stdc+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   cat confdefs.h - <<_ACEOF >conftest.$ac_ext
@@ -4595,7 +4603,7 @@ done
 
 
   ac_fn_c_check_header_mongrel "$LINENO" "minix/config.h" "ac_cv_header_minix_config_h" "$ac_includes_default"
-if test "x$ac_cv_header_minix_config_h" = x""yes; then :
+if test "x$ac_cv_header_minix_config_h" = xyes; then :
   MINIX=yes
 else
   MINIX=
@@ -4617,7 +4625,7 @@ $as_echo "#define _MINIX 1" >>confdefs.h
 
   { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether it is safe to define __EXTENSIONS__" >&5
 $as_echo_n "checking whether it is safe to define __EXTENSIONS__... " >&6; }
-if test "${ac_cv_safe_to_define___extensions__+set}" = set; then :
+if ${ac_cv_safe_to_define___extensions__+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   cat confdefs.h - <<_ACEOF >conftest.$ac_ext
@@ -4810,7 +4818,7 @@ $as_echo "$GNULD" >&6; }
 
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for inline" >&5
 $as_echo_n "checking for inline... " >&6; }
-if test "${ac_cv_c_inline+set}" = set; then :
+if ${ac_cv_c_inline+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   ac_cv_c_inline=no
@@ -5011,7 +5019,7 @@ if test -n "$ac_tool_prefix"; then
 set dummy ${ac_tool_prefix}ranlib; ac_word=$2
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
 $as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_prog_RANLIB+set}" = set; then :
+if ${ac_cv_prog_RANLIB+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   if test -n "$RANLIB"; then
@@ -5051,7 +5059,7 @@ if test -z "$ac_cv_prog_RANLIB"; then
 set dummy ranlib; ac_word=$2
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
 $as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_prog_ac_ct_RANLIB+set}" = set; then :
+if ${ac_cv_prog_ac_ct_RANLIB+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   if test -n "$ac_ct_RANLIB"; then
@@ -5105,7 +5113,7 @@ do
 set dummy $ac_prog; ac_word=$2
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
 $as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_prog_AR+set}" = set; then :
+if ${ac_cv_prog_AR+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   if test -n "$AR"; then
@@ -5155,7 +5163,7 @@ fi
 set dummy svnversion; ac_word=$2
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
 $as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_prog_SVNVERSION+set}" = set; then :
+if ${ac_cv_prog_SVNVERSION+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   if test -n "$SVNVERSION"; then
@@ -5206,7 +5214,7 @@ then
 set dummy hg; ac_word=$2
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
 $as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_prog_HAS_HG+set}" = set; then :
+if ${ac_cv_prog_HAS_HG+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   if test -n "$HAS_HG"; then
@@ -5260,7 +5268,7 @@ DISABLE_ASDLGEN=""
 set dummy python; ac_word=$2
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
 $as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_prog_HAS_PYTHON+set}" = set; then :
+if ${ac_cv_prog_HAS_PYTHON+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   if test -n "$HAS_PYTHON"; then
@@ -5354,7 +5362,7 @@ ac_configure="$SHELL $ac_aux_dir/configure"  # Please don't use this var.
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for a BSD-compatible install" >&5
 $as_echo_n "checking for a BSD-compatible install... " >&6; }
 if test -z "$INSTALL"; then
-if test "${ac_cv_path_install+set}" = set; then :
+if ${ac_cv_path_install+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
@@ -5547,7 +5555,7 @@ $as_echo_n "checking whether $CC accepts and needs -fno-strict-aliasing... " >&6
      ac_save_cc="$CC"
      CC="$CC -fno-strict-aliasing"
      save_CFLAGS="$CFLAGS"
-     if test "${ac_cv_no_strict_aliasing+set}" = set; then :
+     if ${ac_cv_no_strict_aliasing+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   cat confdefs.h - <<_ACEOF >conftest.$ac_ext
@@ -5803,7 +5811,7 @@ fi
 # options before we can check whether -Kpthread improves anything.
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether pthreads are available without options" >&5
 $as_echo_n "checking whether pthreads are available without options... " >&6; }
-if test "${ac_cv_pthread_is_default+set}" = set; then :
+if ${ac_cv_pthread_is_default+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   if test "$cross_compiling" = yes; then :
@@ -5856,7 +5864,7 @@ else
 # function available.
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CC accepts -Kpthread" >&5
 $as_echo_n "checking whether $CC accepts -Kpthread... " >&6; }
-if test "${ac_cv_kpthread+set}" = set; then :
+if ${ac_cv_kpthread+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   ac_save_cc="$CC"
@@ -5905,7 +5913,7 @@ then
 # function available.
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CC accepts -Kthread" >&5
 $as_echo_n "checking whether $CC accepts -Kthread... " >&6; }
-if test "${ac_cv_kthread+set}" = set; then :
+if ${ac_cv_kthread+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   ac_save_cc="$CC"
@@ -5954,7 +5962,7 @@ then
 # function available.
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CC accepts -pthread" >&5
 $as_echo_n "checking whether $CC accepts -pthread... " >&6; }
-if test "${ac_cv_thread+set}" = set; then :
+if ${ac_cv_thread+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   ac_save_cc="$CC"
@@ -6039,7 +6047,7 @@ CXX="$ac_save_cxx"
 # checks for header files
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ANSI C header files" >&5
 $as_echo_n "checking for ANSI C header files... " >&6; }
-if test "${ac_cv_header_stdc+set}" = set; then :
+if ${ac_cv_header_stdc+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   cat confdefs.h - <<_ACEOF >conftest.$ac_ext
@@ -6178,7 +6186,7 @@ for ac_hdr in dirent.h sys/ndir.h sys/dir.h ndir.h; do
   as_ac_Header=`$as_echo "ac_cv_header_dirent_$ac_hdr" | $as_tr_sh`
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_hdr that defines DIR" >&5
 $as_echo_n "checking for $ac_hdr that defines DIR... " >&6; }
-if eval "test \"\${$as_ac_Header+set}\"" = set; then :
+if eval \${$as_ac_Header+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   cat confdefs.h - <<_ACEOF >conftest.$ac_ext
@@ -6218,7 +6226,7 @@ done
 if test $ac_header_dirent = dirent.h; then
   { $as_echo "$as_me:${as_lineno-$LINENO}: checking for library containing opendir" >&5
 $as_echo_n "checking for library containing opendir... " >&6; }
-if test "${ac_cv_search_opendir+set}" = set; then :
+if ${ac_cv_search_opendir+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   ac_func_search_save_LIBS=$LIBS
@@ -6252,11 +6260,11 @@ for ac_lib in '' dir; do
 fi
 rm -f core conftest.err conftest.$ac_objext \
     conftest$ac_exeext
-  if test "${ac_cv_search_opendir+set}" = set; then :
+  if ${ac_cv_search_opendir+:} false; then :
   break
 fi
 done
-if test "${ac_cv_search_opendir+set}" = set; then :
+if ${ac_cv_search_opendir+:} false; then :
 
 else
   ac_cv_search_opendir=no
@@ -6275,7 +6283,7 @@ fi
 else
   { $as_echo "$as_me:${as_lineno-$LINENO}: checking for library containing opendir" >&5
 $as_echo_n "checking for library containing opendir... " >&6; }
-if test "${ac_cv_search_opendir+set}" = set; then :
+if ${ac_cv_search_opendir+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   ac_func_search_save_LIBS=$LIBS
@@ -6309,11 +6317,11 @@ for ac_lib in '' x; do
 fi
 rm -f core conftest.err conftest.$ac_objext \
     conftest$ac_exeext
-  if test "${ac_cv_search_opendir+set}" = set; then :
+  if ${ac_cv_search_opendir+:} false; then :
   break
 fi
 done
-if test "${ac_cv_search_opendir+set}" = set; then :
+if ${ac_cv_search_opendir+:} false; then :
 
 else
   ac_cv_search_opendir=no
@@ -6333,7 +6341,7 @@ fi
 
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether sys/types.h defines makedev" >&5
 $as_echo_n "checking whether sys/types.h defines makedev... " >&6; }
-if test "${ac_cv_header_sys_types_h_makedev+set}" = set; then :
+if ${ac_cv_header_sys_types_h_makedev+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   cat confdefs.h - <<_ACEOF >conftest.$ac_ext
@@ -6361,7 +6369,7 @@ $as_echo "$ac_cv_header_sys_types_h_makedev" >&6; }
 
 if test $ac_cv_header_sys_types_h_makedev = no; then
 ac_fn_c_check_header_mongrel "$LINENO" "sys/mkdev.h" "ac_cv_header_sys_mkdev_h" "$ac_includes_default"
-if test "x$ac_cv_header_sys_mkdev_h" = x""yes; then :
+if test "x$ac_cv_header_sys_mkdev_h" = xyes; then :
 
 $as_echo "#define MAJOR_IN_MKDEV 1" >>confdefs.h
 
@@ -6371,7 +6379,7 @@ fi
 
   if test $ac_cv_header_sys_mkdev_h = no; then
     ac_fn_c_check_header_mongrel "$LINENO" "sys/sysmacros.h" "ac_cv_header_sys_sysmacros_h" "$ac_includes_default"
-if test "x$ac_cv_header_sys_sysmacros_h" = x""yes; then :
+if test "x$ac_cv_header_sys_sysmacros_h" = xyes; then :
 
 $as_echo "#define MAJOR_IN_SYSMACROS 1" >>confdefs.h
 
@@ -6391,7 +6399,7 @@ do :
 #endif
 
 "
-if test "x$ac_cv_header_term_h" = x""yes; then :
+if test "x$ac_cv_header_term_h" = xyes; then :
   cat >>confdefs.h <<_ACEOF
 #define HAVE_TERM_H 1
 _ACEOF
@@ -6413,7 +6421,7 @@ do :
 #endif
 
 "
-if test "x$ac_cv_header_linux_netlink_h" = x""yes; then :
+if test "x$ac_cv_header_linux_netlink_h" = xyes; then :
   cat >>confdefs.h <<_ACEOF
 #define HAVE_LINUX_NETLINK_H 1
 _ACEOF
@@ -6579,7 +6587,7 @@ EOF
 
 # Type availability checks
 ac_fn_c_check_type "$LINENO" "mode_t" "ac_cv_type_mode_t" "$ac_includes_default"
-if test "x$ac_cv_type_mode_t" = x""yes; then :
+if test "x$ac_cv_type_mode_t" = xyes; then :
 
 else
 
@@ -6590,7 +6598,7 @@ _ACEOF
 fi
 
 ac_fn_c_check_type "$LINENO" "off_t" "ac_cv_type_off_t" "$ac_includes_default"
-if test "x$ac_cv_type_off_t" = x""yes; then :
+if test "x$ac_cv_type_off_t" = xyes; then :
 
 else
 
@@ -6601,7 +6609,7 @@ _ACEOF
 fi
 
 ac_fn_c_check_type "$LINENO" "pid_t" "ac_cv_type_pid_t" "$ac_includes_default"
-if test "x$ac_cv_type_pid_t" = x""yes; then :
+if test "x$ac_cv_type_pid_t" = xyes; then :
 
 else
 
@@ -6617,7 +6625,7 @@ cat >>confdefs.h <<_ACEOF
 _ACEOF
 
 ac_fn_c_check_type "$LINENO" "size_t" "ac_cv_type_size_t" "$ac_includes_default"
-if test "x$ac_cv_type_size_t" = x""yes; then :
+if test "x$ac_cv_type_size_t" = xyes; then :
 
 else
 
@@ -6629,7 +6637,7 @@ fi
 
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for uid_t in sys/types.h" >&5
 $as_echo_n "checking for uid_t in sys/types.h... " >&6; }
-if test "${ac_cv_type_uid_t+set}" = set; then :
+if ${ac_cv_type_uid_t+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   cat confdefs.h - <<_ACEOF >conftest.$ac_ext
@@ -6708,7 +6716,7 @@ _ACEOF
 esac
 
 ac_fn_c_check_type "$LINENO" "ssize_t" "ac_cv_type_ssize_t" "$ac_includes_default"
-if test "x$ac_cv_type_ssize_t" = x""yes; then :
+if test "x$ac_cv_type_ssize_t" = xyes; then :
 
 $as_echo "#define HAVE_SSIZE_T 1" >>confdefs.h
 
@@ -6723,7 +6731,7 @@ fi
 # This bug is HP SR number 8606223364.
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking size of int" >&5
 $as_echo_n "checking size of int... " >&6; }
-if test "${ac_cv_sizeof_int+set}" = set; then :
+if ${ac_cv_sizeof_int+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   if ac_fn_c_compute_int "$LINENO" "(long int) (sizeof (int))" "ac_cv_sizeof_int"        "$ac_includes_default"; then :
@@ -6733,7 +6741,7 @@ else
      { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
 as_fn_error 77 "cannot compute sizeof (int)
-See \`config.log' for more details" "$LINENO" 5 ; }
+See \`config.log' for more details" "$LINENO" 5; }
    else
      ac_cv_sizeof_int=0
    fi
@@ -6756,7 +6764,7 @@ _ACEOF
 # This bug is HP SR number 8606223364.
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking size of long" >&5
 $as_echo_n "checking size of long... " >&6; }
-if test "${ac_cv_sizeof_long+set}" = set; then :
+if ${ac_cv_sizeof_long+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   if ac_fn_c_compute_int "$LINENO" "(long int) (sizeof (long))" "ac_cv_sizeof_long"        "$ac_includes_default"; then :
@@ -6766,7 +6774,7 @@ else
      { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
 as_fn_error 77 "cannot compute sizeof (long)
-See \`config.log' for more details" "$LINENO" 5 ; }
+See \`config.log' for more details" "$LINENO" 5; }
    else
      ac_cv_sizeof_long=0
    fi
@@ -6789,7 +6797,7 @@ _ACEOF
 # This bug is HP SR number 8606223364.
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking size of void *" >&5
 $as_echo_n "checking size of void *... " >&6; }
-if test "${ac_cv_sizeof_void_p+set}" = set; then :
+if ${ac_cv_sizeof_void_p+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   if ac_fn_c_compute_int "$LINENO" "(long int) (sizeof (void *))" "ac_cv_sizeof_void_p"        "$ac_includes_default"; then :
@@ -6799,7 +6807,7 @@ else
      { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
 as_fn_error 77 "cannot compute sizeof (void *)
-See \`config.log' for more details" "$LINENO" 5 ; }
+See \`config.log' for more details" "$LINENO" 5; }
    else
      ac_cv_sizeof_void_p=0
    fi
@@ -6822,7 +6830,7 @@ _ACEOF
 # This bug is HP SR number 8606223364.
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking size of short" >&5
 $as_echo_n "checking size of short... " >&6; }
-if test "${ac_cv_sizeof_short+set}" = set; then :
+if ${ac_cv_sizeof_short+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   if ac_fn_c_compute_int "$LINENO" "(long int) (sizeof (short))" "ac_cv_sizeof_short"        "$ac_includes_default"; then :
@@ -6832,7 +6840,7 @@ else
      { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
 as_fn_error 77 "cannot compute sizeof (short)
-See \`config.log' for more details" "$LINENO" 5 ; }
+See \`config.log' for more details" "$LINENO" 5; }
    else
      ac_cv_sizeof_short=0
    fi
@@ -6855,7 +6863,7 @@ _ACEOF
 # This bug is HP SR number 8606223364.
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking size of float" >&5
 $as_echo_n "checking size of float... " >&6; }
-if test "${ac_cv_sizeof_float+set}" = set; then :
+if ${ac_cv_sizeof_float+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   if ac_fn_c_compute_int "$LINENO" "(long int) (sizeof (float))" "ac_cv_sizeof_float"        "$ac_includes_default"; then :
@@ -6865,7 +6873,7 @@ else
      { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
 as_fn_error 77 "cannot compute sizeof (float)
-See \`config.log' for more details" "$LINENO" 5 ; }
+See \`config.log' for more details" "$LINENO" 5; }
    else
      ac_cv_sizeof_float=0
    fi
@@ -6888,7 +6896,7 @@ _ACEOF
 # This bug is HP SR number 8606223364.
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking size of double" >&5
 $as_echo_n "checking size of double... " >&6; }
-if test "${ac_cv_sizeof_double+set}" = set; then :
+if ${ac_cv_sizeof_double+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   if ac_fn_c_compute_int "$LINENO" "(long int) (sizeof (double))" "ac_cv_sizeof_double"        "$ac_includes_default"; then :
@@ -6898,7 +6906,7 @@ else
      { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
 as_fn_error 77 "cannot compute sizeof (double)
-See \`config.log' for more details" "$LINENO" 5 ; }
+See \`config.log' for more details" "$LINENO" 5; }
    else
      ac_cv_sizeof_double=0
    fi
@@ -6921,7 +6929,7 @@ _ACEOF
 # This bug is HP SR number 8606223364.
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking size of fpos_t" >&5
 $as_echo_n "checking size of fpos_t... " >&6; }
-if test "${ac_cv_sizeof_fpos_t+set}" = set; then :
+if ${ac_cv_sizeof_fpos_t+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   if ac_fn_c_compute_int "$LINENO" "(long int) (sizeof (fpos_t))" "ac_cv_sizeof_fpos_t"        "$ac_includes_default"; then :
@@ -6931,7 +6939,7 @@ else
      { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
 as_fn_error 77 "cannot compute sizeof (fpos_t)
-See \`config.log' for more details" "$LINENO" 5 ; }
+See \`config.log' for more details" "$LINENO" 5; }
    else
      ac_cv_sizeof_fpos_t=0
    fi
@@ -6954,7 +6962,7 @@ _ACEOF
 # This bug is HP SR number 8606223364.
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking size of size_t" >&5
 $as_echo_n "checking size of size_t... " >&6; }
-if test "${ac_cv_sizeof_size_t+set}" = set; then :
+if ${ac_cv_sizeof_size_t+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   if ac_fn_c_compute_int "$LINENO" "(long int) (sizeof (size_t))" "ac_cv_sizeof_size_t"        "$ac_includes_default"; then :
@@ -6964,7 +6972,7 @@ else
      { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
 as_fn_error 77 "cannot compute sizeof (size_t)
-See \`config.log' for more details" "$LINENO" 5 ; }
+See \`config.log' for more details" "$LINENO" 5; }
    else
      ac_cv_sizeof_size_t=0
    fi
@@ -6987,7 +6995,7 @@ _ACEOF
 # This bug is HP SR number 8606223364.
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking size of pid_t" >&5
 $as_echo_n "checking size of pid_t... " >&6; }
-if test "${ac_cv_sizeof_pid_t+set}" = set; then :
+if ${ac_cv_sizeof_pid_t+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   if ac_fn_c_compute_int "$LINENO" "(long int) (sizeof (pid_t))" "ac_cv_sizeof_pid_t"        "$ac_includes_default"; then :
@@ -6997,7 +7005,7 @@ else
      { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
 as_fn_error 77 "cannot compute sizeof (pid_t)
-See \`config.log' for more details" "$LINENO" 5 ; }
+See \`config.log' for more details" "$LINENO" 5; }
    else
      ac_cv_sizeof_pid_t=0
    fi
@@ -7047,7 +7055,7 @@ if test "$have_long_long" = yes ; then
 # This bug is HP SR number 8606223364.
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking size of long long" >&5
 $as_echo_n "checking size of long long... " >&6; }
-if test "${ac_cv_sizeof_long_long+set}" = set; then :
+if ${ac_cv_sizeof_long_long+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   if ac_fn_c_compute_int "$LINENO" "(long int) (sizeof (long long))" "ac_cv_sizeof_long_long"        "$ac_includes_default"; then :
@@ -7057,7 +7065,7 @@ else
      { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
 as_fn_error 77 "cannot compute sizeof (long long)
-See \`config.log' for more details" "$LINENO" 5 ; }
+See \`config.log' for more details" "$LINENO" 5; }
    else
      ac_cv_sizeof_long_long=0
    fi
@@ -7108,7 +7116,7 @@ if test "$have_long_double" = yes ; then
 # This bug is HP SR number 8606223364.
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking size of long double" >&5
 $as_echo_n "checking size of long double... " >&6; }
-if test "${ac_cv_sizeof_long_double+set}" = set; then :
+if ${ac_cv_sizeof_long_double+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   if ac_fn_c_compute_int "$LINENO" "(long int) (sizeof (long double))" "ac_cv_sizeof_long_double"        "$ac_includes_default"; then :
@@ -7118,7 +7126,7 @@ else
      { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
 as_fn_error 77 "cannot compute sizeof (long double)
-See \`config.log' for more details" "$LINENO" 5 ; }
+See \`config.log' for more details" "$LINENO" 5; }
    else
      ac_cv_sizeof_long_double=0
    fi
@@ -7170,7 +7178,7 @@ if test "$have_c99_bool" = yes ; then
 # This bug is HP SR number 8606223364.
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking size of _Bool" >&5
 $as_echo_n "checking size of _Bool... " >&6; }
-if test "${ac_cv_sizeof__Bool+set}" = set; then :
+if ${ac_cv_sizeof__Bool+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   if ac_fn_c_compute_int "$LINENO" "(long int) (sizeof (_Bool))" "ac_cv_sizeof__Bool"        "$ac_includes_default"; then :
@@ -7180,7 +7188,7 @@ else
      { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
 as_fn_error 77 "cannot compute sizeof (_Bool)
-See \`config.log' for more details" "$LINENO" 5 ; }
+See \`config.log' for more details" "$LINENO" 5; }
    else
      ac_cv_sizeof__Bool=0
    fi
@@ -7206,7 +7214,7 @@ ac_fn_c_check_type "$LINENO" "uintptr_t" "ac_cv_type_uintptr_t" "#ifdef HAVE_STD
         #include <inttypes.h>
         #endif
 "
-if test "x$ac_cv_type_uintptr_t" = x""yes; then :
+if test "x$ac_cv_type_uintptr_t" = xyes; then :
 
 cat >>confdefs.h <<_ACEOF
 #define HAVE_UINTPTR_T 1
@@ -7218,7 +7226,7 @@ _ACEOF
 # This bug is HP SR number 8606223364.
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking size of uintptr_t" >&5
 $as_echo_n "checking size of uintptr_t... " >&6; }
-if test "${ac_cv_sizeof_uintptr_t+set}" = set; then :
+if ${ac_cv_sizeof_uintptr_t+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   if ac_fn_c_compute_int "$LINENO" "(long int) (sizeof (uintptr_t))" "ac_cv_sizeof_uintptr_t"        "$ac_includes_default"; then :
@@ -7228,7 +7236,7 @@ else
      { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
 as_fn_error 77 "cannot compute sizeof (uintptr_t)
-See \`config.log' for more details" "$LINENO" 5 ; }
+See \`config.log' for more details" "$LINENO" 5; }
    else
      ac_cv_sizeof_uintptr_t=0
    fi
@@ -7254,7 +7262,7 @@ fi
 # This bug is HP SR number 8606223364.
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking size of off_t" >&5
 $as_echo_n "checking size of off_t... " >&6; }
-if test "${ac_cv_sizeof_off_t+set}" = set; then :
+if ${ac_cv_sizeof_off_t+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   if ac_fn_c_compute_int "$LINENO" "(long int) (sizeof (off_t))" "ac_cv_sizeof_off_t"        "
@@ -7269,7 +7277,7 @@ else
      { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
 as_fn_error 77 "cannot compute sizeof (off_t)
-See \`config.log' for more details" "$LINENO" 5 ; }
+See \`config.log' for more details" "$LINENO" 5; }
    else
      ac_cv_sizeof_off_t=0
    fi
@@ -7313,7 +7321,7 @@ fi
 # This bug is HP SR number 8606223364.
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking size of time_t" >&5
 $as_echo_n "checking size of time_t... " >&6; }
-if test "${ac_cv_sizeof_time_t+set}" = set; then :
+if ${ac_cv_sizeof_time_t+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   if ac_fn_c_compute_int "$LINENO" "(long int) (sizeof (time_t))" "ac_cv_sizeof_time_t"        "
@@ -7331,7 +7339,7 @@ else
      { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
 as_fn_error 77 "cannot compute sizeof (time_t)
-See \`config.log' for more details" "$LINENO" 5 ; }
+See \`config.log' for more details" "$LINENO" 5; }
    else
      ac_cv_sizeof_time_t=0
    fi
@@ -7388,7 +7396,7 @@ if test "$have_pthread_t" = yes ; then
 # This bug is HP SR number 8606223364.
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking size of pthread_t" >&5
 $as_echo_n "checking size of pthread_t... " >&6; }
-if test "${ac_cv_sizeof_pthread_t+set}" = set; then :
+if ${ac_cv_sizeof_pthread_t+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   if ac_fn_c_compute_int "$LINENO" "(long int) (sizeof (pthread_t))" "ac_cv_sizeof_pthread_t"        "
@@ -7403,7 +7411,7 @@ else
      { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
 as_fn_error 77 "cannot compute sizeof (pthread_t)
-See \`config.log' for more details" "$LINENO" 5 ; }
+See \`config.log' for more details" "$LINENO" 5; }
    else
      ac_cv_sizeof_pthread_t=0
    fi
@@ -7835,7 +7843,7 @@ $as_echo "$SHLIBS" >&6; }
 # checks for libraries
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for dlopen in -ldl" >&5
 $as_echo_n "checking for dlopen in -ldl... " >&6; }
-if test "${ac_cv_lib_dl_dlopen+set}" = set; then :
+if ${ac_cv_lib_dl_dlopen+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   ac_check_lib_save_LIBS=$LIBS
@@ -7869,7 +7877,7 @@ LIBS=$ac_check_lib_save_LIBS
 fi
 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dl_dlopen" >&5
 $as_echo "$ac_cv_lib_dl_dlopen" >&6; }
-if test "x$ac_cv_lib_dl_dlopen" = x""yes; then :
+if test "x$ac_cv_lib_dl_dlopen" = xyes; then :
   cat >>confdefs.h <<_ACEOF
 #define HAVE_LIBDL 1
 _ACEOF
@@ -7880,7 +7888,7 @@ fi
 	# Dynamic linking for SunOS/Solaris and SYSV
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for shl_load in -ldld" >&5
 $as_echo_n "checking for shl_load in -ldld... " >&6; }
-if test "${ac_cv_lib_dld_shl_load+set}" = set; then :
+if ${ac_cv_lib_dld_shl_load+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   ac_check_lib_save_LIBS=$LIBS
@@ -7914,7 +7922,7 @@ LIBS=$ac_check_lib_save_LIBS
 fi
 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dld_shl_load" >&5
 $as_echo "$ac_cv_lib_dld_shl_load" >&6; }
-if test "x$ac_cv_lib_dld_shl_load" = x""yes; then :
+if test "x$ac_cv_lib_dld_shl_load" = xyes; then :
   cat >>confdefs.h <<_ACEOF
 #define HAVE_LIBDLD 1
 _ACEOF
@@ -7928,7 +7936,7 @@ fi
 if test "$with_threads" = "yes" -o -z "$with_threads"; then
     { $as_echo "$as_me:${as_lineno-$LINENO}: checking for library containing sem_init" >&5
 $as_echo_n "checking for library containing sem_init... " >&6; }
-if test "${ac_cv_search_sem_init+set}" = set; then :
+if ${ac_cv_search_sem_init+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   ac_func_search_save_LIBS=$LIBS
@@ -7962,11 +7970,11 @@ for ac_lib in '' pthread rt posix4; do
 fi
 rm -f core conftest.err conftest.$ac_objext \
     conftest$ac_exeext
-  if test "${ac_cv_search_sem_init+set}" = set; then :
+  if ${ac_cv_search_sem_init+:} false; then :
   break
 fi
 done
-if test "${ac_cv_search_sem_init+set}" = set; then :
+if ${ac_cv_search_sem_init+:} false; then :
 
 else
   ac_cv_search_sem_init=no
@@ -7989,7 +7997,7 @@ fi
 # check if we need libintl for locale functions
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for textdomain in -lintl" >&5
 $as_echo_n "checking for textdomain in -lintl... " >&6; }
-if test "${ac_cv_lib_intl_textdomain+set}" = set; then :
+if ${ac_cv_lib_intl_textdomain+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   ac_check_lib_save_LIBS=$LIBS
@@ -8023,7 +8031,7 @@ LIBS=$ac_check_lib_save_LIBS
 fi
 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_intl_textdomain" >&5
 $as_echo "$ac_cv_lib_intl_textdomain" >&6; }
-if test "x$ac_cv_lib_intl_textdomain" = x""yes; then :
+if test "x$ac_cv_lib_intl_textdomain" = xyes; then :
 
 $as_echo "#define WITH_LIBINTL 1" >>confdefs.h
 
@@ -8070,7 +8078,7 @@ esac
 # Most SVR4 platforms (e.g. Solaris) need -lsocket and -lnsl.
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for t_open in -lnsl" >&5
 $as_echo_n "checking for t_open in -lnsl... " >&6; }
-if test "${ac_cv_lib_nsl_t_open+set}" = set; then :
+if ${ac_cv_lib_nsl_t_open+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   ac_check_lib_save_LIBS=$LIBS
@@ -8104,13 +8112,13 @@ LIBS=$ac_check_lib_save_LIBS
 fi
 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_nsl_t_open" >&5
 $as_echo "$ac_cv_lib_nsl_t_open" >&6; }
-if test "x$ac_cv_lib_nsl_t_open" = x""yes; then :
+if test "x$ac_cv_lib_nsl_t_open" = xyes; then :
   LIBS="-lnsl $LIBS"
 fi
  # SVR4
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for socket in -lsocket" >&5
 $as_echo_n "checking for socket in -lsocket... " >&6; }
-if test "${ac_cv_lib_socket_socket+set}" = set; then :
+if ${ac_cv_lib_socket_socket+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   ac_check_lib_save_LIBS=$LIBS
@@ -8144,7 +8152,7 @@ LIBS=$ac_check_lib_save_LIBS
 fi
 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_socket_socket" >&5
 $as_echo "$ac_cv_lib_socket_socket" >&6; }
-if test "x$ac_cv_lib_socket_socket" = x""yes; then :
+if test "x$ac_cv_lib_socket_socket" = xyes; then :
   LIBS="-lsocket $LIBS"
 fi
  # SVR4 sockets
@@ -8170,7 +8178,7 @@ if test -n "$ac_tool_prefix"; then
 set dummy ${ac_tool_prefix}pkg-config; ac_word=$2
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
 $as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_path_PKG_CONFIG+set}" = set; then :
+if ${ac_cv_path_PKG_CONFIG+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   case $PKG_CONFIG in
@@ -8213,7 +8221,7 @@ if test -z "$ac_cv_path_PKG_CONFIG"; then
 set dummy pkg-config; ac_word=$2
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
 $as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_path_ac_pt_PKG_CONFIG+set}" = set; then :
+if ${ac_cv_path_ac_pt_PKG_CONFIG+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   case $ac_pt_PKG_CONFIG in
@@ -8495,7 +8503,7 @@ $as_echo "$unistd_defines_pthreads" >&6; }
     $as_echo "#define _REENTRANT 1" >>confdefs.h
 
     ac_fn_c_check_header_mongrel "$LINENO" "cthreads.h" "ac_cv_header_cthreads_h" "$ac_includes_default"
-if test "x$ac_cv_header_cthreads_h" = x""yes; then :
+if test "x$ac_cv_header_cthreads_h" = xyes; then :
   $as_echo "#define WITH_THREAD 1" >>confdefs.h
 
     $as_echo "#define C_THREADS 1" >>confdefs.h
@@ -8508,7 +8516,7 @@ $as_echo "#define HURD_C_THREADS 1" >>confdefs.h
 else
 
     ac_fn_c_check_header_mongrel "$LINENO" "mach/cthreads.h" "ac_cv_header_mach_cthreads_h" "$ac_includes_default"
-if test "x$ac_cv_header_mach_cthreads_h" = x""yes; then :
+if test "x$ac_cv_header_mach_cthreads_h" = xyes; then :
   $as_echo "#define WITH_THREAD 1" >>confdefs.h
 
     $as_echo "#define C_THREADS 1" >>confdefs.h
@@ -8552,7 +8560,7 @@ else
 
     LIBS=$_libs
     ac_fn_c_check_func "$LINENO" "pthread_detach" "ac_cv_func_pthread_detach"
-if test "x$ac_cv_func_pthread_detach" = x""yes; then :
+if test "x$ac_cv_func_pthread_detach" = xyes; then :
   $as_echo "#define WITH_THREAD 1" >>confdefs.h
 
     posix_threads=yes
@@ -8561,7 +8569,7 @@ else
 
     { $as_echo "$as_me:${as_lineno-$LINENO}: checking for pthread_create in -lpthreads" >&5
 $as_echo_n "checking for pthread_create in -lpthreads... " >&6; }
-if test "${ac_cv_lib_pthreads_pthread_create+set}" = set; then :
+if ${ac_cv_lib_pthreads_pthread_create+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   ac_check_lib_save_LIBS=$LIBS
@@ -8595,7 +8603,7 @@ LIBS=$ac_check_lib_save_LIBS
 fi
 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_pthreads_pthread_create" >&5
 $as_echo "$ac_cv_lib_pthreads_pthread_create" >&6; }
-if test "x$ac_cv_lib_pthreads_pthread_create" = x""yes; then :
+if test "x$ac_cv_lib_pthreads_pthread_create" = xyes; then :
   $as_echo "#define WITH_THREAD 1" >>confdefs.h
 
     posix_threads=yes
@@ -8605,7 +8613,7 @@ else
 
     { $as_echo "$as_me:${as_lineno-$LINENO}: checking for pthread_create in -lc_r" >&5
 $as_echo_n "checking for pthread_create in -lc_r... " >&6; }
-if test "${ac_cv_lib_c_r_pthread_create+set}" = set; then :
+if ${ac_cv_lib_c_r_pthread_create+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   ac_check_lib_save_LIBS=$LIBS
@@ -8639,7 +8647,7 @@ LIBS=$ac_check_lib_save_LIBS
 fi
 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_c_r_pthread_create" >&5
 $as_echo "$ac_cv_lib_c_r_pthread_create" >&6; }
-if test "x$ac_cv_lib_c_r_pthread_create" = x""yes; then :
+if test "x$ac_cv_lib_c_r_pthread_create" = xyes; then :
   $as_echo "#define WITH_THREAD 1" >>confdefs.h
 
     posix_threads=yes
@@ -8649,7 +8657,7 @@ else
 
     { $as_echo "$as_me:${as_lineno-$LINENO}: checking for __pthread_create_system in -lpthread" >&5
 $as_echo_n "checking for __pthread_create_system in -lpthread... " >&6; }
-if test "${ac_cv_lib_pthread___pthread_create_system+set}" = set; then :
+if ${ac_cv_lib_pthread___pthread_create_system+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   ac_check_lib_save_LIBS=$LIBS
@@ -8683,7 +8691,7 @@ LIBS=$ac_check_lib_save_LIBS
 fi
 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_pthread___pthread_create_system" >&5
 $as_echo "$ac_cv_lib_pthread___pthread_create_system" >&6; }
-if test "x$ac_cv_lib_pthread___pthread_create_system" = x""yes; then :
+if test "x$ac_cv_lib_pthread___pthread_create_system" = xyes; then :
   $as_echo "#define WITH_THREAD 1" >>confdefs.h
 
     posix_threads=yes
@@ -8693,7 +8701,7 @@ else
 
     { $as_echo "$as_me:${as_lineno-$LINENO}: checking for pthread_create in -lcma" >&5
 $as_echo_n "checking for pthread_create in -lcma... " >&6; }
-if test "${ac_cv_lib_cma_pthread_create+set}" = set; then :
+if ${ac_cv_lib_cma_pthread_create+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   ac_check_lib_save_LIBS=$LIBS
@@ -8727,7 +8735,7 @@ LIBS=$ac_check_lib_save_LIBS
 fi
 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_cma_pthread_create" >&5
 $as_echo "$ac_cv_lib_cma_pthread_create" >&6; }
-if test "x$ac_cv_lib_cma_pthread_create" = x""yes; then :
+if test "x$ac_cv_lib_cma_pthread_create" = xyes; then :
   $as_echo "#define WITH_THREAD 1" >>confdefs.h
 
     posix_threads=yes
@@ -8759,7 +8767,7 @@ fi
 
     { $as_echo "$as_me:${as_lineno-$LINENO}: checking for usconfig in -lmpc" >&5
 $as_echo_n "checking for usconfig in -lmpc... " >&6; }
-if test "${ac_cv_lib_mpc_usconfig+set}" = set; then :
+if ${ac_cv_lib_mpc_usconfig+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   ac_check_lib_save_LIBS=$LIBS
@@ -8793,7 +8801,7 @@ LIBS=$ac_check_lib_save_LIBS
 fi
 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_mpc_usconfig" >&5
 $as_echo "$ac_cv_lib_mpc_usconfig" >&6; }
-if test "x$ac_cv_lib_mpc_usconfig" = x""yes; then :
+if test "x$ac_cv_lib_mpc_usconfig" = xyes; then :
   $as_echo "#define WITH_THREAD 1" >>confdefs.h
 
     LIBS="$LIBS -lmpc"
@@ -8805,7 +8813,7 @@ fi
     if test "$posix_threads" != "yes"; then
       { $as_echo "$as_me:${as_lineno-$LINENO}: checking for thr_create in -lthread" >&5
 $as_echo_n "checking for thr_create in -lthread... " >&6; }
-if test "${ac_cv_lib_thread_thr_create+set}" = set; then :
+if ${ac_cv_lib_thread_thr_create+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   ac_check_lib_save_LIBS=$LIBS
@@ -8839,7 +8847,7 @@ LIBS=$ac_check_lib_save_LIBS
 fi
 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_thread_thr_create" >&5
 $as_echo "$ac_cv_lib_thread_thr_create" >&6; }
-if test "x$ac_cv_lib_thread_thr_create" = x""yes; then :
+if test "x$ac_cv_lib_thread_thr_create" = xyes; then :
   $as_echo "#define WITH_THREAD 1" >>confdefs.h
 
       LIBS="$LIBS -lthread"
@@ -8884,7 +8892,7 @@ $as_echo "#define HAVE_BROKEN_POSIX_SEMAPHORES 1" >>confdefs.h
 
       { $as_echo "$as_me:${as_lineno-$LINENO}: checking if PTHREAD_SCOPE_SYSTEM is supported" >&5
 $as_echo_n "checking if PTHREAD_SCOPE_SYSTEM is supported... " >&6; }
-      if test "${ac_cv_pthread_system_supported+set}" = set; then :
+      if ${ac_cv_pthread_system_supported+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   if test "$cross_compiling" = yes; then :
@@ -8927,7 +8935,7 @@ $as_echo "#define PTHREAD_SYSTEM_SCHED_SUPPORTED 1" >>confdefs.h
       for ac_func in pthread_sigmask
 do :
   ac_fn_c_check_func "$LINENO" "pthread_sigmask" "ac_cv_func_pthread_sigmask"
-if test "x$ac_cv_func_pthread_sigmask" = x""yes; then :
+if test "x$ac_cv_func_pthread_sigmask" = xyes; then :
   cat >>confdefs.h <<_ACEOF
 #define HAVE_PTHREAD_SIGMASK 1
 _ACEOF
@@ -9319,7 +9327,7 @@ fi
 $as_echo "$with_valgrind" >&6; }
 if test "$with_valgrind" != no; then
     ac_fn_c_check_header_mongrel "$LINENO" "valgrind/valgrind.h" "ac_cv_header_valgrind_valgrind_h" "$ac_includes_default"
-if test "x$ac_cv_header_valgrind_valgrind_h" = x""yes; then :
+if test "x$ac_cv_header_valgrind_valgrind_h" = xyes; then :
 
 $as_echo "#define WITH_VALGRIND 1" >>confdefs.h
 
@@ -9341,7 +9349,7 @@ DLINCLDIR=.
 for ac_func in dlopen
 do :
   ac_fn_c_check_func "$LINENO" "dlopen" "ac_cv_func_dlopen"
-if test "x$ac_cv_func_dlopen" = x""yes; then :
+if test "x$ac_cv_func_dlopen" = xyes; then :
   cat >>confdefs.h <<_ACEOF
 #define HAVE_DLOPEN 1
 _ACEOF
@@ -9402,7 +9410,7 @@ $as_echo "MACHDEP_OBJS" >&6; }
 
 # checks for library functions
 for ac_func in alarm accept4 setitimer getitimer bind_textdomain_codeset chown \
- clock confstr ctermid execv fchmod fchown fork fpathconf ftime ftruncate \
+ clock confstr ctermid dirfd execv fchmod fchown fork fpathconf ftime ftruncate \
  gai_strerror getgroups getlogin getloadavg getpeername getpgid getpid \
  getpriority getresuid getresgid getpwent getspnam getspent getsid getwd \
  initgroups kill killpg lchmod lchown lstat mbrtowc mkfifo mknod mktime \
@@ -9668,7 +9676,7 @@ rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
 
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for flock declaration" >&5
 $as_echo_n "checking for flock declaration... " >&6; }
-if test "${ac_cv_flock_decl+set}" = set; then :
+if ${ac_cv_flock_decl+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   cat confdefs.h - <<_ACEOF >conftest.$ac_ext
@@ -9698,7 +9706,7 @@ if test "x${ac_cv_flock_decl}" = xyes; then
   for ac_func in flock
 do :
   ac_fn_c_check_func "$LINENO" "flock" "ac_cv_func_flock"
-if test "x$ac_cv_func_flock" = x""yes; then :
+if test "x$ac_cv_func_flock" = xyes; then :
   cat >>confdefs.h <<_ACEOF
 #define HAVE_FLOCK 1
 _ACEOF
@@ -9706,7 +9714,7 @@ _ACEOF
 else
   { $as_echo "$as_me:${as_lineno-$LINENO}: checking for flock in -lbsd" >&5
 $as_echo_n "checking for flock in -lbsd... " >&6; }
-if test "${ac_cv_lib_bsd_flock+set}" = set; then :
+if ${ac_cv_lib_bsd_flock+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   ac_check_lib_save_LIBS=$LIBS
@@ -9740,7 +9748,7 @@ LIBS=$ac_check_lib_save_LIBS
 fi
 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_bsd_flock" >&5
 $as_echo "$ac_cv_lib_bsd_flock" >&6; }
-if test "x$ac_cv_lib_bsd_flock" = x""yes; then :
+if test "x$ac_cv_lib_bsd_flock" = xyes; then :
   $as_echo "#define HAVE_FLOCK 1" >>confdefs.h
 
 
@@ -9817,7 +9825,7 @@ do
 set dummy $ac_prog; ac_word=$2
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
 $as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_prog_TRUE+set}" = set; then :
+if ${ac_cv_prog_TRUE+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   if test -n "$TRUE"; then
@@ -9857,7 +9865,7 @@ test -n "$TRUE" || TRUE="/bin/true"
 
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for inet_aton in -lc" >&5
 $as_echo_n "checking for inet_aton in -lc... " >&6; }
-if test "${ac_cv_lib_c_inet_aton+set}" = set; then :
+if ${ac_cv_lib_c_inet_aton+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   ac_check_lib_save_LIBS=$LIBS
@@ -9891,12 +9899,12 @@ LIBS=$ac_check_lib_save_LIBS
 fi
 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_c_inet_aton" >&5
 $as_echo "$ac_cv_lib_c_inet_aton" >&6; }
-if test "x$ac_cv_lib_c_inet_aton" = x""yes; then :
+if test "x$ac_cv_lib_c_inet_aton" = xyes; then :
   $ac_cv_prog_TRUE
 else
   { $as_echo "$as_me:${as_lineno-$LINENO}: checking for inet_aton in -lresolv" >&5
 $as_echo_n "checking for inet_aton in -lresolv... " >&6; }
-if test "${ac_cv_lib_resolv_inet_aton+set}" = set; then :
+if ${ac_cv_lib_resolv_inet_aton+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   ac_check_lib_save_LIBS=$LIBS
@@ -9930,7 +9938,7 @@ LIBS=$ac_check_lib_save_LIBS
 fi
 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_resolv_inet_aton" >&5
 $as_echo "$ac_cv_lib_resolv_inet_aton" >&6; }
-if test "x$ac_cv_lib_resolv_inet_aton" = x""yes; then :
+if test "x$ac_cv_lib_resolv_inet_aton" = xyes; then :
   cat >>confdefs.h <<_ACEOF
 #define HAVE_LIBRESOLV 1
 _ACEOF
@@ -9947,7 +9955,7 @@ fi
 # exit Python
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for chflags" >&5
 $as_echo_n "checking for chflags... " >&6; }
-if test "${ac_cv_have_chflags+set}" = set; then :
+if ${ac_cv_have_chflags+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   if test "$cross_compiling" = yes; then :
@@ -9981,7 +9989,7 @@ fi
 $as_echo "$ac_cv_have_chflags" >&6; }
 if test "$ac_cv_have_chflags" = cross ; then
   ac_fn_c_check_func "$LINENO" "chflags" "ac_cv_func_chflags"
-if test "x$ac_cv_func_chflags" = x""yes; then :
+if test "x$ac_cv_func_chflags" = xyes; then :
   ac_cv_have_chflags="yes"
 else
   ac_cv_have_chflags="no"
@@ -9996,7 +10004,7 @@ fi
 
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for lchflags" >&5
 $as_echo_n "checking for lchflags... " >&6; }
-if test "${ac_cv_have_lchflags+set}" = set; then :
+if ${ac_cv_have_lchflags+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   if test "$cross_compiling" = yes; then :
@@ -10030,7 +10038,7 @@ fi
 $as_echo "$ac_cv_have_lchflags" >&6; }
 if test "$ac_cv_have_lchflags" = cross ; then
   ac_fn_c_check_func "$LINENO" "lchflags" "ac_cv_func_lchflags"
-if test "x$ac_cv_func_lchflags" = x""yes; then :
+if test "x$ac_cv_func_lchflags" = xyes; then :
   ac_cv_have_lchflags="yes"
 else
   ac_cv_have_lchflags="no"
@@ -10054,7 +10062,7 @@ esac
 
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for inflateCopy in -lz" >&5
 $as_echo_n "checking for inflateCopy in -lz... " >&6; }
-if test "${ac_cv_lib_z_inflateCopy+set}" = set; then :
+if ${ac_cv_lib_z_inflateCopy+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   ac_check_lib_save_LIBS=$LIBS
@@ -10088,7 +10096,7 @@ LIBS=$ac_check_lib_save_LIBS
 fi
 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_z_inflateCopy" >&5
 $as_echo "$ac_cv_lib_z_inflateCopy" >&6; }
-if test "x$ac_cv_lib_z_inflateCopy" = x""yes; then :
+if test "x$ac_cv_lib_z_inflateCopy" = xyes; then :
 
 $as_echo "#define HAVE_ZLIB_COPY 1" >>confdefs.h
 
@@ -10231,7 +10239,7 @@ rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
 for ac_func in openpty
 do :
   ac_fn_c_check_func "$LINENO" "openpty" "ac_cv_func_openpty"
-if test "x$ac_cv_func_openpty" = x""yes; then :
+if test "x$ac_cv_func_openpty" = xyes; then :
   cat >>confdefs.h <<_ACEOF
 #define HAVE_OPENPTY 1
 _ACEOF
@@ -10239,7 +10247,7 @@ _ACEOF
 else
   { $as_echo "$as_me:${as_lineno-$LINENO}: checking for openpty in -lutil" >&5
 $as_echo_n "checking for openpty in -lutil... " >&6; }
-if test "${ac_cv_lib_util_openpty+set}" = set; then :
+if ${ac_cv_lib_util_openpty+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   ac_check_lib_save_LIBS=$LIBS
@@ -10273,13 +10281,13 @@ LIBS=$ac_check_lib_save_LIBS
 fi
 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_util_openpty" >&5
 $as_echo "$ac_cv_lib_util_openpty" >&6; }
-if test "x$ac_cv_lib_util_openpty" = x""yes; then :
+if test "x$ac_cv_lib_util_openpty" = xyes; then :
   $as_echo "#define HAVE_OPENPTY 1" >>confdefs.h
  LIBS="$LIBS -lutil"
 else
   { $as_echo "$as_me:${as_lineno-$LINENO}: checking for openpty in -lbsd" >&5
 $as_echo_n "checking for openpty in -lbsd... " >&6; }
-if test "${ac_cv_lib_bsd_openpty+set}" = set; then :
+if ${ac_cv_lib_bsd_openpty+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   ac_check_lib_save_LIBS=$LIBS
@@ -10313,7 +10321,7 @@ LIBS=$ac_check_lib_save_LIBS
 fi
 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_bsd_openpty" >&5
 $as_echo "$ac_cv_lib_bsd_openpty" >&6; }
-if test "x$ac_cv_lib_bsd_openpty" = x""yes; then :
+if test "x$ac_cv_lib_bsd_openpty" = xyes; then :
   $as_echo "#define HAVE_OPENPTY 1" >>confdefs.h
  LIBS="$LIBS -lbsd"
 fi
@@ -10328,7 +10336,7 @@ done
 for ac_func in forkpty
 do :
   ac_fn_c_check_func "$LINENO" "forkpty" "ac_cv_func_forkpty"
-if test "x$ac_cv_func_forkpty" = x""yes; then :
+if test "x$ac_cv_func_forkpty" = xyes; then :
   cat >>confdefs.h <<_ACEOF
 #define HAVE_FORKPTY 1
 _ACEOF
@@ -10336,7 +10344,7 @@ _ACEOF
 else
   { $as_echo "$as_me:${as_lineno-$LINENO}: checking for forkpty in -lutil" >&5
 $as_echo_n "checking for forkpty in -lutil... " >&6; }
-if test "${ac_cv_lib_util_forkpty+set}" = set; then :
+if ${ac_cv_lib_util_forkpty+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   ac_check_lib_save_LIBS=$LIBS
@@ -10370,13 +10378,13 @@ LIBS=$ac_check_lib_save_LIBS
 fi
 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_util_forkpty" >&5
 $as_echo "$ac_cv_lib_util_forkpty" >&6; }
-if test "x$ac_cv_lib_util_forkpty" = x""yes; then :
+if test "x$ac_cv_lib_util_forkpty" = xyes; then :
   $as_echo "#define HAVE_FORKPTY 1" >>confdefs.h
  LIBS="$LIBS -lutil"
 else
   { $as_echo "$as_me:${as_lineno-$LINENO}: checking for forkpty in -lbsd" >&5
 $as_echo_n "checking for forkpty in -lbsd... " >&6; }
-if test "${ac_cv_lib_bsd_forkpty+set}" = set; then :
+if ${ac_cv_lib_bsd_forkpty+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   ac_check_lib_save_LIBS=$LIBS
@@ -10410,7 +10418,7 @@ LIBS=$ac_check_lib_save_LIBS
 fi
 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_bsd_forkpty" >&5
 $as_echo "$ac_cv_lib_bsd_forkpty" >&6; }
-if test "x$ac_cv_lib_bsd_forkpty" = x""yes; then :
+if test "x$ac_cv_lib_bsd_forkpty" = xyes; then :
   $as_echo "#define HAVE_FORKPTY 1" >>confdefs.h
  LIBS="$LIBS -lbsd"
 fi
@@ -10427,7 +10435,7 @@ done
 for ac_func in memmove
 do :
   ac_fn_c_check_func "$LINENO" "memmove" "ac_cv_func_memmove"
-if test "x$ac_cv_func_memmove" = x""yes; then :
+if test "x$ac_cv_func_memmove" = xyes; then :
   cat >>confdefs.h <<_ACEOF
 #define HAVE_MEMMOVE 1
 _ACEOF
@@ -10451,7 +10459,7 @@ done
 
 
 ac_fn_c_check_func "$LINENO" "dup2" "ac_cv_func_dup2"
-if test "x$ac_cv_func_dup2" = x""yes; then :
+if test "x$ac_cv_func_dup2" = xyes; then :
   $as_echo "#define HAVE_DUP2 1" >>confdefs.h
 
 else
@@ -10464,7 +10472,7 @@ esac
 fi
 
 ac_fn_c_check_func "$LINENO" "getcwd" "ac_cv_func_getcwd"
-if test "x$ac_cv_func_getcwd" = x""yes; then :
+if test "x$ac_cv_func_getcwd" = xyes; then :
   $as_echo "#define HAVE_GETCWD 1" >>confdefs.h
 
 else
@@ -10477,7 +10485,7 @@ esac
 fi
 
 ac_fn_c_check_func "$LINENO" "strdup" "ac_cv_func_strdup"
-if test "x$ac_cv_func_strdup" = x""yes; then :
+if test "x$ac_cv_func_strdup" = xyes; then :
   $as_echo "#define HAVE_STRDUP 1" >>confdefs.h
 
 else
@@ -10493,7 +10501,7 @@ fi
 for ac_func in getpgrp
 do :
   ac_fn_c_check_func "$LINENO" "getpgrp" "ac_cv_func_getpgrp"
-if test "x$ac_cv_func_getpgrp" = x""yes; then :
+if test "x$ac_cv_func_getpgrp" = xyes; then :
   cat >>confdefs.h <<_ACEOF
 #define HAVE_GETPGRP 1
 _ACEOF
@@ -10521,7 +10529,7 @@ done
 for ac_func in setpgrp
 do :
   ac_fn_c_check_func "$LINENO" "setpgrp" "ac_cv_func_setpgrp"
-if test "x$ac_cv_func_setpgrp" = x""yes; then :
+if test "x$ac_cv_func_setpgrp" = xyes; then :
   cat >>confdefs.h <<_ACEOF
 #define HAVE_SETPGRP 1
 _ACEOF
@@ -10549,7 +10557,7 @@ done
 for ac_func in gettimeofday
 do :
   ac_fn_c_check_func "$LINENO" "gettimeofday" "ac_cv_func_gettimeofday"
-if test "x$ac_cv_func_gettimeofday" = x""yes; then :
+if test "x$ac_cv_func_gettimeofday" = xyes; then :
   cat >>confdefs.h <<_ACEOF
 #define HAVE_GETTIMEOFDAY 1
 _ACEOF
@@ -10651,7 +10659,7 @@ if test $have_getaddrinfo = yes
 then
   { $as_echo "$as_me:${as_lineno-$LINENO}: checking getaddrinfo bug" >&5
 $as_echo_n "checking getaddrinfo bug... " >&6; }
-  if test "${ac_cv_buggy_getaddrinfo+set}" = set; then :
+  if ${ac_cv_buggy_getaddrinfo+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   if test "$cross_compiling" = yes; then :
@@ -10780,7 +10788,7 @@ fi
 for ac_func in getnameinfo
 do :
   ac_fn_c_check_func "$LINENO" "getnameinfo" "ac_cv_func_getnameinfo"
-if test "x$ac_cv_func_getnameinfo" = x""yes; then :
+if test "x$ac_cv_func_getnameinfo" = xyes; then :
   cat >>confdefs.h <<_ACEOF
 #define HAVE_GETNAMEINFO 1
 _ACEOF
@@ -10792,7 +10800,7 @@ done
 # checks for structures
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether time.h and sys/time.h may both be included" >&5
 $as_echo_n "checking whether time.h and sys/time.h may both be included... " >&6; }
-if test "${ac_cv_header_time+set}" = set; then :
+if ${ac_cv_header_time+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   cat confdefs.h - <<_ACEOF >conftest.$ac_ext
@@ -10827,7 +10835,7 @@ fi
 
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether struct tm is in sys/time.h or time.h" >&5
 $as_echo_n "checking whether struct tm is in sys/time.h or time.h... " >&6; }
-if test "${ac_cv_struct_tm+set}" = set; then :
+if ${ac_cv_struct_tm+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   cat confdefs.h - <<_ACEOF >conftest.$ac_ext
@@ -10864,7 +10872,7 @@ ac_fn_c_check_member "$LINENO" "struct tm" "tm_zone" "ac_cv_member_struct_tm_tm_
 #include <$ac_cv_struct_tm>
 
 "
-if test "x$ac_cv_member_struct_tm_tm_zone" = x""yes; then :
+if test "x$ac_cv_member_struct_tm_tm_zone" = xyes; then :
 
 cat >>confdefs.h <<_ACEOF
 #define HAVE_STRUCT_TM_TM_ZONE 1
@@ -10880,7 +10888,7 @@ $as_echo "#define HAVE_TM_ZONE 1" >>confdefs.h
 else
   ac_fn_c_check_decl "$LINENO" "tzname" "ac_cv_have_decl_tzname" "#include <time.h>
 "
-if test "x$ac_cv_have_decl_tzname" = x""yes; then :
+if test "x$ac_cv_have_decl_tzname" = xyes; then :
   ac_have_decl=1
 else
   ac_have_decl=0
@@ -10892,7 +10900,7 @@ _ACEOF
 
   { $as_echo "$as_me:${as_lineno-$LINENO}: checking for tzname" >&5
 $as_echo_n "checking for tzname... " >&6; }
-if test "${ac_cv_var_tzname+set}" = set; then :
+if ${ac_cv_var_tzname+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   cat confdefs.h - <<_ACEOF >conftest.$ac_ext
@@ -10928,7 +10936,7 @@ $as_echo "#define HAVE_TZNAME 1" >>confdefs.h
 fi
 
 ac_fn_c_check_member "$LINENO" "struct stat" "st_rdev" "ac_cv_member_struct_stat_st_rdev" "$ac_includes_default"
-if test "x$ac_cv_member_struct_stat_st_rdev" = x""yes; then :
+if test "x$ac_cv_member_struct_stat_st_rdev" = xyes; then :
 
 cat >>confdefs.h <<_ACEOF
 #define HAVE_STRUCT_STAT_ST_RDEV 1
@@ -10938,7 +10946,7 @@ _ACEOF
 fi
 
 ac_fn_c_check_member "$LINENO" "struct stat" "st_blksize" "ac_cv_member_struct_stat_st_blksize" "$ac_includes_default"
-if test "x$ac_cv_member_struct_stat_st_blksize" = x""yes; then :
+if test "x$ac_cv_member_struct_stat_st_blksize" = xyes; then :
 
 cat >>confdefs.h <<_ACEOF
 #define HAVE_STRUCT_STAT_ST_BLKSIZE 1
@@ -10948,7 +10956,7 @@ _ACEOF
 fi
 
 ac_fn_c_check_member "$LINENO" "struct stat" "st_flags" "ac_cv_member_struct_stat_st_flags" "$ac_includes_default"
-if test "x$ac_cv_member_struct_stat_st_flags" = x""yes; then :
+if test "x$ac_cv_member_struct_stat_st_flags" = xyes; then :
 
 cat >>confdefs.h <<_ACEOF
 #define HAVE_STRUCT_STAT_ST_FLAGS 1
@@ -10958,7 +10966,7 @@ _ACEOF
 fi
 
 ac_fn_c_check_member "$LINENO" "struct stat" "st_gen" "ac_cv_member_struct_stat_st_gen" "$ac_includes_default"
-if test "x$ac_cv_member_struct_stat_st_gen" = x""yes; then :
+if test "x$ac_cv_member_struct_stat_st_gen" = xyes; then :
 
 cat >>confdefs.h <<_ACEOF
 #define HAVE_STRUCT_STAT_ST_GEN 1
@@ -10968,7 +10976,7 @@ _ACEOF
 fi
 
 ac_fn_c_check_member "$LINENO" "struct stat" "st_birthtime" "ac_cv_member_struct_stat_st_birthtime" "$ac_includes_default"
-if test "x$ac_cv_member_struct_stat_st_birthtime" = x""yes; then :
+if test "x$ac_cv_member_struct_stat_st_birthtime" = xyes; then :
 
 cat >>confdefs.h <<_ACEOF
 #define HAVE_STRUCT_STAT_ST_BIRTHTIME 1
@@ -10978,7 +10986,7 @@ _ACEOF
 fi
 
 ac_fn_c_check_member "$LINENO" "struct stat" "st_blocks" "ac_cv_member_struct_stat_st_blocks" "$ac_includes_default"
-if test "x$ac_cv_member_struct_stat_st_blocks" = x""yes; then :
+if test "x$ac_cv_member_struct_stat_st_blocks" = xyes; then :
 
 cat >>confdefs.h <<_ACEOF
 #define HAVE_STRUCT_STAT_ST_BLOCKS 1
@@ -11000,7 +11008,7 @@ fi
 
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for time.h that defines altzone" >&5
 $as_echo_n "checking for time.h that defines altzone... " >&6; }
-if test "${ac_cv_header_time_altzone+set}" = set; then :
+if ${ac_cv_header_time_altzone+:} false; then :
   $as_echo_n "(cached) " >&6
 else
 
@@ -11064,7 +11072,7 @@ $as_echo "$was_it_defined" >&6; }
 
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for addrinfo" >&5
 $as_echo_n "checking for addrinfo... " >&6; }
-if test "${ac_cv_struct_addrinfo+set}" = set; then :
+if ${ac_cv_struct_addrinfo+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   cat confdefs.h - <<_ACEOF >conftest.$ac_ext
@@ -11096,7 +11104,7 @@ fi
 
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for sockaddr_storage" >&5
 $as_echo_n "checking for sockaddr_storage... " >&6; }
-if test "${ac_cv_struct_sockaddr_storage+set}" = set; then :
+if ${ac_cv_struct_sockaddr_storage+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   cat confdefs.h - <<_ACEOF >conftest.$ac_ext
@@ -11132,7 +11140,7 @@ fi
 
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether char is unsigned" >&5
 $as_echo_n "checking whether char is unsigned... " >&6; }
-if test "${ac_cv_c_char_unsigned+set}" = set; then :
+if ${ac_cv_c_char_unsigned+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   cat confdefs.h - <<_ACEOF >conftest.$ac_ext
@@ -11164,7 +11172,7 @@ fi
 
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for an ANSI C-conforming const" >&5
 $as_echo_n "checking for an ANSI C-conforming const... " >&6; }
-if test "${ac_cv_c_const+set}" = set; then :
+if ${ac_cv_c_const+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   cat confdefs.h - <<_ACEOF >conftest.$ac_ext
@@ -11452,7 +11460,7 @@ $as_echo "$va_list_is_array" >&6; }
 
 
 ac_fn_c_check_func "$LINENO" "gethostbyname_r" "ac_cv_func_gethostbyname_r"
-if test "x$ac_cv_func_gethostbyname_r" = x""yes; then :
+if test "x$ac_cv_func_gethostbyname_r" = xyes; then :
 
   $as_echo "#define HAVE_GETHOSTBYNAME_R 1" >>confdefs.h
 
@@ -11583,7 +11591,7 @@ else
   for ac_func in gethostbyname
 do :
   ac_fn_c_check_func "$LINENO" "gethostbyname" "ac_cv_func_gethostbyname"
-if test "x$ac_cv_func_gethostbyname" = x""yes; then :
+if test "x$ac_cv_func_gethostbyname" = xyes; then :
   cat >>confdefs.h <<_ACEOF
 #define HAVE_GETHOSTBYNAME 1
 _ACEOF
@@ -11605,12 +11613,12 @@ fi
 
 # Linux requires this for correct f.p. operations
 ac_fn_c_check_func "$LINENO" "__fpu_control" "ac_cv_func___fpu_control"
-if test "x$ac_cv_func___fpu_control" = x""yes; then :
+if test "x$ac_cv_func___fpu_control" = xyes; then :
 
 else
   { $as_echo "$as_me:${as_lineno-$LINENO}: checking for __fpu_control in -lieee" >&5
 $as_echo_n "checking for __fpu_control in -lieee... " >&6; }
-if test "${ac_cv_lib_ieee___fpu_control+set}" = set; then :
+if ${ac_cv_lib_ieee___fpu_control+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   ac_check_lib_save_LIBS=$LIBS
@@ -11644,7 +11652,7 @@ LIBS=$ac_check_lib_save_LIBS
 fi
 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_ieee___fpu_control" >&5
 $as_echo "$ac_cv_lib_ieee___fpu_control" >&6; }
-if test "x$ac_cv_lib_ieee___fpu_control" = x""yes; then :
+if test "x$ac_cv_lib_ieee___fpu_control" = xyes; then :
   cat >>confdefs.h <<_ACEOF
 #define HAVE_LIBIEEE 1
 _ACEOF
@@ -11738,7 +11746,7 @@ fi
 
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether C doubles are little-endian IEEE 754 binary64" >&5
 $as_echo_n "checking whether C doubles are little-endian IEEE 754 binary64... " >&6; }
-if test "${ac_cv_little_endian_double+set}" = set; then :
+if ${ac_cv_little_endian_double+:} false; then :
   $as_echo_n "(cached) " >&6
 else
 
@@ -11780,7 +11788,7 @@ fi
 
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether C doubles are big-endian IEEE 754 binary64" >&5
 $as_echo_n "checking whether C doubles are big-endian IEEE 754 binary64... " >&6; }
-if test "${ac_cv_big_endian_double+set}" = set; then :
+if ${ac_cv_big_endian_double+:} false; then :
   $as_echo_n "(cached) " >&6
 else
 
@@ -11826,7 +11834,7 @@ fi
 # conversions work.
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether C doubles are ARM mixed-endian IEEE 754 binary64" >&5
 $as_echo_n "checking whether C doubles are ARM mixed-endian IEEE 754 binary64... " >&6; }
-if test "${ac_cv_mixed_endian_double+set}" = set; then :
+if ${ac_cv_mixed_endian_double+:} false; then :
   $as_echo_n "(cached) " >&6
 else
 
@@ -11996,7 +12004,7 @@ done
 
 ac_fn_c_check_decl "$LINENO" "isinf" "ac_cv_have_decl_isinf" "#include <math.h>
 "
-if test "x$ac_cv_have_decl_isinf" = x""yes; then :
+if test "x$ac_cv_have_decl_isinf" = xyes; then :
   ac_have_decl=1
 else
   ac_have_decl=0
@@ -12007,7 +12015,7 @@ cat >>confdefs.h <<_ACEOF
 _ACEOF
 ac_fn_c_check_decl "$LINENO" "isnan" "ac_cv_have_decl_isnan" "#include <math.h>
 "
-if test "x$ac_cv_have_decl_isnan" = x""yes; then :
+if test "x$ac_cv_have_decl_isnan" = xyes; then :
   ac_have_decl=1
 else
   ac_have_decl=0
@@ -12018,7 +12026,7 @@ cat >>confdefs.h <<_ACEOF
 _ACEOF
 ac_fn_c_check_decl "$LINENO" "isfinite" "ac_cv_have_decl_isfinite" "#include <math.h>
 "
-if test "x$ac_cv_have_decl_isfinite" = x""yes; then :
+if test "x$ac_cv_have_decl_isfinite" = xyes; then :
   ac_have_decl=1
 else
   ac_have_decl=0
@@ -12033,7 +12041,7 @@ _ACEOF
 # -0. on some architectures.
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether tanh preserves the sign of zero" >&5
 $as_echo_n "checking whether tanh preserves the sign of zero... " >&6; }
-if test "${ac_cv_tanh_preserves_zero_sign+set}" = set; then :
+if ${ac_cv_tanh_preserves_zero_sign+:} false; then :
   $as_echo_n "(cached) " >&6
 else
 
@@ -12081,7 +12089,7 @@ then
     # -0.  See issue #9920.
     { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether log1p drops the sign of negative zero" >&5
 $as_echo_n "checking whether log1p drops the sign of negative zero... " >&6; }
-    if test "${ac_cv_log1p_drops_zero_sign+set}" = set; then :
+    if ${ac_cv_log1p_drops_zero_sign+:} false; then :
   $as_echo_n "(cached) " >&6
 else
 
@@ -12133,7 +12141,7 @@ LIBS=$LIBS_SAVE
 # sem_open results in a 'Signal 12' error.
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether POSIX semaphores are enabled" >&5
 $as_echo_n "checking whether POSIX semaphores are enabled... " >&6; }
-if test "${ac_cv_posix_semaphores_enabled+set}" = set; then :
+if ${ac_cv_posix_semaphores_enabled+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   if test "$cross_compiling" = yes; then :
@@ -12184,7 +12192,7 @@ fi
 # Multiprocessing check for broken sem_getvalue
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for broken sem_getvalue" >&5
 $as_echo_n "checking for broken sem_getvalue... " >&6; }
-if test "${ac_cv_broken_sem_getvalue+set}" = set; then :
+if ${ac_cv_broken_sem_getvalue+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   if test "$cross_compiling" = yes; then :
@@ -12249,7 +12257,7 @@ no)
 15|30)
   ;;
 *)
-  as_fn_error $? "bad value $enable_big_digits for --enable-big-digits; value should be 15 or 30" "$LINENO" 5  ;;
+  as_fn_error $? "bad value $enable_big_digits for --enable-big-digits; value should be 15 or 30" "$LINENO" 5 ;;
 esac
 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $enable_big_digits" >&5
 $as_echo "$enable_big_digits" >&6; }
@@ -12267,7 +12275,7 @@ fi
 
 # check for wchar.h
 ac_fn_c_check_header_mongrel "$LINENO" "wchar.h" "ac_cv_header_wchar_h" "$ac_includes_default"
-if test "x$ac_cv_header_wchar_h" = x""yes; then :
+if test "x$ac_cv_header_wchar_h" = xyes; then :
 
 
 $as_echo "#define HAVE_WCHAR_H 1" >>confdefs.h
@@ -12290,7 +12298,7 @@ then
 # This bug is HP SR number 8606223364.
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking size of wchar_t" >&5
 $as_echo_n "checking size of wchar_t... " >&6; }
-if test "${ac_cv_sizeof_wchar_t+set}" = set; then :
+if ${ac_cv_sizeof_wchar_t+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   if ac_fn_c_compute_int "$LINENO" "(long int) (sizeof (wchar_t))" "ac_cv_sizeof_wchar_t"        "#include <wchar.h>
@@ -12301,7 +12309,7 @@ else
      { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
 as_fn_error 77 "cannot compute sizeof (wchar_t)
-See \`config.log' for more details" "$LINENO" 5 ; }
+See \`config.log' for more details" "$LINENO" 5; }
    else
      ac_cv_sizeof_wchar_t=0
    fi
@@ -12356,7 +12364,7 @@ then
   # check whether wchar_t is signed or not
   { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether wchar_t is signed" >&5
 $as_echo_n "checking whether wchar_t is signed... " >&6; }
-  if test "${ac_cv_wchar_t_signed+set}" = set; then :
+  if ${ac_cv_wchar_t_signed+:} false; then :
   $as_echo_n "(cached) " >&6
 else
 
@@ -12452,7 +12460,7 @@ $as_echo "$PY_UNICODE_TYPE" >&6; }
 # check for endianness
  { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether byte ordering is bigendian" >&5
 $as_echo_n "checking whether byte ordering is bigendian... " >&6; }
-if test "${ac_cv_c_bigendian+set}" = set; then :
+if ${ac_cv_c_bigendian+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   ac_cv_c_bigendian=unknown
@@ -12671,7 +12679,7 @@ $as_echo "#define AC_APPLE_UNIVERSAL_BUILD 1" >>confdefs.h
      ;; #(
    *)
      as_fn_error $? "unknown endianness
- presetting ac_cv_c_bigendian=no (or yes) will help" "$LINENO" 5  ;;
+ presetting ac_cv_c_bigendian=no (or yes) will help" "$LINENO" 5 ;;
  esac
 
 
@@ -12743,7 +12751,7 @@ $as_echo "$SO" >&6; }
 # or fills with zeros (like the Cray J90, according to Tim Peters).
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether right shift extends the sign bit" >&5
 $as_echo_n "checking whether right shift extends the sign bit... " >&6; }
-if test "${ac_cv_rshift_extends_sign+set}" = set; then :
+if ${ac_cv_rshift_extends_sign+:} false; then :
   $as_echo_n "(cached) " >&6
 else
 
@@ -12782,7 +12790,7 @@ fi
 # check for getc_unlocked and related locking functions
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for getc_unlocked() and friends" >&5
 $as_echo_n "checking for getc_unlocked() and friends... " >&6; }
-if test "${ac_cv_have_getc_unlocked+set}" = set; then :
+if ${ac_cv_have_getc_unlocked+:} false; then :
   $as_echo_n "(cached) " >&6
 else
 
@@ -12880,7 +12888,7 @@ fi
 # check for readline 2.1
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for rl_callback_handler_install in -lreadline" >&5
 $as_echo_n "checking for rl_callback_handler_install in -lreadline... " >&6; }
-if test "${ac_cv_lib_readline_rl_callback_handler_install+set}" = set; then :
+if ${ac_cv_lib_readline_rl_callback_handler_install+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   ac_check_lib_save_LIBS=$LIBS
@@ -12914,7 +12922,7 @@ LIBS=$ac_check_lib_save_LIBS
 fi
 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_readline_rl_callback_handler_install" >&5
 $as_echo "$ac_cv_lib_readline_rl_callback_handler_install" >&6; }
-if test "x$ac_cv_lib_readline_rl_callback_handler_install" = x""yes; then :
+if test "x$ac_cv_lib_readline_rl_callback_handler_install" = xyes; then :
 
 $as_echo "#define HAVE_RL_CALLBACK 1" >>confdefs.h
 
@@ -12966,7 +12974,7 @@ fi
 # check for readline 4.0
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for rl_pre_input_hook in -lreadline" >&5
 $as_echo_n "checking for rl_pre_input_hook in -lreadline... " >&6; }
-if test "${ac_cv_lib_readline_rl_pre_input_hook+set}" = set; then :
+if ${ac_cv_lib_readline_rl_pre_input_hook+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   ac_check_lib_save_LIBS=$LIBS
@@ -13000,7 +13008,7 @@ LIBS=$ac_check_lib_save_LIBS
 fi
 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_readline_rl_pre_input_hook" >&5
 $as_echo "$ac_cv_lib_readline_rl_pre_input_hook" >&6; }
-if test "x$ac_cv_lib_readline_rl_pre_input_hook" = x""yes; then :
+if test "x$ac_cv_lib_readline_rl_pre_input_hook" = xyes; then :
 
 $as_echo "#define HAVE_RL_PRE_INPUT_HOOK 1" >>confdefs.h
 
@@ -13010,7 +13018,7 @@ fi
 # also in 4.0
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for rl_completion_display_matches_hook in -lreadline" >&5
 $as_echo_n "checking for rl_completion_display_matches_hook in -lreadline... " >&6; }
-if test "${ac_cv_lib_readline_rl_completion_display_matches_hook+set}" = set; then :
+if ${ac_cv_lib_readline_rl_completion_display_matches_hook+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   ac_check_lib_save_LIBS=$LIBS
@@ -13044,7 +13052,7 @@ LIBS=$ac_check_lib_save_LIBS
 fi
 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_readline_rl_completion_display_matches_hook" >&5
 $as_echo "$ac_cv_lib_readline_rl_completion_display_matches_hook" >&6; }
-if test "x$ac_cv_lib_readline_rl_completion_display_matches_hook" = x""yes; then :
+if test "x$ac_cv_lib_readline_rl_completion_display_matches_hook" = xyes; then :
 
 $as_echo "#define HAVE_RL_COMPLETION_DISPLAY_MATCHES_HOOK 1" >>confdefs.h
 
@@ -13054,7 +13062,7 @@ fi
 # check for readline 4.2
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for rl_completion_matches in -lreadline" >&5
 $as_echo_n "checking for rl_completion_matches in -lreadline... " >&6; }
-if test "${ac_cv_lib_readline_rl_completion_matches+set}" = set; then :
+if ${ac_cv_lib_readline_rl_completion_matches+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   ac_check_lib_save_LIBS=$LIBS
@@ -13088,7 +13096,7 @@ LIBS=$ac_check_lib_save_LIBS
 fi
 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_readline_rl_completion_matches" >&5
 $as_echo "$ac_cv_lib_readline_rl_completion_matches" >&6; }
-if test "x$ac_cv_lib_readline_rl_completion_matches" = x""yes; then :
+if test "x$ac_cv_lib_readline_rl_completion_matches" = xyes; then :
 
 $as_echo "#define HAVE_RL_COMPLETION_MATCHES 1" >>confdefs.h
 
@@ -13129,7 +13137,7 @@ LIBS=$LIBS_no_readline
 
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for broken nice()" >&5
 $as_echo_n "checking for broken nice()... " >&6; }
-if test "${ac_cv_broken_nice+set}" = set; then :
+if ${ac_cv_broken_nice+:} false; then :
   $as_echo_n "(cached) " >&6
 else
 
@@ -13170,7 +13178,7 @@ fi
 
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for broken poll()" >&5
 $as_echo_n "checking for broken poll()... " >&6; }
-if test "${ac_cv_broken_poll+set}" = set; then :
+if ${ac_cv_broken_poll+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   if test "$cross_compiling" = yes; then :
@@ -13225,7 +13233,7 @@ ac_fn_c_check_member "$LINENO" "struct tm" "tm_zone" "ac_cv_member_struct_tm_tm_
 #include <$ac_cv_struct_tm>
 
 "
-if test "x$ac_cv_member_struct_tm_tm_zone" = x""yes; then :
+if test "x$ac_cv_member_struct_tm_tm_zone" = xyes; then :
 
 cat >>confdefs.h <<_ACEOF
 #define HAVE_STRUCT_TM_TM_ZONE 1
@@ -13241,7 +13249,7 @@ $as_echo "#define HAVE_TM_ZONE 1" >>confdefs.h
 else
   ac_fn_c_check_decl "$LINENO" "tzname" "ac_cv_have_decl_tzname" "#include <time.h>
 "
-if test "x$ac_cv_have_decl_tzname" = x""yes; then :
+if test "x$ac_cv_have_decl_tzname" = xyes; then :
   ac_have_decl=1
 else
   ac_have_decl=0
@@ -13253,7 +13261,7 @@ _ACEOF
 
   { $as_echo "$as_me:${as_lineno-$LINENO}: checking for tzname" >&5
 $as_echo_n "checking for tzname... " >&6; }
-if test "${ac_cv_var_tzname+set}" = set; then :
+if ${ac_cv_var_tzname+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   cat confdefs.h - <<_ACEOF >conftest.$ac_ext
@@ -13292,7 +13300,7 @@ fi
 # check tzset(3) exists and works like we expect it to
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for working tzset()" >&5
 $as_echo_n "checking for working tzset()... " >&6; }
-if test "${ac_cv_working_tzset+set}" = set; then :
+if ${ac_cv_working_tzset+:} false; then :
   $as_echo_n "(cached) " >&6
 else
 
@@ -13389,7 +13397,7 @@ fi
 # Look for subsecond timestamps in struct stat
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for tv_nsec in struct stat" >&5
 $as_echo_n "checking for tv_nsec in struct stat... " >&6; }
-if test "${ac_cv_stat_tv_nsec+set}" = set; then :
+if ${ac_cv_stat_tv_nsec+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   cat confdefs.h - <<_ACEOF >conftest.$ac_ext
@@ -13426,7 +13434,7 @@ fi
 # Look for BSD style subsecond timestamps in struct stat
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for tv_nsec2 in struct stat" >&5
 $as_echo_n "checking for tv_nsec2 in struct stat... " >&6; }
-if test "${ac_cv_stat_tv_nsec2+set}" = set; then :
+if ${ac_cv_stat_tv_nsec2+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   cat confdefs.h - <<_ACEOF >conftest.$ac_ext
@@ -13463,7 +13471,7 @@ fi
 # On HP/UX 11.0, mvwdelch is a block with a return statement
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether mvwdelch is an expression" >&5
 $as_echo_n "checking whether mvwdelch is an expression... " >&6; }
-if test "${ac_cv_mvwdelch_is_expression+set}" = set; then :
+if ${ac_cv_mvwdelch_is_expression+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   cat confdefs.h - <<_ACEOF >conftest.$ac_ext
@@ -13500,7 +13508,7 @@ fi
 
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether WINDOW has _flags" >&5
 $as_echo_n "checking whether WINDOW has _flags... " >&6; }
-if test "${ac_cv_window_has_flags+set}" = set; then :
+if ${ac_cv_window_has_flags+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   cat confdefs.h - <<_ACEOF >conftest.$ac_ext
@@ -13648,7 +13656,7 @@ if test "$have_long_long" = yes
 then
   { $as_echo "$as_me:${as_lineno-$LINENO}: checking for %lld and %llu printf() format support" >&5
 $as_echo_n "checking for %lld and %llu printf() format support... " >&6; }
-  if test "${ac_cv_have_long_long_format+set}" = set; then :
+  if ${ac_cv_have_long_long_format+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   if test "$cross_compiling" = yes; then :
@@ -13718,7 +13726,7 @@ fi
 
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for %zd printf() format support" >&5
 $as_echo_n "checking for %zd printf() format support... " >&6; }
-if test "${ac_cv_have_size_t_format+set}" = set; then :
+if ${ac_cv_have_size_t_format+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   if test "$cross_compiling" = yes; then :
@@ -13791,7 +13799,7 @@ ac_fn_c_check_type "$LINENO" "socklen_t" "ac_cv_type_socklen_t" "
 #endif
 
 "
-if test "x$ac_cv_type_socklen_t" = x""yes; then :
+if test "x$ac_cv_type_socklen_t" = xyes; then :
 
 else
 
@@ -13802,7 +13810,7 @@ fi
 
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for broken mbstowcs" >&5
 $as_echo_n "checking for broken mbstowcs... " >&6; }
-if test "${ac_cv_broken_mbstowcs+set}" = set; then :
+if ${ac_cv_broken_mbstowcs+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   if test "$cross_compiling" = yes; then :
@@ -13842,7 +13850,7 @@ fi
 
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CC supports computed gotos" >&5
 $as_echo_n "checking whether $CC supports computed gotos... " >&6; }
-if test "${ac_cv_computed_gotos+set}" = set; then :
+if ${ac_cv_computed_gotos+:} false; then :
   $as_echo_n "(cached) " >&6
 else
   if test "$cross_compiling" = yes; then :
@@ -13922,11 +13930,11 @@ esac
 
 
 case $ac_sys_system in
-  OSF*) as_fn_error $? "OSF* systems are deprecated unless somebody volunteers. Check http://bugs.python.org/issue8606" "$LINENO" 5  ;;
+  OSF*) as_fn_error $? "OSF* systems are deprecated unless somebody volunteers. Check http://bugs.python.org/issue8606" "$LINENO" 5 ;;
 esac
 
 ac_fn_c_check_func "$LINENO" "pipe2" "ac_cv_func_pipe2"
-if test "x$ac_cv_func_pipe2" = x""yes; then :
+if test "x$ac_cv_func_pipe2" = xyes; then :
 
 $as_echo "#define HAVE_PIPE2 1" >>confdefs.h
 
@@ -14021,10 +14029,21 @@ $as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;;
      :end' >>confcache
 if diff "$cache_file" confcache >/dev/null 2>&1; then :; else
   if test -w "$cache_file"; then
-    test "x$cache_file" != "x/dev/null" &&
+    if test "x$cache_file" != "x/dev/null"; then
       { $as_echo "$as_me:${as_lineno-$LINENO}: updating cache $cache_file" >&5
 $as_echo "$as_me: updating cache $cache_file" >&6;}
-    cat confcache >$cache_file
+      if test ! -f "$cache_file" || test -h "$cache_file"; then
+	cat confcache >"$cache_file"
+      else
+        case $cache_file in #(
+        */* | ?:*)
+	  mv -f confcache "$cache_file"$$ &&
+	  mv -f "$cache_file"$$ "$cache_file" ;; #(
+        *)
+	  mv -f confcache "$cache_file" ;;
+	esac
+      fi
+    fi
   else
     { $as_echo "$as_me:${as_lineno-$LINENO}: not updating unwritable cache $cache_file" >&5
 $as_echo "$as_me: not updating unwritable cache $cache_file" >&6;}
@@ -14057,7 +14076,7 @@ LTLIBOBJS=$ac_ltlibobjs
 
 
 
-: ${CONFIG_STATUS=./config.status}
+: "${CONFIG_STATUS=./config.status}"
 ac_write_fail=0
 ac_clean_files_save=$ac_clean_files
 ac_clean_files="$ac_clean_files $CONFIG_STATUS"
@@ -14158,6 +14177,7 @@ fi
 IFS=" ""	$as_nl"
 
 # Find who we are.  Look in the path if we contain no directory separator.
+as_myself=
 case $0 in #((
   *[\\/]* ) as_myself=$0 ;;
   *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
@@ -14465,7 +14485,7 @@ cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
 # values after options handling.
 ac_log="
 This file was extended by python $as_me 3.2, which was
-generated by GNU Autoconf 2.67.  Invocation command line was
+generated by GNU Autoconf 2.68.  Invocation command line was
 
   CONFIG_FILES    = $CONFIG_FILES
   CONFIG_HEADERS  = $CONFIG_HEADERS
@@ -14527,7 +14547,7 @@ cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
 ac_cs_config="`$as_echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`"
 ac_cs_version="\\
 python config.status 3.2
-configured by $0, generated by GNU Autoconf 2.67,
+configured by $0, generated by GNU Autoconf 2.68,
   with options \\"\$ac_cs_config\\"
 
 Copyright (C) 2010 Free Software Foundation, Inc.
@@ -14658,7 +14678,7 @@ do
     "Misc/python.pc") CONFIG_FILES="$CONFIG_FILES Misc/python.pc" ;;
     "Modules/ld_so_aix") CONFIG_FILES="$CONFIG_FILES Modules/ld_so_aix" ;;
 
-  *) as_fn_error $? "invalid argument: \`$ac_config_target'" "$LINENO" 5 ;;
+  *) as_fn_error $? "invalid argument: \`$ac_config_target'" "$LINENO" 5;;
   esac
 done
 
@@ -14680,9 +14700,10 @@ fi
 # after its creation but before its name has been assigned to `$tmp'.
 $debug ||
 {
-  tmp=
+  tmp= ac_tmp=
   trap 'exit_status=$?
-  { test -z "$tmp" || test ! -d "$tmp" || rm -fr "$tmp"; } && exit $exit_status
+  : "${ac_tmp:=$tmp}"
+  { test ! -d "$ac_tmp" || rm -fr "$ac_tmp"; } && exit $exit_status
 ' 0
   trap 'as_fn_exit 1' 1 2 13 15
 }
@@ -14690,12 +14711,13 @@ $debug ||
 
 {
   tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` &&
-  test -n "$tmp" && test -d "$tmp"
+  test -d "$tmp"
 }  ||
 {
   tmp=./conf$$-$RANDOM
   (umask 077 && mkdir "$tmp")
 } || as_fn_error $? "cannot create a temporary directory in ." "$LINENO" 5
+ac_tmp=$tmp
 
 # Set up the scripts for CONFIG_FILES section.
 # No need to generate them if there are no CONFIG_FILES.
@@ -14717,7 +14739,7 @@ else
   ac_cs_awk_cr=$ac_cr
 fi
 
-echo 'BEGIN {' >"$tmp/subs1.awk" &&
+echo 'BEGIN {' >"$ac_tmp/subs1.awk" &&
 _ACEOF
 
 
@@ -14745,7 +14767,7 @@ done
 rm -f conf$$subs.sh
 
 cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
-cat >>"\$tmp/subs1.awk" <<\\_ACAWK &&
+cat >>"\$ac_tmp/subs1.awk" <<\\_ACAWK &&
 _ACEOF
 sed -n '
 h
@@ -14793,7 +14815,7 @@ t delim
 rm -f conf$$subs.awk
 cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
 _ACAWK
-cat >>"\$tmp/subs1.awk" <<_ACAWK &&
+cat >>"\$ac_tmp/subs1.awk" <<_ACAWK &&
   for (key in S) S_is_set[key] = 1
   FS = ""
 
@@ -14825,7 +14847,7 @@ if sed "s/$ac_cr//" < /dev/null > /dev/null 2>&1; then
   sed "s/$ac_cr\$//; s/$ac_cr/$ac_cs_awk_cr/g"
 else
   cat
-fi < "$tmp/subs1.awk" > "$tmp/subs.awk" \
+fi < "$ac_tmp/subs1.awk" > "$ac_tmp/subs.awk" \
   || as_fn_error $? "could not setup config files machinery" "$LINENO" 5
 _ACEOF
 
@@ -14859,7 +14881,7 @@ fi # test -n "$CONFIG_FILES"
 # No need to generate them if there are no CONFIG_HEADERS.
 # This happens for instance with `./config.status Makefile'.
 if test -n "$CONFIG_HEADERS"; then
-cat >"$tmp/defines.awk" <<\_ACAWK ||
+cat >"$ac_tmp/defines.awk" <<\_ACAWK ||
 BEGIN {
 _ACEOF
 
@@ -14871,8 +14893,8 @@ _ACEOF
 # handling of long lines.
 ac_delim='%!_!# '
 for ac_last_try in false false :; do
-  ac_t=`sed -n "/$ac_delim/p" confdefs.h`
-  if test -z "$ac_t"; then
+  ac_tt=`sed -n "/$ac_delim/p" confdefs.h`
+  if test -z "$ac_tt"; then
     break
   elif $ac_last_try; then
     as_fn_error $? "could not make $CONFIG_HEADERS" "$LINENO" 5
@@ -14973,7 +14995,7 @@ do
   esac
   case $ac_mode$ac_tag in
   :[FHL]*:*);;
-  :L* | :C*:*) as_fn_error $? "invalid tag \`$ac_tag'" "$LINENO" 5 ;;
+  :L* | :C*:*) as_fn_error $? "invalid tag \`$ac_tag'" "$LINENO" 5;;
   :[FH]-) ac_tag=-:-;;
   :[FH]*) ac_tag=$ac_tag:$ac_tag.in;;
   esac
@@ -14992,7 +15014,7 @@ do
     for ac_f
     do
       case $ac_f in
-      -) ac_f="$tmp/stdin";;
+      -) ac_f="$ac_tmp/stdin";;
       *) # Look for the file first in the build tree, then in the source tree
 	 # (if the path is not absolute).  The absolute path cannot be DOS-style,
 	 # because $ac_f cannot contain `:'.
@@ -15001,7 +15023,7 @@ do
 	   [\\/$]*) false;;
 	   *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";;
 	   esac ||
-	   as_fn_error 1 "cannot find input file: \`$ac_f'" "$LINENO" 5 ;;
+	   as_fn_error 1 "cannot find input file: \`$ac_f'" "$LINENO" 5;;
       esac
       case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac
       as_fn_append ac_file_inputs " '$ac_f'"
@@ -15027,8 +15049,8 @@ $as_echo "$as_me: creating $ac_file" >&6;}
     esac
 
     case $ac_tag in
-    *:-:* | *:-) cat >"$tmp/stdin" \
-      || as_fn_error $? "could not create $ac_file" "$LINENO" 5  ;;
+    *:-:* | *:-) cat >"$ac_tmp/stdin" \
+      || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;;
     esac
     ;;
   esac
@@ -15158,21 +15180,22 @@ s&@abs_top_builddir@&$ac_abs_top_builddir&;t t
 s&@INSTALL@&$ac_INSTALL&;t t
 $ac_datarootdir_hack
 "
-eval sed \"\$ac_sed_extra\" "$ac_file_inputs" | $AWK -f "$tmp/subs.awk" >$tmp/out \
-  || as_fn_error $? "could not create $ac_file" "$LINENO" 5
+eval sed \"\$ac_sed_extra\" "$ac_file_inputs" | $AWK -f "$ac_tmp/subs.awk" \
+  >$ac_tmp/out || as_fn_error $? "could not create $ac_file" "$LINENO" 5
 
 test -z "$ac_datarootdir_hack$ac_datarootdir_seen" &&
-  { ac_out=`sed -n '/\${datarootdir}/p' "$tmp/out"`; test -n "$ac_out"; } &&
-  { ac_out=`sed -n '/^[	 ]*datarootdir[	 ]*:*=/p' "$tmp/out"`; test -z "$ac_out"; } &&
+  { ac_out=`sed -n '/\${datarootdir}/p' "$ac_tmp/out"`; test -n "$ac_out"; } &&
+  { ac_out=`sed -n '/^[	 ]*datarootdir[	 ]*:*=/p' \
+      "$ac_tmp/out"`; test -z "$ac_out"; } &&
   { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir'
 which seems to be undefined.  Please make sure it is defined" >&5
 $as_echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir'
 which seems to be undefined.  Please make sure it is defined" >&2;}
 
-  rm -f "$tmp/stdin"
+  rm -f "$ac_tmp/stdin"
   case $ac_file in
-  -) cat "$tmp/out" && rm -f "$tmp/out";;
-  *) rm -f "$ac_file" && mv "$tmp/out" "$ac_file";;
+  -) cat "$ac_tmp/out" && rm -f "$ac_tmp/out";;
+  *) rm -f "$ac_file" && mv "$ac_tmp/out" "$ac_file";;
   esac \
   || as_fn_error $? "could not create $ac_file" "$LINENO" 5
  ;;
@@ -15183,20 +15206,20 @@ which seems to be undefined.  Please make sure it is defined" >&2;}
   if test x"$ac_file" != x-; then
     {
       $as_echo "/* $configure_input  */" \
-      && eval '$AWK -f "$tmp/defines.awk"' "$ac_file_inputs"
-    } >"$tmp/config.h" \
+      && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs"
+    } >"$ac_tmp/config.h" \
       || as_fn_error $? "could not create $ac_file" "$LINENO" 5
-    if diff "$ac_file" "$tmp/config.h" >/dev/null 2>&1; then
+    if diff "$ac_file" "$ac_tmp/config.h" >/dev/null 2>&1; then
       { $as_echo "$as_me:${as_lineno-$LINENO}: $ac_file is unchanged" >&5
 $as_echo "$as_me: $ac_file is unchanged" >&6;}
     else
       rm -f "$ac_file"
-      mv "$tmp/config.h" "$ac_file" \
+      mv "$ac_tmp/config.h" "$ac_file" \
 	|| as_fn_error $? "could not create $ac_file" "$LINENO" 5
     fi
   else
     $as_echo "/* $configure_input  */" \
-      && eval '$AWK -f "$tmp/defines.awk"' "$ac_file_inputs" \
+      && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" \
       || as_fn_error $? "could not create -" "$LINENO" 5
   fi
  ;;
-- 
cgit v0.12

701' href='#n1701'>1701</a>
<a id='n1702' href='#n1702'>1702</a>
<a id='n1703' href='#n1703'>1703</a>
<a id='n1704' href='#n1704'>1704</a>
<a id='n1705' href='#n1705'>1705</a>
<a id='n1706' href='#n1706'>1706</a>
<a id='n1707' href='#n1707'>1707</a>
<a id='n1708' href='#n1708'>1708</a>
<a id='n1709' href='#n1709'>1709</a>
<a id='n1710' href='#n1710'>1710</a>
<a id='n1711' href='#n1711'>1711</a>
<a id='n1712' href='#n1712'>1712</a>
<a id='n1713' href='#n1713'>1713</a>
<a id='n1714' href='#n1714'>1714</a>
<a id='n1715' href='#n1715'>1715</a>
<a id='n1716' href='#n1716'>1716</a>
<a id='n1717' href='#n1717'>1717</a>
<a id='n1718' href='#n1718'>1718</a>
<a id='n1719' href='#n1719'>1719</a>
<a id='n1720' href='#n1720'>1720</a>
<a id='n1721' href='#n1721'>1721</a>
<a id='n1722' href='#n1722'>1722</a>
<a id='n1723' href='#n1723'>1723</a>
<a id='n1724' href='#n1724'>1724</a>
<a id='n1725' href='#n1725'>1725</a>
<a id='n1726' href='#n1726'>1726</a>
<a id='n1727' href='#n1727'>1727</a>
<a id='n1728' href='#n1728'>1728</a>
<a id='n1729' href='#n1729'>1729</a>
<a id='n1730' href='#n1730'>1730</a>
<a id='n1731' href='#n1731'>1731</a>
<a id='n1732' href='#n1732'>1732</a>
<a id='n1733' href='#n1733'>1733</a>
<a id='n1734' href='#n1734'>1734</a>
<a id='n1735' href='#n1735'>1735</a>
<a id='n1736' href='#n1736'>1736</a>
<a id='n1737' href='#n1737'>1737</a>
<a id='n1738' href='#n1738'>1738</a>
<a id='n1739' href='#n1739'>1739</a>
<a id='n1740' href='#n1740'>1740</a>
<a id='n1741' href='#n1741'>1741</a>
<a id='n1742' href='#n1742'>1742</a>
<a id='n1743' href='#n1743'>1743</a>
<a id='n1744' href='#n1744'>1744</a>
<a id='n1745' href='#n1745'>1745</a>
<a id='n1746' href='#n1746'>1746</a>
<a id='n1747' href='#n1747'>1747</a>
<a id='n1748' href='#n1748'>1748</a>
<a id='n1749' href='#n1749'>1749</a>
<a id='n1750' href='#n1750'>1750</a>
<a id='n1751' href='#n1751'>1751</a>
<a id='n1752' href='#n1752'>1752</a>
<a id='n1753' href='#n1753'>1753</a>
<a id='n1754' href='#n1754'>1754</a>
<a id='n1755' href='#n1755'>1755</a>
<a id='n1756' href='#n1756'>1756</a>
<a id='n1757' href='#n1757'>1757</a>
<a id='n1758' href='#n1758'>1758</a>
<a id='n1759' href='#n1759'>1759</a>
<a id='n1760' href='#n1760'>1760</a>
<a id='n1761' href='#n1761'>1761</a>
<a id='n1762' href='#n1762'>1762</a>
<a id='n1763' href='#n1763'>1763</a>
<a id='n1764' href='#n1764'>1764</a>
<a id='n1765' href='#n1765'>1765</a>
<a id='n1766' href='#n1766'>1766</a>
<a id='n1767' href='#n1767'>1767</a>
<a id='n1768' href='#n1768'>1768</a>
<a id='n1769' href='#n1769'>1769</a>
<a id='n1770' href='#n1770'>1770</a>
<a id='n1771' href='#n1771'>1771</a>
<a id='n1772' href='#n1772'>1772</a>
<a id='n1773' href='#n1773'>1773</a>
<a id='n1774' href='#n1774'>1774</a>
<a id='n1775' href='#n1775'>1775</a>
<a id='n1776' href='#n1776'>1776</a>
<a id='n1777' href='#n1777'>1777</a>
<a id='n1778' href='#n1778'>1778</a>
<a id='n1779' href='#n1779'>1779</a>
<a id='n1780' href='#n1780'>1780</a>
<a id='n1781' href='#n1781'>1781</a>
<a id='n1782' href='#n1782'>1782</a>
<a id='n1783' href='#n1783'>1783</a>
<a id='n1784' href='#n1784'>1784</a>
<a id='n1785' href='#n1785'>1785</a>
<a id='n1786' href='#n1786'>1786</a>
<a id='n1787' href='#n1787'>1787</a>
<a id='n1788' href='#n1788'>1788</a>
<a id='n1789' href='#n1789'>1789</a>
<a id='n1790' href='#n1790'>1790</a>
<a id='n1791' href='#n1791'>1791</a>
<a id='n1792' href='#n1792'>1792</a>
<a id='n1793' href='#n1793'>1793</a>
<a id='n1794' href='#n1794'>1794</a>
<a id='n1795' href='#n1795'>1795</a>
<a id='n1796' href='#n1796'>1796</a>
<a id='n1797' href='#n1797'>1797</a>
<a id='n1798' href='#n1798'>1798</a>
<a id='n1799' href='#n1799'>1799</a>
<a id='n1800' href='#n1800'>1800</a>
<a id='n1801' href='#n1801'>1801</a>
<a id='n1802' href='#n1802'>1802</a>
<a id='n1803' href='#n1803'>1803</a>
<a id='n1804' href='#n1804'>1804</a>
<a id='n1805' href='#n1805'>1805</a>
<a id='n1806' href='#n1806'>1806</a>
<a id='n1807' href='#n1807'>1807</a>
<a id='n1808' href='#n1808'>1808</a>
<a id='n1809' href='#n1809'>1809</a>
<a id='n1810' href='#n1810'>1810</a>
<a id='n1811' href='#n1811'>1811</a>
<a id='n1812' href='#n1812'>1812</a>
<a id='n1813' href='#n1813'>1813</a>
<a id='n1814' href='#n1814'>1814</a>
<a id='n1815' href='#n1815'>1815</a>
<a id='n1816' href='#n1816'>1816</a>
<a id='n1817' href='#n1817'>1817</a>
<a id='n1818' href='#n1818'>1818</a>
<a id='n1819' href='#n1819'>1819</a>
<a id='n1820' href='#n1820'>1820</a>
<a id='n1821' href='#n1821'>1821</a>
<a id='n1822' href='#n1822'>1822</a>
<a id='n1823' href='#n1823'>1823</a>
<a id='n1824' href='#n1824'>1824</a>
<a id='n1825' href='#n1825'>1825</a>
<a id='n1826' href='#n1826'>1826</a>
<a id='n1827' href='#n1827'>1827</a>
<a id='n1828' href='#n1828'>1828</a>
<a id='n1829' href='#n1829'>1829</a>
<a id='n1830' href='#n1830'>1830</a>
<a id='n1831' href='#n1831'>1831</a>
<a id='n1832' href='#n1832'>1832</a>
<a id='n1833' href='#n1833'>1833</a>
<a id='n1834' href='#n1834'>1834</a>
<a id='n1835' href='#n1835'>1835</a>
<a id='n1836' href='#n1836'>1836</a>
<a id='n1837' href='#n1837'>1837</a>
<a id='n1838' href='#n1838'>1838</a>
<a id='n1839' href='#n1839'>1839</a>
<a id='n1840' href='#n1840'>1840</a>
<a id='n1841' href='#n1841'>1841</a>
<a id='n1842' href='#n1842'>1842</a>
<a id='n1843' href='#n1843'>1843</a>
<a id='n1844' href='#n1844'>1844</a>
<a id='n1845' href='#n1845'>1845</a>
<a id='n1846' href='#n1846'>1846</a>
<a id='n1847' href='#n1847'>1847</a>
<a id='n1848' href='#n1848'>1848</a>
<a id='n1849' href='#n1849'>1849</a>
<a id='n1850' href='#n1850'>1850</a>
<a id='n1851' href='#n1851'>1851</a>
<a id='n1852' href='#n1852'>1852</a>
<a id='n1853' href='#n1853'>1853</a>
<a id='n1854' href='#n1854'>1854</a>
<a id='n1855' href='#n1855'>1855</a>
<a id='n1856' href='#n1856'>1856</a>
<a id='n1857' href='#n1857'>1857</a>
<a id='n1858' href='#n1858'>1858</a>
<a id='n1859' href='#n1859'>1859</a>
<a id='n1860' href='#n1860'>1860</a>
<a id='n1861' href='#n1861'>1861</a>
<a id='n1862' href='#n1862'>1862</a>
<a id='n1863' href='#n1863'>1863</a>
<a id='n1864' href='#n1864'>1864</a>
<a id='n1865' href='#n1865'>1865</a>
<a id='n1866' href='#n1866'>1866</a>
<a id='n1867' href='#n1867'>1867</a>
<a id='n1868' href='#n1868'>1868</a>
<a id='n1869' href='#n1869'>1869</a>
<a id='n1870' href='#n1870'>1870</a>
<a id='n1871' href='#n1871'>1871</a>
<a id='n1872' href='#n1872'>1872</a>
<a id='n1873' href='#n1873'>1873</a>
<a id='n1874' href='#n1874'>1874</a>
<a id='n1875' href='#n1875'>1875</a>
<a id='n1876' href='#n1876'>1876</a>
<a id='n1877' href='#n1877'>1877</a>
<a id='n1878' href='#n1878'>1878</a>
<a id='n1879' href='#n1879'>1879</a>
<a id='n1880' href='#n1880'>1880</a>
<a id='n1881' href='#n1881'>1881</a>
<a id='n1882' href='#n1882'>1882</a>
<a id='n1883' href='#n1883'>1883</a>
<a id='n1884' href='#n1884'>1884</a>
<a id='n1885' href='#n1885'>1885</a>
<a id='n1886' href='#n1886'>1886</a>
<a id='n1887' href='#n1887'>1887</a>
<a id='n1888' href='#n1888'>1888</a>
<a id='n1889' href='#n1889'>1889</a>
<a id='n1890' href='#n1890'>1890</a>
<a id='n1891' href='#n1891'>1891</a>
<a id='n1892' href='#n1892'>1892</a>
<a id='n1893' href='#n1893'>1893</a>
<a id='n1894' href='#n1894'>1894</a>
<a id='n1895' href='#n1895'>1895</a>
<a id='n1896' href='#n1896'>1896</a>
<a id='n1897' href='#n1897'>1897</a>
<a id='n1898' href='#n1898'>1898</a>
<a id='n1899' href='#n1899'>1899</a>
<a id='n1900' href='#n1900'>1900</a>
<a id='n1901' href='#n1901'>1901</a>
<a id='n1902' href='#n1902'>1902</a>
<a id='n1903' href='#n1903'>1903</a>
<a id='n1904' href='#n1904'>1904</a>
<a id='n1905' href='#n1905'>1905</a>
<a id='n1906' href='#n1906'>1906</a>
<a id='n1907' href='#n1907'>1907</a>
<a id='n1908' href='#n1908'>1908</a>
<a id='n1909' href='#n1909'>1909</a>
<a id='n1910' href='#n1910'>1910</a>
<a id='n1911' href='#n1911'>1911</a>
<a id='n1912' href='#n1912'>1912</a>
<a id='n1913' href='#n1913'>1913</a>
<a id='n1914' href='#n1914'>1914</a>
<a id='n1915' href='#n1915'>1915</a>
<a id='n1916' href='#n1916'>1916</a>
<a id='n1917' href='#n1917'>1917</a>
<a id='n1918' href='#n1918'>1918</a>
<a id='n1919' href='#n1919'>1919</a>
<a id='n1920' href='#n1920'>1920</a>
<a id='n1921' href='#n1921'>1921</a>
<a id='n1922' href='#n1922'>1922</a>
<a id='n1923' href='#n1923'>1923</a>
<a id='n1924' href='#n1924'>1924</a>
<a id='n1925' href='#n1925'>1925</a>
<a id='n1926' href='#n1926'>1926</a>
<a id='n1927' href='#n1927'>1927</a>
<a id='n1928' href='#n1928'>1928</a>
<a id='n1929' href='#n1929'>1929</a>
<a id='n1930' href='#n1930'>1930</a>
<a id='n1931' href='#n1931'>1931</a>
<a id='n1932' href='#n1932'>1932</a>
<a id='n1933' href='#n1933'>1933</a>
<a id='n1934' href='#n1934'>1934</a>
<a id='n1935' href='#n1935'>1935</a>
<a id='n1936' href='#n1936'>1936</a>
<a id='n1937' href='#n1937'>1937</a>
<a id='n1938' href='#n1938'>1938</a>
<a id='n1939' href='#n1939'>1939</a>
<a id='n1940' href='#n1940'>1940</a>
<a id='n1941' href='#n1941'>1941</a>
<a id='n1942' href='#n1942'>1942</a>
<a id='n1943' href='#n1943'>1943</a>
<a id='n1944' href='#n1944'>1944</a>
<a id='n1945' href='#n1945'>1945</a>
<a id='n1946' href='#n1946'>1946</a>
<a id='n1947' href='#n1947'>1947</a>
<a id='n1948' href='#n1948'>1948</a>
<a id='n1949' href='#n1949'>1949</a>
<a id='n1950' href='#n1950'>1950</a>
<a id='n1951' href='#n1951'>1951</a>
<a id='n1952' href='#n1952'>1952</a>
<a id='n1953' href='#n1953'>1953</a>
<a id='n1954' href='#n1954'>1954</a>
<a id='n1955' href='#n1955'>1955</a>
<a id='n1956' href='#n1956'>1956</a>
<a id='n1957' href='#n1957'>1957</a>
<a id='n1958' href='#n1958'>1958</a>
<a id='n1959' href='#n1959'>1959</a>
<a id='n1960' href='#n1960'>1960</a>
<a id='n1961' href='#n1961'>1961</a>
<a id='n1962' href='#n1962'>1962</a>
<a id='n1963' href='#n1963'>1963</a>
<a id='n1964' href='#n1964'>1964</a>
<a id='n1965' href='#n1965'>1965</a>
<a id='n1966' href='#n1966'>1966</a>
<a id='n1967' href='#n1967'>1967</a>
<a id='n1968' href='#n1968'>1968</a>
<a id='n1969' href='#n1969'>1969</a>
<a id='n1970' href='#n1970'>1970</a>
<a id='n1971' href='#n1971'>1971</a>
<a id='n1972' href='#n1972'>1972</a>
<a id='n1973' href='#n1973'>1973</a>
<a id='n1974' href='#n1974'>1974</a>
<a id='n1975' href='#n1975'>1975</a>
<a id='n1976' href='#n1976'>1976</a>
<a id='n1977' href='#n1977'>1977</a>
<a id='n1978' href='#n1978'>1978</a>
<a id='n1979' href='#n1979'>1979</a>
<a id='n1980' href='#n1980'>1980</a>
<a id='n1981' href='#n1981'>1981</a>
<a id='n1982' href='#n1982'>1982</a>
<a id='n1983' href='#n1983'>1983</a>
<a id='n1984' href='#n1984'>1984</a>
<a id='n1985' href='#n1985'>1985</a>
<a id='n1986' href='#n1986'>1986</a>
<a id='n1987' href='#n1987'>1987</a>
<a id='n1988' href='#n1988'>1988</a>
<a id='n1989' href='#n1989'>1989</a>
<a id='n1990' href='#n1990'>1990</a>
<a id='n1991' href='#n1991'>1991</a>
<a id='n1992' href='#n1992'>1992</a>
<a id='n1993' href='#n1993'>1993</a>
<a id='n1994' href='#n1994'>1994</a>
<a id='n1995' href='#n1995'>1995</a>
<a id='n1996' href='#n1996'>1996</a>
<a id='n1997' href='#n1997'>1997</a>
<a id='n1998' href='#n1998'>1998</a>
<a id='n1999' href='#n1999'>1999</a>
<a id='n2000' href='#n2000'>2000</a>
<a id='n2001' href='#n2001'>2001</a>
<a id='n2002' href='#n2002'>2002</a>
<a id='n2003' href='#n2003'>2003</a>
<a id='n2004' href='#n2004'>2004</a>
<a id='n2005' href='#n2005'>2005</a>
<a id='n2006' href='#n2006'>2006</a>
<a id='n2007' href='#n2007'>2007</a>
<a id='n2008' href='#n2008'>2008</a>
<a id='n2009' href='#n2009'>2009</a>
<a id='n2010' href='#n2010'>2010</a>
<a id='n2011' href='#n2011'>2011</a>
<a id='n2012' href='#n2012'>2012</a>
<a id='n2013' href='#n2013'>2013</a>
<a id='n2014' href='#n2014'>2014</a>
<a id='n2015' href='#n2015'>2015</a>
<a id='n2016' href='#n2016'>2016</a>
<a id='n2017' href='#n2017'>2017</a>
<a id='n2018' href='#n2018'>2018</a>
<a id='n2019' href='#n2019'>2019</a>
<a id='n2020' href='#n2020'>2020</a>
<a id='n2021' href='#n2021'>2021</a>
<a id='n2022' href='#n2022'>2022</a>
<a id='n2023' href='#n2023'>2023</a>
<a id='n2024' href='#n2024'>2024</a>
<a id='n2025' href='#n2025'>2025</a>
<a id='n2026' href='#n2026'>2026</a>
<a id='n2027' href='#n2027'>2027</a>
<a id='n2028' href='#n2028'>2028</a>
<a id='n2029' href='#n2029'>2029</a>
<a id='n2030' href='#n2030'>2030</a>
<a id='n2031' href='#n2031'>2031</a>
<a id='n2032' href='#n2032'>2032</a>
<a id='n2033' href='#n2033'>2033</a>
<a id='n2034' href='#n2034'>2034</a>
<a id='n2035' href='#n2035'>2035</a>
<a id='n2036' href='#n2036'>2036</a>
<a id='n2037' href='#n2037'>2037</a>
<a id='n2038' href='#n2038'>2038</a>
<a id='n2039' href='#n2039'>2039</a>
<a id='n2040' href='#n2040'>2040</a>
<a id='n2041' href='#n2041'>2041</a>
<a id='n2042' href='#n2042'>2042</a>
<a id='n2043' href='#n2043'>2043</a>
<a id='n2044' href='#n2044'>2044</a>
<a id='n2045' href='#n2045'>2045</a>
<a id='n2046' href='#n2046'>2046</a>
<a id='n2047' href='#n2047'>2047</a>
<a id='n2048' href='#n2048'>2048</a>
<a id='n2049' href='#n2049'>2049</a>
<a id='n2050' href='#n2050'>2050</a>
<a id='n2051' href='#n2051'>2051</a>
<a id='n2052' href='#n2052'>2052</a>
<a id='n2053' href='#n2053'>2053</a>
<a id='n2054' href='#n2054'>2054</a>
<a id='n2055' href='#n2055'>2055</a>
<a id='n2056' href='#n2056'>2056</a>
<a id='n2057' href='#n2057'>2057</a>
<a id='n2058' href='#n2058'>2058</a>
<a id='n2059' href='#n2059'>2059</a>
<a id='n2060' href='#n2060'>2060</a>
<a id='n2061' href='#n2061'>2061</a>
<a id='n2062' href='#n2062'>2062</a>
<a id='n2063' href='#n2063'>2063</a>
<a id='n2064' href='#n2064'>2064</a>
<a id='n2065' href='#n2065'>2065</a>
<a id='n2066' href='#n2066'>2066</a>
<a id='n2067' href='#n2067'>2067</a>
<a id='n2068' href='#n2068'>2068</a>
<a id='n2069' href='#n2069'>2069</a>
<a id='n2070' href='#n2070'>2070</a>
<a id='n2071' href='#n2071'>2071</a>
<a id='n2072' href='#n2072'>2072</a>
<a id='n2073' href='#n2073'>2073</a>
<a id='n2074' href='#n2074'>2074</a>
<a id='n2075' href='#n2075'>2075</a>
<a id='n2076' href='#n2076'>2076</a>
<a id='n2077' href='#n2077'>2077</a>
<a id='n2078' href='#n2078'>2078</a>
<a id='n2079' href='#n2079'>2079</a>
<a id='n2080' href='#n2080'>2080</a>
<a id='n2081' href='#n2081'>2081</a>
<a id='n2082' href='#n2082'>2082</a>
<a id='n2083' href='#n2083'>2083</a>
<a id='n2084' href='#n2084'>2084</a>
<a id='n2085' href='#n2085'>2085</a>
<a id='n2086' href='#n2086'>2086</a>
<a id='n2087' href='#n2087'>2087</a>
<a id='n2088' href='#n2088'>2088</a>
<a id='n2089' href='#n2089'>2089</a>
<a id='n2090' href='#n2090'>2090</a>
<a id='n2091' href='#n2091'>2091</a>
<a id='n2092' href='#n2092'>2092</a>
<a id='n2093' href='#n2093'>2093</a>
<a id='n2094' href='#n2094'>2094</a>
<a id='n2095' href='#n2095'>2095</a>
<a id='n2096' href='#n2096'>2096</a>
<a id='n2097' href='#n2097'>2097</a>
<a id='n2098' href='#n2098'>2098</a>
<a id='n2099' href='#n2099'>2099</a>
<a id='n2100' href='#n2100'>2100</a>
<a id='n2101' href='#n2101'>2101</a>
<a id='n2102' href='#n2102'>2102</a>
<a id='n2103' href='#n2103'>2103</a>
<a id='n2104' href='#n2104'>2104</a>
<a id='n2105' href='#n2105'>2105</a>
<a id='n2106' href='#n2106'>2106</a>
<a id='n2107' href='#n2107'>2107</a>
<a id='n2108' href='#n2108'>2108</a>
<a id='n2109' href='#n2109'>2109</a>
<a id='n2110' href='#n2110'>2110</a>
<a id='n2111' href='#n2111'>2111</a>
<a id='n2112' href='#n2112'>2112</a>
<a id='n2113' href='#n2113'>2113</a>
<a id='n2114' href='#n2114'>2114</a>
<a id='n2115' href='#n2115'>2115</a>
<a id='n2116' href='#n2116'>2116</a>
<a id='n2117' href='#n2117'>2117</a>
<a id='n2118' href='#n2118'>2118</a>
<a id='n2119' href='#n2119'>2119</a>
<a id='n2120' href='#n2120'>2120</a>
<a id='n2121' href='#n2121'>2121</a>
<a id='n2122' href='#n2122'>2122</a>
<a id='n2123' href='#n2123'>2123</a>
<a id='n2124' href='#n2124'>2124</a>
<a id='n2125' href='#n2125'>2125</a>
<a id='n2126' href='#n2126'>2126</a>
<a id='n2127' href='#n2127'>2127</a>
<a id='n2128' href='#n2128'>2128</a>
<a id='n2129' href='#n2129'>2129</a>
<a id='n2130' href='#n2130'>2130</a>
<a id='n2131' href='#n2131'>2131</a>
<a id='n2132' href='#n2132'>2132</a>
<a id='n2133' href='#n2133'>2133</a>
<a id='n2134' href='#n2134'>2134</a>
<a id='n2135' href='#n2135'>2135</a>
<a id='n2136' href='#n2136'>2136</a>
<a id='n2137' href='#n2137'>2137</a>
<a id='n2138' href='#n2138'>2138</a>
<a id='n2139' href='#n2139'>2139</a>
<a id='n2140' href='#n2140'>2140</a>
<a id='n2141' href='#n2141'>2141</a>
<a id='n2142' href='#n2142'>2142</a>
<a id='n2143' href='#n2143'>2143</a>
<a id='n2144' href='#n2144'>2144</a>
<a id='n2145' href='#n2145'>2145</a>
<a id='n2146' href='#n2146'>2146</a>
<a id='n2147' href='#n2147'>2147</a>
<a id='n2148' href='#n2148'>2148</a>
<a id='n2149' href='#n2149'>2149</a>
<a id='n2150' href='#n2150'>2150</a>
<a id='n2151' href='#n2151'>2151</a>
<a id='n2152' href='#n2152'>2152</a>
<a id='n2153' href='#n2153'>2153</a>
<a id='n2154' href='#n2154'>2154</a>
<a id='n2155' href='#n2155'>2155</a>
<a id='n2156' href='#n2156'>2156</a>
<a id='n2157' href='#n2157'>2157</a>
<a id='n2158' href='#n2158'>2158</a>
<a id='n2159' href='#n2159'>2159</a>
<a id='n2160' href='#n2160'>2160</a>
<a id='n2161' href='#n2161'>2161</a>
<a id='n2162' href='#n2162'>2162</a>
<a id='n2163' href='#n2163'>2163</a>
<a id='n2164' href='#n2164'>2164</a>
<a id='n2165' href='#n2165'>2165</a>
<a id='n2166' href='#n2166'>2166</a>
<a id='n2167' href='#n2167'>2167</a>
<a id='n2168' href='#n2168'>2168</a>
<a id='n2169' href='#n2169'>2169</a>
<a id='n2170' href='#n2170'>2170</a>
<a id='n2171' href='#n2171'>2171</a>
<a id='n2172' href='#n2172'>2172</a>
<a id='n2173' href='#n2173'>2173</a>
<a id='n2174' href='#n2174'>2174</a>
<a id='n2175' href='#n2175'>2175</a>
<a id='n2176' href='#n2176'>2176</a>
<a id='n2177' href='#n2177'>2177</a>
<a id='n2178' href='#n2178'>2178</a>
<a id='n2179' href='#n2179'>2179</a>
<a id='n2180' href='#n2180'>2180</a>
<a id='n2181' href='#n2181'>2181</a>
<a id='n2182' href='#n2182'>2182</a>
<a id='n2183' href='#n2183'>2183</a>
<a id='n2184' href='#n2184'>2184</a>
<a id='n2185' href='#n2185'>2185</a>
<a id='n2186' href='#n2186'>2186</a>
<a id='n2187' href='#n2187'>2187</a>
<a id='n2188' href='#n2188'>2188</a>
<a id='n2189' href='#n2189'>2189</a>
<a id='n2190' href='#n2190'>2190</a>
<a id='n2191' href='#n2191'>2191</a>
<a id='n2192' href='#n2192'>2192</a>
<a id='n2193' href='#n2193'>2193</a>
<a id='n2194' href='#n2194'>2194</a>
<a id='n2195' href='#n2195'>2195</a>
<a id='n2196' href='#n2196'>2196</a>
<a id='n2197' href='#n2197'>2197</a>
<a id='n2198' href='#n2198'>2198</a>
<a id='n2199' href='#n2199'>2199</a>
<a id='n2200' href='#n2200'>2200</a>
<a id='n2201' href='#n2201'>2201</a>
<a id='n2202' href='#n2202'>2202</a>
<a id='n2203' href='#n2203'>2203</a>
<a id='n2204' href='#n2204'>2204</a>
<a id='n2205' href='#n2205'>2205</a>
<a id='n2206' href='#n2206'>2206</a>
<a id='n2207' href='#n2207'>2207</a>
<a id='n2208' href='#n2208'>2208</a>
<a id='n2209' href='#n2209'>2209</a>
<a id='n2210' href='#n2210'>2210</a>
<a id='n2211' href='#n2211'>2211</a>
<a id='n2212' href='#n2212'>2212</a>
<a id='n2213' href='#n2213'>2213</a>
<a id='n2214' href='#n2214'>2214</a>
<a id='n2215' href='#n2215'>2215</a>
<a id='n2216' href='#n2216'>2216</a>
<a id='n2217' href='#n2217'>2217</a>
<a id='n2218' href='#n2218'>2218</a>
<a id='n2219' href='#n2219'>2219</a>
<a id='n2220' href='#n2220'>2220</a>
<a id='n2221' href='#n2221'>2221</a>
<a id='n2222' href='#n2222'>2222</a>
<a id='n2223' href='#n2223'>2223</a>
<a id='n2224' href='#n2224'>2224</a>
<a id='n2225' href='#n2225'>2225</a>
<a id='n2226' href='#n2226'>2226</a>
<a id='n2227' href='#n2227'>2227</a>
<a id='n2228' href='#n2228'>2228</a>
<a id='n2229' href='#n2229'>2229</a>
<a id='n2230' href='#n2230'>2230</a>
<a id='n2231' href='#n2231'>2231</a>
<a id='n2232' href='#n2232'>2232</a>
<a id='n2233' href='#n2233'>2233</a>
<a id='n2234' href='#n2234'>2234</a>
<a id='n2235' href='#n2235'>2235</a>
<a id='n2236' href='#n2236'>2236</a>
<a id='n2237' href='#n2237'>2237</a>
<a id='n2238' href='#n2238'>2238</a>
<a id='n2239' href='#n2239'>2239</a>
<a id='n2240' href='#n2240'>2240</a>
<a id='n2241' href='#n2241'>2241</a>
<a id='n2242' href='#n2242'>2242</a>
<a id='n2243' href='#n2243'>2243</a>
<a id='n2244' href='#n2244'>2244</a>
<a id='n2245' href='#n2245'>2245</a>
<a id='n2246' href='#n2246'>2246</a>
<a id='n2247' href='#n2247'>2247</a>
<a id='n2248' href='#n2248'>2248</a>
<a id='n2249' href='#n2249'>2249</a>
<a id='n2250' href='#n2250'>2250</a>
<a id='n2251' href='#n2251'>2251</a>
<a id='n2252' href='#n2252'>2252</a>
<a id='n2253' href='#n2253'>2253</a>
<a id='n2254' href='#n2254'>2254</a>
<a id='n2255' href='#n2255'>2255</a>
<a id='n2256' href='#n2256'>2256</a>
<a id='n2257' href='#n2257'>2257</a>
<a id='n2258' href='#n2258'>2258</a>
<a id='n2259' href='#n2259'>2259</a>
<a id='n2260' href='#n2260'>2260</a>
<a id='n2261' href='#n2261'>2261</a>
<a id='n2262' href='#n2262'>2262</a>
<a id='n2263' href='#n2263'>2263</a>
<a id='n2264' href='#n2264'>2264</a>
<a id='n2265' href='#n2265'>2265</a>
<a id='n2266' href='#n2266'>2266</a>
<a id='n2267' href='#n2267'>2267</a>
<a id='n2268' href='#n2268'>2268</a>
<a id='n2269' href='#n2269'>2269</a>
<a id='n2270' href='#n2270'>2270</a>
<a id='n2271' href='#n2271'>2271</a>
<a id='n2272' href='#n2272'>2272</a>
<a id='n2273' href='#n2273'>2273</a>
<a id='n2274' href='#n2274'>2274</a>
<a id='n2275' href='#n2275'>2275</a>
<a id='n2276' href='#n2276'>2276</a>
<a id='n2277' href='#n2277'>2277</a>
<a id='n2278' href='#n2278'>2278</a>
<a id='n2279' href='#n2279'>2279</a>
<a id='n2280' href='#n2280'>2280</a>
<a id='n2281' href='#n2281'>2281</a>
<a id='n2282' href='#n2282'>2282</a>
<a id='n2283' href='#n2283'>2283</a>
<a id='n2284' href='#n2284'>2284</a>
<a id='n2285' href='#n2285'>2285</a>
<a id='n2286' href='#n2286'>2286</a>
<a id='n2287' href='#n2287'>2287</a>
<a id='n2288' href='#n2288'>2288</a>
<a id='n2289' href='#n2289'>2289</a>
<a id='n2290' href='#n2290'>2290</a>
<a id='n2291' href='#n2291'>2291</a>
<a id='n2292' href='#n2292'>2292</a>
<a id='n2293' href='#n2293'>2293</a>
<a id='n2294' href='#n2294'>2294</a>
<a id='n2295' href='#n2295'>2295</a>
<a id='n2296' href='#n2296'>2296</a>
<a id='n2297' href='#n2297'>2297</a>
<a id='n2298' href='#n2298'>2298</a>
<a id='n2299' href='#n2299'>2299</a>
<a id='n2300' href='#n2300'>2300</a>
<a id='n2301' href='#n2301'>2301</a>
<a id='n2302' href='#n2302'>2302</a>
<a id='n2303' href='#n2303'>2303</a>
<a id='n2304' href='#n2304'>2304</a>
<a id='n2305' href='#n2305'>2305</a>
<a id='n2306' href='#n2306'>2306</a>
<a id='n2307' href='#n2307'>2307</a>
<a id='n2308' href='#n2308'>2308</a>
<a id='n2309' href='#n2309'>2309</a>
<a id='n2310' href='#n2310'>2310</a>
<a id='n2311' href='#n2311'>2311</a>
<a id='n2312' href='#n2312'>2312</a>
<a id='n2313' href='#n2313'>2313</a>
<a id='n2314' href='#n2314'>2314</a>
<a id='n2315' href='#n2315'>2315</a>
<a id='n2316' href='#n2316'>2316</a>
<a id='n2317' href='#n2317'>2317</a>
<a id='n2318' href='#n2318'>2318</a>
<a id='n2319' href='#n2319'>2319</a>
<a id='n2320' href='#n2320'>2320</a>
<a id='n2321' href='#n2321'>2321</a>
<a id='n2322' href='#n2322'>2322</a>
<a id='n2323' href='#n2323'>2323</a>
<a id='n2324' href='#n2324'>2324</a>
<a id='n2325' href='#n2325'>2325</a>
<a id='n2326' href='#n2326'>2326</a>
<a id='n2327' href='#n2327'>2327</a>
<a id='n2328' href='#n2328'>2328</a>
<a id='n2329' href='#n2329'>2329</a>
<a id='n2330' href='#n2330'>2330</a>
<a id='n2331' href='#n2331'>2331</a>
<a id='n2332' href='#n2332'>2332</a>
<a id='n2333' href='#n2333'>2333</a>
<a id='n2334' href='#n2334'>2334</a>
<a id='n2335' href='#n2335'>2335</a>
<a id='n2336' href='#n2336'>2336</a>
<a id='n2337' href='#n2337'>2337</a>
<a id='n2338' href='#n2338'>2338</a>
<a id='n2339' href='#n2339'>2339</a>
<a id='n2340' href='#n2340'>2340</a>
<a id='n2341' href='#n2341'>2341</a>
<a id='n2342' href='#n2342'>2342</a>
<a id='n2343' href='#n2343'>2343</a>
<a id='n2344' href='#n2344'>2344</a>
<a id='n2345' href='#n2345'>2345</a>
<a id='n2346' href='#n2346'>2346</a>
<a id='n2347' href='#n2347'>2347</a>
<a id='n2348' href='#n2348'>2348</a>
<a id='n2349' href='#n2349'>2349</a>
<a id='n2350' href='#n2350'>2350</a>
<a id='n2351' href='#n2351'>2351</a>
<a id='n2352' href='#n2352'>2352</a>
<a id='n2353' href='#n2353'>2353</a>
<a id='n2354' href='#n2354'>2354</a>
<a id='n2355' href='#n2355'>2355</a>
<a id='n2356' href='#n2356'>2356</a>
<a id='n2357' href='#n2357'>2357</a>
<a id='n2358' href='#n2358'>2358</a>
<a id='n2359' href='#n2359'>2359</a>
<a id='n2360' href='#n2360'>2360</a>
<a id='n2361' href='#n2361'>2361</a>
<a id='n2362' href='#n2362'>2362</a>
<a id='n2363' href='#n2363'>2363</a>
<a id='n2364' href='#n2364'>2364</a>
<a id='n2365' href='#n2365'>2365</a>
<a id='n2366' href='#n2366'>2366</a>
<a id='n2367' href='#n2367'>2367</a>
<a id='n2368' href='#n2368'>2368</a>
<a id='n2369' href='#n2369'>2369</a>
<a id='n2370' href='#n2370'>2370</a>
<a id='n2371' href='#n2371'>2371</a>
<a id='n2372' href='#n2372'>2372</a>
<a id='n2373' href='#n2373'>2373</a>
<a id='n2374' href='#n2374'>2374</a>
<a id='n2375' href='#n2375'>2375</a>
<a id='n2376' href='#n2376'>2376</a>
<a id='n2377' href='#n2377'>2377</a>
<a id='n2378' href='#n2378'>2378</a>
<a id='n2379' href='#n2379'>2379</a>
<a id='n2380' href='#n2380'>2380</a>
<a id='n2381' href='#n2381'>2381</a>
<a id='n2382' href='#n2382'>2382</a>
<a id='n2383' href='#n2383'>2383</a>
<a id='n2384' href='#n2384'>2384</a>
<a id='n2385' href='#n2385'>2385</a>
<a id='n2386' href='#n2386'>2386</a>
<a id='n2387' href='#n2387'>2387</a>
<a id='n2388' href='#n2388'>2388</a>
<a id='n2389' href='#n2389'>2389</a>
<a id='n2390' href='#n2390'>2390</a>
<a id='n2391' href='#n2391'>2391</a>
<a id='n2392' href='#n2392'>2392</a>
<a id='n2393' href='#n2393'>2393</a>
<a id='n2394' href='#n2394'>2394</a>
<a id='n2395' href='#n2395'>2395</a>
<a id='n2396' href='#n2396'>2396</a>
<a id='n2397' href='#n2397'>2397</a>
<a id='n2398' href='#n2398'>2398</a>
<a id='n2399' href='#n2399'>2399</a>
<a id='n2400' href='#n2400'>2400</a>
<a id='n2401' href='#n2401'>2401</a>
<a id='n2402' href='#n2402'>2402</a>
<a id='n2403' href='#n2403'>2403</a>
<a id='n2404' href='#n2404'>2404</a>
<a id='n2405' href='#n2405'>2405</a>
<a id='n2406' href='#n2406'>2406</a>
<a id='n2407' href='#n2407'>2407</a>
<a id='n2408' href='#n2408'>2408</a>
<a id='n2409' href='#n2409'>2409</a>
<a id='n2410' href='#n2410'>2410</a>
<a id='n2411' href='#n2411'>2411</a>
<a id='n2412' href='#n2412'>2412</a>
<a id='n2413' href='#n2413'>2413</a>
<a id='n2414' href='#n2414'>2414</a>
<a id='n2415' href='#n2415'>2415</a>
<a id='n2416' href='#n2416'>2416</a>
<a id='n2417' href='#n2417'>2417</a>
<a id='n2418' href='#n2418'>2418</a>
<a id='n2419' href='#n2419'>2419</a>
<a id='n2420' href='#n2420'>2420</a>
<a id='n2421' href='#n2421'>2421</a>
<a id='n2422' href='#n2422'>2422</a>
<a id='n2423' href='#n2423'>2423</a>
<a id='n2424' href='#n2424'>2424</a>
<a id='n2425' href='#n2425'>2425</a>
<a id='n2426' href='#n2426'>2426</a>
<a id='n2427' href='#n2427'>2427</a>
<a id='n2428' href='#n2428'>2428</a>
<a id='n2429' href='#n2429'>2429</a>
<a id='n2430' href='#n2430'>2430</a>
<a id='n2431' href='#n2431'>2431</a>
<a id='n2432' href='#n2432'>2432</a>
<a id='n2433' href='#n2433'>2433</a>
<a id='n2434' href='#n2434'>2434</a>
<a id='n2435' href='#n2435'>2435</a>
<a id='n2436' href='#n2436'>2436</a>
<a id='n2437' href='#n2437'>2437</a>
<a id='n2438' href='#n2438'>2438</a>
<a id='n2439' href='#n2439'>2439</a>
<a id='n2440' href='#n2440'>2440</a>
<a id='n2441' href='#n2441'>2441</a>
<a id='n2442' href='#n2442'>2442</a>
<a id='n2443' href='#n2443'>2443</a>
<a id='n2444' href='#n2444'>2444</a>
<a id='n2445' href='#n2445'>2445</a>
<a id='n2446' href='#n2446'>2446</a>
<a id='n2447' href='#n2447'>2447</a>
<a id='n2448' href='#n2448'>2448</a>
<a id='n2449' href='#n2449'>2449</a>
<a id='n2450' href='#n2450'>2450</a>
<a id='n2451' href='#n2451'>2451</a>
<a id='n2452' href='#n2452'>2452</a>
<a id='n2453' href='#n2453'>2453</a>
<a id='n2454' href='#n2454'>2454</a>
<a id='n2455' href='#n2455'>2455</a>
<a id='n2456' href='#n2456'>2456</a>
<a id='n2457' href='#n2457'>2457</a>
<a id='n2458' href='#n2458'>2458</a>
<a id='n2459' href='#n2459'>2459</a>
<a id='n2460' href='#n2460'>2460</a>
<a id='n2461' href='#n2461'>2461</a>
<a id='n2462' href='#n2462'>2462</a>
<a id='n2463' href='#n2463'>2463</a>
<a id='n2464' href='#n2464'>2464</a>
<a id='n2465' href='#n2465'>2465</a>
<a id='n2466' href='#n2466'>2466</a>
<a id='n2467' href='#n2467'>2467</a>
<a id='n2468' href='#n2468'>2468</a>
<a id='n2469' href='#n2469'>2469</a>
<a id='n2470' href='#n2470'>2470</a>
<a id='n2471' href='#n2471'>2471</a>
<a id='n2472' href='#n2472'>2472</a>
<a id='n2473' href='#n2473'>2473</a>
<a id='n2474' href='#n2474'>2474</a>
<a id='n2475' href='#n2475'>2475</a>
<a id='n2476' href='#n2476'>2476</a>
<a id='n2477' href='#n2477'>2477</a>
<a id='n2478' href='#n2478'>2478</a>
<a id='n2479' href='#n2479'>2479</a>
<a id='n2480' href='#n2480'>2480</a>
<a id='n2481' href='#n2481'>2481</a>
<a id='n2482' href='#n2482'>2482</a>
<a id='n2483' href='#n2483'>2483</a>
<a id='n2484' href='#n2484'>2484</a>
<a id='n2485' href='#n2485'>2485</a>
<a id='n2486' href='#n2486'>2486</a>
<a id='n2487' href='#n2487'>2487</a>
<a id='n2488' href='#n2488'>2488</a>
<a id='n2489' href='#n2489'>2489</a>
<a id='n2490' href='#n2490'>2490</a>
<a id='n2491' href='#n2491'>2491</a>
<a id='n2492' href='#n2492'>2492</a>
<a id='n2493' href='#n2493'>2493</a>
<a id='n2494' href='#n2494'>2494</a>
<a id='n2495' href='#n2495'>2495</a>
<a id='n2496' href='#n2496'>2496</a>
<a id='n2497' href='#n2497'>2497</a>
<a id='n2498' href='#n2498'>2498</a>
<a id='n2499' href='#n2499'>2499</a>
<a id='n2500' href='#n2500'>2500</a>
<a id='n2501' href='#n2501'>2501</a>
<a id='n2502' href='#n2502'>2502</a>
<a id='n2503' href='#n2503'>2503</a>
<a id='n2504' href='#n2504'>2504</a>
<a id='n2505' href='#n2505'>2505</a>
<a id='n2506' href='#n2506'>2506</a>
<a id='n2507' href='#n2507'>2507</a>
<a id='n2508' href='#n2508'>2508</a>
<a id='n2509' href='#n2509'>2509</a>
<a id='n2510' href='#n2510'>2510</a>
<a id='n2511' href='#n2511'>2511</a>
<a id='n2512' href='#n2512'>2512</a>
<a id='n2513' href='#n2513'>2513</a>
<a id='n2514' href='#n2514'>2514</a>
<a id='n2515' href='#n2515'>2515</a>
<a id='n2516' href='#n2516'>2516</a>
<a id='n2517' href='#n2517'>2517</a>
<a id='n2518' href='#n2518'>2518</a>
<a id='n2519' href='#n2519'>2519</a>
<a id='n2520' href='#n2520'>2520</a>
<a id='n2521' href='#n2521'>2521</a>
<a id='n2522' href='#n2522'>2522</a>
<a id='n2523' href='#n2523'>2523</a>
<a id='n2524' href='#n2524'>2524</a>
<a id='n2525' href='#n2525'>2525</a>
<a id='n2526' href='#n2526'>2526</a>
<a id='n2527' href='#n2527'>2527</a>
<a id='n2528' href='#n2528'>2528</a>
<a id='n2529' href='#n2529'>2529</a>
<a id='n2530' href='#n2530'>2530</a>
<a id='n2531' href='#n2531'>2531</a>
<a id='n2532' href='#n2532'>2532</a>
<a id='n2533' href='#n2533'>2533</a>
<a id='n2534' href='#n2534'>2534</a>
<a id='n2535' href='#n2535'>2535</a>
<a id='n2536' href='#n2536'>2536</a>
<a id='n2537' href='#n2537'>2537</a>
<a id='n2538' href='#n2538'>2538</a>
<a id='n2539' href='#n2539'>2539</a>
<a id='n2540' href='#n2540'>2540</a>
<a id='n2541' href='#n2541'>2541</a>
<a id='n2542' href='#n2542'>2542</a>
<a id='n2543' href='#n2543'>2543</a>
<a id='n2544' href='#n2544'>2544</a>
<a id='n2545' href='#n2545'>2545</a>
<a id='n2546' href='#n2546'>2546</a>
<a id='n2547' href='#n2547'>2547</a>
<a id='n2548' href='#n2548'>2548</a>
<a id='n2549' href='#n2549'>2549</a>
<a id='n2550' href='#n2550'>2550</a>
<a id='n2551' href='#n2551'>2551</a>
<a id='n2552' href='#n2552'>2552</a>
<a id='n2553' href='#n2553'>2553</a>
<a id='n2554' href='#n2554'>2554</a>
<a id='n2555' href='#n2555'>2555</a>
<a id='n2556' href='#n2556'>2556</a>
<a id='n2557' href='#n2557'>2557</a>
<a id='n2558' href='#n2558'>2558</a>
<a id='n2559' href='#n2559'>2559</a>
<a id='n2560' href='#n2560'>2560</a>
<a id='n2561' href='#n2561'>2561</a>
<a id='n2562' href='#n2562'>2562</a>
<a id='n2563' href='#n2563'>2563</a>
<a id='n2564' href='#n2564'>2564</a>
<a id='n2565' href='#n2565'>2565</a>
<a id='n2566' href='#n2566'>2566</a>
<a id='n2567' href='#n2567'>2567</a>
<a id='n2568' href='#n2568'>2568</a>
<a id='n2569' href='#n2569'>2569</a>
<a id='n2570' href='#n2570'>2570</a>
<a id='n2571' href='#n2571'>2571</a>
<a id='n2572' href='#n2572'>2572</a>
<a id='n2573' href='#n2573'>2573</a>
<a id='n2574' href='#n2574'>2574</a>
<a id='n2575' href='#n2575'>2575</a>
<a id='n2576' href='#n2576'>2576</a>
<a id='n2577' href='#n2577'>2577</a>
<a id='n2578' href='#n2578'>2578</a>
<a id='n2579' href='#n2579'>2579</a>
<a id='n2580' href='#n2580'>2580</a>
<a id='n2581' href='#n2581'>2581</a>
<a id='n2582' href='#n2582'>2582</a>
<a id='n2583' href='#n2583'>2583</a>
<a id='n2584' href='#n2584'>2584</a>
<a id='n2585' href='#n2585'>2585</a>
<a id='n2586' href='#n2586'>2586</a>
<a id='n2587' href='#n2587'>2587</a>
<a id='n2588' href='#n2588'>2588</a>
<a id='n2589' href='#n2589'>2589</a>
<a id='n2590' href='#n2590'>2590</a>
<a id='n2591' href='#n2591'>2591</a>
<a id='n2592' href='#n2592'>2592</a>
<a id='n2593' href='#n2593'>2593</a>
<a id='n2594' href='#n2594'>2594</a>
<a id='n2595' href='#n2595'>2595</a>
<a id='n2596' href='#n2596'>2596</a>
<a id='n2597' href='#n2597'>2597</a>
<a id='n2598' href='#n2598'>2598</a>
<a id='n2599' href='#n2599'>2599</a>
<a id='n2600' href='#n2600'>2600</a>
<a id='n2601' href='#n2601'>2601</a>
<a id='n2602' href='#n2602'>2602</a>
<a id='n2603' href='#n2603'>2603</a>
<a id='n2604' href='#n2604'>2604</a>
<a id='n2605' href='#n2605'>2605</a>
<a id='n2606' href='#n2606'>2606</a>
<a id='n2607' href='#n2607'>2607</a>
<a id='n2608' href='#n2608'>2608</a>
<a id='n2609' href='#n2609'>2609</a>
<a id='n2610' href='#n2610'>2610</a>
<a id='n2611' href='#n2611'>2611</a>
<a id='n2612' href='#n2612'>2612</a>
<a id='n2613' href='#n2613'>2613</a>
<a id='n2614' href='#n2614'>2614</a>
<a id='n2615' href='#n2615'>2615</a>
<a id='n2616' href='#n2616'>2616</a>
<a id='n2617' href='#n2617'>2617</a>
<a id='n2618' href='#n2618'>2618</a>
<a id='n2619' href='#n2619'>2619</a>
<a id='n2620' href='#n2620'>2620</a>
<a id='n2621' href='#n2621'>2621</a>
<a id='n2622' href='#n2622'>2622</a>
<a id='n2623' href='#n2623'>2623</a>
<a id='n2624' href='#n2624'>2624</a>
<a id='n2625' href='#n2625'>2625</a>
<a id='n2626' href='#n2626'>2626</a>
<a id='n2627' href='#n2627'>2627</a>
<a id='n2628' href='#n2628'>2628</a>
<a id='n2629' href='#n2629'>2629</a>
<a id='n2630' href='#n2630'>2630</a>
<a id='n2631' href='#n2631'>2631</a>
<a id='n2632' href='#n2632'>2632</a>
<a id='n2633' href='#n2633'>2633</a>
<a id='n2634' href='#n2634'>2634</a>
<a id='n2635' href='#n2635'>2635</a>
<a id='n2636' href='#n2636'>2636</a>
<a id='n2637' href='#n2637'>2637</a>
<a id='n2638' href='#n2638'>2638</a>
<a id='n2639' href='#n2639'>2639</a>
<a id='n2640' href='#n2640'>2640</a>
<a id='n2641' href='#n2641'>2641</a>
<a id='n2642' href='#n2642'>2642</a>
<a id='n2643' href='#n2643'>2643</a>
<a id='n2644' href='#n2644'>2644</a>
<a id='n2645' href='#n2645'>2645</a>
<a id='n2646' href='#n2646'>2646</a>
<a id='n2647' href='#n2647'>2647</a>
<a id='n2648' href='#n2648'>2648</a>
<a id='n2649' href='#n2649'>2649</a>
<a id='n2650' href='#n2650'>2650</a>
<a id='n2651' href='#n2651'>2651</a>
<a id='n2652' href='#n2652'>2652</a>
<a id='n2653' href='#n2653'>2653</a>
<a id='n2654' href='#n2654'>2654</a>
<a id='n2655' href='#n2655'>2655</a>
<a id='n2656' href='#n2656'>2656</a>
<a id='n2657' href='#n2657'>2657</a>
<a id='n2658' href='#n2658'>2658</a>
<a id='n2659' href='#n2659'>2659</a>
<a id='n2660' href='#n2660'>2660</a>
<a id='n2661' href='#n2661'>2661</a>
<a id='n2662' href='#n2662'>2662</a>
<a id='n2663' href='#n2663'>2663</a>
<a id='n2664' href='#n2664'>2664</a>
<a id='n2665' href='#n2665'>2665</a>
<a id='n2666' href='#n2666'>2666</a>
<a id='n2667' href='#n2667'>2667</a>
<a id='n2668' href='#n2668'>2668</a>
<a id='n2669' href='#n2669'>2669</a>
<a id='n2670' href='#n2670'>2670</a>
<a id='n2671' href='#n2671'>2671</a>
<a id='n2672' href='#n2672'>2672</a>
<a id='n2673' href='#n2673'>2673</a>
<a id='n2674' href='#n2674'>2674</a>
<a id='n2675' href='#n2675'>2675</a>
<a id='n2676' href='#n2676'>2676</a>
<a id='n2677' href='#n2677'>2677</a>
<a id='n2678' href='#n2678'>2678</a>
<a id='n2679' href='#n2679'>2679</a>
<a id='n2680' href='#n2680'>2680</a>
<a id='n2681' href='#n2681'>2681</a>
<a id='n2682' href='#n2682'>2682</a>
<a id='n2683' href='#n2683'>2683</a>
<a id='n2684' href='#n2684'>2684</a>
<a id='n2685' href='#n2685'>2685</a>
<a id='n2686' href='#n2686'>2686</a>
<a id='n2687' href='#n2687'>2687</a>
<a id='n2688' href='#n2688'>2688</a>
<a id='n2689' href='#n2689'>2689</a>
<a id='n2690' href='#n2690'>2690</a>
<a id='n2691' href='#n2691'>2691</a>
<a id='n2692' href='#n2692'>2692</a>
<a id='n2693' href='#n2693'>2693</a>
<a id='n2694' href='#n2694'>2694</a>
<a id='n2695' href='#n2695'>2695</a>
<a id='n2696' href='#n2696'>2696</a>
<a id='n2697' href='#n2697'>2697</a>
<a id='n2698' href='#n2698'>2698</a>
<a id='n2699' href='#n2699'>2699</a>
<a id='n2700' href='#n2700'>2700</a>
<a id='n2701' href='#n2701'>2701</a>
<a id='n2702' href='#n2702'>2702</a>
<a id='n2703' href='#n2703'>2703</a>
<a id='n2704' href='#n2704'>2704</a>
<a id='n2705' href='#n2705'>2705</a>
<a id='n2706' href='#n2706'>2706</a>
<a id='n2707' href='#n2707'>2707</a>
<a id='n2708' href='#n2708'>2708</a>
<a id='n2709' href='#n2709'>2709</a>
<a id='n2710' href='#n2710'>2710</a>
<a id='n2711' href='#n2711'>2711</a>
<a id='n2712' href='#n2712'>2712</a>
<a id='n2713' href='#n2713'>2713</a>
<a id='n2714' href='#n2714'>2714</a>
<a id='n2715' href='#n2715'>2715</a>
<a id='n2716' href='#n2716'>2716</a>
<a id='n2717' href='#n2717'>2717</a>
<a id='n2718' href='#n2718'>2718</a>
<a id='n2719' href='#n2719'>2719</a>
<a id='n2720' href='#n2720'>2720</a>
<a id='n2721' href='#n2721'>2721</a>
<a id='n2722' href='#n2722'>2722</a>
<a id='n2723' href='#n2723'>2723</a>
<a id='n2724' href='#n2724'>2724</a>
<a id='n2725' href='#n2725'>2725</a>
<a id='n2726' href='#n2726'>2726</a>
<a id='n2727' href='#n2727'>2727</a>
<a id='n2728' href='#n2728'>2728</a>
<a id='n2729' href='#n2729'>2729</a>
<a id='n2730' href='#n2730'>2730</a>
<a id='n2731' href='#n2731'>2731</a>
<a id='n2732' href='#n2732'>2732</a>
<a id='n2733' href='#n2733'>2733</a>
<a id='n2734' href='#n2734'>2734</a>
<a id='n2735' href='#n2735'>2735</a>
<a id='n2736' href='#n2736'>2736</a>
<a id='n2737' href='#n2737'>2737</a>
<a id='n2738' href='#n2738'>2738</a>
<a id='n2739' href='#n2739'>2739</a>
<a id='n2740' href='#n2740'>2740</a>
<a id='n2741' href='#n2741'>2741</a>
<a id='n2742' href='#n2742'>2742</a>
<a id='n2743' href='#n2743'>2743</a>
<a id='n2744' href='#n2744'>2744</a>
<a id='n2745' href='#n2745'>2745</a>
<a id='n2746' href='#n2746'>2746</a>
<a id='n2747' href='#n2747'>2747</a>
<a id='n2748' href='#n2748'>2748</a>
<a id='n2749' href='#n2749'>2749</a>
<a id='n2750' href='#n2750'>2750</a>
<a id='n2751' href='#n2751'>2751</a>
<a id='n2752' href='#n2752'>2752</a>
<a id='n2753' href='#n2753'>2753</a>
<a id='n2754' href='#n2754'>2754</a>
<a id='n2755' href='#n2755'>2755</a>
<a id='n2756' href='#n2756'>2756</a>
<a id='n2757' href='#n2757'>2757</a>
<a id='n2758' href='#n2758'>2758</a>
<a id='n2759' href='#n2759'>2759</a>
<a id='n2760' href='#n2760'>2760</a>
<a id='n2761' href='#n2761'>2761</a>
<a id='n2762' href='#n2762'>2762</a>
<a id='n2763' href='#n2763'>2763</a>
<a id='n2764' href='#n2764'>2764</a>
<a id='n2765' href='#n2765'>2765</a>
<a id='n2766' href='#n2766'>2766</a>
<a id='n2767' href='#n2767'>2767</a>
<a id='n2768' href='#n2768'>2768</a>
<a id='n2769' href='#n2769'>2769</a>
<a id='n2770' href='#n2770'>2770</a>
<a id='n2771' href='#n2771'>2771</a>
<a id='n2772' href='#n2772'>2772</a>
<a id='n2773' href='#n2773'>2773</a>
<a id='n2774' href='#n2774'>2774</a>
<a id='n2775' href='#n2775'>2775</a>
<a id='n2776' href='#n2776'>2776</a>
<a id='n2777' href='#n2777'>2777</a>
<a id='n2778' href='#n2778'>2778</a>
<a id='n2779' href='#n2779'>2779</a>
<a id='n2780' href='#n2780'>2780</a>
<a id='n2781' href='#n2781'>2781</a>
<a id='n2782' href='#n2782'>2782</a>
<a id='n2783' href='#n2783'>2783</a>
<a id='n2784' href='#n2784'>2784</a>
<a id='n2785' href='#n2785'>2785</a>
<a id='n2786' href='#n2786'>2786</a>
<a id='n2787' href='#n2787'>2787</a>
<a id='n2788' href='#n2788'>2788</a>
<a id='n2789' href='#n2789'>2789</a>
<a id='n2790' href='#n2790'>2790</a>
<a id='n2791' href='#n2791'>2791</a>
<a id='n2792' href='#n2792'>2792</a>
<a id='n2793' href='#n2793'>2793</a>
<a id='n2794' href='#n2794'>2794</a>
<a id='n2795' href='#n2795'>2795</a>
<a id='n2796' href='#n2796'>2796</a>
<a id='n2797' href='#n2797'>2797</a>
<a id='n2798' href='#n2798'>2798</a>
<a id='n2799' href='#n2799'>2799</a>
<a id='n2800' href='#n2800'>2800</a>
<a id='n2801' href='#n2801'>2801</a>
<a id='n2802' href='#n2802'>2802</a>
<a id='n2803' href='#n2803'>2803</a>
<a id='n2804' href='#n2804'>2804</a>
<a id='n2805' href='#n2805'>2805</a>
<a id='n2806' href='#n2806'>2806</a>
<a id='n2807' href='#n2807'>2807</a>
<a id='n2808' href='#n2808'>2808</a>
<a id='n2809' href='#n2809'>2809</a>
<a id='n2810' href='#n2810'>2810</a>
<a id='n2811' href='#n2811'>2811</a>
<a id='n2812' href='#n2812'>2812</a>
<a id='n2813' href='#n2813'>2813</a>
<a id='n2814' href='#n2814'>2814</a>
<a id='n2815' href='#n2815'>2815</a>
<a id='n2816' href='#n2816'>2816</a>
<a id='n2817' href='#n2817'>2817</a>
<a id='n2818' href='#n2818'>2818</a>
<a id='n2819' href='#n2819'>2819</a>
<a id='n2820' href='#n2820'>2820</a>
<a id='n2821' href='#n2821'>2821</a>
<a id='n2822' href='#n2822'>2822</a>
<a id='n2823' href='#n2823'>2823</a>
<a id='n2824' href='#n2824'>2824</a>
<a id='n2825' href='#n2825'>2825</a>
<a id='n2826' href='#n2826'>2826</a>
<a id='n2827' href='#n2827'>2827</a>
<a id='n2828' href='#n2828'>2828</a>
<a id='n2829' href='#n2829'>2829</a>
<a id='n2830' href='#n2830'>2830</a>
<a id='n2831' href='#n2831'>2831</a>
<a id='n2832' href='#n2832'>2832</a>
<a id='n2833' href='#n2833'>2833</a>
<a id='n2834' href='#n2834'>2834</a>
<a id='n2835' href='#n2835'>2835</a>
<a id='n2836' href='#n2836'>2836</a>
<a id='n2837' href='#n2837'>2837</a>
<a id='n2838' href='#n2838'>2838</a>
<a id='n2839' href='#n2839'>2839</a>
<a id='n2840' href='#n2840'>2840</a>
<a id='n2841' href='#n2841'>2841</a>
<a id='n2842' href='#n2842'>2842</a>
<a id='n2843' href='#n2843'>2843</a>
<a id='n2844' href='#n2844'>2844</a>
<a id='n2845' href='#n2845'>2845</a>
<a id='n2846' href='#n2846'>2846</a>
<a id='n2847' href='#n2847'>2847</a>
<a id='n2848' href='#n2848'>2848</a>
<a id='n2849' href='#n2849'>2849</a>
<a id='n2850' href='#n2850'>2850</a>
<a id='n2851' href='#n2851'>2851</a>
<a id='n2852' href='#n2852'>2852</a>
<a id='n2853' href='#n2853'>2853</a>
<a id='n2854' href='#n2854'>2854</a>
<a id='n2855' href='#n2855'>2855</a>
<a id='n2856' href='#n2856'>2856</a>
<a id='n2857' href='#n2857'>2857</a>
<a id='n2858' href='#n2858'>2858</a>
<a id='n2859' href='#n2859'>2859</a>
<a id='n2860' href='#n2860'>2860</a>
<a id='n2861' href='#n2861'>2861</a>
<a id='n2862' href='#n2862'>2862</a>
<a id='n2863' href='#n2863'>2863</a>
<a id='n2864' href='#n2864'>2864</a>
<a id='n2865' href='#n2865'>2865</a>
<a id='n2866' href='#n2866'>2866</a>
<a id='n2867' href='#n2867'>2867</a>
<a id='n2868' href='#n2868'>2868</a>
<a id='n2869' href='#n2869'>2869</a>
<a id='n2870' href='#n2870'>2870</a>
<a id='n2871' href='#n2871'>2871</a>
<a id='n2872' href='#n2872'>2872</a>
<a id='n2873' href='#n2873'>2873</a>
<a id='n2874' href='#n2874'>2874</a>
<a id='n2875' href='#n2875'>2875</a>
<a id='n2876' href='#n2876'>2876</a>
<a id='n2877' href='#n2877'>2877</a>
<a id='n2878' href='#n2878'>2878</a>
<a id='n2879' href='#n2879'>2879</a>
<a id='n2880' href='#n2880'>2880</a>
<a id='n2881' href='#n2881'>2881</a>
<a id='n2882' href='#n2882'>2882</a>
<a id='n2883' href='#n2883'>2883</a>
<a id='n2884' href='#n2884'>2884</a>
<a id='n2885' href='#n2885'>2885</a>
<a id='n2886' href='#n2886'>2886</a>
<a id='n2887' href='#n2887'>2887</a>
<a id='n2888' href='#n2888'>2888</a>
<a id='n2889' href='#n2889'>2889</a>
<a id='n2890' href='#n2890'>2890</a>
<a id='n2891' href='#n2891'>2891</a>
<a id='n2892' href='#n2892'>2892</a>
<a id='n2893' href='#n2893'>2893</a>
<a id='n2894' href='#n2894'>2894</a>
<a id='n2895' href='#n2895'>2895</a>
<a id='n2896' href='#n2896'>2896</a>
<a id='n2897' href='#n2897'>2897</a>
<a id='n2898' href='#n2898'>2898</a>
<a id='n2899' href='#n2899'>2899</a>
<a id='n2900' href='#n2900'>2900</a>
<a id='n2901' href='#n2901'>2901</a>
<a id='n2902' href='#n2902'>2902</a>
<a id='n2903' href='#n2903'>2903</a>
<a id='n2904' href='#n2904'>2904</a>
<a id='n2905' href='#n2905'>2905</a>
<a id='n2906' href='#n2906'>2906</a>
<a id='n2907' href='#n2907'>2907</a>
<a id='n2908' href='#n2908'>2908</a>
<a id='n2909' href='#n2909'>2909</a>
<a id='n2910' href='#n2910'>2910</a>
<a id='n2911' href='#n2911'>2911</a>
<a id='n2912' href='#n2912'>2912</a>
<a id='n2913' href='#n2913'>2913</a>
<a id='n2914' href='#n2914'>2914</a>
<a id='n2915' href='#n2915'>2915</a>
<a id='n2916' href='#n2916'>2916</a>
<a id='n2917' href='#n2917'>2917</a>
<a id='n2918' href='#n2918'>2918</a>
<a id='n2919' href='#n2919'>2919</a>
<a id='n2920' href='#n2920'>2920</a>
<a id='n2921' href='#n2921'>2921</a>
<a id='n2922' href='#n2922'>2922</a>
<a id='n2923' href='#n2923'>2923</a>
<a id='n2924' href='#n2924'>2924</a>
<a id='n2925' href='#n2925'>2925</a>
<a id='n2926' href='#n2926'>2926</a>
<a id='n2927' href='#n2927'>2927</a>
<a id='n2928' href='#n2928'>2928</a>
<a id='n2929' href='#n2929'>2929</a>
<a id='n2930' href='#n2930'>2930</a>
<a id='n2931' href='#n2931'>2931</a>
<a id='n2932' href='#n2932'>2932</a>
<a id='n2933' href='#n2933'>2933</a>
<a id='n2934' href='#n2934'>2934</a>
<a id='n2935' href='#n2935'>2935</a>
<a id='n2936' href='#n2936'>2936</a>
<a id='n2937' href='#n2937'>2937</a>
<a id='n2938' href='#n2938'>2938</a>
<a id='n2939' href='#n2939'>2939</a>
<a id='n2940' href='#n2940'>2940</a>
<a id='n2941' href='#n2941'>2941</a>
<a id='n2942' href='#n2942'>2942</a>
<a id='n2943' href='#n2943'>2943</a>
<a id='n2944' href='#n2944'>2944</a>
<a id='n2945' href='#n2945'>2945</a>
<a id='n2946' href='#n2946'>2946</a>
<a id='n2947' href='#n2947'>2947</a>
<a id='n2948' href='#n2948'>2948</a>
<a id='n2949' href='#n2949'>2949</a>
<a id='n2950' href='#n2950'>2950</a>
<a id='n2951' href='#n2951'>2951</a>
<a id='n2952' href='#n2952'>2952</a>
<a id='n2953' href='#n2953'>2953</a>
<a id='n2954' href='#n2954'>2954</a>
<a id='n2955' href='#n2955'>2955</a>
<a id='n2956' href='#n2956'>2956</a>
<a id='n2957' href='#n2957'>2957</a>
<a id='n2958' href='#n2958'>2958</a>
<a id='n2959' href='#n2959'>2959</a>
<a id='n2960' href='#n2960'>2960</a>
<a id='n2961' href='#n2961'>2961</a>
<a id='n2962' href='#n2962'>2962</a>
<a id='n2963' href='#n2963'>2963</a>
<a id='n2964' href='#n2964'>2964</a>
<a id='n2965' href='#n2965'>2965</a>
<a id='n2966' href='#n2966'>2966</a>
<a id='n2967' href='#n2967'>2967</a>
<a id='n2968' href='#n2968'>2968</a>
<a id='n2969' href='#n2969'>2969</a>
<a id='n2970' href='#n2970'>2970</a>
<a id='n2971' href='#n2971'>2971</a>
<a id='n2972' href='#n2972'>2972</a>
<a id='n2973' href='#n2973'>2973</a>
<a id='n2974' href='#n2974'>2974</a>
<a id='n2975' href='#n2975'>2975</a>
<a id='n2976' href='#n2976'>2976</a>
<a id='n2977' href='#n2977'>2977</a>
<a id='n2978' href='#n2978'>2978</a>
<a id='n2979' href='#n2979'>2979</a>
<a id='n2980' href='#n2980'>2980</a>
<a id='n2981' href='#n2981'>2981</a>
<a id='n2982' href='#n2982'>2982</a>
<a id='n2983' href='#n2983'>2983</a>
<a id='n2984' href='#n2984'>2984</a>
<a id='n2985' href='#n2985'>2985</a>
<a id='n2986' href='#n2986'>2986</a>
<a id='n2987' href='#n2987'>2987</a>
<a id='n2988' href='#n2988'>2988</a>
<a id='n2989' href='#n2989'>2989</a>
<a id='n2990' href='#n2990'>2990</a>
<a id='n2991' href='#n2991'>2991</a>
<a id='n2992' href='#n2992'>2992</a>
<a id='n2993' href='#n2993'>2993</a>
<a id='n2994' href='#n2994'>2994</a>
<a id='n2995' href='#n2995'>2995</a>
<a id='n2996' href='#n2996'>2996</a>
<a id='n2997' href='#n2997'>2997</a>
<a id='n2998' href='#n2998'>2998</a>
<a id='n2999' href='#n2999'>2999</a>
<a id='n3000' href='#n3000'>3000</a>
<a id='n3001' href='#n3001'>3001</a>
<a id='n3002' href='#n3002'>3002</a>
<a id='n3003' href='#n3003'>3003</a>
<a id='n3004' href='#n3004'>3004</a>
<a id='n3005' href='#n3005'>3005</a>
<a id='n3006' href='#n3006'>3006</a>
<a id='n3007' href='#n3007'>3007</a>
<a id='n3008' href='#n3008'>3008</a>
<a id='n3009' href='#n3009'>3009</a>
<a id='n3010' href='#n3010'>3010</a>
<a id='n3011' href='#n3011'>3011</a>
<a id='n3012' href='#n3012'>3012</a>
<a id='n3013' href='#n3013'>3013</a>
<a id='n3014' href='#n3014'>3014</a>
<a id='n3015' href='#n3015'>3015</a>
<a id='n3016' href='#n3016'>3016</a>
<a id='n3017' href='#n3017'>3017</a>
<a id='n3018' href='#n3018'>3018</a>
<a id='n3019' href='#n3019'>3019</a>
<a id='n3020' href='#n3020'>3020</a>
<a id='n3021' href='#n3021'>3021</a>
<a id='n3022' href='#n3022'>3022</a>
<a id='n3023' href='#n3023'>3023</a>
<a id='n3024' href='#n3024'>3024</a>
<a id='n3025' href='#n3025'>3025</a>
<a id='n3026' href='#n3026'>3026</a>
<a id='n3027' href='#n3027'>3027</a>
<a id='n3028' href='#n3028'>3028</a>
<a id='n3029' href='#n3029'>3029</a>
<a id='n3030' href='#n3030'>3030</a>
<a id='n3031' href='#n3031'>3031</a>
<a id='n3032' href='#n3032'>3032</a>
<a id='n3033' href='#n3033'>3033</a>
<a id='n3034' href='#n3034'>3034</a>
<a id='n3035' href='#n3035'>3035</a>
<a id='n3036' href='#n3036'>3036</a>
<a id='n3037' href='#n3037'>3037</a>
<a id='n3038' href='#n3038'>3038</a>
<a id='n3039' href='#n3039'>3039</a>
<a id='n3040' href='#n3040'>3040</a>
<a id='n3041' href='#n3041'>3041</a>
<a id='n3042' href='#n3042'>3042</a>
<a id='n3043' href='#n3043'>3043</a>
<a id='n3044' href='#n3044'>3044</a>
<a id='n3045' href='#n3045'>3045</a>
<a id='n3046' href='#n3046'>3046</a>
<a id='n3047' href='#n3047'>3047</a>
<a id='n3048' href='#n3048'>3048</a>
<a id='n3049' href='#n3049'>3049</a>
<a id='n3050' href='#n3050'>3050</a>
<a id='n3051' href='#n3051'>3051</a>
<a id='n3052' href='#n3052'>3052</a>
<a id='n3053' href='#n3053'>3053</a>
<a id='n3054' href='#n3054'>3054</a>
<a id='n3055' href='#n3055'>3055</a>
<a id='n3056' href='#n3056'>3056</a>
<a id='n3057' href='#n3057'>3057</a>
<a id='n3058' href='#n3058'>3058</a>
<a id='n3059' href='#n3059'>3059</a>
<a id='n3060' href='#n3060'>3060</a>
<a id='n3061' href='#n3061'>3061</a>
<a id='n3062' href='#n3062'>3062</a>
<a id='n3063' href='#n3063'>3063</a>
<a id='n3064' href='#n3064'>3064</a>
<a id='n3065' href='#n3065'>3065</a>
<a id='n3066' href='#n3066'>3066</a>
<a id='n3067' href='#n3067'>3067</a>
<a id='n3068' href='#n3068'>3068</a>
<a id='n3069' href='#n3069'>3069</a>
<a id='n3070' href='#n3070'>3070</a>
<a id='n3071' href='#n3071'>3071</a>
<a id='n3072' href='#n3072'>3072</a>
<a id='n3073' href='#n3073'>3073</a>
<a id='n3074' href='#n3074'>3074</a>
<a id='n3075' href='#n3075'>3075</a>
<a id='n3076' href='#n3076'>3076</a>
<a id='n3077' href='#n3077'>3077</a>
<a id='n3078' href='#n3078'>3078</a>
<a id='n3079' href='#n3079'>3079</a>
<a id='n3080' href='#n3080'>3080</a>
<a id='n3081' href='#n3081'>3081</a>
<a id='n3082' href='#n3082'>3082</a>
<a id='n3083' href='#n3083'>3083</a>
<a id='n3084' href='#n3084'>3084</a>
<a id='n3085' href='#n3085'>3085</a>
<a id='n3086' href='#n3086'>3086</a>
<a id='n3087' href='#n3087'>3087</a>
<a id='n3088' href='#n3088'>3088</a>
<a id='n3089' href='#n3089'>3089</a>
<a id='n3090' href='#n3090'>3090</a>
<a id='n3091' href='#n3091'>3091</a>
<a id='n3092' href='#n3092'>3092</a>
<a id='n3093' href='#n3093'>3093</a>
<a id='n3094' href='#n3094'>3094</a>
<a id='n3095' href='#n3095'>3095</a>
<a id='n3096' href='#n3096'>3096</a>
<a id='n3097' href='#n3097'>3097</a>
<a id='n3098' href='#n3098'>3098</a>
<a id='n3099' href='#n3099'>3099</a>
<a id='n3100' href='#n3100'>3100</a>
<a id='n3101' href='#n3101'>3101</a>
<a id='n3102' href='#n3102'>3102</a>
<a id='n3103' href='#n3103'>3103</a>
<a id='n3104' href='#n3104'>3104</a>
<a id='n3105' href='#n3105'>3105</a>
<a id='n3106' href='#n3106'>3106</a>
<a id='n3107' href='#n3107'>3107</a>
<a id='n3108' href='#n3108'>3108</a>
<a id='n3109' href='#n3109'>3109</a>
<a id='n3110' href='#n3110'>3110</a>
<a id='n3111' href='#n3111'>3111</a>
<a id='n3112' href='#n3112'>3112</a>
<a id='n3113' href='#n3113'>3113</a>
<a id='n3114' href='#n3114'>3114</a>
<a id='n3115' href='#n3115'>3115</a>
<a id='n3116' href='#n3116'>3116</a>
<a id='n3117' href='#n3117'>3117</a>
<a id='n3118' href='#n3118'>3118</a>
<a id='n3119' href='#n3119'>3119</a>
<a id='n3120' href='#n3120'>3120</a>
<a id='n3121' href='#n3121'>3121</a>
<a id='n3122' href='#n3122'>3122</a>
<a id='n3123' href='#n3123'>3123</a>
<a id='n3124' href='#n3124'>3124</a>
<a id='n3125' href='#n3125'>3125</a>
<a id='n3126' href='#n3126'>3126</a>
<a id='n3127' href='#n3127'>3127</a>
<a id='n3128' href='#n3128'>3128</a>
<a id='n3129' href='#n3129'>3129</a>
<a id='n3130' href='#n3130'>3130</a>
<a id='n3131' href='#n3131'>3131</a>
<a id='n3132' href='#n3132'>3132</a>
<a id='n3133' href='#n3133'>3133</a>
<a id='n3134' href='#n3134'>3134</a>
<a id='n3135' href='#n3135'>3135</a>
<a id='n3136' href='#n3136'>3136</a>
<a id='n3137' href='#n3137'>3137</a>
<a id='n3138' href='#n3138'>3138</a>
<a id='n3139' href='#n3139'>3139</a>
<a id='n3140' href='#n3140'>3140</a>
<a id='n3141' href='#n3141'>3141</a>
<a id='n3142' href='#n3142'>3142</a>
<a id='n3143' href='#n3143'>3143</a>
<a id='n3144' href='#n3144'>3144</a>
<a id='n3145' href='#n3145'>3145</a>
<a id='n3146' href='#n3146'>3146</a>
<a id='n3147' href='#n3147'>3147</a>
<a id='n3148' href='#n3148'>3148</a>
<a id='n3149' href='#n3149'>3149</a>
<a id='n3150' href='#n3150'>3150</a>
<a id='n3151' href='#n3151'>3151</a>
<a id='n3152' href='#n3152'>3152</a>
<a id='n3153' href='#n3153'>3153</a>
<a id='n3154' href='#n3154'>3154</a>
<a id='n3155' href='#n3155'>3155</a>
<a id='n3156' href='#n3156'>3156</a>
<a id='n3157' href='#n3157'>3157</a>
<a id='n3158' href='#n3158'>3158</a>
<a id='n3159' href='#n3159'>3159</a>
<a id='n3160' href='#n3160'>3160</a>
<a id='n3161' href='#n3161'>3161</a>
<a id='n3162' href='#n3162'>3162</a>
<a id='n3163' href='#n3163'>3163</a>
<a id='n3164' href='#n3164'>3164</a>
<a id='n3165' href='#n3165'>3165</a>
<a id='n3166' href='#n3166'>3166</a>
<a id='n3167' href='#n3167'>3167</a>
<a id='n3168' href='#n3168'>3168</a>
<a id='n3169' href='#n3169'>3169</a>
<a id='n3170' href='#n3170'>3170</a>
<a id='n3171' href='#n3171'>3171</a>
<a id='n3172' href='#n3172'>3172</a>
<a id='n3173' href='#n3173'>3173</a>
<a id='n3174' href='#n3174'>3174</a>
<a id='n3175' href='#n3175'>3175</a>
<a id='n3176' href='#n3176'>3176</a>
<a id='n3177' href='#n3177'>3177</a>
<a id='n3178' href='#n3178'>3178</a>
<a id='n3179' href='#n3179'>3179</a>
<a id='n3180' href='#n3180'>3180</a>
<a id='n3181' href='#n3181'>3181</a>
<a id='n3182' href='#n3182'>3182</a>
<a id='n3183' href='#n3183'>3183</a>
<a id='n3184' href='#n3184'>3184</a>
<a id='n3185' href='#n3185'>3185</a>
<a id='n3186' href='#n3186'>3186</a>
<a id='n3187' href='#n3187'>3187</a>
<a id='n3188' href='#n3188'>3188</a>
<a id='n3189' href='#n3189'>3189</a>
<a id='n3190' href='#n3190'>3190</a>
<a id='n3191' href='#n3191'>3191</a>
<a id='n3192' href='#n3192'>3192</a>
<a id='n3193' href='#n3193'>3193</a>
<a id='n3194' href='#n3194'>3194</a>
<a id='n3195' href='#n3195'>3195</a>
<a id='n3196' href='#n3196'>3196</a>
<a id='n3197' href='#n3197'>3197</a>
<a id='n3198' href='#n3198'>3198</a>
<a id='n3199' href='#n3199'>3199</a>
<a id='n3200' href='#n3200'>3200</a>
<a id='n3201' href='#n3201'>3201</a>
<a id='n3202' href='#n3202'>3202</a>
<a id='n3203' href='#n3203'>3203</a>
<a id='n3204' href='#n3204'>3204</a>
<a id='n3205' href='#n3205'>3205</a>
<a id='n3206' href='#n3206'>3206</a>
<a id='n3207' href='#n3207'>3207</a>
<a id='n3208' href='#n3208'>3208</a>
<a id='n3209' href='#n3209'>3209</a>
<a id='n3210' href='#n3210'>3210</a>
<a id='n3211' href='#n3211'>3211</a>
<a id='n3212' href='#n3212'>3212</a>
<a id='n3213' href='#n3213'>3213</a>
<a id='n3214' href='#n3214'>3214</a>
<a id='n3215' href='#n3215'>3215</a>
<a id='n3216' href='#n3216'>3216</a>
<a id='n3217' href='#n3217'>3217</a>
<a id='n3218' href='#n3218'>3218</a>
<a id='n3219' href='#n3219'>3219</a>
<a id='n3220' href='#n3220'>3220</a>
<a id='n3221' href='#n3221'>3221</a>
<a id='n3222' href='#n3222'>3222</a>
<a id='n3223' href='#n3223'>3223</a>
<a id='n3224' href='#n3224'>3224</a>
<a id='n3225' href='#n3225'>3225</a>
<a id='n3226' href='#n3226'>3226</a>
<a id='n3227' href='#n3227'>3227</a>
<a id='n3228' href='#n3228'>3228</a>
<a id='n3229' href='#n3229'>3229</a>
<a id='n3230' href='#n3230'>3230</a>
<a id='n3231' href='#n3231'>3231</a>
<a id='n3232' href='#n3232'>3232</a>
<a id='n3233' href='#n3233'>3233</a>
<a id='n3234' href='#n3234'>3234</a>
<a id='n3235' href='#n3235'>3235</a>
<a id='n3236' href='#n3236'>3236</a>
<a id='n3237' href='#n3237'>3237</a>
<a id='n3238' href='#n3238'>3238</a>
<a id='n3239' href='#n3239'>3239</a>
<a id='n3240' href='#n3240'>3240</a>
<a id='n3241' href='#n3241'>3241</a>
<a id='n3242' href='#n3242'>3242</a>
<a id='n3243' href='#n3243'>3243</a>
<a id='n3244' href='#n3244'>3244</a>
<a id='n3245' href='#n3245'>3245</a>
<a id='n3246' href='#n3246'>3246</a>
<a id='n3247' href='#n3247'>3247</a>
<a id='n3248' href='#n3248'>3248</a>
<a id='n3249' href='#n3249'>3249</a>
<a id='n3250' href='#n3250'>3250</a>
<a id='n3251' href='#n3251'>3251</a>
<a id='n3252' href='#n3252'>3252</a>
<a id='n3253' href='#n3253'>3253</a>
<a id='n3254' href='#n3254'>3254</a>
<a id='n3255' href='#n3255'>3255</a>
<a id='n3256' href='#n3256'>3256</a>
<a id='n3257' href='#n3257'>3257</a>
<a id='n3258' href='#n3258'>3258</a>
<a id='n3259' href='#n3259'>3259</a>
<a id='n3260' href='#n3260'>3260</a>
<a id='n3261' href='#n3261'>3261</a>
<a id='n3262' href='#n3262'>3262</a>
<a id='n3263' href='#n3263'>3263</a>
<a id='n3264' href='#n3264'>3264</a>
<a id='n3265' href='#n3265'>3265</a>
<a id='n3266' href='#n3266'>3266</a>
<a id='n3267' href='#n3267'>3267</a>
<a id='n3268' href='#n3268'>3268</a>
<a id='n3269' href='#n3269'>3269</a>
<a id='n3270' href='#n3270'>3270</a>
<a id='n3271' href='#n3271'>3271</a>
<a id='n3272' href='#n3272'>3272</a>
<a id='n3273' href='#n3273'>3273</a>
<a id='n3274' href='#n3274'>3274</a>
<a id='n3275' href='#n3275'>3275</a>
<a id='n3276' href='#n3276'>3276</a>
<a id='n3277' href='#n3277'>3277</a>
<a id='n3278' href='#n3278'>3278</a>
<a id='n3279' href='#n3279'>3279</a>
<a id='n3280' href='#n3280'>3280</a>
<a id='n3281' href='#n3281'>3281</a>
<a id='n3282' href='#n3282'>3282</a>
<a id='n3283' href='#n3283'>3283</a>
<a id='n3284' href='#n3284'>3284</a>
<a id='n3285' href='#n3285'>3285</a>
<a id='n3286' href='#n3286'>3286</a>
<a id='n3287' href='#n3287'>3287</a>
<a id='n3288' href='#n3288'>3288</a>
<a id='n3289' href='#n3289'>3289</a>
<a id='n3290' href='#n3290'>3290</a>
<a id='n3291' href='#n3291'>3291</a>
<a id='n3292' href='#n3292'>3292</a>
<a id='n3293' href='#n3293'>3293</a>
<a id='n3294' href='#n3294'>3294</a>
<a id='n3295' href='#n3295'>3295</a>
<a id='n3296' href='#n3296'>3296</a>
<a id='n3297' href='#n3297'>3297</a>
<a id='n3298' href='#n3298'>3298</a>
<a id='n3299' href='#n3299'>3299</a>
<a id='n3300' href='#n3300'>3300</a>
<a id='n3301' href='#n3301'>3301</a>
<a id='n3302' href='#n3302'>3302</a>
<a id='n3303' href='#n3303'>3303</a>
<a id='n3304' href='#n3304'>3304</a>
<a id='n3305' href='#n3305'>3305</a>
<a id='n3306' href='#n3306'>3306</a>
<a id='n3307' href='#n3307'>3307</a>
<a id='n3308' href='#n3308'>3308</a>
<a id='n3309' href='#n3309'>3309</a>
<a id='n3310' href='#n3310'>3310</a>
<a id='n3311' href='#n3311'>3311</a>
<a id='n3312' href='#n3312'>3312</a>
<a id='n3313' href='#n3313'>3313</a>
<a id='n3314' href='#n3314'>3314</a>
<a id='n3315' href='#n3315'>3315</a>
<a id='n3316' href='#n3316'>3316</a>
<a id='n3317' href='#n3317'>3317</a>
<a id='n3318' href='#n3318'>3318</a>
<a id='n3319' href='#n3319'>3319</a>
<a id='n3320' href='#n3320'>3320</a>
<a id='n3321' href='#n3321'>3321</a>
<a id='n3322' href='#n3322'>3322</a>
<a id='n3323' href='#n3323'>3323</a>
<a id='n3324' href='#n3324'>3324</a>
<a id='n3325' href='#n3325'>3325</a>
<a id='n3326' href='#n3326'>3326</a>
<a id='n3327' href='#n3327'>3327</a>
<a id='n3328' href='#n3328'>3328</a>
<a id='n3329' href='#n3329'>3329</a>
<a id='n3330' href='#n3330'>3330</a>
<a id='n3331' href='#n3331'>3331</a>
<a id='n3332' href='#n3332'>3332</a>
<a id='n3333' href='#n3333'>3333</a>
<a id='n3334' href='#n3334'>3334</a>
<a id='n3335' href='#n3335'>3335</a>
<a id='n3336' href='#n3336'>3336</a>
<a id='n3337' href='#n3337'>3337</a>
<a id='n3338' href='#n3338'>3338</a>
<a id='n3339' href='#n3339'>3339</a>
<a id='n3340' href='#n3340'>3340</a>
<a id='n3341' href='#n3341'>3341</a>
<a id='n3342' href='#n3342'>3342</a>
<a id='n3343' href='#n3343'>3343</a>
<a id='n3344' href='#n3344'>3344</a>
<a id='n3345' href='#n3345'>3345</a>
<a id='n3346' href='#n3346'>3346</a>
<a id='n3347' href='#n3347'>3347</a>
<a id='n3348' href='#n3348'>3348</a>
<a id='n3349' href='#n3349'>3349</a>
<a id='n3350' href='#n3350'>3350</a>
<a id='n3351' href='#n3351'>3351</a>
<a id='n3352' href='#n3352'>3352</a>
<a id='n3353' href='#n3353'>3353</a>
<a id='n3354' href='#n3354'>3354</a>
<a id='n3355' href='#n3355'>3355</a>
<a id='n3356' href='#n3356'>3356</a>
<a id='n3357' href='#n3357'>3357</a>
<a id='n3358' href='#n3358'>3358</a>
<a id='n3359' href='#n3359'>3359</a>
<a id='n3360' href='#n3360'>3360</a>
<a id='n3361' href='#n3361'>3361</a>
<a id='n3362' href='#n3362'>3362</a>
<a id='n3363' href='#n3363'>3363</a>
<a id='n3364' href='#n3364'>3364</a>
<a id='n3365' href='#n3365'>3365</a>
<a id='n3366' href='#n3366'>3366</a>
<a id='n3367' href='#n3367'>3367</a>
<a id='n3368' href='#n3368'>3368</a>
<a id='n3369' href='#n3369'>3369</a>
<a id='n3370' href='#n3370'>3370</a>
<a id='n3371' href='#n3371'>3371</a>
<a id='n3372' href='#n3372'>3372</a>
<a id='n3373' href='#n3373'>3373</a>
<a id='n3374' href='#n3374'>3374</a>
<a id='n3375' href='#n3375'>3375</a>
<a id='n3376' href='#n3376'>3376</a>
<a id='n3377' href='#n3377'>3377</a>
<a id='n3378' href='#n3378'>3378</a>
<a id='n3379' href='#n3379'>3379</a>
<a id='n3380' href='#n3380'>3380</a>
<a id='n3381' href='#n3381'>3381</a>
<a id='n3382' href='#n3382'>3382</a>
<a id='n3383' href='#n3383'>3383</a>
<a id='n3384' href='#n3384'>3384</a>
<a id='n3385' href='#n3385'>3385</a>
<a id='n3386' href='#n3386'>3386</a>
<a id='n3387' href='#n3387'>3387</a>
<a id='n3388' href='#n3388'>3388</a>
<a id='n3389' href='#n3389'>3389</a>
<a id='n3390' href='#n3390'>3390</a>
<a id='n3391' href='#n3391'>3391</a>
<a id='n3392' href='#n3392'>3392</a>
<a id='n3393' href='#n3393'>3393</a>
<a id='n3394' href='#n3394'>3394</a>
<a id='n3395' href='#n3395'>3395</a>
<a id='n3396' href='#n3396'>3396</a>
<a id='n3397' href='#n3397'>3397</a>
<a id='n3398' href='#n3398'>3398</a>
<a id='n3399' href='#n3399'>3399</a>
<a id='n3400' href='#n3400'>3400</a>
<a id='n3401' href='#n3401'>3401</a>
<a id='n3402' href='#n3402'>3402</a>
<a id='n3403' href='#n3403'>3403</a>
<a id='n3404' href='#n3404'>3404</a>
<a id='n3405' href='#n3405'>3405</a>
<a id='n3406' href='#n3406'>3406</a>
<a id='n3407' href='#n3407'>3407</a>
<a id='n3408' href='#n3408'>3408</a>
<a id='n3409' href='#n3409'>3409</a>
<a id='n3410' href='#n3410'>3410</a>
<a id='n3411' href='#n3411'>3411</a>
<a id='n3412' href='#n3412'>3412</a>
<a id='n3413' href='#n3413'>3413</a>
<a id='n3414' href='#n3414'>3414</a>
<a id='n3415' href='#n3415'>3415</a>
<a id='n3416' href='#n3416'>3416</a>
<a id='n3417' href='#n3417'>3417</a>
<a id='n3418' href='#n3418'>3418</a>
<a id='n3419' href='#n3419'>3419</a>
<a id='n3420' href='#n3420'>3420</a>
<a id='n3421' href='#n3421'>3421</a>
<a id='n3422' href='#n3422'>3422</a>
<a id='n3423' href='#n3423'>3423</a>
<a id='n3424' href='#n3424'>3424</a>
<a id='n3425' href='#n3425'>3425</a>
<a id='n3426' href='#n3426'>3426</a>
<a id='n3427' href='#n3427'>3427</a>
<a id='n3428' href='#n3428'>3428</a>
<a id='n3429' href='#n3429'>3429</a>
<a id='n3430' href='#n3430'>3430</a>
<a id='n3431' href='#n3431'>3431</a>
<a id='n3432' href='#n3432'>3432</a>
<a id='n3433' href='#n3433'>3433</a>
<a id='n3434' href='#n3434'>3434</a>
<a id='n3435' href='#n3435'>3435</a>
<a id='n3436' href='#n3436'>3436</a>
<a id='n3437' href='#n3437'>3437</a>
<a id='n3438' href='#n3438'>3438</a>
<a id='n3439' href='#n3439'>3439</a>
<a id='n3440' href='#n3440'>3440</a>
<a id='n3441' href='#n3441'>3441</a>
<a id='n3442' href='#n3442'>3442</a>
<a id='n3443' href='#n3443'>3443</a>
<a id='n3444' href='#n3444'>3444</a>
<a id='n3445' href='#n3445'>3445</a>
<a id='n3446' href='#n3446'>3446</a>
<a id='n3447' href='#n3447'>3447</a>
<a id='n3448' href='#n3448'>3448</a>
<a id='n3449' href='#n3449'>3449</a>
<a id='n3450' href='#n3450'>3450</a>
<a id='n3451' href='#n3451'>3451</a>
<a id='n3452' href='#n3452'>3452</a>
<a id='n3453' href='#n3453'>3453</a>
<a id='n3454' href='#n3454'>3454</a>
<a id='n3455' href='#n3455'>3455</a>
<a id='n3456' href='#n3456'>3456</a>
<a id='n3457' href='#n3457'>3457</a>
<a id='n3458' href='#n3458'>3458</a>
<a id='n3459' href='#n3459'>3459</a>
<a id='n3460' href='#n3460'>3460</a>
<a id='n3461' href='#n3461'>3461</a>
<a id='n3462' href='#n3462'>3462</a>
<a id='n3463' href='#n3463'>3463</a>
<a id='n3464' href='#n3464'>3464</a>
<a id='n3465' href='#n3465'>3465</a>
<a id='n3466' href='#n3466'>3466</a>
<a id='n3467' href='#n3467'>3467</a>
<a id='n3468' href='#n3468'>3468</a>
<a id='n3469' href='#n3469'>3469</a>
<a id='n3470' href='#n3470'>3470</a>
<a id='n3471' href='#n3471'>3471</a>
<a id='n3472' href='#n3472'>3472</a>
<a id='n3473' href='#n3473'>3473</a>
<a id='n3474' href='#n3474'>3474</a>
<a id='n3475' href='#n3475'>3475</a>
<a id='n3476' href='#n3476'>3476</a>
<a id='n3477' href='#n3477'>3477</a>
<a id='n3478' href='#n3478'>3478</a>
<a id='n3479' href='#n3479'>3479</a>
<a id='n3480' href='#n3480'>3480</a>
<a id='n3481' href='#n3481'>3481</a>
<a id='n3482' href='#n3482'>3482</a>
<a id='n3483' href='#n3483'>3483</a>
<a id='n3484' href='#n3484'>3484</a>
<a id='n3485' href='#n3485'>3485</a>
<a id='n3486' href='#n3486'>3486</a>
<a id='n3487' href='#n3487'>3487</a>
<a id='n3488' href='#n3488'>3488</a>
<a id='n3489' href='#n3489'>3489</a>
<a id='n3490' href='#n3490'>3490</a>
<a id='n3491' href='#n3491'>3491</a>
<a id='n3492' href='#n3492'>3492</a>
<a id='n3493' href='#n3493'>3493</a>
<a id='n3494' href='#n3494'>3494</a>
<a id='n3495' href='#n3495'>3495</a>
<a id='n3496' href='#n3496'>3496</a>
<a id='n3497' href='#n3497'>3497</a>
<a id='n3498' href='#n3498'>3498</a>
<a id='n3499' href='#n3499'>3499</a>
<a id='n3500' href='#n3500'>3500</a>
<a id='n3501' href='#n3501'>3501</a>
<a id='n3502' href='#n3502'>3502</a>
<a id='n3503' href='#n3503'>3503</a>
<a id='n3504' href='#n3504'>3504</a>
<a id='n3505' href='#n3505'>3505</a>
<a id='n3506' href='#n3506'>3506</a>
<a id='n3507' href='#n3507'>3507</a>
<a id='n3508' href='#n3508'>3508</a>
<a id='n3509' href='#n3509'>3509</a>
<a id='n3510' href='#n3510'>3510</a>
<a id='n3511' href='#n3511'>3511</a>
<a id='n3512' href='#n3512'>3512</a>
<a id='n3513' href='#n3513'>3513</a>
<a id='n3514' href='#n3514'>3514</a>
<a id='n3515' href='#n3515'>3515</a>
<a id='n3516' href='#n3516'>3516</a>
<a id='n3517' href='#n3517'>3517</a>
<a id='n3518' href='#n3518'>3518</a>
<a id='n3519' href='#n3519'>3519</a>
<a id='n3520' href='#n3520'>3520</a>
<a id='n3521' href='#n3521'>3521</a>
<a id='n3522' href='#n3522'>3522</a>
<a id='n3523' href='#n3523'>3523</a>
<a id='n3524' href='#n3524'>3524</a>
<a id='n3525' href='#n3525'>3525</a>
<a id='n3526' href='#n3526'>3526</a>
<a id='n3527' href='#n3527'>3527</a>
<a id='n3528' href='#n3528'>3528</a>
<a id='n3529' href='#n3529'>3529</a>
<a id='n3530' href='#n3530'>3530</a>
<a id='n3531' href='#n3531'>3531</a>
<a id='n3532' href='#n3532'>3532</a>
<a id='n3533' href='#n3533'>3533</a>
<a id='n3534' href='#n3534'>3534</a>
<a id='n3535' href='#n3535'>3535</a>
<a id='n3536' href='#n3536'>3536</a>
<a id='n3537' href='#n3537'>3537</a>
<a id='n3538' href='#n3538'>3538</a>
<a id='n3539' href='#n3539'>3539</a>
<a id='n3540' href='#n3540'>3540</a>
<a id='n3541' href='#n3541'>3541</a>
<a id='n3542' href='#n3542'>3542</a>
<a id='n3543' href='#n3543'>3543</a>
<a id='n3544' href='#n3544'>3544</a>
<a id='n3545' href='#n3545'>3545</a>
<a id='n3546' href='#n3546'>3546</a>
<a id='n3547' href='#n3547'>3547</a>
<a id='n3548' href='#n3548'>3548</a>
<a id='n3549' href='#n3549'>3549</a>
<a id='n3550' href='#n3550'>3550</a>
<a id='n3551' href='#n3551'>3551</a>
<a id='n3552' href='#n3552'>3552</a>
<a id='n3553' href='#n3553'>3553</a>
<a id='n3554' href='#n3554'>3554</a>
<a id='n3555' href='#n3555'>3555</a>
<a id='n3556' href='#n3556'>3556</a>
<a id='n3557' href='#n3557'>3557</a>
<a id='n3558' href='#n3558'>3558</a>
<a id='n3559' href='#n3559'>3559</a>
<a id='n3560' href='#n3560'>3560</a>
<a id='n3561' href='#n3561'>3561</a>
<a id='n3562' href='#n3562'>3562</a>
<a id='n3563' href='#n3563'>3563</a>
<a id='n3564' href='#n3564'>3564</a>
<a id='n3565' href='#n3565'>3565</a>
<a id='n3566' href='#n3566'>3566</a>
<a id='n3567' href='#n3567'>3567</a>
<a id='n3568' href='#n3568'>3568</a>
<a id='n3569' href='#n3569'>3569</a>
<a id='n3570' href='#n3570'>3570</a>
<a id='n3571' href='#n3571'>3571</a>
<a id='n3572' href='#n3572'>3572</a>
<a id='n3573' href='#n3573'>3573</a>
<a id='n3574' href='#n3574'>3574</a>
<a id='n3575' href='#n3575'>3575</a>
<a id='n3576' href='#n3576'>3576</a>
<a id='n3577' href='#n3577'>3577</a>
<a id='n3578' href='#n3578'>3578</a>
<a id='n3579' href='#n3579'>3579</a>
<a id='n3580' href='#n3580'>3580</a>
<a id='n3581' href='#n3581'>3581</a>
<a id='n3582' href='#n3582'>3582</a>
<a id='n3583' href='#n3583'>3583</a>
<a id='n3584' href='#n3584'>3584</a>
<a id='n3585' href='#n3585'>3585</a>
<a id='n3586' href='#n3586'>3586</a>
<a id='n3587' href='#n3587'>3587</a>
<a id='n3588' href='#n3588'>3588</a>
<a id='n3589' href='#n3589'>3589</a>
<a id='n3590' href='#n3590'>3590</a>
<a id='n3591' href='#n3591'>3591</a>
<a id='n3592' href='#n3592'>3592</a>
<a id='n3593' href='#n3593'>3593</a>
<a id='n3594' href='#n3594'>3594</a>
<a id='n3595' href='#n3595'>3595</a>
<a id='n3596' href='#n3596'>3596</a>
<a id='n3597' href='#n3597'>3597</a>
<a id='n3598' href='#n3598'>3598</a>
<a id='n3599' href='#n3599'>3599</a>
<a id='n3600' href='#n3600'>3600</a>
<a id='n3601' href='#n3601'>3601</a>
<a id='n3602' href='#n3602'>3602</a>
<a id='n3603' href='#n3603'>3603</a>
<a id='n3604' href='#n3604'>3604</a>
<a id='n3605' href='#n3605'>3605</a>
<a id='n3606' href='#n3606'>3606</a>
<a id='n3607' href='#n3607'>3607</a>
<a id='n3608' href='#n3608'>3608</a>
<a id='n3609' href='#n3609'>3609</a>
<a id='n3610' href='#n3610'>3610</a>
<a id='n3611' href='#n3611'>3611</a>
<a id='n3612' href='#n3612'>3612</a>
<a id='n3613' href='#n3613'>3613</a>
<a id='n3614' href='#n3614'>3614</a>
<a id='n3615' href='#n3615'>3615</a>
<a id='n3616' href='#n3616'>3616</a>
<a id='n3617' href='#n3617'>3617</a>
<a id='n3618' href='#n3618'>3618</a>
<a id='n3619' href='#n3619'>3619</a>
<a id='n3620' href='#n3620'>3620</a>
<a id='n3621' href='#n3621'>3621</a>
<a id='n3622' href='#n3622'>3622</a>
<a id='n3623' href='#n3623'>3623</a>
<a id='n3624' href='#n3624'>3624</a>
<a id='n3625' href='#n3625'>3625</a>
<a id='n3626' href='#n3626'>3626</a>
<a id='n3627' href='#n3627'>3627</a>
<a id='n3628' href='#n3628'>3628</a>
<a id='n3629' href='#n3629'>3629</a>
<a id='n3630' href='#n3630'>3630</a>
<a id='n3631' href='#n3631'>3631</a>
<a id='n3632' href='#n3632'>3632</a>
<a id='n3633' href='#n3633'>3633</a>
<a id='n3634' href='#n3634'>3634</a>
<a id='n3635' href='#n3635'>3635</a>
<a id='n3636' href='#n3636'>3636</a>
<a id='n3637' href='#n3637'>3637</a>
<a id='n3638' href='#n3638'>3638</a>
<a id='n3639' href='#n3639'>3639</a>
<a id='n3640' href='#n3640'>3640</a>
<a id='n3641' href='#n3641'>3641</a>
<a id='n3642' href='#n3642'>3642</a>
<a id='n3643' href='#n3643'>3643</a>
<a id='n3644' href='#n3644'>3644</a>
<a id='n3645' href='#n3645'>3645</a>
<a id='n3646' href='#n3646'>3646</a>
<a id='n3647' href='#n3647'>3647</a>
<a id='n3648' href='#n3648'>3648</a>
<a id='n3649' href='#n3649'>3649</a>
<a id='n3650' href='#n3650'>3650</a>
<a id='n3651' href='#n3651'>3651</a>
<a id='n3652' href='#n3652'>3652</a>
<a id='n3653' href='#n3653'>3653</a>
<a id='n3654' href='#n3654'>3654</a>
<a id='n3655' href='#n3655'>3655</a>
<a id='n3656' href='#n3656'>3656</a>
<a id='n3657' href='#n3657'>3657</a>
<a id='n3658' href='#n3658'>3658</a>
<a id='n3659' href='#n3659'>3659</a>
<a id='n3660' href='#n3660'>3660</a>
<a id='n3661' href='#n3661'>3661</a>
<a id='n3662' href='#n3662'>3662</a>
<a id='n3663' href='#n3663'>3663</a>
<a id='n3664' href='#n3664'>3664</a>
<a id='n3665' href='#n3665'>3665</a>
<a id='n3666' href='#n3666'>3666</a>
<a id='n3667' href='#n3667'>3667</a>
<a id='n3668' href='#n3668'>3668</a>
<a id='n3669' href='#n3669'>3669</a>
<a id='n3670' href='#n3670'>3670</a>
<a id='n3671' href='#n3671'>3671</a>
<a id='n3672' href='#n3672'>3672</a>
<a id='n3673' href='#n3673'>3673</a>
<a id='n3674' href='#n3674'>3674</a>
<a id='n3675' href='#n3675'>3675</a>
<a id='n3676' href='#n3676'>3676</a>
<a id='n3677' href='#n3677'>3677</a>
<a id='n3678' href='#n3678'>3678</a>
<a id='n3679' href='#n3679'>3679</a>
<a id='n3680' href='#n3680'>3680</a>
<a id='n3681' href='#n3681'>3681</a>
<a id='n3682' href='#n3682'>3682</a>
<a id='n3683' href='#n3683'>3683</a>
<a id='n3684' href='#n3684'>3684</a>
<a id='n3685' href='#n3685'>3685</a>
<a id='n3686' href='#n3686'>3686</a>
<a id='n3687' href='#n3687'>3687</a>
<a id='n3688' href='#n3688'>3688</a>
<a id='n3689' href='#n3689'>3689</a>
<a id='n3690' href='#n3690'>3690</a>
<a id='n3691' href='#n3691'>3691</a>
<a id='n3692' href='#n3692'>3692</a>
<a id='n3693' href='#n3693'>3693</a>
<a id='n3694' href='#n3694'>3694</a>
<a id='n3695' href='#n3695'>3695</a>
<a id='n3696' href='#n3696'>3696</a>
<a id='n3697' href='#n3697'>3697</a>
<a id='n3698' href='#n3698'>3698</a>
<a id='n3699' href='#n3699'>3699</a>
<a id='n3700' href='#n3700'>3700</a>
<a id='n3701' href='#n3701'>3701</a>
<a id='n3702' href='#n3702'>3702</a>
<a id='n3703' href='#n3703'>3703</a>
<a id='n3704' href='#n3704'>3704</a>
<a id='n3705' href='#n3705'>3705</a>
<a id='n3706' href='#n3706'>3706</a>
<a id='n3707' href='#n3707'>3707</a>
<a id='n3708' href='#n3708'>3708</a>
<a id='n3709' href='#n3709'>3709</a>
<a id='n3710' href='#n3710'>3710</a>
<a id='n3711' href='#n3711'>3711</a>
<a id='n3712' href='#n3712'>3712</a>
<a id='n3713' href='#n3713'>3713</a>
<a id='n3714' href='#n3714'>3714</a>
<a id='n3715' href='#n3715'>3715</a>
<a id='n3716' href='#n3716'>3716</a>
<a id='n3717' href='#n3717'>3717</a>
<a id='n3718' href='#n3718'>3718</a>
<a id='n3719' href='#n3719'>3719</a>
<a id='n3720' href='#n3720'>3720</a>
<a id='n3721' href='#n3721'>3721</a>
<a id='n3722' href='#n3722'>3722</a>
<a id='n3723' href='#n3723'>3723</a>
<a id='n3724' href='#n3724'>3724</a>
<a id='n3725' href='#n3725'>3725</a>
<a id='n3726' href='#n3726'>3726</a>
<a id='n3727' href='#n3727'>3727</a>
<a id='n3728' href='#n3728'>3728</a>
<a id='n3729' href='#n3729'>3729</a>
<a id='n3730' href='#n3730'>3730</a>
<a id='n3731' href='#n3731'>3731</a>
<a id='n3732' href='#n3732'>3732</a>
<a id='n3733' href='#n3733'>3733</a>
<a id='n3734' href='#n3734'>3734</a>
<a id='n3735' href='#n3735'>3735</a>
<a id='n3736' href='#n3736'>3736</a>
<a id='n3737' href='#n3737'>3737</a>
<a id='n3738' href='#n3738'>3738</a>
<a id='n3739' href='#n3739'>3739</a>
<a id='n3740' href='#n3740'>3740</a>
<a id='n3741' href='#n3741'>3741</a>
<a id='n3742' href='#n3742'>3742</a>
<a id='n3743' href='#n3743'>3743</a>
<a id='n3744' href='#n3744'>3744</a>
<a id='n3745' href='#n3745'>3745</a>
<a id='n3746' href='#n3746'>3746</a>
<a id='n3747' href='#n3747'>3747</a>
<a id='n3748' href='#n3748'>3748</a>
<a id='n3749' href='#n3749'>3749</a>
<a id='n3750' href='#n3750'>3750</a>
<a id='n3751' href='#n3751'>3751</a>
<a id='n3752' href='#n3752'>3752</a>
<a id='n3753' href='#n3753'>3753</a>
<a id='n3754' href='#n3754'>3754</a>
<a id='n3755' href='#n3755'>3755</a>
<a id='n3756' href='#n3756'>3756</a>
<a id='n3757' href='#n3757'>3757</a>
<a id='n3758' href='#n3758'>3758</a>
<a id='n3759' href='#n3759'>3759</a>
<a id='n3760' href='#n3760'>3760</a>
<a id='n3761' href='#n3761'>3761</a>
<a id='n3762' href='#n3762'>3762</a>
<a id='n3763' href='#n3763'>3763</a>
<a id='n3764' href='#n3764'>3764</a>
<a id='n3765' href='#n3765'>3765</a>
<a id='n3766' href='#n3766'>3766</a>
<a id='n3767' href='#n3767'>3767</a>
<a id='n3768' href='#n3768'>3768</a>
<a id='n3769' href='#n3769'>3769</a>
<a id='n3770' href='#n3770'>3770</a>
<a id='n3771' href='#n3771'>3771</a>
<a id='n3772' href='#n3772'>3772</a>
<a id='n3773' href='#n3773'>3773</a>
<a id='n3774' href='#n3774'>3774</a>
<a id='n3775' href='#n3775'>3775</a>
<a id='n3776' href='#n3776'>3776</a>
<a id='n3777' href='#n3777'>3777</a>
<a id='n3778' href='#n3778'>3778</a>
<a id='n3779' href='#n3779'>3779</a>
<a id='n3780' href='#n3780'>3780</a>
<a id='n3781' href='#n3781'>3781</a>
<a id='n3782' href='#n3782'>3782</a>
<a id='n3783' href='#n3783'>3783</a>
<a id='n3784' href='#n3784'>3784</a>
<a id='n3785' href='#n3785'>3785</a>
<a id='n3786' href='#n3786'>3786</a>
<a id='n3787' href='#n3787'>3787</a>
<a id='n3788' href='#n3788'>3788</a>
<a id='n3789' href='#n3789'>3789</a>
<a id='n3790' href='#n3790'>3790</a>
<a id='n3791' href='#n3791'>3791</a>
<a id='n3792' href='#n3792'>3792</a>
<a id='n3793' href='#n3793'>3793</a>
<a id='n3794' href='#n3794'>3794</a>
<a id='n3795' href='#n3795'>3795</a>
<a id='n3796' href='#n3796'>3796</a>
<a id='n3797' href='#n3797'>3797</a>
<a id='n3798' href='#n3798'>3798</a>
<a id='n3799' href='#n3799'>3799</a>
<a id='n3800' href='#n3800'>3800</a>
<a id='n3801' href='#n3801'>3801</a>
<a id='n3802' href='#n3802'>3802</a>
<a id='n3803' href='#n3803'>3803</a>
<a id='n3804' href='#n3804'>3804</a>
<a id='n3805' href='#n3805'>3805</a>
<a id='n3806' href='#n3806'>3806</a>
<a id='n3807' href='#n3807'>3807</a>
<a id='n3808' href='#n3808'>3808</a>
<a id='n3809' href='#n3809'>3809</a>
<a id='n3810' href='#n3810'>3810</a>
<a id='n3811' href='#n3811'>3811</a>
<a id='n3812' href='#n3812'>3812</a>
<a id='n3813' href='#n3813'>3813</a>
<a id='n3814' href='#n3814'>3814</a>
<a id='n3815' href='#n3815'>3815</a>
<a id='n3816' href='#n3816'>3816</a>
<a id='n3817' href='#n3817'>3817</a>
<a id='n3818' href='#n3818'>3818</a>
<a id='n3819' href='#n3819'>3819</a>
<a id='n3820' href='#n3820'>3820</a>
<a id='n3821' href='#n3821'>3821</a>
<a id='n3822' href='#n3822'>3822</a>
<a id='n3823' href='#n3823'>3823</a>
<a id='n3824' href='#n3824'>3824</a>
<a id='n3825' href='#n3825'>3825</a>
<a id='n3826' href='#n3826'>3826</a>
<a id='n3827' href='#n3827'>3827</a>
<a id='n3828' href='#n3828'>3828</a>
<a id='n3829' href='#n3829'>3829</a>
<a id='n3830' href='#n3830'>3830</a>
<a id='n3831' href='#n3831'>3831</a>
<a id='n3832' href='#n3832'>3832</a>
<a id='n3833' href='#n3833'>3833</a>
<a id='n3834' href='#n3834'>3834</a>
<a id='n3835' href='#n3835'>3835</a>
<a id='n3836' href='#n3836'>3836</a>
<a id='n3837' href='#n3837'>3837</a>
<a id='n3838' href='#n3838'>3838</a>
<a id='n3839' href='#n3839'>3839</a>
<a id='n3840' href='#n3840'>3840</a>
<a id='n3841' href='#n3841'>3841</a>
<a id='n3842' href='#n3842'>3842</a>
<a id='n3843' href='#n3843'>3843</a>
<a id='n3844' href='#n3844'>3844</a>
<a id='n3845' href='#n3845'>3845</a>
<a id='n3846' href='#n3846'>3846</a>
<a id='n3847' href='#n3847'>3847</a>
<a id='n3848' href='#n3848'>3848</a>
<a id='n3849' href='#n3849'>3849</a>
<a id='n3850' href='#n3850'>3850</a>
<a id='n3851' href='#n3851'>3851</a>
<a id='n3852' href='#n3852'>3852</a>
<a id='n3853' href='#n3853'>3853</a>
<a id='n3854' href='#n3854'>3854</a>
<a id='n3855' href='#n3855'>3855</a>
<a id='n3856' href='#n3856'>3856</a>
<a id='n3857' href='#n3857'>3857</a>
<a id='n3858' href='#n3858'>3858</a>
<a id='n3859' href='#n3859'>3859</a>
<a id='n3860' href='#n3860'>3860</a>
<a id='n3861' href='#n3861'>3861</a>
<a id='n3862' href='#n3862'>3862</a>
<a id='n3863' href='#n3863'>3863</a>
<a id='n3864' href='#n3864'>3864</a>
<a id='n3865' href='#n3865'>3865</a>
<a id='n3866' href='#n3866'>3866</a>
<a id='n3867' href='#n3867'>3867</a>
<a id='n3868' href='#n3868'>3868</a>
<a id='n3869' href='#n3869'>3869</a>
<a id='n3870' href='#n3870'>3870</a>
<a id='n3871' href='#n3871'>3871</a>
<a id='n3872' href='#n3872'>3872</a>
<a id='n3873' href='#n3873'>3873</a>
<a id='n3874' href='#n3874'>3874</a>
<a id='n3875' href='#n3875'>3875</a>
<a id='n3876' href='#n3876'>3876</a>
<a id='n3877' href='#n3877'>3877</a>
<a id='n3878' href='#n3878'>3878</a>
<a id='n3879' href='#n3879'>3879</a>
<a id='n3880' href='#n3880'>3880</a>
<a id='n3881' href='#n3881'>3881</a>
<a id='n3882' href='#n3882'>3882</a>
<a id='n3883' href='#n3883'>3883</a>
<a id='n3884' href='#n3884'>3884</a>
<a id='n3885' href='#n3885'>3885</a>
<a id='n3886' href='#n3886'>3886</a>
<a id='n3887' href='#n3887'>3887</a>
<a id='n3888' href='#n3888'>3888</a>
<a id='n3889' href='#n3889'>3889</a>
<a id='n3890' href='#n3890'>3890</a>
<a id='n3891' href='#n3891'>3891</a>
<a id='n3892' href='#n3892'>3892</a>
<a id='n3893' href='#n3893'>3893</a>
<a id='n3894' href='#n3894'>3894</a>
<a id='n3895' href='#n3895'>3895</a>
<a id='n3896' href='#n3896'>3896</a>
<a id='n3897' href='#n3897'>3897</a>
<a id='n3898' href='#n3898'>3898</a>
<a id='n3899' href='#n3899'>3899</a>
<a id='n3900' href='#n3900'>3900</a>
<a id='n3901' href='#n3901'>3901</a>
<a id='n3902' href='#n3902'>3902</a>
<a id='n3903' href='#n3903'>3903</a>
<a id='n3904' href='#n3904'>3904</a>
<a id='n3905' href='#n3905'>3905</a>
<a id='n3906' href='#n3906'>3906</a>
<a id='n3907' href='#n3907'>3907</a>
<a id='n3908' href='#n3908'>3908</a>
<a id='n3909' href='#n3909'>3909</a>
<a id='n3910' href='#n3910'>3910</a>
<a id='n3911' href='#n3911'>3911</a>
<a id='n3912' href='#n3912'>3912</a>
<a id='n3913' href='#n3913'>3913</a>
<a id='n3914' href='#n3914'>3914</a>
<a id='n3915' href='#n3915'>3915</a>
<a id='n3916' href='#n3916'>3916</a>
<a id='n3917' href='#n3917'>3917</a>
<a id='n3918' href='#n3918'>3918</a>
<a id='n3919' href='#n3919'>3919</a>
<a id='n3920' href='#n3920'>3920</a>
<a id='n3921' href='#n3921'>3921</a>
<a id='n3922' href='#n3922'>3922</a>
<a id='n3923' href='#n3923'>3923</a>
<a id='n3924' href='#n3924'>3924</a>
<a id='n3925' href='#n3925'>3925</a>
<a id='n3926' href='#n3926'>3926</a>
<a id='n3927' href='#n3927'>3927</a>
<a id='n3928' href='#n3928'>3928</a>
<a id='n3929' href='#n3929'>3929</a>
<a id='n3930' href='#n3930'>3930</a>
<a id='n3931' href='#n3931'>3931</a>
<a id='n3932' href='#n3932'>3932</a>
<a id='n3933' href='#n3933'>3933</a>
<a id='n3934' href='#n3934'>3934</a>
<a id='n3935' href='#n3935'>3935</a>
<a id='n3936' href='#n3936'>3936</a>
<a id='n3937' href='#n3937'>3937</a>
<a id='n3938' href='#n3938'>3938</a>
<a id='n3939' href='#n3939'>3939</a>
<a id='n3940' href='#n3940'>3940</a>
<a id='n3941' href='#n3941'>3941</a>
<a id='n3942' href='#n3942'>3942</a>
<a id='n3943' href='#n3943'>3943</a>
<a id='n3944' href='#n3944'>3944</a>
<a id='n3945' href='#n3945'>3945</a>
<a id='n3946' href='#n3946'>3946</a>
<a id='n3947' href='#n3947'>3947</a>
<a id='n3948' href='#n3948'>3948</a>
<a id='n3949' href='#n3949'>3949</a>
<a id='n3950' href='#n3950'>3950</a>
<a id='n3951' href='#n3951'>3951</a>
<a id='n3952' href='#n3952'>3952</a>
<a id='n3953' href='#n3953'>3953</a>
<a id='n3954' href='#n3954'>3954</a>
<a id='n3955' href='#n3955'>3955</a>
<a id='n3956' href='#n3956'>3956</a>
<a id='n3957' href='#n3957'>3957</a>
<a id='n3958' href='#n3958'>3958</a>
<a id='n3959' href='#n3959'>3959</a>
<a id='n3960' href='#n3960'>3960</a>
<a id='n3961' href='#n3961'>3961</a>
<a id='n3962' href='#n3962'>3962</a>
<a id='n3963' href='#n3963'>3963</a>
<a id='n3964' href='#n3964'>3964</a>
<a id='n3965' href='#n3965'>3965</a>
<a id='n3966' href='#n3966'>3966</a>
<a id='n3967' href='#n3967'>3967</a>
<a id='n3968' href='#n3968'>3968</a>
<a id='n3969' href='#n3969'>3969</a>
<a id='n3970' href='#n3970'>3970</a>
<a id='n3971' href='#n3971'>3971</a>
<a id='n3972' href='#n3972'>3972</a>
<a id='n3973' href='#n3973'>3973</a>
<a id='n3974' href='#n3974'>3974</a>
<a id='n3975' href='#n3975'>3975</a>
<a id='n3976' href='#n3976'>3976</a>
<a id='n3977' href='#n3977'>3977</a>
<a id='n3978' href='#n3978'>3978</a>
<a id='n3979' href='#n3979'>3979</a>
<a id='n3980' href='#n3980'>3980</a>
<a id='n3981' href='#n3981'>3981</a>
<a id='n3982' href='#n3982'>3982</a>
<a id='n3983' href='#n3983'>3983</a>
<a id='n3984' href='#n3984'>3984</a>
<a id='n3985' href='#n3985'>3985</a>
<a id='n3986' href='#n3986'>3986</a>
<a id='n3987' href='#n3987'>3987</a>
<a id='n3988' href='#n3988'>3988</a>
<a id='n3989' href='#n3989'>3989</a>
<a id='n3990' href='#n3990'>3990</a>
<a id='n3991' href='#n3991'>3991</a>
<a id='n3992' href='#n3992'>3992</a>
<a id='n3993' href='#n3993'>3993</a>
<a id='n3994' href='#n3994'>3994</a>
<a id='n3995' href='#n3995'>3995</a>
<a id='n3996' href='#n3996'>3996</a>
<a id='n3997' href='#n3997'>3997</a>
<a id='n3998' href='#n3998'>3998</a>
<a id='n3999' href='#n3999'>3999</a>
<a id='n4000' href='#n4000'>4000</a>
<a id='n4001' href='#n4001'>4001</a>
<a id='n4002' href='#n4002'>4002</a>
<a id='n4003' href='#n4003'>4003</a>
<a id='n4004' href='#n4004'>4004</a>
<a id='n4005' href='#n4005'>4005</a>
<a id='n4006' href='#n4006'>4006</a>
<a id='n4007' href='#n4007'>4007</a>
<a id='n4008' href='#n4008'>4008</a>
<a id='n4009' href='#n4009'>4009</a>
<a id='n4010' href='#n4010'>4010</a>
<a id='n4011' href='#n4011'>4011</a>
<a id='n4012' href='#n4012'>4012</a>
<a id='n4013' href='#n4013'>4013</a>
<a id='n4014' href='#n4014'>4014</a>
<a id='n4015' href='#n4015'>4015</a>
<a id='n4016' href='#n4016'>4016</a>
<a id='n4017' href='#n4017'>4017</a>
<a id='n4018' href='#n4018'>4018</a>
<a id='n4019' href='#n4019'>4019</a>
<a id='n4020' href='#n4020'>4020</a>
<a id='n4021' href='#n4021'>4021</a>
<a id='n4022' href='#n4022'>4022</a>
<a id='n4023' href='#n4023'>4023</a>
<a id='n4024' href='#n4024'>4024</a>
<a id='n4025' href='#n4025'>4025</a>
<a id='n4026' href='#n4026'>4026</a>
<a id='n4027' href='#n4027'>4027</a>
<a id='n4028' href='#n4028'>4028</a>
<a id='n4029' href='#n4029'>4029</a>
<a id='n4030' href='#n4030'>4030</a>
<a id='n4031' href='#n4031'>4031</a>
<a id='n4032' href='#n4032'>4032</a>
<a id='n4033' href='#n4033'>4033</a>
<a id='n4034' href='#n4034'>4034</a>
<a id='n4035' href='#n4035'>4035</a>
<a id='n4036' href='#n4036'>4036</a>
<a id='n4037' href='#n4037'>4037</a>
<a id='n4038' href='#n4038'>4038</a>
<a id='n4039' href='#n4039'>4039</a>
<a id='n4040' href='#n4040'>4040</a>
<a id='n4041' href='#n4041'>4041</a>
<a id='n4042' href='#n4042'>4042</a>
<a id='n4043' href='#n4043'>4043</a>
<a id='n4044' href='#n4044'>4044</a>
<a id='n4045' href='#n4045'>4045</a>
<a id='n4046' href='#n4046'>4046</a>
<a id='n4047' href='#n4047'>4047</a>
<a id='n4048' href='#n4048'>4048</a>
<a id='n4049' href='#n4049'>4049</a>
<a id='n4050' href='#n4050'>4050</a>
<a id='n4051' href='#n4051'>4051</a>
<a id='n4052' href='#n4052'>4052</a>
<a id='n4053' href='#n4053'>4053</a>
<a id='n4054' href='#n4054'>4054</a>
<a id='n4055' href='#n4055'>4055</a>
<a id='n4056' href='#n4056'>4056</a>
<a id='n4057' href='#n4057'>4057</a>
<a id='n4058' href='#n4058'>4058</a>
<a id='n4059' href='#n4059'>4059</a>
<a id='n4060' href='#n4060'>4060</a>
<a id='n4061' href='#n4061'>4061</a>
<a id='n4062' href='#n4062'>4062</a>
<a id='n4063' href='#n4063'>4063</a>
<a id='n4064' href='#n4064'>4064</a>
<a id='n4065' href='#n4065'>4065</a>
<a id='n4066' href='#n4066'>4066</a>
<a id='n4067' href='#n4067'>4067</a>
<a id='n4068' href='#n4068'>4068</a>
<a id='n4069' href='#n4069'>4069</a>
<a id='n4070' href='#n4070'>4070</a>
<a id='n4071' href='#n4071'>4071</a>
<a id='n4072' href='#n4072'>4072</a>
<a id='n4073' href='#n4073'>4073</a>
<a id='n4074' href='#n4074'>4074</a>
<a id='n4075' href='#n4075'>4075</a>
<a id='n4076' href='#n4076'>4076</a>
<a id='n4077' href='#n4077'>4077</a>
<a id='n4078' href='#n4078'>4078</a>
<a id='n4079' href='#n4079'>4079</a>
<a id='n4080' href='#n4080'>4080</a>
<a id='n4081' href='#n4081'>4081</a>
<a id='n4082' href='#n4082'>4082</a>
<a id='n4083' href='#n4083'>4083</a>
<a id='n4084' href='#n4084'>4084</a>
<a id='n4085' href='#n4085'>4085</a>
<a id='n4086' href='#n4086'>4086</a>
<a id='n4087' href='#n4087'>4087</a>
<a id='n4088' href='#n4088'>4088</a>
<a id='n4089' href='#n4089'>4089</a>
<a id='n4090' href='#n4090'>4090</a>
<a id='n4091' href='#n4091'>4091</a>
<a id='n4092' href='#n4092'>4092</a>
<a id='n4093' href='#n4093'>4093</a>
<a id='n4094' href='#n4094'>4094</a>
<a id='n4095' href='#n4095'>4095</a>
<a id='n4096' href='#n4096'>4096</a>
<a id='n4097' href='#n4097'>4097</a>
<a id='n4098' href='#n4098'>4098</a>
<a id='n4099' href='#n4099'>4099</a>
<a id='n4100' href='#n4100'>4100</a>
<a id='n4101' href='#n4101'>4101</a>
<a id='n4102' href='#n4102'>4102</a>
<a id='n4103' href='#n4103'>4103</a>
<a id='n4104' href='#n4104'>4104</a>
<a id='n4105' href='#n4105'>4105</a>
<a id='n4106' href='#n4106'>4106</a>
<a id='n4107' href='#n4107'>4107</a>
<a id='n4108' href='#n4108'>4108</a>
<a id='n4109' href='#n4109'>4109</a>
<a id='n4110' href='#n4110'>4110</a>
<a id='n4111' href='#n4111'>4111</a>
<a id='n4112' href='#n4112'>4112</a>
<a id='n4113' href='#n4113'>4113</a>
<a id='n4114' href='#n4114'>4114</a>
<a id='n4115' href='#n4115'>4115</a>
<a id='n4116' href='#n4116'>4116</a>
<a id='n4117' href='#n4117'>4117</a>
<a id='n4118' href='#n4118'>4118</a>
<a id='n4119' href='#n4119'>4119</a>
<a id='n4120' href='#n4120'>4120</a>
<a id='n4121' href='#n4121'>4121</a>
<a id='n4122' href='#n4122'>4122</a>
<a id='n4123' href='#n4123'>4123</a>
<a id='n4124' href='#n4124'>4124</a>
<a id='n4125' href='#n4125'>4125</a>
<a id='n4126' href='#n4126'>4126</a>
<a id='n4127' href='#n4127'>4127</a>
<a id='n4128' href='#n4128'>4128</a>
<a id='n4129' href='#n4129'>4129</a>
<a id='n4130' href='#n4130'>4130</a>
<a id='n4131' href='#n4131'>4131</a>
<a id='n4132' href='#n4132'>4132</a>
<a id='n4133' href='#n4133'>4133</a>
<a id='n4134' href='#n4134'>4134</a>
<a id='n4135' href='#n4135'>4135</a>
<a id='n4136' href='#n4136'>4136</a>
<a id='n4137' href='#n4137'>4137</a>
<a id='n4138' href='#n4138'>4138</a>
<a id='n4139' href='#n4139'>4139</a>
<a id='n4140' href='#n4140'>4140</a>
<a id='n4141' href='#n4141'>4141</a>
<a id='n4142' href='#n4142'>4142</a>
<a id='n4143' href='#n4143'>4143</a>
<a id='n4144' href='#n4144'>4144</a>
<a id='n4145' href='#n4145'>4145</a>
<a id='n4146' href='#n4146'>4146</a>
<a id='n4147' href='#n4147'>4147</a>
<a id='n4148' href='#n4148'>4148</a>
<a id='n4149' href='#n4149'>4149</a>
<a id='n4150' href='#n4150'>4150</a>
<a id='n4151' href='#n4151'>4151</a>
<a id='n4152' href='#n4152'>4152</a>
<a id='n4153' href='#n4153'>4153</a>
<a id='n4154' href='#n4154'>4154</a>
<a id='n4155' href='#n4155'>4155</a>
<a id='n4156' href='#n4156'>4156</a>
<a id='n4157' href='#n4157'>4157</a>
<a id='n4158' href='#n4158'>4158</a>
<a id='n4159' href='#n4159'>4159</a>
<a id='n4160' href='#n4160'>4160</a>
<a id='n4161' href='#n4161'>4161</a>
<a id='n4162' href='#n4162'>4162</a>
<a id='n4163' href='#n4163'>4163</a>
<a id='n4164' href='#n4164'>4164</a>
<a id='n4165' href='#n4165'>4165</a>
<a id='n4166' href='#n4166'>4166</a>
<a id='n4167' href='#n4167'>4167</a>
<a id='n4168' href='#n4168'>4168</a>
<a id='n4169' href='#n4169'>4169</a>
<a id='n4170' href='#n4170'>4170</a>
<a id='n4171' href='#n4171'>4171</a>
<a id='n4172' href='#n4172'>4172</a>
<a id='n4173' href='#n4173'>4173</a>
<a id='n4174' href='#n4174'>4174</a>
<a id='n4175' href='#n4175'>4175</a>
<a id='n4176' href='#n4176'>4176</a>
<a id='n4177' href='#n4177'>4177</a>
<a id='n4178' href='#n4178'>4178</a>
<a id='n4179' href='#n4179'>4179</a>
<a id='n4180' href='#n4180'>4180</a>
<a id='n4181' href='#n4181'>4181</a>
<a id='n4182' href='#n4182'>4182</a>
<a id='n4183' href='#n4183'>4183</a>
<a id='n4184' href='#n4184'>4184</a>
<a id='n4185' href='#n4185'>4185</a>
<a id='n4186' href='#n4186'>4186</a>
<a id='n4187' href='#n4187'>4187</a>
<a id='n4188' href='#n4188'>4188</a>
<a id='n4189' href='#n4189'>4189</a>
<a id='n4190' href='#n4190'>4190</a>
<a id='n4191' href='#n4191'>4191</a>
<a id='n4192' href='#n4192'>4192</a>
<a id='n4193' href='#n4193'>4193</a>
<a id='n4194' href='#n4194'>4194</a>
<a id='n4195' href='#n4195'>4195</a>
<a id='n4196' href='#n4196'>4196</a>
<a id='n4197' href='#n4197'>4197</a>
<a id='n4198' href='#n4198'>4198</a>
<a id='n4199' href='#n4199'>4199</a>
<a id='n4200' href='#n4200'>4200</a>
<a id='n4201' href='#n4201'>4201</a>
<a id='n4202' href='#n4202'>4202</a>
<a id='n4203' href='#n4203'>4203</a>
<a id='n4204' href='#n4204'>4204</a>
<a id='n4205' href='#n4205'>4205</a>
<a id='n4206' href='#n4206'>4206</a>
<a id='n4207' href='#n4207'>4207</a>
<a id='n4208' href='#n4208'>4208</a>
<a id='n4209' href='#n4209'>4209</a>
<a id='n4210' href='#n4210'>4210</a>
<a id='n4211' href='#n4211'>4211</a>
<a id='n4212' href='#n4212'>4212</a>
<a id='n4213' href='#n4213'>4213</a>
<a id='n4214' href='#n4214'>4214</a>
<a id='n4215' href='#n4215'>4215</a>
<a id='n4216' href='#n4216'>4216</a>
<a id='n4217' href='#n4217'>4217</a>
<a id='n4218' href='#n4218'>4218</a>
<a id='n4219' href='#n4219'>4219</a>
<a id='n4220' href='#n4220'>4220</a>
<a id='n4221' href='#n4221'>4221</a>
<a id='n4222' href='#n4222'>4222</a>
<a id='n4223' href='#n4223'>4223</a>
<a id='n4224' href='#n4224'>4224</a>
<a id='n4225' href='#n4225'>4225</a>
<a id='n4226' href='#n4226'>4226</a>
<a id='n4227' href='#n4227'>4227</a>
<a id='n4228' href='#n4228'>4228</a>
<a id='n4229' href='#n4229'>4229</a>
<a id='n4230' href='#n4230'>4230</a>
<a id='n4231' href='#n4231'>4231</a>
<a id='n4232' href='#n4232'>4232</a>
<a id='n4233' href='#n4233'>4233</a>
<a id='n4234' href='#n4234'>4234</a>
<a id='n4235' href='#n4235'>4235</a>
<a id='n4236' href='#n4236'>4236</a>
<a id='n4237' href='#n4237'>4237</a>
<a id='n4238' href='#n4238'>4238</a>
<a id='n4239' href='#n4239'>4239</a>
<a id='n4240' href='#n4240'>4240</a>
<a id='n4241' href='#n4241'>4241</a>
<a id='n4242' href='#n4242'>4242</a>
<a id='n4243' href='#n4243'>4243</a>
<a id='n4244' href='#n4244'>4244</a>
<a id='n4245' href='#n4245'>4245</a>
<a id='n4246' href='#n4246'>4246</a>
<a id='n4247' href='#n4247'>4247</a>
<a id='n4248' href='#n4248'>4248</a>
<a id='n4249' href='#n4249'>4249</a>
<a id='n4250' href='#n4250'>4250</a>
<a id='n4251' href='#n4251'>4251</a>
<a id='n4252' href='#n4252'>4252</a>
<a id='n4253' href='#n4253'>4253</a>
<a id='n4254' href='#n4254'>4254</a>
<a id='n4255' href='#n4255'>4255</a>
<a id='n4256' href='#n4256'>4256</a>
<a id='n4257' href='#n4257'>4257</a>
<a id='n4258' href='#n4258'>4258</a>
<a id='n4259' href='#n4259'>4259</a>
<a id='n4260' href='#n4260'>4260</a>
<a id='n4261' href='#n4261'>4261</a>
<a id='n4262' href='#n4262'>4262</a>
<a id='n4263' href='#n4263'>4263</a>
<a id='n4264' href='#n4264'>4264</a>
<a id='n4265' href='#n4265'>4265</a>
<a id='n4266' href='#n4266'>4266</a>
<a id='n4267' href='#n4267'>4267</a>
<a id='n4268' href='#n4268'>4268</a>
<a id='n4269' href='#n4269'>4269</a>
<a id='n4270' href='#n4270'>4270</a>
<a id='n4271' href='#n4271'>4271</a>
<a id='n4272' href='#n4272'>4272</a>
<a id='n4273' href='#n4273'>4273</a>
<a id='n4274' href='#n4274'>4274</a>
<a id='n4275' href='#n4275'>4275</a>
<a id='n4276' href='#n4276'>4276</a>
<a id='n4277' href='#n4277'>4277</a>
<a id='n4278' href='#n4278'>4278</a>
<a id='n4279' href='#n4279'>4279</a>
<a id='n4280' href='#n4280'>4280</a>
<a id='n4281' href='#n4281'>4281</a>
<a id='n4282' href='#n4282'>4282</a>
<a id='n4283' href='#n4283'>4283</a>
<a id='n4284' href='#n4284'>4284</a>
<a id='n4285' href='#n4285'>4285</a>
<a id='n4286' href='#n4286'>4286</a>
<a id='n4287' href='#n4287'>4287</a>
<a id='n4288' href='#n4288'>4288</a>
<a id='n4289' href='#n4289'>4289</a>
<a id='n4290' href='#n4290'>4290</a>
<a id='n4291' href='#n4291'>4291</a>
<a id='n4292' href='#n4292'>4292</a>
<a id='n4293' href='#n4293'>4293</a>
<a id='n4294' href='#n4294'>4294</a>
<a id='n4295' href='#n4295'>4295</a>
<a id='n4296' href='#n4296'>4296</a>
<a id='n4297' href='#n4297'>4297</a>
<a id='n4298' href='#n4298'>4298</a>
<a id='n4299' href='#n4299'>4299</a>
<a id='n4300' href='#n4300'>4300</a>
<a id='n4301' href='#n4301'>4301</a>
<a id='n4302' href='#n4302'>4302</a>
<a id='n4303' href='#n4303'>4303</a>
<a id='n4304' href='#n4304'>4304</a>
<a id='n4305' href='#n4305'>4305</a>
<a id='n4306' href='#n4306'>4306</a>
<a id='n4307' href='#n4307'>4307</a>
<a id='n4308' href='#n4308'>4308</a>
<a id='n4309' href='#n4309'>4309</a>
<a id='n4310' href='#n4310'>4310</a>
<a id='n4311' href='#n4311'>4311</a>
<a id='n4312' href='#n4312'>4312</a>
<a id='n4313' href='#n4313'>4313</a>
<a id='n4314' href='#n4314'>4314</a>
<a id='n4315' href='#n4315'>4315</a>
<a id='n4316' href='#n4316'>4316</a>
<a id='n4317' href='#n4317'>4317</a>
<a id='n4318' href='#n4318'>4318</a>
<a id='n4319' href='#n4319'>4319</a>
<a id='n4320' href='#n4320'>4320</a>
<a id='n4321' href='#n4321'>4321</a>
<a id='n4322' href='#n4322'>4322</a>
<a id='n4323' href='#n4323'>4323</a>
<a id='n4324' href='#n4324'>4324</a>
<a id='n4325' href='#n4325'>4325</a>
<a id='n4326' href='#n4326'>4326</a>
<a id='n4327' href='#n4327'>4327</a>
<a id='n4328' href='#n4328'>4328</a>
<a id='n4329' href='#n4329'>4329</a>
<a id='n4330' href='#n4330'>4330</a>
<a id='n4331' href='#n4331'>4331</a>
<a id='n4332' href='#n4332'>4332</a>
<a id='n4333' href='#n4333'>4333</a>
<a id='n4334' href='#n4334'>4334</a>
<a id='n4335' href='#n4335'>4335</a>
<a id='n4336' href='#n4336'>4336</a>
<a id='n4337' href='#n4337'>4337</a>
<a id='n4338' href='#n4338'>4338</a>
<a id='n4339' href='#n4339'>4339</a>
<a id='n4340' href='#n4340'>4340</a>
<a id='n4341' href='#n4341'>4341</a>
<a id='n4342' href='#n4342'>4342</a>
<a id='n4343' href='#n4343'>4343</a>
<a id='n4344' href='#n4344'>4344</a>
<a id='n4345' href='#n4345'>4345</a>
<a id='n4346' href='#n4346'>4346</a>
<a id='n4347' href='#n4347'>4347</a>
<a id='n4348' href='#n4348'>4348</a>
<a id='n4349' href='#n4349'>4349</a>
<a id='n4350' href='#n4350'>4350</a>
<a id='n4351' href='#n4351'>4351</a>
<a id='n4352' href='#n4352'>4352</a>
<a id='n4353' href='#n4353'>4353</a>
<a id='n4354' href='#n4354'>4354</a>
<a id='n4355' href='#n4355'>4355</a>
<a id='n4356' href='#n4356'>4356</a>
<a id='n4357' href='#n4357'>4357</a>
<a id='n4358' href='#n4358'>4358</a>
<a id='n4359' href='#n4359'>4359</a>
<a id='n4360' href='#n4360'>4360</a>
<a id='n4361' href='#n4361'>4361</a>
<a id='n4362' href='#n4362'>4362</a>
<a id='n4363' href='#n4363'>4363</a>
<a id='n4364' href='#n4364'>4364</a>
<a id='n4365' href='#n4365'>4365</a>
<a id='n4366' href='#n4366'>4366</a>
<a id='n4367' href='#n4367'>4367</a>
<a id='n4368' href='#n4368'>4368</a>
<a id='n4369' href='#n4369'>4369</a>
<a id='n4370' href='#n4370'>4370</a>
<a id='n4371' href='#n4371'>4371</a>
<a id='n4372' href='#n4372'>4372</a>
<a id='n4373' href='#n4373'>4373</a>
<a id='n4374' href='#n4374'>4374</a>
<a id='n4375' href='#n4375'>4375</a>
<a id='n4376' href='#n4376'>4376</a>
<a id='n4377' href='#n4377'>4377</a>
<a id='n4378' href='#n4378'>4378</a>
<a id='n4379' href='#n4379'>4379</a>
<a id='n4380' href='#n4380'>4380</a>
<a id='n4381' href='#n4381'>4381</a>
<a id='n4382' href='#n4382'>4382</a>
<a id='n4383' href='#n4383'>4383</a>
<a id='n4384' href='#n4384'>4384</a>
<a id='n4385' href='#n4385'>4385</a>
<a id='n4386' href='#n4386'>4386</a>
<a id='n4387' href='#n4387'>4387</a>
<a id='n4388' href='#n4388'>4388</a>
<a id='n4389' href='#n4389'>4389</a>
<a id='n4390' href='#n4390'>4390</a>
<a id='n4391' href='#n4391'>4391</a>
<a id='n4392' href='#n4392'>4392</a>
<a id='n4393' href='#n4393'>4393</a>
<a id='n4394' href='#n4394'>4394</a>
<a id='n4395' href='#n4395'>4395</a>
<a id='n4396' href='#n4396'>4396</a>
<a id='n4397' href='#n4397'>4397</a>
<a id='n4398' href='#n4398'>4398</a>
<a id='n4399' href='#n4399'>4399</a>
<a id='n4400' href='#n4400'>4400</a>
<a id='n4401' href='#n4401'>4401</a>
<a id='n4402' href='#n4402'>4402</a>
<a id='n4403' href='#n4403'>4403</a>
<a id='n4404' href='#n4404'>4404</a>
<a id='n4405' href='#n4405'>4405</a>
<a id='n4406' href='#n4406'>4406</a>
<a id='n4407' href='#n4407'>4407</a>
<a id='n4408' href='#n4408'>4408</a>
<a id='n4409' href='#n4409'>4409</a>
<a id='n4410' href='#n4410'>4410</a>
<a id='n4411' href='#n4411'>4411</a>
<a id='n4412' href='#n4412'>4412</a>
<a id='n4413' href='#n4413'>4413</a>
<a id='n4414' href='#n4414'>4414</a>
<a id='n4415' href='#n4415'>4415</a>
<a id='n4416' href='#n4416'>4416</a>
<a id='n4417' href='#n4417'>4417</a>
<a id='n4418' href='#n4418'>4418</a>
<a id='n4419' href='#n4419'>4419</a>
<a id='n4420' href='#n4420'>4420</a>
<a id='n4421' href='#n4421'>4421</a>
<a id='n4422' href='#n4422'>4422</a>
<a id='n4423' href='#n4423'>4423</a>
<a id='n4424' href='#n4424'>4424</a>
<a id='n4425' href='#n4425'>4425</a>
<a id='n4426' href='#n4426'>4426</a>
<a id='n4427' href='#n4427'>4427</a>
<a id='n4428' href='#n4428'>4428</a>
<a id='n4429' href='#n4429'>4429</a>
<a id='n4430' href='#n4430'>4430</a>
<a id='n4431' href='#n4431'>4431</a>
<a id='n4432' href='#n4432'>4432</a>
<a id='n4433' href='#n4433'>4433</a>
<a id='n4434' href='#n4434'>4434</a>
<a id='n4435' href='#n4435'>4435</a>
<a id='n4436' href='#n4436'>4436</a>
<a id='n4437' href='#n4437'>4437</a>
<a id='n4438' href='#n4438'>4438</a>
<a id='n4439' href='#n4439'>4439</a>
<a id='n4440' href='#n4440'>4440</a>
<a id='n4441' href='#n4441'>4441</a>
<a id='n4442' href='#n4442'>4442</a>
<a id='n4443' href='#n4443'>4443</a>
<a id='n4444' href='#n4444'>4444</a>
<a id='n4445' href='#n4445'>4445</a>
<a id='n4446' href='#n4446'>4446</a>
<a id='n4447' href='#n4447'>4447</a>
<a id='n4448' href='#n4448'>4448</a>
<a id='n4449' href='#n4449'>4449</a>
<a id='n4450' href='#n4450'>4450</a>
<a id='n4451' href='#n4451'>4451</a>
<a id='n4452' href='#n4452'>4452</a>
<a id='n4453' href='#n4453'>4453</a>
<a id='n4454' href='#n4454'>4454</a>
<a id='n4455' href='#n4455'>4455</a>
<a id='n4456' href='#n4456'>4456</a>
<a id='n4457' href='#n4457'>4457</a>
<a id='n4458' href='#n4458'>4458</a>
<a id='n4459' href='#n4459'>4459</a>
<a id='n4460' href='#n4460'>4460</a>
<a id='n4461' href='#n4461'>4461</a>
<a id='n4462' href='#n4462'>4462</a>
<a id='n4463' href='#n4463'>4463</a>
<a id='n4464' href='#n4464'>4464</a>
<a id='n4465' href='#n4465'>4465</a>
<a id='n4466' href='#n4466'>4466</a>
<a id='n4467' href='#n4467'>4467</a>
<a id='n4468' href='#n4468'>4468</a>
<a id='n4469' href='#n4469'>4469</a>
<a id='n4470' href='#n4470'>4470</a>
<a id='n4471' href='#n4471'>4471</a>
<a id='n4472' href='#n4472'>4472</a>
<a id='n4473' href='#n4473'>4473</a>
<a id='n4474' href='#n4474'>4474</a>
<a id='n4475' href='#n4475'>4475</a>
<a id='n4476' href='#n4476'>4476</a>
<a id='n4477' href='#n4477'>4477</a>
<a id='n4478' href='#n4478'>4478</a>
<a id='n4479' href='#n4479'>4479</a>
<a id='n4480' href='#n4480'>4480</a>
<a id='n4481' href='#n4481'>4481</a>
<a id='n4482' href='#n4482'>4482</a>
<a id='n4483' href='#n4483'>4483</a>
<a id='n4484' href='#n4484'>4484</a>
<a id='n4485' href='#n4485'>4485</a>
<a id='n4486' href='#n4486'>4486</a>
<a id='n4487' href='#n4487'>4487</a>
<a id='n4488' href='#n4488'>4488</a>
<a id='n4489' href='#n4489'>4489</a>
<a id='n4490' href='#n4490'>4490</a>
<a id='n4491' href='#n4491'>4491</a>
<a id='n4492' href='#n4492'>4492</a>
<a id='n4493' href='#n4493'>4493</a>
<a id='n4494' href='#n4494'>4494</a>
<a id='n4495' href='#n4495'>4495</a>
<a id='n4496' href='#n4496'>4496</a>
<a id='n4497' href='#n4497'>4497</a>
<a id='n4498' href='#n4498'>4498</a>
<a id='n4499' href='#n4499'>4499</a>
<a id='n4500' href='#n4500'>4500</a>
<a id='n4501' href='#n4501'>4501</a>
<a id='n4502' href='#n4502'>4502</a>
<a id='n4503' href='#n4503'>4503</a>
<a id='n4504' href='#n4504'>4504</a>
<a id='n4505' href='#n4505'>4505</a>
<a id='n4506' href='#n4506'>4506</a>
<a id='n4507' href='#n4507'>4507</a>
<a id='n4508' href='#n4508'>4508</a>
<a id='n4509' href='#n4509'>4509</a>
<a id='n4510' href='#n4510'>4510</a>
<a id='n4511' href='#n4511'>4511</a>
<a id='n4512' href='#n4512'>4512</a>
<a id='n4513' href='#n4513'>4513</a>
<a id='n4514' href='#n4514'>4514</a>
<a id='n4515' href='#n4515'>4515</a>
<a id='n4516' href='#n4516'>4516</a>
<a id='n4517' href='#n4517'>4517</a>
<a id='n4518' href='#n4518'>4518</a>
<a id='n4519' href='#n4519'>4519</a>
<a id='n4520' href='#n4520'>4520</a>
<a id='n4521' href='#n4521'>4521</a>
<a id='n4522' href='#n4522'>4522</a>
<a id='n4523' href='#n4523'>4523</a>
<a id='n4524' href='#n4524'>4524</a>
<a id='n4525' href='#n4525'>4525</a>
<a id='n4526' href='#n4526'>4526</a>
<a id='n4527' href='#n4527'>4527</a>
<a id='n4528' href='#n4528'>4528</a>
<a id='n4529' href='#n4529'>4529</a>
<a id='n4530' href='#n4530'>4530</a>
<a id='n4531' href='#n4531'>4531</a>
<a id='n4532' href='#n4532'>4532</a>
<a id='n4533' href='#n4533'>4533</a>
<a id='n4534' href='#n4534'>4534</a>
<a id='n4535' href='#n4535'>4535</a>
<a id='n4536' href='#n4536'>4536</a>
<a id='n4537' href='#n4537'>4537</a>
<a id='n4538' href='#n4538'>4538</a>
<a id='n4539' href='#n4539'>4539</a>
<a id='n4540' href='#n4540'>4540</a>
<a id='n4541' href='#n4541'>4541</a>
<a id='n4542' href='#n4542'>4542</a>
<a id='n4543' href='#n4543'>4543</a>
<a id='n4544' href='#n4544'>4544</a>
<a id='n4545' href='#n4545'>4545</a>
<a id='n4546' href='#n4546'>4546</a>
<a id='n4547' href='#n4547'>4547</a>
<a id='n4548' href='#n4548'>4548</a>
<a id='n4549' href='#n4549'>4549</a>
<a id='n4550' href='#n4550'>4550</a>
<a id='n4551' href='#n4551'>4551</a>
<a id='n4552' href='#n4552'>4552</a>
<a id='n4553' href='#n4553'>4553</a>
<a id='n4554' href='#n4554'>4554</a>
<a id='n4555' href='#n4555'>4555</a>
<a id='n4556' href='#n4556'>4556</a>
<a id='n4557' href='#n4557'>4557</a>
<a id='n4558' href='#n4558'>4558</a>
<a id='n4559' href='#n4559'>4559</a>
<a id='n4560' href='#n4560'>4560</a>
<a id='n4561' href='#n4561'>4561</a>
<a id='n4562' href='#n4562'>4562</a>
<a id='n4563' href='#n4563'>4563</a>
<a id='n4564' href='#n4564'>4564</a>
<a id='n4565' href='#n4565'>4565</a>
<a id='n4566' href='#n4566'>4566</a>
<a id='n4567' href='#n4567'>4567</a>
<a id='n4568' href='#n4568'>4568</a>
<a id='n4569' href='#n4569'>4569</a>
<a id='n4570' href='#n4570'>4570</a>
<a id='n4571' href='#n4571'>4571</a>
<a id='n4572' href='#n4572'>4572</a>
<a id='n4573' href='#n4573'>4573</a>
<a id='n4574' href='#n4574'>4574</a>
<a id='n4575' href='#n4575'>4575</a>
<a id='n4576' href='#n4576'>4576</a>
<a id='n4577' href='#n4577'>4577</a>
<a id='n4578' href='#n4578'>4578</a>
<a id='n4579' href='#n4579'>4579</a>
<a id='n4580' href='#n4580'>4580</a>
<a id='n4581' href='#n4581'>4581</a>
<a id='n4582' href='#n4582'>4582</a>
<a id='n4583' href='#n4583'>4583</a>
<a id='n4584' href='#n4584'>4584</a>
<a id='n4585' href='#n4585'>4585</a>
<a id='n4586' href='#n4586'>4586</a>
<a id='n4587' href='#n4587'>4587</a>
<a id='n4588' href='#n4588'>4588</a>
<a id='n4589' href='#n4589'>4589</a>
<a id='n4590' href='#n4590'>4590</a>
<a id='n4591' href='#n4591'>4591</a>
<a id='n4592' href='#n4592'>4592</a>
<a id='n4593' href='#n4593'>4593</a>
<a id='n4594' href='#n4594'>4594</a>
<a id='n4595' href='#n4595'>4595</a>
<a id='n4596' href='#n4596'>4596</a>
<a id='n4597' href='#n4597'>4597</a>
<a id='n4598' href='#n4598'>4598</a>
<a id='n4599' href='#n4599'>4599</a>
<a id='n4600' href='#n4600'>4600</a>
<a id='n4601' href='#n4601'>4601</a>
<a id='n4602' href='#n4602'>4602</a>
<a id='n4603' href='#n4603'>4603</a>
<a id='n4604' href='#n4604'>4604</a>
<a id='n4605' href='#n4605'>4605</a>
<a id='n4606' href='#n4606'>4606</a>
<a id='n4607' href='#n4607'>4607</a>
<a id='n4608' href='#n4608'>4608</a>
<a id='n4609' href='#n4609'>4609</a>
<a id='n4610' href='#n4610'>4610</a>
<a id='n4611' href='#n4611'>4611</a>
<a id='n4612' href='#n4612'>4612</a>
<a id='n4613' href='#n4613'>4613</a>
<a id='n4614' href='#n4614'>4614</a>
<a id='n4615' href='#n4615'>4615</a>
<a id='n4616' href='#n4616'>4616</a>
<a id='n4617' href='#n4617'>4617</a>
<a id='n4618' href='#n4618'>4618</a>
<a id='n4619' href='#n4619'>4619</a>
<a id='n4620' href='#n4620'>4620</a>
<a id='n4621' href='#n4621'>4621</a>
<a id='n4622' href='#n4622'>4622</a>
<a id='n4623' href='#n4623'>4623</a>
<a id='n4624' href='#n4624'>4624</a>
<a id='n4625' href='#n4625'>4625</a>
<a id='n4626' href='#n4626'>4626</a>
<a id='n4627' href='#n4627'>4627</a>
<a id='n4628' href='#n4628'>4628</a>
<a id='n4629' href='#n4629'>4629</a>
<a id='n4630' href='#n4630'>4630</a>
<a id='n4631' href='#n4631'>4631</a>
<a id='n4632' href='#n4632'>4632</a>
<a id='n4633' href='#n4633'>4633</a>
<a id='n4634' href='#n4634'>4634</a>
<a id='n4635' href='#n4635'>4635</a>
<a id='n4636' href='#n4636'>4636</a>
<a id='n4637' href='#n4637'>4637</a>
<a id='n4638' href='#n4638'>4638</a>
<a id='n4639' href='#n4639'>4639</a>
<a id='n4640' href='#n4640'>4640</a>
<a id='n4641' href='#n4641'>4641</a>
<a id='n4642' href='#n4642'>4642</a>
<a id='n4643' href='#n4643'>4643</a>
<a id='n4644' href='#n4644'>4644</a>
<a id='n4645' href='#n4645'>4645</a>
<a id='n4646' href='#n4646'>4646</a>
<a id='n4647' href='#n4647'>4647</a>
<a id='n4648' href='#n4648'>4648</a>
<a id='n4649' href='#n4649'>4649</a>
<a id='n4650' href='#n4650'>4650</a>
<a id='n4651' href='#n4651'>4651</a>
<a id='n4652' href='#n4652'>4652</a>
<a id='n4653' href='#n4653'>4653</a>
<a id='n4654' href='#n4654'>4654</a>
<a id='n4655' href='#n4655'>4655</a>
<a id='n4656' href='#n4656'>4656</a>
<a id='n4657' href='#n4657'>4657</a>
<a id='n4658' href='#n4658'>4658</a>
<a id='n4659' href='#n4659'>4659</a>
<a id='n4660' href='#n4660'>4660</a>
<a id='n4661' href='#n4661'>4661</a>
<a id='n4662' href='#n4662'>4662</a>
<a id='n4663' href='#n4663'>4663</a>
<a id='n4664' href='#n4664'>4664</a>
<a id='n4665' href='#n4665'>4665</a>
<a id='n4666' href='#n4666'>4666</a>
<a id='n4667' href='#n4667'>4667</a>
<a id='n4668' href='#n4668'>4668</a>
<a id='n4669' href='#n4669'>4669</a>
<a id='n4670' href='#n4670'>4670</a>
<a id='n4671' href='#n4671'>4671</a>
<a id='n4672' href='#n4672'>4672</a>
<a id='n4673' href='#n4673'>4673</a>
<a id='n4674' href='#n4674'>4674</a>
<a id='n4675' href='#n4675'>4675</a>
<a id='n4676' href='#n4676'>4676</a>
<a id='n4677' href='#n4677'>4677</a>
<a id='n4678' href='#n4678'>4678</a>
<a id='n4679' href='#n4679'>4679</a>
<a id='n4680' href='#n4680'>4680</a>
<a id='n4681' href='#n4681'>4681</a>
<a id='n4682' href='#n4682'>4682</a>
<a id='n4683' href='#n4683'>4683</a>
<a id='n4684' href='#n4684'>4684</a>
<a id='n4685' href='#n4685'>4685</a>
<a id='n4686' href='#n4686'>4686</a>
<a id='n4687' href='#n4687'>4687</a>
<a id='n4688' href='#n4688'>4688</a>
<a id='n4689' href='#n4689'>4689</a>
<a id='n4690' href='#n4690'>4690</a>
<a id='n4691' href='#n4691'>4691</a>
<a id='n4692' href='#n4692'>4692</a>
<a id='n4693' href='#n4693'>4693</a>
<a id='n4694' href='#n4694'>4694</a>
<a id='n4695' href='#n4695'>4695</a>
<a id='n4696' href='#n4696'>4696</a>
<a id='n4697' href='#n4697'>4697</a>
<a id='n4698' href='#n4698'>4698</a>
<a id='n4699' href='#n4699'>4699</a>
<a id='n4700' href='#n4700'>4700</a>
<a id='n4701' href='#n4701'>4701</a>
<a id='n4702' href='#n4702'>4702</a>
<a id='n4703' href='#n4703'>4703</a>
<a id='n4704' href='#n4704'>4704</a>
<a id='n4705' href='#n4705'>4705</a>
<a id='n4706' href='#n4706'>4706</a>
<a id='n4707' href='#n4707'>4707</a>
<a id='n4708' href='#n4708'>4708</a>
<a id='n4709' href='#n4709'>4709</a>
<a id='n4710' href='#n4710'>4710</a>
<a id='n4711' href='#n4711'>4711</a>
<a id='n4712' href='#n4712'>4712</a>
<a id='n4713' href='#n4713'>4713</a>
<a id='n4714' href='#n4714'>4714</a>
<a id='n4715' href='#n4715'>4715</a>
<a id='n4716' href='#n4716'>4716</a>
<a id='n4717' href='#n4717'>4717</a>
<a id='n4718' href='#n4718'>4718</a>
<a id='n4719' href='#n4719'>4719</a>
<a id='n4720' href='#n4720'>4720</a>
<a id='n4721' href='#n4721'>4721</a>
<a id='n4722' href='#n4722'>4722</a>
<a id='n4723' href='#n4723'>4723</a>
<a id='n4724' href='#n4724'>4724</a>
<a id='n4725' href='#n4725'>4725</a>
<a id='n4726' href='#n4726'>4726</a>
<a id='n4727' href='#n4727'>4727</a>
<a id='n4728' href='#n4728'>4728</a>
<a id='n4729' href='#n4729'>4729</a>
<a id='n4730' href='#n4730'>4730</a>
<a id='n4731' href='#n4731'>4731</a>
<a id='n4732' href='#n4732'>4732</a>
<a id='n4733' href='#n4733'>4733</a>
<a id='n4734' href='#n4734'>4734</a>
<a id='n4735' href='#n4735'>4735</a>
<a id='n4736' href='#n4736'>4736</a>
<a id='n4737' href='#n4737'>4737</a>
<a id='n4738' href='#n4738'>4738</a>
<a id='n4739' href='#n4739'>4739</a>
<a id='n4740' href='#n4740'>4740</a>
<a id='n4741' href='#n4741'>4741</a>
<a id='n4742' href='#n4742'>4742</a>
<a id='n4743' href='#n4743'>4743</a>
<a id='n4744' href='#n4744'>4744</a>
<a id='n4745' href='#n4745'>4745</a>
<a id='n4746' href='#n4746'>4746</a>
<a id='n4747' href='#n4747'>4747</a>
<a id='n4748' href='#n4748'>4748</a>
<a id='n4749' href='#n4749'>4749</a>
<a id='n4750' href='#n4750'>4750</a>
<a id='n4751' href='#n4751'>4751</a>
<a id='n4752' href='#n4752'>4752</a>
<a id='n4753' href='#n4753'>4753</a>
<a id='n4754' href='#n4754'>4754</a>
<a id='n4755' href='#n4755'>4755</a>
<a id='n4756' href='#n4756'>4756</a>
<a id='n4757' href='#n4757'>4757</a>
<a id='n4758' href='#n4758'>4758</a>
<a id='n4759' href='#n4759'>4759</a>
<a id='n4760' href='#n4760'>4760</a>
<a id='n4761' href='#n4761'>4761</a>
<a id='n4762' href='#n4762'>4762</a>
<a id='n4763' href='#n4763'>4763</a>
<a id='n4764' href='#n4764'>4764</a>
<a id='n4765' href='#n4765'>4765</a>
<a id='n4766' href='#n4766'>4766</a>
<a id='n4767' href='#n4767'>4767</a>
<a id='n4768' href='#n4768'>4768</a>
<a id='n4769' href='#n4769'>4769</a>
<a id='n4770' href='#n4770'>4770</a>
<a id='n4771' href='#n4771'>4771</a>
<a id='n4772' href='#n4772'>4772</a>
<a id='n4773' href='#n4773'>4773</a>
<a id='n4774' href='#n4774'>4774</a>
<a id='n4775' href='#n4775'>4775</a>
<a id='n4776' href='#n4776'>4776</a>
<a id='n4777' href='#n4777'>4777</a>
<a id='n4778' href='#n4778'>4778</a>
<a id='n4779' href='#n4779'>4779</a>
<a id='n4780' href='#n4780'>4780</a>
<a id='n4781' href='#n4781'>4781</a>
<a id='n4782' href='#n4782'>4782</a>
<a id='n4783' href='#n4783'>4783</a>
<a id='n4784' href='#n4784'>4784</a>
<a id='n4785' href='#n4785'>4785</a>
<a id='n4786' href='#n4786'>4786</a>
<a id='n4787' href='#n4787'>4787</a>
<a id='n4788' href='#n4788'>4788</a>
<a id='n4789' href='#n4789'>4789</a>
<a id='n4790' href='#n4790'>4790</a>
<a id='n4791' href='#n4791'>4791</a>
<a id='n4792' href='#n4792'>4792</a>
<a id='n4793' href='#n4793'>4793</a>
<a id='n4794' href='#n4794'>4794</a>
<a id='n4795' href='#n4795'>4795</a>
<a id='n4796' href='#n4796'>4796</a>
<a id='n4797' href='#n4797'>4797</a>
<a id='n4798' href='#n4798'>4798</a>
<a id='n4799' href='#n4799'>4799</a>
<a id='n4800' href='#n4800'>4800</a>
<a id='n4801' href='#n4801'>4801</a>
<a id='n4802' href='#n4802'>4802</a>
<a id='n4803' href='#n4803'>4803</a>
<a id='n4804' href='#n4804'>4804</a>
<a id='n4805' href='#n4805'>4805</a>
<a id='n4806' href='#n4806'>4806</a>
<a id='n4807' href='#n4807'>4807</a>
<a id='n4808' href='#n4808'>4808</a>
<a id='n4809' href='#n4809'>4809</a>
<a id='n4810' href='#n4810'>4810</a>
<a id='n4811' href='#n4811'>4811</a>
<a id='n4812' href='#n4812'>4812</a>
<a id='n4813' href='#n4813'>4813</a>
<a id='n4814' href='#n4814'>4814</a>
<a id='n4815' href='#n4815'>4815</a>
<a id='n4816' href='#n4816'>4816</a>
<a id='n4817' href='#n4817'>4817</a>
<a id='n4818' href='#n4818'>4818</a>
<a id='n4819' href='#n4819'>4819</a>
<a id='n4820' href='#n4820'>4820</a>
<a id='n4821' href='#n4821'>4821</a>
<a id='n4822' href='#n4822'>4822</a>
<a id='n4823' href='#n4823'>4823</a>
<a id='n4824' href='#n4824'>4824</a>
<a id='n4825' href='#n4825'>4825</a>
<a id='n4826' href='#n4826'>4826</a>
<a id='n4827' href='#n4827'>4827</a>
<a id='n4828' href='#n4828'>4828</a>
<a id='n4829' href='#n4829'>4829</a>
<a id='n4830' href='#n4830'>4830</a>
<a id='n4831' href='#n4831'>4831</a>
<a id='n4832' href='#n4832'>4832</a>
<a id='n4833' href='#n4833'>4833</a>
<a id='n4834' href='#n4834'>4834</a>
<a id='n4835' href='#n4835'>4835</a>
<a id='n4836' href='#n4836'>4836</a>
<a id='n4837' href='#n4837'>4837</a>
<a id='n4838' href='#n4838'>4838</a>
<a id='n4839' href='#n4839'>4839</a>
<a id='n4840' href='#n4840'>4840</a>
<a id='n4841' href='#n4841'>4841</a>
<a id='n4842' href='#n4842'>4842</a>
<a id='n4843' href='#n4843'>4843</a>
<a id='n4844' href='#n4844'>4844</a>
<a id='n4845' href='#n4845'>4845</a>
<a id='n4846' href='#n4846'>4846</a>
<a id='n4847' href='#n4847'>4847</a>
<a id='n4848' href='#n4848'>4848</a>
<a id='n4849' href='#n4849'>4849</a>
<a id='n4850' href='#n4850'>4850</a>
<a id='n4851' href='#n4851'>4851</a>
<a id='n4852' href='#n4852'>4852</a>
<a id='n4853' href='#n4853'>4853</a>
<a id='n4854' href='#n4854'>4854</a>
<a id='n4855' href='#n4855'>4855</a>
<a id='n4856' href='#n4856'>4856</a>
<a id='n4857' href='#n4857'>4857</a>
<a id='n4858' href='#n4858'>4858</a>
<a id='n4859' href='#n4859'>4859</a>
<a id='n4860' href='#n4860'>4860</a>
<a id='n4861' href='#n4861'>4861</a>
<a id='n4862' href='#n4862'>4862</a>
<a id='n4863' href='#n4863'>4863</a>
<a id='n4864' href='#n4864'>4864</a>
<a id='n4865' href='#n4865'>4865</a>
<a id='n4866' href='#n4866'>4866</a>
<a id='n4867' href='#n4867'>4867</a>
<a id='n4868' href='#n4868'>4868</a>
<a id='n4869' href='#n4869'>4869</a>
<a id='n4870' href='#n4870'>4870</a>
<a id='n4871' href='#n4871'>4871</a>
<a id='n4872' href='#n4872'>4872</a>
<a id='n4873' href='#n4873'>4873</a>
<a id='n4874' href='#n4874'>4874</a>
<a id='n4875' href='#n4875'>4875</a>
<a id='n4876' href='#n4876'>4876</a>
<a id='n4877' href='#n4877'>4877</a>
<a id='n4878' href='#n4878'>4878</a>
<a id='n4879' href='#n4879'>4879</a>
<a id='n4880' href='#n4880'>4880</a>
<a id='n4881' href='#n4881'>4881</a>
<a id='n4882' href='#n4882'>4882</a>
<a id='n4883' href='#n4883'>4883</a>
<a id='n4884' href='#n4884'>4884</a>
<a id='n4885' href='#n4885'>4885</a>
<a id='n4886' href='#n4886'>4886</a>
<a id='n4887' href='#n4887'>4887</a>
<a id='n4888' href='#n4888'>4888</a>
<a id='n4889' href='#n4889'>4889</a>
<a id='n4890' href='#n4890'>4890</a>
<a id='n4891' href='#n4891'>4891</a>
<a id='n4892' href='#n4892'>4892</a>
<a id='n4893' href='#n4893'>4893</a>
<a id='n4894' href='#n4894'>4894</a>
<a id='n4895' href='#n4895'>4895</a>
<a id='n4896' href='#n4896'>4896</a>
<a id='n4897' href='#n4897'>4897</a>
<a id='n4898' href='#n4898'>4898</a>
<a id='n4899' href='#n4899'>4899</a>
<a id='n4900' href='#n4900'>4900</a>
<a id='n4901' href='#n4901'>4901</a>
<a id='n4902' href='#n4902'>4902</a>
<a id='n4903' href='#n4903'>4903</a>
<a id='n4904' href='#n4904'>4904</a>
<a id='n4905' href='#n4905'>4905</a>
<a id='n4906' href='#n4906'>4906</a>
<a id='n4907' href='#n4907'>4907</a>
<a id='n4908' href='#n4908'>4908</a>
<a id='n4909' href='#n4909'>4909</a>
<a id='n4910' href='#n4910'>4910</a>
<a id='n4911' href='#n4911'>4911</a>
<a id='n4912' href='#n4912'>4912</a>
<a id='n4913' href='#n4913'>4913</a>
<a id='n4914' href='#n4914'>4914</a>
<a id='n4915' href='#n4915'>4915</a>
<a id='n4916' href='#n4916'>4916</a>
<a id='n4917' href='#n4917'>4917</a>
<a id='n4918' href='#n4918'>4918</a>
<a id='n4919' href='#n4919'>4919</a>
<a id='n4920' href='#n4920'>4920</a>
<a id='n4921' href='#n4921'>4921</a>
<a id='n4922' href='#n4922'>4922</a>
<a id='n4923' href='#n4923'>4923</a>
<a id='n4924' href='#n4924'>4924</a>
<a id='n4925' href='#n4925'>4925</a>
<a id='n4926' href='#n4926'>4926</a>
<a id='n4927' href='#n4927'>4927</a>
<a id='n4928' href='#n4928'>4928</a>
<a id='n4929' href='#n4929'>4929</a>
<a id='n4930' href='#n4930'>4930</a>
<a id='n4931' href='#n4931'>4931</a>
<a id='n4932' href='#n4932'>4932</a>
<a id='n4933' href='#n4933'>4933</a>
<a id='n4934' href='#n4934'>4934</a>
<a id='n4935' href='#n4935'>4935</a>
<a id='n4936' href='#n4936'>4936</a>
<a id='n4937' href='#n4937'>4937</a>
<a id='n4938' href='#n4938'>4938</a>
<a id='n4939' href='#n4939'>4939</a>
<a id='n4940' href='#n4940'>4940</a>
<a id='n4941' href='#n4941'>4941</a>
<a id='n4942' href='#n4942'>4942</a>
<a id='n4943' href='#n4943'>4943</a>
<a id='n4944' href='#n4944'>4944</a>
<a id='n4945' href='#n4945'>4945</a>
<a id='n4946' href='#n4946'>4946</a>
<a id='n4947' href='#n4947'>4947</a>
<a id='n4948' href='#n4948'>4948</a>
<a id='n4949' href='#n4949'>4949</a>
<a id='n4950' href='#n4950'>4950</a>
<a id='n4951' href='#n4951'>4951</a>
<a id='n4952' href='#n4952'>4952</a>
<a id='n4953' href='#n4953'>4953</a>
<a id='n4954' href='#n4954'>4954</a>
<a id='n4955' href='#n4955'>4955</a>
<a id='n4956' href='#n4956'>4956</a>
<a id='n4957' href='#n4957'>4957</a>
<a id='n4958' href='#n4958'>4958</a>
<a id='n4959' href='#n4959'>4959</a>
<a id='n4960' href='#n4960'>4960</a>
<a id='n4961' href='#n4961'>4961</a>
<a id='n4962' href='#n4962'>4962</a>
<a id='n4963' href='#n4963'>4963</a>
<a id='n4964' href='#n4964'>4964</a>
<a id='n4965' href='#n4965'>4965</a>
<a id='n4966' href='#n4966'>4966</a>
<a id='n4967' href='#n4967'>4967</a>
<a id='n4968' href='#n4968'>4968</a>
<a id='n4969' href='#n4969'>4969</a>
<a id='n4970' href='#n4970'>4970</a>
<a id='n4971' href='#n4971'>4971</a>
<a id='n4972' href='#n4972'>4972</a>
<a id='n4973' href='#n4973'>4973</a>
<a id='n4974' href='#n4974'>4974</a>
<a id='n4975' href='#n4975'>4975</a>
<a id='n4976' href='#n4976'>4976</a>
<a id='n4977' href='#n4977'>4977</a>
<a id='n4978' href='#n4978'>4978</a>
<a id='n4979' href='#n4979'>4979</a>
<a id='n4980' href='#n4980'>4980</a>
<a id='n4981' href='#n4981'>4981</a>
<a id='n4982' href='#n4982'>4982</a>
<a id='n4983' href='#n4983'>4983</a>
<a id='n4984' href='#n4984'>4984</a>
<a id='n4985' href='#n4985'>4985</a>
<a id='n4986' href='#n4986'>4986</a>
<a id='n4987' href='#n4987'>4987</a>
<a id='n4988' href='#n4988'>4988</a>
<a id='n4989' href='#n4989'>4989</a>
<a id='n4990' href='#n4990'>4990</a>
<a id='n4991' href='#n4991'>4991</a>
<a id='n4992' href='#n4992'>4992</a>
<a id='n4993' href='#n4993'>4993</a>
<a id='n4994' href='#n4994'>4994</a>
<a id='n4995' href='#n4995'>4995</a>
<a id='n4996' href='#n4996'>4996</a>
<a id='n4997' href='#n4997'>4997</a>
<a id='n4998' href='#n4998'>4998</a>
<a id='n4999' href='#n4999'>4999</a>
<a id='n5000' href='#n5000'>5000</a>
<a id='n5001' href='#n5001'>5001</a>
<a id='n5002' href='#n5002'>5002</a>
<a id='n5003' href='#n5003'>5003</a>
<a id='n5004' href='#n5004'>5004</a>
<a id='n5005' href='#n5005'>5005</a>
<a id='n5006' href='#n5006'>5006</a>
<a id='n5007' href='#n5007'>5007</a>
<a id='n5008' href='#n5008'>5008</a>
<a id='n5009' href='#n5009'>5009</a>
<a id='n5010' href='#n5010'>5010</a>
<a id='n5011' href='#n5011'>5011</a>
<a id='n5012' href='#n5012'>5012</a>
<a id='n5013' href='#n5013'>5013</a>
<a id='n5014' href='#n5014'>5014</a>
<a id='n5015' href='#n5015'>5015</a>
<a id='n5016' href='#n5016'>5016</a>
<a id='n5017' href='#n5017'>5017</a>
<a id='n5018' href='#n5018'>5018</a>
<a id='n5019' href='#n5019'>5019</a>
<a id='n5020' href='#n5020'>5020</a>
<a id='n5021' href='#n5021'>5021</a>
<a id='n5022' href='#n5022'>5022</a>
<a id='n5023' href='#n5023'>5023</a>
<a id='n5024' href='#n5024'>5024</a>
<a id='n5025' href='#n5025'>5025</a>
<a id='n5026' href='#n5026'>5026</a>
<a id='n5027' href='#n5027'>5027</a>
<a id='n5028' href='#n5028'>5028</a>
<a id='n5029' href='#n5029'>5029</a>
<a id='n5030' href='#n5030'>5030</a>
<a id='n5031' href='#n5031'>5031</a>
<a id='n5032' href='#n5032'>5032</a>
<a id='n5033' href='#n5033'>5033</a>
<a id='n5034' href='#n5034'>5034</a>
<a id='n5035' href='#n5035'>5035</a>
<a id='n5036' href='#n5036'>5036</a>
<a id='n5037' href='#n5037'>5037</a>
<a id='n5038' href='#n5038'>5038</a>
<a id='n5039' href='#n5039'>5039</a>
<a id='n5040' href='#n5040'>5040</a>
<a id='n5041' href='#n5041'>5041</a>
<a id='n5042' href='#n5042'>5042</a>
<a id='n5043' href='#n5043'>5043</a>
<a id='n5044' href='#n5044'>5044</a>
<a id='n5045' href='#n5045'>5045</a>
<a id='n5046' href='#n5046'>5046</a>
<a id='n5047' href='#n5047'>5047</a>
<a id='n5048' href='#n5048'>5048</a>
<a id='n5049' href='#n5049'>5049</a>
<a id='n5050' href='#n5050'>5050</a>
<a id='n5051' href='#n5051'>5051</a>
<a id='n5052' href='#n5052'>5052</a>
<a id='n5053' href='#n5053'>5053</a>
<a id='n5054' href='#n5054'>5054</a>
<a id='n5055' href='#n5055'>5055</a>
<a id='n5056' href='#n5056'>5056</a>
<a id='n5057' href='#n5057'>5057</a>
<a id='n5058' href='#n5058'>5058</a>
<a id='n5059' href='#n5059'>5059</a>
<a id='n5060' href='#n5060'>5060</a>
<a id='n5061' href='#n5061'>5061</a>
<a id='n5062' href='#n5062'>5062</a>
<a id='n5063' href='#n5063'>5063</a>
<a id='n5064' href='#n5064'>5064</a>
<a id='n5065' href='#n5065'>5065</a>
<a id='n5066' href='#n5066'>5066</a>
<a id='n5067' href='#n5067'>5067</a>
<a id='n5068' href='#n5068'>5068</a>
<a id='n5069' href='#n5069'>5069</a>
<a id='n5070' href='#n5070'>5070</a>
<a id='n5071' href='#n5071'>5071</a>
<a id='n5072' href='#n5072'>5072</a>
<a id='n5073' href='#n5073'>5073</a>
<a id='n5074' href='#n5074'>5074</a>
<a id='n5075' href='#n5075'>5075</a>
<a id='n5076' href='#n5076'>5076</a>
<a id='n5077' href='#n5077'>5077</a>
<a id='n5078' href='#n5078'>5078</a>
<a id='n5079' href='#n5079'>5079</a>
<a id='n5080' href='#n5080'>5080</a>
<a id='n5081' href='#n5081'>5081</a>
<a id='n5082' href='#n5082'>5082</a>
<a id='n5083' href='#n5083'>5083</a>
<a id='n5084' href='#n5084'>5084</a>
<a id='n5085' href='#n5085'>5085</a>
<a id='n5086' href='#n5086'>5086</a>
<a id='n5087' href='#n5087'>5087</a>
<a id='n5088' href='#n5088'>5088</a>
<a id='n5089' href='#n5089'>5089</a>
<a id='n5090' href='#n5090'>5090</a>
<a id='n5091' href='#n5091'>5091</a>
<a id='n5092' href='#n5092'>5092</a>
<a id='n5093' href='#n5093'>5093</a>
<a id='n5094' href='#n5094'>5094</a>
<a id='n5095' href='#n5095'>5095</a>
<a id='n5096' href='#n5096'>5096</a>
<a id='n5097' href='#n5097'>5097</a>
<a id='n5098' href='#n5098'>5098</a>
<a id='n5099' href='#n5099'>5099</a>
<a id='n5100' href='#n5100'>5100</a>
<a id='n5101' href='#n5101'>5101</a>
<a id='n5102' href='#n5102'>5102</a>
<a id='n5103' href='#n5103'>5103</a>
<a id='n5104' href='#n5104'>5104</a>
<a id='n5105' href='#n5105'>5105</a>
<a id='n5106' href='#n5106'>5106</a>
<a id='n5107' href='#n5107'>5107</a>
<a id='n5108' href='#n5108'>5108</a>
<a id='n5109' href='#n5109'>5109</a>
<a id='n5110' href='#n5110'>5110</a>
<a id='n5111' href='#n5111'>5111</a>
<a id='n5112' href='#n5112'>5112</a>
<a id='n5113' href='#n5113'>5113</a>
<a id='n5114' href='#n5114'>5114</a>
<a id='n5115' href='#n5115'>5115</a>
<a id='n5116' href='#n5116'>5116</a>
<a id='n5117' href='#n5117'>5117</a>
<a id='n5118' href='#n5118'>5118</a>
<a id='n5119' href='#n5119'>5119</a>
<a id='n5120' href='#n5120'>5120</a>
<a id='n5121' href='#n5121'>5121</a>
<a id='n5122' href='#n5122'>5122</a>
<a id='n5123' href='#n5123'>5123</a>
<a id='n5124' href='#n5124'>5124</a>
<a id='n5125' href='#n5125'>5125</a>
<a id='n5126' href='#n5126'>5126</a>
<a id='n5127' href='#n5127'>5127</a>
<a id='n5128' href='#n5128'>5128</a>
<a id='n5129' href='#n5129'>5129</a>
<a id='n5130' href='#n5130'>5130</a>
<a id='n5131' href='#n5131'>5131</a>
<a id='n5132' href='#n5132'>5132</a>
<a id='n5133' href='#n5133'>5133</a>
<a id='n5134' href='#n5134'>5134</a>
<a id='n5135' href='#n5135'>5135</a>
<a id='n5136' href='#n5136'>5136</a>
<a id='n5137' href='#n5137'>5137</a>
<a id='n5138' href='#n5138'>5138</a>
<a id='n5139' href='#n5139'>5139</a>
<a id='n5140' href='#n5140'>5140</a>
<a id='n5141' href='#n5141'>5141</a>
<a id='n5142' href='#n5142'>5142</a>
<a id='n5143' href='#n5143'>5143</a>
<a id='n5144' href='#n5144'>5144</a>
<a id='n5145' href='#n5145'>5145</a>
<a id='n5146' href='#n5146'>5146</a>
<a id='n5147' href='#n5147'>5147</a>
<a id='n5148' href='#n5148'>5148</a>
<a id='n5149' href='#n5149'>5149</a>
<a id='n5150' href='#n5150'>5150</a>
<a id='n5151' href='#n5151'>5151</a>
<a id='n5152' href='#n5152'>5152</a>
<a id='n5153' href='#n5153'>5153</a>
<a id='n5154' href='#n5154'>5154</a>
<a id='n5155' href='#n5155'>5155</a>
<a id='n5156' href='#n5156'>5156</a>
<a id='n5157' href='#n5157'>5157</a>
<a id='n5158' href='#n5158'>5158</a>
<a id='n5159' href='#n5159'>5159</a>
<a id='n5160' href='#n5160'>5160</a>
<a id='n5161' href='#n5161'>5161</a>
<a id='n5162' href='#n5162'>5162</a>
<a id='n5163' href='#n5163'>5163</a>
<a id='n5164' href='#n5164'>5164</a>
<a id='n5165' href='#n5165'>5165</a>
<a id='n5166' href='#n5166'>5166</a>
<a id='n5167' href='#n5167'>5167</a>
<a id='n5168' href='#n5168'>5168</a>
<a id='n5169' href='#n5169'>5169</a>
<a id='n5170' href='#n5170'>5170</a>
<a id='n5171' href='#n5171'>5171</a>
<a id='n5172' href='#n5172'>5172</a>
<a id='n5173' href='#n5173'>5173</a>
<a id='n5174' href='#n5174'>5174</a>
<a id='n5175' href='#n5175'>5175</a>
<a id='n5176' href='#n5176'>5176</a>
<a id='n5177' href='#n5177'>5177</a>
<a id='n5178' href='#n5178'>5178</a>
<a id='n5179' href='#n5179'>5179</a>
<a id='n5180' href='#n5180'>5180</a>
<a id='n5181' href='#n5181'>5181</a>
<a id='n5182' href='#n5182'>5182</a>
<a id='n5183' href='#n5183'>5183</a>
<a id='n5184' href='#n5184'>5184</a>
<a id='n5185' href='#n5185'>5185</a>
<a id='n5186' href='#n5186'>5186</a>
<a id='n5187' href='#n5187'>5187</a>
<a id='n5188' href='#n5188'>5188</a>
<a id='n5189' href='#n5189'>5189</a>
<a id='n5190' href='#n5190'>5190</a>
<a id='n5191' href='#n5191'>5191</a>
<a id='n5192' href='#n5192'>5192</a>
<a id='n5193' href='#n5193'>5193</a>
<a id='n5194' href='#n5194'>5194</a>
<a id='n5195' href='#n5195'>5195</a>
<a id='n5196' href='#n5196'>5196</a>
<a id='n5197' href='#n5197'>5197</a>
<a id='n5198' href='#n5198'>5198</a>
<a id='n5199' href='#n5199'>5199</a>
<a id='n5200' href='#n5200'>5200</a>
<a id='n5201' href='#n5201'>5201</a>
<a id='n5202' href='#n5202'>5202</a>
<a id='n5203' href='#n5203'>5203</a>
<a id='n5204' href='#n5204'>5204</a>
<a id='n5205' href='#n5205'>5205</a>
<a id='n5206' href='#n5206'>5206</a>
<a id='n5207' href='#n5207'>5207</a>
<a id='n5208' href='#n5208'>5208</a>
<a id='n5209' href='#n5209'>5209</a>
<a id='n5210' href='#n5210'>5210</a>
<a id='n5211' href='#n5211'>5211</a>
<a id='n5212' href='#n5212'>5212</a>
<a id='n5213' href='#n5213'>5213</a>
<a id='n5214' href='#n5214'>5214</a>
<a id='n5215' href='#n5215'>5215</a>
<a id='n5216' href='#n5216'>5216</a>
<a id='n5217' href='#n5217'>5217</a>
<a id='n5218' href='#n5218'>5218</a>
<a id='n5219' href='#n5219'>5219</a>
<a id='n5220' href='#n5220'>5220</a>
<a id='n5221' href='#n5221'>5221</a>
<a id='n5222' href='#n5222'>5222</a>
<a id='n5223' href='#n5223'>5223</a>
<a id='n5224' href='#n5224'>5224</a>
<a id='n5225' href='#n5225'>5225</a>
<a id='n5226' href='#n5226'>5226</a>
<a id='n5227' href='#n5227'>5227</a>
<a id='n5228' href='#n5228'>5228</a>
<a id='n5229' href='#n5229'>5229</a>
<a id='n5230' href='#n5230'>5230</a>
<a id='n5231' href='#n5231'>5231</a>
<a id='n5232' href='#n5232'>5232</a>
<a id='n5233' href='#n5233'>5233</a>
<a id='n5234' href='#n5234'>5234</a>
<a id='n5235' href='#n5235'>5235</a>
<a id='n5236' href='#n5236'>5236</a>
<a id='n5237' href='#n5237'>5237</a>
<a id='n5238' href='#n5238'>5238</a>
<a id='n5239' href='#n5239'>5239</a>
<a id='n5240' href='#n5240'>5240</a>
<a id='n5241' href='#n5241'>5241</a>
<a id='n5242' href='#n5242'>5242</a>
<a id='n5243' href='#n5243'>5243</a>
<a id='n5244' href='#n5244'>5244</a>
<a id='n5245' href='#n5245'>5245</a>
<a id='n5246' href='#n5246'>5246</a>
<a id='n5247' href='#n5247'>5247</a>
<a id='n5248' href='#n5248'>5248</a>
<a id='n5249' href='#n5249'>5249</a>
<a id='n5250' href='#n5250'>5250</a>
<a id='n5251' href='#n5251'>5251</a>
<a id='n5252' href='#n5252'>5252</a>
<a id='n5253' href='#n5253'>5253</a>
<a id='n5254' href='#n5254'>5254</a>
<a id='n5255' href='#n5255'>5255</a>
<a id='n5256' href='#n5256'>5256</a>
<a id='n5257' href='#n5257'>5257</a>
<a id='n5258' href='#n5258'>5258</a>
<a id='n5259' href='#n5259'>5259</a>
<a id='n5260' href='#n5260'>5260</a>
<a id='n5261' href='#n5261'>5261</a>
<a id='n5262' href='#n5262'>5262</a>
<a id='n5263' href='#n5263'>5263</a>
<a id='n5264' href='#n5264'>5264</a>
<a id='n5265' href='#n5265'>5265</a>
<a id='n5266' href='#n5266'>5266</a>
<a id='n5267' href='#n5267'>5267</a>
<a id='n5268' href='#n5268'>5268</a>
<a id='n5269' href='#n5269'>5269</a>
<a id='n5270' href='#n5270'>5270</a>
<a id='n5271' href='#n5271'>5271</a>
<a id='n5272' href='#n5272'>5272</a>
<a id='n5273' href='#n5273'>5273</a>
<a id='n5274' href='#n5274'>5274</a>
<a id='n5275' href='#n5275'>5275</a>
<a id='n5276' href='#n5276'>5276</a>
<a id='n5277' href='#n5277'>5277</a>
<a id='n5278' href='#n5278'>5278</a>
<a id='n5279' href='#n5279'>5279</a>
<a id='n5280' href='#n5280'>5280</a>
<a id='n5281' href='#n5281'>5281</a>
<a id='n5282' href='#n5282'>5282</a>
<a id='n5283' href='#n5283'>5283</a>
<a id='n5284' href='#n5284'>5284</a>
<a id='n5285' href='#n5285'>5285</a>
<a id='n5286' href='#n5286'>5286</a>
<a id='n5287' href='#n5287'>5287</a>
<a id='n5288' href='#n5288'>5288</a>
<a id='n5289' href='#n5289'>5289</a>
<a id='n5290' href='#n5290'>5290</a>
<a id='n5291' href='#n5291'>5291</a>
<a id='n5292' href='#n5292'>5292</a>
<a id='n5293' href='#n5293'>5293</a>
<a id='n5294' href='#n5294'>5294</a>
<a id='n5295' href='#n5295'>5295</a>
<a id='n5296' href='#n5296'>5296</a>
<a id='n5297' href='#n5297'>5297</a>
<a id='n5298' href='#n5298'>5298</a>
<a id='n5299' href='#n5299'>5299</a>
<a id='n5300' href='#n5300'>5300</a>
<a id='n5301' href='#n5301'>5301</a>
<a id='n5302' href='#n5302'>5302</a>
<a id='n5303' href='#n5303'>5303</a>
<a id='n5304' href='#n5304'>5304</a>
<a id='n5305' href='#n5305'>5305</a>
<a id='n5306' href='#n5306'>5306</a>
<a id='n5307' href='#n5307'>5307</a>
<a id='n5308' href='#n5308'>5308</a>
<a id='n5309' href='#n5309'>5309</a>
<a id='n5310' href='#n5310'>5310</a>
<a id='n5311' href='#n5311'>5311</a>
<a id='n5312' href='#n5312'>5312</a>
<a id='n5313' href='#n5313'>5313</a>
<a id='n5314' href='#n5314'>5314</a>
<a id='n5315' href='#n5315'>5315</a>
<a id='n5316' href='#n5316'>5316</a>
<a id='n5317' href='#n5317'>5317</a>
<a id='n5318' href='#n5318'>5318</a>
<a id='n5319' href='#n5319'>5319</a>
<a id='n5320' href='#n5320'>5320</a>
<a id='n5321' href='#n5321'>5321</a>
<a id='n5322' href='#n5322'>5322</a>
<a id='n5323' href='#n5323'>5323</a>
<a id='n5324' href='#n5324'>5324</a>
<a id='n5325' href='#n5325'>5325</a>
<a id='n5326' href='#n5326'>5326</a>
<a id='n5327' href='#n5327'>5327</a>
<a id='n5328' href='#n5328'>5328</a>
<a id='n5329' href='#n5329'>5329</a>
<a id='n5330' href='#n5330'>5330</a>
<a id='n5331' href='#n5331'>5331</a>
<a id='n5332' href='#n5332'>5332</a>
<a id='n5333' href='#n5333'>5333</a>
<a id='n5334' href='#n5334'>5334</a>
<a id='n5335' href='#n5335'>5335</a>
<a id='n5336' href='#n5336'>5336</a>
<a id='n5337' href='#n5337'>5337</a>
<a id='n5338' href='#n5338'>5338</a>
<a id='n5339' href='#n5339'>5339</a>
<a id='n5340' href='#n5340'>5340</a>
<a id='n5341' href='#n5341'>5341</a>
<a id='n5342' href='#n5342'>5342</a>
<a id='n5343' href='#n5343'>5343</a>
<a id='n5344' href='#n5344'>5344</a>
<a id='n5345' href='#n5345'>5345</a>
<a id='n5346' href='#n5346'>5346</a>
<a id='n5347' href='#n5347'>5347</a>
<a id='n5348' href='#n5348'>5348</a>
<a id='n5349' href='#n5349'>5349</a>
<a id='n5350' href='#n5350'>5350</a>
<a id='n5351' href='#n5351'>5351</a>
<a id='n5352' href='#n5352'>5352</a>
<a id='n5353' href='#n5353'>5353</a>
<a id='n5354' href='#n5354'>5354</a>
<a id='n5355' href='#n5355'>5355</a>
<a id='n5356' href='#n5356'>5356</a>
<a id='n5357' href='#n5357'>5357</a>
<a id='n5358' href='#n5358'>5358</a>
<a id='n5359' href='#n5359'>5359</a>
<a id='n5360' href='#n5360'>5360</a>
<a id='n5361' href='#n5361'>5361</a>
<a id='n5362' href='#n5362'>5362</a>
<a id='n5363' href='#n5363'>5363</a>
<a id='n5364' href='#n5364'>5364</a>
<a id='n5365' href='#n5365'>5365</a>
<a id='n5366' href='#n5366'>5366</a>
<a id='n5367' href='#n5367'>5367</a>
<a id='n5368' href='#n5368'>5368</a>
<a id='n5369' href='#n5369'>5369</a>
<a id='n5370' href='#n5370'>5370</a>
<a id='n5371' href='#n5371'>5371</a>
<a id='n5372' href='#n5372'>5372</a>
<a id='n5373' href='#n5373'>5373</a>
<a id='n5374' href='#n5374'>5374</a>
<a id='n5375' href='#n5375'>5375</a>
<a id='n5376' href='#n5376'>5376</a>
<a id='n5377' href='#n5377'>5377</a>
<a id='n5378' href='#n5378'>5378</a>
<a id='n5379' href='#n5379'>5379</a>
<a id='n5380' href='#n5380'>5380</a>
<a id='n5381' href='#n5381'>5381</a>
<a id='n5382' href='#n5382'>5382</a>
<a id='n5383' href='#n5383'>5383</a>
<a id='n5384' href='#n5384'>5384</a>
<a id='n5385' href='#n5385'>5385</a>
<a id='n5386' href='#n5386'>5386</a>
<a id='n5387' href='#n5387'>5387</a>
<a id='n5388' href='#n5388'>5388</a>
<a id='n5389' href='#n5389'>5389</a>
<a id='n5390' href='#n5390'>5390</a>
<a id='n5391' href='#n5391'>5391</a>
<a id='n5392' href='#n5392'>5392</a>
<a id='n5393' href='#n5393'>5393</a>
<a id='n5394' href='#n5394'>5394</a>
<a id='n5395' href='#n5395'>5395</a>
<a id='n5396' href='#n5396'>5396</a>
<a id='n5397' href='#n5397'>5397</a>
<a id='n5398' href='#n5398'>5398</a>
<a id='n5399' href='#n5399'>5399</a>
<a id='n5400' href='#n5400'>5400</a>
<a id='n5401' href='#n5401'>5401</a>
<a id='n5402' href='#n5402'>5402</a>
<a id='n5403' href='#n5403'>5403</a>
<a id='n5404' href='#n5404'>5404</a>
<a id='n5405' href='#n5405'>5405</a>
<a id='n5406' href='#n5406'>5406</a>
<a id='n5407' href='#n5407'>5407</a>
<a id='n5408' href='#n5408'>5408</a>
<a id='n5409' href='#n5409'>5409</a>
<a id='n5410' href='#n5410'>5410</a>
<a id='n5411' href='#n5411'>5411</a>
<a id='n5412' href='#n5412'>5412</a>
<a id='n5413' href='#n5413'>5413</a>
<a id='n5414' href='#n5414'>5414</a>
<a id='n5415' href='#n5415'>5415</a>
<a id='n5416' href='#n5416'>5416</a>
<a id='n5417' href='#n5417'>5417</a>
<a id='n5418' href='#n5418'>5418</a>
<a id='n5419' href='#n5419'>5419</a>
<a id='n5420' href='#n5420'>5420</a>
<a id='n5421' href='#n5421'>5421</a>
<a id='n5422' href='#n5422'>5422</a>
<a id='n5423' href='#n5423'>5423</a>
<a id='n5424' href='#n5424'>5424</a>
<a id='n5425' href='#n5425'>5425</a>
<a id='n5426' href='#n5426'>5426</a>
<a id='n5427' href='#n5427'>5427</a>
<a id='n5428' href='#n5428'>5428</a>
<a id='n5429' href='#n5429'>5429</a>
<a id='n5430' href='#n5430'>5430</a>
<a id='n5431' href='#n5431'>5431</a>
<a id='n5432' href='#n5432'>5432</a>
<a id='n5433' href='#n5433'>5433</a>
<a id='n5434' href='#n5434'>5434</a>
<a id='n5435' href='#n5435'>5435</a>
<a id='n5436' href='#n5436'>5436</a>
<a id='n5437' href='#n5437'>5437</a>
<a id='n5438' href='#n5438'>5438</a>
<a id='n5439' href='#n5439'>5439</a>
<a id='n5440' href='#n5440'>5440</a>
<a id='n5441' href='#n5441'>5441</a>
<a id='n5442' href='#n5442'>5442</a>
<a id='n5443' href='#n5443'>5443</a>
<a id='n5444' href='#n5444'>5444</a>
<a id='n5445' href='#n5445'>5445</a>
<a id='n5446' href='#n5446'>5446</a>
<a id='n5447' href='#n5447'>5447</a>
<a id='n5448' href='#n5448'>5448</a>
<a id='n5449' href='#n5449'>5449</a>
<a id='n5450' href='#n5450'>5450</a>
<a id='n5451' href='#n5451'>5451</a>
<a id='n5452' href='#n5452'>5452</a>
<a id='n5453' href='#n5453'>5453</a>
<a id='n5454' href='#n5454'>5454</a>
<a id='n5455' href='#n5455'>5455</a>
<a id='n5456' href='#n5456'>5456</a>
<a id='n5457' href='#n5457'>5457</a>
<a id='n5458' href='#n5458'>5458</a>
<a id='n5459' href='#n5459'>5459</a>
<a id='n5460' href='#n5460'>5460</a>
<a id='n5461' href='#n5461'>5461</a>
<a id='n5462' href='#n5462'>5462</a>
<a id='n5463' href='#n5463'>5463</a>
<a id='n5464' href='#n5464'>5464</a>
<a id='n5465' href='#n5465'>5465</a>
<a id='n5466' href='#n5466'>5466</a>
<a id='n5467' href='#n5467'>5467</a>
<a id='n5468' href='#n5468'>5468</a>
<a id='n5469' href='#n5469'>5469</a>
<a id='n5470' href='#n5470'>5470</a>
<a id='n5471' href='#n5471'>5471</a>
<a id='n5472' href='#n5472'>5472</a>
<a id='n5473' href='#n5473'>5473</a>
<a id='n5474' href='#n5474'>5474</a>
<a id='n5475' href='#n5475'>5475</a>
<a id='n5476' href='#n5476'>5476</a>
<a id='n5477' href='#n5477'>5477</a>
<a id='n5478' href='#n5478'>5478</a>
<a id='n5479' href='#n5479'>5479</a>
<a id='n5480' href='#n5480'>5480</a>
<a id='n5481' href='#n5481'>5481</a>
<a id='n5482' href='#n5482'>5482</a>
<a id='n5483' href='#n5483'>5483</a>
<a id='n5484' href='#n5484'>5484</a>
<a id='n5485' href='#n5485'>5485</a>
<a id='n5486' href='#n5486'>5486</a>
<a id='n5487' href='#n5487'>5487</a>
<a id='n5488' href='#n5488'>5488</a>
<a id='n5489' href='#n5489'>5489</a>
<a id='n5490' href='#n5490'>5490</a>
<a id='n5491' href='#n5491'>5491</a>
<a id='n5492' href='#n5492'>5492</a>
<a id='n5493' href='#n5493'>5493</a>
<a id='n5494' href='#n5494'>5494</a>
<a id='n5495' href='#n5495'>5495</a>
<a id='n5496' href='#n5496'>5496</a>
<a id='n5497' href='#n5497'>5497</a>
<a id='n5498' href='#n5498'>5498</a>
<a id='n5499' href='#n5499'>5499</a>
<a id='n5500' href='#n5500'>5500</a>
<a id='n5501' href='#n5501'>5501</a>
<a id='n5502' href='#n5502'>5502</a>
<a id='n5503' href='#n5503'>5503</a>
<a id='n5504' href='#n5504'>5504</a>
<a id='n5505' href='#n5505'>5505</a>
<a id='n5506' href='#n5506'>5506</a>
<a id='n5507' href='#n5507'>5507</a>
<a id='n5508' href='#n5508'>5508</a>
<a id='n5509' href='#n5509'>5509</a>
<a id='n5510' href='#n5510'>5510</a>
<a id='n5511' href='#n5511'>5511</a>
<a id='n5512' href='#n5512'>5512</a>
<a id='n5513' href='#n5513'>5513</a>
<a id='n5514' href='#n5514'>5514</a>
<a id='n5515' href='#n5515'>5515</a>
<a id='n5516' href='#n5516'>5516</a>
<a id='n5517' href='#n5517'>5517</a>
<a id='n5518' href='#n5518'>5518</a>
<a id='n5519' href='#n5519'>5519</a>
<a id='n5520' href='#n5520'>5520</a>
<a id='n5521' href='#n5521'>5521</a>
<a id='n5522' href='#n5522'>5522</a>
<a id='n5523' href='#n5523'>5523</a>
<a id='n5524' href='#n5524'>5524</a>
<a id='n5525' href='#n5525'>5525</a>
<a id='n5526' href='#n5526'>5526</a>
<a id='n5527' href='#n5527'>5527</a>
<a id='n5528' href='#n5528'>5528</a>
<a id='n5529' href='#n5529'>5529</a>
<a id='n5530' href='#n5530'>5530</a>
<a id='n5531' href='#n5531'>5531</a>
<a id='n5532' href='#n5532'>5532</a>
<a id='n5533' href='#n5533'>5533</a>
<a id='n5534' href='#n5534'>5534</a>
<a id='n5535' href='#n5535'>5535</a>
<a id='n5536' href='#n5536'>5536</a>
<a id='n5537' href='#n5537'>5537</a>
<a id='n5538' href='#n5538'>5538</a>
<a id='n5539' href='#n5539'>5539</a>
<a id='n5540' href='#n5540'>5540</a>
<a id='n5541' href='#n5541'>5541</a>
<a id='n5542' href='#n5542'>5542</a>
<a id='n5543' href='#n5543'>5543</a>
<a id='n5544' href='#n5544'>5544</a>
<a id='n5545' href='#n5545'>5545</a>
<a id='n5546' href='#n5546'>5546</a>
<a id='n5547' href='#n5547'>5547</a>
<a id='n5548' href='#n5548'>5548</a>
<a id='n5549' href='#n5549'>5549</a>
<a id='n5550' href='#n5550'>5550</a>
<a id='n5551' href='#n5551'>5551</a>
<a id='n5552' href='#n5552'>5552</a>
<a id='n5553' href='#n5553'>5553</a>
<a id='n5554' href='#n5554'>5554</a>
<a id='n5555' href='#n5555'>5555</a>
<a id='n5556' href='#n5556'>5556</a>
<a id='n5557' href='#n5557'>5557</a>
<a id='n5558' href='#n5558'>5558</a>
<a id='n5559' href='#n5559'>5559</a>
<a id='n5560' href='#n5560'>5560</a>
<a id='n5561' href='#n5561'>5561</a>
<a id='n5562' href='#n5562'>5562</a>
<a id='n5563' href='#n5563'>5563</a>
<a id='n5564' href='#n5564'>5564</a>
<a id='n5565' href='#n5565'>5565</a>
<a id='n5566' href='#n5566'>5566</a>
<a id='n5567' href='#n5567'>5567</a>
<a id='n5568' href='#n5568'>5568</a>
<a id='n5569' href='#n5569'>5569</a>
<a id='n5570' href='#n5570'>5570</a>
<a id='n5571' href='#n5571'>5571</a>
<a id='n5572' href='#n5572'>5572</a>
<a id='n5573' href='#n5573'>5573</a>
<a id='n5574' href='#n5574'>5574</a>
<a id='n5575' href='#n5575'>5575</a>
<a id='n5576' href='#n5576'>5576</a>
<a id='n5577' href='#n5577'>5577</a>
<a id='n5578' href='#n5578'>5578</a>
<a id='n5579' href='#n5579'>5579</a>
<a id='n5580' href='#n5580'>5580</a>
<a id='n5581' href='#n5581'>5581</a>
<a id='n5582' href='#n5582'>5582</a>
<a id='n5583' href='#n5583'>5583</a>
<a id='n5584' href='#n5584'>5584</a>
<a id='n5585' href='#n5585'>5585</a>
<a id='n5586' href='#n5586'>5586</a>
<a id='n5587' href='#n5587'>5587</a>
<a id='n5588' href='#n5588'>5588</a>
<a id='n5589' href='#n5589'>5589</a>
<a id='n5590' href='#n5590'>5590</a>
<a id='n5591' href='#n5591'>5591</a>
<a id='n5592' href='#n5592'>5592</a>
<a id='n5593' href='#n5593'>5593</a>
<a id='n5594' href='#n5594'>5594</a>
<a id='n5595' href='#n5595'>5595</a>
<a id='n5596' href='#n5596'>5596</a>
<a id='n5597' href='#n5597'>5597</a>
<a id='n5598' href='#n5598'>5598</a>
<a id='n5599' href='#n5599'>5599</a>
<a id='n5600' href='#n5600'>5600</a>
<a id='n5601' href='#n5601'>5601</a>
<a id='n5602' href='#n5602'>5602</a>
<a id='n5603' href='#n5603'>5603</a>
<a id='n5604' href='#n5604'>5604</a>
<a id='n5605' href='#n5605'>5605</a>
<a id='n5606' href='#n5606'>5606</a>
<a id='n5607' href='#n5607'>5607</a>
<a id='n5608' href='#n5608'>5608</a>
<a id='n5609' href='#n5609'>5609</a>
<a id='n5610' href='#n5610'>5610</a>
<a id='n5611' href='#n5611'>5611</a>
<a id='n5612' href='#n5612'>5612</a>
<a id='n5613' href='#n5613'>5613</a>
<a id='n5614' href='#n5614'>5614</a>
<a id='n5615' href='#n5615'>5615</a>
<a id='n5616' href='#n5616'>5616</a>
<a id='n5617' href='#n5617'>5617</a>
<a id='n5618' href='#n5618'>5618</a>
<a id='n5619' href='#n5619'>5619</a>
<a id='n5620' href='#n5620'>5620</a>
<a id='n5621' href='#n5621'>5621</a>
<a id='n5622' href='#n5622'>5622</a>
<a id='n5623' href='#n5623'>5623</a>
<a id='n5624' href='#n5624'>5624</a>
<a id='n5625' href='#n5625'>5625</a>
<a id='n5626' href='#n5626'>5626</a>
<a id='n5627' href='#n5627'>5627</a>
<a id='n5628' href='#n5628'>5628</a>
<a id='n5629' href='#n5629'>5629</a>
<a id='n5630' href='#n5630'>5630</a>
<a id='n5631' href='#n5631'>5631</a>
<a id='n5632' href='#n5632'>5632</a>
<a id='n5633' href='#n5633'>5633</a>
<a id='n5634' href='#n5634'>5634</a>
<a id='n5635' href='#n5635'>5635</a>
<a id='n5636' href='#n5636'>5636</a>
<a id='n5637' href='#n5637'>5637</a>
<a id='n5638' href='#n5638'>5638</a>
<a id='n5639' href='#n5639'>5639</a>
<a id='n5640' href='#n5640'>5640</a>
<a id='n5641' href='#n5641'>5641</a>
<a id='n5642' href='#n5642'>5642</a>
<a id='n5643' href='#n5643'>5643</a>
<a id='n5644' href='#n5644'>5644</a>
<a id='n5645' href='#n5645'>5645</a>
<a id='n5646' href='#n5646'>5646</a>
<a id='n5647' href='#n5647'>5647</a>
<a id='n5648' href='#n5648'>5648</a>
<a id='n5649' href='#n5649'>5649</a>
<a id='n5650' href='#n5650'>5650</a>
<a id='n5651' href='#n5651'>5651</a>
<a id='n5652' href='#n5652'>5652</a>
<a id='n5653' href='#n5653'>5653</a>
<a id='n5654' href='#n5654'>5654</a>
<a id='n5655' href='#n5655'>5655</a>
<a id='n5656' href='#n5656'>5656</a>
<a id='n5657' href='#n5657'>5657</a>
<a id='n5658' href='#n5658'>5658</a>
<a id='n5659' href='#n5659'>5659</a>
<a id='n5660' href='#n5660'>5660</a>
<a id='n5661' href='#n5661'>5661</a>
<a id='n5662' href='#n5662'>5662</a>
<a id='n5663' href='#n5663'>5663</a>
<a id='n5664' href='#n5664'>5664</a>
<a id='n5665' href='#n5665'>5665</a>
<a id='n5666' href='#n5666'>5666</a>
<a id='n5667' href='#n5667'>5667</a>
<a id='n5668' href='#n5668'>5668</a>
<a id='n5669' href='#n5669'>5669</a>
<a id='n5670' href='#n5670'>5670</a>
<a id='n5671' href='#n5671'>5671</a>
<a id='n5672' href='#n5672'>5672</a>
<a id='n5673' href='#n5673'>5673</a>
<a id='n5674' href='#n5674'>5674</a>
<a id='n5675' href='#n5675'>5675</a>
<a id='n5676' href='#n5676'>5676</a>
<a id='n5677' href='#n5677'>5677</a>
<a id='n5678' href='#n5678'>5678</a>
<a id='n5679' href='#n5679'>5679</a>
<a id='n5680' href='#n5680'>5680</a>
<a id='n5681' href='#n5681'>5681</a>
<a id='n5682' href='#n5682'>5682</a>
<a id='n5683' href='#n5683'>5683</a>
<a id='n5684' href='#n5684'>5684</a>
<a id='n5685' href='#n5685'>5685</a>
<a id='n5686' href='#n5686'>5686</a>
<a id='n5687' href='#n5687'>5687</a>
<a id='n5688' href='#n5688'>5688</a>
<a id='n5689' href='#n5689'>5689</a>
<a id='n5690' href='#n5690'>5690</a>
<a id='n5691' href='#n5691'>5691</a>
<a id='n5692' href='#n5692'>5692</a>
<a id='n5693' href='#n5693'>5693</a>
<a id='n5694' href='#n5694'>5694</a>
<a id='n5695' href='#n5695'>5695</a>
<a id='n5696' href='#n5696'>5696</a>
<a id='n5697' href='#n5697'>5697</a>
<a id='n5698' href='#n5698'>5698</a>
<a id='n5699' href='#n5699'>5699</a>
<a id='n5700' href='#n5700'>5700</a>
<a id='n5701' href='#n5701'>5701</a>
<a id='n5702' href='#n5702'>5702</a>
<a id='n5703' href='#n5703'>5703</a>
<a id='n5704' href='#n5704'>5704</a>
<a id='n5705' href='#n5705'>5705</a>
<a id='n5706' href='#n5706'>5706</a>
<a id='n5707' href='#n5707'>5707</a>
<a id='n5708' href='#n5708'>5708</a>
<a id='n5709' href='#n5709'>5709</a>
<a id='n5710' href='#n5710'>5710</a>
<a id='n5711' href='#n5711'>5711</a>
<a id='n5712' href='#n5712'>5712</a>
<a id='n5713' href='#n5713'>5713</a>
<a id='n5714' href='#n5714'>5714</a>
<a id='n5715' href='#n5715'>5715</a>
<a id='n5716' href='#n5716'>5716</a>
<a id='n5717' href='#n5717'>5717</a>
<a id='n5718' href='#n5718'>5718</a>
<a id='n5719' href='#n5719'>5719</a>
<a id='n5720' href='#n5720'>5720</a>
<a id='n5721' href='#n5721'>5721</a>
<a id='n5722' href='#n5722'>5722</a>
<a id='n5723' href='#n5723'>5723</a>
<a id='n5724' href='#n5724'>5724</a>
<a id='n5725' href='#n5725'>5725</a>
<a id='n5726' href='#n5726'>5726</a>
<a id='n5727' href='#n5727'>5727</a>
<a id='n5728' href='#n5728'>5728</a>
<a id='n5729' href='#n5729'>5729</a>
<a id='n5730' href='#n5730'>5730</a>
<a id='n5731' href='#n5731'>5731</a>
<a id='n5732' href='#n5732'>5732</a>
<a id='n5733' href='#n5733'>5733</a>
<a id='n5734' href='#n5734'>5734</a>
<a id='n5735' href='#n5735'>5735</a>
<a id='n5736' href='#n5736'>5736</a>
<a id='n5737' href='#n5737'>5737</a>
<a id='n5738' href='#n5738'>5738</a>
<a id='n5739' href='#n5739'>5739</a>
<a id='n5740' href='#n5740'>5740</a>
<a id='n5741' href='#n5741'>5741</a>
<a id='n5742' href='#n5742'>5742</a>
<a id='n5743' href='#n5743'>5743</a>
<a id='n5744' href='#n5744'>5744</a>
<a id='n5745' href='#n5745'>5745</a>
<a id='n5746' href='#n5746'>5746</a>
<a id='n5747' href='#n5747'>5747</a>
<a id='n5748' href='#n5748'>5748</a>
<a id='n5749' href='#n5749'>5749</a>
<a id='n5750' href='#n5750'>5750</a>
<a id='n5751' href='#n5751'>5751</a>
<a id='n5752' href='#n5752'>5752</a>
<a id='n5753' href='#n5753'>5753</a>
<a id='n5754' href='#n5754'>5754</a>
<a id='n5755' href='#n5755'>5755</a>
<a id='n5756' href='#n5756'>5756</a>
<a id='n5757' href='#n5757'>5757</a>
<a id='n5758' href='#n5758'>5758</a>
<a id='n5759' href='#n5759'>5759</a>
<a id='n5760' href='#n5760'>5760</a>
<a id='n5761' href='#n5761'>5761</a>
<a id='n5762' href='#n5762'>5762</a>
<a id='n5763' href='#n5763'>5763</a>
<a id='n5764' href='#n5764'>5764</a>
<a id='n5765' href='#n5765'>5765</a>
<a id='n5766' href='#n5766'>5766</a>
<a id='n5767' href='#n5767'>5767</a>
<a id='n5768' href='#n5768'>5768</a>
<a id='n5769' href='#n5769'>5769</a>
<a id='n5770' href='#n5770'>5770</a>
<a id='n5771' href='#n5771'>5771</a>
<a id='n5772' href='#n5772'>5772</a>
<a id='n5773' href='#n5773'>5773</a>
<a id='n5774' href='#n5774'>5774</a>
<a id='n5775' href='#n5775'>5775</a>
<a id='n5776' href='#n5776'>5776</a>
<a id='n5777' href='#n5777'>5777</a>
<a id='n5778' href='#n5778'>5778</a>
<a id='n5779' href='#n5779'>5779</a>
<a id='n5780' href='#n5780'>5780</a>
<a id='n5781' href='#n5781'>5781</a>
<a id='n5782' href='#n5782'>5782</a>
<a id='n5783' href='#n5783'>5783</a>
<a id='n5784' href='#n5784'>5784</a>
<a id='n5785' href='#n5785'>5785</a>
<a id='n5786' href='#n5786'>5786</a>
<a id='n5787' href='#n5787'>5787</a>
<a id='n5788' href='#n5788'>5788</a>
<a id='n5789' href='#n5789'>5789</a>
<a id='n5790' href='#n5790'>5790</a>
<a id='n5791' href='#n5791'>5791</a>
<a id='n5792' href='#n5792'>5792</a>
<a id='n5793' href='#n5793'>5793</a>
<a id='n5794' href='#n5794'>5794</a>
<a id='n5795' href='#n5795'>5795</a>
<a id='n5796' href='#n5796'>5796</a>
<a id='n5797' href='#n5797'>5797</a>
<a id='n5798' href='#n5798'>5798</a>
<a id='n5799' href='#n5799'>5799</a>
<a id='n5800' href='#n5800'>5800</a>
<a id='n5801' href='#n5801'>5801</a>
<a id='n5802' href='#n5802'>5802</a>
<a id='n5803' href='#n5803'>5803</a>
<a id='n5804' href='#n5804'>5804</a>
<a id='n5805' href='#n5805'>5805</a>
<a id='n5806' href='#n5806'>5806</a>
<a id='n5807' href='#n5807'>5807</a>
<a id='n5808' href='#n5808'>5808</a>
<a id='n5809' href='#n5809'>5809</a>
<a id='n5810' href='#n5810'>5810</a>
<a id='n5811' href='#n5811'>5811</a>
<a id='n5812' href='#n5812'>5812</a>
<a id='n5813' href='#n5813'>5813</a>
<a id='n5814' href='#n5814'>5814</a>
<a id='n5815' href='#n5815'>5815</a>
<a id='n5816' href='#n5816'>5816</a>
<a id='n5817' href='#n5817'>5817</a>
<a id='n5818' href='#n5818'>5818</a>
<a id='n5819' href='#n5819'>5819</a>
<a id='n5820' href='#n5820'>5820</a>
<a id='n5821' href='#n5821'>5821</a>
<a id='n5822' href='#n5822'>5822</a>
<a id='n5823' href='#n5823'>5823</a>
<a id='n5824' href='#n5824'>5824</a>
<a id='n5825' href='#n5825'>5825</a>
<a id='n5826' href='#n5826'>5826</a>
<a id='n5827' href='#n5827'>5827</a>
<a id='n5828' href='#n5828'>5828</a>
<a id='n5829' href='#n5829'>5829</a>
<a id='n5830' href='#n5830'>5830</a>
<a id='n5831' href='#n5831'>5831</a>
<a id='n5832' href='#n5832'>5832</a>
<a id='n5833' href='#n5833'>5833</a>
<a id='n5834' href='#n5834'>5834</a>
<a id='n5835' href='#n5835'>5835</a>
<a id='n5836' href='#n5836'>5836</a>
<a id='n5837' href='#n5837'>5837</a>
<a id='n5838' href='#n5838'>5838</a>
<a id='n5839' href='#n5839'>5839</a>
<a id='n5840' href='#n5840'>5840</a>
<a id='n5841' href='#n5841'>5841</a>
<a id='n5842' href='#n5842'>5842</a>
<a id='n5843' href='#n5843'>5843</a>
<a id='n5844' href='#n5844'>5844</a>
<a id='n5845' href='#n5845'>5845</a>
<a id='n5846' href='#n5846'>5846</a>
<a id='n5847' href='#n5847'>5847</a>
<a id='n5848' href='#n5848'>5848</a>
<a id='n5849' href='#n5849'>5849</a>
<a id='n5850' href='#n5850'>5850</a>
<a id='n5851' href='#n5851'>5851</a>
<a id='n5852' href='#n5852'>5852</a>
<a id='n5853' href='#n5853'>5853</a>
<a id='n5854' href='#n5854'>5854</a>
<a id='n5855' href='#n5855'>5855</a>
<a id='n5856' href='#n5856'>5856</a>
<a id='n5857' href='#n5857'>5857</a>
<a id='n5858' href='#n5858'>5858</a>
<a id='n5859' href='#n5859'>5859</a>
<a id='n5860' href='#n5860'>5860</a>
<a id='n5861' href='#n5861'>5861</a>
<a id='n5862' href='#n5862'>5862</a>
<a id='n5863' href='#n5863'>5863</a>
<a id='n5864' href='#n5864'>5864</a>
<a id='n5865' href='#n5865'>5865</a>
<a id='n5866' href='#n5866'>5866</a>
<a id='n5867' href='#n5867'>5867</a>
<a id='n5868' href='#n5868'>5868</a>
<a id='n5869' href='#n5869'>5869</a>
<a id='n5870' href='#n5870'>5870</a>
<a id='n5871' href='#n5871'>5871</a>
<a id='n5872' href='#n5872'>5872</a>
<a id='n5873' href='#n5873'>5873</a>
<a id='n5874' href='#n5874'>5874</a>
<a id='n5875' href='#n5875'>5875</a>
<a id='n5876' href='#n5876'>5876</a>
<a id='n5877' href='#n5877'>5877</a>
<a id='n5878' href='#n5878'>5878</a>
<a id='n5879' href='#n5879'>5879</a>
<a id='n5880' href='#n5880'>5880</a>
<a id='n5881' href='#n5881'>5881</a>
<a id='n5882' href='#n5882'>5882</a>
<a id='n5883' href='#n5883'>5883</a>
<a id='n5884' href='#n5884'>5884</a>
<a id='n5885' href='#n5885'>5885</a>
<a id='n5886' href='#n5886'>5886</a>
<a id='n5887' href='#n5887'>5887</a>
<a id='n5888' href='#n5888'>5888</a>
<a id='n5889' href='#n5889'>5889</a>
<a id='n5890' href='#n5890'>5890</a>
<a id='n5891' href='#n5891'>5891</a>
<a id='n5892' href='#n5892'>5892</a>
<a id='n5893' href='#n5893'>5893</a>
<a id='n5894' href='#n5894'>5894</a>
<a id='n5895' href='#n5895'>5895</a>
<a id='n5896' href='#n5896'>5896</a>
<a id='n5897' href='#n5897'>5897</a>
<a id='n5898' href='#n5898'>5898</a>
<a id='n5899' href='#n5899'>5899</a>
<a id='n5900' href='#n5900'>5900</a>
<a id='n5901' href='#n5901'>5901</a>
<a id='n5902' href='#n5902'>5902</a>
<a id='n5903' href='#n5903'>5903</a>
<a id='n5904' href='#n5904'>5904</a>
<a id='n5905' href='#n5905'>5905</a>
<a id='n5906' href='#n5906'>5906</a>
<a id='n5907' href='#n5907'>5907</a>
<a id='n5908' href='#n5908'>5908</a>
<a id='n5909' href='#n5909'>5909</a>
<a id='n5910' href='#n5910'>5910</a>
<a id='n5911' href='#n5911'>5911</a>
<a id='n5912' href='#n5912'>5912</a>
<a id='n5913' href='#n5913'>5913</a>
<a id='n5914' href='#n5914'>5914</a>
<a id='n5915' href='#n5915'>5915</a>
<a id='n5916' href='#n5916'>5916</a>
<a id='n5917' href='#n5917'>5917</a>
<a id='n5918' href='#n5918'>5918</a>
<a id='n5919' href='#n5919'>5919</a>
<a id='n5920' href='#n5920'>5920</a>
<a id='n5921' href='#n5921'>5921</a>
<a id='n5922' href='#n5922'>5922</a>
<a id='n5923' href='#n5923'>5923</a>
<a id='n5924' href='#n5924'>5924</a>
<a id='n5925' href='#n5925'>5925</a>
<a id='n5926' href='#n5926'>5926</a>
<a id='n5927' href='#n5927'>5927</a>
<a id='n5928' href='#n5928'>5928</a>
<a id='n5929' href='#n5929'>5929</a>
<a id='n5930' href='#n5930'>5930</a>
<a id='n5931' href='#n5931'>5931</a>
<a id='n5932' href='#n5932'>5932</a>
<a id='n5933' href='#n5933'>5933</a>
<a id='n5934' href='#n5934'>5934</a>
<a id='n5935' href='#n5935'>5935</a>
<a id='n5936' href='#n5936'>5936</a>
<a id='n5937' href='#n5937'>5937</a>
<a id='n5938' href='#n5938'>5938</a>
<a id='n5939' href='#n5939'>5939</a>
<a id='n5940' href='#n5940'>5940</a>
<a id='n5941' href='#n5941'>5941</a>
<a id='n5942' href='#n5942'>5942</a>
<a id='n5943' href='#n5943'>5943</a>
<a id='n5944' href='#n5944'>5944</a>
<a id='n5945' href='#n5945'>5945</a>
<a id='n5946' href='#n5946'>5946</a>
<a id='n5947' href='#n5947'>5947</a>
<a id='n5948' href='#n5948'>5948</a>
<a id='n5949' href='#n5949'>5949</a>
<a id='n5950' href='#n5950'>5950</a>
<a id='n5951' href='#n5951'>5951</a>
<a id='n5952' href='#n5952'>5952</a>
<a id='n5953' href='#n5953'>5953</a>
<a id='n5954' href='#n5954'>5954</a>
<a id='n5955' href='#n5955'>5955</a>
<a id='n5956' href='#n5956'>5956</a>
<a id='n5957' href='#n5957'>5957</a>
<a id='n5958' href='#n5958'>5958</a>
<a id='n5959' href='#n5959'>5959</a>
<a id='n5960' href='#n5960'>5960</a>
<a id='n5961' href='#n5961'>5961</a>
<a id='n5962' href='#n5962'>5962</a>
<a id='n5963' href='#n5963'>5963</a>
<a id='n5964' href='#n5964'>5964</a>
<a id='n5965' href='#n5965'>5965</a>
<a id='n5966' href='#n5966'>5966</a>
<a id='n5967' href='#n5967'>5967</a>
<a id='n5968' href='#n5968'>5968</a>
<a id='n5969' href='#n5969'>5969</a>
<a id='n5970' href='#n5970'>5970</a>
<a id='n5971' href='#n5971'>5971</a>
<a id='n5972' href='#n5972'>5972</a>
<a id='n5973' href='#n5973'>5973</a>
<a id='n5974' href='#n5974'>5974</a>
<a id='n5975' href='#n5975'>5975</a>
<a id='n5976' href='#n5976'>5976</a>
<a id='n5977' href='#n5977'>5977</a>
<a id='n5978' href='#n5978'>5978</a>
<a id='n5979' href='#n5979'>5979</a>
<a id='n5980' href='#n5980'>5980</a>
<a id='n5981' href='#n5981'>5981</a>
<a id='n5982' href='#n5982'>5982</a>
<a id='n5983' href='#n5983'>5983</a>
<a id='n5984' href='#n5984'>5984</a>
<a id='n5985' href='#n5985'>5985</a>
<a id='n5986' href='#n5986'>5986</a>
<a id='n5987' href='#n5987'>5987</a>
<a id='n5988' href='#n5988'>5988</a>
<a id='n5989' href='#n5989'>5989</a>
<a id='n5990' href='#n5990'>5990</a>
<a id='n5991' href='#n5991'>5991</a>
<a id='n5992' href='#n5992'>5992</a>
<a id='n5993' href='#n5993'>5993</a>
<a id='n5994' href='#n5994'>5994</a>
<a id='n5995' href='#n5995'>5995</a>
<a id='n5996' href='#n5996'>5996</a>
<a id='n5997' href='#n5997'>5997</a>
<a id='n5998' href='#n5998'>5998</a>
<a id='n5999' href='#n5999'>5999</a>
<a id='n6000' href='#n6000'>6000</a>
<a id='n6001' href='#n6001'>6001</a>
<a id='n6002' href='#n6002'>6002</a>
<a id='n6003' href='#n6003'>6003</a>
<a id='n6004' href='#n6004'>6004</a>
<a id='n6005' href='#n6005'>6005</a>
<a id='n6006' href='#n6006'>6006</a>
<a id='n6007' href='#n6007'>6007</a>
<a id='n6008' href='#n6008'>6008</a>
<a id='n6009' href='#n6009'>6009</a>
<a id='n6010' href='#n6010'>6010</a>
<a id='n6011' href='#n6011'>6011</a>
<a id='n6012' href='#n6012'>6012</a>
<a id='n6013' href='#n6013'>6013</a>
<a id='n6014' href='#n6014'>6014</a>
<a id='n6015' href='#n6015'>6015</a>
<a id='n6016' href='#n6016'>6016</a>
<a id='n6017' href='#n6017'>6017</a>
<a id='n6018' href='#n6018'>6018</a>
<a id='n6019' href='#n6019'>6019</a>
<a id='n6020' href='#n6020'>6020</a>
<a id='n6021' href='#n6021'>6021</a>
<a id='n6022' href='#n6022'>6022</a>
<a id='n6023' href='#n6023'>6023</a>
<a id='n6024' href='#n6024'>6024</a>
<a id='n6025' href='#n6025'>6025</a>
<a id='n6026' href='#n6026'>6026</a>
<a id='n6027' href='#n6027'>6027</a>
<a id='n6028' href='#n6028'>6028</a>
<a id='n6029' href='#n6029'>6029</a>
<a id='n6030' href='#n6030'>6030</a>
<a id='n6031' href='#n6031'>6031</a>
<a id='n6032' href='#n6032'>6032</a>
<a id='n6033' href='#n6033'>6033</a>
<a id='n6034' href='#n6034'>6034</a>
<a id='n6035' href='#n6035'>6035</a>
<a id='n6036' href='#n6036'>6036</a>
<a id='n6037' href='#n6037'>6037</a>
<a id='n6038' href='#n6038'>6038</a>
<a id='n6039' href='#n6039'>6039</a>
<a id='n6040' href='#n6040'>6040</a>
<a id='n6041' href='#n6041'>6041</a>
<a id='n6042' href='#n6042'>6042</a>
<a id='n6043' href='#n6043'>6043</a>
<a id='n6044' href='#n6044'>6044</a>
<a id='n6045' href='#n6045'>6045</a>
<a id='n6046' href='#n6046'>6046</a>
<a id='n6047' href='#n6047'>6047</a>
<a id='n6048' href='#n6048'>6048</a>
<a id='n6049' href='#n6049'>6049</a>
<a id='n6050' href='#n6050'>6050</a>
<a id='n6051' href='#n6051'>6051</a>
<a id='n6052' href='#n6052'>6052</a>
<a id='n6053' href='#n6053'>6053</a>
<a id='n6054' href='#n6054'>6054</a>
<a id='n6055' href='#n6055'>6055</a>
<a id='n6056' href='#n6056'>6056</a>
<a id='n6057' href='#n6057'>6057</a>
<a id='n6058' href='#n6058'>6058</a>
<a id='n6059' href='#n6059'>6059</a>
<a id='n6060' href='#n6060'>6060</a>
<a id='n6061' href='#n6061'>6061</a>
<a id='n6062' href='#n6062'>6062</a>
<a id='n6063' href='#n6063'>6063</a>
<a id='n6064' href='#n6064'>6064</a>
<a id='n6065' href='#n6065'>6065</a>
<a id='n6066' href='#n6066'>6066</a>
<a id='n6067' href='#n6067'>6067</a>
<a id='n6068' href='#n6068'>6068</a>
<a id='n6069' href='#n6069'>6069</a>
<a id='n6070' href='#n6070'>6070</a>
<a id='n6071' href='#n6071'>6071</a>
<a id='n6072' href='#n6072'>6072</a>
<a id='n6073' href='#n6073'>6073</a>
<a id='n6074' href='#n6074'>6074</a>
<a id='n6075' href='#n6075'>6075</a>
<a id='n6076' href='#n6076'>6076</a>
<a id='n6077' href='#n6077'>6077</a>
<a id='n6078' href='#n6078'>6078</a>
<a id='n6079' href='#n6079'>6079</a>
<a id='n6080' href='#n6080'>6080</a>
<a id='n6081' href='#n6081'>6081</a>
<a id='n6082' href='#n6082'>6082</a>
<a id='n6083' href='#n6083'>6083</a>
<a id='n6084' href='#n6084'>6084</a>
<a id='n6085' href='#n6085'>6085</a>
<a id='n6086' href='#n6086'>6086</a>
<a id='n6087' href='#n6087'>6087</a>
<a id='n6088' href='#n6088'>6088</a>
<a id='n6089' href='#n6089'>6089</a>
<a id='n6090' href='#n6090'>6090</a>
<a id='n6091' href='#n6091'>6091</a>
<a id='n6092' href='#n6092'>6092</a>
<a id='n6093' href='#n6093'>6093</a>
<a id='n6094' href='#n6094'>6094</a>
<a id='n6095' href='#n6095'>6095</a>
<a id='n6096' href='#n6096'>6096</a>
<a id='n6097' href='#n6097'>6097</a>
<a id='n6098' href='#n6098'>6098</a>
<a id='n6099' href='#n6099'>6099</a>
<a id='n6100' href='#n6100'>6100</a>
<a id='n6101' href='#n6101'>6101</a>
<a id='n6102' href='#n6102'>6102</a>
<a id='n6103' href='#n6103'>6103</a>
<a id='n6104' href='#n6104'>6104</a>
<a id='n6105' href='#n6105'>6105</a>
<a id='n6106' href='#n6106'>6106</a>
<a id='n6107' href='#n6107'>6107</a>
<a id='n6108' href='#n6108'>6108</a>
<a id='n6109' href='#n6109'>6109</a>
<a id='n6110' href='#n6110'>6110</a>
<a id='n6111' href='#n6111'>6111</a>
<a id='n6112' href='#n6112'>6112</a>
<a id='n6113' href='#n6113'>6113</a>
<a id='n6114' href='#n6114'>6114</a>
<a id='n6115' href='#n6115'>6115</a>
<a id='n6116' href='#n6116'>6116</a>
<a id='n6117' href='#n6117'>6117</a>
<a id='n6118' href='#n6118'>6118</a>
<a id='n6119' href='#n6119'>6119</a>
<a id='n6120' href='#n6120'>6120</a>
<a id='n6121' href='#n6121'>6121</a>
<a id='n6122' href='#n6122'>6122</a>
<a id='n6123' href='#n6123'>6123</a>
<a id='n6124' href='#n6124'>6124</a>
<a id='n6125' href='#n6125'>6125</a>
<a id='n6126' href='#n6126'>6126</a>
<a id='n6127' href='#n6127'>6127</a>
<a id='n6128' href='#n6128'>6128</a>
<a id='n6129' href='#n6129'>6129</a>
<a id='n6130' href='#n6130'>6130</a>
<a id='n6131' href='#n6131'>6131</a>
<a id='n6132' href='#n6132'>6132</a>
<a id='n6133' href='#n6133'>6133</a>
<a id='n6134' href='#n6134'>6134</a>
<a id='n6135' href='#n6135'>6135</a>
<a id='n6136' href='#n6136'>6136</a>
<a id='n6137' href='#n6137'>6137</a>
<a id='n6138' href='#n6138'>6138</a>
<a id='n6139' href='#n6139'>6139</a>
<a id='n6140' href='#n6140'>6140</a>
<a id='n6141' href='#n6141'>6141</a>
<a id='n6142' href='#n6142'>6142</a>
<a id='n6143' href='#n6143'>6143</a>
<a id='n6144' href='#n6144'>6144</a>
<a id='n6145' href='#n6145'>6145</a>
<a id='n6146' href='#n6146'>6146</a>
<a id='n6147' href='#n6147'>6147</a>
<a id='n6148' href='#n6148'>6148</a>
<a id='n6149' href='#n6149'>6149</a>
<a id='n6150' href='#n6150'>6150</a>
<a id='n6151' href='#n6151'>6151</a>
<a id='n6152' href='#n6152'>6152</a>
<a id='n6153' href='#n6153'>6153</a>
<a id='n6154' href='#n6154'>6154</a>
<a id='n6155' href='#n6155'>6155</a>
<a id='n6156' href='#n6156'>6156</a>
<a id='n6157' href='#n6157'>6157</a>
<a id='n6158' href='#n6158'>6158</a>
<a id='n6159' href='#n6159'>6159</a>
<a id='n6160' href='#n6160'>6160</a>
<a id='n6161' href='#n6161'>6161</a>
<a id='n6162' href='#n6162'>6162</a>
<a id='n6163' href='#n6163'>6163</a>
<a id='n6164' href='#n6164'>6164</a>
<a id='n6165' href='#n6165'>6165</a>
<a id='n6166' href='#n6166'>6166</a>
<a id='n6167' href='#n6167'>6167</a>
<a id='n6168' href='#n6168'>6168</a>
<a id='n6169' href='#n6169'>6169</a>
<a id='n6170' href='#n6170'>6170</a>
<a id='n6171' href='#n6171'>6171</a>
<a id='n6172' href='#n6172'>6172</a>
<a id='n6173' href='#n6173'>6173</a>
<a id='n6174' href='#n6174'>6174</a>
<a id='n6175' href='#n6175'>6175</a>
<a id='n6176' href='#n6176'>6176</a>
<a id='n6177' href='#n6177'>6177</a>
<a id='n6178' href='#n6178'>6178</a>
<a id='n6179' href='#n6179'>6179</a>
<a id='n6180' href='#n6180'>6180</a>
<a id='n6181' href='#n6181'>6181</a>
<a id='n6182' href='#n6182'>6182</a>
<a id='n6183' href='#n6183'>6183</a>
<a id='n6184' href='#n6184'>6184</a>
<a id='n6185' href='#n6185'>6185</a>
<a id='n6186' href='#n6186'>6186</a>
<a id='n6187' href='#n6187'>6187</a>
<a id='n6188' href='#n6188'>6188</a>
<a id='n6189' href='#n6189'>6189</a>
<a id='n6190' href='#n6190'>6190</a>
<a id='n6191' href='#n6191'>6191</a>
<a id='n6192' href='#n6192'>6192</a>
<a id='n6193' href='#n6193'>6193</a>
<a id='n6194' href='#n6194'>6194</a>
<a id='n6195' href='#n6195'>6195</a>
<a id='n6196' href='#n6196'>6196</a>
<a id='n6197' href='#n6197'>6197</a>
<a id='n6198' href='#n6198'>6198</a>
<a id='n6199' href='#n6199'>6199</a>
<a id='n6200' href='#n6200'>6200</a>
<a id='n6201' href='#n6201'>6201</a>
<a id='n6202' href='#n6202'>6202</a>
<a id='n6203' href='#n6203'>6203</a>
<a id='n6204' href='#n6204'>6204</a>
<a id='n6205' href='#n6205'>6205</a>
<a id='n6206' href='#n6206'>6206</a>
<a id='n6207' href='#n6207'>6207</a>
<a id='n6208' href='#n6208'>6208</a>
<a id='n6209' href='#n6209'>6209</a>
<a id='n6210' href='#n6210'>6210</a>
<a id='n6211' href='#n6211'>6211</a>
<a id='n6212' href='#n6212'>6212</a>
<a id='n6213' href='#n6213'>6213</a>
<a id='n6214' href='#n6214'>6214</a>
<a id='n6215' href='#n6215'>6215</a>
<a id='n6216' href='#n6216'>6216</a>
<a id='n6217' href='#n6217'>6217</a>
<a id='n6218' href='#n6218'>6218</a>
<a id='n6219' href='#n6219'>6219</a>
<a id='n6220' href='#n6220'>6220</a>
<a id='n6221' href='#n6221'>6221</a>
<a id='n6222' href='#n6222'>6222</a>
<a id='n6223' href='#n6223'>6223</a>
<a id='n6224' href='#n6224'>6224</a>
<a id='n6225' href='#n6225'>6225</a>
<a id='n6226' href='#n6226'>6226</a>
<a id='n6227' href='#n6227'>6227</a>
<a id='n6228' href='#n6228'>6228</a>
<a id='n6229' href='#n6229'>6229</a>
<a id='n6230' href='#n6230'>6230</a>
<a id='n6231' href='#n6231'>6231</a>
<a id='n6232' href='#n6232'>6232</a>
<a id='n6233' href='#n6233'>6233</a>
<a id='n6234' href='#n6234'>6234</a>
<a id='n6235' href='#n6235'>6235</a>
<a id='n6236' href='#n6236'>6236</a>
<a id='n6237' href='#n6237'>6237</a>
<a id='n6238' href='#n6238'>6238</a>
<a id='n6239' href='#n6239'>6239</a>
<a id='n6240' href='#n6240'>6240</a>
<a id='n6241' href='#n6241'>6241</a>
<a id='n6242' href='#n6242'>6242</a>
<a id='n6243' href='#n6243'>6243</a>
<a id='n6244' href='#n6244'>6244</a>
<a id='n6245' href='#n6245'>6245</a>
<a id='n6246' href='#n6246'>6246</a>
<a id='n6247' href='#n6247'>6247</a>
<a id='n6248' href='#n6248'>6248</a>
<a id='n6249' href='#n6249'>6249</a>
<a id='n6250' href='#n6250'>6250</a>
<a id='n6251' href='#n6251'>6251</a>
<a id='n6252' href='#n6252'>6252</a>
<a id='n6253' href='#n6253'>6253</a>
<a id='n6254' href='#n6254'>6254</a>
<a id='n6255' href='#n6255'>6255</a>
<a id='n6256' href='#n6256'>6256</a>
<a id='n6257' href='#n6257'>6257</a>
<a id='n6258' href='#n6258'>6258</a>
<a id='n6259' href='#n6259'>6259</a>
<a id='n6260' href='#n6260'>6260</a>
<a id='n6261' href='#n6261'>6261</a>
<a id='n6262' href='#n6262'>6262</a>
<a id='n6263' href='#n6263'>6263</a>
<a id='n6264' href='#n6264'>6264</a>
<a id='n6265' href='#n6265'>6265</a>
<a id='n6266' href='#n6266'>6266</a>
<a id='n6267' href='#n6267'>6267</a>
<a id='n6268' href='#n6268'>6268</a>
<a id='n6269' href='#n6269'>6269</a>
<a id='n6270' href='#n6270'>6270</a>
<a id='n6271' href='#n6271'>6271</a>
<a id='n6272' href='#n6272'>6272</a>
<a id='n6273' href='#n6273'>6273</a>
<a id='n6274' href='#n6274'>6274</a>
<a id='n6275' href='#n6275'>6275</a>
<a id='n6276' href='#n6276'>6276</a>
<a id='n6277' href='#n6277'>6277</a>
<a id='n6278' href='#n6278'>6278</a>
<a id='n6279' href='#n6279'>6279</a>
<a id='n6280' href='#n6280'>6280</a>
<a id='n6281' href='#n6281'>6281</a>
<a id='n6282' href='#n6282'>6282</a>
<a id='n6283' href='#n6283'>6283</a>
<a id='n6284' href='#n6284'>6284</a>
<a id='n6285' href='#n6285'>6285</a>
<a id='n6286' href='#n6286'>6286</a>
<a id='n6287' href='#n6287'>6287</a>
<a id='n6288' href='#n6288'>6288</a>
<a id='n6289' href='#n6289'>6289</a>
<a id='n6290' href='#n6290'>6290</a>
<a id='n6291' href='#n6291'>6291</a>
<a id='n6292' href='#n6292'>6292</a>
<a id='n6293' href='#n6293'>6293</a>
<a id='n6294' href='#n6294'>6294</a>
<a id='n6295' href='#n6295'>6295</a>
<a id='n6296' href='#n6296'>6296</a>
<a id='n6297' href='#n6297'>6297</a>
<a id='n6298' href='#n6298'>6298</a>
<a id='n6299' href='#n6299'>6299</a>
<a id='n6300' href='#n6300'>6300</a>
<a id='n6301' href='#n6301'>6301</a>
<a id='n6302' href='#n6302'>6302</a>
<a id='n6303' href='#n6303'>6303</a>
<a id='n6304' href='#n6304'>6304</a>
<a id='n6305' href='#n6305'>6305</a>
<a id='n6306' href='#n6306'>6306</a>
<a id='n6307' href='#n6307'>6307</a>
<a id='n6308' href='#n6308'>6308</a>
<a id='n6309' href='#n6309'>6309</a>
<a id='n6310' href='#n6310'>6310</a>
<a id='n6311' href='#n6311'>6311</a>
<a id='n6312' href='#n6312'>6312</a>
<a id='n6313' href='#n6313'>6313</a>
<a id='n6314' href='#n6314'>6314</a>
<a id='n6315' href='#n6315'>6315</a>
<a id='n6316' href='#n6316'>6316</a>
<a id='n6317' href='#n6317'>6317</a>
<a id='n6318' href='#n6318'>6318</a>
<a id='n6319' href='#n6319'>6319</a>
<a id='n6320' href='#n6320'>6320</a>
<a id='n6321' href='#n6321'>6321</a>
<a id='n6322' href='#n6322'>6322</a>
<a id='n6323' href='#n6323'>6323</a>
<a id='n6324' href='#n6324'>6324</a>
<a id='n6325' href='#n6325'>6325</a>
<a id='n6326' href='#n6326'>6326</a>
<a id='n6327' href='#n6327'>6327</a>
<a id='n6328' href='#n6328'>6328</a>
<a id='n6329' href='#n6329'>6329</a>
<a id='n6330' href='#n6330'>6330</a>
<a id='n6331' href='#n6331'>6331</a>
<a id='n6332' href='#n6332'>6332</a>
<a id='n6333' href='#n6333'>6333</a>
<a id='n6334' href='#n6334'>6334</a>
<a id='n6335' href='#n6335'>6335</a>
<a id='n6336' href='#n6336'>6336</a>
<a id='n6337' href='#n6337'>6337</a>
<a id='n6338' href='#n6338'>6338</a>
<a id='n6339' href='#n6339'>6339</a>
<a id='n6340' href='#n6340'>6340</a>
<a id='n6341' href='#n6341'>6341</a>
<a id='n6342' href='#n6342'>6342</a>
<a id='n6343' href='#n6343'>6343</a>
<a id='n6344' href='#n6344'>6344</a>
<a id='n6345' href='#n6345'>6345</a>
<a id='n6346' href='#n6346'>6346</a>
<a id='n6347' href='#n6347'>6347</a>
<a id='n6348' href='#n6348'>6348</a>
<a id='n6349' href='#n6349'>6349</a>
<a id='n6350' href='#n6350'>6350</a>
<a id='n6351' href='#n6351'>6351</a>
<a id='n6352' href='#n6352'>6352</a>
<a id='n6353' href='#n6353'>6353</a>
<a id='n6354' href='#n6354'>6354</a>
<a id='n6355' href='#n6355'>6355</a>
<a id='n6356' href='#n6356'>6356</a>
<a id='n6357' href='#n6357'>6357</a>
<a id='n6358' href='#n6358'>6358</a>
<a id='n6359' href='#n6359'>6359</a>
<a id='n6360' href='#n6360'>6360</a>
<a id='n6361' href='#n6361'>6361</a>
<a id='n6362' href='#n6362'>6362</a>
<a id='n6363' href='#n6363'>6363</a>
<a id='n6364' href='#n6364'>6364</a>
<a id='n6365' href='#n6365'>6365</a>
<a id='n6366' href='#n6366'>6366</a>
<a id='n6367' href='#n6367'>6367</a>
<a id='n6368' href='#n6368'>6368</a>
<a id='n6369' href='#n6369'>6369</a>
<a id='n6370' href='#n6370'>6370</a>
<a id='n6371' href='#n6371'>6371</a>
<a id='n6372' href='#n6372'>6372</a>
<a id='n6373' href='#n6373'>6373</a>
<a id='n6374' href='#n6374'>6374</a>
<a id='n6375' href='#n6375'>6375</a>
<a id='n6376' href='#n6376'>6376</a>
<a id='n6377' href='#n6377'>6377</a>
<a id='n6378' href='#n6378'>6378</a>
<a id='n6379' href='#n6379'>6379</a>
<a id='n6380' href='#n6380'>6380</a>
<a id='n6381' href='#n6381'>6381</a>
<a id='n6382' href='#n6382'>6382</a>
<a id='n6383' href='#n6383'>6383</a>
<a id='n6384' href='#n6384'>6384</a>
<a id='n6385' href='#n6385'>6385</a>
<a id='n6386' href='#n6386'>6386</a>
<a id='n6387' href='#n6387'>6387</a>
<a id='n6388' href='#n6388'>6388</a>
<a id='n6389' href='#n6389'>6389</a>
<a id='n6390' href='#n6390'>6390</a>
<a id='n6391' href='#n6391'>6391</a>
<a id='n6392' href='#n6392'>6392</a>
<a id='n6393' href='#n6393'>6393</a>
<a id='n6394' href='#n6394'>6394</a>
<a id='n6395' href='#n6395'>6395</a>
<a id='n6396' href='#n6396'>6396</a>
<a id='n6397' href='#n6397'>6397</a>
<a id='n6398' href='#n6398'>6398</a>
<a id='n6399' href='#n6399'>6399</a>
<a id='n6400' href='#n6400'>6400</a>
<a id='n6401' href='#n6401'>6401</a>
<a id='n6402' href='#n6402'>6402</a>
<a id='n6403' href='#n6403'>6403</a>
<a id='n6404' href='#n6404'>6404</a>
<a id='n6405' href='#n6405'>6405</a>
<a id='n6406' href='#n6406'>6406</a>
<a id='n6407' href='#n6407'>6407</a>
<a id='n6408' href='#n6408'>6408</a>
<a id='n6409' href='#n6409'>6409</a>
<a id='n6410' href='#n6410'>6410</a>
<a id='n6411' href='#n6411'>6411</a>
<a id='n6412' href='#n6412'>6412</a>
<a id='n6413' href='#n6413'>6413</a>
<a id='n6414' href='#n6414'>6414</a>
<a id='n6415' href='#n6415'>6415</a>
<a id='n6416' href='#n6416'>6416</a>
<a id='n6417' href='#n6417'>6417</a>
<a id='n6418' href='#n6418'>6418</a>
<a id='n6419' href='#n6419'>6419</a>
<a id='n6420' href='#n6420'>6420</a>
<a id='n6421' href='#n6421'>6421</a>
<a id='n6422' href='#n6422'>6422</a>
<a id='n6423' href='#n6423'>6423</a>
<a id='n6424' href='#n6424'>6424</a>
<a id='n6425' href='#n6425'>6425</a>
<a id='n6426' href='#n6426'>6426</a>
<a id='n6427' href='#n6427'>6427</a>
<a id='n6428' href='#n6428'>6428</a>
<a id='n6429' href='#n6429'>6429</a>
<a id='n6430' href='#n6430'>6430</a>
<a id='n6431' href='#n6431'>6431</a>
<a id='n6432' href='#n6432'>6432</a>
<a id='n6433' href='#n6433'>6433</a>
<a id='n6434' href='#n6434'>6434</a>
<a id='n6435' href='#n6435'>6435</a>
<a id='n6436' href='#n6436'>6436</a>
<a id='n6437' href='#n6437'>6437</a>
<a id='n6438' href='#n6438'>6438</a>
<a id='n6439' href='#n6439'>6439</a>
<a id='n6440' href='#n6440'>6440</a>
<a id='n6441' href='#n6441'>6441</a>
<a id='n6442' href='#n6442'>6442</a>
<a id='n6443' href='#n6443'>6443</a>
<a id='n6444' href='#n6444'>6444</a>
<a id='n6445' href='#n6445'>6445</a>
<a id='n6446' href='#n6446'>6446</a>
<a id='n6447' href='#n6447'>6447</a>
<a id='n6448' href='#n6448'>6448</a>
<a id='n6449' href='#n6449'>6449</a>
<a id='n6450' href='#n6450'>6450</a>
<a id='n6451' href='#n6451'>6451</a>
<a id='n6452' href='#n6452'>6452</a>
<a id='n6453' href='#n6453'>6453</a>
<a id='n6454' href='#n6454'>6454</a>
<a id='n6455' href='#n6455'>6455</a>
<a id='n6456' href='#n6456'>6456</a>
<a id='n6457' href='#n6457'>6457</a>
<a id='n6458' href='#n6458'>6458</a>
<a id='n6459' href='#n6459'>6459</a>
<a id='n6460' href='#n6460'>6460</a>
<a id='n6461' href='#n6461'>6461</a>
<a id='n6462' href='#n6462'>6462</a>
<a id='n6463' href='#n6463'>6463</a>
<a id='n6464' href='#n6464'>6464</a>
<a id='n6465' href='#n6465'>6465</a>
<a id='n6466' href='#n6466'>6466</a>
<a id='n6467' href='#n6467'>6467</a>
<a id='n6468' href='#n6468'>6468</a>
<a id='n6469' href='#n6469'>6469</a>
<a id='n6470' href='#n6470'>6470</a>
<a id='n6471' href='#n6471'>6471</a>
<a id='n6472' href='#n6472'>6472</a>
<a id='n6473' href='#n6473'>6473</a>
<a id='n6474' href='#n6474'>6474</a>
<a id='n6475' href='#n6475'>6475</a>
<a id='n6476' href='#n6476'>6476</a>
<a id='n6477' href='#n6477'>6477</a>
<a id='n6478' href='#n6478'>6478</a>
<a id='n6479' href='#n6479'>6479</a>
<a id='n6480' href='#n6480'>6480</a>
<a id='n6481' href='#n6481'>6481</a>
<a id='n6482' href='#n6482'>6482</a>
<a id='n6483' href='#n6483'>6483</a>
<a id='n6484' href='#n6484'>6484</a>
<a id='n6485' href='#n6485'>6485</a>
<a id='n6486' href='#n6486'>6486</a>
<a id='n6487' href='#n6487'>6487</a>
<a id='n6488' href='#n6488'>6488</a>
<a id='n6489' href='#n6489'>6489</a>
<a id='n6490' href='#n6490'>6490</a>
<a id='n6491' href='#n6491'>6491</a>
<a id='n6492' href='#n6492'>6492</a>
<a id='n6493' href='#n6493'>6493</a>
<a id='n6494' href='#n6494'>6494</a>
<a id='n6495' href='#n6495'>6495</a>
<a id='n6496' href='#n6496'>6496</a>
<a id='n6497' href='#n6497'>6497</a>
<a id='n6498' href='#n6498'>6498</a>
<a id='n6499' href='#n6499'>6499</a>
<a id='n6500' href='#n6500'>6500</a>
<a id='n6501' href='#n6501'>6501</a>
<a id='n6502' href='#n6502'>6502</a>
<a id='n6503' href='#n6503'>6503</a>
<a id='n6504' href='#n6504'>6504</a>
<a id='n6505' href='#n6505'>6505</a>
<a id='n6506' href='#n6506'>6506</a>
<a id='n6507' href='#n6507'>6507</a>
<a id='n6508' href='#n6508'>6508</a>
<a id='n6509' href='#n6509'>6509</a>
<a id='n6510' href='#n6510'>6510</a>
<a id='n6511' href='#n6511'>6511</a>
<a id='n6512' href='#n6512'>6512</a>
<a id='n6513' href='#n6513'>6513</a>
<a id='n6514' href='#n6514'>6514</a>
<a id='n6515' href='#n6515'>6515</a>
<a id='n6516' href='#n6516'>6516</a>
<a id='n6517' href='#n6517'>6517</a>
<a id='n6518' href='#n6518'>6518</a>
<a id='n6519' href='#n6519'>6519</a>
<a id='n6520' href='#n6520'>6520</a>
<a id='n6521' href='#n6521'>6521</a>
<a id='n6522' href='#n6522'>6522</a>
<a id='n6523' href='#n6523'>6523</a>
<a id='n6524' href='#n6524'>6524</a>
<a id='n6525' href='#n6525'>6525</a>
<a id='n6526' href='#n6526'>6526</a>
<a id='n6527' href='#n6527'>6527</a>
<a id='n6528' href='#n6528'>6528</a>
<a id='n6529' href='#n6529'>6529</a>
<a id='n6530' href='#n6530'>6530</a>
<a id='n6531' href='#n6531'>6531</a>
<a id='n6532' href='#n6532'>6532</a>
<a id='n6533' href='#n6533'>6533</a>
<a id='n6534' href='#n6534'>6534</a>
<a id='n6535' href='#n6535'>6535</a>
<a id='n6536' href='#n6536'>6536</a>
<a id='n6537' href='#n6537'>6537</a>
<a id='n6538' href='#n6538'>6538</a>
<a id='n6539' href='#n6539'>6539</a>
<a id='n6540' href='#n6540'>6540</a>
<a id='n6541' href='#n6541'>6541</a>
<a id='n6542' href='#n6542'>6542</a>
<a id='n6543' href='#n6543'>6543</a>
<a id='n6544' href='#n6544'>6544</a>
<a id='n6545' href='#n6545'>6545</a>
<a id='n6546' href='#n6546'>6546</a>
<a id='n6547' href='#n6547'>6547</a>
<a id='n6548' href='#n6548'>6548</a>
<a id='n6549' href='#n6549'>6549</a>
<a id='n6550' href='#n6550'>6550</a>
<a id='n6551' href='#n6551'>6551</a>
<a id='n6552' href='#n6552'>6552</a>
<a id='n6553' href='#n6553'>6553</a>
<a id='n6554' href='#n6554'>6554</a>
<a id='n6555' href='#n6555'>6555</a>
<a id='n6556' href='#n6556'>6556</a>
<a id='n6557' href='#n6557'>6557</a>
<a id='n6558' href='#n6558'>6558</a>
<a id='n6559' href='#n6559'>6559</a>
<a id='n6560' href='#n6560'>6560</a>
<a id='n6561' href='#n6561'>6561</a>
<a id='n6562' href='#n6562'>6562</a>
<a id='n6563' href='#n6563'>6563</a>
<a id='n6564' href='#n6564'>6564</a>
<a id='n6565' href='#n6565'>6565</a>
<a id='n6566' href='#n6566'>6566</a>
<a id='n6567' href='#n6567'>6567</a>
<a id='n6568' href='#n6568'>6568</a>
<a id='n6569' href='#n6569'>6569</a>
<a id='n6570' href='#n6570'>6570</a>
<a id='n6571' href='#n6571'>6571</a>
<a id='n6572' href='#n6572'>6572</a>
<a id='n6573' href='#n6573'>6573</a>
<a id='n6574' href='#n6574'>6574</a>
<a id='n6575' href='#n6575'>6575</a>
<a id='n6576' href='#n6576'>6576</a>
<a id='n6577' href='#n6577'>6577</a>
<a id='n6578' href='#n6578'>6578</a>
<a id='n6579' href='#n6579'>6579</a>
<a id='n6580' href='#n6580'>6580</a>
<a id='n6581' href='#n6581'>6581</a>
<a id='n6582' href='#n6582'>6582</a>
<a id='n6583' href='#n6583'>6583</a>
<a id='n6584' href='#n6584'>6584</a>
<a id='n6585' href='#n6585'>6585</a>
<a id='n6586' href='#n6586'>6586</a>
<a id='n6587' href='#n6587'>6587</a>
<a id='n6588' href='#n6588'>6588</a>
<a id='n6589' href='#n6589'>6589</a>
<a id='n6590' href='#n6590'>6590</a>
<a id='n6591' href='#n6591'>6591</a>
<a id='n6592' href='#n6592'>6592</a>
<a id='n6593' href='#n6593'>6593</a>
<a id='n6594' href='#n6594'>6594</a>
<a id='n6595' href='#n6595'>6595</a>
<a id='n6596' href='#n6596'>6596</a>
<a id='n6597' href='#n6597'>6597</a>
<a id='n6598' href='#n6598'>6598</a>
<a id='n6599' href='#n6599'>6599</a>
<a id='n6600' href='#n6600'>6600</a>
<a id='n6601' href='#n6601'>6601</a>
<a id='n6602' href='#n6602'>6602</a>
<a id='n6603' href='#n6603'>6603</a>
<a id='n6604' href='#n6604'>6604</a>
<a id='n6605' href='#n6605'>6605</a>
<a id='n6606' href='#n6606'>6606</a>
<a id='n6607' href='#n6607'>6607</a>
<a id='n6608' href='#n6608'>6608</a>
<a id='n6609' href='#n6609'>6609</a>
<a id='n6610' href='#n6610'>6610</a>
<a id='n6611' href='#n6611'>6611</a>
<a id='n6612' href='#n6612'>6612</a>
<a id='n6613' href='#n6613'>6613</a>
<a id='n6614' href='#n6614'>6614</a>
<a id='n6615' href='#n6615'>6615</a>
<a id='n6616' href='#n6616'>6616</a>
<a id='n6617' href='#n6617'>6617</a>
<a id='n6618' href='#n6618'>6618</a>
<a id='n6619' href='#n6619'>6619</a>
<a id='n6620' href='#n6620'>6620</a>
<a id='n6621' href='#n6621'>6621</a>
<a id='n6622' href='#n6622'>6622</a>
<a id='n6623' href='#n6623'>6623</a>
<a id='n6624' href='#n6624'>6624</a>
<a id='n6625' href='#n6625'>6625</a>
<a id='n6626' href='#n6626'>6626</a>
<a id='n6627' href='#n6627'>6627</a>
<a id='n6628' href='#n6628'>6628</a>
<a id='n6629' href='#n6629'>6629</a>
<a id='n6630' href='#n6630'>6630</a>
<a id='n6631' href='#n6631'>6631</a>
<a id='n6632' href='#n6632'>6632</a>
<a id='n6633' href='#n6633'>6633</a>
<a id='n6634' href='#n6634'>6634</a>
<a id='n6635' href='#n6635'>6635</a>
<a id='n6636' href='#n6636'>6636</a>
<a id='n6637' href='#n6637'>6637</a>
<a id='n6638' href='#n6638'>6638</a>
<a id='n6639' href='#n6639'>6639</a>
<a id='n6640' href='#n6640'>6640</a>
<a id='n6641' href='#n6641'>6641</a>
<a id='n6642' href='#n6642'>6642</a>
<a id='n6643' href='#n6643'>6643</a>
<a id='n6644' href='#n6644'>6644</a>
<a id='n6645' href='#n6645'>6645</a>
<a id='n6646' href='#n6646'>6646</a>
<a id='n6647' href='#n6647'>6647</a>
<a id='n6648' href='#n6648'>6648</a>
<a id='n6649' href='#n6649'>6649</a>
<a id='n6650' href='#n6650'>6650</a>
<a id='n6651' href='#n6651'>6651</a>
<a id='n6652' href='#n6652'>6652</a>
<a id='n6653' href='#n6653'>6653</a>
<a id='n6654' href='#n6654'>6654</a>
<a id='n6655' href='#n6655'>6655</a>
<a id='n6656' href='#n6656'>6656</a>
<a id='n6657' href='#n6657'>6657</a>
<a id='n6658' href='#n6658'>6658</a>
<a id='n6659' href='#n6659'>6659</a>
<a id='n6660' href='#n6660'>6660</a>
<a id='n6661' href='#n6661'>6661</a>
<a id='n6662' href='#n6662'>6662</a>
<a id='n6663' href='#n6663'>6663</a>
<a id='n6664' href='#n6664'>6664</a>
<a id='n6665' href='#n6665'>6665</a>
<a id='n6666' href='#n6666'>6666</a>
<a id='n6667' href='#n6667'>6667</a>
<a id='n6668' href='#n6668'>6668</a>
<a id='n6669' href='#n6669'>6669</a>
<a id='n6670' href='#n6670'>6670</a>
<a id='n6671' href='#n6671'>6671</a>
<a id='n6672' href='#n6672'>6672</a>
<a id='n6673' href='#n6673'>6673</a>
<a id='n6674' href='#n6674'>6674</a>
<a id='n6675' href='#n6675'>6675</a>
<a id='n6676' href='#n6676'>6676</a>
<a id='n6677' href='#n6677'>6677</a>
<a id='n6678' href='#n6678'>6678</a>
<a id='n6679' href='#n6679'>6679</a>
<a id='n6680' href='#n6680'>6680</a>
<a id='n6681' href='#n6681'>6681</a>
<a id='n6682' href='#n6682'>6682</a>
<a id='n6683' href='#n6683'>6683</a>
<a id='n6684' href='#n6684'>6684</a>
<a id='n6685' href='#n6685'>6685</a>
<a id='n6686' href='#n6686'>6686</a>
<a id='n6687' href='#n6687'>6687</a>
<a id='n6688' href='#n6688'>6688</a>
<a id='n6689' href='#n6689'>6689</a>
<a id='n6690' href='#n6690'>6690</a>
<a id='n6691' href='#n6691'>6691</a>
<a id='n6692' href='#n6692'>6692</a>
<a id='n6693' href='#n6693'>6693</a>
<a id='n6694' href='#n6694'>6694</a>
<a id='n6695' href='#n6695'>6695</a>
<a id='n6696' href='#n6696'>6696</a>
<a id='n6697' href='#n6697'>6697</a>
<a id='n6698' href='#n6698'>6698</a>
<a id='n6699' href='#n6699'>6699</a>
<a id='n6700' href='#n6700'>6700</a>
<a id='n6701' href='#n6701'>6701</a>
<a id='n6702' href='#n6702'>6702</a>
<a id='n6703' href='#n6703'>6703</a>
<a id='n6704' href='#n6704'>6704</a>
<a id='n6705' href='#n6705'>6705</a>
<a id='n6706' href='#n6706'>6706</a>
<a id='n6707' href='#n6707'>6707</a>
<a id='n6708' href='#n6708'>6708</a>
<a id='n6709' href='#n6709'>6709</a>
<a id='n6710' href='#n6710'>6710</a>
<a id='n6711' href='#n6711'>6711</a>
<a id='n6712' href='#n6712'>6712</a>
<a id='n6713' href='#n6713'>6713</a>
<a id='n6714' href='#n6714'>6714</a>
<a id='n6715' href='#n6715'>6715</a>
<a id='n6716' href='#n6716'>6716</a>
<a id='n6717' href='#n6717'>6717</a>
<a id='n6718' href='#n6718'>6718</a>
<a id='n6719' href='#n6719'>6719</a>
<a id='n6720' href='#n6720'>6720</a>
<a id='n6721' href='#n6721'>6721</a>
<a id='n6722' href='#n6722'>6722</a>
<a id='n6723' href='#n6723'>6723</a>
<a id='n6724' href='#n6724'>6724</a>
<a id='n6725' href='#n6725'>6725</a>
<a id='n6726' href='#n6726'>6726</a>
<a id='n6727' href='#n6727'>6727</a>
<a id='n6728' href='#n6728'>6728</a>
<a id='n6729' href='#n6729'>6729</a>
<a id='n6730' href='#n6730'>6730</a>
<a id='n6731' href='#n6731'>6731</a>
<a id='n6732' href='#n6732'>6732</a>
<a id='n6733' href='#n6733'>6733</a>
<a id='n6734' href='#n6734'>6734</a>
<a id='n6735' href='#n6735'>6735</a>
<a id='n6736' href='#n6736'>6736</a>
<a id='n6737' href='#n6737'>6737</a>
<a id='n6738' href='#n6738'>6738</a>
<a id='n6739' href='#n6739'>6739</a>
<a id='n6740' href='#n6740'>6740</a>
<a id='n6741' href='#n6741'>6741</a>
<a id='n6742' href='#n6742'>6742</a>
<a id='n6743' href='#n6743'>6743</a>
<a id='n6744' href='#n6744'>6744</a>
<a id='n6745' href='#n6745'>6745</a>
<a id='n6746' href='#n6746'>6746</a>
<a id='n6747' href='#n6747'>6747</a>
<a id='n6748' href='#n6748'>6748</a>
<a id='n6749' href='#n6749'>6749</a>
<a id='n6750' href='#n6750'>6750</a>
<a id='n6751' href='#n6751'>6751</a>
<a id='n6752' href='#n6752'>6752</a>
<a id='n6753' href='#n6753'>6753</a>
<a id='n6754' href='#n6754'>6754</a>
<a id='n6755' href='#n6755'>6755</a>
<a id='n6756' href='#n6756'>6756</a>
<a id='n6757' href='#n6757'>6757</a>
<a id='n6758' href='#n6758'>6758</a>
<a id='n6759' href='#n6759'>6759</a>
<a id='n6760' href='#n6760'>6760</a>
<a id='n6761' href='#n6761'>6761</a>
<a id='n6762' href='#n6762'>6762</a>
<a id='n6763' href='#n6763'>6763</a>
<a id='n6764' href='#n6764'>6764</a>
<a id='n6765' href='#n6765'>6765</a>
<a id='n6766' href='#n6766'>6766</a>
<a id='n6767' href='#n6767'>6767</a>
<a id='n6768' href='#n6768'>6768</a>
<a id='n6769' href='#n6769'>6769</a>
<a id='n6770' href='#n6770'>6770</a>
<a id='n6771' href='#n6771'>6771</a>
<a id='n6772' href='#n6772'>6772</a>
<a id='n6773' href='#n6773'>6773</a>
<a id='n6774' href='#n6774'>6774</a>
<a id='n6775' href='#n6775'>6775</a>
<a id='n6776' href='#n6776'>6776</a>
<a id='n6777' href='#n6777'>6777</a>
<a id='n6778' href='#n6778'>6778</a>
<a id='n6779' href='#n6779'>6779</a>
<a id='n6780' href='#n6780'>6780</a>
<a id='n6781' href='#n6781'>6781</a>
<a id='n6782' href='#n6782'>6782</a>
<a id='n6783' href='#n6783'>6783</a>
<a id='n6784' href='#n6784'>6784</a>
<a id='n6785' href='#n6785'>6785</a>
<a id='n6786' href='#n6786'>6786</a>
<a id='n6787' href='#n6787'>6787</a>
<a id='n6788' href='#n6788'>6788</a>
<a id='n6789' href='#n6789'>6789</a>
<a id='n6790' href='#n6790'>6790</a>
<a id='n6791' href='#n6791'>6791</a>
<a id='n6792' href='#n6792'>6792</a>
<a id='n6793' href='#n6793'>6793</a>
<a id='n6794' href='#n6794'>6794</a>
<a id='n6795' href='#n6795'>6795</a>
<a id='n6796' href='#n6796'>6796</a>
<a id='n6797' href='#n6797'>6797</a>
<a id='n6798' href='#n6798'>6798</a>
<a id='n6799' href='#n6799'>6799</a>
<a id='n6800' href='#n6800'>6800</a>
<a id='n6801' href='#n6801'>6801</a>
<a id='n6802' href='#n6802'>6802</a>
<a id='n6803' href='#n6803'>6803</a>
<a id='n6804' href='#n6804'>6804</a>
<a id='n6805' href='#n6805'>6805</a>
<a id='n6806' href='#n6806'>6806</a>
<a id='n6807' href='#n6807'>6807</a>
<a id='n6808' href='#n6808'>6808</a>
<a id='n6809' href='#n6809'>6809</a>
<a id='n6810' href='#n6810'>6810</a>
<a id='n6811' href='#n6811'>6811</a>
<a id='n6812' href='#n6812'>6812</a>
<a id='n6813' href='#n6813'>6813</a>
<a id='n6814' href='#n6814'>6814</a>
<a id='n6815' href='#n6815'>6815</a>
<a id='n6816' href='#n6816'>6816</a>
<a id='n6817' href='#n6817'>6817</a>
<a id='n6818' href='#n6818'>6818</a>
<a id='n6819' href='#n6819'>6819</a>
<a id='n6820' href='#n6820'>6820</a>
<a id='n6821' href='#n6821'>6821</a>
<a id='n6822' href='#n6822'>6822</a>
<a id='n6823' href='#n6823'>6823</a>
<a id='n6824' href='#n6824'>6824</a>
<a id='n6825' href='#n6825'>6825</a>
<a id='n6826' href='#n6826'>6826</a>
<a id='n6827' href='#n6827'>6827</a>
<a id='n6828' href='#n6828'>6828</a>
<a id='n6829' href='#n6829'>6829</a>
<a id='n6830' href='#n6830'>6830</a>
<a id='n6831' href='#n6831'>6831</a>
<a id='n6832' href='#n6832'>6832</a>
<a id='n6833' href='#n6833'>6833</a>
<a id='n6834' href='#n6834'>6834</a>
<a id='n6835' href='#n6835'>6835</a>
<a id='n6836' href='#n6836'>6836</a>
<a id='n6837' href='#n6837'>6837</a>
<a id='n6838' href='#n6838'>6838</a>
<a id='n6839' href='#n6839'>6839</a>
<a id='n6840' href='#n6840'>6840</a>
<a id='n6841' href='#n6841'>6841</a>
<a id='n6842' href='#n6842'>6842</a>
<a id='n6843' href='#n6843'>6843</a>
<a id='n6844' href='#n6844'>6844</a>
<a id='n6845' href='#n6845'>6845</a>
<a id='n6846' href='#n6846'>6846</a>
<a id='n6847' href='#n6847'>6847</a>
<a id='n6848' href='#n6848'>6848</a>
<a id='n6849' href='#n6849'>6849</a>
<a id='n6850' href='#n6850'>6850</a>
<a id='n6851' href='#n6851'>6851</a>
<a id='n6852' href='#n6852'>6852</a>
<a id='n6853' href='#n6853'>6853</a>
<a id='n6854' href='#n6854'>6854</a>
<a id='n6855' href='#n6855'>6855</a>
<a id='n6856' href='#n6856'>6856</a>
<a id='n6857' href='#n6857'>6857</a>
<a id='n6858' href='#n6858'>6858</a>
<a id='n6859' href='#n6859'>6859</a>
<a id='n6860' href='#n6860'>6860</a>
<a id='n6861' href='#n6861'>6861</a>
<a id='n6862' href='#n6862'>6862</a>
<a id='n6863' href='#n6863'>6863</a>
<a id='n6864' href='#n6864'>6864</a>
<a id='n6865' href='#n6865'>6865</a>
<a id='n6866' href='#n6866'>6866</a>
<a id='n6867' href='#n6867'>6867</a>
<a id='n6868' href='#n6868'>6868</a>
<a id='n6869' href='#n6869'>6869</a>
<a id='n6870' href='#n6870'>6870</a>
<a id='n6871' href='#n6871'>6871</a>
<a id='n6872' href='#n6872'>6872</a>
<a id='n6873' href='#n6873'>6873</a>
<a id='n6874' href='#n6874'>6874</a>
<a id='n6875' href='#n6875'>6875</a>
<a id='n6876' href='#n6876'>6876</a>
<a id='n6877' href='#n6877'>6877</a>
<a id='n6878' href='#n6878'>6878</a>
<a id='n6879' href='#n6879'>6879</a>
<a id='n6880' href='#n6880'>6880</a>
<a id='n6881' href='#n6881'>6881</a>
<a id='n6882' href='#n6882'>6882</a>
<a id='n6883' href='#n6883'>6883</a>
<a id='n6884' href='#n6884'>6884</a>
<a id='n6885' href='#n6885'>6885</a>
<a id='n6886' href='#n6886'>6886</a>
<a id='n6887' href='#n6887'>6887</a>
<a id='n6888' href='#n6888'>6888</a>
<a id='n6889' href='#n6889'>6889</a>
<a id='n6890' href='#n6890'>6890</a>
<a id='n6891' href='#n6891'>6891</a>
<a id='n6892' href='#n6892'>6892</a>
<a id='n6893' href='#n6893'>6893</a>
<a id='n6894' href='#n6894'>6894</a>
<a id='n6895' href='#n6895'>6895</a>
<a id='n6896' href='#n6896'>6896</a>
<a id='n6897' href='#n6897'>6897</a>
<a id='n6898' href='#n6898'>6898</a>
<a id='n6899' href='#n6899'>6899</a>
<a id='n6900' href='#n6900'>6900</a>
<a id='n6901' href='#n6901'>6901</a>
<a id='n6902' href='#n6902'>6902</a>
<a id='n6903' href='#n6903'>6903</a>
<a id='n6904' href='#n6904'>6904</a>
<a id='n6905' href='#n6905'>6905</a>
<a id='n6906' href='#n6906'>6906</a>
<a id='n6907' href='#n6907'>6907</a>
<a id='n6908' href='#n6908'>6908</a>
<a id='n6909' href='#n6909'>6909</a>
<a id='n6910' href='#n6910'>6910</a>
<a id='n6911' href='#n6911'>6911</a>
<a id='n6912' href='#n6912'>6912</a>
<a id='n6913' href='#n6913'>6913</a>
<a id='n6914' href='#n6914'>6914</a>
<a id='n6915' href='#n6915'>6915</a>
<a id='n6916' href='#n6916'>6916</a>
<a id='n6917' href='#n6917'>6917</a>
<a id='n6918' href='#n6918'>6918</a>
<a id='n6919' href='#n6919'>6919</a>
<a id='n6920' href='#n6920'>6920</a>
<a id='n6921' href='#n6921'>6921</a>
<a id='n6922' href='#n6922'>6922</a>
<a id='n6923' href='#n6923'>6923</a>
<a id='n6924' href='#n6924'>6924</a>
<a id='n6925' href='#n6925'>6925</a>
<a id='n6926' href='#n6926'>6926</a>
<a id='n6927' href='#n6927'>6927</a>
<a id='n6928' href='#n6928'>6928</a>
<a id='n6929' href='#n6929'>6929</a>
<a id='n6930' href='#n6930'>6930</a>
<a id='n6931' href='#n6931'>6931</a>
<a id='n6932' href='#n6932'>6932</a>
<a id='n6933' href='#n6933'>6933</a>
<a id='n6934' href='#n6934'>6934</a>
<a id='n6935' href='#n6935'>6935</a>
<a id='n6936' href='#n6936'>6936</a>
<a id='n6937' href='#n6937'>6937</a>
<a id='n6938' href='#n6938'>6938</a>
<a id='n6939' href='#n6939'>6939</a>
<a id='n6940' href='#n6940'>6940</a>
<a id='n6941' href='#n6941'>6941</a>
<a id='n6942' href='#n6942'>6942</a>
<a id='n6943' href='#n6943'>6943</a>
<a id='n6944' href='#n6944'>6944</a>
<a id='n6945' href='#n6945'>6945</a>
<a id='n6946' href='#n6946'>6946</a>
<a id='n6947' href='#n6947'>6947</a>
<a id='n6948' href='#n6948'>6948</a>
<a id='n6949' href='#n6949'>6949</a>
<a id='n6950' href='#n6950'>6950</a>
<a id='n6951' href='#n6951'>6951</a>
<a id='n6952' href='#n6952'>6952</a>
<a id='n6953' href='#n6953'>6953</a>
<a id='n6954' href='#n6954'>6954</a>
<a id='n6955' href='#n6955'>6955</a>
<a id='n6956' href='#n6956'>6956</a>
<a id='n6957' href='#n6957'>6957</a>
<a id='n6958' href='#n6958'>6958</a>
<a id='n6959' href='#n6959'>6959</a>
<a id='n6960' href='#n6960'>6960</a>
<a id='n6961' href='#n6961'>6961</a>
<a id='n6962' href='#n6962'>6962</a>
<a id='n6963' href='#n6963'>6963</a>
<a id='n6964' href='#n6964'>6964</a>
<a id='n6965' href='#n6965'>6965</a>
<a id='n6966' href='#n6966'>6966</a>
<a id='n6967' href='#n6967'>6967</a>
<a id='n6968' href='#n6968'>6968</a>
<a id='n6969' href='#n6969'>6969</a>
<a id='n6970' href='#n6970'>6970</a>
<a id='n6971' href='#n6971'>6971</a>
<a id='n6972' href='#n6972'>6972</a>
<a id='n6973' href='#n6973'>6973</a>
<a id='n6974' href='#n6974'>6974</a>
<a id='n6975' href='#n6975'>6975</a>
<a id='n6976' href='#n6976'>6976</a>
<a id='n6977' href='#n6977'>6977</a>
<a id='n6978' href='#n6978'>6978</a>
<a id='n6979' href='#n6979'>6979</a>
<a id='n6980' href='#n6980'>6980</a>
<a id='n6981' href='#n6981'>6981</a>
<a id='n6982' href='#n6982'>6982</a>
<a id='n6983' href='#n6983'>6983</a>
<a id='n6984' href='#n6984'>6984</a>
<a id='n6985' href='#n6985'>6985</a>
<a id='n6986' href='#n6986'>6986</a>
<a id='n6987' href='#n6987'>6987</a>
<a id='n6988' href='#n6988'>6988</a>
<a id='n6989' href='#n6989'>6989</a>
<a id='n6990' href='#n6990'>6990</a>
<a id='n6991' href='#n6991'>6991</a>
<a id='n6992' href='#n6992'>6992</a>
<a id='n6993' href='#n6993'>6993</a>
<a id='n6994' href='#n6994'>6994</a>
<a id='n6995' href='#n6995'>6995</a>
<a id='n6996' href='#n6996'>6996</a>
<a id='n6997' href='#n6997'>6997</a>
<a id='n6998' href='#n6998'>6998</a>
<a id='n6999' href='#n6999'>6999</a>
<a id='n7000' href='#n7000'>7000</a>
<a id='n7001' href='#n7001'>7001</a>
<a id='n7002' href='#n7002'>7002</a>
<a id='n7003' href='#n7003'>7003</a>
<a id='n7004' href='#n7004'>7004</a>
<a id='n7005' href='#n7005'>7005</a>
<a id='n7006' href='#n7006'>7006</a>
<a id='n7007' href='#n7007'>7007</a>
<a id='n7008' href='#n7008'>7008</a>
<a id='n7009' href='#n7009'>7009</a>
<a id='n7010' href='#n7010'>7010</a>
<a id='n7011' href='#n7011'>7011</a>
<a id='n7012' href='#n7012'>7012</a>
<a id='n7013' href='#n7013'>7013</a>
<a id='n7014' href='#n7014'>7014</a>
<a id='n7015' href='#n7015'>7015</a>
<a id='n7016' href='#n7016'>7016</a>
<a id='n7017' href='#n7017'>7017</a>
<a id='n7018' href='#n7018'>7018</a>
<a id='n7019' href='#n7019'>7019</a>
<a id='n7020' href='#n7020'>7020</a>
<a id='n7021' href='#n7021'>7021</a>
<a id='n7022' href='#n7022'>7022</a>
<a id='n7023' href='#n7023'>7023</a>
<a id='n7024' href='#n7024'>7024</a>
<a id='n7025' href='#n7025'>7025</a>
<a id='n7026' href='#n7026'>7026</a>
<a id='n7027' href='#n7027'>7027</a>
<a id='n7028' href='#n7028'>7028</a>
<a id='n7029' href='#n7029'>7029</a>
<a id='n7030' href='#n7030'>7030</a>
<a id='n7031' href='#n7031'>7031</a>
<a id='n7032' href='#n7032'>7032</a>
<a id='n7033' href='#n7033'>7033</a>
<a id='n7034' href='#n7034'>7034</a>
<a id='n7035' href='#n7035'>7035</a>
<a id='n7036' href='#n7036'>7036</a>
<a id='n7037' href='#n7037'>7037</a>
<a id='n7038' href='#n7038'>7038</a>
<a id='n7039' href='#n7039'>7039</a>
<a id='n7040' href='#n7040'>7040</a>
<a id='n7041' href='#n7041'>7041</a>
<a id='n7042' href='#n7042'>7042</a>
<a id='n7043' href='#n7043'>7043</a>
<a id='n7044' href='#n7044'>7044</a>
<a id='n7045' href='#n7045'>7045</a>
<a id='n7046' href='#n7046'>7046</a>
<a id='n7047' href='#n7047'>7047</a>
<a id='n7048' href='#n7048'>7048</a>
<a id='n7049' href='#n7049'>7049</a>
<a id='n7050' href='#n7050'>7050</a>
<a id='n7051' href='#n7051'>7051</a>
<a id='n7052' href='#n7052'>7052</a>
<a id='n7053' href='#n7053'>7053</a>
<a id='n7054' href='#n7054'>7054</a>
<a id='n7055' href='#n7055'>7055</a>
<a id='n7056' href='#n7056'>7056</a>
<a id='n7057' href='#n7057'>7057</a>
<a id='n7058' href='#n7058'>7058</a>
<a id='n7059' href='#n7059'>7059</a>
<a id='n7060' href='#n7060'>7060</a>
<a id='n7061' href='#n7061'>7061</a>
<a id='n7062' href='#n7062'>7062</a>
<a id='n7063' href='#n7063'>7063</a>
<a id='n7064' href='#n7064'>7064</a>
<a id='n7065' href='#n7065'>7065</a>
<a id='n7066' href='#n7066'>7066</a>
<a id='n7067' href='#n7067'>7067</a>
<a id='n7068' href='#n7068'>7068</a>
<a id='n7069' href='#n7069'>7069</a>
<a id='n7070' href='#n7070'>7070</a>
<a id='n7071' href='#n7071'>7071</a>
<a id='n7072' href='#n7072'>7072</a>
<a id='n7073' href='#n7073'>7073</a>
<a id='n7074' href='#n7074'>7074</a>
<a id='n7075' href='#n7075'>7075</a>
<a id='n7076' href='#n7076'>7076</a>
<a id='n7077' href='#n7077'>7077</a>
<a id='n7078' href='#n7078'>7078</a>
<a id='n7079' href='#n7079'>7079</a>
<a id='n7080' href='#n7080'>7080</a>
<a id='n7081' href='#n7081'>7081</a>
<a id='n7082' href='#n7082'>7082</a>
<a id='n7083' href='#n7083'>7083</a>
<a id='n7084' href='#n7084'>7084</a>
<a id='n7085' href='#n7085'>7085</a>
<a id='n7086' href='#n7086'>7086</a>
<a id='n7087' href='#n7087'>7087</a>
<a id='n7088' href='#n7088'>7088</a>
<a id='n7089' href='#n7089'>7089</a>
<a id='n7090' href='#n7090'>7090</a>
<a id='n7091' href='#n7091'>7091</a>
<a id='n7092' href='#n7092'>7092</a>
<a id='n7093' href='#n7093'>7093</a>
<a id='n7094' href='#n7094'>7094</a>
<a id='n7095' href='#n7095'>7095</a>
<a id='n7096' href='#n7096'>7096</a>
<a id='n7097' href='#n7097'>7097</a>
</pre></td>
<td class='lines'><pre><code><span class="hl com">/*</span>
<span class="hl com"> * tclBasic.c --</span>
<span class="hl com"> *</span>
<span class="hl com"> *	Contains the basic facilities for TCL command interpretation,</span>
<span class="hl com"> *	including interpreter creation and deletion, command creation and</span>
<span class="hl com"> *	deletion, and command/script execution.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Copyright (c) 1987-1994 The Regents of the University of California.</span>
<span class="hl com"> * Copyright (c) 1994-1997 Sun Microsystems, Inc.</span>
<span class="hl com"> * Copyright (c) 1998-1999 by Scriptics Corporation.</span>
<span class="hl com"> * Copyright (c) 2001, 2002 by Kevin B. Kenny.  All rights reserved.</span>
<span class="hl com"> * Copyright (c) 2007 Daniel A. Steffen &lt;das&#64;users.sourceforge.net&gt;</span>
<span class="hl com"> *</span>
<span class="hl com"> * See the file &quot;license.terms&quot; for information on usage and redistribution of</span>
<span class="hl com"> * this file, and for a DISCLAIMER OF ALL WARRANTIES.</span>
<span class="hl com"> */</span>

<span class="hl ppc">#if defined(_WIN32) &amp;&amp; !defined(_WIN64)</span>
<span class="hl ppc">#   define _USE_32BIT_TIME_T</span>
<span class="hl ppc">#endif</span>

<span class="hl ppc">#include</span> <span class="hl pps">&quot;tclInt.h&quot;</span><span class="hl ppc"></span>
<span class="hl ppc">#include</span> <span class="hl pps">&quot;tclCompile.h&quot;</span><span class="hl ppc"></span>
<span class="hl ppc">#include &lt;float.h&gt;</span>
<span class="hl ppc">#include &lt;limits.h&gt;</span>
<span class="hl ppc">#include &lt;math.h&gt;</span>
<span class="hl ppc">#include</span> <span class="hl pps">&quot;tommath.h&quot;</span><span class="hl ppc"></span>

<span class="hl com">/*</span>
<span class="hl com"> * Determine whether we're using IEEE floating point</span>
<span class="hl com"> */</span>

<span class="hl ppc">#if (FLT_RADIX == 2) &amp;&amp; (DBL_MANT_DIG == 53) &amp;&amp; (DBL_MAX_EXP == 1024)</span>
<span class="hl ppc">#   define IEEE_FLOATING_POINT</span>
<span class="hl com">/* Largest odd integer that can be represented exactly in a double */</span>
<span class="hl ppc">#   define MAX_EXACT 9007199254740991.0</span>
<span class="hl ppc">#endif</span>

<span class="hl com">/*</span>
<span class="hl com"> * The following structure defines the client data for a math function</span>
<span class="hl com"> * registered with Tcl_CreateMathFunc</span>
<span class="hl com"> */</span>

<span class="hl kwc">typedef</span> <span class="hl kwb">struct</span> OldMathFuncData <span class="hl opt">{</span>
    Tcl_MathProc <span class="hl opt">*</span>proc<span class="hl opt">;</span>		<span class="hl com">/* Handler function */</span>
    <span class="hl kwb">int</span> numArgs<span class="hl opt">;</span>		<span class="hl com">/* Number of args expected */</span>
    Tcl_ValueType <span class="hl opt">*</span>argTypes<span class="hl opt">;</span>	<span class="hl com">/* Types of the args */</span>
    ClientData clientData<span class="hl opt">;</span>	<span class="hl com">/* Client data for the handler function */</span>
<span class="hl opt">}</span> OldMathFuncData<span class="hl opt">;</span>

<span class="hl com">/*</span>
<span class="hl com"> * Static functions in this file:</span>
<span class="hl com"> */</span>

<span class="hl kwb">static char</span> <span class="hl opt">*</span>	<span class="hl kwd">CallCommandTraces</span><span class="hl opt">(</span>Interp <span class="hl opt">*</span>iPtr<span class="hl opt">,</span> Command <span class="hl opt">*</span>cmdPtr<span class="hl opt">,</span>
		    <span class="hl kwb">const char</span> <span class="hl opt">*</span>oldName<span class="hl opt">,</span> <span class="hl kwb">const char</span> <span class="hl opt">*</span>newName<span class="hl opt">,</span> <span class="hl kwb">int</span> flags<span class="hl opt">);</span>
<span class="hl kwb">static int</span>	<span class="hl kwd">CheckDoubleResult</span><span class="hl opt">(</span>Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span> <span class="hl kwb">double</span> dResult<span class="hl opt">);</span>
<span class="hl kwb">static void</span>	<span class="hl kwd">DeleteInterpProc</span><span class="hl opt">(</span>Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">);</span>
<span class="hl kwb">static void</span>	<span class="hl kwd">DeleteOpCmdClientData</span><span class="hl opt">(</span>ClientData clientData<span class="hl opt">);</span>
<span class="hl kwb">static</span> Tcl_Obj <span class="hl opt">*</span><span class="hl kwd">GetCommandSource</span><span class="hl opt">(</span>Interp <span class="hl opt">*</span>iPtr<span class="hl opt">,</span> <span class="hl kwb">const char</span> <span class="hl opt">*</span>command<span class="hl opt">,</span>
	            <span class="hl kwb">int</span> numChars<span class="hl opt">,</span> <span class="hl kwb">int</span> objc<span class="hl opt">,</span> Tcl_Obj <span class="hl opt">*</span><span class="hl kwb">const</span> objv<span class="hl opt">[]);</span>
<span class="hl kwb">static void</span>	<span class="hl kwd">ProcessUnexpectedResult</span><span class="hl opt">(</span>Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span> <span class="hl kwb">int</span> returnCode<span class="hl opt">);</span>
<span class="hl kwb">static int</span>	<span class="hl kwd">OldMathFuncProc</span><span class="hl opt">(</span>ClientData clientData<span class="hl opt">,</span> Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>
		    <span class="hl kwb">int</span> argc<span class="hl opt">,</span> Tcl_Obj <span class="hl opt">*</span><span class="hl kwb">const</span> <span class="hl opt">*</span>objv<span class="hl opt">);</span>
<span class="hl kwb">static void</span>	<span class="hl kwd">OldMathFuncDeleteProc</span><span class="hl opt">(</span>ClientData clientData<span class="hl opt">);</span>
<span class="hl kwb">static int</span>	<span class="hl kwd">ExprAbsFunc</span><span class="hl opt">(</span>ClientData clientData<span class="hl opt">,</span> Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>
		    <span class="hl kwb">int</span> argc<span class="hl opt">,</span> Tcl_Obj <span class="hl opt">*</span><span class="hl kwb">const</span> <span class="hl opt">*</span>objv<span class="hl opt">);</span>
<span class="hl kwb">static int</span>	<span class="hl kwd">ExprBinaryFunc</span><span class="hl opt">(</span>ClientData clientData<span class="hl opt">,</span> Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>
		    <span class="hl kwb">int</span> argc<span class="hl opt">,</span> Tcl_Obj <span class="hl opt">*</span><span class="hl kwb">const</span> <span class="hl opt">*</span>objv<span class="hl opt">);</span>
<span class="hl kwb">static int</span>	<span class="hl kwd">ExprBoolFunc</span><span class="hl opt">(</span>ClientData clientData<span class="hl opt">,</span> Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>
		    <span class="hl kwb">int</span> argc<span class="hl opt">,</span> Tcl_Obj <span class="hl opt">*</span><span class="hl kwb">const</span> <span class="hl opt">*</span>objv<span class="hl opt">);</span>
<span class="hl kwb">static int</span>	<span class="hl kwd">ExprCeilFunc</span><span class="hl opt">(</span>ClientData clientData<span class="hl opt">,</span> Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>
		    <span class="hl kwb">int</span> argc<span class="hl opt">,</span> Tcl_Obj <span class="hl opt">*</span><span class="hl kwb">const</span> <span class="hl opt">*</span>objv<span class="hl opt">);</span>
<span class="hl kwb">static int</span>	<span class="hl kwd">ExprDoubleFunc</span><span class="hl opt">(</span>ClientData clientData<span class="hl opt">,</span> Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>
		    <span class="hl kwb">int</span> argc<span class="hl opt">,</span> Tcl_Obj <span class="hl opt">*</span><span class="hl kwb">const</span> <span class="hl opt">*</span>objv<span class="hl opt">);</span>
<span class="hl kwb">static int</span>	<span class="hl kwd">ExprEntierFunc</span><span class="hl opt">(</span>ClientData clientData<span class="hl opt">,</span> Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>
		    <span class="hl kwb">int</span> argc<span class="hl opt">,</span> Tcl_Obj <span class="hl opt">*</span><span class="hl kwb">const</span> <span class="hl opt">*</span>objv<span class="hl opt">);</span>
<span class="hl kwb">static int</span>	<span class="hl kwd">ExprFloorFunc</span><span class="hl opt">(</span>ClientData clientData<span class="hl opt">,</span> Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>
		    <span class="hl kwb">int</span> argc<span class="hl opt">,</span> Tcl_Obj <span class="hl opt">*</span><span class="hl kwb">const</span> <span class="hl opt">*</span>objv<span class="hl opt">);</span>
<span class="hl kwb">static int</span>	<span class="hl kwd">ExprIntFunc</span><span class="hl opt">(</span>ClientData clientData<span class="hl opt">,</span> Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>
		    <span class="hl kwb">int</span> argc<span class="hl opt">,</span> Tcl_Obj <span class="hl opt">*</span><span class="hl kwb">const</span> <span class="hl opt">*</span>objv<span class="hl opt">);</span>
<span class="hl kwb">static int</span>	<span class="hl kwd">ExprIsqrtFunc</span><span class="hl opt">(</span>ClientData clientData<span class="hl opt">,</span> Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>
		    <span class="hl kwb">int</span> argc<span class="hl opt">,</span> Tcl_Obj <span class="hl opt">*</span><span class="hl kwb">const</span> <span class="hl opt">*</span>objv<span class="hl opt">);</span>
<span class="hl kwb">static int</span>	<span class="hl kwd">ExprRandFunc</span><span class="hl opt">(</span>ClientData clientData<span class="hl opt">,</span> Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>
		    <span class="hl kwb">int</span> argc<span class="hl opt">,</span> Tcl_Obj <span class="hl opt">*</span><span class="hl kwb">const</span> <span class="hl opt">*</span>objv<span class="hl opt">);</span>
<span class="hl kwb">static int</span>	<span class="hl kwd">ExprRoundFunc</span><span class="hl opt">(</span>ClientData clientData<span class="hl opt">,</span> Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>
		    <span class="hl kwb">int</span> argc<span class="hl opt">,</span> Tcl_Obj <span class="hl opt">*</span><span class="hl kwb">const</span> <span class="hl opt">*</span>objv<span class="hl opt">);</span>
<span class="hl kwb">static int</span>	<span class="hl kwd">ExprSqrtFunc</span><span class="hl opt">(</span>ClientData clientData<span class="hl opt">,</span> Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>
		    <span class="hl kwb">int</span> argc<span class="hl opt">,</span> Tcl_Obj <span class="hl opt">*</span><span class="hl kwb">const</span> <span class="hl opt">*</span>objv<span class="hl opt">);</span>
<span class="hl kwb">static int</span>	<span class="hl kwd">ExprSrandFunc</span><span class="hl opt">(</span>ClientData clientData<span class="hl opt">,</span> Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>
		    <span class="hl kwb">int</span> argc<span class="hl opt">,</span> Tcl_Obj <span class="hl opt">*</span><span class="hl kwb">const</span> <span class="hl opt">*</span>objv<span class="hl opt">);</span>
<span class="hl kwb">static int</span>	<span class="hl kwd">ExprUnaryFunc</span><span class="hl opt">(</span>ClientData clientData<span class="hl opt">,</span> Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>
		    <span class="hl kwb">int</span> argc<span class="hl opt">,</span> Tcl_Obj <span class="hl opt">*</span><span class="hl kwb">const</span> <span class="hl opt">*</span>objv<span class="hl opt">);</span>
<span class="hl kwb">static int</span>	<span class="hl kwd">ExprWideFunc</span><span class="hl opt">(</span>ClientData clientData<span class="hl opt">,</span> Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>
		    <span class="hl kwb">int</span> argc<span class="hl opt">,</span> Tcl_Obj <span class="hl opt">*</span><span class="hl kwb">const</span> <span class="hl opt">*</span>objv<span class="hl opt">);</span>
<span class="hl kwb">static void</span>	<span class="hl kwd">MathFuncWrongNumArgs</span><span class="hl opt">(</span>Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span> <span class="hl kwb">int</span> expected<span class="hl opt">,</span>
		    <span class="hl kwb">int</span> actual<span class="hl opt">,</span> Tcl_Obj <span class="hl opt">*</span><span class="hl kwb">const</span> <span class="hl opt">*</span>objv<span class="hl opt">);</span>
<span class="hl ppc">#ifdef USE_DTRACE</span>
<span class="hl kwb">static int</span>	<span class="hl kwd">DTraceObjCmd</span><span class="hl opt">(</span>ClientData dummy<span class="hl opt">,</span> Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span> <span class="hl kwb">int</span> objc<span class="hl opt">,</span>
		    Tcl_Obj <span class="hl opt">*</span><span class="hl kwb">const</span> objv<span class="hl opt">[]);</span>
<span class="hl ppc">#endif</span>

<span class="hl kwc">extern</span> TclStubs tclStubs<span class="hl opt">;</span>

<span class="hl com">/*</span>
<span class="hl com"> * The following structure define the commands in the Tcl core.</span>
<span class="hl com"> */</span>

<span class="hl kwc">typedef</span> <span class="hl kwb">struct</span> <span class="hl opt">{</span>
    <span class="hl kwb">const char</span> <span class="hl opt">*</span>name<span class="hl opt">;</span>		<span class="hl com">/* Name of object-based command. */</span>
    Tcl_ObjCmdProc <span class="hl opt">*</span>objProc<span class="hl opt">;</span>	<span class="hl com">/* Object-based function for command. */</span>
    CompileProc <span class="hl opt">*</span>compileProc<span class="hl opt">;</span>	<span class="hl com">/* Function called to compile command. */</span>
    <span class="hl kwb">int</span> isSafe<span class="hl opt">;</span>			<span class="hl com">/* If non-zero, command will be present in</span>
<span class="hl com">				 * safe interpreter. Otherwise it will be</span>
<span class="hl com">				 * hidden. */</span>
<span class="hl opt">}</span> CmdInfo<span class="hl opt">;</span>

<span class="hl com">/*</span>
<span class="hl com"> * The built-in commands, and the functions that implement them:</span>
<span class="hl com"> */</span>

<span class="hl kwb">static const</span> CmdInfo builtInCmds<span class="hl opt">[] = {</span>
    <span class="hl com">/*</span>
<span class="hl com">     * Commands in the generic core.</span>
<span class="hl com">     */</span>

    <span class="hl opt">{</span><span class="hl str">&quot;append&quot;</span><span class="hl opt">,</span>		Tcl_AppendObjCmd<span class="hl opt">,</span>	TclCompileAppendCmd<span class="hl opt">,</span>	<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;apply&quot;</span><span class="hl opt">,</span>		Tcl_ApplyObjCmd<span class="hl opt">,</span>	NULL<span class="hl opt">,</span>			<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;array&quot;</span><span class="hl opt">,</span>		Tcl_ArrayObjCmd<span class="hl opt">,</span>	NULL<span class="hl opt">,</span>			<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;binary&quot;</span><span class="hl opt">,</span>		Tcl_BinaryObjCmd<span class="hl opt">,</span>	NULL<span class="hl opt">,</span>			<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;break&quot;</span><span class="hl opt">,</span>		Tcl_BreakObjCmd<span class="hl opt">,</span>	TclCompileBreakCmd<span class="hl opt">,</span>	<span class="hl num">1</span><span class="hl opt">},</span>
<span class="hl ppc">#ifndef EXCLUDE_OBSOLETE_COMMANDS</span>
    <span class="hl opt">{</span><span class="hl str">&quot;case&quot;</span><span class="hl opt">,</span>		Tcl_CaseObjCmd<span class="hl opt">,</span>		NULL<span class="hl opt">,</span>			<span class="hl num">1</span><span class="hl opt">},</span>
<span class="hl ppc">#endif</span>
    <span class="hl opt">{</span><span class="hl str">&quot;catch&quot;</span><span class="hl opt">,</span>		Tcl_CatchObjCmd<span class="hl opt">,</span>	TclCompileCatchCmd<span class="hl opt">,</span>	<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;concat&quot;</span><span class="hl opt">,</span>		Tcl_ConcatObjCmd<span class="hl opt">,</span>	NULL<span class="hl opt">,</span>			<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;continue&quot;</span><span class="hl opt">,</span>	Tcl_ContinueObjCmd<span class="hl opt">,</span>	TclCompileContinueCmd<span class="hl opt">,</span>	<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;error&quot;</span><span class="hl opt">,</span>		Tcl_ErrorObjCmd<span class="hl opt">,</span>	NULL<span class="hl opt">,</span>			<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;eval&quot;</span><span class="hl opt">,</span>		Tcl_EvalObjCmd<span class="hl opt">,</span>		NULL<span class="hl opt">,</span>			<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;expr&quot;</span><span class="hl opt">,</span>		Tcl_ExprObjCmd<span class="hl opt">,</span>		TclCompileExprCmd<span class="hl opt">,</span>	<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;for&quot;</span><span class="hl opt">,</span>		Tcl_ForObjCmd<span class="hl opt">,</span>		TclCompileForCmd<span class="hl opt">,</span>	<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;foreach&quot;</span><span class="hl opt">,</span>		Tcl_ForeachObjCmd<span class="hl opt">,</span>	TclCompileForeachCmd<span class="hl opt">,</span>	<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;format&quot;</span><span class="hl opt">,</span>		Tcl_FormatObjCmd<span class="hl opt">,</span>	NULL<span class="hl opt">,</span>			<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;global&quot;</span><span class="hl opt">,</span>		Tcl_GlobalObjCmd<span class="hl opt">,</span>	TclCompileGlobalCmd<span class="hl opt">,</span>	<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;if&quot;</span><span class="hl opt">,</span>		Tcl_IfObjCmd<span class="hl opt">,</span>		TclCompileIfCmd<span class="hl opt">,</span>	<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;incr&quot;</span><span class="hl opt">,</span>		Tcl_IncrObjCmd<span class="hl opt">,</span>		TclCompileIncrCmd<span class="hl opt">,</span>	<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;join&quot;</span><span class="hl opt">,</span>		Tcl_JoinObjCmd<span class="hl opt">,</span>		NULL<span class="hl opt">,</span>			<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;lappend&quot;</span><span class="hl opt">,</span>		Tcl_LappendObjCmd<span class="hl opt">,</span>	TclCompileLappendCmd<span class="hl opt">,</span>	<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;lassign&quot;</span><span class="hl opt">,</span>		Tcl_LassignObjCmd<span class="hl opt">,</span>	TclCompileLassignCmd<span class="hl opt">,</span>	<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;lindex&quot;</span><span class="hl opt">,</span>		Tcl_LindexObjCmd<span class="hl opt">,</span>	TclCompileLindexCmd<span class="hl opt">,</span>	<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;linsert&quot;</span><span class="hl opt">,</span>		Tcl_LinsertObjCmd<span class="hl opt">,</span>	NULL<span class="hl opt">,</span>			<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;list&quot;</span><span class="hl opt">,</span>		Tcl_ListObjCmd<span class="hl opt">,</span>		TclCompileListCmd<span class="hl opt">,</span>	<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;llength&quot;</span><span class="hl opt">,</span>		Tcl_LlengthObjCmd<span class="hl opt">,</span>	TclCompileLlengthCmd<span class="hl opt">,</span>	<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;lrange&quot;</span><span class="hl opt">,</span>		Tcl_LrangeObjCmd<span class="hl opt">,</span>	NULL<span class="hl opt">,</span>			<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;lrepeat&quot;</span><span class="hl opt">,</span>		Tcl_LrepeatObjCmd<span class="hl opt">,</span>	NULL<span class="hl opt">,</span>			<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;lreplace&quot;</span><span class="hl opt">,</span>	Tcl_LreplaceObjCmd<span class="hl opt">,</span>	NULL<span class="hl opt">,</span>			<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;lreverse&quot;</span><span class="hl opt">,</span>	Tcl_LreverseObjCmd<span class="hl opt">,</span>	NULL<span class="hl opt">,</span>			<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;lsearch&quot;</span><span class="hl opt">,</span>		Tcl_LsearchObjCmd<span class="hl opt">,</span>	NULL<span class="hl opt">,</span>			<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;lset&quot;</span><span class="hl opt">,</span>		Tcl_LsetObjCmd<span class="hl opt">,</span>		TclCompileLsetCmd<span class="hl opt">,</span>	<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;lsort&quot;</span><span class="hl opt">,</span>		Tcl_LsortObjCmd<span class="hl opt">,</span>	NULL<span class="hl opt">,</span>			<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;namespace&quot;</span><span class="hl opt">,</span>	Tcl_NamespaceObjCmd<span class="hl opt">,</span>	TclCompileNamespaceCmd<span class="hl opt">,</span>	<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;package&quot;</span><span class="hl opt">,</span>		Tcl_PackageObjCmd<span class="hl opt">,</span>	NULL<span class="hl opt">,</span>			<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;proc&quot;</span><span class="hl opt">,</span>		Tcl_ProcObjCmd<span class="hl opt">,</span>		NULL<span class="hl opt">,</span>			<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;regexp&quot;</span><span class="hl opt">,</span>		Tcl_RegexpObjCmd<span class="hl opt">,</span>	TclCompileRegexpCmd<span class="hl opt">,</span>	<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;regsub&quot;</span><span class="hl opt">,</span>		Tcl_RegsubObjCmd<span class="hl opt">,</span>	NULL<span class="hl opt">,</span>			<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;rename&quot;</span><span class="hl opt">,</span>		Tcl_RenameObjCmd<span class="hl opt">,</span>	NULL<span class="hl opt">,</span>			<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;return&quot;</span><span class="hl opt">,</span>		Tcl_ReturnObjCmd<span class="hl opt">,</span>	TclCompileReturnCmd<span class="hl opt">,</span>	<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;scan&quot;</span><span class="hl opt">,</span>		Tcl_ScanObjCmd<span class="hl opt">,</span>		NULL<span class="hl opt">,</span>			<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;set&quot;</span><span class="hl opt">,</span>		Tcl_SetObjCmd<span class="hl opt">,</span>		TclCompileSetCmd<span class="hl opt">,</span>	<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;split&quot;</span><span class="hl opt">,</span>		Tcl_SplitObjCmd<span class="hl opt">,</span>	NULL<span class="hl opt">,</span>			<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;subst&quot;</span><span class="hl opt">,</span>		Tcl_SubstObjCmd<span class="hl opt">,</span>	NULL<span class="hl opt">,</span>			<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;switch&quot;</span><span class="hl opt">,</span>		Tcl_SwitchObjCmd<span class="hl opt">,</span>	TclCompileSwitchCmd<span class="hl opt">,</span>	<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;trace&quot;</span><span class="hl opt">,</span>		Tcl_TraceObjCmd<span class="hl opt">,</span>	NULL<span class="hl opt">,</span>			<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;unset&quot;</span><span class="hl opt">,</span>		Tcl_UnsetObjCmd<span class="hl opt">,</span>	NULL<span class="hl opt">,</span>			<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;uplevel&quot;</span><span class="hl opt">,</span>		Tcl_UplevelObjCmd<span class="hl opt">,</span>	NULL<span class="hl opt">,</span>			<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;upvar&quot;</span><span class="hl opt">,</span>		Tcl_UpvarObjCmd<span class="hl opt">,</span>	TclCompileUpvarCmd<span class="hl opt">,</span>	<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;variable&quot;</span><span class="hl opt">,</span>	Tcl_VariableObjCmd<span class="hl opt">,</span>	TclCompileVariableCmd<span class="hl opt">,</span>	<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;while&quot;</span><span class="hl opt">,</span>		Tcl_WhileObjCmd<span class="hl opt">,</span>	TclCompileWhileCmd<span class="hl opt">,</span>	<span class="hl num">1</span><span class="hl opt">},</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Commands in the OS-interface. Note that many of these are unsafe.</span>
<span class="hl com">     */</span>

    <span class="hl opt">{</span><span class="hl str">&quot;after&quot;</span><span class="hl opt">,</span>		Tcl_AfterObjCmd<span class="hl opt">,</span>	NULL<span class="hl opt">,</span>			<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;cd&quot;</span><span class="hl opt">,</span>		Tcl_CdObjCmd<span class="hl opt">,</span>		NULL<span class="hl opt">,</span>			<span class="hl num">0</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;close&quot;</span><span class="hl opt">,</span>		Tcl_CloseObjCmd<span class="hl opt">,</span>	NULL<span class="hl opt">,</span>			<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;eof&quot;</span><span class="hl opt">,</span>		Tcl_EofObjCmd<span class="hl opt">,</span>		NULL<span class="hl opt">,</span>			<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;encoding&quot;</span><span class="hl opt">,</span>	Tcl_EncodingObjCmd<span class="hl opt">,</span>	NULL<span class="hl opt">,</span>			<span class="hl num">0</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;exec&quot;</span><span class="hl opt">,</span>		Tcl_ExecObjCmd<span class="hl opt">,</span>		NULL<span class="hl opt">,</span>			<span class="hl num">0</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;exit&quot;</span><span class="hl opt">,</span>		Tcl_ExitObjCmd<span class="hl opt">,</span>		NULL<span class="hl opt">,</span>			<span class="hl num">0</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;fblocked&quot;</span><span class="hl opt">,</span>	Tcl_FblockedObjCmd<span class="hl opt">,</span>	NULL<span class="hl opt">,</span>			<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;fconfigure&quot;</span><span class="hl opt">,</span>	Tcl_FconfigureObjCmd<span class="hl opt">,</span>	NULL<span class="hl opt">,</span>			<span class="hl num">0</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;fcopy&quot;</span><span class="hl opt">,</span>		Tcl_FcopyObjCmd<span class="hl opt">,</span>	NULL<span class="hl opt">,</span>			<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;file&quot;</span><span class="hl opt">,</span>		Tcl_FileObjCmd<span class="hl opt">,</span>		NULL<span class="hl opt">,</span>			<span class="hl num">0</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;fileevent&quot;</span><span class="hl opt">,</span>	Tcl_FileEventObjCmd<span class="hl opt">,</span>	NULL<span class="hl opt">,</span>			<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;flush&quot;</span><span class="hl opt">,</span>		Tcl_FlushObjCmd<span class="hl opt">,</span>	NULL<span class="hl opt">,</span>			<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;gets&quot;</span><span class="hl opt">,</span>		Tcl_GetsObjCmd<span class="hl opt">,</span>		NULL<span class="hl opt">,</span>			<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;glob&quot;</span><span class="hl opt">,</span>		Tcl_GlobObjCmd<span class="hl opt">,</span>		NULL<span class="hl opt">,</span>			<span class="hl num">0</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;load&quot;</span><span class="hl opt">,</span>		Tcl_LoadObjCmd<span class="hl opt">,</span>		NULL<span class="hl opt">,</span>			<span class="hl num">0</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;open&quot;</span><span class="hl opt">,</span>		Tcl_OpenObjCmd<span class="hl opt">,</span>		NULL<span class="hl opt">,</span>			<span class="hl num">0</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;pid&quot;</span><span class="hl opt">,</span>		Tcl_PidObjCmd<span class="hl opt">,</span>		NULL<span class="hl opt">,</span>			<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;puts&quot;</span><span class="hl opt">,</span>		Tcl_PutsObjCmd<span class="hl opt">,</span>		NULL<span class="hl opt">,</span>			<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;pwd&quot;</span><span class="hl opt">,</span>		Tcl_PwdObjCmd<span class="hl opt">,</span>		NULL<span class="hl opt">,</span>			<span class="hl num">0</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;read&quot;</span><span class="hl opt">,</span>		Tcl_ReadObjCmd<span class="hl opt">,</span>		NULL<span class="hl opt">,</span>			<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;seek&quot;</span><span class="hl opt">,</span>		Tcl_SeekObjCmd<span class="hl opt">,</span>		NULL<span class="hl opt">,</span>			<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;socket&quot;</span><span class="hl opt">,</span>		Tcl_SocketObjCmd<span class="hl opt">,</span>	NULL<span class="hl opt">,</span>			<span class="hl num">0</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;source&quot;</span><span class="hl opt">,</span>		Tcl_SourceObjCmd<span class="hl opt">,</span>	NULL<span class="hl opt">,</span>			<span class="hl num">0</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;tell&quot;</span><span class="hl opt">,</span>		Tcl_TellObjCmd<span class="hl opt">,</span>		NULL<span class="hl opt">,</span>			<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;time&quot;</span><span class="hl opt">,</span>		Tcl_TimeObjCmd<span class="hl opt">,</span>		NULL<span class="hl opt">,</span>			<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;unload&quot;</span><span class="hl opt">,</span>		Tcl_UnloadObjCmd<span class="hl opt">,</span>	NULL<span class="hl opt">,</span>			<span class="hl num">0</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;update&quot;</span><span class="hl opt">,</span>		Tcl_UpdateObjCmd<span class="hl opt">,</span>	NULL<span class="hl opt">,</span>			<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span><span class="hl str">&quot;vwait&quot;</span><span class="hl opt">,</span>		Tcl_VwaitObjCmd<span class="hl opt">,</span>	NULL<span class="hl opt">,</span>			<span class="hl num">1</span><span class="hl opt">},</span>
    <span class="hl opt">{</span>NULL<span class="hl opt">,</span>		NULL<span class="hl opt">,</span>			NULL<span class="hl opt">,</span>			<span class="hl num">0</span><span class="hl opt">}</span>
<span class="hl opt">};</span>

<span class="hl com">/*</span>
<span class="hl com"> * Math functions. All are safe.</span>
<span class="hl com"> */</span>

<span class="hl kwc">typedef</span> <span class="hl kwb">struct</span> <span class="hl opt">{</span>
    <span class="hl kwb">const char</span> <span class="hl opt">*</span>name<span class="hl opt">;</span>		<span class="hl com">/* Name of the function. The full name is</span>
<span class="hl com">				 * &quot;::tcl::mathfunc::&lt;name&gt;&quot;.  */</span>
    Tcl_ObjCmdProc <span class="hl opt">*</span>objCmdProc<span class="hl opt">;</span>	<span class="hl com">/* Function that evaluates the function */</span>
    ClientData clientData<span class="hl opt">;</span>	<span class="hl com">/* Client data for the function */</span>
<span class="hl opt">}</span> BuiltinFuncDef<span class="hl opt">;</span>
<span class="hl kwb">static const</span> BuiltinFuncDef BuiltinFuncTable<span class="hl opt">[] = {</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;abs&quot;</span><span class="hl opt">,</span>	ExprAbsFunc<span class="hl opt">,</span>	NULL 			<span class="hl opt">},</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;acos&quot;</span><span class="hl opt">,</span>	ExprUnaryFunc<span class="hl opt">,	(</span>ClientData<span class="hl opt">)</span> acos 	<span class="hl opt">},</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;asin&quot;</span><span class="hl opt">,</span>	ExprUnaryFunc<span class="hl opt">,	(</span>ClientData<span class="hl opt">)</span> asin 	<span class="hl opt">},</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;atan&quot;</span><span class="hl opt">,</span>	ExprUnaryFunc<span class="hl opt">,	(</span>ClientData<span class="hl opt">)</span> atan 	<span class="hl opt">},</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;atan2&quot;</span><span class="hl opt">,</span>	ExprBinaryFunc<span class="hl opt">,	(</span>ClientData<span class="hl opt">)</span> atan2 	<span class="hl opt">},</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;bool&quot;</span><span class="hl opt">,</span>	ExprBoolFunc<span class="hl opt">,</span>	NULL			<span class="hl opt">},</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;ceil&quot;</span><span class="hl opt">,</span>	ExprCeilFunc<span class="hl opt">,</span>	NULL		 	<span class="hl opt">},</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;cos&quot;</span><span class="hl opt">,</span>	ExprUnaryFunc<span class="hl opt">,	(</span>ClientData<span class="hl opt">)</span> cos 	<span class="hl opt">},</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;cosh&quot;</span><span class="hl opt">,</span>	ExprUnaryFunc<span class="hl opt">,	(</span>ClientData<span class="hl opt">)</span> cosh	<span class="hl opt">},</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;double&quot;</span><span class="hl opt">,</span>	ExprDoubleFunc<span class="hl opt">,</span>	NULL			<span class="hl opt">},</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;entier&quot;</span><span class="hl opt">,</span>	ExprEntierFunc<span class="hl opt">,</span>	NULL			<span class="hl opt">},</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;exp&quot;</span><span class="hl opt">,</span>	ExprUnaryFunc<span class="hl opt">,	(</span>ClientData<span class="hl opt">)</span> exp	<span class="hl opt">},</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;floor&quot;</span><span class="hl opt">,</span>	ExprFloorFunc<span class="hl opt">,</span>	NULL		 	<span class="hl opt">},</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;fmod&quot;</span><span class="hl opt">,</span>	ExprBinaryFunc<span class="hl opt">,	(</span>ClientData<span class="hl opt">)</span> fmod	<span class="hl opt">},</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;hypot&quot;</span><span class="hl opt">,</span>	ExprBinaryFunc<span class="hl opt">,	(</span>ClientData<span class="hl opt">)</span> hypot 	<span class="hl opt">},</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;int&quot;</span><span class="hl opt">,</span>	ExprIntFunc<span class="hl opt">,</span>	NULL			<span class="hl opt">},</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;isqrt&quot;</span><span class="hl opt">,</span>	ExprIsqrtFunc<span class="hl opt">,</span>	NULL			<span class="hl opt">},</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;log&quot;</span><span class="hl opt">,</span>	ExprUnaryFunc<span class="hl opt">,	(</span>ClientData<span class="hl opt">)</span> log 	<span class="hl opt">},</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;log10&quot;</span><span class="hl opt">,</span>	ExprUnaryFunc<span class="hl opt">,	(</span>ClientData<span class="hl opt">)</span> log10 	<span class="hl opt">},</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;pow&quot;</span><span class="hl opt">,</span>	ExprBinaryFunc<span class="hl opt">,	(</span>ClientData<span class="hl opt">)</span> pow 	<span class="hl opt">},</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;rand&quot;</span><span class="hl opt">,</span>	ExprRandFunc<span class="hl opt">,</span>	NULL			<span class="hl opt">},</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;round&quot;</span><span class="hl opt">,</span>	ExprRoundFunc<span class="hl opt">,</span>	NULL			<span class="hl opt">},</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;sin&quot;</span><span class="hl opt">,</span>	ExprUnaryFunc<span class="hl opt">,	(</span>ClientData<span class="hl opt">)</span> sin 	<span class="hl opt">},</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;sinh&quot;</span><span class="hl opt">,</span>	ExprUnaryFunc<span class="hl opt">,	(</span>ClientData<span class="hl opt">)</span> sinh 	<span class="hl opt">},</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;sqrt&quot;</span><span class="hl opt">,</span>	ExprSqrtFunc<span class="hl opt">,</span>	NULL		 	<span class="hl opt">},</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;srand&quot;</span><span class="hl opt">,</span>	ExprSrandFunc<span class="hl opt">,</span>	NULL			<span class="hl opt">},</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;tan&quot;</span><span class="hl opt">,</span>	ExprUnaryFunc<span class="hl opt">,	(</span>ClientData<span class="hl opt">)</span> tan 	<span class="hl opt">},</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;tanh&quot;</span><span class="hl opt">,</span>	ExprUnaryFunc<span class="hl opt">,	(</span>ClientData<span class="hl opt">)</span> tanh 	<span class="hl opt">},</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;wide&quot;</span><span class="hl opt">,</span>	ExprWideFunc<span class="hl opt">,</span>	NULL		 	<span class="hl opt">},</span>
    <span class="hl opt">{</span> NULL<span class="hl opt">,</span> NULL<span class="hl opt">,</span> NULL <span class="hl opt">}</span>
<span class="hl opt">};</span>

<span class="hl com">/*</span>
<span class="hl com"> * TIP#174's math operators. All are safe.</span>
<span class="hl com"> */</span>

<span class="hl kwc">typedef</span> <span class="hl kwb">struct</span> <span class="hl opt">{</span>
    <span class="hl kwb">const char</span> <span class="hl opt">*</span>name<span class="hl opt">;</span>		<span class="hl com">/* Name of object-based command. */</span>
    Tcl_ObjCmdProc <span class="hl opt">*</span>objProc<span class="hl opt">;</span>	<span class="hl com">/* Object-based function for command. */</span>
    CompileProc <span class="hl opt">*</span>compileProc<span class="hl opt">;</span>	<span class="hl com">/* Function called to compile command. */</span>
    <span class="hl kwb">union</span> <span class="hl opt">{</span>
	<span class="hl kwb">int</span> numArgs<span class="hl opt">;</span>
	<span class="hl kwb">int</span> identity<span class="hl opt">;</span>
    <span class="hl opt">}</span> i<span class="hl opt">;</span>
    <span class="hl kwb">const char</span> <span class="hl opt">*</span>expected<span class="hl opt">;</span>	<span class="hl com">/* For error message, what argument(s)</span>
<span class="hl com">				 * were expected. */</span>
<span class="hl opt">}</span> OpCmdInfo<span class="hl opt">;</span>
<span class="hl kwb">static const</span> OpCmdInfo mathOpCmds<span class="hl opt">[] = {</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;~&quot;</span><span class="hl opt">,</span>	TclSingleOpCmd<span class="hl opt">,</span>		TclCompileInvertOpCmd<span class="hl opt">,</span>
		<span class="hl com">/* numArgs */</span> <span class="hl opt">{</span><span class="hl num">1</span><span class="hl opt">},</span>	<span class="hl str">&quot;integer&quot;</span><span class="hl opt">},</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;!&quot;</span><span class="hl opt">,</span>	TclSingleOpCmd<span class="hl opt">,</span>		TclCompileNotOpCmd<span class="hl opt">,</span>
		<span class="hl com">/* numArgs */</span> <span class="hl opt">{</span><span class="hl num">1</span><span class="hl opt">},</span>	<span class="hl str">&quot;boolean&quot;</span><span class="hl opt">},</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;+&quot;</span><span class="hl opt">,</span>	TclVariadicOpCmd<span class="hl opt">,</span>	TclCompileAddOpCmd<span class="hl opt">,</span>
		<span class="hl com">/* identity */</span> <span class="hl opt">{</span><span class="hl num">0</span><span class="hl opt">},</span>	NULL<span class="hl opt">},</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;*&quot;</span><span class="hl opt">,</span>	TclVariadicOpCmd<span class="hl opt">,</span>	TclCompileMulOpCmd<span class="hl opt">,</span>
		<span class="hl com">/* identity */</span> <span class="hl opt">{</span><span class="hl num">1</span><span class="hl opt">},</span>	NULL<span class="hl opt">},</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;&amp;&quot;</span><span class="hl opt">,</span>	TclVariadicOpCmd<span class="hl opt">,</span>	TclCompileAndOpCmd<span class="hl opt">,</span>
		<span class="hl com">/* identity */</span> <span class="hl opt">{-</span><span class="hl num">1</span><span class="hl opt">},</span>	NULL<span class="hl opt">},</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;|&quot;</span><span class="hl opt">,</span>	TclVariadicOpCmd<span class="hl opt">,</span>	TclCompileOrOpCmd<span class="hl opt">,</span>
		<span class="hl com">/* identity */</span> <span class="hl opt">{</span><span class="hl num">0</span><span class="hl opt">},</span>	NULL<span class="hl opt">},</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;^&quot;</span><span class="hl opt">,</span>	TclVariadicOpCmd<span class="hl opt">,</span>	TclCompileXorOpCmd<span class="hl opt">,</span>
		<span class="hl com">/* identity */</span> <span class="hl opt">{</span><span class="hl num">0</span><span class="hl opt">},</span>	NULL<span class="hl opt">},</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;**&quot;</span><span class="hl opt">,</span>	TclVariadicOpCmd<span class="hl opt">,</span>	TclCompilePowOpCmd<span class="hl opt">,</span>
		<span class="hl com">/* identity */</span> <span class="hl opt">{</span><span class="hl num">1</span><span class="hl opt">},</span>	NULL<span class="hl opt">},</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;&lt;&lt;&quot;</span><span class="hl opt">,</span>	TclSingleOpCmd<span class="hl opt">,</span>		TclCompileLshiftOpCmd<span class="hl opt">,</span>
		<span class="hl com">/* numArgs */</span> <span class="hl opt">{</span><span class="hl num">2</span><span class="hl opt">},</span>	<span class="hl str">&quot;integer shift&quot;</span><span class="hl opt">},</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;&gt;&gt;&quot;</span><span class="hl opt">,</span>	TclSingleOpCmd<span class="hl opt">,</span>		TclCompileRshiftOpCmd<span class="hl opt">,</span>
		<span class="hl com">/* numArgs */</span> <span class="hl opt">{</span><span class="hl num">2</span><span class="hl opt">},</span>	<span class="hl str">&quot;integer shift&quot;</span><span class="hl opt">},</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;%&quot;</span><span class="hl opt">,</span>	TclSingleOpCmd<span class="hl opt">,</span>		TclCompileModOpCmd<span class="hl opt">,</span>
		<span class="hl com">/* numArgs */</span> <span class="hl opt">{</span><span class="hl num">2</span><span class="hl opt">},</span>	<span class="hl str">&quot;integer integer&quot;</span><span class="hl opt">},</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;!=&quot;</span><span class="hl opt">,</span>	TclSingleOpCmd<span class="hl opt">,</span>		TclCompileNeqOpCmd<span class="hl opt">,</span>
		<span class="hl com">/* numArgs */</span> <span class="hl opt">{</span><span class="hl num">2</span><span class="hl opt">},</span>	<span class="hl str">&quot;value value&quot;</span><span class="hl opt">},</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;ne&quot;</span><span class="hl opt">,</span>	TclSingleOpCmd<span class="hl opt">,</span>		TclCompileStrneqOpCmd<span class="hl opt">,</span>
		<span class="hl com">/* numArgs */</span> <span class="hl opt">{</span><span class="hl num">2</span><span class="hl opt">},</span>	<span class="hl str">&quot;value value&quot;</span><span class="hl opt">},</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;in&quot;</span><span class="hl opt">,</span>	TclSingleOpCmd<span class="hl opt">,</span>		TclCompileInOpCmd<span class="hl opt">,</span>
		<span class="hl com">/* numArgs */</span> <span class="hl opt">{</span><span class="hl num">2</span><span class="hl opt">},</span>	<span class="hl str">&quot;value list&quot;</span><span class="hl opt">},</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;ni&quot;</span><span class="hl opt">,</span>	TclSingleOpCmd<span class="hl opt">,</span>		TclCompileNiOpCmd<span class="hl opt">,</span>
		<span class="hl com">/* numArgs */</span> <span class="hl opt">{</span><span class="hl num">2</span><span class="hl opt">},</span>	<span class="hl str">&quot;value list&quot;</span><span class="hl opt">},</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;-&quot;</span><span class="hl opt">,</span>	TclNoIdentOpCmd<span class="hl opt">,</span>	TclCompileMinusOpCmd<span class="hl opt">,</span>
		<span class="hl com">/* unused */</span> <span class="hl opt">{</span><span class="hl num">0</span><span class="hl opt">},</span>	<span class="hl str">&quot;value ?value ...?&quot;</span><span class="hl opt">},</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;/&quot;</span><span class="hl opt">,</span>	TclNoIdentOpCmd<span class="hl opt">,</span>	TclCompileDivOpCmd<span class="hl opt">,</span>
		<span class="hl com">/* unused */</span> <span class="hl opt">{</span><span class="hl num">0</span><span class="hl opt">},</span>	<span class="hl str">&quot;value ?value ...?&quot;</span><span class="hl opt">},</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;&lt;&quot;</span><span class="hl opt">,</span>	TclSortingOpCmd<span class="hl opt">,</span>	TclCompileLessOpCmd<span class="hl opt">,</span>
		<span class="hl com">/* unused */</span> <span class="hl opt">{</span><span class="hl num">0</span><span class="hl opt">},</span>	NULL<span class="hl opt">},</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;&lt;=&quot;</span><span class="hl opt">,</span>	TclSortingOpCmd<span class="hl opt">,</span>	TclCompileLeqOpCmd<span class="hl opt">,</span>
		<span class="hl com">/* unused */</span> <span class="hl opt">{</span><span class="hl num">0</span><span class="hl opt">},</span>	NULL<span class="hl opt">},</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;&gt;&quot;</span><span class="hl opt">,</span>	TclSortingOpCmd<span class="hl opt">,</span>	TclCompileGreaterOpCmd<span class="hl opt">,</span>
		<span class="hl com">/* unused */</span> <span class="hl opt">{</span><span class="hl num">0</span><span class="hl opt">},</span>	NULL<span class="hl opt">},</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;&gt;=&quot;</span><span class="hl opt">,</span>	TclSortingOpCmd<span class="hl opt">,</span>	TclCompileGeqOpCmd<span class="hl opt">,</span>
		<span class="hl com">/* unused */</span> <span class="hl opt">{</span><span class="hl num">0</span><span class="hl opt">},</span>	NULL<span class="hl opt">},</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;==&quot;</span><span class="hl opt">,</span>	TclSortingOpCmd<span class="hl opt">,</span>	TclCompileEqOpCmd<span class="hl opt">,</span>
		<span class="hl com">/* unused */</span> <span class="hl opt">{</span><span class="hl num">0</span><span class="hl opt">},</span>	NULL<span class="hl opt">},</span>
    <span class="hl opt">{</span> <span class="hl str">&quot;eq&quot;</span><span class="hl opt">,</span>	TclSortingOpCmd<span class="hl opt">,</span>	TclCompileStreqOpCmd<span class="hl opt">,</span>
		<span class="hl com">/* unused */</span> <span class="hl opt">{</span><span class="hl num">0</span><span class="hl opt">},</span>	NULL<span class="hl opt">},</span>
    <span class="hl opt">{</span> NULL<span class="hl opt">,</span>	NULL<span class="hl opt">,</span>			NULL<span class="hl opt">,</span>
		<span class="hl opt">{</span><span class="hl num">0</span><span class="hl opt">},</span>			NULL<span class="hl opt">}</span>
<span class="hl opt">};</span>

<span class="hl com">/*</span>
<span class="hl com"> * Macros for stack checks. The goal of these macros is to allow the size of</span>
<span class="hl com"> * the stack to be checked (so preventing overflow) in a *cheap* way. Note</span>
<span class="hl com"> * that the check needs to be (amortized) cheap since it is on the critical</span>
<span class="hl com"> * path for recursion.</span>
<span class="hl com"> */</span>

<span class="hl ppc">#if defined(TCL_NO_STACK_CHECK)</span>
<span class="hl com">/*</span>
<span class="hl com"> * Stack check disabled: make them noops.</span>
<span class="hl com"> */</span>

<span class="hl ppc">#   define CheckCStack(interp, localIntPtr)	1</span>
<span class="hl ppc">#   define GetCStackParams(iPtr)</span>		<span class="hl com">/* do nothing */</span><span class="hl ppc"></span>
<span class="hl ppc">#elif defined(TCL_CROSS_COMPILE)</span>

<span class="hl com">/*</span>
<span class="hl com"> * This variable is static and only set *once*, during library initialization.</span>
<span class="hl com"> * It therefore needs no thread guards.</span>
<span class="hl com"> */</span>

<span class="hl kwb">static int</span> stackGrowsDown <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
<span class="hl ppc">#   define GetCStackParams(iPtr) \</span>
<span class="hl ppc">    stackGrowsDown = TclpGetCStackParams(&amp;((iPtr)-&gt;stackBound))</span>
<span class="hl ppc">#   define CheckCStack(iPtr, localIntPtr) \</span>
<span class="hl ppc">    (stackGrowsDown \</span>
<span class="hl ppc">	    ? ((localIntPtr) &gt; (iPtr)-&gt;stackBound) \</span>
<span class="hl ppc">	    : ((localIntPtr) &lt; (iPtr)-&gt;stackBound) \</span>
<span class="hl ppc">    )</span>
<span class="hl ppc">#else</span> <span class="hl com">/* !TCL_NO_STACK_CHECK &amp;&amp; !TCL_CROSS_COMPILE */</span><span class="hl ppc"></span>
<span class="hl ppc">#   define GetCStackParams(iPtr) \</span>
<span class="hl ppc">    TclpGetCStackParams(&amp;((iPtr)-&gt;stackBound))</span>
<span class="hl ppc">#   ifdef TCL_STACK_GROWS_UP</span>
<span class="hl ppc">#	define CheckCStack(iPtr, localIntPtr) \</span>
<span class="hl ppc">	   (!(iPtr)-&gt;stackBound || (localIntPtr) &lt; (iPtr)-&gt;stackBound)</span>
<span class="hl ppc">#    else</span> <span class="hl com">/* TCL_STACK_GROWS_UP */</span><span class="hl ppc"></span>
<span class="hl ppc">#	define CheckCStack(iPtr, localIntPtr) \</span>
<span class="hl ppc">	   ((localIntPtr) &gt; (iPtr)-&gt;stackBound)</span>
<span class="hl ppc">#    endif</span> <span class="hl com">/* TCL_STACK_GROWS_UP */</span><span class="hl ppc"></span>
<span class="hl ppc">#endif</span> <span class="hl com">/* TCL_NO_STACK_CHECK/TCL_CROSS_COMPILE */</span><span class="hl ppc"></span>

<span class="hl com">/*</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> *</span>
<span class="hl com"> * Tcl_CreateInterp --</span>
<span class="hl com"> *</span>
<span class="hl com"> *	Create a new TCL command interpreter.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Results:</span>
<span class="hl com"> *	The return value is a token for the interpreter, which may be used in</span>
<span class="hl com"> *	calls to functions like Tcl_CreateCmd, Tcl_Eval, or Tcl_DeleteInterp.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Side effects:</span>
<span class="hl com"> *	The command interpreter is initialized with the built-in commands and</span>
<span class="hl com"> *	with the variables documented in tclvars(n).</span>
<span class="hl com"> *</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> */</span>

Tcl_Interp <span class="hl opt">*</span>
<span class="hl kwd">Tcl_CreateInterp</span><span class="hl opt">(</span><span class="hl kwb">void</span><span class="hl opt">)</span>
<span class="hl opt">{</span>
    Interp <span class="hl opt">*</span>iPtr<span class="hl opt">;</span>
    Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">;</span>
    Command <span class="hl opt">*</span>cmdPtr<span class="hl opt">;</span>
    <span class="hl kwb">const</span> BuiltinFuncDef <span class="hl opt">*</span>builtinFuncPtr<span class="hl opt">;</span>
    <span class="hl kwb">const</span> OpCmdInfo <span class="hl opt">*</span>opcmdInfoPtr<span class="hl opt">;</span>
    <span class="hl kwb">const</span> CmdInfo <span class="hl opt">*</span>cmdInfoPtr<span class="hl opt">;</span>
    Tcl_Namespace <span class="hl opt">*</span>mathfuncNSPtr<span class="hl opt">, *</span>mathopNSPtr<span class="hl opt">;</span>
    <span class="hl kwb">union</span> <span class="hl opt">{</span>
	<span class="hl kwb">char</span> c<span class="hl opt">[</span><span class="hl kwa">sizeof</span><span class="hl opt">(</span><span class="hl kwb">short</span><span class="hl opt">)];</span>
	<span class="hl kwb">short</span> s<span class="hl opt">;</span>
    <span class="hl opt">}</span> order<span class="hl opt">;</span>
<span class="hl ppc">#ifdef TCL_COMPILE_STATS</span>
    ByteCodeStats <span class="hl opt">*</span>statsPtr<span class="hl opt">;</span>
<span class="hl ppc">#endif</span> <span class="hl com">/* TCL_COMPILE_STATS */</span><span class="hl ppc"></span>
    <span class="hl kwb">char</span> mathFuncName<span class="hl opt">[</span><span class="hl num">32</span><span class="hl opt">];</span>
    CallFrame <span class="hl opt">*</span>framePtr<span class="hl opt">;</span>
    <span class="hl kwb">int</span> result<span class="hl opt">;</span>

    <span class="hl kwd">TclInitSubsystems</span><span class="hl opt">();</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Panic if someone updated the CallFrame structure without also updating</span>
<span class="hl com">     * the Tcl_CallFrame structure (or vice versa).</span>
<span class="hl com">     */</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwa">sizeof</span><span class="hl opt">(</span>Tcl_CallFrame<span class="hl opt">) &lt;</span> <span class="hl kwa">sizeof</span><span class="hl opt">(</span>CallFrame<span class="hl opt">)) {</span>
	<span class="hl com">/*NOTREACHED*/</span>
	<span class="hl kwd">Tcl_Panic</span><span class="hl opt">(</span><span class="hl str">&quot;Tcl_CallFrame must not be smaller than CallFrame&quot;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>

<span class="hl ppc">#if defined(_WIN32) &amp;&amp; !defined(_WIN64)</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwa">sizeof</span><span class="hl opt">(</span><span class="hl kwb">time_t</span><span class="hl opt">) !=</span> <span class="hl num">4</span><span class="hl opt">) {</span>
	<span class="hl com">/*NOTREACHED*/</span>
	<span class="hl kwd">Tcl_Panic</span><span class="hl opt">(</span><span class="hl str">&quot;sys/time.h is not compatible with MSVC&quot;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwa">sizeof</span><span class="hl opt">(</span>Tcl_StatBuf<span class="hl opt">) !=</span> <span class="hl num">48</span><span class="hl opt">) {</span>
	<span class="hl com">/*NOTREACHED*/</span>
	<span class="hl kwd">Tcl_Panic</span><span class="hl opt">(</span><span class="hl str">&quot;sys/stat.h is not compatible with MSVC&quot;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
<span class="hl ppc">#endif</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Initialize support for namespaces and create the global namespace</span>
<span class="hl com">     * (whose name is &quot;&quot;; an alias is &quot;::&quot;). This also initializes the Tcl</span>
<span class="hl com">     * object type table and other object management code.</span>
<span class="hl com">     */</span>

    iPtr <span class="hl opt">= (</span>Interp <span class="hl opt">*)</span> <span class="hl kwd">ckalloc</span><span class="hl opt">(</span><span class="hl kwa">sizeof</span><span class="hl opt">(</span>Interp<span class="hl opt">));</span>
    interp <span class="hl opt">= (</span>Tcl_Interp <span class="hl opt">*)</span> iPtr<span class="hl opt">;</span>

    iPtr<span class="hl opt">-&gt;</span>result <span class="hl opt">=</span> iPtr<span class="hl opt">-&gt;</span>resultSpace<span class="hl opt">;</span>
    iPtr<span class="hl opt">-&gt;</span>freeProc <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
    iPtr<span class="hl opt">-&gt;</span>errorLine <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
    iPtr<span class="hl opt">-&gt;</span>objResultPtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_NewObj</span><span class="hl opt">();</span>
    <span class="hl kwd">Tcl_IncrRefCount</span><span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>objResultPtr<span class="hl opt">);</span>
    iPtr<span class="hl opt">-&gt;</span>handle <span class="hl opt">=</span> <span class="hl kwd">TclHandleCreate</span><span class="hl opt">(</span>iPtr<span class="hl opt">);</span>
    iPtr<span class="hl opt">-&gt;</span>globalNsPtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
    iPtr<span class="hl opt">-&gt;</span>hiddenCmdTablePtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
    iPtr<span class="hl opt">-&gt;</span>interpInfo <span class="hl opt">=</span> NULL<span class="hl opt">;</span>

    iPtr<span class="hl opt">-&gt;</span>numLevels <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
    iPtr<span class="hl opt">-&gt;</span>maxNestingDepth <span class="hl opt">=</span> MAX_NESTING_DEPTH<span class="hl opt">;</span>
    iPtr<span class="hl opt">-&gt;</span>framePtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>	<span class="hl com">/* Initialise as soon as :: is available */</span>
    iPtr<span class="hl opt">-&gt;</span>varFramePtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>	<span class="hl com">/* Initialise as soon as :: is available */</span>

    <span class="hl com">/*</span>
<span class="hl com">     * TIP #280 - Initialize the arrays used to extend the ByteCode and</span>
<span class="hl com">     * Proc structures.</span>
<span class="hl com">     */</span>

    iPtr<span class="hl opt">-&gt;</span>cmdFramePtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
    iPtr<span class="hl opt">-&gt;</span>linePBodyPtr <span class="hl opt">= (</span>Tcl_HashTable <span class="hl opt">*)</span> <span class="hl kwd">ckalloc</span><span class="hl opt">(</span><span class="hl kwa">sizeof</span><span class="hl opt">(</span>Tcl_HashTable<span class="hl opt">));</span>
    iPtr<span class="hl opt">-&gt;</span>lineBCPtr <span class="hl opt">= (</span>Tcl_HashTable <span class="hl opt">*)</span> <span class="hl kwd">ckalloc</span><span class="hl opt">(</span><span class="hl kwa">sizeof</span><span class="hl opt">(</span>Tcl_HashTable<span class="hl opt">));</span>
    iPtr<span class="hl opt">-&gt;</span>lineLAPtr <span class="hl opt">= (</span>Tcl_HashTable<span class="hl opt">*)</span> <span class="hl kwd">ckalloc</span> <span class="hl opt">(</span><span class="hl kwa">sizeof</span> <span class="hl opt">(</span>Tcl_HashTable<span class="hl opt">));</span>
    iPtr<span class="hl opt">-&gt;</span>lineLABCPtr <span class="hl opt">= (</span>Tcl_HashTable<span class="hl opt">*)</span> <span class="hl kwd">ckalloc</span> <span class="hl opt">(</span><span class="hl kwa">sizeof</span> <span class="hl opt">(</span>Tcl_HashTable<span class="hl opt">));</span>
    <span class="hl kwd">Tcl_InitHashTable</span><span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>linePBodyPtr<span class="hl opt">,</span> TCL_ONE_WORD_KEYS<span class="hl opt">);</span>
    <span class="hl kwd">Tcl_InitHashTable</span><span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>lineBCPtr<span class="hl opt">,</span> TCL_ONE_WORD_KEYS<span class="hl opt">);</span>
    <span class="hl kwd">Tcl_InitHashTable</span><span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>lineLAPtr<span class="hl opt">,</span> TCL_ONE_WORD_KEYS<span class="hl opt">);</span>
    <span class="hl kwd">Tcl_InitHashTable</span><span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>lineLABCPtr<span class="hl opt">,</span> TCL_ONE_WORD_KEYS<span class="hl opt">);</span>
    iPtr<span class="hl opt">-&gt;</span>scriptCLLocPtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>

    iPtr<span class="hl opt">-&gt;</span>activeVarTracePtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>

    iPtr<span class="hl opt">-&gt;</span>returnOpts <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
    iPtr<span class="hl opt">-&gt;</span>errorInfo <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
    <span class="hl kwd">TclNewLiteralStringObj</span><span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>eiVar<span class="hl opt">,</span> <span class="hl str">&quot;::errorInfo&quot;</span><span class="hl opt">);</span>
    <span class="hl kwd">Tcl_IncrRefCount</span><span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>eiVar<span class="hl opt">);</span>
    iPtr<span class="hl opt">-&gt;</span>errorCode <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
    <span class="hl kwd">TclNewLiteralStringObj</span><span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>ecVar<span class="hl opt">,</span> <span class="hl str">&quot;::errorCode&quot;</span><span class="hl opt">);</span>
    <span class="hl kwd">Tcl_IncrRefCount</span><span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>ecVar<span class="hl opt">);</span>
    iPtr<span class="hl opt">-&gt;</span>returnLevel <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
    iPtr<span class="hl opt">-&gt;</span>returnCode <span class="hl opt">=</span> TCL_OK<span class="hl opt">;</span>

    iPtr<span class="hl opt">-&gt;</span>rootFramePtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>	<span class="hl com">/* Initialise as soon as :: is available */</span>
    iPtr<span class="hl opt">-&gt;</span>lookupNsPtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>

    iPtr<span class="hl opt">-&gt;</span>appendResult <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
    iPtr<span class="hl opt">-&gt;</span>appendAvl <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
    iPtr<span class="hl opt">-&gt;</span>appendUsed <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>

    <span class="hl kwd">Tcl_InitHashTable</span><span class="hl opt">(&amp;</span>iPtr<span class="hl opt">-&gt;</span>packageTable<span class="hl opt">,</span> TCL_STRING_KEYS<span class="hl opt">);</span>
    iPtr<span class="hl opt">-&gt;</span>packageUnknown <span class="hl opt">=</span> NULL<span class="hl opt">;</span>

    <span class="hl com">/* TIP #268 */</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwd">getenv</span><span class="hl opt">(</span><span class="hl str">&quot;TCL_PKG_PREFER_LATEST&quot;</span><span class="hl opt">) ==</span> NULL<span class="hl opt">) {</span>
	iPtr<span class="hl opt">-&gt;</span>packagePrefer <span class="hl opt">=</span> PKG_PREFER_STABLE<span class="hl opt">;</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	iPtr<span class="hl opt">-&gt;</span>packagePrefer <span class="hl opt">=</span> PKG_PREFER_LATEST<span class="hl opt">;</span>
    <span class="hl opt">}</span>

    iPtr<span class="hl opt">-&gt;</span>cmdCount <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
    <span class="hl kwd">TclInitLiteralTable</span><span class="hl opt">(&amp;(</span>iPtr<span class="hl opt">-&gt;</span>literalTable<span class="hl opt">));</span>
    iPtr<span class="hl opt">-&gt;</span>compileEpoch <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
    iPtr<span class="hl opt">-&gt;</span>compiledProcPtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
    iPtr<span class="hl opt">-&gt;</span>resolverPtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
    iPtr<span class="hl opt">-&gt;</span>evalFlags <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
    iPtr<span class="hl opt">-&gt;</span>scriptFile <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
    iPtr<span class="hl opt">-&gt;</span>flags <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
    iPtr<span class="hl opt">-&gt;</span>tracePtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
    iPtr<span class="hl opt">-&gt;</span>tracesForbiddingInline <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
    iPtr<span class="hl opt">-&gt;</span>activeCmdTracePtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
    iPtr<span class="hl opt">-&gt;</span>activeInterpTracePtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
    iPtr<span class="hl opt">-&gt;</span>assocData <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
    iPtr<span class="hl opt">-&gt;</span>execEnvPtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>	<span class="hl com">/* Set after namespaces initialized. */</span>
    iPtr<span class="hl opt">-&gt;</span>emptyObjPtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_NewObj</span><span class="hl opt">();</span>
				<span class="hl com">/* Another empty object. */</span>
    <span class="hl kwd">Tcl_IncrRefCount</span><span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>emptyObjPtr<span class="hl opt">);</span>
    iPtr<span class="hl opt">-&gt;</span>resultSpace<span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">] =</span> <span class="hl num">0</span><span class="hl opt">;</span>
    iPtr<span class="hl opt">-&gt;</span>threadId <span class="hl opt">=</span> <span class="hl kwd">Tcl_GetCurrentThread</span><span class="hl opt">();</span>

    <span class="hl com">/* TIP #378 */</span>
<span class="hl ppc">#ifdef TCL_INTERP_DEBUG_FRAME</span>
    iPtr<span class="hl opt">-&gt;</span>flags <span class="hl opt">|=</span> INTERP_DEBUG_FRAME<span class="hl opt">;</span>
<span class="hl ppc">#else</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwd">getenv</span><span class="hl opt">(</span><span class="hl str">&quot;TCL_INTERP_DEBUG_FRAME&quot;</span><span class="hl opt">) !=</span> NULL<span class="hl opt">) {</span>
        iPtr<span class="hl opt">-&gt;</span>flags <span class="hl opt">|=</span> INTERP_DEBUG_FRAME<span class="hl opt">;</span>
    <span class="hl opt">}</span>
<span class="hl ppc">#endif</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Initialise the tables for variable traces and searches *before*</span>
<span class="hl com">     * creating the global ns - so that the trace on errorInfo can be</span>
<span class="hl com">     * recorded.</span>
<span class="hl com">     */</span>

    <span class="hl kwd">Tcl_InitHashTable</span><span class="hl opt">(&amp;</span>iPtr<span class="hl opt">-&gt;</span>varTraces<span class="hl opt">,</span> TCL_ONE_WORD_KEYS<span class="hl opt">);</span>
    <span class="hl kwd">Tcl_InitHashTable</span><span class="hl opt">(&amp;</span>iPtr<span class="hl opt">-&gt;</span>varSearches<span class="hl opt">,</span> TCL_ONE_WORD_KEYS<span class="hl opt">);</span>

    iPtr<span class="hl opt">-&gt;</span>globalNsPtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>	<span class="hl com">/* Force creation of global ns below. */</span>
    iPtr<span class="hl opt">-&gt;</span>globalNsPtr <span class="hl opt">= (</span>Namespace <span class="hl opt">*)</span> <span class="hl kwd">Tcl_CreateNamespace</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">,</span>
	    NULL<span class="hl opt">,</span> NULL<span class="hl opt">);</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>globalNsPtr <span class="hl opt">==</span> NULL<span class="hl opt">) {</span>
	<span class="hl kwd">Tcl_Panic</span><span class="hl opt">(</span><span class="hl str">&quot;Tcl_CreateInterp: can't create global namespace&quot;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Initialise the rootCallframe. It cannot be allocated on the stack, as</span>
<span class="hl com">     * it has to be in place before TclCreateExecEnv tries to use a variable.</span>
<span class="hl com">     */</span>

    <span class="hl com">/* This is needed to satisfy GCC 3.3's strict aliasing rules */</span>
    framePtr <span class="hl opt">= (</span>CallFrame <span class="hl opt">*)</span> <span class="hl kwd">ckalloc</span><span class="hl opt">(</span><span class="hl kwa">sizeof</span><span class="hl opt">(</span>CallFrame<span class="hl opt">));</span>
    result <span class="hl opt">=</span> <span class="hl kwd">Tcl_PushCallFrame</span><span class="hl opt">(</span>interp<span class="hl opt">, (</span>Tcl_CallFrame <span class="hl opt">*)</span> framePtr<span class="hl opt">,</span>
	    <span class="hl opt">(</span>Tcl_Namespace <span class="hl opt">*)</span> iPtr<span class="hl opt">-&gt;</span>globalNsPtr<span class="hl opt">,</span> <span class="hl com">/*isProcCallFrame*/</span> <span class="hl num">0</span><span class="hl opt">);</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>result <span class="hl opt">!=</span> TCL_OK<span class="hl opt">) {</span>
	<span class="hl kwd">Tcl_Panic</span><span class="hl opt">(</span><span class="hl str">&quot;Tcl_CreateInterp: failed to push the root stack frame&quot;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    framePtr<span class="hl opt">-&gt;</span>objc <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>

    iPtr<span class="hl opt">-&gt;</span>framePtr <span class="hl opt">=</span> framePtr<span class="hl opt">;</span>
    iPtr<span class="hl opt">-&gt;</span>varFramePtr <span class="hl opt">=</span> framePtr<span class="hl opt">;</span>
    iPtr<span class="hl opt">-&gt;</span>rootFramePtr <span class="hl opt">=</span> framePtr<span class="hl opt">;</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Initialize support for code compilation and execution. We call</span>
<span class="hl com">     * TclCreateExecEnv after initializing namespaces since it tries to</span>
<span class="hl com">     * reference a Tcl variable (it links to the Tcl &quot;tcl_traceExec&quot;</span>
<span class="hl com">     * variable).</span>
<span class="hl com">     */</span>

    iPtr<span class="hl opt">-&gt;</span>execEnvPtr <span class="hl opt">=</span> <span class="hl kwd">TclCreateExecEnv</span><span class="hl opt">(</span>interp<span class="hl opt">);</span>

    <span class="hl com">/*</span>
<span class="hl com">     * TIP #219, Tcl Channel Reflection API support.</span>
<span class="hl com">     */</span>

    iPtr<span class="hl opt">-&gt;</span>chanMsg <span class="hl opt">=</span> NULL<span class="hl opt">;</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Initialize the compilation and execution statistics kept for this</span>
<span class="hl com">     * interpreter.</span>
<span class="hl com">     */</span>

<span class="hl ppc">#ifdef TCL_COMPILE_STATS</span>
    statsPtr <span class="hl opt">= &amp;(</span>iPtr<span class="hl opt">-&gt;</span>stats<span class="hl opt">);</span>
    statsPtr<span class="hl opt">-&gt;</span>numExecutions <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
    statsPtr<span class="hl opt">-&gt;</span>numCompilations <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
    statsPtr<span class="hl opt">-&gt;</span>numByteCodesFreed <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
    <span class="hl opt">(</span><span class="hl kwb">void</span><span class="hl opt">)</span> <span class="hl kwd">memset</span><span class="hl opt">(</span>statsPtr<span class="hl opt">-&gt;</span>instructionCount<span class="hl opt">,</span> <span class="hl num">0</span><span class="hl opt">,</span>
	    <span class="hl kwa">sizeof</span><span class="hl opt">(</span>statsPtr<span class="hl opt">-&gt;</span>instructionCount<span class="hl opt">));</span>

    statsPtr<span class="hl opt">-&gt;</span>totalSrcBytes <span class="hl opt">=</span> <span class="hl num">0.0</span><span class="hl opt">;</span>
    statsPtr<span class="hl opt">-&gt;</span>totalByteCodeBytes <span class="hl opt">=</span> <span class="hl num">0.0</span><span class="hl opt">;</span>
    statsPtr<span class="hl opt">-&gt;</span>currentSrcBytes <span class="hl opt">=</span> <span class="hl num">0.0</span><span class="hl opt">;</span>
    statsPtr<span class="hl opt">-&gt;</span>currentByteCodeBytes <span class="hl opt">=</span> <span class="hl num">0.0</span><span class="hl opt">;</span>
    <span class="hl opt">(</span><span class="hl kwb">void</span><span class="hl opt">)</span> <span class="hl kwd">memset</span><span class="hl opt">(</span>statsPtr<span class="hl opt">-&gt;</span>srcCount<span class="hl opt">,</span> <span class="hl num">0</span><span class="hl opt">,</span> <span class="hl kwa">sizeof</span><span class="hl opt">(</span>statsPtr<span class="hl opt">-&gt;</span>srcCount<span class="hl opt">));</span>
    <span class="hl opt">(</span><span class="hl kwb">void</span><span class="hl opt">)</span> <span class="hl kwd">memset</span><span class="hl opt">(</span>statsPtr<span class="hl opt">-&gt;</span>byteCodeCount<span class="hl opt">,</span> <span class="hl num">0</span><span class="hl opt">,</span> <span class="hl kwa">sizeof</span><span class="hl opt">(</span>statsPtr<span class="hl opt">-&gt;</span>byteCodeCount<span class="hl opt">));</span>
    <span class="hl opt">(</span><span class="hl kwb">void</span><span class="hl opt">)</span> <span class="hl kwd">memset</span><span class="hl opt">(</span>statsPtr<span class="hl opt">-&gt;</span>lifetimeCount<span class="hl opt">,</span> <span class="hl num">0</span><span class="hl opt">,</span> <span class="hl kwa">sizeof</span><span class="hl opt">(</span>statsPtr<span class="hl opt">-&gt;</span>lifetimeCount<span class="hl opt">));</span>

    statsPtr<span class="hl opt">-&gt;</span>currentInstBytes <span class="hl opt">=</span> <span class="hl num">0.0</span><span class="hl opt">;</span>
    statsPtr<span class="hl opt">-&gt;</span>currentLitBytes <span class="hl opt">=</span> <span class="hl num">0.0</span><span class="hl opt">;</span>
    statsPtr<span class="hl opt">-&gt;</span>currentExceptBytes <span class="hl opt">=</span> <span class="hl num">0.0</span><span class="hl opt">;</span>
    statsPtr<span class="hl opt">-&gt;</span>currentAuxBytes <span class="hl opt">=</span> <span class="hl num">0.0</span><span class="hl opt">;</span>
    statsPtr<span class="hl opt">-&gt;</span>currentCmdMapBytes <span class="hl opt">=</span> <span class="hl num">0.0</span><span class="hl opt">;</span>

    statsPtr<span class="hl opt">-&gt;</span>numLiteralsCreated <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
    statsPtr<span class="hl opt">-&gt;</span>totalLitStringBytes <span class="hl opt">=</span> <span class="hl num">0.0</span><span class="hl opt">;</span>
    statsPtr<span class="hl opt">-&gt;</span>currentLitStringBytes <span class="hl opt">=</span> <span class="hl num">0.0</span><span class="hl opt">;</span>
    <span class="hl opt">(</span><span class="hl kwb">void</span><span class="hl opt">)</span> <span class="hl kwd">memset</span><span class="hl opt">(</span>statsPtr<span class="hl opt">-&gt;</span>literalCount<span class="hl opt">,</span> <span class="hl num">0</span><span class="hl opt">,</span> <span class="hl kwa">sizeof</span><span class="hl opt">(</span>statsPtr<span class="hl opt">-&gt;</span>literalCount<span class="hl opt">));</span>
<span class="hl ppc">#endif</span> <span class="hl com">/* TCL_COMPILE_STATS */</span><span class="hl ppc"></span>

    <span class="hl com">/*</span>
<span class="hl com">     * Initialise the stub table pointer.</span>
<span class="hl com">     */</span>

    iPtr<span class="hl opt">-&gt;</span>stubTable <span class="hl opt">= &amp;</span>tclStubs<span class="hl opt">;</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Initialize the ensemble error message rewriting support.</span>
<span class="hl com">     */</span>

    iPtr<span class="hl opt">-&gt;</span>ensembleRewrite<span class="hl opt">.</span>sourceObjs <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
    iPtr<span class="hl opt">-&gt;</span>ensembleRewrite<span class="hl opt">.</span>numRemovedObjs <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
    iPtr<span class="hl opt">-&gt;</span>ensembleRewrite<span class="hl opt">.</span>numInsertedObjs <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>

    <span class="hl com">/*</span>
<span class="hl com">     * TIP#143: Initialise the resource limit support.</span>
<span class="hl com">     */</span>

    <span class="hl kwd">TclInitLimitSupport</span><span class="hl opt">(</span>interp<span class="hl opt">);</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Initialise the thread-specific data ekeko.</span>
<span class="hl com">     */</span>

<span class="hl ppc">#if defined(TCL_THREADS) &amp;&amp; defined(USE_THREAD_ALLOC)</span>
    iPtr<span class="hl opt">-&gt;</span>allocCache <span class="hl opt">=</span> <span class="hl kwd">TclpGetAllocCache</span><span class="hl opt">();</span>
<span class="hl ppc">#else</span>
    iPtr<span class="hl opt">-&gt;</span>allocCache <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
<span class="hl ppc">#endif</span>
    iPtr<span class="hl opt">-&gt;</span>pendingObjDataPtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
    iPtr<span class="hl opt">-&gt;</span>asyncReadyPtr <span class="hl opt">=</span> <span class="hl kwd">TclGetAsyncReadyPtr</span><span class="hl opt">();</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Insure that the stack checking mechanism for this interp is</span>
<span class="hl com">     * initialized.</span>
<span class="hl com">     */</span>

    <span class="hl kwd">GetCStackParams</span><span class="hl opt">(</span>iPtr<span class="hl opt">);</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Create the core commands. Do it here, rather than calling</span>
<span class="hl com">     * Tcl_CreateCommand, because it's faster (there's no need to check for a</span>
<span class="hl com">     * pre-existing command by the same name). If a command has a Tcl_CmdProc</span>
<span class="hl com">     * but no Tcl_ObjCmdProc, set the Tcl_ObjCmdProc to</span>
<span class="hl com">     * TclInvokeStringCommand. This is an object-based wrapper function that</span>
<span class="hl com">     * extracts strings, calls the string function, and creates an object for</span>
<span class="hl com">     * the result. Similarly, if a command has a Tcl_ObjCmdProc but no</span>
<span class="hl com">     * Tcl_CmdProc, set the Tcl_CmdProc to TclInvokeObjectCommand.</span>
<span class="hl com">     */</span>

    <span class="hl kwa">for</span> <span class="hl opt">(</span>cmdInfoPtr <span class="hl opt">=</span> builtInCmds<span class="hl opt">;</span>  cmdInfoPtr<span class="hl opt">-&gt;</span>name <span class="hl opt">!=</span> NULL<span class="hl opt">;</span> cmdInfoPtr<span class="hl opt">++) {</span>
	<span class="hl kwb">int</span> isNew<span class="hl opt">;</span>
	Tcl_HashEntry <span class="hl opt">*</span>hPtr<span class="hl opt">;</span>

	<span class="hl kwa">if</span> <span class="hl opt">((</span>cmdInfoPtr<span class="hl opt">-&gt;</span>objProc <span class="hl opt">==</span> NULL<span class="hl opt">)</span>
		<span class="hl opt">&amp;&amp; (</span>cmdInfoPtr<span class="hl opt">-&gt;</span>compileProc <span class="hl opt">==</span> NULL<span class="hl opt">)) {</span>
	    <span class="hl kwd">Tcl_Panic</span><span class="hl opt">(</span><span class="hl str">&quot;builtin command with NULL object command proc and a NULL compile proc&quot;</span><span class="hl opt">);</span>
	<span class="hl opt">}</span>

	hPtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_CreateHashEntry</span><span class="hl opt">(&amp;</span>iPtr<span class="hl opt">-&gt;</span>globalNsPtr<span class="hl opt">-&gt;</span>cmdTable<span class="hl opt">,</span>
		cmdInfoPtr<span class="hl opt">-&gt;</span>name<span class="hl opt">, &amp;</span>isNew<span class="hl opt">);</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span>isNew<span class="hl opt">) {</span>
	    cmdPtr <span class="hl opt">= (</span>Command <span class="hl opt">*)</span> <span class="hl kwd">ckalloc</span><span class="hl opt">(</span><span class="hl kwa">sizeof</span><span class="hl opt">(</span>Command<span class="hl opt">));</span>
	    cmdPtr<span class="hl opt">-&gt;</span>hPtr <span class="hl opt">=</span> hPtr<span class="hl opt">;</span>
	    cmdPtr<span class="hl opt">-&gt;</span>nsPtr <span class="hl opt">=</span> iPtr<span class="hl opt">-&gt;</span>globalNsPtr<span class="hl opt">;</span>
	    cmdPtr<span class="hl opt">-&gt;</span>refCount <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
	    cmdPtr<span class="hl opt">-&gt;</span>cmdEpoch <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
	    cmdPtr<span class="hl opt">-&gt;</span>compileProc <span class="hl opt">=</span> cmdInfoPtr<span class="hl opt">-&gt;</span>compileProc<span class="hl opt">;</span>
	    cmdPtr<span class="hl opt">-&gt;</span>proc <span class="hl opt">=</span> TclInvokeObjectCommand<span class="hl opt">;</span>
	    cmdPtr<span class="hl opt">-&gt;</span>clientData <span class="hl opt">=</span> cmdPtr<span class="hl opt">;</span>
	    cmdPtr<span class="hl opt">-&gt;</span>objProc <span class="hl opt">=</span> cmdInfoPtr<span class="hl opt">-&gt;</span>objProc<span class="hl opt">;</span>
	    cmdPtr<span class="hl opt">-&gt;</span>objClientData <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
	    cmdPtr<span class="hl opt">-&gt;</span>deleteProc <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
	    cmdPtr<span class="hl opt">-&gt;</span>deleteData <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
	    cmdPtr<span class="hl opt">-&gt;</span>flags <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
	    cmdPtr<span class="hl opt">-&gt;</span>importRefPtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
	    cmdPtr<span class="hl opt">-&gt;</span>tracePtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
	    <span class="hl kwd">Tcl_SetHashValue</span><span class="hl opt">(</span>hPtr<span class="hl opt">,</span> cmdPtr<span class="hl opt">);</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Create the &quot;chan&quot;, &quot;dict&quot;, &quot;info&quot; and &quot;string&quot; ensembles. Note that all</span>
<span class="hl com">     * these commands (and their subcommands that are not present in the</span>
<span class="hl com">     * global namespace) are wholly safe.</span>
<span class="hl com">     */</span>

    <span class="hl kwd">TclInitChanCmd</span><span class="hl opt">(</span>interp<span class="hl opt">);</span>
    <span class="hl kwd">TclInitDictCmd</span><span class="hl opt">(</span>interp<span class="hl opt">);</span>
    <span class="hl kwd">TclInitInfoCmd</span><span class="hl opt">(</span>interp<span class="hl opt">);</span>
    <span class="hl kwd">TclInitStringCmd</span><span class="hl opt">(</span>interp<span class="hl opt">);</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Register &quot;clock&quot; subcommands. These *do* go through</span>
<span class="hl com">     * Tcl_CreateObjCommand, since they aren't in the global namespace and</span>
<span class="hl com">     * involve ensembles.</span>
<span class="hl com">     */</span>

    <span class="hl kwd">TclClockInit</span><span class="hl opt">(</span>interp<span class="hl opt">);</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Register the built-in functions. This is empty now that they are</span>
<span class="hl com">     * implemented as commands in the ::tcl::mathfunc namespace.</span>
<span class="hl com">     */</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Register the default [interp bgerror] handler.</span>
<span class="hl com">     */</span>

    <span class="hl kwd">Tcl_CreateObjCommand</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> <span class="hl str">&quot;::tcl::Bgerror&quot;</span><span class="hl opt">,</span>
	    TclDefaultBgErrorHandlerObjCmd<span class="hl opt">,</span> NULL<span class="hl opt">,</span> NULL<span class="hl opt">);</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Create an unsupported command for debugging bytecode.</span>
<span class="hl com">     */</span>

    <span class="hl kwd">Tcl_CreateObjCommand</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> <span class="hl str">&quot;::tcl::unsupported::disassemble&quot;</span><span class="hl opt">,</span>
	    Tcl_DisassembleObjCmd<span class="hl opt">,</span> NULL<span class="hl opt">,</span> NULL<span class="hl opt">);</span>

<span class="hl ppc">#ifdef USE_DTRACE</span>
    <span class="hl com">/*</span>
<span class="hl com">     * Register the tcl::dtrace command.</span>
<span class="hl com">     */</span>

    <span class="hl kwd">Tcl_CreateObjCommand</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> <span class="hl str">&quot;::tcl::dtrace&quot;</span><span class="hl opt">,</span> DTraceObjCmd<span class="hl opt">,</span> NULL<span class="hl opt">,</span> NULL<span class="hl opt">);</span>
<span class="hl ppc">#endif</span> <span class="hl com">/* USE_DTRACE */</span><span class="hl ppc"></span>

    <span class="hl com">/*</span>
<span class="hl com">     * Register the builtin math functions.</span>
<span class="hl com">     */</span>

    mathfuncNSPtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_CreateNamespace</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> <span class="hl str">&quot;::tcl::mathfunc&quot;</span><span class="hl opt">,</span> NULL<span class="hl opt">,</span>NULL<span class="hl opt">);</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>mathfuncNSPtr <span class="hl opt">==</span> NULL<span class="hl opt">) {</span>
	<span class="hl kwd">Tcl_Panic</span><span class="hl opt">(</span><span class="hl str">&quot;Can't create math function namespace&quot;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwd">strcpy</span><span class="hl opt">(</span>mathFuncName<span class="hl opt">,</span> <span class="hl str">&quot;::tcl::mathfunc::&quot;</span><span class="hl opt">);</span>
<span class="hl ppc">#define MATH_FUNC_PREFIX_LEN 17</span> <span class="hl com">/* == strlen(&quot;::tcl::mathfunc::&quot;) */</span><span class="hl ppc"></span>
    <span class="hl kwa">for</span> <span class="hl opt">(</span>builtinFuncPtr <span class="hl opt">=</span> BuiltinFuncTable<span class="hl opt">;</span> builtinFuncPtr<span class="hl opt">-&gt;</span>name <span class="hl opt">!=</span> NULL<span class="hl opt">;</span>
	    builtinFuncPtr<span class="hl opt">++) {</span>
	<span class="hl kwd">strcpy</span><span class="hl opt">(</span>mathFuncName<span class="hl opt">+</span>MATH_FUNC_PREFIX_LEN<span class="hl opt">,</span> builtinFuncPtr<span class="hl opt">-&gt;</span>name<span class="hl opt">);</span>
	<span class="hl kwd">Tcl_CreateObjCommand</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> mathFuncName<span class="hl opt">,</span>
		builtinFuncPtr<span class="hl opt">-&gt;</span>objCmdProc<span class="hl opt">,</span> builtinFuncPtr<span class="hl opt">-&gt;</span>clientData<span class="hl opt">,</span> NULL<span class="hl opt">);</span>
	<span class="hl kwd">Tcl_Export</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> mathfuncNSPtr<span class="hl opt">,</span> builtinFuncPtr<span class="hl opt">-&gt;</span>name<span class="hl opt">,</span> <span class="hl num">0</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Register the mathematical &quot;operator&quot; commands. [TIP #174]</span>
<span class="hl com">     */</span>

    mathopNSPtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_CreateNamespace</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> <span class="hl str">&quot;::tcl::mathop&quot;</span><span class="hl opt">,</span> NULL<span class="hl opt">,</span> NULL<span class="hl opt">);</span>
<span class="hl ppc">#define MATH_OP_PREFIX_LEN 15</span> <span class="hl com">/* == strlen(&quot;::tcl::mathop::&quot;) */</span><span class="hl ppc"></span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>mathopNSPtr <span class="hl opt">==</span> NULL<span class="hl opt">) {</span>
	<span class="hl kwd">Tcl_Panic</span><span class="hl opt">(</span><span class="hl str">&quot;can't create math operator namespace&quot;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl opt">(</span><span class="hl kwb">void</span><span class="hl opt">)</span> <span class="hl kwd">Tcl_Export</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> mathopNSPtr<span class="hl opt">,</span> <span class="hl str">&quot;*&quot;</span><span class="hl opt">,</span> <span class="hl num">1</span><span class="hl opt">);</span>
    <span class="hl kwd">strcpy</span><span class="hl opt">(</span>mathFuncName<span class="hl opt">,</span> <span class="hl str">&quot;::tcl::mathop::&quot;</span><span class="hl opt">);</span>
    <span class="hl kwa">for</span> <span class="hl opt">(</span>opcmdInfoPtr<span class="hl opt">=</span>mathOpCmds <span class="hl opt">;</span> opcmdInfoPtr<span class="hl opt">-&gt;</span>name<span class="hl opt">!=</span>NULL <span class="hl opt">;</span> opcmdInfoPtr<span class="hl opt">++){</span>
	TclOpCmdClientData <span class="hl opt">*</span>occdPtr <span class="hl opt">= (</span>TclOpCmdClientData <span class="hl opt">*)</span>
		<span class="hl kwd">ckalloc</span><span class="hl opt">(</span><span class="hl kwa">sizeof</span><span class="hl opt">(</span>TclOpCmdClientData<span class="hl opt">));</span>

	occdPtr<span class="hl opt">-&gt;</span>op <span class="hl opt">=</span> opcmdInfoPtr<span class="hl opt">-&gt;</span>name<span class="hl opt">;</span>
	occdPtr<span class="hl opt">-&gt;</span>i<span class="hl opt">.</span>numArgs <span class="hl opt">=</span> opcmdInfoPtr<span class="hl opt">-&gt;</span>i<span class="hl opt">.</span>numArgs<span class="hl opt">;</span>
	occdPtr<span class="hl opt">-&gt;</span>expected <span class="hl opt">=</span> opcmdInfoPtr<span class="hl opt">-&gt;</span>expected<span class="hl opt">;</span>
	<span class="hl kwd">strcpy</span><span class="hl opt">(</span>mathFuncName <span class="hl opt">+</span> MATH_OP_PREFIX_LEN<span class="hl opt">,</span> opcmdInfoPtr<span class="hl opt">-&gt;</span>name<span class="hl opt">);</span>
	cmdPtr <span class="hl opt">= (</span>Command <span class="hl opt">*)</span> <span class="hl kwd">Tcl_CreateObjCommand</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> mathFuncName<span class="hl opt">,</span>
		opcmdInfoPtr<span class="hl opt">-&gt;</span>objProc<span class="hl opt">,</span> occdPtr<span class="hl opt">,</span> DeleteOpCmdClientData<span class="hl opt">);</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span>cmdPtr <span class="hl opt">==</span> NULL<span class="hl opt">) {</span>
	    <span class="hl kwd">Tcl_Panic</span><span class="hl opt">(</span><span class="hl str">&quot;failed to create math operator %s&quot;</span><span class="hl opt">,</span>
		    opcmdInfoPtr<span class="hl opt">-&gt;</span>name<span class="hl opt">);</span>
	<span class="hl opt">}</span> <span class="hl kwa">else if</span> <span class="hl opt">(</span>opcmdInfoPtr<span class="hl opt">-&gt;</span>compileProc <span class="hl opt">!=</span> NULL<span class="hl opt">) {</span>
	    cmdPtr<span class="hl opt">-&gt;</span>compileProc <span class="hl opt">=</span> opcmdInfoPtr<span class="hl opt">-&gt;</span>compileProc<span class="hl opt">;</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Do Multiple/Safe Interps Tcl init stuff</span>
<span class="hl com">     */</span>

    <span class="hl kwd">TclInterpInit</span><span class="hl opt">(</span>interp<span class="hl opt">);</span>
    <span class="hl kwd">TclSetupEnv</span><span class="hl opt">(</span>interp<span class="hl opt">);</span>

    <span class="hl com">/*</span>
<span class="hl com">     * TIP #59: Make embedded configuration information available.</span>
<span class="hl com">     */</span>

    <span class="hl kwd">TclInitEmbeddedConfigurationInformation</span><span class="hl opt">(</span>interp<span class="hl opt">);</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Compute the byte order of this machine.</span>
<span class="hl com">     */</span>

    order<span class="hl opt">.</span>s <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
    <span class="hl kwd">Tcl_SetVar2</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> <span class="hl str">&quot;tcl_platform&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;byteOrder&quot;</span><span class="hl opt">,</span>
	    <span class="hl opt">((</span>order<span class="hl opt">.</span>c<span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">] ==</span> <span class="hl num">1</span><span class="hl opt">)</span> ? <span class="hl str">&quot;littleEndian&quot;</span> <span class="hl opt">:</span> <span class="hl str">&quot;bigEndian&quot;</span><span class="hl opt">),</span>
	    TCL_GLOBAL_ONLY<span class="hl opt">);</span>

    <span class="hl kwd">Tcl_SetVar2Ex</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> <span class="hl str">&quot;tcl_platform&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;wordSize&quot;</span><span class="hl opt">,</span>
	    <span class="hl kwd">Tcl_NewLongObj</span><span class="hl opt">((</span><span class="hl kwb">long</span><span class="hl opt">)</span> <span class="hl kwa">sizeof</span><span class="hl opt">(</span><span class="hl kwb">long</span><span class="hl opt">)),</span> TCL_GLOBAL_ONLY<span class="hl opt">);</span>

    <span class="hl com">/* TIP #291 */</span>
    <span class="hl kwd">Tcl_SetVar2Ex</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> <span class="hl str">&quot;tcl_platform&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;pointerSize&quot;</span><span class="hl opt">,</span>
	    <span class="hl kwd">Tcl_NewLongObj</span><span class="hl opt">((</span><span class="hl kwb">long</span><span class="hl opt">)</span> <span class="hl kwa">sizeof</span><span class="hl opt">(</span><span class="hl kwb">void</span> <span class="hl opt">*)),</span> TCL_GLOBAL_ONLY<span class="hl opt">);</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Set up other variables such as tcl_version and tcl_library</span>
<span class="hl com">     */</span>

    <span class="hl kwd">Tcl_SetVar</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> <span class="hl str">&quot;tcl_patchLevel&quot;</span><span class="hl opt">,</span> TCL_PATCH_LEVEL<span class="hl opt">,</span> TCL_GLOBAL_ONLY<span class="hl opt">);</span>
    <span class="hl kwd">Tcl_SetVar</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> <span class="hl str">&quot;tcl_version&quot;</span><span class="hl opt">,</span> TCL_VERSION<span class="hl opt">,</span> TCL_GLOBAL_ONLY<span class="hl opt">);</span>
    <span class="hl kwd">Tcl_TraceVar2</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> <span class="hl str">&quot;tcl_precision&quot;</span><span class="hl opt">,</span> NULL<span class="hl opt">,</span>
	    TCL_GLOBAL_ONLY<span class="hl opt">|</span>TCL_TRACE_READS<span class="hl opt">|</span>TCL_TRACE_WRITES<span class="hl opt">|</span>TCL_TRACE_UNSETS<span class="hl opt">,</span>
	    TclPrecTraceProc<span class="hl opt">,</span> NULL<span class="hl opt">);</span>
    <span class="hl kwd">TclpSetVariables</span><span class="hl opt">(</span>interp<span class="hl opt">);</span>

<span class="hl ppc">#ifdef TCL_THREADS</span>
    <span class="hl com">/*</span>
<span class="hl com">     * The existence of the &quot;threaded&quot; element of the tcl_platform array</span>
<span class="hl com">     * indicates that this particular Tcl shell has been compiled with threads</span>
<span class="hl com">     * turned on. Using &quot;info exists tcl_platform(threaded)&quot; a Tcl script can</span>
<span class="hl com">     * introspect on the interpreter level of thread safety.</span>
<span class="hl com">     */</span>

    <span class="hl kwd">Tcl_SetVar2</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> <span class="hl str">&quot;tcl_platform&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;threaded&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;1&quot;</span><span class="hl opt">,</span> TCL_GLOBAL_ONLY<span class="hl opt">);</span>
<span class="hl ppc">#endif</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Register Tcl's version number.</span>
<span class="hl com">     * TIP #268: Full patchlevel instead of just major.minor</span>
<span class="hl com">     */</span>

    <span class="hl kwd">Tcl_PkgProvideEx</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> <span class="hl str">&quot;Tcl&quot;</span><span class="hl opt">,</span> TCL_PATCH_LEVEL<span class="hl opt">, &amp;</span>tclStubs<span class="hl opt">);</span>

<span class="hl ppc">#ifdef Tcl_InitStubs</span>
<span class="hl ppc">#undef Tcl_InitStubs</span>
<span class="hl ppc">#endif</span>
    <span class="hl kwd">Tcl_InitStubs</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> TCL_VERSION<span class="hl opt">,</span> <span class="hl num">1</span><span class="hl opt">);</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwd">TclTommath_Init</span><span class="hl opt">(</span>interp<span class="hl opt">) !=</span> TCL_OK<span class="hl opt">) {</span>
	<span class="hl kwd">Tcl_Panic</span><span class="hl opt">(</span><span class="hl str">&quot;%s&quot;</span><span class="hl opt">,</span> <span class="hl kwd">Tcl_GetString</span><span class="hl opt">(</span><span class="hl kwd">Tcl_GetObjResult</span><span class="hl opt">(</span>interp<span class="hl opt">)));</span>
    <span class="hl opt">}</span>

    <span class="hl kwa">return</span> interp<span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwb">static void</span>
<span class="hl kwd">DeleteOpCmdClientData</span><span class="hl opt">(</span>
    ClientData clientData<span class="hl opt">)</span>
<span class="hl opt">{</span>
    TclOpCmdClientData <span class="hl opt">*</span>occdPtr <span class="hl opt">=</span> clientData<span class="hl opt">;</span>

    <span class="hl kwd">ckfree</span><span class="hl opt">((</span><span class="hl kwb">char</span> <span class="hl opt">*)</span> occdPtr<span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl com">/*</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> *</span>
<span class="hl com"> * TclHideUnsafeCommands --</span>
<span class="hl com"> *</span>
<span class="hl com"> *	Hides base commands that are not marked as safe from this interpreter.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Results:</span>
<span class="hl com"> *	TCL_OK if it succeeds, TCL_ERROR else.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Side effects:</span>
<span class="hl com"> *	Hides functionality in an interpreter.</span>
<span class="hl com"> *</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> */</span>

<span class="hl kwb">int</span>
<span class="hl kwd">TclHideUnsafeCommands</span><span class="hl opt">(</span>
    Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">)</span>		<span class="hl com">/* Hide commands in this interpreter. */</span>
<span class="hl opt">{</span>
    <span class="hl kwc">register</span> <span class="hl kwb">const</span> CmdInfo <span class="hl opt">*</span>cmdInfoPtr<span class="hl opt">;</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>interp <span class="hl opt">==</span> NULL<span class="hl opt">) {</span>
	<span class="hl kwa">return</span> TCL_ERROR<span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">for</span> <span class="hl opt">(</span>cmdInfoPtr <span class="hl opt">=</span> builtInCmds<span class="hl opt">;</span> cmdInfoPtr<span class="hl opt">-&gt;</span>name <span class="hl opt">!=</span> NULL<span class="hl opt">;</span> cmdInfoPtr<span class="hl opt">++) {</span>
	<span class="hl kwa">if</span> <span class="hl opt">(!</span>cmdInfoPtr<span class="hl opt">-&gt;</span>isSafe<span class="hl opt">) {</span>
	    <span class="hl kwd">Tcl_HideCommand</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> cmdInfoPtr<span class="hl opt">-&gt;</span>name<span class="hl opt">,</span> cmdInfoPtr<span class="hl opt">-&gt;</span>name<span class="hl opt">);</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">return</span> TCL_OK<span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl com">/*</span>
<span class="hl com"> *--------------------------------------------------------------</span>
<span class="hl com"> *</span>
<span class="hl com"> * Tcl_CallWhenDeleted --</span>
<span class="hl com"> *</span>
<span class="hl com"> *	Arrange for a function to be called before a given interpreter is</span>
<span class="hl com"> *	deleted. The function is called as soon as Tcl_DeleteInterp is called;</span>
<span class="hl com"> *	if Tcl_CallWhenDeleted is called on an interpreter that has already</span>
<span class="hl com"> *	been deleted, the function will be called when the last Tcl_Release is</span>
<span class="hl com"> *	done on the interpreter.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Results:</span>
<span class="hl com"> *	None.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Side effects:</span>
<span class="hl com"> *	When Tcl_DeleteInterp is invoked to delete interp, proc will be</span>
<span class="hl com"> *	invoked. See the manual entry for details.</span>
<span class="hl com"> *</span>
<span class="hl com"> *--------------------------------------------------------------</span>
<span class="hl com"> */</span>

<span class="hl kwb">void</span>
<span class="hl kwd">Tcl_CallWhenDeleted</span><span class="hl opt">(</span>
    Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>		<span class="hl com">/* Interpreter to watch. */</span>
    Tcl_InterpDeleteProc <span class="hl opt">*</span>proc<span class="hl opt">,</span>	<span class="hl com">/* Function to call when interpreter is about</span>
<span class="hl com">				 * to be deleted. */</span>
    ClientData clientData<span class="hl opt">)</span>	<span class="hl com">/* One-word value to pass to proc. */</span>
<span class="hl opt">{</span>
    Interp <span class="hl opt">*</span>iPtr <span class="hl opt">= (</span>Interp <span class="hl opt">*)</span> interp<span class="hl opt">;</span>
    <span class="hl kwb">static</span> Tcl_ThreadDataKey assocDataCounterKey<span class="hl opt">;</span>
    <span class="hl kwb">int</span> <span class="hl opt">*</span>assocDataCounterPtr <span class="hl opt">=</span>
	    <span class="hl kwd">Tcl_GetThreadData</span><span class="hl opt">(&amp;</span>assocDataCounterKey<span class="hl opt">, (</span><span class="hl kwb">int</span><span class="hl opt">)</span><span class="hl kwa">sizeof</span><span class="hl opt">(</span><span class="hl kwb">int</span><span class="hl opt">));</span>
    <span class="hl kwb">int</span> isNew<span class="hl opt">;</span>
    <span class="hl kwb">char</span> buffer<span class="hl opt">[</span><span class="hl num">32</span> <span class="hl opt">+</span> TCL_INTEGER_SPACE<span class="hl opt">];</span>
    AssocData <span class="hl opt">*</span>dPtr <span class="hl opt">= (</span>AssocData <span class="hl opt">*)</span> <span class="hl kwd">ckalloc</span><span class="hl opt">(</span><span class="hl kwa">sizeof</span><span class="hl opt">(</span>AssocData<span class="hl opt">));</span>
    Tcl_HashEntry <span class="hl opt">*</span>hPtr<span class="hl opt">;</span>

    <span class="hl kwd">sprintf</span><span class="hl opt">(</span>buffer<span class="hl opt">,</span> <span class="hl str">&quot;Assoc Data Key #%d&quot;</span><span class="hl opt">, *</span>assocDataCounterPtr<span class="hl opt">);</span>
    <span class="hl opt">(*</span>assocDataCounterPtr<span class="hl opt">)++;</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>assocData <span class="hl opt">==</span> NULL<span class="hl opt">) {</span>
	iPtr<span class="hl opt">-&gt;</span>assocData <span class="hl opt">= (</span>Tcl_HashTable <span class="hl opt">*)</span> <span class="hl kwd">ckalloc</span><span class="hl opt">(</span><span class="hl kwa">sizeof</span><span class="hl opt">(</span>Tcl_HashTable<span class="hl opt">));</span>
	<span class="hl kwd">Tcl_InitHashTable</span><span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>assocData<span class="hl opt">,</span> TCL_STRING_KEYS<span class="hl opt">);</span>
    <span class="hl opt">}</span>
    hPtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_CreateHashEntry</span><span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>assocData<span class="hl opt">,</span> buffer<span class="hl opt">, &amp;</span>isNew<span class="hl opt">);</span>
    dPtr<span class="hl opt">-&gt;</span>proc <span class="hl opt">=</span> proc<span class="hl opt">;</span>
    dPtr<span class="hl opt">-&gt;</span>clientData <span class="hl opt">=</span> clientData<span class="hl opt">;</span>
    <span class="hl kwd">Tcl_SetHashValue</span><span class="hl opt">(</span>hPtr<span class="hl opt">,</span> dPtr<span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl com">/*</span>
<span class="hl com"> *--------------------------------------------------------------</span>
<span class="hl com"> *</span>
<span class="hl com"> * Tcl_DontCallWhenDeleted --</span>
<span class="hl com"> *</span>
<span class="hl com"> *	Cancel the arrangement for a function to be called when a given</span>
<span class="hl com"> *	interpreter is deleted.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Results:</span>
<span class="hl com"> *	None.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Side effects:</span>
<span class="hl com"> *	If proc and clientData were previously registered as a callback via</span>
<span class="hl com"> *	Tcl_CallWhenDeleted, they are unregistered. If they weren't previously</span>
<span class="hl com"> *	registered then nothing happens.</span>
<span class="hl com"> *</span>
<span class="hl com"> *--------------------------------------------------------------</span>
<span class="hl com"> */</span>

<span class="hl kwb">void</span>
<span class="hl kwd">Tcl_DontCallWhenDeleted</span><span class="hl opt">(</span>
    Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>		<span class="hl com">/* Interpreter to watch. */</span>
    Tcl_InterpDeleteProc <span class="hl opt">*</span>proc<span class="hl opt">,</span>	<span class="hl com">/* Function to call when interpreter is about</span>
<span class="hl com">				 * to be deleted. */</span>
    ClientData clientData<span class="hl opt">)</span>	<span class="hl com">/* One-word value to pass to proc. */</span>
<span class="hl opt">{</span>
    Interp <span class="hl opt">*</span>iPtr <span class="hl opt">= (</span>Interp <span class="hl opt">*)</span> interp<span class="hl opt">;</span>
    Tcl_HashTable <span class="hl opt">*</span>hTablePtr<span class="hl opt">;</span>
    Tcl_HashSearch hSearch<span class="hl opt">;</span>
    Tcl_HashEntry <span class="hl opt">*</span>hPtr<span class="hl opt">;</span>
    AssocData <span class="hl opt">*</span>dPtr<span class="hl opt">;</span>

    hTablePtr <span class="hl opt">=</span> iPtr<span class="hl opt">-&gt;</span>assocData<span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>hTablePtr <span class="hl opt">==</span> NULL<span class="hl opt">) {</span>
	<span class="hl kwa">return</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">for</span> <span class="hl opt">(</span>hPtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_FirstHashEntry</span><span class="hl opt">(</span>hTablePtr<span class="hl opt">, &amp;</span>hSearch<span class="hl opt">);</span> hPtr <span class="hl opt">!=</span> NULL<span class="hl opt">;</span>
	    hPtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_NextHashEntry</span><span class="hl opt">(&amp;</span>hSearch<span class="hl opt">)) {</span>
	dPtr <span class="hl opt">= (</span>AssocData <span class="hl opt">*)</span> <span class="hl kwd">Tcl_GetHashValue</span><span class="hl opt">(</span>hPtr<span class="hl opt">);</span>
	<span class="hl kwa">if</span> <span class="hl opt">((</span>dPtr<span class="hl opt">-&gt;</span>proc <span class="hl opt">==</span> proc<span class="hl opt">) &amp;&amp; (</span>dPtr<span class="hl opt">-&gt;</span>clientData <span class="hl opt">==</span> clientData<span class="hl opt">)) {</span>
	    <span class="hl kwd">ckfree</span><span class="hl opt">((</span><span class="hl kwb">char</span> <span class="hl opt">*)</span> dPtr<span class="hl opt">);</span>
	    <span class="hl kwd">Tcl_DeleteHashEntry</span><span class="hl opt">(</span>hPtr<span class="hl opt">);</span>
	    <span class="hl kwa">return</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl com">/*</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> *</span>
<span class="hl com"> * Tcl_SetAssocData --</span>
<span class="hl com"> *</span>
<span class="hl com"> *	Creates a named association between user-specified data, a delete</span>
<span class="hl com"> *	function and this interpreter. If the association already exists the</span>
<span class="hl com"> *	data is overwritten with the new data. The delete function will be</span>
<span class="hl com"> *	invoked when the interpreter is deleted.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Results:</span>
<span class="hl com"> *	None.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Side effects:</span>
<span class="hl com"> *	Sets the associated data, creates the association if needed.</span>
<span class="hl com"> *</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> */</span>

<span class="hl kwb">void</span>
<span class="hl kwd">Tcl_SetAssocData</span><span class="hl opt">(</span>
    Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>		<span class="hl com">/* Interpreter to associate with. */</span>
    <span class="hl kwb">const char</span> <span class="hl opt">*</span>name<span class="hl opt">,</span>		<span class="hl com">/* Name for association. */</span>
    Tcl_InterpDeleteProc <span class="hl opt">*</span>proc<span class="hl opt">,</span>	<span class="hl com">/* Proc to call when interpreter is about to</span>
<span class="hl com">				 * be deleted. */</span>
    ClientData clientData<span class="hl opt">)</span>	<span class="hl com">/* One-word value to pass to proc. */</span>
<span class="hl opt">{</span>
    Interp <span class="hl opt">*</span>iPtr <span class="hl opt">= (</span>Interp <span class="hl opt">*)</span> interp<span class="hl opt">;</span>
    AssocData <span class="hl opt">*</span>dPtr<span class="hl opt">;</span>
    Tcl_HashEntry <span class="hl opt">*</span>hPtr<span class="hl opt">;</span>
    <span class="hl kwb">int</span> isNew<span class="hl opt">;</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>assocData <span class="hl opt">==</span> NULL<span class="hl opt">) {</span>
	iPtr<span class="hl opt">-&gt;</span>assocData <span class="hl opt">= (</span>Tcl_HashTable <span class="hl opt">*)</span> <span class="hl kwd">ckalloc</span><span class="hl opt">(</span><span class="hl kwa">sizeof</span><span class="hl opt">(</span>Tcl_HashTable<span class="hl opt">));</span>
	<span class="hl kwd">Tcl_InitHashTable</span><span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>assocData<span class="hl opt">,</span> TCL_STRING_KEYS<span class="hl opt">);</span>
    <span class="hl opt">}</span>
    hPtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_CreateHashEntry</span><span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>assocData<span class="hl opt">,</span> name<span class="hl opt">, &amp;</span>isNew<span class="hl opt">);</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>isNew <span class="hl opt">==</span> <span class="hl num">0</span><span class="hl opt">) {</span>
	dPtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_GetHashValue</span><span class="hl opt">(</span>hPtr<span class="hl opt">);</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	dPtr <span class="hl opt">= (</span>AssocData <span class="hl opt">*)</span> <span class="hl kwd">ckalloc</span><span class="hl opt">(</span><span class="hl kwa">sizeof</span><span class="hl opt">(</span>AssocData<span class="hl opt">));</span>
    <span class="hl opt">}</span>
    dPtr<span class="hl opt">-&gt;</span>proc <span class="hl opt">=</span> proc<span class="hl opt">;</span>
    dPtr<span class="hl opt">-&gt;</span>clientData <span class="hl opt">=</span> clientData<span class="hl opt">;</span>

    <span class="hl kwd">Tcl_SetHashValue</span><span class="hl opt">(</span>hPtr<span class="hl opt">,</span> dPtr<span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl com">/*</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> *</span>
<span class="hl com"> * Tcl_DeleteAssocData --</span>
<span class="hl com"> *</span>
<span class="hl com"> *	Deletes a named association of user-specified data with the specified</span>
<span class="hl com"> *	interpreter.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Results:</span>
<span class="hl com"> *	None.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Side effects:</span>
<span class="hl com"> *	Deletes the association.</span>
<span class="hl com"> *</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> */</span>

<span class="hl kwb">void</span>
<span class="hl kwd">Tcl_DeleteAssocData</span><span class="hl opt">(</span>
    Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>		<span class="hl com">/* Interpreter to associate with. */</span>
    <span class="hl kwb">const char</span> <span class="hl opt">*</span>name<span class="hl opt">)</span>		<span class="hl com">/* Name of association. */</span>
<span class="hl opt">{</span>
    Interp <span class="hl opt">*</span>iPtr <span class="hl opt">= (</span>Interp <span class="hl opt">*)</span> interp<span class="hl opt">;</span>
    AssocData <span class="hl opt">*</span>dPtr<span class="hl opt">;</span>
    Tcl_HashEntry <span class="hl opt">*</span>hPtr<span class="hl opt">;</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>assocData <span class="hl opt">==</span> NULL<span class="hl opt">) {</span>
	<span class="hl kwa">return</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
    hPtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_FindHashEntry</span><span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>assocData<span class="hl opt">,</span> name<span class="hl opt">);</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>hPtr <span class="hl opt">==</span> NULL<span class="hl opt">) {</span>
	<span class="hl kwa">return</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
    dPtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_GetHashValue</span><span class="hl opt">(</span>hPtr<span class="hl opt">);</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>dPtr<span class="hl opt">-&gt;</span>proc <span class="hl opt">!=</span> NULL<span class="hl opt">) {</span>
	dPtr<span class="hl opt">-&gt;</span><span class="hl kwd">proc</span><span class="hl opt">(</span>dPtr<span class="hl opt">-&gt;</span>clientData<span class="hl opt">,</span> interp<span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwd">ckfree</span><span class="hl opt">((</span><span class="hl kwb">char</span> <span class="hl opt">*)</span> dPtr<span class="hl opt">);</span>
    <span class="hl kwd">Tcl_DeleteHashEntry</span><span class="hl opt">(</span>hPtr<span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl com">/*</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> *</span>
<span class="hl com"> * Tcl_GetAssocData --</span>
<span class="hl com"> *</span>
<span class="hl com"> *	Returns the client data associated with this name in the specified</span>
<span class="hl com"> *	interpreter.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Results:</span>
<span class="hl com"> *	The client data in the AssocData record denoted by the named</span>
<span class="hl com"> *	association, or NULL.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Side effects:</span>
<span class="hl com"> *	None.</span>
<span class="hl com"> *</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> */</span>

ClientData
<span class="hl kwd">Tcl_GetAssocData</span><span class="hl opt">(</span>
    Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>		<span class="hl com">/* Interpreter associated with. */</span>
    <span class="hl kwb">const char</span> <span class="hl opt">*</span>name<span class="hl opt">,</span>		<span class="hl com">/* Name of association. */</span>
    Tcl_InterpDeleteProc <span class="hl opt">**</span>procPtr<span class="hl opt">)</span>
				<span class="hl com">/* Pointer to place to store address of</span>
<span class="hl com">				 * current deletion callback. */</span>
<span class="hl opt">{</span>
    Interp <span class="hl opt">*</span>iPtr <span class="hl opt">= (</span>Interp <span class="hl opt">*)</span> interp<span class="hl opt">;</span>
    AssocData <span class="hl opt">*</span>dPtr<span class="hl opt">;</span>
    Tcl_HashEntry <span class="hl opt">*</span>hPtr<span class="hl opt">;</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>assocData <span class="hl opt">==</span> NULL<span class="hl opt">) {</span>
	<span class="hl kwa">return</span> NULL<span class="hl opt">;</span>
    <span class="hl opt">}</span>
    hPtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_FindHashEntry</span><span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>assocData<span class="hl opt">,</span> name<span class="hl opt">);</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>hPtr <span class="hl opt">==</span> NULL<span class="hl opt">) {</span>
	<span class="hl kwa">return</span> NULL<span class="hl opt">;</span>
    <span class="hl opt">}</span>
    dPtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_GetHashValue</span><span class="hl opt">(</span>hPtr<span class="hl opt">);</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>procPtr <span class="hl opt">!=</span> NULL<span class="hl opt">) {</span>
	<span class="hl opt">*</span>procPtr <span class="hl opt">=</span> dPtr<span class="hl opt">-&gt;</span>proc<span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">return</span> dPtr<span class="hl opt">-&gt;</span>clientData<span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl com">/*</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> *</span>
<span class="hl com"> * Tcl_InterpDeleted --</span>
<span class="hl com"> *</span>
<span class="hl com"> *	Returns nonzero if the interpreter has been deleted with a call to</span>
<span class="hl com"> *	Tcl_DeleteInterp.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Results:</span>
<span class="hl com"> *	Nonzero if the interpreter is deleted, zero otherwise.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Side effects:</span>
<span class="hl com"> *	None.</span>
<span class="hl com"> *</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> */</span>

<span class="hl kwb">int</span>
<span class="hl kwd">Tcl_InterpDeleted</span><span class="hl opt">(</span>
    Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">)</span>
<span class="hl opt">{</span>
    <span class="hl kwa">return</span> <span class="hl opt">(((</span>Interp <span class="hl opt">*)</span> interp<span class="hl opt">)-&gt;</span>flags <span class="hl opt">&amp;</span> DELETED<span class="hl opt">)</span> ? <span class="hl num">1</span> <span class="hl opt">:</span> <span class="hl num">0</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl com">/*</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> *</span>
<span class="hl com"> * Tcl_DeleteInterp --</span>
<span class="hl com"> *</span>
<span class="hl com"> *	Ensures that the interpreter will be deleted eventually. If there are</span>
<span class="hl com"> *	no Tcl_Preserve calls in effect for this interpreter, it is deleted</span>
<span class="hl com"> *	immediately, otherwise the interpreter is deleted when the last</span>
<span class="hl com"> *	Tcl_Preserve is matched by a call to Tcl_Release. In either case, the</span>
<span class="hl com"> *	function runs the currently registered deletion callbacks.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Results:</span>
<span class="hl com"> *	None.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Side effects:</span>
<span class="hl com"> *	The interpreter is marked as deleted. The caller may still use it</span>
<span class="hl com"> *	safely if there are calls to Tcl_Preserve in effect for the</span>
<span class="hl com"> *	interpreter, but further calls to Tcl_Eval etc in this interpreter</span>
<span class="hl com"> *	will fail.</span>
<span class="hl com"> *</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> */</span>

<span class="hl kwb">void</span>
<span class="hl kwd">Tcl_DeleteInterp</span><span class="hl opt">(</span>
    Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">)</span>		<span class="hl com">/* Token for command interpreter (returned by</span>
<span class="hl com">				 * a previous call to Tcl_CreateInterp). */</span>
<span class="hl opt">{</span>
    Interp <span class="hl opt">*</span>iPtr <span class="hl opt">= (</span>Interp <span class="hl opt">*)</span> interp<span class="hl opt">;</span>

    <span class="hl com">/*</span>
<span class="hl com">     * If the interpreter has already been marked deleted, just punt.</span>
<span class="hl com">     */</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>flags <span class="hl opt">&amp;</span> DELETED<span class="hl opt">) {</span>
	<span class="hl kwa">return</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Mark the interpreter as deleted. No further evals will be allowed.</span>
<span class="hl com">     * Increase the compileEpoch as a signal to compiled bytecodes.</span>
<span class="hl com">     */</span>

    iPtr<span class="hl opt">-&gt;</span>flags <span class="hl opt">|=</span> DELETED<span class="hl opt">;</span>
    iPtr<span class="hl opt">-&gt;</span>compileEpoch<span class="hl opt">++;</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Ensure that the interpreter is eventually deleted.</span>
<span class="hl com">     */</span>

    <span class="hl kwd">Tcl_EventuallyFree</span><span class="hl opt">(</span>interp<span class="hl opt">, (</span>Tcl_FreeProc <span class="hl opt">*)</span> DeleteInterpProc<span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl com">/*</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> *</span>
<span class="hl com"> * DeleteInterpProc --</span>
<span class="hl com"> *</span>
<span class="hl com"> *	Helper function to delete an interpreter. This function is called when</span>
<span class="hl com"> *	the last call to Tcl_Preserve on this interpreter is matched by a call</span>
<span class="hl com"> *	to Tcl_Release. The function cleans up all resources used in the</span>
<span class="hl com"> *	interpreter and calls all currently registered interpreter deletion</span>
<span class="hl com"> *	callbacks.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Results:</span>
<span class="hl com"> *	None.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Side effects:</span>
<span class="hl com"> *	Whatever the interpreter deletion callbacks do. Frees resources used</span>
<span class="hl com"> *	by the interpreter.</span>
<span class="hl com"> *</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> */</span>

<span class="hl kwb">static void</span>
<span class="hl kwd">DeleteInterpProc</span><span class="hl opt">(</span>
    Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">)</span>		<span class="hl com">/* Interpreter to delete. */</span>
<span class="hl opt">{</span>
    Interp <span class="hl opt">*</span>iPtr <span class="hl opt">= (</span>Interp <span class="hl opt">*)</span> interp<span class="hl opt">;</span>
    Tcl_HashEntry <span class="hl opt">*</span>hPtr<span class="hl opt">;</span>
    Tcl_HashSearch search<span class="hl opt">;</span>
    Tcl_HashTable <span class="hl opt">*</span>hTablePtr<span class="hl opt">;</span>
    ResolverScheme <span class="hl opt">*</span>resPtr<span class="hl opt">, *</span>nextResPtr<span class="hl opt">;</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Punt if there is an error in the Tcl_Release/Tcl_Preserve matchup.</span>
<span class="hl com">     */</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>numLevels <span class="hl opt">&gt;</span> <span class="hl num">0</span><span class="hl opt">) {</span>
	<span class="hl kwd">Tcl_Panic</span><span class="hl opt">(</span><span class="hl str">&quot;DeleteInterpProc called with active evals&quot;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * The interpreter should already be marked deleted; otherwise how did we</span>
<span class="hl com">     * get here?</span>
<span class="hl com">     */</span>

    <span class="hl kwa">if</span> <span class="hl opt">(!(</span>iPtr<span class="hl opt">-&gt;</span>flags <span class="hl opt">&amp;</span> DELETED<span class="hl opt">)) {</span>
	<span class="hl kwd">Tcl_Panic</span><span class="hl opt">(</span><span class="hl str">&quot;DeleteInterpProc called on interpreter not marked deleted&quot;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * TIP #219, Tcl Channel Reflection API. Discard a leftover state.</span>
<span class="hl com">     */</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>chanMsg <span class="hl opt">!=</span> NULL<span class="hl opt">) {</span>
	<span class="hl kwd">Tcl_DecrRefCount</span><span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>chanMsg<span class="hl opt">);</span>
	iPtr<span class="hl opt">-&gt;</span>chanMsg <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Shut down all limit handler callback scripts that call back into this</span>
<span class="hl com">     * interpreter. Then eliminate all limit handlers for this interpreter.</span>
<span class="hl com">     */</span>

    <span class="hl kwd">TclRemoveScriptLimitCallbacks</span><span class="hl opt">(</span>interp<span class="hl opt">);</span>
    <span class="hl kwd">TclLimitRemoveAllHandlers</span><span class="hl opt">(</span>interp<span class="hl opt">);</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Dismantle the namespace here, before we clear the assocData. If any</span>
<span class="hl com">     * background errors occur here, they will be deleted below.</span>
<span class="hl com">     *</span>
<span class="hl com">     * Dismantle the namespace after freeing the iPtr-&gt;handle so that each</span>
<span class="hl com">     * bytecode releases its literals without caring to update the literal</span>
<span class="hl com">     * table, as it will be freed later in this function without further use.</span>
<span class="hl com">     */</span>

    <span class="hl kwd">TclHandleFree</span><span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>handle<span class="hl opt">);</span>
    <span class="hl kwd">TclTeardownNamespace</span><span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>globalNsPtr<span class="hl opt">);</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Delete all the hidden commands.</span>
<span class="hl com">     */</span>

    hTablePtr <span class="hl opt">=</span> iPtr<span class="hl opt">-&gt;</span>hiddenCmdTablePtr<span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>hTablePtr <span class="hl opt">!=</span> NULL<span class="hl opt">) {</span>
	<span class="hl com">/*</span>
<span class="hl com">	 * Non-pernicious deletion. The deletion callbacks will not be allowed</span>
<span class="hl com">	 * to create any new hidden or non-hidden commands.</span>
<span class="hl com">	 * Tcl_DeleteCommandFromToken() will remove the entry from the</span>
<span class="hl com">	 * hiddenCmdTablePtr.</span>
<span class="hl com">	 */</span>

	hPtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_FirstHashEntry</span><span class="hl opt">(</span>hTablePtr<span class="hl opt">, &amp;</span>search<span class="hl opt">);</span>
	<span class="hl kwa">for</span> <span class="hl opt">(;</span> hPtr <span class="hl opt">!=</span> NULL<span class="hl opt">;</span> hPtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_NextHashEntry</span><span class="hl opt">(&amp;</span>search<span class="hl opt">)) {</span>
	    <span class="hl kwd">Tcl_DeleteCommandFromToken</span><span class="hl opt">(</span>interp<span class="hl opt">,</span>
		    <span class="hl opt">(</span>Tcl_Command<span class="hl opt">)</span> <span class="hl kwd">Tcl_GetHashValue</span><span class="hl opt">(</span>hPtr<span class="hl opt">));</span>
	<span class="hl opt">}</span>
	<span class="hl kwd">Tcl_DeleteHashTable</span><span class="hl opt">(</span>hTablePtr<span class="hl opt">);</span>
	<span class="hl kwd">ckfree</span><span class="hl opt">((</span><span class="hl kwb">char</span> <span class="hl opt">*)</span> hTablePtr<span class="hl opt">);</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Invoke deletion callbacks; note that a callback can create new</span>
<span class="hl com">     * callbacks, so we iterate.</span>
<span class="hl com">     */</span>

    <span class="hl kwa">while</span> <span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>assocData <span class="hl opt">!=</span> NULL<span class="hl opt">) {</span>
	AssocData <span class="hl opt">*</span>dPtr<span class="hl opt">;</span>

	hTablePtr <span class="hl opt">=</span> iPtr<span class="hl opt">-&gt;</span>assocData<span class="hl opt">;</span>
	iPtr<span class="hl opt">-&gt;</span>assocData <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
	<span class="hl kwa">for</span> <span class="hl opt">(</span>hPtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_FirstHashEntry</span><span class="hl opt">(</span>hTablePtr<span class="hl opt">, &amp;</span>search<span class="hl opt">);</span>
		hPtr <span class="hl opt">!=</span> NULL<span class="hl opt">;</span>
		hPtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_FirstHashEntry</span><span class="hl opt">(</span>hTablePtr<span class="hl opt">, &amp;</span>search<span class="hl opt">)) {</span>
	    dPtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_GetHashValue</span><span class="hl opt">(</span>hPtr<span class="hl opt">);</span>
	    <span class="hl kwd">Tcl_DeleteHashEntry</span><span class="hl opt">(</span>hPtr<span class="hl opt">);</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span>dPtr<span class="hl opt">-&gt;</span>proc <span class="hl opt">!=</span> NULL<span class="hl opt">) {</span>
		dPtr<span class="hl opt">-&gt;</span><span class="hl kwd">proc</span><span class="hl opt">(</span>dPtr<span class="hl opt">-&gt;</span>clientData<span class="hl opt">,</span> interp<span class="hl opt">);</span>
	    <span class="hl opt">}</span>
	    <span class="hl kwd">ckfree</span><span class="hl opt">((</span><span class="hl kwb">char</span> <span class="hl opt">*)</span> dPtr<span class="hl opt">);</span>
	<span class="hl opt">}</span>
	<span class="hl kwd">Tcl_DeleteHashTable</span><span class="hl opt">(</span>hTablePtr<span class="hl opt">);</span>
	<span class="hl kwd">ckfree</span><span class="hl opt">((</span><span class="hl kwb">char</span> <span class="hl opt">*)</span> hTablePtr<span class="hl opt">);</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Pop the root frame pointer and finish deleting the global</span>
<span class="hl com">     * namespace. The order is important [Bug 1658572].</span>
<span class="hl com">     */</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>framePtr <span class="hl opt">!=</span> iPtr<span class="hl opt">-&gt;</span>rootFramePtr<span class="hl opt">) {</span>
	<span class="hl kwd">Tcl_Panic</span><span class="hl opt">(</span><span class="hl str">&quot;DeleteInterpProc: popping rootCallFrame with other frames on top&quot;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwd">Tcl_PopCallFrame</span><span class="hl opt">(</span>interp<span class="hl opt">);</span>
    <span class="hl kwd">ckfree</span><span class="hl opt">((</span><span class="hl kwb">char</span> <span class="hl opt">*)</span> iPtr<span class="hl opt">-&gt;</span>rootFramePtr<span class="hl opt">);</span>
    iPtr<span class="hl opt">-&gt;</span>rootFramePtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
    <span class="hl kwd">Tcl_DeleteNamespace</span><span class="hl opt">((</span>Tcl_Namespace <span class="hl opt">*)</span> iPtr<span class="hl opt">-&gt;</span>globalNsPtr<span class="hl opt">);</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Free up the result *after* deleting variables, since variable deletion</span>
<span class="hl com">     * could have transferred ownership of the result string to Tcl.</span>
<span class="hl com">     */</span>

    <span class="hl kwd">Tcl_FreeResult</span><span class="hl opt">(</span>interp<span class="hl opt">);</span>
    interp<span class="hl opt">-&gt;</span>result <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
    <span class="hl kwd">Tcl_DecrRefCount</span><span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>objResultPtr<span class="hl opt">);</span>
    iPtr<span class="hl opt">-&gt;</span>objResultPtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
    <span class="hl kwd">Tcl_DecrRefCount</span><span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>ecVar<span class="hl opt">);</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>errorCode<span class="hl opt">) {</span>
	<span class="hl kwd">Tcl_DecrRefCount</span><span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>errorCode<span class="hl opt">);</span>
	iPtr<span class="hl opt">-&gt;</span>errorCode <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl kwd">Tcl_DecrRefCount</span><span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>eiVar<span class="hl opt">);</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>errorInfo<span class="hl opt">) {</span>
	<span class="hl kwd">Tcl_DecrRefCount</span><span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>errorInfo<span class="hl opt">);</span>
	iPtr<span class="hl opt">-&gt;</span>errorInfo <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>returnOpts<span class="hl opt">) {</span>
	<span class="hl kwd">Tcl_DecrRefCount</span><span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>returnOpts<span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>appendResult <span class="hl opt">!=</span> NULL<span class="hl opt">) {</span>
	<span class="hl kwd">ckfree</span><span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>appendResult<span class="hl opt">);</span>
	iPtr<span class="hl opt">-&gt;</span>appendResult <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl kwd">TclFreePackageInfo</span><span class="hl opt">(</span>iPtr<span class="hl opt">);</span>
    <span class="hl kwa">while</span> <span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>tracePtr <span class="hl opt">!=</span> NULL<span class="hl opt">) {</span>
	<span class="hl kwd">Tcl_DeleteTrace</span><span class="hl opt">((</span>Tcl_Interp <span class="hl opt">*)</span> iPtr<span class="hl opt">, (</span>Tcl_Trace<span class="hl opt">)</span> iPtr<span class="hl opt">-&gt;</span>tracePtr<span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>execEnvPtr <span class="hl opt">!=</span> NULL<span class="hl opt">) {</span>
	<span class="hl kwd">TclDeleteExecEnv</span><span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>execEnvPtr<span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>scriptFile<span class="hl opt">) {</span>
	<span class="hl kwd">Tcl_DecrRefCount</span><span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>scriptFile<span class="hl opt">);</span>
	iPtr<span class="hl opt">-&gt;</span>scriptFile <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl kwd">Tcl_DecrRefCount</span><span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>emptyObjPtr<span class="hl opt">);</span>
    iPtr<span class="hl opt">-&gt;</span>emptyObjPtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>

    resPtr <span class="hl opt">=</span> iPtr<span class="hl opt">-&gt;</span>resolverPtr<span class="hl opt">;</span>
    <span class="hl kwa">while</span> <span class="hl opt">(</span>resPtr<span class="hl opt">) {</span>
	nextResPtr <span class="hl opt">=</span> resPtr<span class="hl opt">-&gt;</span>nextPtr<span class="hl opt">;</span>
	<span class="hl kwd">ckfree</span><span class="hl opt">(</span>resPtr<span class="hl opt">-&gt;</span>name<span class="hl opt">);</span>
	<span class="hl kwd">ckfree</span><span class="hl opt">((</span><span class="hl kwb">char</span> <span class="hl opt">*)</span> resPtr<span class="hl opt">);</span>
	resPtr <span class="hl opt">=</span> nextResPtr<span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Free up literal objects created for scripts compiled by the</span>
<span class="hl com">     * interpreter.</span>
<span class="hl com">     */</span>

    <span class="hl kwd">TclDeleteLiteralTable</span><span class="hl opt">(</span>interp<span class="hl opt">, &amp;(</span>iPtr<span class="hl opt">-&gt;</span>literalTable<span class="hl opt">));</span>

    <span class="hl com">/*</span>
<span class="hl com">     * TIP #280 - Release the arrays for ByteCode/Proc extension, and</span>
<span class="hl com">     * contents.</span>
<span class="hl com">     */</span>

    <span class="hl opt">{</span>
	Tcl_HashEntry <span class="hl opt">*</span>hPtr<span class="hl opt">;</span>
	Tcl_HashSearch hSearch<span class="hl opt">;</span>
	<span class="hl kwb">int</span> i<span class="hl opt">;</span>

	<span class="hl kwa">for</span> <span class="hl opt">(</span>hPtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_FirstHashEntry</span><span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>linePBodyPtr<span class="hl opt">, &amp;</span>hSearch<span class="hl opt">);</span>
		hPtr <span class="hl opt">!=</span> NULL<span class="hl opt">;</span>
		hPtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_NextHashEntry</span><span class="hl opt">(&amp;</span>hSearch<span class="hl opt">)) {</span>
	    CmdFrame <span class="hl opt">*</span>cfPtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_GetHashValue</span><span class="hl opt">(</span>hPtr<span class="hl opt">);</span>
	    Proc <span class="hl opt">*</span>procPtr <span class="hl opt">= (</span>Proc <span class="hl opt">*)</span> <span class="hl kwd">Tcl_GetHashKey</span><span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>linePBodyPtr<span class="hl opt">,</span> hPtr<span class="hl opt">);</span>
	    procPtr<span class="hl opt">-&gt;</span>iPtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span>cfPtr<span class="hl opt">) {</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span>cfPtr<span class="hl opt">-&gt;</span>type <span class="hl opt">==</span> TCL_LOCATION_SOURCE<span class="hl opt">) {</span>
		    <span class="hl kwd">Tcl_DecrRefCount</span><span class="hl opt">(</span>cfPtr<span class="hl opt">-&gt;</span>data<span class="hl opt">.</span>eval<span class="hl opt">.</span>path<span class="hl opt">);</span>
		<span class="hl opt">}</span>
		<span class="hl kwd">ckfree</span><span class="hl opt">((</span><span class="hl kwb">char</span> <span class="hl opt">*)</span> cfPtr<span class="hl opt">-&gt;</span>line<span class="hl opt">);</span>
		<span class="hl kwd">ckfree</span><span class="hl opt">((</span><span class="hl kwb">char</span> <span class="hl opt">*)</span> cfPtr<span class="hl opt">);</span>
	    <span class="hl opt">}</span>
	    <span class="hl kwd">Tcl_DeleteHashEntry</span><span class="hl opt">(</span>hPtr<span class="hl opt">);</span>
	<span class="hl opt">}</span>
	<span class="hl kwd">Tcl_DeleteHashTable</span><span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>linePBodyPtr<span class="hl opt">);</span>
	<span class="hl kwd">ckfree</span><span class="hl opt">((</span><span class="hl kwb">char</span> <span class="hl opt">*)</span> iPtr<span class="hl opt">-&gt;</span>linePBodyPtr<span class="hl opt">);</span>
	iPtr<span class="hl opt">-&gt;</span>linePBodyPtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>

	<span class="hl com">/*</span>
<span class="hl com">	 * See also tclCompile.c, TclCleanupByteCode</span>
<span class="hl com">	 */</span>

	<span class="hl kwa">for</span> <span class="hl opt">(</span>hPtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_FirstHashEntry</span><span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>lineBCPtr<span class="hl opt">, &amp;</span>hSearch<span class="hl opt">);</span>
		hPtr <span class="hl opt">!=</span> NULL<span class="hl opt">;</span>
		hPtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_NextHashEntry</span><span class="hl opt">(&amp;</span>hSearch<span class="hl opt">)) {</span>
	    ExtCmdLoc <span class="hl opt">*</span>eclPtr <span class="hl opt">= (</span>ExtCmdLoc <span class="hl opt">*)</span> <span class="hl kwd">Tcl_GetHashValue</span><span class="hl opt">(</span>hPtr<span class="hl opt">);</span>

	    <span class="hl kwa">if</span> <span class="hl opt">(</span>eclPtr<span class="hl opt">-&gt;</span>type <span class="hl opt">==</span> TCL_LOCATION_SOURCE<span class="hl opt">) {</span>
		<span class="hl kwd">Tcl_DecrRefCount</span><span class="hl opt">(</span>eclPtr<span class="hl opt">-&gt;</span>path<span class="hl opt">);</span>
	    <span class="hl opt">}</span>
	    <span class="hl kwa">for</span> <span class="hl opt">(</span>i<span class="hl opt">=</span><span class="hl num">0</span><span class="hl opt">;</span> i<span class="hl opt">&lt;</span> eclPtr<span class="hl opt">-&gt;</span>nuloc<span class="hl opt">;</span> i<span class="hl opt">++) {</span>
		<span class="hl kwd">ckfree</span><span class="hl opt">((</span><span class="hl kwb">char</span> <span class="hl opt">*)</span> eclPtr<span class="hl opt">-&gt;</span>loc<span class="hl opt">[</span>i<span class="hl opt">].</span>line<span class="hl opt">);</span>
	    <span class="hl opt">}</span>

	    <span class="hl kwa">if</span> <span class="hl opt">(</span>eclPtr<span class="hl opt">-&gt;</span>loc <span class="hl opt">!=</span> NULL<span class="hl opt">) {</span>
		<span class="hl kwd">ckfree</span><span class="hl opt">((</span><span class="hl kwb">char</span> <span class="hl opt">*)</span> eclPtr<span class="hl opt">-&gt;</span>loc<span class="hl opt">);</span>
	    <span class="hl opt">}</span>

	    <span class="hl kwd">Tcl_DeleteHashTable</span> <span class="hl opt">(&amp;</span>eclPtr<span class="hl opt">-&gt;</span>litInfo<span class="hl opt">);</span>

	    <span class="hl kwd">ckfree</span><span class="hl opt">((</span><span class="hl kwb">char</span> <span class="hl opt">*)</span> eclPtr<span class="hl opt">);</span>
	    <span class="hl kwd">Tcl_DeleteHashEntry</span><span class="hl opt">(</span>hPtr<span class="hl opt">);</span>
	<span class="hl opt">}</span>
	<span class="hl kwd">Tcl_DeleteHashTable</span><span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>lineBCPtr<span class="hl opt">);</span>
	<span class="hl kwd">ckfree</span><span class="hl opt">((</span><span class="hl kwb">char</span> <span class="hl opt">*)</span> iPtr<span class="hl opt">-&gt;</span>lineBCPtr<span class="hl opt">);</span>
	iPtr<span class="hl opt">-&gt;</span>lineBCPtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>

	<span class="hl com">/*</span>
<span class="hl com">	 * Location stack for uplevel/eval/... scripts which were passed</span>
<span class="hl com">	 * through proc arguments. Actually we track all arguments as we</span>
<span class="hl com">	 * don't, cannot know which arguments will be used as scripts and</span>
<span class="hl com">	 * which won't.</span>
<span class="hl com">	 */</span>

	<span class="hl kwa">if</span> <span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>lineLAPtr<span class="hl opt">-&gt;</span>numEntries<span class="hl opt">) {</span>
	    <span class="hl com">/*</span>
<span class="hl com">	     * When the interp goes away we have nothing on the stack, so</span>
<span class="hl com">	     * there are no arguments, so this table has to be empty.</span>
<span class="hl com">	     */</span>

	    <span class="hl kwd">Tcl_Panic</span> <span class="hl opt">(</span><span class="hl str">&quot;Argument location tracking table not empty&quot;</span><span class="hl opt">);</span>
	<span class="hl opt">}</span>

	<span class="hl kwd">Tcl_DeleteHashTable</span> <span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>lineLAPtr<span class="hl opt">);</span>
	<span class="hl kwd">ckfree</span><span class="hl opt">((</span><span class="hl kwb">char</span><span class="hl opt">*)</span> iPtr<span class="hl opt">-&gt;</span>lineLAPtr<span class="hl opt">);</span>
	iPtr<span class="hl opt">-&gt;</span>lineLAPtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>

	<span class="hl kwa">if</span> <span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>lineLABCPtr<span class="hl opt">-&gt;</span>numEntries<span class="hl opt">) {</span>
	    <span class="hl com">/*</span>
<span class="hl com">	     * When the interp goes away we have nothing on the stack, so</span>
<span class="hl com">	     * there are no arguments, so this table has to be empty.</span>
<span class="hl com">	     */</span>

	    <span class="hl kwd">Tcl_Panic</span> <span class="hl opt">(</span><span class="hl str">&quot;Argument location tracking table not empty&quot;</span><span class="hl opt">);</span>
	<span class="hl opt">}</span>

	<span class="hl kwd">Tcl_DeleteHashTable</span> <span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>lineLABCPtr<span class="hl opt">);</span>
	<span class="hl kwd">ckfree</span><span class="hl opt">((</span><span class="hl kwb">char</span><span class="hl opt">*)</span> iPtr<span class="hl opt">-&gt;</span>lineLABCPtr<span class="hl opt">);</span>
	iPtr<span class="hl opt">-&gt;</span>lineLABCPtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl kwd">Tcl_DeleteHashTable</span><span class="hl opt">(&amp;</span>iPtr<span class="hl opt">-&gt;</span>varTraces<span class="hl opt">);</span>
    <span class="hl kwd">Tcl_DeleteHashTable</span><span class="hl opt">(&amp;</span>iPtr<span class="hl opt">-&gt;</span>varSearches<span class="hl opt">);</span>

    <span class="hl kwd">ckfree</span><span class="hl opt">((</span><span class="hl kwb">char</span> <span class="hl opt">*)</span> iPtr<span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl com">/*</span>
<span class="hl com"> *---------------------------------------------------------------------------</span>
<span class="hl com"> *</span>
<span class="hl com"> * Tcl_HideCommand --</span>
<span class="hl com"> *</span>
<span class="hl com"> *	Makes a command hidden so that it cannot be invoked from within an</span>
<span class="hl com"> *	interpreter, only from within an ancestor.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Results:</span>
<span class="hl com"> *	A standard Tcl result; also leaves a message in the interp's result if</span>
<span class="hl com"> *	an error occurs.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Side effects:</span>
<span class="hl com"> *	Removes a command from the command table and create an entry into the</span>
<span class="hl com"> *	hidden command table under the specified token name.</span>
<span class="hl com"> *</span>
<span class="hl com"> *---------------------------------------------------------------------------</span>
<span class="hl com"> */</span>

<span class="hl kwb">int</span>
<span class="hl kwd">Tcl_HideCommand</span><span class="hl opt">(</span>
    Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>		<span class="hl com">/* Interpreter in which to hide command. */</span>
    <span class="hl kwb">const char</span> <span class="hl opt">*</span>cmdName<span class="hl opt">,</span>	<span class="hl com">/* Name of command to hide. */</span>
    <span class="hl kwb">const char</span> <span class="hl opt">*</span>hiddenCmdToken<span class="hl opt">)</span>	<span class="hl com">/* Token name of the to-be-hidden command. */</span>
<span class="hl opt">{</span>
    Interp <span class="hl opt">*</span>iPtr <span class="hl opt">= (</span>Interp <span class="hl opt">*)</span> interp<span class="hl opt">;</span>
    Tcl_Command cmd<span class="hl opt">;</span>
    Command <span class="hl opt">*</span>cmdPtr<span class="hl opt">;</span>
    Tcl_HashTable <span class="hl opt">*</span>hiddenCmdTablePtr<span class="hl opt">;</span>
    Tcl_HashEntry <span class="hl opt">*</span>hPtr<span class="hl opt">;</span>
    <span class="hl kwb">int</span> isNew<span class="hl opt">;</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>flags <span class="hl opt">&amp;</span> DELETED<span class="hl opt">) {</span>
	<span class="hl com">/*</span>
<span class="hl com">	 * The interpreter is being deleted. Do not create any new structures,</span>
<span class="hl com">	 * because it is not safe to modify the interpreter.</span>
<span class="hl com">	 */</span>

	<span class="hl kwa">return</span> TCL_ERROR<span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Disallow hiding of commands that are currently in a namespace or</span>
<span class="hl com">     * renaming (as part of hiding) into a namespace (because the current</span>
<span class="hl com">     * implementation with a single global table and the needed uniqueness of</span>
<span class="hl com">     * names cause problems with namespaces).</span>
<span class="hl com">     *</span>
<span class="hl com">     * We don't need to check for &quot;::&quot; in cmdName because the real check is on</span>
<span class="hl com">     * the nsPtr below.</span>
<span class="hl com">     *</span>
<span class="hl com">     * hiddenCmdToken is just a string which is not interpreted in any way. It</span>
<span class="hl com">     * may contain :: but the string is not interpreted as a namespace</span>
<span class="hl com">     * qualifier command name. Thus, hiding foo::bar to foo::bar and then</span>
<span class="hl com">     * trying to expose or invoke ::foo::bar will NOT work; but if the</span>
<span class="hl com">     * application always uses the same strings it will get consistent</span>
<span class="hl com">     * behaviour.</span>
<span class="hl com">     *</span>
<span class="hl com">     * But as we currently limit ourselves to the global namespace only for</span>
<span class="hl com">     * the source, in order to avoid potential confusion, lets prevent &quot;::&quot; in</span>
<span class="hl com">     * the token too. - dl</span>
<span class="hl com">     */</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwd">strstr</span><span class="hl opt">(</span>hiddenCmdToken<span class="hl opt">,</span> <span class="hl str">&quot;::&quot;</span><span class="hl opt">) !=</span> NULL<span class="hl opt">) {</span>
	<span class="hl kwd">Tcl_AppendResult</span><span class="hl opt">(</span>interp<span class="hl opt">,</span>
		<span class="hl str">&quot;cannot use namespace qualifiers in hidden command&quot;</span>
		<span class="hl str">&quot; token (rename)&quot;</span><span class="hl opt">,</span> NULL<span class="hl opt">);</span>
	<span class="hl kwa">return</span> TCL_ERROR<span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Find the command to hide. An error is returned if cmdName can't be</span>
<span class="hl com">     * found. Look up the command only from the global namespace. Full path of</span>
<span class="hl com">     * the command must be given if using namespaces.</span>
<span class="hl com">     */</span>

    cmd <span class="hl opt">=</span> <span class="hl kwd">Tcl_FindCommand</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> cmdName<span class="hl opt">,</span> NULL<span class="hl opt">,</span>
	    <span class="hl com">/*flags*/</span> TCL_LEAVE_ERR_MSG <span class="hl opt">|</span> TCL_GLOBAL_ONLY<span class="hl opt">);</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>cmd <span class="hl opt">== (</span>Tcl_Command<span class="hl opt">)</span> NULL<span class="hl opt">) {</span>
	<span class="hl kwa">return</span> TCL_ERROR<span class="hl opt">;</span>
    <span class="hl opt">}</span>
    cmdPtr <span class="hl opt">= (</span>Command <span class="hl opt">*)</span> cmd<span class="hl opt">;</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Check that the command is really in global namespace</span>
<span class="hl com">     */</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>cmdPtr<span class="hl opt">-&gt;</span>nsPtr <span class="hl opt">!=</span> iPtr<span class="hl opt">-&gt;</span>globalNsPtr<span class="hl opt">) {</span>
	<span class="hl kwd">Tcl_AppendResult</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> <span class="hl str">&quot;can only hide global namespace commands&quot;</span>
		<span class="hl str">&quot; (use rename then hide)&quot;</span><span class="hl opt">,</span> NULL<span class="hl opt">);</span>
	<span class="hl kwa">return</span> TCL_ERROR<span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Initialize the hidden command table if necessary.</span>
<span class="hl com">     */</span>

    hiddenCmdTablePtr <span class="hl opt">=</span> iPtr<span class="hl opt">-&gt;</span>hiddenCmdTablePtr<span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>hiddenCmdTablePtr <span class="hl opt">==</span> NULL<span class="hl opt">) {</span>
	hiddenCmdTablePtr <span class="hl opt">= (</span>Tcl_HashTable <span class="hl opt">*)</span>
		<span class="hl kwd">ckalloc</span><span class="hl opt">((</span><span class="hl kwb">unsigned</span><span class="hl opt">)</span> <span class="hl kwa">sizeof</span><span class="hl opt">(</span>Tcl_HashTable<span class="hl opt">));</span>
	<span class="hl kwd">Tcl_InitHashTable</span><span class="hl opt">(</span>hiddenCmdTablePtr<span class="hl opt">,</span> TCL_STRING_KEYS<span class="hl opt">);</span>
	iPtr<span class="hl opt">-&gt;</span>hiddenCmdTablePtr <span class="hl opt">=</span> hiddenCmdTablePtr<span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * It is an error to move an exposed command to a hidden command with</span>
<span class="hl com">     * hiddenCmdToken if a hidden command with the name hiddenCmdToken already</span>
<span class="hl com">     * exists.</span>
<span class="hl com">     */</span>

    hPtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_CreateHashEntry</span><span class="hl opt">(</span>hiddenCmdTablePtr<span class="hl opt">,</span> hiddenCmdToken<span class="hl opt">, &amp;</span>isNew<span class="hl opt">);</span>
    <span class="hl kwa">if</span> <span class="hl opt">(!</span>isNew<span class="hl opt">) {</span>
	<span class="hl kwd">Tcl_AppendResult</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> <span class="hl str">&quot;hidden command named</span> <span class="hl esc">\&quot;</span><span class="hl str">&quot;</span><span class="hl opt">,</span> hiddenCmdToken<span class="hl opt">,</span>
		<span class="hl str">&quot;</span><span class="hl esc">\&quot;</span> <span class="hl str">already exists&quot;</span><span class="hl opt">,</span> NULL<span class="hl opt">);</span>
	<span class="hl kwa">return</span> TCL_ERROR<span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * NB: This code is currently 'like' a rename to a specialy set apart name</span>
<span class="hl com">     * table. Changes here and in TclRenameCommand must be kept in synch until</span>
<span class="hl com">     * the common parts are actually factorized out.</span>
<span class="hl com">     */</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Remove the hash entry for the command from the interpreter command</span>
<span class="hl com">     * table. This is like deleting the command, so bump its command epoch;</span>
<span class="hl com">     * this invalidates any cached references that point to the command.</span>
<span class="hl com">     */</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>cmdPtr<span class="hl opt">-&gt;</span>hPtr <span class="hl opt">!=</span> NULL<span class="hl opt">) {</span>
	<span class="hl kwd">Tcl_DeleteHashEntry</span><span class="hl opt">(</span>cmdPtr<span class="hl opt">-&gt;</span>hPtr<span class="hl opt">);</span>
	cmdPtr<span class="hl opt">-&gt;</span>hPtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
	cmdPtr<span class="hl opt">-&gt;</span>cmdEpoch<span class="hl opt">++;</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * The list of command exported from the namespace might have changed.</span>
<span class="hl com">     * However, we do not need to recompute this just yet; next time we need</span>
<span class="hl com">     * the info will be soon enough.</span>
<span class="hl com">     */</span>

    <span class="hl kwd">TclInvalidateNsCmdLookup</span><span class="hl opt">(</span>cmdPtr<span class="hl opt">-&gt;</span>nsPtr<span class="hl opt">);</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Now link the hash table entry with the command structure. We ensured</span>
<span class="hl com">     * above that the nsPtr was right.</span>
<span class="hl com">     */</span>

    cmdPtr<span class="hl opt">-&gt;</span>hPtr <span class="hl opt">=</span> hPtr<span class="hl opt">;</span>
    <span class="hl kwd">Tcl_SetHashValue</span><span class="hl opt">(</span>hPtr<span class="hl opt">,</span> cmdPtr<span class="hl opt">);</span>

    <span class="hl com">/*</span>
<span class="hl com">     * If the command being hidden has a compile function, increment the</span>
<span class="hl com">     * interpreter's compileEpoch to invalidate its compiled code. This makes</span>
<span class="hl com">     * sure that we don't later try to execute old code compiled with</span>
<span class="hl com">     * command-specific (i.e., inline) bytecodes for the now-hidden command.</span>
<span class="hl com">     * This field is checked in Tcl_EvalObj and ObjInterpProc, and code whose</span>
<span class="hl com">     * compilation epoch doesn't match is recompiled.</span>
<span class="hl com">     */</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>cmdPtr<span class="hl opt">-&gt;</span>compileProc <span class="hl opt">!=</span> NULL<span class="hl opt">) {</span>
	iPtr<span class="hl opt">-&gt;</span>compileEpoch<span class="hl opt">++;</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">return</span> TCL_OK<span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl com">/*</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> *</span>
<span class="hl com"> * Tcl_ExposeCommand --</span>
<span class="hl com"> *</span>
<span class="hl com"> *	Makes a previously hidden command callable from inside the interpreter</span>
<span class="hl com"> *	instead of only by its ancestors.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Results:</span>
<span class="hl com"> *	A standard Tcl result. If an error occurs, a message is left in the</span>
<span class="hl com"> *	interp's result.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Side effects:</span>
<span class="hl com"> *	Moves commands from one hash table to another.</span>
<span class="hl com"> *</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> */</span>

<span class="hl kwb">int</span>
<span class="hl kwd">Tcl_ExposeCommand</span><span class="hl opt">(</span>
    Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>		<span class="hl com">/* Interpreter in which to make command</span>
<span class="hl com">				 * callable. */</span>
    <span class="hl kwb">const char</span> <span class="hl opt">*</span>hiddenCmdToken<span class="hl opt">,</span>	<span class="hl com">/* Name of hidden command. */</span>
    <span class="hl kwb">const char</span> <span class="hl opt">*</span>cmdName<span class="hl opt">)</span>	<span class="hl com">/* Name of to-be-exposed command. */</span>
<span class="hl opt">{</span>
    Interp <span class="hl opt">*</span>iPtr <span class="hl opt">= (</span>Interp <span class="hl opt">*)</span> interp<span class="hl opt">;</span>
    Command <span class="hl opt">*</span>cmdPtr<span class="hl opt">;</span>
    Namespace <span class="hl opt">*</span>nsPtr<span class="hl opt">;</span>
    Tcl_HashEntry <span class="hl opt">*</span>hPtr<span class="hl opt">;</span>
    Tcl_HashTable <span class="hl opt">*</span>hiddenCmdTablePtr<span class="hl opt">;</span>
    <span class="hl kwb">int</span> isNew<span class="hl opt">;</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>flags <span class="hl opt">&amp;</span> DELETED<span class="hl opt">) {</span>
	<span class="hl com">/*</span>
<span class="hl com">	 * The interpreter is being deleted. Do not create any new structures,</span>
<span class="hl com">	 * because it is not safe to modify the interpreter.</span>
<span class="hl com">	 */</span>

	<span class="hl kwa">return</span> TCL_ERROR<span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Check that we have a regular name for the command (that the user is not</span>
<span class="hl com">     * trying to do an expose and a rename (to another namespace) at the same</span>
<span class="hl com">     * time).</span>
<span class="hl com">     */</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwd">strstr</span><span class="hl opt">(</span>cmdName<span class="hl opt">,</span> <span class="hl str">&quot;::&quot;</span><span class="hl opt">) !=</span> NULL<span class="hl opt">) {</span>
	<span class="hl kwd">Tcl_AppendResult</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> <span class="hl str">&quot;cannot expose to a namespace &quot;</span>
		<span class="hl str">&quot;(use expose to toplevel, then rename)&quot;</span><span class="hl opt">,</span> NULL<span class="hl opt">);</span>
	<span class="hl kwa">return</span> TCL_ERROR<span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Get the command from the hidden command table:</span>
<span class="hl com">     */</span>

    hPtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
    hiddenCmdTablePtr <span class="hl opt">=</span> iPtr<span class="hl opt">-&gt;</span>hiddenCmdTablePtr<span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>hiddenCmdTablePtr <span class="hl opt">!=</span> NULL<span class="hl opt">) {</span>
	hPtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_FindHashEntry</span><span class="hl opt">(</span>hiddenCmdTablePtr<span class="hl opt">,</span> hiddenCmdToken<span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>hPtr <span class="hl opt">==</span> NULL<span class="hl opt">) {</span>
	<span class="hl kwd">Tcl_AppendResult</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> <span class="hl str">&quot;unknown hidden command</span> <span class="hl esc">\&quot;</span><span class="hl str">&quot;</span><span class="hl opt">,</span> hiddenCmdToken<span class="hl opt">,</span>
		<span class="hl str">&quot;</span><span class="hl esc">\&quot;</span><span class="hl str">&quot;</span><span class="hl opt">,</span> NULL<span class="hl opt">);</span>
	<span class="hl kwa">return</span> TCL_ERROR<span class="hl opt">;</span>
    <span class="hl opt">}</span>
    cmdPtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_GetHashValue</span><span class="hl opt">(</span>hPtr<span class="hl opt">);</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Check that we have a true global namespace command (enforced by</span>
<span class="hl com">     * Tcl_HideCommand() but let's double check. (If it was not, we would not</span>
<span class="hl com">     * really know how to handle it).</span>
<span class="hl com">     */</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>cmdPtr<span class="hl opt">-&gt;</span>nsPtr <span class="hl opt">!=</span> iPtr<span class="hl opt">-&gt;</span>globalNsPtr<span class="hl opt">) {</span>
	<span class="hl com">/*</span>
<span class="hl com">	 * This case is theoritically impossible, we might rather Tcl_Panic()</span>
<span class="hl com">	 * than 'nicely' erroring out ?</span>
<span class="hl com">	 */</span>

	<span class="hl kwd">Tcl_AppendResult</span><span class="hl opt">(</span>interp<span class="hl opt">,</span>
		<span class="hl str">&quot;trying to expose a non global command name space command&quot;</span><span class="hl opt">,</span>
		NULL<span class="hl opt">);</span>
	<span class="hl kwa">return</span> TCL_ERROR<span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * This is the global table.</span>
<span class="hl com">     */</span>

    nsPtr <span class="hl opt">=</span> cmdPtr<span class="hl opt">-&gt;</span>nsPtr<span class="hl opt">;</span>

    <span class="hl com">/*</span>
<span class="hl com">     * It is an error to overwrite an existing exposed command as a result of</span>
<span class="hl com">     * exposing a previously hidden command.</span>
<span class="hl com">     */</span>

    hPtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_CreateHashEntry</span><span class="hl opt">(&amp;</span>nsPtr<span class="hl opt">-&gt;</span>cmdTable<span class="hl opt">,</span> cmdName<span class="hl opt">, &amp;</span>isNew<span class="hl opt">);</span>
    <span class="hl kwa">if</span> <span class="hl opt">(!</span>isNew<span class="hl opt">) {</span>
	<span class="hl kwd">Tcl_AppendResult</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> <span class="hl str">&quot;exposed command</span> <span class="hl esc">\&quot;</span><span class="hl str">&quot;</span><span class="hl opt">,</span> cmdName<span class="hl opt">,</span>
		<span class="hl str">&quot;</span><span class="hl esc">\&quot;</span> <span class="hl str">already exists&quot;</span><span class="hl opt">,</span> NULL<span class="hl opt">);</span>
	<span class="hl kwa">return</span> TCL_ERROR<span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * The list of command exported from the namespace might have changed.</span>
<span class="hl com">     * However, we do not need to recompute this just yet; next time we need</span>
<span class="hl com">     * the info will be soon enough.</span>
<span class="hl com">     */</span>

    <span class="hl kwd">TclInvalidateNsCmdLookup</span><span class="hl opt">(</span>nsPtr<span class="hl opt">);</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Remove the hash entry for the command from the interpreter hidden</span>
<span class="hl com">     * command table.</span>
<span class="hl com">     */</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>cmdPtr<span class="hl opt">-&gt;</span>hPtr <span class="hl opt">!=</span> NULL<span class="hl opt">) {</span>
	<span class="hl kwd">Tcl_DeleteHashEntry</span><span class="hl opt">(</span>cmdPtr<span class="hl opt">-&gt;</span>hPtr<span class="hl opt">);</span>
	cmdPtr<span class="hl opt">-&gt;</span>hPtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Now link the hash table entry with the command structure. This is like</span>
<span class="hl com">     * creating a new command, so deal with any shadowing of commands in the</span>
<span class="hl com">     * global namespace.</span>
<span class="hl com">     */</span>

    cmdPtr<span class="hl opt">-&gt;</span>hPtr <span class="hl opt">=</span> hPtr<span class="hl opt">;</span>

    <span class="hl kwd">Tcl_SetHashValue</span><span class="hl opt">(</span>hPtr<span class="hl opt">,</span> cmdPtr<span class="hl opt">);</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Not needed as we are only in the global namespace (but would be needed</span>
<span class="hl com">     * again if we supported namespace command hiding)</span>
<span class="hl com">     *</span>
<span class="hl com">     * TclResetShadowedCmdRefs(interp, cmdPtr);</span>
<span class="hl com">     */</span>

    <span class="hl com">/*</span>
<span class="hl com">     * If the command being exposed has a compile function, increment</span>
<span class="hl com">     * interpreter's compileEpoch to invalidate its compiled code. This makes</span>
<span class="hl com">     * sure that we don't later try to execute old code compiled assuming the</span>
<span class="hl com">     * command is hidden. This field is checked in Tcl_EvalObj and</span>
<span class="hl com">     * ObjInterpProc, and code whose compilation epoch doesn't match is</span>
<span class="hl com">     * recompiled.</span>
<span class="hl com">     */</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>cmdPtr<span class="hl opt">-&gt;</span>compileProc <span class="hl opt">!=</span> NULL<span class="hl opt">) {</span>
	iPtr<span class="hl opt">-&gt;</span>compileEpoch<span class="hl opt">++;</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">return</span> TCL_OK<span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl com">/*</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> *</span>
<span class="hl com"> * Tcl_CreateCommand --</span>
<span class="hl com"> *</span>
<span class="hl com"> *	Define a new command in a command table.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Results:</span>
<span class="hl com"> *	The return value is a token for the command, which can be used in</span>
<span class="hl com"> *	future calls to Tcl_GetCommandName.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Side effects:</span>
<span class="hl com"> *	If a command named cmdName already exists for interp, it is deleted.</span>
<span class="hl com"> *	In the future, when cmdName is seen as the name of a command by</span>
<span class="hl com"> *	Tcl_Eval, proc will be called. To support the bytecode interpreter,</span>
<span class="hl com"> *	the command is created with a wrapper Tcl_ObjCmdProc</span>
<span class="hl com"> *	(TclInvokeStringCommand) that eventially calls proc. When the command</span>
<span class="hl com"> *	is deleted from the table, deleteProc will be called. See the manual</span>
<span class="hl com"> *	entry for details on the calling sequence.</span>
<span class="hl com"> *</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> */</span>

Tcl_Command
<span class="hl kwd">Tcl_CreateCommand</span><span class="hl opt">(</span>
    Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>		<span class="hl com">/* Token for command interpreter returned by a</span>
<span class="hl com">				 * previous call to Tcl_CreateInterp. */</span>
    <span class="hl kwb">const char</span> <span class="hl opt">*</span>cmdName<span class="hl opt">,</span>	<span class="hl com">/* Name of command. If it contains namespace</span>
<span class="hl com">				 * qualifiers, the new command is put in the</span>
<span class="hl com">				 * specified namespace; otherwise it is put in</span>
<span class="hl com">				 * the global namespace. */</span>
    Tcl_CmdProc <span class="hl opt">*</span>proc<span class="hl opt">,</span>		<span class="hl com">/* Function to associate with cmdName. */</span>
    ClientData clientData<span class="hl opt">,</span>	<span class="hl com">/* Arbitrary value passed to string proc. */</span>
    Tcl_CmdDeleteProc <span class="hl opt">*</span>deleteProc<span class="hl opt">)</span>
				<span class="hl com">/* If not NULL, gives a function to call when</span>
<span class="hl com">				 * this command is deleted. */</span>
<span class="hl opt">{</span>
    Interp <span class="hl opt">*</span>iPtr <span class="hl opt">= (</span>Interp <span class="hl opt">*)</span> interp<span class="hl opt">;</span>
    ImportRef <span class="hl opt">*</span>oldRefPtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
    Namespace <span class="hl opt">*</span>nsPtr<span class="hl opt">, *</span>dummy1<span class="hl opt">, *</span>dummy2<span class="hl opt">;</span>
    Command <span class="hl opt">*</span>cmdPtr<span class="hl opt">, *</span>refCmdPtr<span class="hl opt">;</span>
    Tcl_HashEntry <span class="hl opt">*</span>hPtr<span class="hl opt">;</span>
    <span class="hl kwb">const char</span> <span class="hl opt">*</span>tail<span class="hl opt">;</span>
    <span class="hl kwb">int</span> isNew<span class="hl opt">;</span>
    ImportedCmdData <span class="hl opt">*</span>dataPtr<span class="hl opt">;</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>flags <span class="hl opt">&amp;</span> DELETED<span class="hl opt">) {</span>
	<span class="hl com">/*</span>
<span class="hl com">	 * The interpreter is being deleted. Don't create any new commands;</span>
<span class="hl com">	 * it's not safe to muck with the interpreter anymore.</span>
<span class="hl com">	 */</span>

	<span class="hl kwa">return</span> <span class="hl opt">(</span>Tcl_Command<span class="hl opt">)</span> NULL<span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Determine where the command should reside. If its name contains</span>
<span class="hl com">     * namespace qualifiers, we put it in the specified namespace; otherwise,</span>
<span class="hl com">     * we always put it in the global namespace.</span>
<span class="hl com">     */</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwd">strstr</span><span class="hl opt">(</span>cmdName<span class="hl opt">,</span> <span class="hl str">&quot;::&quot;</span><span class="hl opt">) !=</span> NULL<span class="hl opt">) {</span>
	<span class="hl kwd">TclGetNamespaceForQualName</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> cmdName<span class="hl opt">,</span> NULL<span class="hl opt">,</span>
		TCL_CREATE_NS_IF_UNKNOWN<span class="hl opt">, &amp;</span>nsPtr<span class="hl opt">, &amp;</span>dummy1<span class="hl opt">, &amp;</span>dummy2<span class="hl opt">, &amp;</span>tail<span class="hl opt">);</span>
	<span class="hl kwa">if</span> <span class="hl opt">((</span>nsPtr <span class="hl opt">==</span> NULL<span class="hl opt">) || (</span>tail <span class="hl opt">==</span> NULL<span class="hl opt">)) {</span>
	    <span class="hl kwa">return</span> <span class="hl opt">(</span>Tcl_Command<span class="hl opt">)</span> NULL<span class="hl opt">;</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	nsPtr <span class="hl opt">=</span> iPtr<span class="hl opt">-&gt;</span>globalNsPtr<span class="hl opt">;</span>
	tail <span class="hl opt">=</span> cmdName<span class="hl opt">;</span>
    <span class="hl opt">}</span>

    hPtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_CreateHashEntry</span><span class="hl opt">(&amp;</span>nsPtr<span class="hl opt">-&gt;</span>cmdTable<span class="hl opt">,</span> tail<span class="hl opt">, &amp;</span>isNew<span class="hl opt">);</span>
    <span class="hl kwa">if</span> <span class="hl opt">(!</span>isNew<span class="hl opt">) {</span>
	<span class="hl com">/*</span>
<span class="hl com">	 * Command already exists. Delete the old one. Be careful to preserve</span>
<span class="hl com">	 * any existing import links so we can restore them down below. That</span>
<span class="hl com">	 * way, you can redefine a command and its import status will remain</span>
<span class="hl com">	 * intact.</span>
<span class="hl com">	 */</span>

	cmdPtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_GetHashValue</span><span class="hl opt">(</span>hPtr<span class="hl opt">);</span>
	oldRefPtr <span class="hl opt">=</span> cmdPtr<span class="hl opt">-&gt;</span>importRefPtr<span class="hl opt">;</span>
	cmdPtr<span class="hl opt">-&gt;</span>importRefPtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>

	<span class="hl kwd">Tcl_DeleteCommandFromToken</span><span class="hl opt">(</span>interp<span class="hl opt">, (</span>Tcl_Command<span class="hl opt">)</span> cmdPtr<span class="hl opt">);</span>
	hPtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_CreateHashEntry</span><span class="hl opt">(&amp;</span>nsPtr<span class="hl opt">-&gt;</span>cmdTable<span class="hl opt">,</span> tail<span class="hl opt">, &amp;</span>isNew<span class="hl opt">);</span>
	<span class="hl kwa">if</span> <span class="hl opt">(!</span>isNew<span class="hl opt">) {</span>
	    <span class="hl com">/*</span>
<span class="hl com">	     * If the deletion callback recreated the command, just throw away</span>
<span class="hl com">	     * the new command (if we try to delete it again, we could get</span>
<span class="hl com">	     * stuck in an infinite loop).</span>
<span class="hl com">	     */</span>

	     <span class="hl kwd">ckfree</span><span class="hl opt">((</span><span class="hl kwb">char</span> <span class="hl opt">*)</span> <span class="hl kwd">Tcl_GetHashValue</span><span class="hl opt">(</span>hPtr<span class="hl opt">));</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl com">/*</span>
<span class="hl com">	 * The list of command exported from the namespace might have changed.</span>
<span class="hl com">	 * However, we do not need to recompute this just yet; next time we</span>
<span class="hl com">	 * need the info will be soon enough.</span>
<span class="hl com">	 */</span>

	<span class="hl kwd">TclInvalidateNsCmdLookup</span><span class="hl opt">(</span>nsPtr<span class="hl opt">);</span>
	<span class="hl kwd">TclInvalidateNsPath</span><span class="hl opt">(</span>nsPtr<span class="hl opt">);</span>
    <span class="hl opt">}</span>
    cmdPtr <span class="hl opt">= (</span>Command <span class="hl opt">*)</span> <span class="hl kwd">ckalloc</span><span class="hl opt">(</span><span class="hl kwa">sizeof</span><span class="hl opt">(</span>Command<span class="hl opt">));</span>
    <span class="hl kwd">Tcl_SetHashValue</span><span class="hl opt">(</span>hPtr<span class="hl opt">,</span> cmdPtr<span class="hl opt">);</span>
    cmdPtr<span class="hl opt">-&gt;</span>hPtr <span class="hl opt">=</span> hPtr<span class="hl opt">;</span>
    cmdPtr<span class="hl opt">-&gt;</span>nsPtr <span class="hl opt">=</span> nsPtr<span class="hl opt">;</span>
    cmdPtr<span class="hl opt">-&gt;</span>refCount <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
    cmdPtr<span class="hl opt">-&gt;</span>cmdEpoch <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
    cmdPtr<span class="hl opt">-&gt;</span>compileProc <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
    cmdPtr<span class="hl opt">-&gt;</span>objProc <span class="hl opt">=</span> TclInvokeStringCommand<span class="hl opt">;</span>
    cmdPtr<span class="hl opt">-&gt;</span>objClientData <span class="hl opt">=</span> cmdPtr<span class="hl opt">;</span>
    cmdPtr<span class="hl opt">-&gt;</span>proc <span class="hl opt">=</span> proc<span class="hl opt">;</span>
    cmdPtr<span class="hl opt">-&gt;</span>clientData <span class="hl opt">=</span> clientData<span class="hl opt">;</span>
    cmdPtr<span class="hl opt">-&gt;</span>deleteProc <span class="hl opt">=</span> deleteProc<span class="hl opt">;</span>
    cmdPtr<span class="hl opt">-&gt;</span>deleteData <span class="hl opt">=</span> clientData<span class="hl opt">;</span>
    cmdPtr<span class="hl opt">-&gt;</span>flags <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
    cmdPtr<span class="hl opt">-&gt;</span>importRefPtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
    cmdPtr<span class="hl opt">-&gt;</span>tracePtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Plug in any existing import references found above. Be sure to update</span>
<span class="hl com">     * all of these references to point to the new command.</span>
<span class="hl com">     */</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>oldRefPtr <span class="hl opt">!=</span> NULL<span class="hl opt">) {</span>
	cmdPtr<span class="hl opt">-&gt;</span>importRefPtr <span class="hl opt">=</span> oldRefPtr<span class="hl opt">;</span>
	<span class="hl kwa">while</span> <span class="hl opt">(</span>oldRefPtr <span class="hl opt">!=</span> NULL<span class="hl opt">) {</span>
	    refCmdPtr <span class="hl opt">=</span> oldRefPtr<span class="hl opt">-&gt;</span>importedCmdPtr<span class="hl opt">;</span>
	    dataPtr <span class="hl opt">=</span> refCmdPtr<span class="hl opt">-&gt;</span>objClientData<span class="hl opt">;</span>
	    dataPtr<span class="hl opt">-&gt;</span>realCmdPtr <span class="hl opt">=</span> cmdPtr<span class="hl opt">;</span>
	    oldRefPtr <span class="hl opt">=</span> oldRefPtr<span class="hl opt">-&gt;</span>nextPtr<span class="hl opt">;</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * We just created a command, so in its namespace and all of its parent</span>
<span class="hl com">     * namespaces, it may shadow global commands with the same name. If any</span>
<span class="hl com">     * shadowed commands are found, invalidate all cached command references</span>
<span class="hl com">     * in the affected namespaces.</span>
<span class="hl com">     */</span>

    <span class="hl kwd">TclResetShadowedCmdRefs</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> cmdPtr<span class="hl opt">);</span>
    <span class="hl kwa">return</span> <span class="hl opt">(</span>Tcl_Command<span class="hl opt">)</span> cmdPtr<span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl com">/*</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> *</span>
<span class="hl com"> * Tcl_CreateObjCommand --</span>
<span class="hl com"> *</span>
<span class="hl com"> *	Define a new object-based command in a command table.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Results:</span>
<span class="hl com"> *	The return value is a token for the command, which can be used in</span>
<span class="hl com"> *	future calls to Tcl_GetCommandName.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Side effects:</span>
<span class="hl com"> *	If no command named &quot;cmdName&quot; already exists for interp, one is</span>
<span class="hl com"> *	created. Otherwise, if a command does exist, then if the object-based</span>
<span class="hl com"> *	Tcl_ObjCmdProc is TclInvokeStringCommand, we assume Tcl_CreateCommand</span>
<span class="hl com"> *	was called previously for the same command and just set its</span>
<span class="hl com"> *	Tcl_ObjCmdProc to the argument &quot;proc&quot;; otherwise, we delete the old</span>
<span class="hl com"> *	command.</span>
<span class="hl com"> *</span>
<span class="hl com"> *	In the future, during bytecode evaluation when &quot;cmdName&quot; is seen as</span>
<span class="hl com"> *	the name of a command by Tcl_EvalObj or Tcl_Eval, the object-based</span>
<span class="hl com"> *	Tcl_ObjCmdProc proc will be called. When the command is deleted from</span>
<span class="hl com"> *	the table, deleteProc will be called. See the manual entry for details</span>
<span class="hl com"> *	on the calling sequence.</span>
<span class="hl com"> *</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> */</span>

Tcl_Command
<span class="hl kwd">Tcl_CreateObjCommand</span><span class="hl opt">(</span>
    Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>		<span class="hl com">/* Token for command interpreter (returned by</span>
<span class="hl com">				 * previous call to Tcl_CreateInterp). */</span>
    <span class="hl kwb">const char</span> <span class="hl opt">*</span>cmdName<span class="hl opt">,</span>	<span class="hl com">/* Name of command. If it contains namespace</span>
<span class="hl com">				 * qualifiers, the new command is put in the</span>
<span class="hl com">				 * specified namespace; otherwise it is put in</span>
<span class="hl com">				 * the global namespace. */</span>
    Tcl_ObjCmdProc <span class="hl opt">*</span>proc<span class="hl opt">,</span>	<span class="hl com">/* Object-based function to associate with</span>
<span class="hl com">				 * name. */</span>
    ClientData clientData<span class="hl opt">,</span>	<span class="hl com">/* Arbitrary value to pass to object</span>
<span class="hl com">    				 * function. */</span>
    Tcl_CmdDeleteProc <span class="hl opt">*</span>deleteProc<span class="hl opt">)</span>
				<span class="hl com">/* If not NULL, gives a function to call when</span>
<span class="hl com">				 * this command is deleted. */</span>
<span class="hl opt">{</span>
    Interp <span class="hl opt">*</span>iPtr <span class="hl opt">= (</span>Interp <span class="hl opt">*)</span> interp<span class="hl opt">;</span>
    ImportRef <span class="hl opt">*</span>oldRefPtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
    Namespace <span class="hl opt">*</span>nsPtr<span class="hl opt">, *</span>dummy1<span class="hl opt">, *</span>dummy2<span class="hl opt">;</span>
    Command <span class="hl opt">*</span>cmdPtr<span class="hl opt">, *</span>refCmdPtr<span class="hl opt">;</span>
    Tcl_HashEntry <span class="hl opt">*</span>hPtr<span class="hl opt">;</span>
    <span class="hl kwb">const char</span> <span class="hl opt">*</span>tail<span class="hl opt">;</span>
    <span class="hl kwb">int</span> isNew<span class="hl opt">;</span>
    ImportedCmdData <span class="hl opt">*</span>dataPtr<span class="hl opt">;</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>flags <span class="hl opt">&amp;</span> DELETED<span class="hl opt">) {</span>
	<span class="hl com">/*</span>
<span class="hl com">	 * The interpreter is being deleted. Don't create any new commands;</span>
<span class="hl com">	 * it's not safe to muck with the interpreter anymore.</span>
<span class="hl com">	 */</span>

	<span class="hl kwa">return</span> <span class="hl opt">(</span>Tcl_Command<span class="hl opt">)</span> NULL<span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Determine where the command should reside. If its name contains</span>
<span class="hl com">     * namespace qualifiers, we put it in the specified namespace; otherwise,</span>
<span class="hl com">     * we always put it in the global namespace.</span>
<span class="hl com">     */</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwd">strstr</span><span class="hl opt">(</span>cmdName<span class="hl opt">,</span> <span class="hl str">&quot;::&quot;</span><span class="hl opt">) !=</span> NULL<span class="hl opt">) {</span>
	<span class="hl kwd">TclGetNamespaceForQualName</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> cmdName<span class="hl opt">,</span> NULL<span class="hl opt">,</span>
		TCL_CREATE_NS_IF_UNKNOWN<span class="hl opt">, &amp;</span>nsPtr<span class="hl opt">, &amp;</span>dummy1<span class="hl opt">, &amp;</span>dummy2<span class="hl opt">, &amp;</span>tail<span class="hl opt">);</span>
	<span class="hl kwa">if</span> <span class="hl opt">((</span>nsPtr <span class="hl opt">==</span> NULL<span class="hl opt">) || (</span>tail <span class="hl opt">==</span> NULL<span class="hl opt">)) {</span>
	    <span class="hl kwa">return</span> <span class="hl opt">(</span>Tcl_Command<span class="hl opt">)</span> NULL<span class="hl opt">;</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	nsPtr <span class="hl opt">=</span> iPtr<span class="hl opt">-&gt;</span>globalNsPtr<span class="hl opt">;</span>
	tail <span class="hl opt">=</span> cmdName<span class="hl opt">;</span>
    <span class="hl opt">}</span>

    hPtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_CreateHashEntry</span><span class="hl opt">(&amp;</span>nsPtr<span class="hl opt">-&gt;</span>cmdTable<span class="hl opt">,</span> tail<span class="hl opt">, &amp;</span>isNew<span class="hl opt">);</span>
    <span class="hl kwd">TclInvalidateNsPath</span><span class="hl opt">(</span>nsPtr<span class="hl opt">);</span>
    <span class="hl kwa">if</span> <span class="hl opt">(!</span>isNew<span class="hl opt">) {</span>
	cmdPtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_GetHashValue</span><span class="hl opt">(</span>hPtr<span class="hl opt">);</span>

	<span class="hl com">/*</span>
<span class="hl com">	 * Command already exists. If its object-based Tcl_ObjCmdProc is</span>
<span class="hl com">	 * TclInvokeStringCommand, we just set its Tcl_ObjCmdProc to the</span>
<span class="hl com">	 * argument &quot;proc&quot;. Otherwise, we delete the old command.</span>
<span class="hl com">	 */</span>

	<span class="hl kwa">if</span> <span class="hl opt">(</span>cmdPtr<span class="hl opt">-&gt;</span>objProc <span class="hl opt">==</span> TclInvokeStringCommand<span class="hl opt">) {</span>
	    cmdPtr<span class="hl opt">-&gt;</span>objProc <span class="hl opt">=</span> proc<span class="hl opt">;</span>
	    cmdPtr<span class="hl opt">-&gt;</span>objClientData <span class="hl opt">=</span> clientData<span class="hl opt">;</span>
	    cmdPtr<span class="hl opt">-&gt;</span>deleteProc <span class="hl opt">=</span> deleteProc<span class="hl opt">;</span>
	    cmdPtr<span class="hl opt">-&gt;</span>deleteData <span class="hl opt">=</span> clientData<span class="hl opt">;</span>
	    <span class="hl kwa">return</span> <span class="hl opt">(</span>Tcl_Command<span class="hl opt">)</span> cmdPtr<span class="hl opt">;</span>
	<span class="hl opt">}</span>

	<span class="hl com">/*</span>
<span class="hl com">	 * Otherwise, we delete the old command. Be careful to preserve any</span>
<span class="hl com">	 * existing import links so we can restore them down below. That way,</span>
<span class="hl com">	 * you can redefine a command and its import status will remain</span>
<span class="hl com">	 * intact.</span>
<span class="hl com">	 */</span>

	oldRefPtr <span class="hl opt">=</span> cmdPtr<span class="hl opt">-&gt;</span>importRefPtr<span class="hl opt">;</span>
	cmdPtr<span class="hl opt">-&gt;</span>importRefPtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>

	<span class="hl kwd">Tcl_DeleteCommandFromToken</span><span class="hl opt">(</span>interp<span class="hl opt">, (</span>Tcl_Command<span class="hl opt">)</span> cmdPtr<span class="hl opt">);</span>
	hPtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_CreateHashEntry</span><span class="hl opt">(&amp;</span>nsPtr<span class="hl opt">-&gt;</span>cmdTable<span class="hl opt">,</span> tail<span class="hl opt">, &amp;</span>isNew<span class="hl opt">);</span>
	<span class="hl kwa">if</span> <span class="hl opt">(!</span>isNew<span class="hl opt">) {</span>
	    <span class="hl com">/*</span>
<span class="hl com">	     * If the deletion callback recreated the command, just throw away</span>
<span class="hl com">	     * the new command (if we try to delete it again, we could get</span>
<span class="hl com">	     * stuck in an infinite loop).</span>
<span class="hl com">	     */</span>

	     <span class="hl kwd">ckfree</span><span class="hl opt">(</span><span class="hl kwd">Tcl_GetHashValue</span><span class="hl opt">(</span>hPtr<span class="hl opt">));</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl com">/*</span>
<span class="hl com">	 * The list of command exported from the namespace might have changed.</span>
<span class="hl com">	 * However, we do not need to recompute this just yet; next time we</span>
<span class="hl com">	 * need the info will be soon enough.</span>
<span class="hl com">	 */</span>

	<span class="hl kwd">TclInvalidateNsCmdLookup</span><span class="hl opt">(</span>nsPtr<span class="hl opt">);</span>
    <span class="hl opt">}</span>
    cmdPtr <span class="hl opt">= (</span>Command <span class="hl opt">*)</span> <span class="hl kwd">ckalloc</span><span class="hl opt">(</span><span class="hl kwa">sizeof</span><span class="hl opt">(</span>Command<span class="hl opt">));</span>
    <span class="hl kwd">Tcl_SetHashValue</span><span class="hl opt">(</span>hPtr<span class="hl opt">,</span> cmdPtr<span class="hl opt">);</span>
    cmdPtr<span class="hl opt">-&gt;</span>hPtr <span class="hl opt">=</span> hPtr<span class="hl opt">;</span>
    cmdPtr<span class="hl opt">-&gt;</span>nsPtr <span class="hl opt">=</span> nsPtr<span class="hl opt">;</span>
    cmdPtr<span class="hl opt">-&gt;</span>refCount <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
    cmdPtr<span class="hl opt">-&gt;</span>cmdEpoch <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
    cmdPtr<span class="hl opt">-&gt;</span>compileProc <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
    cmdPtr<span class="hl opt">-&gt;</span>objProc <span class="hl opt">=</span> proc<span class="hl opt">;</span>
    cmdPtr<span class="hl opt">-&gt;</span>objClientData <span class="hl opt">=</span> clientData<span class="hl opt">;</span>
    cmdPtr<span class="hl opt">-&gt;</span>proc <span class="hl opt">=</span> TclInvokeObjectCommand<span class="hl opt">;</span>
    cmdPtr<span class="hl opt">-&gt;</span>clientData <span class="hl opt">=</span> cmdPtr<span class="hl opt">;</span>
    cmdPtr<span class="hl opt">-&gt;</span>deleteProc <span class="hl opt">=</span> deleteProc<span class="hl opt">;</span>
    cmdPtr<span class="hl opt">-&gt;</span>deleteData <span class="hl opt">=</span> clientData<span class="hl opt">;</span>
    cmdPtr<span class="hl opt">-&gt;</span>flags <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
    cmdPtr<span class="hl opt">-&gt;</span>importRefPtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
    cmdPtr<span class="hl opt">-&gt;</span>tracePtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Plug in any existing import references found above. Be sure to update</span>
<span class="hl com">     * all of these references to point to the new command.</span>
<span class="hl com">     */</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>oldRefPtr <span class="hl opt">!=</span> NULL<span class="hl opt">) {</span>
	cmdPtr<span class="hl opt">-&gt;</span>importRefPtr <span class="hl opt">=</span> oldRefPtr<span class="hl opt">;</span>
	<span class="hl kwa">while</span> <span class="hl opt">(</span>oldRefPtr <span class="hl opt">!=</span> NULL<span class="hl opt">) {</span>
	    refCmdPtr <span class="hl opt">=</span> oldRefPtr<span class="hl opt">-&gt;</span>importedCmdPtr<span class="hl opt">;</span>
	    dataPtr <span class="hl opt">=</span> refCmdPtr<span class="hl opt">-&gt;</span>objClientData<span class="hl opt">;</span>
	    dataPtr<span class="hl opt">-&gt;</span>realCmdPtr <span class="hl opt">=</span> cmdPtr<span class="hl opt">;</span>
	    oldRefPtr <span class="hl opt">=</span> oldRefPtr<span class="hl opt">-&gt;</span>nextPtr<span class="hl opt">;</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * We just created a command, so in its namespace and all of its parent</span>
<span class="hl com">     * namespaces, it may shadow global commands with the same name. If any</span>
<span class="hl com">     * shadowed commands are found, invalidate all cached command references</span>
<span class="hl com">     * in the affected namespaces.</span>
<span class="hl com">     */</span>

    <span class="hl kwd">TclResetShadowedCmdRefs</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> cmdPtr<span class="hl opt">);</span>
    <span class="hl kwa">return</span> <span class="hl opt">(</span>Tcl_Command<span class="hl opt">)</span> cmdPtr<span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl com">/*</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> *</span>
<span class="hl com"> * TclInvokeStringCommand --</span>
<span class="hl com"> *</span>
<span class="hl com"> *	&quot;Wrapper&quot; Tcl_ObjCmdProc used to call an existing string-based</span>
<span class="hl com"> *	Tcl_CmdProc if no object-based function exists for a command. A</span>
<span class="hl com"> *	pointer to this function is stored as the Tcl_ObjCmdProc in a Command</span>
<span class="hl com"> *	structure. It simply turns around and calls the string Tcl_CmdProc in</span>
<span class="hl com"> *	the Command structure.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Results:</span>
<span class="hl com"> *	A standard Tcl object result value.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Side effects:</span>
<span class="hl com"> *	Besides those side effects of the called Tcl_CmdProc,</span>
<span class="hl com"> *	TclInvokeStringCommand allocates and frees storage.</span>
<span class="hl com"> *</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> */</span>

<span class="hl kwb">int</span>
<span class="hl kwd">TclInvokeStringCommand</span><span class="hl opt">(</span>
    ClientData clientData<span class="hl opt">,</span>	<span class="hl com">/* Points to command's Command structure. */</span>
    Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>		<span class="hl com">/* Current interpreter. */</span>
    <span class="hl kwc">register</span> <span class="hl kwb">int</span> objc<span class="hl opt">,</span>		<span class="hl com">/* Number of arguments. */</span>
    Tcl_Obj <span class="hl opt">*</span><span class="hl kwb">const</span> objv<span class="hl opt">[])</span>	<span class="hl com">/* Argument objects. */</span>
<span class="hl opt">{</span>
    Command <span class="hl opt">*</span>cmdPtr <span class="hl opt">=</span> clientData<span class="hl opt">;</span>
    <span class="hl kwb">int</span> i<span class="hl opt">,</span> result<span class="hl opt">;</span>
    <span class="hl kwb">const char</span> <span class="hl opt">**</span>argv <span class="hl opt">= (</span><span class="hl kwb">const char</span> <span class="hl opt">**)</span>
	    <span class="hl kwd">TclStackAlloc</span><span class="hl opt">(</span>interp<span class="hl opt">, (</span><span class="hl kwb">unsigned</span><span class="hl opt">)(</span>objc <span class="hl opt">+</span> <span class="hl num">1</span><span class="hl opt">) *</span> <span class="hl kwa">sizeof</span><span class="hl opt">(</span><span class="hl kwb">char</span> <span class="hl opt">*));</span>

    <span class="hl kwa">for</span> <span class="hl opt">(</span>i <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>  i <span class="hl opt">&lt;</span> objc<span class="hl opt">;</span>  i<span class="hl opt">++) {</span>
	argv<span class="hl opt">[</span>i<span class="hl opt">] =</span> <span class="hl kwd">Tcl_GetString</span><span class="hl opt">(</span>objv<span class="hl opt">[</span>i<span class="hl opt">]);</span>
    <span class="hl opt">}</span>
    argv<span class="hl opt">[</span>objc<span class="hl opt">] =</span> <span class="hl num">0</span><span class="hl opt">;</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Invoke the command's string-based Tcl_CmdProc.</span>
<span class="hl com">     */</span>

    result <span class="hl opt">= (*</span>cmdPtr<span class="hl opt">-&gt;</span>proc<span class="hl opt">)(</span>cmdPtr<span class="hl opt">-&gt;</span>clientData<span class="hl opt">,</span> interp<span class="hl opt">,</span> objc<span class="hl opt">,</span> argv<span class="hl opt">);</span>

    <span class="hl kwd">TclStackFree</span><span class="hl opt">(</span>interp<span class="hl opt">, (</span><span class="hl kwb">void</span> <span class="hl opt">*)</span> argv<span class="hl opt">);</span>
    <span class="hl kwa">return</span> result<span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl com">/*</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> *</span>
<span class="hl com"> * TclInvokeObjectCommand --</span>
<span class="hl com"> *</span>
<span class="hl com"> *	&quot;Wrapper&quot; Tcl_CmdProc used to call an existing object-based</span>
<span class="hl com"> *	Tcl_ObjCmdProc if no string-based function exists for a command. A</span>
<span class="hl com"> *	pointer to this function is stored as the Tcl_CmdProc in a Command</span>
<span class="hl com"> *	structure. It simply turns around and calls the object Tcl_ObjCmdProc</span>
<span class="hl com"> *	in the Command structure.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Results:</span>
<span class="hl com"> *	A standard Tcl string result value.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Side effects:</span>
<span class="hl com"> *	Besides those side effects of the called Tcl_CmdProc,</span>
<span class="hl com"> *	TclInvokeStringCommand allocates and frees storage.</span>
<span class="hl com"> *</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> */</span>

<span class="hl kwb">int</span>
<span class="hl kwd">TclInvokeObjectCommand</span><span class="hl opt">(</span>
    ClientData clientData<span class="hl opt">,</span>	<span class="hl com">/* Points to command's Command structure. */</span>
    Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>		<span class="hl com">/* Current interpreter. */</span>
    <span class="hl kwb">int</span> argc<span class="hl opt">,</span>			<span class="hl com">/* Number of arguments. */</span>
    <span class="hl kwc">register</span> <span class="hl kwb">const char</span> <span class="hl opt">**</span>argv<span class="hl opt">)</span>	<span class="hl com">/* Argument strings. */</span>
<span class="hl opt">{</span>
    Command <span class="hl opt">*</span>cmdPtr <span class="hl opt">= (</span>Command <span class="hl opt">*)</span> clientData<span class="hl opt">;</span>
    Tcl_Obj <span class="hl opt">*</span>objPtr<span class="hl opt">;</span>
    <span class="hl kwb">int</span> i<span class="hl opt">,</span> length<span class="hl opt">,</span> result<span class="hl opt">;</span>
    Tcl_Obj <span class="hl opt">**</span>objv <span class="hl opt">= (</span>Tcl_Obj <span class="hl opt">**)</span>
	    <span class="hl kwd">TclStackAlloc</span><span class="hl opt">(</span>interp<span class="hl opt">, (</span><span class="hl kwb">unsigned</span><span class="hl opt">)(</span>argc <span class="hl opt">*</span> <span class="hl kwa">sizeof</span><span class="hl opt">(</span>Tcl_Obj <span class="hl opt">*)));</span>

    <span class="hl kwa">for</span> <span class="hl opt">(</span>i <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>  i <span class="hl opt">&lt;</span> argc<span class="hl opt">;</span>  i<span class="hl opt">++) {</span>
	length <span class="hl opt">=</span> <span class="hl kwd">strlen</span><span class="hl opt">(</span>argv<span class="hl opt">[</span>i<span class="hl opt">]);</span>
	<span class="hl kwd">TclNewStringObj</span><span class="hl opt">(</span>objPtr<span class="hl opt">,</span> argv<span class="hl opt">[</span>i<span class="hl opt">],</span> length<span class="hl opt">);</span>
	<span class="hl kwd">Tcl_IncrRefCount</span><span class="hl opt">(</span>objPtr<span class="hl opt">);</span>
	objv<span class="hl opt">[</span>i<span class="hl opt">] =</span> objPtr<span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Invoke the command's object-based Tcl_ObjCmdProc.</span>
<span class="hl com">     */</span>

    result <span class="hl opt">= (*</span>cmdPtr<span class="hl opt">-&gt;</span>objProc<span class="hl opt">)(</span>cmdPtr<span class="hl opt">-&gt;</span>objClientData<span class="hl opt">,</span> interp<span class="hl opt">,</span> argc<span class="hl opt">,</span> objv<span class="hl opt">);</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Move the interpreter's object result to the string result, then reset</span>
<span class="hl com">     * the object result.</span>
<span class="hl com">     */</span>

    <span class="hl opt">(</span><span class="hl kwb">void</span><span class="hl opt">)</span> <span class="hl kwd">Tcl_GetStringResult</span><span class="hl opt">(</span>interp<span class="hl opt">);</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Decrement the ref counts for the argument objects created above, then</span>
<span class="hl com">     * free the objv array if malloc'ed storage was used.</span>
<span class="hl com">     */</span>

    <span class="hl kwa">for</span> <span class="hl opt">(</span>i <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>  i <span class="hl opt">&lt;</span> argc<span class="hl opt">;</span>  i<span class="hl opt">++) {</span>
	objPtr <span class="hl opt">=</span> objv<span class="hl opt">[</span>i<span class="hl opt">];</span>
	<span class="hl kwd">Tcl_DecrRefCount</span><span class="hl opt">(</span>objPtr<span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwd">TclStackFree</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> objv<span class="hl opt">);</span>
    <span class="hl kwa">return</span> result<span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl com">/*</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> *</span>
<span class="hl com"> * TclRenameCommand --</span>
<span class="hl com"> *</span>
<span class="hl com"> *	Called to give an existing Tcl command a different name. Both the old</span>
<span class="hl com"> *	command name and the new command name can have &quot;::&quot; namespace</span>
<span class="hl com"> *	qualifiers. If the new command has a different namespace context, the</span>
<span class="hl com"> *	command will be moved to that namespace and will execute in the</span>
<span class="hl com"> *	context of that new namespace.</span>
<span class="hl com"> *</span>
<span class="hl com"> *	If the new command name is NULL or the null string, the command is</span>
<span class="hl com"> *	deleted.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Results:</span>
<span class="hl com"> *	Returns TCL_OK if successful, and TCL_ERROR if anything goes wrong.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Side effects:</span>
<span class="hl com"> *	If anything goes wrong, an error message is returned in the</span>
<span class="hl com"> *	interpreter's result object.</span>
<span class="hl com"> *</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> */</span>

<span class="hl kwb">int</span>
<span class="hl kwd">TclRenameCommand</span><span class="hl opt">(</span>
    Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>		<span class="hl com">/* Current interpreter. */</span>
    <span class="hl kwb">const char</span> <span class="hl opt">*</span>oldName<span class="hl opt">,</span>	<span class="hl com">/* Existing command name. */</span>
    <span class="hl kwb">const char</span> <span class="hl opt">*</span>newName<span class="hl opt">)</span>	<span class="hl com">/* New command name. */</span>
<span class="hl opt">{</span>
    Interp <span class="hl opt">*</span>iPtr <span class="hl opt">= (</span>Interp <span class="hl opt">*)</span> interp<span class="hl opt">;</span>
    <span class="hl kwb">const char</span> <span class="hl opt">*</span>newTail<span class="hl opt">;</span>
    Namespace <span class="hl opt">*</span>cmdNsPtr<span class="hl opt">, *</span>newNsPtr<span class="hl opt">, *</span>dummy1<span class="hl opt">, *</span>dummy2<span class="hl opt">;</span>
    Tcl_Command cmd<span class="hl opt">;</span>
    Command <span class="hl opt">*</span>cmdPtr<span class="hl opt">;</span>
    Tcl_HashEntry <span class="hl opt">*</span>hPtr<span class="hl opt">, *</span>oldHPtr<span class="hl opt">;</span>
    <span class="hl kwb">int</span> isNew<span class="hl opt">,</span> result<span class="hl opt">;</span>
    Tcl_Obj <span class="hl opt">*</span>oldFullName<span class="hl opt">;</span>
    Tcl_DString newFullName<span class="hl opt">;</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Find the existing command. An error is returned if cmdName can't be</span>
<span class="hl com">     * found.</span>
<span class="hl com">     */</span>

    cmd <span class="hl opt">=</span> <span class="hl kwd">Tcl_FindCommand</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> oldName<span class="hl opt">,</span> NULL<span class="hl opt">,</span> <span class="hl com">/*flags*/</span> <span class="hl num">0</span><span class="hl opt">);</span>
    cmdPtr <span class="hl opt">= (</span>Command <span class="hl opt">*)</span> cmd<span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>cmdPtr <span class="hl opt">==</span> NULL<span class="hl opt">) {</span>
	<span class="hl kwd">Tcl_AppendResult</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> <span class="hl str">&quot;can't &quot;</span><span class="hl opt">,</span>
		<span class="hl opt">((</span>newName <span class="hl opt">==</span> NULL<span class="hl opt">)||(*</span>newName <span class="hl opt">==</span> <span class="hl str">'\0'</span><span class="hl opt">))</span>? <span class="hl str">&quot;delete&quot;</span><span class="hl opt">:</span><span class="hl str">&quot;rename&quot;</span><span class="hl opt">,</span>
		<span class="hl str">&quot;</span> <span class="hl esc">\&quot;</span><span class="hl str">&quot;</span><span class="hl opt">,</span> oldName<span class="hl opt">,</span> <span class="hl str">&quot;</span><span class="hl esc">\&quot;</span><span class="hl str">: command doesn't exist&quot;</span><span class="hl opt">,</span> NULL<span class="hl opt">);</span>
	<span class="hl kwa">return</span> TCL_ERROR<span class="hl opt">;</span>
    <span class="hl opt">}</span>
    cmdNsPtr <span class="hl opt">=</span> cmdPtr<span class="hl opt">-&gt;</span>nsPtr<span class="hl opt">;</span>
    oldFullName <span class="hl opt">=</span> <span class="hl kwd">Tcl_NewObj</span><span class="hl opt">();</span>
    <span class="hl kwd">Tcl_IncrRefCount</span><span class="hl opt">(</span>oldFullName<span class="hl opt">);</span>
    <span class="hl kwd">Tcl_GetCommandFullName</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> cmd<span class="hl opt">,</span> oldFullName<span class="hl opt">);</span>

    <span class="hl com">/*</span>
<span class="hl com">     * If the new command name is NULL or empty, delete the command. Do this</span>
<span class="hl com">     * with Tcl_DeleteCommandFromToken, since we already have the command.</span>
<span class="hl com">     */</span>

    <span class="hl kwa">if</span> <span class="hl opt">((</span>newName <span class="hl opt">==</span> NULL<span class="hl opt">) || (*</span>newName <span class="hl opt">==</span> <span class="hl str">'\0'</span><span class="hl opt">)) {</span>
	<span class="hl kwd">Tcl_DeleteCommandFromToken</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> cmd<span class="hl opt">);</span>
	result <span class="hl opt">=</span> TCL_OK<span class="hl opt">;</span>
	<span class="hl kwa">goto</span> done<span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Make sure that the destination command does not already exist. The</span>
<span class="hl com">     * rename operation is like creating a command, so we should automatically</span>
<span class="hl com">     * create the containing namespaces just like Tcl_CreateCommand would.</span>
<span class="hl com">     */</span>

    <span class="hl kwd">TclGetNamespaceForQualName</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> newName<span class="hl opt">,</span> NULL<span class="hl opt">,</span>
	    TCL_CREATE_NS_IF_UNKNOWN<span class="hl opt">, &amp;</span>newNsPtr<span class="hl opt">, &amp;</span>dummy1<span class="hl opt">, &amp;</span>dummy2<span class="hl opt">, &amp;</span>newTail<span class="hl opt">);</span>

    <span class="hl kwa">if</span> <span class="hl opt">((</span>newNsPtr <span class="hl opt">==</span> NULL<span class="hl opt">) || (</span>newTail <span class="hl opt">==</span> NULL<span class="hl opt">)) {</span>
	<span class="hl kwd">Tcl_AppendResult</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> <span class="hl str">&quot;can't rename to</span> <span class="hl esc">\&quot;</span><span class="hl str">&quot;</span><span class="hl opt">,</span> newName<span class="hl opt">,</span>
		<span class="hl str">&quot;</span><span class="hl esc">\&quot;</span><span class="hl str">: bad command name&quot;</span><span class="hl opt">,</span> NULL<span class="hl opt">);</span>
	result <span class="hl opt">=</span> TCL_ERROR<span class="hl opt">;</span>
	<span class="hl kwa">goto</span> done<span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwd">Tcl_FindHashEntry</span><span class="hl opt">(&amp;</span>newNsPtr<span class="hl opt">-&gt;</span>cmdTable<span class="hl opt">,</span> newTail<span class="hl opt">) !=</span> NULL<span class="hl opt">) {</span>
	<span class="hl kwd">Tcl_AppendResult</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> <span class="hl str">&quot;can't rename to</span> <span class="hl esc">\&quot;</span><span class="hl str">&quot;</span><span class="hl opt">,</span> newName<span class="hl opt">,</span>
		 <span class="hl str">&quot;</span><span class="hl esc">\&quot;</span><span class="hl str">: command already exists&quot;</span><span class="hl opt">,</span> NULL<span class="hl opt">);</span>
	result <span class="hl opt">=</span> TCL_ERROR<span class="hl opt">;</span>
	<span class="hl kwa">goto</span> done<span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Warning: any changes done in the code here are likely to be needed in</span>
<span class="hl com">     * Tcl_HideCommand() code too (until the common parts are extracted out).</span>
<span class="hl com">     * - dl</span>
<span class="hl com">     */</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Put the command in the new namespace so we can check for an alias loop.</span>
<span class="hl com">     * Since we are adding a new command to a namespace, we must handle any</span>
<span class="hl com">     * shadowing of the global commands that this might create.</span>
<span class="hl com">     */</span>

    oldHPtr <span class="hl opt">=</span> cmdPtr<span class="hl opt">-&gt;</span>hPtr<span class="hl opt">;</span>
    hPtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_CreateHashEntry</span><span class="hl opt">(&amp;</span>newNsPtr<span class="hl opt">-&gt;</span>cmdTable<span class="hl opt">,</span> newTail<span class="hl opt">, &amp;</span>isNew<span class="hl opt">);</span>
    <span class="hl kwd">Tcl_SetHashValue</span><span class="hl opt">(</span>hPtr<span class="hl opt">,</span> cmdPtr<span class="hl opt">);</span>
    cmdPtr<span class="hl opt">-&gt;</span>hPtr <span class="hl opt">=</span> hPtr<span class="hl opt">;</span>
    cmdPtr<span class="hl opt">-&gt;</span>nsPtr <span class="hl opt">=</span> newNsPtr<span class="hl opt">;</span>
    <span class="hl kwd">TclResetShadowedCmdRefs</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> cmdPtr<span class="hl opt">);</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Now check for an alias loop. If we detect one, put everything back the</span>
<span class="hl com">     * way it was and report the error.</span>
<span class="hl com">     */</span>

    result <span class="hl opt">=</span> <span class="hl kwd">TclPreventAliasLoop</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> interp<span class="hl opt">, (</span>Tcl_Command<span class="hl opt">)</span> cmdPtr<span class="hl opt">);</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>result <span class="hl opt">!=</span> TCL_OK<span class="hl opt">) {</span>
	<span class="hl kwd">Tcl_DeleteHashEntry</span><span class="hl opt">(</span>cmdPtr<span class="hl opt">-&gt;</span>hPtr<span class="hl opt">);</span>
	cmdPtr<span class="hl opt">-&gt;</span>hPtr <span class="hl opt">=</span> oldHPtr<span class="hl opt">;</span>
	cmdPtr<span class="hl opt">-&gt;</span>nsPtr <span class="hl opt">=</span> cmdNsPtr<span class="hl opt">;</span>
	<span class="hl kwa">goto</span> done<span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * The list of command exported from the namespace might have changed.</span>
<span class="hl com">     * However, we do not need to recompute this just yet; next time we need</span>
<span class="hl com">     * the info will be soon enough. These might refer to the same variable,</span>
<span class="hl com">     * but that's no big deal.</span>
<span class="hl com">     */</span>

    <span class="hl kwd">TclInvalidateNsCmdLookup</span><span class="hl opt">(</span>cmdNsPtr<span class="hl opt">);</span>
    <span class="hl kwd">TclInvalidateNsCmdLookup</span><span class="hl opt">(</span>cmdPtr<span class="hl opt">-&gt;</span>nsPtr<span class="hl opt">);</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Script for rename traces can delete the command &quot;oldName&quot;. Therefore</span>
<span class="hl com">     * increment the reference count for cmdPtr so that it's Command structure</span>
<span class="hl com">     * is freed only towards the end of this function by calling</span>
<span class="hl com">     * TclCleanupCommand.</span>
<span class="hl com">     *</span>
<span class="hl com">     * The trace function needs to get a fully qualified name for old and new</span>
<span class="hl com">     * commands [Tcl bug #651271], or else there's no way for the trace</span>
<span class="hl com">     * function to get the namespace from which the old command is being</span>
<span class="hl com">     * renamed!</span>
<span class="hl com">     */</span>

    <span class="hl kwd">Tcl_DStringInit</span><span class="hl opt">(&amp;</span>newFullName<span class="hl opt">);</span>
    <span class="hl kwd">Tcl_DStringAppend</span><span class="hl opt">(&amp;</span>newFullName<span class="hl opt">,</span> newNsPtr<span class="hl opt">-&gt;</span>fullName<span class="hl opt">, -</span><span class="hl num">1</span><span class="hl opt">);</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>newNsPtr <span class="hl opt">!=</span> iPtr<span class="hl opt">-&gt;</span>globalNsPtr<span class="hl opt">) {</span>
	<span class="hl kwd">Tcl_DStringAppend</span><span class="hl opt">(&amp;</span>newFullName<span class="hl opt">,</span> <span class="hl str">&quot;::&quot;</span><span class="hl opt">,</span> <span class="hl num">2</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwd">Tcl_DStringAppend</span><span class="hl opt">(&amp;</span>newFullName<span class="hl opt">,</span> newTail<span class="hl opt">, -</span><span class="hl num">1</span><span class="hl opt">);</span>
    cmdPtr<span class="hl opt">-&gt;</span>refCount<span class="hl opt">++;</span>
    <span class="hl kwd">CallCommandTraces</span><span class="hl opt">(</span>iPtr<span class="hl opt">,</span> cmdPtr<span class="hl opt">,</span> <span class="hl kwd">Tcl_GetString</span><span class="hl opt">(</span>oldFullName<span class="hl opt">),</span>
	    <span class="hl kwd">Tcl_DStringValue</span><span class="hl opt">(&amp;</span>newFullName<span class="hl opt">),</span> TCL_TRACE_RENAME<span class="hl opt">);</span>
    <span class="hl kwd">Tcl_DStringFree</span><span class="hl opt">(&amp;</span>newFullName<span class="hl opt">);</span>

    <span class="hl com">/*</span>
<span class="hl com">     * The new command name is okay, so remove the command from its current</span>
<span class="hl com">     * namespace. This is like deleting the command, so bump the cmdEpoch to</span>
<span class="hl com">     * invalidate any cached references to the command.</span>
<span class="hl com">     */</span>

    <span class="hl kwd">Tcl_DeleteHashEntry</span><span class="hl opt">(</span>oldHPtr<span class="hl opt">);</span>
    cmdPtr<span class="hl opt">-&gt;</span>cmdEpoch<span class="hl opt">++;</span>

    <span class="hl com">/*</span>
<span class="hl com">     * If the command being renamed has a compile function, increment the</span>
<span class="hl com">     * interpreter's compileEpoch to invalidate its compiled code. This makes</span>
<span class="hl com">     * sure that we don't later try to execute old code compiled for the</span>
<span class="hl com">     * now-renamed command.</span>
<span class="hl com">     */</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>cmdPtr<span class="hl opt">-&gt;</span>compileProc <span class="hl opt">!=</span> NULL<span class="hl opt">) {</span>
	iPtr<span class="hl opt">-&gt;</span>compileEpoch<span class="hl opt">++;</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Now free the Command structure, if the &quot;oldName&quot; command has been</span>
<span class="hl com">     * deleted by invocation of rename traces.</span>
<span class="hl com">     */</span>

    <span class="hl kwd">TclCleanupCommandMacro</span><span class="hl opt">(</span>cmdPtr<span class="hl opt">);</span>
    result <span class="hl opt">=</span> TCL_OK<span class="hl opt">;</span>

  done<span class="hl opt">:</span>
    <span class="hl kwd">TclDecrRefCount</span><span class="hl opt">(</span>oldFullName<span class="hl opt">);</span>
    <span class="hl kwa">return</span> result<span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl com">/*</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> *</span>
<span class="hl com"> * Tcl_SetCommandInfo --</span>
<span class="hl com"> *</span>
<span class="hl com"> *	Modifies various information about a Tcl command. Note that this</span>
<span class="hl com"> *	function will not change a command's namespace; use TclRenameCommand</span>
<span class="hl com"> *	to do that. Also, the isNativeObjectProc member of *infoPtr is</span>
<span class="hl com"> *	ignored.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Results:</span>
<span class="hl com"> *	If cmdName exists in interp, then the information at *infoPtr is</span>
<span class="hl com"> *	stored with the command in place of the current information and 1 is</span>
<span class="hl com"> *	returned. If the command doesn't exist then 0 is returned.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Side effects:</span>
<span class="hl com"> *	None.</span>
<span class="hl com"> *</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> */</span>

<span class="hl kwb">int</span>
<span class="hl kwd">Tcl_SetCommandInfo</span><span class="hl opt">(</span>
    Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>		<span class="hl com">/* Interpreter in which to look for</span>
<span class="hl com">				 * command. */</span>
    <span class="hl kwb">const char</span> <span class="hl opt">*</span>cmdName<span class="hl opt">,</span>	<span class="hl com">/* Name of desired command. */</span>
    <span class="hl kwb">const</span> Tcl_CmdInfo <span class="hl opt">*</span>infoPtr<span class="hl opt">)</span>	<span class="hl com">/* Where to find information to store in the</span>
<span class="hl com">				 * command. */</span>
<span class="hl opt">{</span>
    Tcl_Command cmd<span class="hl opt">;</span>

    cmd <span class="hl opt">=</span> <span class="hl kwd">Tcl_FindCommand</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> cmdName<span class="hl opt">,</span> NULL<span class="hl opt">,</span> <span class="hl com">/*flags*/</span> <span class="hl num">0</span><span class="hl opt">);</span>
    <span class="hl kwa">return</span> <span class="hl kwd">Tcl_SetCommandInfoFromToken</span><span class="hl opt">(</span>cmd<span class="hl opt">,</span> infoPtr<span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl com">/*</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> *</span>
<span class="hl com"> * Tcl_SetCommandInfoFromToken --</span>
<span class="hl com"> *</span>
<span class="hl com"> *	Modifies various information about a Tcl command. Note that this</span>
<span class="hl com"> *	function will not change a command's namespace; use TclRenameCommand</span>
<span class="hl com"> *	to do that. Also, the isNativeObjectProc member of *infoPtr is</span>
<span class="hl com"> *	ignored.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Results:</span>
<span class="hl com"> *	If cmdName exists in interp, then the information at *infoPtr is</span>
<span class="hl com"> *	stored with the command in place of the current information and 1 is</span>
<span class="hl com"> *	returned. If the command doesn't exist then 0 is returned.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Side effects:</span>
<span class="hl com"> *	None.</span>
<span class="hl com"> *</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> */</span>

<span class="hl kwb">int</span>
<span class="hl kwd">Tcl_SetCommandInfoFromToken</span><span class="hl opt">(</span>
    Tcl_Command cmd<span class="hl opt">,</span>
    <span class="hl kwb">const</span> Tcl_CmdInfo <span class="hl opt">*</span>infoPtr<span class="hl opt">)</span>
<span class="hl opt">{</span>
    Command <span class="hl opt">*</span>cmdPtr<span class="hl opt">;</span>		<span class="hl com">/* Internal representation of the command */</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>cmd <span class="hl opt">== (</span>Tcl_Command<span class="hl opt">)</span> NULL<span class="hl opt">) {</span>
	<span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * The isNativeObjectProc and nsPtr members of *infoPtr are ignored.</span>
<span class="hl com">     */</span>

    cmdPtr <span class="hl opt">= (</span>Command <span class="hl opt">*)</span> cmd<span class="hl opt">;</span>
    cmdPtr<span class="hl opt">-&gt;</span>proc <span class="hl opt">=</span> infoPtr<span class="hl opt">-&gt;</span>proc<span class="hl opt">;</span>
    cmdPtr<span class="hl opt">-&gt;</span>clientData <span class="hl opt">=</span> infoPtr<span class="hl opt">-&gt;</span>clientData<span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>infoPtr<span class="hl opt">-&gt;</span>objProc <span class="hl opt">==</span> NULL<span class="hl opt">) {</span>
	cmdPtr<span class="hl opt">-&gt;</span>objProc <span class="hl opt">=</span> TclInvokeStringCommand<span class="hl opt">;</span>
	cmdPtr<span class="hl opt">-&gt;</span>objClientData <span class="hl opt">=</span> cmdPtr<span class="hl opt">;</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	cmdPtr<span class="hl opt">-&gt;</span>objProc <span class="hl opt">=</span> infoPtr<span class="hl opt">-&gt;</span>objProc<span class="hl opt">;</span>
	cmdPtr<span class="hl opt">-&gt;</span>objClientData <span class="hl opt">=</span> infoPtr<span class="hl opt">-&gt;</span>objClientData<span class="hl opt">;</span>
    <span class="hl opt">}</span>
    cmdPtr<span class="hl opt">-&gt;</span>deleteProc <span class="hl opt">=</span> infoPtr<span class="hl opt">-&gt;</span>deleteProc<span class="hl opt">;</span>
    cmdPtr<span class="hl opt">-&gt;</span>deleteData <span class="hl opt">=</span> infoPtr<span class="hl opt">-&gt;</span>deleteData<span class="hl opt">;</span>
    <span class="hl kwa">return</span> <span class="hl num">1</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl com">/*</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> *</span>
<span class="hl com"> * Tcl_GetCommandInfo --</span>
<span class="hl com"> *</span>
<span class="hl com"> *	Returns various information about a Tcl command.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Results:</span>
<span class="hl com"> *	If cmdName exists in interp, then *infoPtr is modified to hold</span>
<span class="hl com"> *	information about cmdName and 1 is returned. If the command doesn't</span>
<span class="hl com"> *	exist then 0 is returned and *infoPtr isn't modified.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Side effects:</span>
<span class="hl com"> *	None.</span>
<span class="hl com"> *</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> */</span>

<span class="hl kwb">int</span>
<span class="hl kwd">Tcl_GetCommandInfo</span><span class="hl opt">(</span>
    Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>		<span class="hl com">/* Interpreter in which to look for</span>
<span class="hl com">				 * command. */</span>
    <span class="hl kwb">const char</span> <span class="hl opt">*</span>cmdName<span class="hl opt">,</span>	<span class="hl com">/* Name of desired command. */</span>
    Tcl_CmdInfo <span class="hl opt">*</span>infoPtr<span class="hl opt">)</span>	<span class="hl com">/* Where to store information about</span>
<span class="hl com">				 * command. */</span>
<span class="hl opt">{</span>
    Tcl_Command cmd<span class="hl opt">;</span>

    cmd <span class="hl opt">=</span> <span class="hl kwd">Tcl_FindCommand</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> cmdName<span class="hl opt">,</span> NULL<span class="hl opt">,</span> <span class="hl com">/*flags*/</span> <span class="hl num">0</span><span class="hl opt">);</span>
    <span class="hl kwa">return</span> <span class="hl kwd">Tcl_GetCommandInfoFromToken</span><span class="hl opt">(</span>cmd<span class="hl opt">,</span> infoPtr<span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl com">/*</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> *</span>
<span class="hl com"> * Tcl_GetCommandInfoFromToken --</span>
<span class="hl com"> *</span>
<span class="hl com"> *	Returns various information about a Tcl command.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Results:</span>
<span class="hl com"> *	Copies information from the command identified by 'cmd' into a</span>
<span class="hl com"> *	caller-supplied structure and returns 1. If the 'cmd' is NULL, leaves</span>
<span class="hl com"> *	the structure untouched and returns 0.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Side effects:</span>
<span class="hl com"> *	None.</span>
<span class="hl com"> *</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> */</span>

<span class="hl kwb">int</span>
<span class="hl kwd">Tcl_GetCommandInfoFromToken</span><span class="hl opt">(</span>
    Tcl_Command cmd<span class="hl opt">,</span>
    Tcl_CmdInfo <span class="hl opt">*</span>infoPtr<span class="hl opt">)</span>
<span class="hl opt">{</span>
    Command <span class="hl opt">*</span>cmdPtr<span class="hl opt">;</span>		<span class="hl com">/* Internal representation of the command */</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>cmd <span class="hl opt">== (</span>Tcl_Command<span class="hl opt">)</span> NULL<span class="hl opt">) {</span>
	<span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Set isNativeObjectProc 1 if objProc was registered by a call to</span>
<span class="hl com">     * Tcl_CreateObjCommand. Otherwise set it to 0.</span>
<span class="hl com">     */</span>

    cmdPtr <span class="hl opt">= (</span>Command <span class="hl opt">*)</span> cmd<span class="hl opt">;</span>
    infoPtr<span class="hl opt">-&gt;</span>isNativeObjectProc <span class="hl opt">=</span>
	    <span class="hl opt">(</span>cmdPtr<span class="hl opt">-&gt;</span>objProc <span class="hl opt">!=</span> TclInvokeStringCommand<span class="hl opt">);</span>
    infoPtr<span class="hl opt">-&gt;</span>objProc <span class="hl opt">=</span> cmdPtr<span class="hl opt">-&gt;</span>objProc<span class="hl opt">;</span>
    infoPtr<span class="hl opt">-&gt;</span>objClientData <span class="hl opt">=</span> cmdPtr<span class="hl opt">-&gt;</span>objClientData<span class="hl opt">;</span>
    infoPtr<span class="hl opt">-&gt;</span>proc <span class="hl opt">=</span> cmdPtr<span class="hl opt">-&gt;</span>proc<span class="hl opt">;</span>
    infoPtr<span class="hl opt">-&gt;</span>clientData <span class="hl opt">=</span> cmdPtr<span class="hl opt">-&gt;</span>clientData<span class="hl opt">;</span>
    infoPtr<span class="hl opt">-&gt;</span>deleteProc <span class="hl opt">=</span> cmdPtr<span class="hl opt">-&gt;</span>deleteProc<span class="hl opt">;</span>
    infoPtr<span class="hl opt">-&gt;</span>deleteData <span class="hl opt">=</span> cmdPtr<span class="hl opt">-&gt;</span>deleteData<span class="hl opt">;</span>
    infoPtr<span class="hl opt">-&gt;</span>namespacePtr <span class="hl opt">= (</span>Tcl_Namespace <span class="hl opt">*)</span> cmdPtr<span class="hl opt">-&gt;</span>nsPtr<span class="hl opt">;</span>

    <span class="hl kwa">return</span> <span class="hl num">1</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl com">/*</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> *</span>
<span class="hl com"> * Tcl_GetCommandName --</span>
<span class="hl com"> *</span>
<span class="hl com"> *	Given a token returned by Tcl_CreateCommand, this function returns the</span>
<span class="hl com"> *	current name of the command (which may have changed due to renaming).</span>
<span class="hl com"> *</span>
<span class="hl com"> * Results:</span>
<span class="hl com"> *	The return value is the name of the given command.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Side effects:</span>
<span class="hl com"> *	None.</span>
<span class="hl com"> *</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> */</span>

<span class="hl kwb">const char</span> <span class="hl opt">*</span>
<span class="hl kwd">Tcl_GetCommandName</span><span class="hl opt">(</span>
    Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>		<span class="hl com">/* Interpreter containing the command. */</span>
    Tcl_Command command<span class="hl opt">)</span>	<span class="hl com">/* Token for command returned by a previous</span>
<span class="hl com">				 * call to Tcl_CreateCommand. The command must</span>
<span class="hl com">				 * not have been deleted. */</span>
<span class="hl opt">{</span>
    Command <span class="hl opt">*</span>cmdPtr <span class="hl opt">= (</span>Command <span class="hl opt">*)</span> command<span class="hl opt">;</span>

    <span class="hl kwa">if</span> <span class="hl opt">((</span>cmdPtr <span class="hl opt">==</span> NULL<span class="hl opt">) || (</span>cmdPtr<span class="hl opt">-&gt;</span>hPtr <span class="hl opt">==</span> NULL<span class="hl opt">)) {</span>
	<span class="hl com">/*</span>
<span class="hl com">	 * This should only happen if command was &quot;created&quot; after the</span>
<span class="hl com">	 * interpreter began to be deleted, so there isn't really any command.</span>
<span class="hl com">	 * Just return an empty string.</span>
<span class="hl com">	 */</span>

	<span class="hl kwa">return</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl kwa">return</span> <span class="hl kwd">Tcl_GetHashKey</span><span class="hl opt">(</span>cmdPtr<span class="hl opt">-&gt;</span>hPtr<span class="hl opt">-&gt;</span>tablePtr<span class="hl opt">,</span> cmdPtr<span class="hl opt">-&gt;</span>hPtr<span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl com">/*</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> *</span>
<span class="hl com"> * Tcl_GetCommandFullName --</span>
<span class="hl com"> *</span>
<span class="hl com"> *	Given a token returned by, e.g., Tcl_CreateCommand or Tcl_FindCommand,</span>
<span class="hl com"> *	this function appends to an object the command's full name, qualified</span>
<span class="hl com"> *	by a sequence of parent namespace names. The command's fully-qualified</span>
<span class="hl com"> *	name may have changed due to renaming.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Results:</span>
<span class="hl com"> *	None.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Side effects:</span>
<span class="hl com"> *	The command's fully-qualified name is appended to the string</span>
<span class="hl com"> *	representation of objPtr.</span>
<span class="hl com"> *</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> */</span>

<span class="hl kwb">void</span>
<span class="hl kwd">Tcl_GetCommandFullName</span><span class="hl opt">(</span>
    Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>		<span class="hl com">/* Interpreter containing the command. */</span>
    Tcl_Command command<span class="hl opt">,</span>	<span class="hl com">/* Token for command returned by a previous</span>
<span class="hl com">				 * call to Tcl_CreateCommand. The command must</span>
<span class="hl com">				 * not have been deleted. */</span>
    Tcl_Obj <span class="hl opt">*</span>objPtr<span class="hl opt">)</span>		<span class="hl com">/* Points to the object onto which the</span>
<span class="hl com">				 * command's full name is appended. */</span>

<span class="hl opt">{</span>
    Interp <span class="hl opt">*</span>iPtr <span class="hl opt">= (</span>Interp <span class="hl opt">*)</span> interp<span class="hl opt">;</span>
    <span class="hl kwc">register</span> Command <span class="hl opt">*</span>cmdPtr <span class="hl opt">= (</span>Command <span class="hl opt">*)</span> command<span class="hl opt">;</span>
    <span class="hl kwb">char</span> <span class="hl opt">*</span>name<span class="hl opt">;</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Add the full name of the containing namespace, followed by the &quot;::&quot;</span>
<span class="hl com">     * separator, and the command name.</span>
<span class="hl com">     */</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>cmdPtr <span class="hl opt">!=</span> NULL<span class="hl opt">) {</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span>cmdPtr<span class="hl opt">-&gt;</span>nsPtr <span class="hl opt">!=</span> NULL<span class="hl opt">) {</span>
	    <span class="hl kwd">Tcl_AppendToObj</span><span class="hl opt">(</span>objPtr<span class="hl opt">,</span> cmdPtr<span class="hl opt">-&gt;</span>nsPtr<span class="hl opt">-&gt;</span>fullName<span class="hl opt">, -</span><span class="hl num">1</span><span class="hl opt">);</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span>cmdPtr<span class="hl opt">-&gt;</span>nsPtr <span class="hl opt">!=</span> iPtr<span class="hl opt">-&gt;</span>globalNsPtr<span class="hl opt">) {</span>
		<span class="hl kwd">Tcl_AppendToObj</span><span class="hl opt">(</span>objPtr<span class="hl opt">,</span> <span class="hl str">&quot;::&quot;</span><span class="hl opt">,</span> <span class="hl num">2</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span>cmdPtr<span class="hl opt">-&gt;</span>hPtr <span class="hl opt">!=</span> NULL<span class="hl opt">) {</span>
	    name <span class="hl opt">=</span> <span class="hl kwd">Tcl_GetHashKey</span><span class="hl opt">(</span>cmdPtr<span class="hl opt">-&gt;</span>hPtr<span class="hl opt">-&gt;</span>tablePtr<span class="hl opt">,</span> cmdPtr<span class="hl opt">-&gt;</span>hPtr<span class="hl opt">);</span>
	    <span class="hl kwd">Tcl_AppendToObj</span><span class="hl opt">(</span>objPtr<span class="hl opt">,</span> name<span class="hl opt">, -</span><span class="hl num">1</span><span class="hl opt">);</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl com">/*</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> *</span>
<span class="hl com"> * Tcl_DeleteCommand --</span>
<span class="hl com"> *</span>
<span class="hl com"> *	Remove the given command from the given interpreter.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Results:</span>
<span class="hl com"> *	0 is returned if the command was deleted successfully. -1 is returned</span>
<span class="hl com"> *	if there didn't exist a command by that name.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Side effects:</span>
<span class="hl com"> *	cmdName will no longer be recognized as a valid command for interp.</span>
<span class="hl com"> *</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> */</span>

<span class="hl kwb">int</span>
<span class="hl kwd">Tcl_DeleteCommand</span><span class="hl opt">(</span>
    Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>		<span class="hl com">/* Token for command interpreter (returned by</span>
<span class="hl com">				 * a previous Tcl_CreateInterp call). */</span>
    <span class="hl kwb">const char</span> <span class="hl opt">*</span>cmdName<span class="hl opt">)</span>	<span class="hl com">/* Name of command to remove. */</span>
<span class="hl opt">{</span>
    Tcl_Command cmd<span class="hl opt">;</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Find the desired command and delete it.</span>
<span class="hl com">     */</span>

    cmd <span class="hl opt">=</span> <span class="hl kwd">Tcl_FindCommand</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> cmdName<span class="hl opt">,</span> NULL<span class="hl opt">,</span> <span class="hl com">/*flags*/</span> <span class="hl num">0</span><span class="hl opt">);</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>cmd <span class="hl opt">== (</span>Tcl_Command<span class="hl opt">)</span> NULL<span class="hl opt">) {</span>
	<span class="hl kwa">return</span> <span class="hl opt">-</span><span class="hl num">1</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">return</span> <span class="hl kwd">Tcl_DeleteCommandFromToken</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> cmd<span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl com">/*</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> *</span>
<span class="hl com"> * Tcl_DeleteCommandFromToken --</span>
<span class="hl com"> *</span>
<span class="hl com"> *	Removes the given command from the given interpreter. This function</span>
<span class="hl com"> *	resembles Tcl_DeleteCommand, but takes a Tcl_Command token instead of</span>
<span class="hl com"> *	a command name for efficiency.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Results:</span>
<span class="hl com"> *	0 is returned if the command was deleted successfully. -1 is returned</span>
<span class="hl com"> *	if there didn't exist a command by that name.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Side effects:</span>
<span class="hl com"> *	The command specified by &quot;cmd&quot; will no longer be recognized as a valid</span>
<span class="hl com"> *	command for &quot;interp&quot;.</span>
<span class="hl com"> *</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> */</span>

<span class="hl kwb">int</span>
<span class="hl kwd">Tcl_DeleteCommandFromToken</span><span class="hl opt">(</span>
    Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>		<span class="hl com">/* Token for command interpreter returned by a</span>
<span class="hl com">				 * previous call to Tcl_CreateInterp. */</span>
    Tcl_Command cmd<span class="hl opt">)</span>		<span class="hl com">/* Token for command to delete. */</span>
<span class="hl opt">{</span>
    Interp <span class="hl opt">*</span>iPtr <span class="hl opt">= (</span>Interp <span class="hl opt">*)</span> interp<span class="hl opt">;</span>
    Command <span class="hl opt">*</span>cmdPtr <span class="hl opt">= (</span>Command <span class="hl opt">*)</span> cmd<span class="hl opt">;</span>
    ImportRef <span class="hl opt">*</span>refPtr<span class="hl opt">, *</span>nextRefPtr<span class="hl opt">;</span>
    Tcl_Command importCmd<span class="hl opt">;</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Bump the command epoch counter. This will invalidate all cached</span>
<span class="hl com">     * references that point to this command.</span>
<span class="hl com">     */</span>

    cmdPtr<span class="hl opt">-&gt;</span>cmdEpoch<span class="hl opt">++;</span>

    <span class="hl com">/*</span>
<span class="hl com">     * The code here is tricky. We can't delete the hash table entry before</span>
<span class="hl com">     * invoking the deletion callback because there are cases where the</span>
<span class="hl com">     * deletion callback needs to invoke the command (e.g. object systems such</span>
<span class="hl com">     * as OTcl). However, this means that the callback could try to delete or</span>
<span class="hl com">     * rename the command. The deleted flag allows us to detect these cases</span>
<span class="hl com">     * and skip nested deletes.</span>
<span class="hl com">     */</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>cmdPtr<span class="hl opt">-&gt;</span>flags <span class="hl opt">&amp;</span> CMD_IS_DELETED<span class="hl opt">) {</span>
	<span class="hl com">/*</span>
<span class="hl com">	 * Another deletion is already in progress. Remove the hash table</span>
<span class="hl com">	 * entry now, but don't invoke a callback or free the command</span>
<span class="hl com">	 * structure. Take care to only remove the hash entry if it has not</span>
<span class="hl com">	 * already been removed; otherwise if we manage to hit this function</span>
<span class="hl com">	 * three times, everything goes up in smoke. [Bug 1220058]</span>
<span class="hl com">	 */</span>

	<span class="hl kwa">if</span> <span class="hl opt">(</span>cmdPtr<span class="hl opt">-&gt;</span>hPtr <span class="hl opt">!=</span> NULL<span class="hl opt">) {</span>
	    <span class="hl kwd">Tcl_DeleteHashEntry</span><span class="hl opt">(</span>cmdPtr<span class="hl opt">-&gt;</span>hPtr<span class="hl opt">);</span>
	    cmdPtr<span class="hl opt">-&gt;</span>hPtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
	<span class="hl opt">}</span>
	<span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * We must delete this command, even though both traces and delete procs</span>
<span class="hl com">     * may try to avoid this (renaming the command etc). Also traces and</span>
<span class="hl com">     * delete procs may try to delete the command themsevles. This flag</span>
<span class="hl com">     * declares that a delete is in progress and that recursive deletes should</span>
<span class="hl com">     * be ignored.</span>
<span class="hl com">     */</span>

    cmdPtr<span class="hl opt">-&gt;</span>flags <span class="hl opt">|=</span> CMD_IS_DELETED<span class="hl opt">;</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Call trace functions for the command being deleted. Then delete its</span>
<span class="hl com">     * traces.</span>
<span class="hl com">     */</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>cmdPtr<span class="hl opt">-&gt;</span>tracePtr <span class="hl opt">!=</span> NULL<span class="hl opt">) {</span>
	CommandTrace <span class="hl opt">*</span>tracePtr<span class="hl opt">;</span>
	<span class="hl kwd">CallCommandTraces</span><span class="hl opt">(</span>iPtr<span class="hl opt">,</span>cmdPtr<span class="hl opt">,</span>NULL<span class="hl opt">,</span>NULL<span class="hl opt">,</span>TCL_TRACE_DELETE<span class="hl opt">);</span>

	<span class="hl com">/*</span>
<span class="hl com">	 * Now delete these traces.</span>
<span class="hl com">	 */</span>

	tracePtr <span class="hl opt">=</span> cmdPtr<span class="hl opt">-&gt;</span>tracePtr<span class="hl opt">;</span>
	<span class="hl kwa">while</span> <span class="hl opt">(</span>tracePtr <span class="hl opt">!=</span> NULL<span class="hl opt">) {</span>
	    CommandTrace <span class="hl opt">*</span>nextPtr <span class="hl opt">=</span> tracePtr<span class="hl opt">-&gt;</span>nextPtr<span class="hl opt">;</span>
	    <span class="hl kwa">if</span> <span class="hl opt">((--</span>tracePtr<span class="hl opt">-&gt;</span>refCount<span class="hl opt">) &lt;=</span> <span class="hl num">0</span><span class="hl opt">) {</span>
		<span class="hl kwd">ckfree</span><span class="hl opt">((</span><span class="hl kwb">char</span> <span class="hl opt">*)</span> tracePtr<span class="hl opt">);</span>
	    <span class="hl opt">}</span>
	    tracePtr <span class="hl opt">=</span> nextPtr<span class="hl opt">;</span>
	<span class="hl opt">}</span>
	cmdPtr<span class="hl opt">-&gt;</span>tracePtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * The list of command exported from the namespace might have changed.</span>
<span class="hl com">     * However, we do not need to recompute this just yet; next time we need</span>
<span class="hl com">     * the info will be soon enough.</span>
<span class="hl com">     */</span>

    <span class="hl kwd">TclInvalidateNsCmdLookup</span><span class="hl opt">(</span>cmdPtr<span class="hl opt">-&gt;</span>nsPtr<span class="hl opt">);</span>

    <span class="hl com">/*</span>
<span class="hl com">     * If the command being deleted has a compile function, increment the</span>
<span class="hl com">     * interpreter's compileEpoch to invalidate its compiled code. This makes</span>
<span class="hl com">     * sure that we don't later try to execute old code compiled with</span>
<span class="hl com">     * command-specific (i.e., inline) bytecodes for the now-deleted command.</span>
<span class="hl com">     * This field is checked in Tcl_EvalObj and ObjInterpProc, and code whose</span>
<span class="hl com">     * compilation epoch doesn't match is recompiled.</span>
<span class="hl com">     */</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>cmdPtr<span class="hl opt">-&gt;</span>compileProc <span class="hl opt">!=</span> NULL<span class="hl opt">) {</span>
	iPtr<span class="hl opt">-&gt;</span>compileEpoch<span class="hl opt">++;</span>
    <span class="hl opt">}</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>cmdPtr<span class="hl opt">-&gt;</span>deleteProc <span class="hl opt">!=</span> NULL<span class="hl opt">) {</span>
	<span class="hl com">/*</span>
<span class="hl com">	 * Delete the command's client data. If this was an imported command</span>
<span class="hl com">	 * created when a command was imported into a namespace, this client</span>
<span class="hl com">	 * data will be a pointer to a ImportedCmdData structure describing</span>
<span class="hl com">	 * the &quot;real&quot; command that this imported command refers to.</span>
<span class="hl com">	 */</span>

	<span class="hl com">/*</span>
<span class="hl com">	 * If you are getting a crash during the call to deleteProc and</span>
<span class="hl com">	 * cmdPtr-&gt;deleteProc is a pointer to the function free(), the most</span>
<span class="hl com">	 * likely cause is that your extension allocated memory for the</span>
<span class="hl com">	 * clientData argument to Tcl_CreateObjCommand() with the ckalloc()</span>
<span class="hl com">	 * macro and you are now trying to deallocate this memory with free()</span>
<span class="hl com">	 * instead of ckfree(). You should pass a pointer to your own method</span>
<span class="hl com">	 * that calls ckfree().</span>
<span class="hl com">	 */</span>

	<span class="hl opt">(*</span>cmdPtr<span class="hl opt">-&gt;</span>deleteProc<span class="hl opt">)(</span>cmdPtr<span class="hl opt">-&gt;</span>deleteData<span class="hl opt">);</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * If this command was imported into other namespaces, then imported</span>
<span class="hl com">     * commands were created that refer back to this command. Delete these</span>
<span class="hl com">     * imported commands now.</span>
<span class="hl com">     */</span>

    <span class="hl kwa">for</span> <span class="hl opt">(</span>refPtr <span class="hl opt">=</span> cmdPtr<span class="hl opt">-&gt;</span>importRefPtr<span class="hl opt">;</span>  refPtr <span class="hl opt">!=</span> NULL<span class="hl opt">;</span>
	    refPtr <span class="hl opt">=</span> nextRefPtr<span class="hl opt">) {</span>
	nextRefPtr <span class="hl opt">=</span> refPtr<span class="hl opt">-&gt;</span>nextPtr<span class="hl opt">;</span>
	importCmd <span class="hl opt">= (</span>Tcl_Command<span class="hl opt">)</span> refPtr<span class="hl opt">-&gt;</span>importedCmdPtr<span class="hl opt">;</span>
	<span class="hl kwd">Tcl_DeleteCommandFromToken</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> importCmd<span class="hl opt">);</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Don't use hPtr to delete the hash entry here, because it's possible</span>
<span class="hl com">     * that the deletion callback renamed the command. Instead, use</span>
<span class="hl com">     * cmdPtr-&gt;hptr, and make sure that no-one else has already deleted the</span>
<span class="hl com">     * hash entry.</span>
<span class="hl com">     */</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>cmdPtr<span class="hl opt">-&gt;</span>hPtr <span class="hl opt">!=</span> NULL<span class="hl opt">) {</span>
	<span class="hl kwd">Tcl_DeleteHashEntry</span><span class="hl opt">(</span>cmdPtr<span class="hl opt">-&gt;</span>hPtr<span class="hl opt">);</span>
	cmdPtr<span class="hl opt">-&gt;</span>hPtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Mark the Command structure as no longer valid. This allows</span>
<span class="hl com">     * TclExecuteByteCode to recognize when a Command has logically been</span>
<span class="hl com">     * deleted and a pointer to this Command structure cached in a CmdName</span>
<span class="hl com">     * object is invalid. TclExecuteByteCode will look up the command again in</span>
<span class="hl com">     * the interpreter's command hashtable.</span>
<span class="hl com">     */</span>

    cmdPtr<span class="hl opt">-&gt;</span>objProc <span class="hl opt">=</span> NULL<span class="hl opt">;</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Now free the Command structure, unless there is another reference to it</span>
<span class="hl com">     * from a CmdName Tcl object in some ByteCode code sequence. In that case,</span>
<span class="hl com">     * delay the cleanup until all references are either discarded (when a</span>
<span class="hl com">     * ByteCode is freed) or replaced by a new reference (when a cached</span>
<span class="hl com">     * CmdName Command reference is found to be invalid and TclExecuteByteCode</span>
<span class="hl com">     * looks up the command in the command hashtable).</span>
<span class="hl com">     */</span>

    <span class="hl kwd">TclCleanupCommandMacro</span><span class="hl opt">(</span>cmdPtr<span class="hl opt">);</span>
    <span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwb">static char</span> <span class="hl opt">*</span>
<span class="hl kwd">CallCommandTraces</span><span class="hl opt">(</span>
    Interp <span class="hl opt">*</span>iPtr<span class="hl opt">,</span>		<span class="hl com">/* Interpreter containing command. */</span>
    Command <span class="hl opt">*</span>cmdPtr<span class="hl opt">,</span>		<span class="hl com">/* Command whose traces are to be invoked. */</span>
    <span class="hl kwb">const char</span> <span class="hl opt">*</span>oldName<span class="hl opt">,</span>	<span class="hl com">/* Command's old name, or NULL if we must get</span>
<span class="hl com">				 * the name from cmdPtr */</span>
    <span class="hl kwb">const char</span> <span class="hl opt">*</span>newName<span class="hl opt">,</span>	<span class="hl com">/* Command's new name, or NULL if the command</span>
<span class="hl com">				 * is not being renamed */</span>
    <span class="hl kwb">int</span> flags<span class="hl opt">)</span>			<span class="hl com">/* Flags indicating the type of traces to</span>
<span class="hl com">				 * trigger, either TCL_TRACE_DELETE or</span>
<span class="hl com">				 * TCL_TRACE_RENAME. */</span>
<span class="hl opt">{</span>
    <span class="hl kwc">register</span> CommandTrace <span class="hl opt">*</span>tracePtr<span class="hl opt">;</span>
    ActiveCommandTrace active<span class="hl opt">;</span>
    <span class="hl kwb">char</span> <span class="hl opt">*</span>result<span class="hl opt">;</span>
    Tcl_Obj <span class="hl opt">*</span>oldNamePtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
    Tcl_InterpState state <span class="hl opt">=</span> NULL<span class="hl opt">;</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>cmdPtr<span class="hl opt">-&gt;</span>flags <span class="hl opt">&amp;</span> CMD_TRACE_ACTIVE<span class="hl opt">) {</span>
	<span class="hl com">/*</span>
<span class="hl com">	 * While a rename trace is active, we will not process any more rename</span>
<span class="hl com">	 * traces; while a delete trace is active we will never reach here -</span>
<span class="hl com">	 * because Tcl_DeleteCommandFromToken checks for the condition</span>
<span class="hl com">	 * (cmdPtr-&gt;flags &amp; CMD_IS_DELETED) and returns immediately when a</span>
<span class="hl com">	 * command deletion is in progress. For all other traces, delete</span>
<span class="hl com">	 * traces will not be invoked but a call to TraceCommandProc will</span>
<span class="hl com">	 * ensure that tracePtr-&gt;clientData is freed whenever the command</span>
<span class="hl com">	 * &quot;oldName&quot; is deleted.</span>
<span class="hl com">	 */</span>

	<span class="hl kwa">if</span> <span class="hl opt">(</span>cmdPtr<span class="hl opt">-&gt;</span>flags <span class="hl opt">&amp;</span> TCL_TRACE_RENAME<span class="hl opt">) {</span>
	    flags <span class="hl opt">&amp;= ~</span>TCL_TRACE_RENAME<span class="hl opt">;</span>
	<span class="hl opt">}</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span>flags <span class="hl opt">==</span> <span class="hl num">0</span><span class="hl opt">) {</span>
	    <span class="hl kwa">return</span> NULL<span class="hl opt">;</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>
    cmdPtr<span class="hl opt">-&gt;</span>flags <span class="hl opt">|=</span> CMD_TRACE_ACTIVE<span class="hl opt">;</span>
    cmdPtr<span class="hl opt">-&gt;</span>refCount<span class="hl opt">++;</span>

    result <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
    active<span class="hl opt">.</span>nextPtr <span class="hl opt">=</span> iPtr<span class="hl opt">-&gt;</span>activeCmdTracePtr<span class="hl opt">;</span>
    active<span class="hl opt">.</span>reverseScan <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
    iPtr<span class="hl opt">-&gt;</span>activeCmdTracePtr <span class="hl opt">= &amp;</span>active<span class="hl opt">;</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>flags <span class="hl opt">&amp;</span> TCL_TRACE_DELETE<span class="hl opt">) {</span>
	flags <span class="hl opt">|=</span> TCL_TRACE_DESTROYED<span class="hl opt">;</span>
    <span class="hl opt">}</span>
    active<span class="hl opt">.</span>cmdPtr <span class="hl opt">=</span> cmdPtr<span class="hl opt">;</span>

    <span class="hl kwd">Tcl_Preserve</span><span class="hl opt">(</span>iPtr<span class="hl opt">);</span>

    <span class="hl kwa">for</span> <span class="hl opt">(</span>tracePtr <span class="hl opt">=</span> cmdPtr<span class="hl opt">-&gt;</span>tracePtr<span class="hl opt">;</span> tracePtr <span class="hl opt">!=</span> NULL<span class="hl opt">;</span>
	    tracePtr <span class="hl opt">=</span> active<span class="hl opt">.</span>nextTracePtr<span class="hl opt">) {</span>
	active<span class="hl opt">.</span>nextTracePtr <span class="hl opt">=</span> tracePtr<span class="hl opt">-&gt;</span>nextPtr<span class="hl opt">;</span>
	<span class="hl kwa">if</span> <span class="hl opt">(!(</span>tracePtr<span class="hl opt">-&gt;</span>flags <span class="hl opt">&amp;</span> flags<span class="hl opt">)) {</span>
	    <span class="hl kwa">continue</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
	cmdPtr<span class="hl opt">-&gt;</span>flags <span class="hl opt">|=</span> tracePtr<span class="hl opt">-&gt;</span>flags<span class="hl opt">;</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span>oldName <span class="hl opt">==</span> NULL<span class="hl opt">) {</span>
	    <span class="hl kwd">TclNewObj</span><span class="hl opt">(</span>oldNamePtr<span class="hl opt">);</span>
	    <span class="hl kwd">Tcl_IncrRefCount</span><span class="hl opt">(</span>oldNamePtr<span class="hl opt">);</span>
	    <span class="hl kwd">Tcl_GetCommandFullName</span><span class="hl opt">((</span>Tcl_Interp <span class="hl opt">*)</span> iPtr<span class="hl opt">,</span>
		    <span class="hl opt">(</span>Tcl_Command<span class="hl opt">)</span> cmdPtr<span class="hl opt">,</span> oldNamePtr<span class="hl opt">);</span>
	    oldName <span class="hl opt">=</span> <span class="hl kwd">TclGetString</span><span class="hl opt">(</span>oldNamePtr<span class="hl opt">);</span>
	<span class="hl opt">}</span>
	tracePtr<span class="hl opt">-&gt;</span>refCount<span class="hl opt">++;</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span>state <span class="hl opt">==</span> NULL<span class="hl opt">) {</span>
	    state <span class="hl opt">=</span> <span class="hl kwd">Tcl_SaveInterpState</span><span class="hl opt">((</span>Tcl_Interp <span class="hl opt">*)</span> iPtr<span class="hl opt">,</span> TCL_OK<span class="hl opt">);</span>
	<span class="hl opt">}</span>
	<span class="hl opt">(*</span>tracePtr<span class="hl opt">-&gt;</span>traceProc<span class="hl opt">)(</span>tracePtr<span class="hl opt">-&gt;</span>clientData<span class="hl opt">,</span>
		<span class="hl opt">(</span>Tcl_Interp <span class="hl opt">*)</span> iPtr<span class="hl opt">,</span> oldName<span class="hl opt">,</span> newName<span class="hl opt">,</span> flags<span class="hl opt">);</span>
	cmdPtr<span class="hl opt">-&gt;</span>flags <span class="hl opt">&amp;= ~</span>tracePtr<span class="hl opt">-&gt;</span>flags<span class="hl opt">;</span>
	<span class="hl kwa">if</span> <span class="hl opt">((--</span>tracePtr<span class="hl opt">-&gt;</span>refCount<span class="hl opt">) &lt;=</span> <span class="hl num">0</span><span class="hl opt">) {</span>
	    <span class="hl kwd">ckfree</span><span class="hl opt">((</span><span class="hl kwb">char</span> <span class="hl opt">*)</span> tracePtr<span class="hl opt">);</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>state<span class="hl opt">) {</span>
	<span class="hl kwd">Tcl_RestoreInterpState</span><span class="hl opt">((</span>Tcl_Interp <span class="hl opt">*)</span> iPtr<span class="hl opt">,</span> state<span class="hl opt">);</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * If a new object was created to hold the full oldName, free it now.</span>
<span class="hl com">     */</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>oldNamePtr <span class="hl opt">!=</span> NULL<span class="hl opt">) {</span>
	<span class="hl kwd">TclDecrRefCount</span><span class="hl opt">(</span>oldNamePtr<span class="hl opt">);</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Restore the variable's flags, remove the record of our active traces,</span>
<span class="hl com">     * and then return.</span>
<span class="hl com">     */</span>

    cmdPtr<span class="hl opt">-&gt;</span>flags <span class="hl opt">&amp;= ~</span>CMD_TRACE_ACTIVE<span class="hl opt">;</span>
    cmdPtr<span class="hl opt">-&gt;</span>refCount<span class="hl opt">--;</span>
    iPtr<span class="hl opt">-&gt;</span>activeCmdTracePtr <span class="hl opt">=</span> active<span class="hl opt">.</span>nextPtr<span class="hl opt">;</span>
    <span class="hl kwd">Tcl_Release</span><span class="hl opt">(</span>iPtr<span class="hl opt">);</span>
    <span class="hl kwa">return</span> result<span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl com">/*</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> *</span>
<span class="hl com"> * GetCommandSource --</span>
<span class="hl com"> *</span>
<span class="hl com"> *	This function returns a Tcl_Obj with the full source string for the</span>
<span class="hl com"> *	command. This insures that traces get a correct NUL-terminated command</span>
<span class="hl com"> *	string.</span>
<span class="hl com"> *</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> */</span>

<span class="hl kwb">static</span> Tcl_Obj <span class="hl opt">*</span>
<span class="hl kwd">GetCommandSource</span><span class="hl opt">(</span>
    Interp <span class="hl opt">*</span>iPtr<span class="hl opt">,</span>
    <span class="hl kwb">const char</span> <span class="hl opt">*</span>command<span class="hl opt">,</span>
    <span class="hl kwb">int</span> numChars<span class="hl opt">,</span>
    <span class="hl kwb">int</span> objc<span class="hl opt">,</span>
    Tcl_Obj <span class="hl opt">*</span><span class="hl kwb">const</span> objv<span class="hl opt">[])</span>
<span class="hl opt">{</span>
    <span class="hl kwa">if</span> <span class="hl opt">(!</span>command<span class="hl opt">) {</span>
	<span class="hl kwa">return</span> <span class="hl kwd">Tcl_NewListObj</span><span class="hl opt">(</span>objc<span class="hl opt">,</span> objv<span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>command <span class="hl opt">== (</span><span class="hl kwb">char</span> <span class="hl opt">*) -</span><span class="hl num">1</span><span class="hl opt">) {</span>
	command <span class="hl opt">=</span> <span class="hl kwd">TclGetSrcInfoForCmd</span><span class="hl opt">(</span>iPtr<span class="hl opt">, &amp;</span>numChars<span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">return</span> <span class="hl kwd">Tcl_NewStringObj</span><span class="hl opt">(</span>command<span class="hl opt">,</span> numChars<span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl com">/*</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> *</span>
<span class="hl com"> * TclCleanupCommand --</span>
<span class="hl com"> *</span>
<span class="hl com"> *	This function frees up a Command structure unless it is still</span>
<span class="hl com"> *	referenced from an interpreter's command hashtable or from a CmdName</span>
<span class="hl com"> *	Tcl object representing the name of a command in a ByteCode</span>
<span class="hl com"> *	instruction sequence.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Results:</span>
<span class="hl com"> *	None.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Side effects:</span>
<span class="hl com"> *	Memory gets freed unless a reference to the Command structure still</span>
<span class="hl com"> *	exists. In that case the cleanup is delayed until the command is</span>
<span class="hl com"> *	deleted or when the last ByteCode referring to it is freed.</span>
<span class="hl com"> *</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> */</span>

<span class="hl kwb">void</span>
<span class="hl kwd">TclCleanupCommand</span><span class="hl opt">(</span>
    <span class="hl kwc">register</span> Command <span class="hl opt">*</span>cmdPtr<span class="hl opt">)</span>	<span class="hl com">/* Points to the Command structure to</span>
<span class="hl com">				 * be freed. */</span>
<span class="hl opt">{</span>
    cmdPtr<span class="hl opt">-&gt;</span>refCount<span class="hl opt">--;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>cmdPtr<span class="hl opt">-&gt;</span>refCount <span class="hl opt">&lt;=</span> <span class="hl num">0</span><span class="hl opt">) {</span>
	<span class="hl kwd">ckfree</span><span class="hl opt">((</span><span class="hl kwb">char</span> <span class="hl opt">*)</span> cmdPtr<span class="hl opt">);</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl com">/*</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> *</span>
<span class="hl com"> * Tcl_CreateMathFunc --</span>
<span class="hl com"> *</span>
<span class="hl com"> *	Creates a new math function for expressions in a given interpreter.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Results:</span>
<span class="hl com"> *	None.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Side effects:</span>
<span class="hl com"> *	The Tcl function defined by &quot;name&quot; is created or redefined. If the</span>
<span class="hl com"> *	function already exists then its definition is replaced; this includes</span>
<span class="hl com"> *	the builtin functions. Redefining a builtin function forces all</span>
<span class="hl com"> *	existing code to be invalidated since that code may be compiled using</span>
<span class="hl com"> *	an instruction specific to the replaced function. In addition,</span>
<span class="hl com"> *	redefioning a non-builtin function will force existing code to be</span>
<span class="hl com"> *	invalidated if the number of arguments has changed.</span>
<span class="hl com"> *</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> */</span>

<span class="hl kwb">void</span>
<span class="hl kwd">Tcl_CreateMathFunc</span><span class="hl opt">(</span>
    Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>		<span class="hl com">/* Interpreter in which function is to be</span>
<span class="hl com">				 * available. */</span>
    <span class="hl kwb">const char</span> <span class="hl opt">*</span>name<span class="hl opt">,</span>		<span class="hl com">/* Name of function (e.g. &quot;sin&quot;). */</span>
    <span class="hl kwb">int</span> numArgs<span class="hl opt">,</span>		<span class="hl com">/* Nnumber of arguments required by</span>
<span class="hl com">				 * function. */</span>
    Tcl_ValueType <span class="hl opt">*</span>argTypes<span class="hl opt">,</span>	<span class="hl com">/* Array of types acceptable for each</span>
<span class="hl com">				 * argument. */</span>
    Tcl_MathProc <span class="hl opt">*</span>proc<span class="hl opt">,</span>		<span class="hl com">/* C function that implements the math</span>
<span class="hl com">				 * function. */</span>
    ClientData clientData<span class="hl opt">)</span>	<span class="hl com">/* Additional value to pass to the</span>
<span class="hl com">				 * function. */</span>
<span class="hl opt">{</span>
    Tcl_DString bigName<span class="hl opt">;</span>
    OldMathFuncData <span class="hl opt">*</span>data <span class="hl opt">= (</span>OldMathFuncData <span class="hl opt">*)</span>
	    <span class="hl kwd">ckalloc</span><span class="hl opt">(</span><span class="hl kwa">sizeof</span><span class="hl opt">(</span>OldMathFuncData<span class="hl opt">));</span>

    data<span class="hl opt">-&gt;</span>proc <span class="hl opt">=</span> proc<span class="hl opt">;</span>
    data<span class="hl opt">-&gt;</span>numArgs <span class="hl opt">=</span> numArgs<span class="hl opt">;</span>
    data<span class="hl opt">-&gt;</span>argTypes <span class="hl opt">= (</span>Tcl_ValueType <span class="hl opt">*)</span>
	    <span class="hl kwd">ckalloc</span><span class="hl opt">(</span>numArgs <span class="hl opt">*</span> <span class="hl kwa">sizeof</span><span class="hl opt">(</span>Tcl_ValueType<span class="hl opt">));</span>
    <span class="hl kwd">memcpy</span><span class="hl opt">(</span>data<span class="hl opt">-&gt;</span>argTypes<span class="hl opt">,</span> argTypes<span class="hl opt">,</span> numArgs <span class="hl opt">*</span> <span class="hl kwa">sizeof</span><span class="hl opt">(</span>Tcl_ValueType<span class="hl opt">));</span>
    data<span class="hl opt">-&gt;</span>clientData <span class="hl opt">=</span> clientData<span class="hl opt">;</span>

    <span class="hl kwd">Tcl_DStringInit</span><span class="hl opt">(&amp;</span>bigName<span class="hl opt">);</span>
    <span class="hl kwd">Tcl_DStringAppend</span><span class="hl opt">(&amp;</span>bigName<span class="hl opt">,</span> <span class="hl str">&quot;::tcl::mathfunc::&quot;</span><span class="hl opt">, -</span><span class="hl num">1</span><span class="hl opt">);</span>
    <span class="hl kwd">Tcl_DStringAppend</span><span class="hl opt">(&amp;</span>bigName<span class="hl opt">,</span> name<span class="hl opt">, -</span><span class="hl num">1</span><span class="hl opt">);</span>

    <span class="hl kwd">Tcl_CreateObjCommand</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> <span class="hl kwd">Tcl_DStringValue</span><span class="hl opt">(&amp;</span>bigName<span class="hl opt">),</span>
	    OldMathFuncProc<span class="hl opt">,</span> data<span class="hl opt">,</span> OldMathFuncDeleteProc<span class="hl opt">);</span>
    <span class="hl kwd">Tcl_DStringFree</span><span class="hl opt">(&amp;</span>bigName<span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl com">/*</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> *</span>
<span class="hl com"> * OldMathFuncProc --</span>
<span class="hl com"> *</span>
<span class="hl com"> *	Dispatch to a math function created with Tcl_CreateMathFunc</span>
<span class="hl com"> *</span>
<span class="hl com"> * Results:</span>
<span class="hl com"> *	Returns a standard Tcl result.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Side effects:</span>
<span class="hl com"> *	Whatever the math function does.</span>
<span class="hl com"> *</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> */</span>

<span class="hl kwb">static int</span>
<span class="hl kwd">OldMathFuncProc</span><span class="hl opt">(</span>
    ClientData clientData<span class="hl opt">,</span>	<span class="hl com">/* Ponter to OldMathFuncData describing the</span>
<span class="hl com">				 * function being called */</span>
    Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>		<span class="hl com">/* Tcl interpreter */</span>
    <span class="hl kwb">int</span> objc<span class="hl opt">,</span>			<span class="hl com">/* Actual parameter count */</span>
    Tcl_Obj <span class="hl opt">*</span><span class="hl kwb">const</span> <span class="hl opt">*</span>objv<span class="hl opt">)</span>	<span class="hl com">/* Parameter vector */</span>
<span class="hl opt">{</span>
    Tcl_Obj <span class="hl opt">*</span>valuePtr<span class="hl opt">;</span>
    OldMathFuncData <span class="hl opt">*</span>dataPtr <span class="hl opt">=</span> clientData<span class="hl opt">;</span>
    Tcl_Value funcResult<span class="hl opt">, *</span>args<span class="hl opt">;</span>
    <span class="hl kwb">int</span> result<span class="hl opt">;</span>
    <span class="hl kwb">int</span> j<span class="hl opt">,</span> k<span class="hl opt">;</span>
    <span class="hl kwb">double</span> d<span class="hl opt">;</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Check argument count.</span>
<span class="hl com">     */</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>objc <span class="hl opt">!=</span> dataPtr<span class="hl opt">-&gt;</span>numArgs <span class="hl opt">+</span> <span class="hl num">1</span><span class="hl opt">) {</span>
	<span class="hl kwd">MathFuncWrongNumArgs</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> dataPtr<span class="hl opt">-&gt;</span>numArgs<span class="hl opt">+</span><span class="hl num">1</span><span class="hl opt">,</span> objc<span class="hl opt">,</span> objv<span class="hl opt">);</span>
	<span class="hl kwa">return</span> TCL_ERROR<span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Convert arguments from Tcl_Obj's to Tcl_Value's.</span>
<span class="hl com">     */</span>

    args <span class="hl opt">= (</span>Tcl_Value <span class="hl opt">*)</span> <span class="hl kwd">ckalloc</span><span class="hl opt">(</span>dataPtr<span class="hl opt">-&gt;</span>numArgs <span class="hl opt">*</span> <span class="hl kwa">sizeof</span><span class="hl opt">(</span>Tcl_Value<span class="hl opt">));</span>
    <span class="hl kwa">for</span> <span class="hl opt">(</span>j <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">,</span> k <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span> j <span class="hl opt">&lt;</span> objc<span class="hl opt">; ++</span>j<span class="hl opt">, ++</span>k<span class="hl opt">) {</span>

	<span class="hl com">/* TODO: Convert to TclGetNumberFromObj() ? */</span>
	valuePtr <span class="hl opt">=</span> objv<span class="hl opt">[</span>j<span class="hl opt">];</span>
	result <span class="hl opt">=</span> <span class="hl kwd">Tcl_GetDoubleFromObj</span><span class="hl opt">(</span>NULL<span class="hl opt">,</span> valuePtr<span class="hl opt">, &amp;</span>d<span class="hl opt">);</span>
<span class="hl ppc">#ifdef ACCEPT_NAN</span>
	<span class="hl kwa">if</span> <span class="hl opt">((</span>result <span class="hl opt">!=</span> TCL_OK<span class="hl opt">) &amp;&amp; (</span>valuePtr<span class="hl opt">-&gt;</span>typePtr <span class="hl opt">== &amp;</span>tclDoubleType<span class="hl opt">)) {</span>
	    d <span class="hl opt">=</span> valuePtr<span class="hl opt">-&gt;</span>internalRep<span class="hl opt">.</span>doubleValue<span class="hl opt">;</span>
	    result <span class="hl opt">=</span> TCL_OK<span class="hl opt">;</span>
	<span class="hl opt">}</span>
<span class="hl ppc">#endif</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span>result <span class="hl opt">!=</span> TCL_OK<span class="hl opt">) {</span>
	    <span class="hl com">/*</span>
<span class="hl com">	     * We have a non-numeric argument.</span>
<span class="hl com">	     */</span>

	    <span class="hl kwd">Tcl_SetObjResult</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> <span class="hl kwd">Tcl_NewStringObj</span><span class="hl opt">(</span>
		    <span class="hl str">&quot;argument to math function didn't have numeric value&quot;</span><span class="hl opt">,-</span><span class="hl num">1</span><span class="hl opt">));</span>
	    <span class="hl kwd">TclCheckBadOctal</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> <span class="hl kwd">Tcl_GetString</span><span class="hl opt">(</span>valuePtr<span class="hl opt">));</span>
	    <span class="hl kwd">ckfree</span><span class="hl opt">((</span><span class="hl kwb">char</span> <span class="hl opt">*)</span>args<span class="hl opt">);</span>
	    <span class="hl kwa">return</span> TCL_ERROR<span class="hl opt">;</span>
	<span class="hl opt">}</span>

	<span class="hl com">/*</span>
<span class="hl com">	 * Copy the object's numeric value to the argument record, converting</span>
<span class="hl com">	 * it if necessary.</span>
<span class="hl com">	 *</span>
<span class="hl com">	 * NOTE: no bignum support; use the new mathfunc interface for that.</span>
<span class="hl com">	 */</span>

	args<span class="hl opt">[</span>k<span class="hl opt">].</span>type <span class="hl opt">=</span> dataPtr<span class="hl opt">-&gt;</span>argTypes<span class="hl opt">[</span>k<span class="hl opt">];</span>
	<span class="hl kwa">switch</span> <span class="hl opt">(</span>args<span class="hl opt">[</span>k<span class="hl opt">].</span>type<span class="hl opt">) {</span>
	<span class="hl kwa">case</span> TCL_EITHER<span class="hl opt">:</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwd">Tcl_GetLongFromObj</span><span class="hl opt">(</span>NULL<span class="hl opt">,</span> valuePtr<span class="hl opt">, &amp;(</span>args<span class="hl opt">[</span>k<span class="hl opt">].</span>intValue<span class="hl opt">))</span>
		    <span class="hl opt">==</span> TCL_OK<span class="hl opt">) {</span>
		args<span class="hl opt">[</span>k<span class="hl opt">].</span>type <span class="hl opt">=</span> TCL_INT<span class="hl opt">;</span>
		<span class="hl kwa">break</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwd">Tcl_GetWideIntFromObj</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> valuePtr<span class="hl opt">, &amp;(</span>args<span class="hl opt">[</span>k<span class="hl opt">].</span>wideValue<span class="hl opt">))</span>
		    <span class="hl opt">==</span> TCL_OK<span class="hl opt">) {</span>
		args<span class="hl opt">[</span>k<span class="hl opt">].</span>type <span class="hl opt">=</span> TCL_WIDE_INT<span class="hl opt">;</span>
		<span class="hl kwa">break</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	    args<span class="hl opt">[</span>k<span class="hl opt">].</span>type <span class="hl opt">=</span> TCL_DOUBLE<span class="hl opt">;</span>
	    <span class="hl com">/* FALLTHROUGH */</span>

	<span class="hl kwa">case</span> TCL_DOUBLE<span class="hl opt">:</span>
	    args<span class="hl opt">[</span>k<span class="hl opt">].</span>doubleValue <span class="hl opt">=</span> d<span class="hl opt">;</span>
	    <span class="hl kwa">break</span><span class="hl opt">;</span>
	<span class="hl kwa">case</span> TCL_INT<span class="hl opt">:</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwd">ExprIntFunc</span><span class="hl opt">(</span>NULL<span class="hl opt">,</span> interp<span class="hl opt">,</span> <span class="hl num">2</span><span class="hl opt">, &amp;(</span>objv<span class="hl opt">[</span>j<span class="hl opt">-</span><span class="hl num">1</span><span class="hl opt">])) !=</span> TCL_OK<span class="hl opt">) {</span>
		<span class="hl kwd">ckfree</span><span class="hl opt">((</span><span class="hl kwb">char</span> <span class="hl opt">*)</span>args<span class="hl opt">);</span>
		<span class="hl kwa">return</span> TCL_ERROR<span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	    valuePtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_GetObjResult</span><span class="hl opt">(</span>interp<span class="hl opt">);</span>
	    <span class="hl kwd">Tcl_GetLongFromObj</span><span class="hl opt">(</span>NULL<span class="hl opt">,</span> valuePtr<span class="hl opt">, &amp;(</span>args<span class="hl opt">[</span>k<span class="hl opt">].</span>intValue<span class="hl opt">));</span>
	    <span class="hl kwd">Tcl_ResetResult</span><span class="hl opt">(</span>interp<span class="hl opt">);</span>
	    <span class="hl kwa">break</span><span class="hl opt">;</span>
	<span class="hl kwa">case</span> TCL_WIDE_INT<span class="hl opt">:</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwd">ExprWideFunc</span><span class="hl opt">(</span>NULL<span class="hl opt">,</span> interp<span class="hl opt">,</span> <span class="hl num">2</span><span class="hl opt">, &amp;(</span>objv<span class="hl opt">[</span>j<span class="hl opt">-</span><span class="hl num">1</span><span class="hl opt">])) !=</span> TCL_OK<span class="hl opt">) {</span>
		<span class="hl kwd">ckfree</span><span class="hl opt">((</span><span class="hl kwb">char</span> <span class="hl opt">*)</span>args<span class="hl opt">);</span>
		<span class="hl kwa">return</span> TCL_ERROR<span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	    valuePtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_GetObjResult</span><span class="hl opt">(</span>interp<span class="hl opt">);</span>
	    <span class="hl kwd">Tcl_GetWideIntFromObj</span><span class="hl opt">(</span>NULL<span class="hl opt">,</span> valuePtr<span class="hl opt">, &amp;(</span>args<span class="hl opt">[</span>k<span class="hl opt">].</span>wideValue<span class="hl opt">));</span>
	    <span class="hl kwd">Tcl_ResetResult</span><span class="hl opt">(</span>interp<span class="hl opt">);</span>
	    <span class="hl kwa">break</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Call the function.</span>
<span class="hl com">     */</span>

    errno <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
    result <span class="hl opt">= (*</span>dataPtr<span class="hl opt">-&gt;</span>proc<span class="hl opt">)(</span>dataPtr<span class="hl opt">-&gt;</span>clientData<span class="hl opt">,</span> interp<span class="hl opt">,</span> args<span class="hl opt">, &amp;</span>funcResult<span class="hl opt">);</span>
    <span class="hl kwd">ckfree</span><span class="hl opt">((</span><span class="hl kwb">char</span> <span class="hl opt">*)</span>args<span class="hl opt">);</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>result <span class="hl opt">!=</span> TCL_OK<span class="hl opt">) {</span>
	<span class="hl kwa">return</span> result<span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Return the result of the call.</span>
<span class="hl com">     */</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>funcResult<span class="hl opt">.</span>type <span class="hl opt">==</span> TCL_INT<span class="hl opt">) {</span>
	<span class="hl kwd">TclNewLongObj</span><span class="hl opt">(</span>valuePtr<span class="hl opt">,</span> funcResult<span class="hl opt">.</span>intValue<span class="hl opt">);</span>
    <span class="hl opt">}</span> <span class="hl kwa">else if</span> <span class="hl opt">(</span>funcResult<span class="hl opt">.</span>type <span class="hl opt">==</span> TCL_WIDE_INT<span class="hl opt">) {</span>
	valuePtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_NewWideIntObj</span><span class="hl opt">(</span>funcResult<span class="hl opt">.</span>wideValue<span class="hl opt">);</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl kwa">return</span> <span class="hl kwd">CheckDoubleResult</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> funcResult<span class="hl opt">.</span>doubleValue<span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwd">Tcl_SetObjResult</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> valuePtr<span class="hl opt">);</span>
    <span class="hl kwa">return</span> TCL_OK<span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl com">/*</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> *</span>
<span class="hl com"> * OldMathFuncDeleteProc --</span>
<span class="hl com"> *</span>
<span class="hl com"> *	Cleans up after deleting a math function registered with</span>
<span class="hl com"> *	Tcl_CreateMathFunc</span>
<span class="hl com"> *</span>
<span class="hl com"> * Results:</span>
<span class="hl com"> *	None.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Side effects:</span>
<span class="hl com"> *	Frees allocated memory.</span>
<span class="hl com"> *</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> */</span>

<span class="hl kwb">static void</span>
<span class="hl kwd">OldMathFuncDeleteProc</span><span class="hl opt">(</span>
     ClientData clientData<span class="hl opt">)</span>
<span class="hl opt">{</span>
    OldMathFuncData <span class="hl opt">*</span>dataPtr <span class="hl opt">=</span> clientData<span class="hl opt">;</span>

    <span class="hl kwd">ckfree</span><span class="hl opt">((</span><span class="hl kwb">void</span> <span class="hl opt">*)</span> dataPtr<span class="hl opt">-&gt;</span>argTypes<span class="hl opt">);</span>
    <span class="hl kwd">ckfree</span><span class="hl opt">((</span><span class="hl kwb">void</span> <span class="hl opt">*)</span> dataPtr<span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl com">/*</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> *</span>
<span class="hl com"> * Tcl_GetMathFuncInfo --</span>
<span class="hl com"> *</span>
<span class="hl com"> *	Discovers how a particular math function was created in a given</span>
<span class="hl com"> *	interpreter.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Results:</span>
<span class="hl com"> *	TCL_OK if it succeeds, TCL_ERROR else (leaving an error message in the</span>
<span class="hl com"> *	interpreter result if that happens.)</span>
<span class="hl com"> *</span>
<span class="hl com"> * Side effects:</span>
<span class="hl com"> *	If this function succeeds, the variables pointed to by the numArgsPtr</span>
<span class="hl com"> *	and argTypePtr arguments will be updated to detail the arguments</span>
<span class="hl com"> *	allowed by the function. The variable pointed to by the procPtr</span>
<span class="hl com"> *	argument will be set to NULL if the function is a builtin function,</span>
<span class="hl com"> *	and will be set to the address of the C function used to implement the</span>
<span class="hl com"> *	math function otherwise (in which case the variable pointed to by the</span>
<span class="hl com"> *	clientDataPtr argument will also be updated.)</span>
<span class="hl com"> *</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> */</span>

<span class="hl kwb">int</span>
<span class="hl kwd">Tcl_GetMathFuncInfo</span><span class="hl opt">(</span>
    Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>
    <span class="hl kwb">const char</span> <span class="hl opt">*</span>name<span class="hl opt">,</span>
    <span class="hl kwb">int</span> <span class="hl opt">*</span>numArgsPtr<span class="hl opt">,</span>
    Tcl_ValueType <span class="hl opt">**</span>argTypesPtr<span class="hl opt">,</span>
    Tcl_MathProc <span class="hl opt">**</span>procPtr<span class="hl opt">,</span>
    ClientData <span class="hl opt">*</span>clientDataPtr<span class="hl opt">)</span>
<span class="hl opt">{</span>
    Tcl_Obj <span class="hl opt">*</span>cmdNameObj<span class="hl opt">;</span>
    Command <span class="hl opt">*</span>cmdPtr<span class="hl opt">;</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Get the command that implements the math function.</span>
<span class="hl com">     */</span>

    <span class="hl kwd">TclNewLiteralStringObj</span><span class="hl opt">(</span>cmdNameObj<span class="hl opt">,</span> <span class="hl str">&quot;tcl::mathfunc::&quot;</span><span class="hl opt">);</span>
    <span class="hl kwd">Tcl_AppendToObj</span><span class="hl opt">(</span>cmdNameObj<span class="hl opt">,</span> name<span class="hl opt">, -</span><span class="hl num">1</span><span class="hl opt">);</span>
    <span class="hl kwd">Tcl_IncrRefCount</span><span class="hl opt">(</span>cmdNameObj<span class="hl opt">);</span>
    cmdPtr <span class="hl opt">= (</span>Command <span class="hl opt">*)</span> <span class="hl kwd">Tcl_GetCommandFromObj</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> cmdNameObj<span class="hl opt">);</span>
    <span class="hl kwd">Tcl_DecrRefCount</span><span class="hl opt">(</span>cmdNameObj<span class="hl opt">);</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Report unknown functions.</span>
<span class="hl com">     */</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>cmdPtr <span class="hl opt">==</span> NULL<span class="hl opt">) {</span>
	Tcl_Obj <span class="hl opt">*</span>message<span class="hl opt">;</span>

	<span class="hl kwd">TclNewLiteralStringObj</span><span class="hl opt">(</span>message<span class="hl opt">,</span> <span class="hl str">&quot;unknown math function</span> <span class="hl esc">\&quot;</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
	<span class="hl kwd">Tcl_AppendToObj</span><span class="hl opt">(</span>message<span class="hl opt">,</span> name<span class="hl opt">, -</span><span class="hl num">1</span><span class="hl opt">);</span>
	<span class="hl kwd">Tcl_AppendToObj</span><span class="hl opt">(</span>message<span class="hl opt">,</span> <span class="hl str">&quot;</span><span class="hl esc">\&quot;</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl num">1</span><span class="hl opt">);</span>
	<span class="hl kwd">Tcl_SetObjResult</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> message<span class="hl opt">);</span>
	<span class="hl opt">*</span>numArgsPtr <span class="hl opt">= -</span><span class="hl num">1</span><span class="hl opt">;</span>
	<span class="hl opt">*</span>argTypesPtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
	<span class="hl opt">*</span>procPtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
	<span class="hl opt">*</span>clientDataPtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
	<span class="hl kwa">return</span> TCL_ERROR<span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Retrieve function info for user defined functions; return dummy</span>
<span class="hl com">     * information for builtins.</span>
<span class="hl com">     */</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>cmdPtr<span class="hl opt">-&gt;</span>objProc <span class="hl opt">== &amp;</span>OldMathFuncProc<span class="hl opt">) {</span>
	OldMathFuncData <span class="hl opt">*</span>dataPtr <span class="hl opt">=</span> cmdPtr<span class="hl opt">-&gt;</span>clientData<span class="hl opt">;</span>

	<span class="hl opt">*</span>procPtr <span class="hl opt">=</span> dataPtr<span class="hl opt">-&gt;</span>proc<span class="hl opt">;</span>
	<span class="hl opt">*</span>numArgsPtr <span class="hl opt">=</span> dataPtr<span class="hl opt">-&gt;</span>numArgs<span class="hl opt">;</span>
	<span class="hl opt">*</span>argTypesPtr <span class="hl opt">=</span> dataPtr<span class="hl opt">-&gt;</span>argTypes<span class="hl opt">;</span>
	<span class="hl opt">*</span>clientDataPtr <span class="hl opt">=</span> dataPtr<span class="hl opt">-&gt;</span>clientData<span class="hl opt">;</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl opt">*</span>procPtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
	<span class="hl opt">*</span>numArgsPtr <span class="hl opt">= -</span><span class="hl num">1</span><span class="hl opt">;</span>
	<span class="hl opt">*</span>argTypesPtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
	<span class="hl opt">*</span>procPtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
	<span class="hl opt">*</span>clientDataPtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">return</span> TCL_OK<span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl com">/*</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> *</span>
<span class="hl com"> * Tcl_ListMathFuncs --</span>
<span class="hl com"> *</span>
<span class="hl com"> *	Produces a list of all the math functions defined in a given</span>
<span class="hl com"> *	interpreter.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Results:</span>
<span class="hl com"> *	A pointer to a Tcl_Obj structure with a reference count of zero, or</span>
<span class="hl com"> *	NULL in the case of an error (in which case a suitable error message</span>
<span class="hl com"> *	will be left in the interpreter result.)</span>
<span class="hl com"> *</span>
<span class="hl com"> * Side effects:</span>
<span class="hl com"> *	None.</span>
<span class="hl com"> *</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> */</span>

Tcl_Obj <span class="hl opt">*</span>
<span class="hl kwd">Tcl_ListMathFuncs</span><span class="hl opt">(</span>
    Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>
    <span class="hl kwb">const char</span> <span class="hl opt">*</span>pattern<span class="hl opt">)</span>
<span class="hl opt">{</span>
    Tcl_Obj <span class="hl opt">*</span>script <span class="hl opt">=</span> <span class="hl kwd">Tcl_NewStringObj</span><span class="hl opt">(</span><span class="hl str">&quot;::info functions &quot;</span><span class="hl opt">, -</span><span class="hl num">1</span><span class="hl opt">);</span>
    Tcl_Obj <span class="hl opt">*</span>result<span class="hl opt">;</span>
    Tcl_InterpState state<span class="hl opt">;</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>pattern<span class="hl opt">) {</span>
	Tcl_Obj <span class="hl opt">*</span>patternObj <span class="hl opt">=</span> <span class="hl kwd">Tcl_NewStringObj</span><span class="hl opt">(</span>pattern<span class="hl opt">, -</span><span class="hl num">1</span><span class="hl opt">);</span>
	Tcl_Obj <span class="hl opt">*</span>arg <span class="hl opt">=</span> <span class="hl kwd">Tcl_NewListObj</span><span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">, &amp;</span>patternObj<span class="hl opt">);</span>

	<span class="hl kwd">Tcl_AppendObjToObj</span><span class="hl opt">(</span>script<span class="hl opt">,</span> arg<span class="hl opt">);</span>
	<span class="hl kwd">Tcl_DecrRefCount</span><span class="hl opt">(</span>arg<span class="hl opt">);</span>	<span class="hl com">/* Should tear down patternObj too */</span>
    <span class="hl opt">}</span>

    state <span class="hl opt">=</span> <span class="hl kwd">Tcl_SaveInterpState</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> TCL_OK<span class="hl opt">);</span>
    <span class="hl kwd">Tcl_IncrRefCount</span><span class="hl opt">(</span>script<span class="hl opt">);</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>TCL_OK <span class="hl opt">==</span> <span class="hl kwd">Tcl_EvalObjEx</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> script<span class="hl opt">,</span> <span class="hl num">0</span><span class="hl opt">)) {</span>
	result <span class="hl opt">=</span> <span class="hl kwd">Tcl_DuplicateObj</span><span class="hl opt">(</span><span class="hl kwd">Tcl_GetObjResult</span><span class="hl opt">(</span>interp<span class="hl opt">));</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	result <span class="hl opt">=</span> <span class="hl kwd">Tcl_NewObj</span><span class="hl opt">();</span>
    <span class="hl opt">}</span>
    <span class="hl kwd">Tcl_DecrRefCount</span><span class="hl opt">(</span>script<span class="hl opt">);</span>
    <span class="hl kwd">Tcl_RestoreInterpState</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> state<span class="hl opt">);</span>

    <span class="hl kwa">return</span> result<span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl com">/*</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> *</span>
<span class="hl com"> * TclInterpReady --</span>
<span class="hl com"> *</span>
<span class="hl com"> *	Check if an interpreter is ready to eval commands or scripts, i.e., if</span>
<span class="hl com"> *	it was not deleted and if the nesting level is not too high.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Results:</span>
<span class="hl com"> *	The return value is TCL_OK if it the interpreter is ready, TCL_ERROR</span>
<span class="hl com"> *	otherwise.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Side effects:</span>
<span class="hl com"> *	The interpreters object and string results are cleared.</span>
<span class="hl com"> *</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> */</span>

<span class="hl kwb">int</span>
<span class="hl kwd">TclInterpReady</span><span class="hl opt">(</span>
    Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">)</span>
<span class="hl opt">{</span>
<span class="hl ppc">#if !defined(TCL_NO_STACK_CHECK)</span>
    <span class="hl kwb">int</span> localInt<span class="hl opt">;</span> <span class="hl com">/* used for checking the stack */</span>
<span class="hl ppc">#endif</span>
    <span class="hl kwc">register</span> Interp <span class="hl opt">*</span>iPtr <span class="hl opt">= (</span>Interp <span class="hl opt">*)</span> interp<span class="hl opt">;</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Reset both the interpreter's string and object results and clear out</span>
<span class="hl com">     * any previous error information.</span>
<span class="hl com">     */</span>

    <span class="hl kwd">Tcl_ResetResult</span><span class="hl opt">(</span>interp<span class="hl opt">);</span>

    <span class="hl com">/*</span>
<span class="hl com">     * If the interpreter has been deleted, return an error.</span>
<span class="hl com">     */</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>flags <span class="hl opt">&amp;</span> DELETED<span class="hl opt">) {</span>
	<span class="hl kwd">Tcl_ResetResult</span><span class="hl opt">(</span>interp<span class="hl opt">);</span>
	<span class="hl kwd">Tcl_AppendResult</span><span class="hl opt">(</span>interp<span class="hl opt">,</span>
		<span class="hl str">&quot;attempt to call eval in deleted interpreter&quot;</span><span class="hl opt">,</span> NULL<span class="hl opt">);</span>
	<span class="hl kwd">Tcl_SetErrorCode</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> <span class="hl str">&quot;TCL&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;IDELETE&quot;</span><span class="hl opt">,</span>
		<span class="hl str">&quot;attempt to call eval in deleted interpreter&quot;</span><span class="hl opt">,</span> NULL<span class="hl opt">);</span>
	<span class="hl kwa">return</span> TCL_ERROR<span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Check depth of nested calls to Tcl_Eval: if this gets too large, it's</span>
<span class="hl com">     * probably because of an infinite loop somewhere.</span>
<span class="hl com">     */</span>

    <span class="hl kwa">if</span> <span class="hl opt">(((</span>iPtr<span class="hl opt">-&gt;</span>numLevels<span class="hl opt">) &lt;=</span> iPtr<span class="hl opt">-&gt;</span>maxNestingDepth<span class="hl opt">)</span>
	    <span class="hl opt">&amp;&amp;</span> <span class="hl kwd">CheckCStack</span><span class="hl opt">(</span>iPtr<span class="hl opt">, &amp;</span>localInt<span class="hl opt">)) {</span>
	<span class="hl kwa">return</span> TCL_OK<span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwd">CheckCStack</span><span class="hl opt">(</span>iPtr<span class="hl opt">, &amp;</span>localInt<span class="hl opt">)) {</span>
	<span class="hl kwd">Tcl_AppendResult</span><span class="hl opt">(</span>interp<span class="hl opt">,</span>
		<span class="hl str">&quot;out of stack space (infinite loop?)&quot;</span><span class="hl opt">,</span> NULL<span class="hl opt">);</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl kwd">Tcl_AppendResult</span><span class="hl opt">(</span>interp<span class="hl opt">,</span>
		<span class="hl str">&quot;too many nested evaluations (infinite loop?)&quot;</span><span class="hl opt">,</span> NULL<span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">return</span> TCL_ERROR<span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl com">/*</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> *</span>
<span class="hl com"> * TclEvalObjvInternal</span>
<span class="hl com"> *</span>
<span class="hl com"> *	This function evaluates a Tcl command that has already been parsed</span>
<span class="hl com"> *	into words, with one Tcl_Obj holding each word. The caller is</span>
<span class="hl com"> *	responsible for managing the iPtr-&gt;numLevels.</span>
<span class="hl com"> *</span>
<span class="hl com"> *      TclEvalObjvInternal is the backend for Tcl_EvalObjv, the bytecode</span>
<span class="hl com"> *      engine also calls it directly.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Results:</span>
<span class="hl com"> *	The return value is a standard Tcl completion code such as TCL_OK or</span>
<span class="hl com"> *	TCL_ERROR. A result or error message is left in interp's result. If an</span>
<span class="hl com"> *	error occurs, this function does NOT add any information to the</span>
<span class="hl com"> *	errorInfo variable.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Side effects:</span>
<span class="hl com"> *	Depends on the command.</span>
<span class="hl com"> *</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> */</span>

<span class="hl kwb">int</span>
<span class="hl kwd">TclEvalObjvInternal</span><span class="hl opt">(</span>
    Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>		<span class="hl com">/* Interpreter in which to evaluate the</span>
<span class="hl com">				 * command. Also used for error reporting. */</span>
    <span class="hl kwb">int</span> objc<span class="hl opt">,</span>			<span class="hl com">/* Number of words in command. */</span>
    Tcl_Obj <span class="hl opt">*</span><span class="hl kwb">const</span> objv<span class="hl opt">[],</span>	<span class="hl com">/* An array of pointers to objects that are</span>
<span class="hl com">				 * the words that make up the command. */</span>
    <span class="hl kwb">const char</span> <span class="hl opt">*</span>command<span class="hl opt">,</span>	<span class="hl com">/* Points to the beginning of the string</span>
<span class="hl com">				 * representation of the command; this is used</span>
<span class="hl com">				 * for traces. NULL if the string</span>
<span class="hl com">				 * representation of the command is unknown is</span>
<span class="hl com">				 * to be generated from (objc,objv), -1 if it</span>
<span class="hl com">				 * is to be generated from bytecode</span>
<span class="hl com">				 * source. This is only needed the traces. */</span>
    <span class="hl kwb">int</span> length<span class="hl opt">,</span>			<span class="hl com">/* Number of bytes in command; if -1, all</span>
<span class="hl com">				 * characters up to the first null byte are</span>
<span class="hl com">				 * used. */</span>
    <span class="hl kwb">int</span> flags<span class="hl opt">)</span>			<span class="hl com">/* Collection of OR-ed bits that control the</span>
<span class="hl com">				 * evaluation of the script. Only</span>
<span class="hl com">				 * TCL_EVAL_GLOBAL and TCL_EVAL_INVOKE are</span>
<span class="hl com">				 * currently supported. */</span>
<span class="hl opt">{</span>
    Command <span class="hl opt">*</span>cmdPtr<span class="hl opt">;</span>
    Interp <span class="hl opt">*</span>iPtr <span class="hl opt">= (</span>Interp <span class="hl opt">*)</span> interp<span class="hl opt">;</span>
    Tcl_Obj <span class="hl opt">**</span>newObjv<span class="hl opt">;</span>
    <span class="hl kwb">int</span> i<span class="hl opt">;</span>
    CallFrame <span class="hl opt">*</span>savedVarFramePtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
    CallFrame <span class="hl opt">*</span>varFramePtr <span class="hl opt">=</span> iPtr<span class="hl opt">-&gt;</span>varFramePtr<span class="hl opt">;</span>
    <span class="hl kwb">int</span> code <span class="hl opt">=</span> TCL_OK<span class="hl opt">;</span>
    <span class="hl kwb">int</span> traceCode <span class="hl opt">=</span> TCL_OK<span class="hl opt">;</span>
    <span class="hl kwb">int</span> checkTraces <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">,</span> traced<span class="hl opt">;</span>
    Namespace <span class="hl opt">*</span>savedNsPtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
    Namespace <span class="hl opt">*</span>lookupNsPtr <span class="hl opt">=</span> iPtr<span class="hl opt">-&gt;</span>lookupNsPtr<span class="hl opt">;</span>
    Tcl_Obj <span class="hl opt">*</span>commandPtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwd">TclInterpReady</span><span class="hl opt">(</span>interp<span class="hl opt">) ==</span> TCL_ERROR<span class="hl opt">) {</span>
	<span class="hl kwa">return</span> TCL_ERROR<span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>objc <span class="hl opt">==</span> <span class="hl num">0</span><span class="hl opt">) {</span>
	<span class="hl kwa">return</span> TCL_OK<span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * If any execution traces rename or delete the current command, we may</span>
<span class="hl com">     * need (at most) two passes here.</span>
<span class="hl com">     */</span>

  reparseBecauseOfTraces<span class="hl opt">:</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Configure evaluation context to match the requested flags.</span>
<span class="hl com">     */</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>flags<span class="hl opt">) {</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span>flags <span class="hl opt">&amp;</span> TCL_EVAL_INVOKE<span class="hl opt">) {</span>
	    savedNsPtr <span class="hl opt">=</span> varFramePtr<span class="hl opt">-&gt;</span>nsPtr<span class="hl opt">;</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span>lookupNsPtr<span class="hl opt">) {</span>
		varFramePtr<span class="hl opt">-&gt;</span>nsPtr <span class="hl opt">=</span> lookupNsPtr<span class="hl opt">;</span>
		iPtr<span class="hl opt">-&gt;</span>lookupNsPtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
	    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		varFramePtr<span class="hl opt">-&gt;</span>nsPtr <span class="hl opt">=</span> iPtr<span class="hl opt">-&gt;</span>globalNsPtr<span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span> <span class="hl kwa">else if</span> <span class="hl opt">((</span>flags <span class="hl opt">&amp;</span> TCL_EVAL_GLOBAL<span class="hl opt">)</span>
		<span class="hl opt">&amp;&amp; (</span>varFramePtr <span class="hl opt">!=</span> iPtr<span class="hl opt">-&gt;</span>rootFramePtr<span class="hl opt">) &amp;&amp; !</span>savedVarFramePtr<span class="hl opt">) {</span>
	    varFramePtr <span class="hl opt">=</span> iPtr<span class="hl opt">-&gt;</span>rootFramePtr<span class="hl opt">;</span>
	    savedVarFramePtr <span class="hl opt">=</span> iPtr<span class="hl opt">-&gt;</span>varFramePtr<span class="hl opt">;</span>
	    iPtr<span class="hl opt">-&gt;</span>varFramePtr <span class="hl opt">=</span> varFramePtr<span class="hl opt">;</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Find the function to execute this command. If there isn't one, then see</span>
<span class="hl com">     * if there is an unknown command handler registered for this namespace.</span>
<span class="hl com">     * If so, create a new word array with the handler as the first words and</span>
<span class="hl com">     * the original command words as arguments. Then call ourselves</span>
<span class="hl com">     * recursively to execute it.</span>
<span class="hl com">     */</span>

    cmdPtr <span class="hl opt">= (</span>Command <span class="hl opt">*)</span> <span class="hl kwd">Tcl_GetCommandFromObj</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> objv<span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">]);</span>
    <span class="hl kwa">if</span> <span class="hl opt">(!</span>cmdPtr<span class="hl opt">) {</span>
	<span class="hl kwa">goto</span> notFound<span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>savedNsPtr<span class="hl opt">) {</span>
	varFramePtr<span class="hl opt">-&gt;</span>nsPtr <span class="hl opt">=</span> savedNsPtr<span class="hl opt">;</span>
    <span class="hl opt">}</span> <span class="hl kwa">else if</span> <span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>ensembleRewrite<span class="hl opt">.</span>sourceObjs<span class="hl opt">) {</span>
	<span class="hl com">/*</span>
<span class="hl com">	 * TCL_EVAL_INVOKE was not set: clear rewrite rules</span>
<span class="hl com">	 */</span>

	iPtr<span class="hl opt">-&gt;</span>ensembleRewrite<span class="hl opt">.</span>sourceObjs <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Call trace functions if needed.</span>
<span class="hl com">     */</span>

    traced <span class="hl opt">= (</span>iPtr<span class="hl opt">-&gt;</span>tracePtr <span class="hl opt">|| (</span>cmdPtr<span class="hl opt">-&gt;</span>flags <span class="hl opt">&amp;</span> CMD_HAS_EXEC_TRACES<span class="hl opt">));</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>traced <span class="hl opt">&amp;&amp;</span> checkTraces<span class="hl opt">) {</span>
	<span class="hl kwb">int</span> cmdEpoch <span class="hl opt">=</span> cmdPtr<span class="hl opt">-&gt;</span>cmdEpoch<span class="hl opt">;</span>
	<span class="hl kwb">int</span> newEpoch<span class="hl opt">;</span>

	<span class="hl com">/*</span>
<span class="hl com">	 * Insure that we have a correct nul-terminated command string for the</span>
<span class="hl com">	 * trace code.</span>
<span class="hl com">	 */</span>

	commandPtr <span class="hl opt">=</span> <span class="hl kwd">GetCommandSource</span><span class="hl opt">(</span>iPtr<span class="hl opt">,</span> command<span class="hl opt">,</span> length<span class="hl opt">,</span> objc<span class="hl opt">,</span> objv<span class="hl opt">);</span>
	command <span class="hl opt">=</span> <span class="hl kwd">TclGetStringFromObj</span><span class="hl opt">(</span>commandPtr<span class="hl opt">, &amp;</span>length<span class="hl opt">);</span>

	<span class="hl com">/*</span>
<span class="hl com">	 * Execute any command or execution traces. Note that we bump up the</span>
<span class="hl com">	 * command's reference count for the duration of the calling of the</span>
<span class="hl com">	 * traces so that the structure doesn't go away underneath our feet.</span>
<span class="hl com">	 */</span>

	cmdPtr<span class="hl opt">-&gt;</span>refCount<span class="hl opt">++;</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>tracePtr <span class="hl opt">&amp;&amp; (</span>traceCode <span class="hl opt">==</span> TCL_OK<span class="hl opt">)) {</span>
	    traceCode <span class="hl opt">=</span> <span class="hl kwd">TclCheckInterpTraces</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> command<span class="hl opt">,</span> length<span class="hl opt">,</span>
		    cmdPtr<span class="hl opt">,</span> code<span class="hl opt">,</span> TCL_TRACE_ENTER_EXEC<span class="hl opt">,</span> objc<span class="hl opt">,</span> objv<span class="hl opt">);</span>
	<span class="hl opt">}</span>
	<span class="hl kwa">if</span> <span class="hl opt">((</span>cmdPtr<span class="hl opt">-&gt;</span>flags <span class="hl opt">&amp;</span> CMD_HAS_EXEC_TRACES<span class="hl opt">) &amp;&amp; (</span>traceCode <span class="hl opt">==</span> TCL_OK<span class="hl opt">)) {</span>
	    traceCode <span class="hl opt">=</span> <span class="hl kwd">TclCheckExecutionTraces</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> command<span class="hl opt">,</span> length<span class="hl opt">,</span>
		    cmdPtr<span class="hl opt">,</span> code<span class="hl opt">,</span> TCL_TRACE_ENTER_EXEC<span class="hl opt">,</span> objc<span class="hl opt">,</span> objv<span class="hl opt">);</span>
	<span class="hl opt">}</span>
	newEpoch <span class="hl opt">=</span> cmdPtr<span class="hl opt">-&gt;</span>cmdEpoch<span class="hl opt">;</span>
	<span class="hl kwd">TclCleanupCommandMacro</span><span class="hl opt">(</span>cmdPtr<span class="hl opt">);</span>

	<span class="hl com">/*</span>
<span class="hl com">	 * If the traces modified/deleted the command or any existing traces,</span>
<span class="hl com">	 * they will update the command's epoch. When that happens, set</span>
<span class="hl com">	 * checkTraces is set to 0 to prevent the re-calling of traces (and</span>
<span class="hl com">	 * any possible infinite loop) and we go back to re-find the command</span>
<span class="hl com">	 * implementation.</span>
<span class="hl com">	 */</span>

	<span class="hl kwa">if</span> <span class="hl opt">(</span>cmdEpoch <span class="hl opt">!=</span> newEpoch<span class="hl opt">) {</span>
	    checkTraces <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span>commandPtr<span class="hl opt">) {</span>
		<span class="hl kwd">Tcl_DecrRefCount</span><span class="hl opt">(</span>commandPtr<span class="hl opt">);</span>
		commandPtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	    <span class="hl kwa">goto</span> reparseBecauseOfTraces<span class="hl opt">;</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>

<span class="hl ppc">#ifdef USE_DTRACE</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwd">TCL_DTRACE_CMD_ARGS_ENABLED</span><span class="hl opt">()) {</span>
	<span class="hl kwb">char</span> <span class="hl opt">*</span>a<span class="hl opt">[</span><span class="hl num">10</span><span class="hl opt">];</span>
	<span class="hl kwb">int</span> i <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>

	<span class="hl kwa">while</span> <span class="hl opt">(</span>i <span class="hl opt">&lt;</span> <span class="hl num">10</span><span class="hl opt">) {</span>
	    a<span class="hl opt">[</span>i<span class="hl opt">] =</span> i <span class="hl opt">&lt;</span> objc ? <span class="hl kwd">TclGetString</span><span class="hl opt">(</span>objv<span class="hl opt">[</span>i<span class="hl opt">]) :</span> NULL<span class="hl opt">;</span> i<span class="hl opt">++;</span>
	<span class="hl opt">}</span>
	<span class="hl kwd">TCL_DTRACE_CMD_ARGS</span><span class="hl opt">(</span>a<span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">],</span> a<span class="hl opt">[</span><span class="hl num">1</span><span class="hl opt">],</span> a<span class="hl opt">[</span><span class="hl num">2</span><span class="hl opt">],</span> a<span class="hl opt">[</span><span class="hl num">3</span><span class="hl opt">],</span> a<span class="hl opt">[</span><span class="hl num">4</span><span class="hl opt">],</span> a<span class="hl opt">[</span><span class="hl num">5</span><span class="hl opt">],</span> a<span class="hl opt">[</span><span class="hl num">6</span><span class="hl opt">],</span> a<span class="hl opt">[</span><span class="hl num">7</span><span class="hl opt">],</span>
		a<span class="hl opt">[</span><span class="hl num">8</span><span class="hl opt">],</span> a<span class="hl opt">[</span><span class="hl num">9</span><span class="hl opt">]);</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwd">TCL_DTRACE_CMD_INFO_ENABLED</span><span class="hl opt">() &amp;&amp;</span> iPtr<span class="hl opt">-&gt;</span>cmdFramePtr<span class="hl opt">) {</span>
	Tcl_Obj <span class="hl opt">*</span>info <span class="hl opt">=</span> <span class="hl kwd">TclInfoFrame</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> iPtr<span class="hl opt">-&gt;</span>cmdFramePtr<span class="hl opt">);</span>
	<span class="hl kwb">char</span> <span class="hl opt">*</span>a<span class="hl opt">[</span><span class="hl num">4</span><span class="hl opt">];</span> <span class="hl kwb">int</span> i<span class="hl opt">[</span><span class="hl num">2</span><span class="hl opt">];</span>

	<span class="hl kwd">TclDTraceInfo</span><span class="hl opt">(</span>info<span class="hl opt">,</span> a<span class="hl opt">,</span> i<span class="hl opt">);</span>
	<span class="hl kwd">TCL_DTRACE_CMD_INFO</span><span class="hl opt">(</span>a<span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">],</span> a<span class="hl opt">[</span><span class="hl num">1</span><span class="hl opt">],</span> a<span class="hl opt">[</span><span class="hl num">2</span><span class="hl opt">],</span> a<span class="hl opt">[</span><span class="hl num">3</span><span class="hl opt">],</span> i<span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">],</span> i<span class="hl opt">[</span><span class="hl num">1</span><span class="hl opt">]);</span>
	<span class="hl kwd">TclDecrRefCount</span><span class="hl opt">(</span>info<span class="hl opt">);</span>
    <span class="hl opt">}</span>
<span class="hl ppc">#endif</span> <span class="hl com">/* USE_DTRACE */</span><span class="hl ppc"></span>

    <span class="hl com">/*</span>
<span class="hl com">     * Finally, invoke the command's Tcl_ObjCmdProc.</span>
<span class="hl com">     */</span>

    cmdPtr<span class="hl opt">-&gt;</span>refCount<span class="hl opt">++;</span>
    iPtr<span class="hl opt">-&gt;</span>cmdCount<span class="hl opt">++;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>code <span class="hl opt">==</span> TCL_OK <span class="hl opt">&amp;&amp;</span> traceCode <span class="hl opt">==</span> TCL_OK
	    <span class="hl opt">&amp;&amp; !</span><span class="hl kwd">TclLimitExceeded</span><span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>limit<span class="hl opt">)) {</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwd">TCL_DTRACE_CMD_ENTRY_ENABLED</span><span class="hl opt">()) {</span>
	    <span class="hl kwd">TCL_DTRACE_CMD_ENTRY</span><span class="hl opt">(</span><span class="hl kwd">TclGetString</span><span class="hl opt">(</span>objv<span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">]),</span> objc <span class="hl opt">-</span> <span class="hl num">1</span><span class="hl opt">,</span>
		    <span class="hl opt">(</span>Tcl_Obj <span class="hl opt">**)(</span>objv <span class="hl opt">+</span> <span class="hl num">1</span><span class="hl opt">));</span>
	<span class="hl opt">}</span>
	code <span class="hl opt">= (*</span>cmdPtr<span class="hl opt">-&gt;</span>objProc<span class="hl opt">)(</span>cmdPtr<span class="hl opt">-&gt;</span>objClientData<span class="hl opt">,</span> interp<span class="hl opt">,</span> objc<span class="hl opt">,</span> objv<span class="hl opt">);</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwd">TCL_DTRACE_CMD_RETURN_ENABLED</span><span class="hl opt">()) {</span>
	    <span class="hl kwd">TCL_DTRACE_CMD_RETURN</span><span class="hl opt">(</span><span class="hl kwd">TclGetString</span><span class="hl opt">(</span>objv<span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">]),</span> code<span class="hl opt">);</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwd">TclAsyncReady</span><span class="hl opt">(</span>iPtr<span class="hl opt">)) {</span>
	code <span class="hl opt">=</span> <span class="hl kwd">Tcl_AsyncInvoke</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> code<span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>code <span class="hl opt">==</span> TCL_OK <span class="hl opt">&amp;&amp;</span> <span class="hl kwd">TclLimitReady</span><span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>limit<span class="hl opt">)) {</span>
	code <span class="hl opt">=</span> <span class="hl kwd">Tcl_LimitCheck</span><span class="hl opt">(</span>interp<span class="hl opt">);</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Call 'leave' command traces</span>
<span class="hl com">     */</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>traced<span class="hl opt">) {</span>
	<span class="hl kwa">if</span> <span class="hl opt">(!(</span>cmdPtr<span class="hl opt">-&gt;</span>flags <span class="hl opt">&amp;</span> CMD_IS_DELETED<span class="hl opt">)) {</span>
	    <span class="hl kwa">if</span> <span class="hl opt">((</span>cmdPtr<span class="hl opt">-&gt;</span>flags <span class="hl opt">&amp;</span> CMD_HAS_EXEC_TRACES<span class="hl opt">) &amp;&amp;</span> traceCode <span class="hl opt">==</span> TCL_OK<span class="hl opt">){</span>
		traceCode <span class="hl opt">=</span> <span class="hl kwd">TclCheckExecutionTraces</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> command<span class="hl opt">,</span> length<span class="hl opt">,</span>
			cmdPtr<span class="hl opt">,</span> code<span class="hl opt">,</span> TCL_TRACE_LEAVE_EXEC<span class="hl opt">,</span> objc<span class="hl opt">,</span> objv<span class="hl opt">);</span>
	    <span class="hl opt">}</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>tracePtr <span class="hl opt">!=</span> NULL <span class="hl opt">&amp;&amp;</span> traceCode <span class="hl opt">==</span> TCL_OK<span class="hl opt">) {</span>
		traceCode <span class="hl opt">=</span> <span class="hl kwd">TclCheckInterpTraces</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> command<span class="hl opt">,</span> length<span class="hl opt">,</span>
			cmdPtr<span class="hl opt">,</span> code<span class="hl opt">,</span> TCL_TRACE_LEAVE_EXEC<span class="hl opt">,</span> objc<span class="hl opt">,</span> objv<span class="hl opt">);</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span>

	<span class="hl com">/*</span>
<span class="hl com">	 * If one of the trace invocation resulted in error, then change the</span>
<span class="hl com">	 * result code accordingly. Note, that the interp-&gt;result should</span>
<span class="hl com">	 * already be set correctly by the call to TraceExecutionProc.</span>
<span class="hl com">	 */</span>

	<span class="hl kwa">if</span> <span class="hl opt">(</span>traceCode <span class="hl opt">!=</span> TCL_OK<span class="hl opt">) {</span>
	    code <span class="hl opt">=</span> traceCode<span class="hl opt">;</span>
	<span class="hl opt">}</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span>commandPtr<span class="hl opt">) {</span>
	    <span class="hl kwd">Tcl_DecrRefCount</span><span class="hl opt">(</span>commandPtr<span class="hl opt">);</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Decrement the reference count of cmdPtr and deallocate it if it has</span>
<span class="hl com">     * dropped to zero.</span>
<span class="hl com">     */</span>

    <span class="hl kwd">TclCleanupCommandMacro</span><span class="hl opt">(</span>cmdPtr<span class="hl opt">);</span>

    <span class="hl com">/*</span>
<span class="hl com">     * If the interpreter has a non-empty string result, the result object is</span>
<span class="hl com">     * either empty or stale because some function set interp-&gt;result</span>
<span class="hl com">     * directly. If so, move the string result to the result object, then</span>
<span class="hl com">     * reset the string result.</span>
<span class="hl com">     */</span>

    <span class="hl kwa">if</span> <span class="hl opt">(*(</span>iPtr<span class="hl opt">-&gt;</span>result<span class="hl opt">) !=</span> <span class="hl num">0</span><span class="hl opt">) {</span>
	<span class="hl opt">(</span><span class="hl kwb">void</span><span class="hl opt">)</span> <span class="hl kwd">Tcl_GetObjResult</span><span class="hl opt">(</span>interp<span class="hl opt">);</span>
    <span class="hl opt">}</span>

<span class="hl ppc">#ifdef USE_DTRACE</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwd">TCL_DTRACE_CMD_RESULT_ENABLED</span><span class="hl opt">()) {</span>
	Tcl_Obj <span class="hl opt">*</span>r<span class="hl opt">;</span>

	r <span class="hl opt">=</span> <span class="hl kwd">Tcl_GetObjResult</span><span class="hl opt">(</span>interp<span class="hl opt">);</span>
	<span class="hl kwd">TCL_DTRACE_CMD_RESULT</span><span class="hl opt">(</span><span class="hl kwd">TclGetString</span><span class="hl opt">(</span>objv<span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">]),</span> code<span class="hl opt">,</span> <span class="hl kwd">TclGetString</span><span class="hl opt">(</span>r<span class="hl opt">),</span>r<span class="hl opt">);</span>
    <span class="hl opt">}</span>
<span class="hl ppc">#endif</span> <span class="hl com">/* USE_DTRACE */</span><span class="hl ppc"></span>

  done<span class="hl opt">:</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>savedVarFramePtr<span class="hl opt">) {</span>
	iPtr<span class="hl opt">-&gt;</span>varFramePtr <span class="hl opt">=</span> savedVarFramePtr<span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">return</span> code<span class="hl opt">;</span>

  notFound<span class="hl opt">:</span>
    <span class="hl opt">{</span>
	Namespace <span class="hl opt">*</span>currNsPtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>	<span class="hl com">/* Used to check for and invoke any</span>
<span class="hl com">					 * registered unknown command handler</span>
<span class="hl com">					 * for the current namespace (TIP</span>
<span class="hl com">					 * 181). */</span>
	<span class="hl kwb">int</span> newObjc<span class="hl opt">,</span> handlerObjc<span class="hl opt">;</span>
	Tcl_Obj <span class="hl opt">**</span>handlerObjv<span class="hl opt">;</span>

	currNsPtr <span class="hl opt">=</span> varFramePtr<span class="hl opt">-&gt;</span>nsPtr<span class="hl opt">;</span>
	<span class="hl kwa">if</span> <span class="hl opt">((</span>currNsPtr <span class="hl opt">==</span> NULL<span class="hl opt">) || (</span>currNsPtr<span class="hl opt">-&gt;</span>unknownHandlerPtr <span class="hl opt">==</span> NULL<span class="hl opt">)) {</span>
	    currNsPtr <span class="hl opt">=</span> iPtr<span class="hl opt">-&gt;</span>globalNsPtr<span class="hl opt">;</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span>currNsPtr <span class="hl opt">==</span> NULL<span class="hl opt">) {</span>
		<span class="hl kwd">Tcl_Panic</span><span class="hl opt">(</span><span class="hl str">&quot;TclEvalObjvInternal: NULL global namespace pointer&quot;</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span>

	<span class="hl com">/*</span>
<span class="hl com">	 * Check to see if the resolution namespace has lost its unknown</span>
<span class="hl com">	 * handler. If so, reset it to &quot;::unknown&quot;.</span>
<span class="hl com">	 */</span>

	<span class="hl kwa">if</span> <span class="hl opt">(</span>currNsPtr<span class="hl opt">-&gt;</span>unknownHandlerPtr <span class="hl opt">==</span> NULL<span class="hl opt">) {</span>
	    <span class="hl kwd">TclNewLiteralStringObj</span><span class="hl opt">(</span>currNsPtr<span class="hl opt">-&gt;</span>unknownHandlerPtr<span class="hl opt">,</span> <span class="hl str">&quot;::unknown&quot;</span><span class="hl opt">);</span>
	    <span class="hl kwd">Tcl_IncrRefCount</span><span class="hl opt">(</span>currNsPtr<span class="hl opt">-&gt;</span>unknownHandlerPtr<span class="hl opt">);</span>
	<span class="hl opt">}</span>

	<span class="hl com">/*</span>
<span class="hl com">	 * Get the list of words for the unknown handler and allocate enough</span>
<span class="hl com">	 * space to hold both the handler prefix and all words of the command</span>
<span class="hl com">	 * invokation itself.</span>
<span class="hl com">	 */</span>

	<span class="hl kwd">Tcl_ListObjGetElements</span><span class="hl opt">(</span>NULL<span class="hl opt">,</span> currNsPtr<span class="hl opt">-&gt;</span>unknownHandlerPtr<span class="hl opt">,</span>
		<span class="hl opt">&amp;</span>handlerObjc<span class="hl opt">, &amp;</span>handlerObjv<span class="hl opt">);</span>
	newObjc <span class="hl opt">=</span> objc <span class="hl opt">+</span> handlerObjc<span class="hl opt">;</span>
	newObjv <span class="hl opt">= (</span>Tcl_Obj <span class="hl opt">**)</span> <span class="hl kwd">TclStackAlloc</span><span class="hl opt">(</span>interp<span class="hl opt">,</span>
		<span class="hl opt">(</span><span class="hl kwb">int</span><span class="hl opt">)</span> <span class="hl kwa">sizeof</span><span class="hl opt">(</span>Tcl_Obj <span class="hl opt">*) *</span> newObjc<span class="hl opt">);</span>

	<span class="hl com">/*</span>
<span class="hl com">	 * Copy command prefix from unknown handler and add on the real</span>
<span class="hl com">	 * command's full argument list. Note that we only use memcpy() once</span>
<span class="hl com">	 * because we have to increment the reference count of all the handler</span>
<span class="hl com">	 * arguments anyway.</span>
<span class="hl com">	 */</span>

	<span class="hl kwa">for</span> <span class="hl opt">(</span>i <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span> i <span class="hl opt">&lt;</span> handlerObjc<span class="hl opt">; ++</span>i<span class="hl opt">) {</span>
	    newObjv<span class="hl opt">[</span>i<span class="hl opt">] =</span> handlerObjv<span class="hl opt">[</span>i<span class="hl opt">];</span>
	    <span class="hl kwd">Tcl_IncrRefCount</span><span class="hl opt">(</span>newObjv<span class="hl opt">[</span>i<span class="hl opt">]);</span>
	<span class="hl opt">}</span>
	<span class="hl kwd">memcpy</span><span class="hl opt">(</span>newObjv<span class="hl opt">+</span>handlerObjc<span class="hl opt">,</span> objv<span class="hl opt">,</span> <span class="hl kwa">sizeof</span><span class="hl opt">(</span>Tcl_Obj <span class="hl opt">*) * (</span><span class="hl kwb">unsigned</span><span class="hl opt">)</span>objc<span class="hl opt">);</span>

	<span class="hl com">/*</span>
<span class="hl com">	 * Look up and invoke the handler (by recursive call to this</span>
<span class="hl com">	 * function). If there is no handler at all, instead of doing the</span>
<span class="hl com">	 * recursive call we just generate a generic error message; it would</span>
<span class="hl com">	 * be an infinite-recursion nightmare otherwise.</span>
<span class="hl com">	 */</span>

	cmdPtr <span class="hl opt">= (</span>Command <span class="hl opt">*)</span> <span class="hl kwd">Tcl_GetCommandFromObj</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> newObjv<span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">]);</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span>cmdPtr <span class="hl opt">==</span> NULL<span class="hl opt">) {</span>
	    <span class="hl kwd">Tcl_AppendResult</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> <span class="hl str">&quot;invalid command name</span> <span class="hl esc">\&quot;</span><span class="hl str">&quot;</span><span class="hl opt">,</span>
		    <span class="hl kwd">TclGetString</span><span class="hl opt">(</span>objv<span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">]),</span> <span class="hl str">&quot;</span><span class="hl esc">\&quot;</span><span class="hl str">&quot;</span><span class="hl opt">,</span> NULL<span class="hl opt">);</span>
	    code <span class="hl opt">=</span> TCL_ERROR<span class="hl opt">;</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    iPtr<span class="hl opt">-&gt;</span>numLevels<span class="hl opt">++;</span>
	    code <span class="hl opt">=</span> <span class="hl kwd">TclEvalObjvInternal</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> newObjc<span class="hl opt">,</span> newObjv<span class="hl opt">,</span> command<span class="hl opt">,</span>
		    length<span class="hl opt">,</span> <span class="hl num">0</span><span class="hl opt">);</span>
	    iPtr<span class="hl opt">-&gt;</span>numLevels<span class="hl opt">--;</span>
	<span class="hl opt">}</span>

	<span class="hl com">/*</span>
<span class="hl com">	 * Release any resources we locked and allocated during the handler</span>
<span class="hl com">	 * call.</span>
<span class="hl com">	 */</span>

	<span class="hl kwa">for</span> <span class="hl opt">(</span>i <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span> i <span class="hl opt">&lt;</span> handlerObjc<span class="hl opt">; ++</span>i<span class="hl opt">) {</span>
	    <span class="hl kwd">Tcl_DecrRefCount</span><span class="hl opt">(</span>newObjv<span class="hl opt">[</span>i<span class="hl opt">]);</span>
	<span class="hl opt">}</span>
	<span class="hl kwd">TclStackFree</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> newObjv<span class="hl opt">);</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span>savedNsPtr<span class="hl opt">) {</span>
	    varFramePtr<span class="hl opt">-&gt;</span>nsPtr <span class="hl opt">=</span> savedNsPtr<span class="hl opt">;</span>
	<span class="hl opt">}</span>
	<span class="hl kwa">goto</span> done<span class="hl opt">;</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl com">/*</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> *</span>
<span class="hl com"> * Tcl_EvalObjv --</span>
<span class="hl com"> *</span>
<span class="hl com"> *	This function evaluates a Tcl command that has already been parsed</span>
<span class="hl com"> *	into words, with one Tcl_Obj holding each word.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Results:</span>
<span class="hl com"> *	The return value is a standard Tcl completion code such as TCL_OK or</span>
<span class="hl com"> *	TCL_ERROR. A result or error message is left in interp's result.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Side effects:</span>
<span class="hl com"> *	Depends on the command.</span>
<span class="hl com"> *</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> */</span>

<span class="hl kwb">int</span>
<span class="hl kwd">Tcl_EvalObjv</span><span class="hl opt">(</span>
    Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>		<span class="hl com">/* Interpreter in which to evaluate the</span>
<span class="hl com">				 * command. Also used for error reporting. */</span>
    <span class="hl kwb">int</span> objc<span class="hl opt">,</span>			<span class="hl com">/* Number of words in command. */</span>
    Tcl_Obj <span class="hl opt">*</span><span class="hl kwb">const</span> objv<span class="hl opt">[],</span>	<span class="hl com">/* An array of pointers to objects that are</span>
<span class="hl com">				 * the words that make up the command. */</span>
    <span class="hl kwb">int</span> flags<span class="hl opt">)</span>			<span class="hl com">/* Collection of OR-ed bits that control the</span>
<span class="hl com">				 * evaluation of the script. Only</span>
<span class="hl com">				 * TCL_EVAL_GLOBAL and TCL_EVAL_INVOKE are</span>
<span class="hl com">				 * currently supported. */</span>
<span class="hl opt">{</span>
    Interp <span class="hl opt">*</span>iPtr <span class="hl opt">= (</span>Interp <span class="hl opt">*)</span> interp<span class="hl opt">;</span>
    <span class="hl kwb">int</span> code <span class="hl opt">=</span> TCL_OK<span class="hl opt">;</span>
    <span class="hl kwb">int</span> allowExceptions <span class="hl opt">= (</span>iPtr<span class="hl opt">-&gt;</span>evalFlags <span class="hl opt">&amp;</span> TCL_ALLOW_EXCEPTIONS<span class="hl opt">);</span>

    iPtr<span class="hl opt">-&gt;</span>numLevels<span class="hl opt">++;</span>
    code <span class="hl opt">=</span> <span class="hl kwd">TclEvalObjvInternal</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> objc<span class="hl opt">,</span> objv<span class="hl opt">,</span> NULL<span class="hl opt">,</span> <span class="hl num">0</span><span class="hl opt">,</span> flags<span class="hl opt">);</span>
    iPtr<span class="hl opt">-&gt;</span>numLevels<span class="hl opt">--;</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>code <span class="hl opt">==</span> TCL_OK<span class="hl opt">) {</span>
	<span class="hl kwa">return</span> code<span class="hl opt">;</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>

	<span class="hl com">/*</span>
<span class="hl com">	 * If we are again at the top level, process any unusual return code</span>
<span class="hl com">	 * returned by the evaluated code.</span>
<span class="hl com">	 */</span>

	<span class="hl kwa">if</span> <span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>numLevels <span class="hl opt">==</span> <span class="hl num">0</span><span class="hl opt">) {</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span>code <span class="hl opt">==</span> TCL_RETURN<span class="hl opt">) {</span>
		code <span class="hl opt">=</span> <span class="hl kwd">TclUpdateReturnInfo</span><span class="hl opt">(</span>iPtr<span class="hl opt">);</span>
	    <span class="hl opt">}</span>
	    <span class="hl kwa">if</span> <span class="hl opt">((</span>code <span class="hl opt">!=</span> TCL_ERROR<span class="hl opt">) &amp;&amp; !</span>allowExceptions<span class="hl opt">) {</span>
		<span class="hl kwd">ProcessUnexpectedResult</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> code<span class="hl opt">);</span>
		code <span class="hl opt">=</span> TCL_ERROR<span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span>

	<span class="hl kwa">if</span> <span class="hl opt">((</span>code <span class="hl opt">==</span> TCL_ERROR<span class="hl opt">) &amp;&amp; !(</span>flags <span class="hl opt">&amp;</span> TCL_EVAL_INVOKE<span class="hl opt">)) {</span>
	    <span class="hl com">/*</span>
<span class="hl com">	     * If there was an error, a command string will be needed for the</span>
<span class="hl com">	     * error log: generate it now. Do not worry too much about doing</span>
<span class="hl com">	     * it expensively.</span>
<span class="hl com">	     */</span>

	    Tcl_Obj <span class="hl opt">*</span>listPtr<span class="hl opt">;</span>
	    <span class="hl kwb">char</span> <span class="hl opt">*</span>cmdString<span class="hl opt">;</span>
	    <span class="hl kwb">int</span> cmdLen<span class="hl opt">;</span>

	    listPtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_NewListObj</span><span class="hl opt">(</span>objc<span class="hl opt">,</span> objv<span class="hl opt">);</span>
	    cmdString <span class="hl opt">=</span> <span class="hl kwd">Tcl_GetStringFromObj</span><span class="hl opt">(</span>listPtr<span class="hl opt">, &amp;</span>cmdLen<span class="hl opt">);</span>
	    <span class="hl kwd">Tcl_LogCommandInfo</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> cmdString<span class="hl opt">,</span> cmdString<span class="hl opt">,</span> cmdLen<span class="hl opt">);</span>
	    <span class="hl kwd">Tcl_DecrRefCount</span><span class="hl opt">(</span>listPtr<span class="hl opt">);</span>
	<span class="hl opt">}</span>

	<span class="hl kwa">return</span> code<span class="hl opt">;</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl com">/*</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> *</span>
<span class="hl com"> * Tcl_EvalTokensStandard --</span>
<span class="hl com"> *</span>
<span class="hl com"> *	Given an array of tokens parsed from a Tcl command (e.g., the tokens</span>
<span class="hl com"> *	that make up a word or the index for an array variable) this function</span>
<span class="hl com"> *	evaluates the tokens and concatenates their values to form a single</span>
<span class="hl com"> *	result value.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Results:</span>
<span class="hl com"> *	The return value is a standard Tcl completion code such as TCL_OK or</span>
<span class="hl com"> *	TCL_ERROR. A result or error message is left in interp's result.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Side effects:</span>
<span class="hl com"> *	Depends on the array of tokens being evaled.</span>
<span class="hl com"> *</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> */</span>

<span class="hl kwb">int</span>
<span class="hl kwd">Tcl_EvalTokensStandard</span><span class="hl opt">(</span>
    Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>		<span class="hl com">/* Interpreter in which to lookup variables,</span>
<span class="hl com">				 * execute nested commands, and report</span>
<span class="hl com">				 * errors. */</span>
    Tcl_Token <span class="hl opt">*</span>tokenPtr<span class="hl opt">,</span>	<span class="hl com">/* Pointer to first in an array of tokens to</span>
<span class="hl com">				 * evaluate and concatenate. */</span>
    <span class="hl kwb">int</span> count<span class="hl opt">)</span>			<span class="hl com">/* Number of tokens to consider at tokenPtr.</span>
<span class="hl com">				 * Must be at least 1. */</span>
<span class="hl opt">{</span>
    <span class="hl kwa">return</span> <span class="hl kwd">TclSubstTokens</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> tokenPtr<span class="hl opt">,</span> count<span class="hl opt">,</span> <span class="hl com">/* numLeftPtr */</span> NULL<span class="hl opt">,</span> <span class="hl num">1</span><span class="hl opt">,</span>
			  NULL<span class="hl opt">,</span> NULL<span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl com">/*</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> *</span>
<span class="hl com"> * Tcl_EvalTokens --</span>
<span class="hl com"> *</span>
<span class="hl com"> *	Given an array of tokens parsed from a Tcl command (e.g., the tokens</span>
<span class="hl com"> *	that make up a word or the index for an array variable) this function</span>
<span class="hl com"> *	evaluates the tokens and concatenates their values to form a single</span>
<span class="hl com"> *	result value.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Results:</span>
<span class="hl com"> *	The return value is a pointer to a newly allocated Tcl_Obj containing</span>
<span class="hl com"> *	the value of the array of tokens. The reference count of the returned</span>
<span class="hl com"> *	object has been incremented. If an error occurs in evaluating the</span>
<span class="hl com"> *	tokens then a NULL value is returned and an error message is left in</span>
<span class="hl com"> *	interp's result.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Side effects:</span>
<span class="hl com"> *	A new object is allocated to hold the result.</span>
<span class="hl com"> *</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> *</span>
<span class="hl com"> * This uses a non-standard return convention; its use is now deprecated. It</span>
<span class="hl com"> * is a wrapper for the new function Tcl_EvalTokensStandard, and is not used</span>
<span class="hl com"> * in the core any longer. It is only kept for backward compatibility.</span>
<span class="hl com"> */</span>

Tcl_Obj <span class="hl opt">*</span>
<span class="hl kwd">Tcl_EvalTokens</span><span class="hl opt">(</span>
    Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>		<span class="hl com">/* Interpreter in which to lookup variables,</span>
<span class="hl com">				 * execute nested commands, and report</span>
<span class="hl com">				 * errors. */</span>
    Tcl_Token <span class="hl opt">*</span>tokenPtr<span class="hl opt">,</span>	<span class="hl com">/* Pointer to first in an array of tokens to</span>
<span class="hl com">				 * evaluate and concatenate. */</span>
    <span class="hl kwb">int</span> count<span class="hl opt">)</span>			<span class="hl com">/* Number of tokens to consider at tokenPtr.</span>
<span class="hl com">				 * Must be at least 1. */</span>
<span class="hl opt">{</span>
    Tcl_Obj <span class="hl opt">*</span>resPtr<span class="hl opt">;</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwd">Tcl_EvalTokensStandard</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> tokenPtr<span class="hl opt">,</span> count<span class="hl opt">) !=</span> TCL_OK<span class="hl opt">) {</span>
	<span class="hl kwa">return</span> NULL<span class="hl opt">;</span>
    <span class="hl opt">}</span>
    resPtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_GetObjResult</span><span class="hl opt">(</span>interp<span class="hl opt">);</span>
    <span class="hl kwd">Tcl_IncrRefCount</span><span class="hl opt">(</span>resPtr<span class="hl opt">);</span>
    <span class="hl kwd">Tcl_ResetResult</span><span class="hl opt">(</span>interp<span class="hl opt">);</span>
    <span class="hl kwa">return</span> resPtr<span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl com">/*</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> *</span>
<span class="hl com"> * Tcl_EvalEx, TclEvalEx --</span>
<span class="hl com"> *</span>
<span class="hl com"> *	This function evaluates a Tcl script without using the compiler or</span>
<span class="hl com"> *	byte-code interpreter. It just parses the script, creates values for</span>
<span class="hl com"> *	each word of each command, then calls EvalObjv to execute each</span>
<span class="hl com"> *	command.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Results:</span>
<span class="hl com"> *	The return value is a standard Tcl completion code such as TCL_OK or</span>
<span class="hl com"> *	TCL_ERROR. A result or error message is left in interp's result.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Side effects:</span>
<span class="hl com"> *	Depends on the script.</span>
<span class="hl com"> *</span>
<span class="hl com"> * TIP #280 : Keep public API, internally extended API.</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> */</span>

<span class="hl kwb">int</span>
<span class="hl kwd">Tcl_EvalEx</span><span class="hl opt">(</span>
    Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>		<span class="hl com">/* Interpreter in which to evaluate the</span>
<span class="hl com">				 * script. Also used for error reporting. */</span>
    <span class="hl kwb">const char</span> <span class="hl opt">*</span>script<span class="hl opt">,</span>		<span class="hl com">/* First character of script to evaluate. */</span>
    <span class="hl kwb">int</span> numBytes<span class="hl opt">,</span>		<span class="hl com">/* Number of bytes in script. If &lt; 0, the</span>
<span class="hl com">				 * script consists of all bytes up to the</span>
<span class="hl com">				 * first null character. */</span>
    <span class="hl kwb">int</span> flags<span class="hl opt">)</span>			<span class="hl com">/* Collection of OR-ed bits that control the</span>
<span class="hl com">				 * evaluation of the script. Only</span>
<span class="hl com">				 * TCL_EVAL_GLOBAL is currently supported. */</span>
<span class="hl opt">{</span>
  <span class="hl kwa">return</span> <span class="hl kwd">TclEvalEx</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> script<span class="hl opt">,</span> numBytes<span class="hl opt">,</span> flags<span class="hl opt">,</span> <span class="hl num">1</span><span class="hl opt">,</span> NULL<span class="hl opt">,</span> script<span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl kwb">int</span>
<span class="hl kwd">TclEvalEx</span><span class="hl opt">(</span>
    Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>		<span class="hl com">/* Interpreter in which to evaluate the</span>
<span class="hl com">				 * script. Also used for error reporting. */</span>
    <span class="hl kwb">const char</span> <span class="hl opt">*</span>script<span class="hl opt">,</span>		<span class="hl com">/* First character of script to evaluate. */</span>
    <span class="hl kwb">int</span> numBytes<span class="hl opt">,</span>		<span class="hl com">/* Number of bytes in script. If &lt; 0, the</span>
<span class="hl com">				 * script consists of all bytes up to the</span>
<span class="hl com">				 * first NUL character. */</span>
    <span class="hl kwb">int</span> flags<span class="hl opt">,</span>			<span class="hl com">/* Collection of OR-ed bits that control the</span>
<span class="hl com">				 * evaluation of the script. Only</span>
<span class="hl com">				 * TCL_EVAL_GLOBAL is currently supported. */</span>
    <span class="hl kwb">int</span> line<span class="hl opt">,</span>			<span class="hl com">/* The line the script starts on. */</span>
    <span class="hl kwb">int</span><span class="hl opt">*</span>  clNextOuter<span class="hl opt">,</span>       <span class="hl com">/* Information about an outer context for */</span>
    CONST <span class="hl kwb">char</span><span class="hl opt">*</span> outerScript<span class="hl opt">)</span> <span class="hl com">/* continuation line data. This is set only in</span>
<span class="hl com">			      * TclSubstTokens(), to properly handle</span>
<span class="hl com">			      * [...]-nested commands. The 'outerScript'</span>
<span class="hl com">			      * refers to the most-outer script containing the</span>
<span class="hl com">			      * embedded command, which is refered to by</span>
<span class="hl com">			      * 'script'. The 'clNextOuter' refers to the</span>
<span class="hl com">			      * current entry in the table of continuation</span>
<span class="hl com">			      * lines in this &quot;master script&quot;, and the</span>
<span class="hl com">			      * character offsets are relative to the</span>
<span class="hl com">			      * 'outerScript' as well.</span>
<span class="hl com">			      *</span>
<span class="hl com">			      * If outerScript == script, then this call is</span>
<span class="hl com">			      * for the outer-most script/command. See</span>
<span class="hl com">			      * Tcl_EvalEx() and TclEvalObjEx() for places</span>
<span class="hl com">			      * generating arguments for which this is true.</span>
<span class="hl com">			      */</span>
<span class="hl opt">{</span>
    Interp <span class="hl opt">*</span>iPtr <span class="hl opt">= (</span>Interp <span class="hl opt">*)</span> interp<span class="hl opt">;</span>
    <span class="hl kwb">const char</span> <span class="hl opt">*</span>p<span class="hl opt">, *</span>next<span class="hl opt">;</span>
    <span class="hl kwb">const unsigned int</span> minObjs <span class="hl opt">=</span> <span class="hl num">20</span><span class="hl opt">;</span>
    Tcl_Obj <span class="hl opt">**</span>objv<span class="hl opt">, **</span>objvSpace<span class="hl opt">;</span>
    <span class="hl kwb">int</span> <span class="hl opt">*</span>expand<span class="hl opt">, *</span>lines<span class="hl opt">, *</span>lineSpace<span class="hl opt">;</span>
    Tcl_Token <span class="hl opt">*</span>tokenPtr<span class="hl opt">;</span>
    <span class="hl kwb">int</span> commandLength<span class="hl opt">,</span> bytesLeft<span class="hl opt">,</span> expandRequested<span class="hl opt">,</span> code <span class="hl opt">=</span> TCL_OK<span class="hl opt">;</span>
    CallFrame <span class="hl opt">*</span>savedVarFramePtr<span class="hl opt">;</span><span class="hl com">/* Saves old copy of iPtr-&gt;varFramePtr in case</span>
<span class="hl com">				 * TCL_EVAL_GLOBAL was set. */</span>
    <span class="hl kwb">int</span> allowExceptions <span class="hl opt">= (</span>iPtr<span class="hl opt">-&gt;</span>evalFlags <span class="hl opt">&amp;</span> TCL_ALLOW_EXCEPTIONS<span class="hl opt">);</span>
    <span class="hl kwb">int</span> gotParse <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
    <span class="hl kwb">unsigned int</span> i<span class="hl opt">,</span> objectsUsed <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
				<span class="hl com">/* These variables keep track of how much</span>
<span class="hl com">				 * state has been allocated while evaluating</span>
<span class="hl com">				 * the script, so that it can be freed</span>
<span class="hl com">				 * properly if an error occurs. */</span>
    Tcl_Parse <span class="hl opt">*</span>parsePtr <span class="hl opt">= (</span>Tcl_Parse <span class="hl opt">*)</span>
	    <span class="hl kwd">TclStackAlloc</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> <span class="hl kwa">sizeof</span><span class="hl opt">(</span>Tcl_Parse<span class="hl opt">));</span>
    CmdFrame <span class="hl opt">*</span>eeFramePtr <span class="hl opt">= (</span>CmdFrame <span class="hl opt">*)</span>
	    <span class="hl kwd">TclStackAlloc</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> <span class="hl kwa">sizeof</span><span class="hl opt">(</span>CmdFrame<span class="hl opt">));</span>
    Tcl_Obj <span class="hl opt">**</span>stackObjArray <span class="hl opt">= (</span>Tcl_Obj <span class="hl opt">**)</span>
	    <span class="hl kwd">TclStackAlloc</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> minObjs <span class="hl opt">*</span> <span class="hl kwa">sizeof</span><span class="hl opt">(</span>Tcl_Obj <span class="hl opt">*));</span>
    <span class="hl kwb">int</span> <span class="hl opt">*</span>expandStack <span class="hl opt">= (</span><span class="hl kwb">int</span> <span class="hl opt">*)</span> <span class="hl kwd">TclStackAlloc</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> minObjs <span class="hl opt">*</span> <span class="hl kwa">sizeof</span><span class="hl opt">(</span><span class="hl kwb">int</span><span class="hl opt">));</span>
    <span class="hl kwb">int</span> <span class="hl opt">*</span>linesStack <span class="hl opt">= (</span><span class="hl kwb">int</span> <span class="hl opt">*)</span> <span class="hl kwd">TclStackAlloc</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> minObjs <span class="hl opt">*</span> <span class="hl kwa">sizeof</span><span class="hl opt">(</span><span class="hl kwb">int</span><span class="hl opt">));</span>
				<span class="hl com">/* TIP #280 Structures for tracking of command</span>
<span class="hl com">				 * locations. */</span>
    <span class="hl com">/*</span>
<span class="hl com">     * Pointer for the tracking of invisible continuation lines. Initialized</span>
<span class="hl com">     * only if the caller gave us a table of locations to track, via</span>
<span class="hl com">     * scriptCLLocPtr. It always refers to the table entry holding the</span>
<span class="hl com">     * location of the next invisible continuation line to look for, while</span>
<span class="hl com">     * parsing the script.</span>
<span class="hl com">     */</span>

    <span class="hl kwb">int</span><span class="hl opt">*</span> clNext <span class="hl opt">=</span> NULL<span class="hl opt">;</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>scriptCLLocPtr<span class="hl opt">) {</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span>clNextOuter<span class="hl opt">) {</span>
	    clNext <span class="hl opt">=</span> clNextOuter<span class="hl opt">;</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    clNext <span class="hl opt">= &amp;</span>iPtr<span class="hl opt">-&gt;</span>scriptCLLocPtr<span class="hl opt">-&gt;</span>loc<span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">];</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>numBytes <span class="hl opt">&lt;</span> <span class="hl num">0</span><span class="hl opt">) {</span>
	numBytes <span class="hl opt">=</span> <span class="hl kwd">strlen</span><span class="hl opt">(</span>script<span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwd">Tcl_ResetResult</span><span class="hl opt">(</span>interp<span class="hl opt">);</span>

    savedVarFramePtr <span class="hl opt">=</span> iPtr<span class="hl opt">-&gt;</span>varFramePtr<span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>flags <span class="hl opt">&amp;</span> TCL_EVAL_GLOBAL<span class="hl opt">) {</span>
	iPtr<span class="hl opt">-&gt;</span>varFramePtr <span class="hl opt">=</span> iPtr<span class="hl opt">-&gt;</span>rootFramePtr<span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Each iteration through the following loop parses the next command from</span>
<span class="hl com">     * the script and then executes it.</span>
<span class="hl com">     */</span>

    objv <span class="hl opt">=</span> objvSpace <span class="hl opt">=</span> stackObjArray<span class="hl opt">;</span>
    lines <span class="hl opt">=</span> lineSpace <span class="hl opt">=</span> linesStack<span class="hl opt">;</span>
    expand <span class="hl opt">=</span> expandStack<span class="hl opt">;</span>
    p <span class="hl opt">=</span> script<span class="hl opt">;</span>
    bytesLeft <span class="hl opt">=</span> numBytes<span class="hl opt">;</span>

    <span class="hl com">/*</span>
<span class="hl com">     * TIP #280 Initialize tracking. Do not push on the frame stack yet.</span>
<span class="hl com">     *</span>
<span class="hl com">     * We may continue counting based on a specific context (CTX), or open a</span>
<span class="hl com">     * new context, either for a sourced script, or 'eval'. For sourced files</span>
<span class="hl com">     * we always have a path object, even if nothing was specified in the</span>
<span class="hl com">     * interp itself. That makes code using it simpler as NULL checks can be</span>
<span class="hl com">     * left out. Sourced file without path in the 'scriptFile' is possible</span>
<span class="hl com">     * during Tcl initialization.</span>
<span class="hl com">     */</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>evalFlags <span class="hl opt">&amp;</span> TCL_EVAL_CTX<span class="hl opt">) {</span>
	<span class="hl com">/*</span>
<span class="hl com">	 * Path information comes out of the context.</span>
<span class="hl com">	 */</span>

	eeFramePtr<span class="hl opt">-&gt;</span>type <span class="hl opt">=</span> TCL_LOCATION_SOURCE<span class="hl opt">;</span>
	eeFramePtr<span class="hl opt">-&gt;</span>data<span class="hl opt">.</span>eval<span class="hl opt">.</span>path <span class="hl opt">=</span> iPtr<span class="hl opt">-&gt;</span>invokeCmdFramePtr<span class="hl opt">-&gt;</span>data<span class="hl opt">.</span>eval<span class="hl opt">.</span>path<span class="hl opt">;</span>
	<span class="hl kwd">Tcl_IncrRefCount</span><span class="hl opt">(</span>eeFramePtr<span class="hl opt">-&gt;</span>data<span class="hl opt">.</span>eval<span class="hl opt">.</span>path<span class="hl opt">);</span>
    <span class="hl opt">}</span> <span class="hl kwa">else if</span> <span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>evalFlags <span class="hl opt">&amp;</span> TCL_EVAL_FILE<span class="hl opt">) {</span>
	<span class="hl com">/*</span>
<span class="hl com">	 * Set up for a sourced file.</span>
<span class="hl com">	 */</span>

	eeFramePtr<span class="hl opt">-&gt;</span>type <span class="hl opt">=</span> TCL_LOCATION_SOURCE<span class="hl opt">;</span>

	<span class="hl kwa">if</span> <span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>scriptFile<span class="hl opt">) {</span>
	    <span class="hl com">/*</span>
<span class="hl com">	     * Normalization here, to have the correct pwd. Should have</span>
<span class="hl com">	     * negligible impact on performance, as the norm should have been</span>
<span class="hl com">	     * done already by the 'source' invoking us, and it caches the</span>
<span class="hl com">	     * result.</span>
<span class="hl com">	     */</span>

	    Tcl_Obj <span class="hl opt">*</span>norm <span class="hl opt">=</span> <span class="hl kwd">Tcl_FSGetNormalizedPath</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> iPtr<span class="hl opt">-&gt;</span>scriptFile<span class="hl opt">);</span>

	    <span class="hl kwa">if</span> <span class="hl opt">(</span>norm <span class="hl opt">==</span> NULL<span class="hl opt">) {</span>
		<span class="hl com">/*</span>
<span class="hl com">		 * Error message in the interp result.</span>
<span class="hl com">		 */</span>
		code <span class="hl opt">=</span> TCL_ERROR<span class="hl opt">;</span>
		<span class="hl kwa">goto</span> error<span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	    eeFramePtr<span class="hl opt">-&gt;</span>data<span class="hl opt">.</span>eval<span class="hl opt">.</span>path <span class="hl opt">=</span> norm<span class="hl opt">;</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl kwd">TclNewLiteralStringObj</span><span class="hl opt">(</span>eeFramePtr<span class="hl opt">-&gt;</span>data<span class="hl opt">.</span>eval<span class="hl opt">.</span>path<span class="hl opt">,</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">);</span>
	<span class="hl opt">}</span>
	<span class="hl kwd">Tcl_IncrRefCount</span><span class="hl opt">(</span>eeFramePtr<span class="hl opt">-&gt;</span>data<span class="hl opt">.</span>eval<span class="hl opt">.</span>path<span class="hl opt">);</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl com">/*</span>
<span class="hl com">	 * Set up for plain eval.</span>
<span class="hl com">	 */</span>

	eeFramePtr<span class="hl opt">-&gt;</span>type <span class="hl opt">=</span> TCL_LOCATION_EVAL<span class="hl opt">;</span>
	eeFramePtr<span class="hl opt">-&gt;</span>data<span class="hl opt">.</span>eval<span class="hl opt">.</span>path <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
    <span class="hl opt">}</span>

    eeFramePtr<span class="hl opt">-&gt;</span>level <span class="hl opt">=</span> iPtr<span class="hl opt">-&gt;</span>cmdFramePtr ? iPtr<span class="hl opt">-&gt;</span>cmdFramePtr<span class="hl opt">-&gt;</span>level <span class="hl opt">+</span> <span class="hl num">1</span> <span class="hl opt">:</span> <span class="hl num">1</span><span class="hl opt">;</span>
    eeFramePtr<span class="hl opt">-&gt;</span>framePtr <span class="hl opt">=</span> iPtr<span class="hl opt">-&gt;</span>framePtr<span class="hl opt">;</span>
    eeFramePtr<span class="hl opt">-&gt;</span>nextPtr <span class="hl opt">=</span> iPtr<span class="hl opt">-&gt;</span>cmdFramePtr<span class="hl opt">;</span>
    eeFramePtr<span class="hl opt">-&gt;</span>nline <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
    eeFramePtr<span class="hl opt">-&gt;</span>line <span class="hl opt">=</span> NULL<span class="hl opt">;</span>

    iPtr<span class="hl opt">-&gt;</span>evalFlags <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
    <span class="hl kwa">do</span> <span class="hl opt">{</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwd">Tcl_ParseCommand</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> p<span class="hl opt">,</span> bytesLeft<span class="hl opt">,</span> <span class="hl num">0</span><span class="hl opt">,</span> parsePtr<span class="hl opt">) !=</span> TCL_OK<span class="hl opt">) {</span>
	    code <span class="hl opt">=</span> TCL_ERROR<span class="hl opt">;</span>
	    <span class="hl kwa">goto</span> error<span class="hl opt">;</span>
	<span class="hl opt">}</span>

	<span class="hl com">/*</span>
<span class="hl com">	 * TIP #280 Track lines. The parser may have skipped text till it</span>
<span class="hl com">	 * found the command we are now at. We have to count the lines in this</span>
<span class="hl com">	 * block, and do not forget invisible continuation lines.</span>
<span class="hl com">	 */</span>

	<span class="hl kwd">TclAdvanceLines</span><span class="hl opt">(&amp;</span>line<span class="hl opt">,</span> p<span class="hl opt">,</span> parsePtr<span class="hl opt">-&gt;</span>commandStart<span class="hl opt">);</span>
	<span class="hl kwd">TclAdvanceContinuations</span> <span class="hl opt">(&amp;</span>line<span class="hl opt">, &amp;</span>clNext<span class="hl opt">,</span>
				 parsePtr<span class="hl opt">-&gt;</span>commandStart <span class="hl opt">-</span> outerScript<span class="hl opt">);</span>

	gotParse <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span>parsePtr<span class="hl opt">-&gt;</span>numWords <span class="hl opt">&gt;</span> <span class="hl num">0</span><span class="hl opt">) {</span>
	    <span class="hl com">/*</span>
<span class="hl com">	     * TIP #280. Track lines within the words of the current</span>
<span class="hl com">	     * command. We use a separate pointer into the table of</span>
<span class="hl com">	     * continuation line locations to not lose our position for the</span>
<span class="hl com">	     * per-command parsing.</span>
<span class="hl com">	     */</span>

	    <span class="hl kwb">int</span> wordLine  <span class="hl opt">=</span> line<span class="hl opt">;</span>
	    <span class="hl kwb">const char</span> <span class="hl opt">*</span>wordStart <span class="hl opt">=</span> parsePtr<span class="hl opt">-&gt;</span>commandStart<span class="hl opt">;</span>
	    <span class="hl kwb">int</span><span class="hl opt">*</span>        wordCLNext <span class="hl opt">=</span> clNext<span class="hl opt">;</span>

	    <span class="hl com">/*</span>
<span class="hl com">	     * Generate an array of objects for the words of the command.</span>
<span class="hl com">	     */</span>

	    <span class="hl kwb">unsigned int</span> objectsNeeded <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
	    <span class="hl kwb">unsigned int</span> numWords <span class="hl opt">=</span> parsePtr<span class="hl opt">-&gt;</span>numWords<span class="hl opt">;</span>

	    <span class="hl kwa">if</span> <span class="hl opt">(</span>numWords <span class="hl opt">&gt;</span> minObjs<span class="hl opt">) {</span>
		expand <span class="hl opt">= (</span><span class="hl kwb">int</span> <span class="hl opt">*)</span> <span class="hl kwd">ckalloc</span><span class="hl opt">(</span>numWords <span class="hl opt">*</span> <span class="hl kwa">sizeof</span><span class="hl opt">(</span><span class="hl kwb">int</span><span class="hl opt">));</span>
		objvSpace <span class="hl opt">= (</span>Tcl_Obj <span class="hl opt">**)</span>
			<span class="hl kwd">ckalloc</span><span class="hl opt">(</span>numWords <span class="hl opt">*</span> <span class="hl kwa">sizeof</span><span class="hl opt">(</span>Tcl_Obj <span class="hl opt">*));</span>
		lineSpace <span class="hl opt">= (</span><span class="hl kwb">int</span> <span class="hl opt">*)</span> <span class="hl kwd">ckalloc</span><span class="hl opt">(</span>numWords <span class="hl opt">*</span> <span class="hl kwa">sizeof</span><span class="hl opt">(</span><span class="hl kwb">int</span><span class="hl opt">));</span>
	    <span class="hl opt">}</span>
	    expandRequested <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
	    objv <span class="hl opt">=</span> objvSpace<span class="hl opt">;</span>
	    lines <span class="hl opt">=</span> lineSpace<span class="hl opt">;</span>

	    <span class="hl kwa">for</span> <span class="hl opt">(</span>objectsUsed <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">,</span> tokenPtr <span class="hl opt">=</span> parsePtr<span class="hl opt">-&gt;</span>tokenPtr<span class="hl opt">;</span>
		    objectsUsed <span class="hl opt">&lt;</span> numWords<span class="hl opt">;</span>
		    objectsUsed<span class="hl opt">++,</span> tokenPtr <span class="hl opt">+=</span> tokenPtr<span class="hl opt">-&gt;</span>numComponents<span class="hl opt">+</span><span class="hl num">1</span><span class="hl opt">) {</span>
		<span class="hl com">/*</span>
<span class="hl com">		 * TIP #280. Track lines to current word. Save the information</span>
<span class="hl com">		 * on a per-word basis, signaling dynamic words as needed.</span>
<span class="hl com">		 * Make the information available to the recursively called</span>
<span class="hl com">		 * evaluator as well, including the type of context (source</span>
<span class="hl com">		 * vs. eval).</span>
<span class="hl com">		 */</span>

		<span class="hl kwd">TclAdvanceLines</span><span class="hl opt">(&amp;</span>wordLine<span class="hl opt">,</span> wordStart<span class="hl opt">,</span> tokenPtr<span class="hl opt">-&gt;</span>start<span class="hl opt">);</span>
		<span class="hl kwd">TclAdvanceContinuations</span> <span class="hl opt">(&amp;</span>wordLine<span class="hl opt">, &amp;</span>wordCLNext<span class="hl opt">,</span>
					 tokenPtr<span class="hl opt">-&gt;</span>start <span class="hl opt">-</span> outerScript<span class="hl opt">);</span>
		wordStart <span class="hl opt">=</span> tokenPtr<span class="hl opt">-&gt;</span>start<span class="hl opt">;</span>

		lines<span class="hl opt">[</span>objectsUsed<span class="hl opt">] =</span> <span class="hl kwd">TclWordKnownAtCompileTime</span><span class="hl opt">(</span>tokenPtr<span class="hl opt">,</span> NULL<span class="hl opt">)</span>
			? wordLine <span class="hl opt">: -</span><span class="hl num">1</span><span class="hl opt">;</span>

		<span class="hl kwa">if</span> <span class="hl opt">(</span>eeFramePtr<span class="hl opt">-&gt;</span>type <span class="hl opt">==</span> TCL_LOCATION_SOURCE<span class="hl opt">) {</span>
		    iPtr<span class="hl opt">-&gt;</span>evalFlags <span class="hl opt">|=</span> TCL_EVAL_FILE<span class="hl opt">;</span>
		<span class="hl opt">}</span>

		code <span class="hl opt">=</span> <span class="hl kwd">TclSubstTokens</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> tokenPtr<span class="hl opt">+</span><span class="hl num">1</span><span class="hl opt">,</span>
			tokenPtr<span class="hl opt">-&gt;</span>numComponents<span class="hl opt">,</span> NULL<span class="hl opt">,</span> wordLine<span class="hl opt">,</span>
		        wordCLNext<span class="hl opt">,</span> outerScript<span class="hl opt">);</span>

		iPtr<span class="hl opt">-&gt;</span>evalFlags <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>

		<span class="hl kwa">if</span> <span class="hl opt">(</span>code <span class="hl opt">!=</span> TCL_OK<span class="hl opt">) {</span>
		    <span class="hl kwa">goto</span> error<span class="hl opt">;</span>
		<span class="hl opt">}</span>
		objv<span class="hl opt">[</span>objectsUsed<span class="hl opt">] =</span> <span class="hl kwd">Tcl_GetObjResult</span><span class="hl opt">(</span>interp<span class="hl opt">);</span>
		<span class="hl kwd">Tcl_IncrRefCount</span><span class="hl opt">(</span>objv<span class="hl opt">[</span>objectsUsed<span class="hl opt">]);</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span>tokenPtr<span class="hl opt">-&gt;</span>type <span class="hl opt">==</span> TCL_TOKEN_EXPAND_WORD<span class="hl opt">) {</span>
		    <span class="hl kwb">int</span> numElements<span class="hl opt">;</span>

		    code <span class="hl opt">=</span> <span class="hl kwd">TclListObjLength</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> objv<span class="hl opt">[</span>objectsUsed<span class="hl opt">],</span>
			    <span class="hl opt">&amp;</span>numElements<span class="hl opt">);</span>
		    <span class="hl kwa">if</span> <span class="hl opt">(</span>code <span class="hl opt">==</span> TCL_ERROR<span class="hl opt">) {</span>
			<span class="hl com">/*</span>
<span class="hl com">			 * Attempt to expand a non-list.</span>
<span class="hl com">			 */</span>

			<span class="hl kwd">Tcl_AppendObjToErrorInfo</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> <span class="hl kwd">Tcl_ObjPrintf</span><span class="hl opt">(</span>
				<span class="hl str">&quot;</span><span class="hl esc">\n</span>    <span class="hl str">(expanding word %d)&quot;</span><span class="hl opt">,</span> objectsUsed<span class="hl opt">));</span>
			<span class="hl kwd">Tcl_DecrRefCount</span><span class="hl opt">(</span>objv<span class="hl opt">[</span>objectsUsed<span class="hl opt">]);</span>
			<span class="hl kwa">goto</span> error<span class="hl opt">;</span>
		    <span class="hl opt">}</span>
		    expandRequested <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
		    expand<span class="hl opt">[</span>objectsUsed<span class="hl opt">] =</span> <span class="hl num">1</span><span class="hl opt">;</span>

		    objectsNeeded <span class="hl opt">+= (</span>numElements ? numElements <span class="hl opt">:</span> <span class="hl num">1</span><span class="hl opt">);</span>
		<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		    expand<span class="hl opt">[</span>objectsUsed<span class="hl opt">] =</span> <span class="hl num">0</span><span class="hl opt">;</span>
		    objectsNeeded<span class="hl opt">++;</span>
		<span class="hl opt">}</span>

		<span class="hl kwa">if</span> <span class="hl opt">(</span>wordCLNext<span class="hl opt">) {</span>
		    <span class="hl kwd">TclContinuationsEnterDerived</span> <span class="hl opt">(</span>objv<span class="hl opt">[</span>objectsUsed<span class="hl opt">],</span>
				  wordStart <span class="hl opt">-</span> outerScript<span class="hl opt">,</span> wordCLNext<span class="hl opt">);</span>
		<span class="hl opt">}</span>
	    <span class="hl opt">}</span> <span class="hl com">/* for loop */</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span>expandRequested<span class="hl opt">) {</span>
		<span class="hl com">/*</span>
<span class="hl com">		 * Some word expansion was requested. Check for objv resize.</span>
<span class="hl com">		 */</span>

		Tcl_Obj <span class="hl opt">**</span>copy <span class="hl opt">=</span> objvSpace<span class="hl opt">;</span>
		<span class="hl kwb">int</span> <span class="hl opt">*</span>lcopy <span class="hl opt">=</span> lineSpace<span class="hl opt">;</span>
		<span class="hl kwb">int</span> wordIdx <span class="hl opt">=</span> numWords<span class="hl opt">;</span>
		<span class="hl kwb">int</span> objIdx <span class="hl opt">=</span> objectsNeeded <span class="hl opt">-</span> <span class="hl num">1</span><span class="hl opt">;</span>

		<span class="hl kwa">if</span> <span class="hl opt">((</span>numWords <span class="hl opt">&gt;</span> minObjs<span class="hl opt">) || (</span>objectsNeeded <span class="hl opt">&gt;</span>  minObjs<span class="hl opt">)) {</span>
		    objv <span class="hl opt">=</span> objvSpace <span class="hl opt">= (</span>Tcl_Obj <span class="hl opt">**)</span>
			    <span class="hl kwd">ckalloc</span><span class="hl opt">(</span>objectsNeeded <span class="hl opt">*</span> <span class="hl kwa">sizeof</span><span class="hl opt">(</span>Tcl_Obj <span class="hl opt">*));</span>
		    lines <span class="hl opt">=</span> lineSpace <span class="hl opt">= (</span><span class="hl kwb">int</span> <span class="hl opt">*)</span>
			    <span class="hl kwd">ckalloc</span><span class="hl opt">(</span>objectsNeeded <span class="hl opt">*</span> <span class="hl kwa">sizeof</span><span class="hl opt">(</span><span class="hl kwb">int</span><span class="hl opt">));</span>
		<span class="hl opt">}</span>

		objectsUsed <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
		<span class="hl kwa">while</span> <span class="hl opt">(</span>wordIdx<span class="hl opt">--) {</span>
		    <span class="hl kwa">if</span> <span class="hl opt">(</span>expand<span class="hl opt">[</span>wordIdx<span class="hl opt">]) {</span>
			<span class="hl kwb">int</span> numElements<span class="hl opt">;</span>
			Tcl_Obj <span class="hl opt">**</span>elements<span class="hl opt">, *</span>temp <span class="hl opt">=</span> copy<span class="hl opt">[</span>wordIdx<span class="hl opt">];</span>

			<span class="hl kwd">Tcl_ListObjGetElements</span><span class="hl opt">(</span>NULL<span class="hl opt">,</span> temp<span class="hl opt">, &amp;</span>numElements<span class="hl opt">,</span>
				<span class="hl opt">&amp;</span>elements<span class="hl opt">);</span>
			objectsUsed <span class="hl opt">+=</span> numElements<span class="hl opt">;</span>
			<span class="hl kwa">while</span> <span class="hl opt">(</span>numElements<span class="hl opt">--) {</span>
			    lines<span class="hl opt">[</span>objIdx<span class="hl opt">] = -</span><span class="hl num">1</span><span class="hl opt">;</span>
			    objv<span class="hl opt">[</span>objIdx<span class="hl opt">--] =</span> elements<span class="hl opt">[</span>numElements<span class="hl opt">];</span>
			    <span class="hl kwd">Tcl_IncrRefCount</span><span class="hl opt">(</span>elements<span class="hl opt">[</span>numElements<span class="hl opt">]);</span>
			<span class="hl opt">}</span>
			<span class="hl kwd">Tcl_DecrRefCount</span><span class="hl opt">(</span>temp<span class="hl opt">);</span>
		    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
			lines<span class="hl opt">[</span>objIdx<span class="hl opt">] =</span> lcopy<span class="hl opt">[</span>wordIdx<span class="hl opt">];</span>
			objv<span class="hl opt">[</span>objIdx<span class="hl opt">--] =</span> copy<span class="hl opt">[</span>wordIdx<span class="hl opt">];</span>
			objectsUsed<span class="hl opt">++;</span>
		    <span class="hl opt">}</span>
		<span class="hl opt">}</span>
		objv <span class="hl opt">+=</span> objIdx<span class="hl opt">+</span><span class="hl num">1</span><span class="hl opt">;</span>

		<span class="hl kwa">if</span> <span class="hl opt">(</span>copy <span class="hl opt">!=</span> stackObjArray<span class="hl opt">) {</span>
		    <span class="hl kwd">ckfree</span><span class="hl opt">((</span><span class="hl kwb">char</span> <span class="hl opt">*)</span> copy<span class="hl opt">);</span>
		<span class="hl opt">}</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span>lcopy <span class="hl opt">!=</span> linesStack<span class="hl opt">) {</span>
		    <span class="hl kwd">ckfree</span><span class="hl opt">((</span><span class="hl kwb">char</span> <span class="hl opt">*)</span> lcopy<span class="hl opt">);</span>
		<span class="hl opt">}</span>
	    <span class="hl opt">}</span>

	    <span class="hl com">/*</span>
<span class="hl com">	     * Execute the command and free the objects for its words.</span>
<span class="hl com">	     *</span>
<span class="hl com">	     * TIP #280: Remember the command itself for 'info frame'. We</span>
<span class="hl com">	     * shorten the visible command by one char to exclude the</span>
<span class="hl com">	     * termination character, if necessary. Here is where we put our</span>
<span class="hl com">	     * frame on the stack of frames too. _After_ the nested commands</span>
<span class="hl com">	     * have been executed.</span>
<span class="hl com">	     */</span>

	    eeFramePtr<span class="hl opt">-&gt;</span>cmd<span class="hl opt">.</span>str<span class="hl opt">.</span>cmd <span class="hl opt">=</span> parsePtr<span class="hl opt">-&gt;</span>commandStart<span class="hl opt">;</span>
	    eeFramePtr<span class="hl opt">-&gt;</span>cmd<span class="hl opt">.</span>str<span class="hl opt">.</span>len <span class="hl opt">=</span> parsePtr<span class="hl opt">-&gt;</span>commandSize<span class="hl opt">;</span>

	    <span class="hl kwa">if</span> <span class="hl opt">(</span>parsePtr<span class="hl opt">-&gt;</span>term <span class="hl opt">==</span>
		    parsePtr<span class="hl opt">-&gt;</span>commandStart <span class="hl opt">+</span> parsePtr<span class="hl opt">-&gt;</span>commandSize <span class="hl opt">-</span> <span class="hl num">1</span><span class="hl opt">) {</span>
		eeFramePtr<span class="hl opt">-&gt;</span>cmd<span class="hl opt">.</span>str<span class="hl opt">.</span>len<span class="hl opt">--;</span>
	    <span class="hl opt">}</span>

	    eeFramePtr<span class="hl opt">-&gt;</span>nline <span class="hl opt">=</span> objectsUsed<span class="hl opt">;</span>
	    eeFramePtr<span class="hl opt">-&gt;</span>line <span class="hl opt">=</span> lines<span class="hl opt">;</span>

	    <span class="hl kwd">TclArgumentEnter</span> <span class="hl opt">(</span>interp<span class="hl opt">,</span> objv<span class="hl opt">,</span> objectsUsed<span class="hl opt">,</span> eeFramePtr<span class="hl opt">);</span>
	    iPtr<span class="hl opt">-&gt;</span>cmdFramePtr <span class="hl opt">=</span> eeFramePtr<span class="hl opt">;</span>
	    iPtr<span class="hl opt">-&gt;</span>numLevels<span class="hl opt">++;</span>
	    code <span class="hl opt">=</span> <span class="hl kwd">TclEvalObjvInternal</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> objectsUsed<span class="hl opt">,</span> objv<span class="hl opt">,</span>
		    parsePtr<span class="hl opt">-&gt;</span>commandStart<span class="hl opt">,</span> parsePtr<span class="hl opt">-&gt;</span>commandSize<span class="hl opt">,</span> <span class="hl num">0</span><span class="hl opt">);</span>
	    iPtr<span class="hl opt">-&gt;</span>numLevels<span class="hl opt">--;</span>
	    iPtr<span class="hl opt">-&gt;</span>cmdFramePtr <span class="hl opt">=</span> iPtr<span class="hl opt">-&gt;</span>cmdFramePtr<span class="hl opt">-&gt;</span>nextPtr<span class="hl opt">;</span>
	    <span class="hl kwd">TclArgumentRelease</span> <span class="hl opt">(</span>interp<span class="hl opt">,</span> objv<span class="hl opt">,</span> objectsUsed<span class="hl opt">);</span>

	    eeFramePtr<span class="hl opt">-&gt;</span>line <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
	    eeFramePtr<span class="hl opt">-&gt;</span>nline <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>

	    <span class="hl kwa">if</span> <span class="hl opt">(</span>code <span class="hl opt">!=</span> TCL_OK<span class="hl opt">) {</span>
		<span class="hl kwa">goto</span> error<span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	    <span class="hl kwa">for</span> <span class="hl opt">(</span>i <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span> i <span class="hl opt">&lt;</span> objectsUsed<span class="hl opt">;</span> i<span class="hl opt">++) {</span>
		<span class="hl kwd">Tcl_DecrRefCount</span><span class="hl opt">(</span>objv<span class="hl opt">[</span>i<span class="hl opt">]);</span>
	    <span class="hl opt">}</span>
	    objectsUsed <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span>objvSpace <span class="hl opt">!=</span> stackObjArray<span class="hl opt">) {</span>
		<span class="hl kwd">ckfree</span><span class="hl opt">((</span><span class="hl kwb">char</span> <span class="hl opt">*)</span> objvSpace<span class="hl opt">);</span>
		objvSpace <span class="hl opt">=</span> stackObjArray<span class="hl opt">;</span>
		<span class="hl kwd">ckfree</span><span class="hl opt">((</span><span class="hl kwb">char</span> <span class="hl opt">*)</span> lineSpace<span class="hl opt">);</span>
		lineSpace <span class="hl opt">=</span> linesStack<span class="hl opt">;</span>
	    <span class="hl opt">}</span>

	    <span class="hl com">/*</span>
<span class="hl com">	     * Free expand separately since objvSpace could have been</span>
<span class="hl com">	     * reallocated above.</span>
<span class="hl com">	     */</span>

	    <span class="hl kwa">if</span> <span class="hl opt">(</span>expand <span class="hl opt">!=</span> expandStack<span class="hl opt">) {</span>
		<span class="hl kwd">ckfree</span><span class="hl opt">((</span><span class="hl kwb">char</span> <span class="hl opt">*)</span> expand<span class="hl opt">);</span>
		expand <span class="hl opt">=</span> expandStack<span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span>

	<span class="hl com">/*</span>
<span class="hl com">	 * Advance to the next command in the script.</span>
<span class="hl com">	 *</span>
<span class="hl com">	 * TIP #280 Track Lines. Now we track how many lines were in the</span>
<span class="hl com">	 * executed command.</span>
<span class="hl com">	 */</span>

	next <span class="hl opt">=</span> parsePtr<span class="hl opt">-&gt;</span>commandStart <span class="hl opt">+</span> parsePtr<span class="hl opt">-&gt;</span>commandSize<span class="hl opt">;</span>
	bytesLeft <span class="hl opt">-=</span> next <span class="hl opt">-</span> p<span class="hl opt">;</span>
	p <span class="hl opt">=</span> next<span class="hl opt">;</span>
	<span class="hl kwd">TclAdvanceLines</span><span class="hl opt">(&amp;</span>line<span class="hl opt">,</span> parsePtr<span class="hl opt">-&gt;</span>commandStart<span class="hl opt">,</span> p<span class="hl opt">);</span>
	<span class="hl kwd">Tcl_FreeParse</span><span class="hl opt">(</span>parsePtr<span class="hl opt">);</span>
	gotParse <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
    <span class="hl opt">}</span> <span class="hl kwa">while</span> <span class="hl opt">(</span>bytesLeft <span class="hl opt">&gt;</span> <span class="hl num">0</span><span class="hl opt">);</span>
    iPtr<span class="hl opt">-&gt;</span>varFramePtr <span class="hl opt">=</span> savedVarFramePtr<span class="hl opt">;</span>
    code <span class="hl opt">=</span> TCL_OK<span class="hl opt">;</span>
    <span class="hl kwa">goto</span> cleanup_return<span class="hl opt">;</span>

  error<span class="hl opt">:</span>
    <span class="hl com">/*</span>
<span class="hl com">     * Generate and log various pieces of error information.</span>
<span class="hl com">     */</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>numLevels <span class="hl opt">==</span> <span class="hl num">0</span><span class="hl opt">) {</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span>code <span class="hl opt">==</span> TCL_RETURN<span class="hl opt">) {</span>
	    code <span class="hl opt">=</span> <span class="hl kwd">TclUpdateReturnInfo</span><span class="hl opt">(</span>iPtr<span class="hl opt">);</span>
	<span class="hl opt">}</span>
	<span class="hl kwa">if</span> <span class="hl opt">((</span>code <span class="hl opt">!=</span> TCL_OK<span class="hl opt">) &amp;&amp; (</span>code <span class="hl opt">!=</span> TCL_ERROR<span class="hl opt">) &amp;&amp; !</span>allowExceptions<span class="hl opt">) {</span>
	    <span class="hl kwd">ProcessUnexpectedResult</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> code<span class="hl opt">);</span>
	    code <span class="hl opt">=</span> TCL_ERROR<span class="hl opt">;</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">if</span> <span class="hl opt">((</span>code <span class="hl opt">==</span> TCL_ERROR<span class="hl opt">) &amp;&amp; !(</span>iPtr<span class="hl opt">-&gt;</span>flags <span class="hl opt">&amp;</span> ERR_ALREADY_LOGGED<span class="hl opt">)) {</span>
	commandLength <span class="hl opt">=</span> parsePtr<span class="hl opt">-&gt;</span>commandSize<span class="hl opt">;</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span>parsePtr<span class="hl opt">-&gt;</span>term <span class="hl opt">==</span> parsePtr<span class="hl opt">-&gt;</span>commandStart <span class="hl opt">+</span> commandLength <span class="hl opt">-</span> <span class="hl num">1</span><span class="hl opt">) {</span>
	    <span class="hl com">/*</span>
<span class="hl com">	     * The terminator character (such as ; or ]) of the command where</span>
<span class="hl com">	     * the error occurred is the last character in the parsed command.</span>
<span class="hl com">	     * Reduce the length by one so that the error message doesn't</span>
<span class="hl com">	     * include the terminator character.</span>
<span class="hl com">	     */</span>

	    commandLength <span class="hl opt">-=</span> <span class="hl num">1</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
	<span class="hl kwd">Tcl_LogCommandInfo</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> script<span class="hl opt">,</span> parsePtr<span class="hl opt">-&gt;</span>commandStart<span class="hl opt">,</span>
		commandLength<span class="hl opt">);</span>
    <span class="hl opt">}</span>
    iPtr<span class="hl opt">-&gt;</span>flags <span class="hl opt">&amp;= ~</span>ERR_ALREADY_LOGGED<span class="hl opt">;</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Then free resources that had been allocated to the command.</span>
<span class="hl com">     */</span>

    <span class="hl kwa">for</span> <span class="hl opt">(</span>i <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span> i <span class="hl opt">&lt;</span> objectsUsed<span class="hl opt">;</span> i<span class="hl opt">++) {</span>
	<span class="hl kwd">Tcl_DecrRefCount</span><span class="hl opt">(</span>objv<span class="hl opt">[</span>i<span class="hl opt">]);</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>gotParse<span class="hl opt">) {</span>
	<span class="hl kwd">Tcl_FreeParse</span><span class="hl opt">(</span>parsePtr<span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>objvSpace <span class="hl opt">!=</span> stackObjArray<span class="hl opt">) {</span>
	<span class="hl kwd">ckfree</span><span class="hl opt">((</span><span class="hl kwb">char</span> <span class="hl opt">*)</span> objvSpace<span class="hl opt">);</span>
	<span class="hl kwd">ckfree</span><span class="hl opt">((</span><span class="hl kwb">char</span> <span class="hl opt">*)</span> lineSpace<span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>expand <span class="hl opt">!=</span> expandStack<span class="hl opt">) {</span>
	<span class="hl kwd">ckfree</span><span class="hl opt">((</span><span class="hl kwb">char</span> <span class="hl opt">*)</span> expand<span class="hl opt">);</span>
    <span class="hl opt">}</span>
    iPtr<span class="hl opt">-&gt;</span>varFramePtr <span class="hl opt">=</span> savedVarFramePtr<span class="hl opt">;</span>

 cleanup_return<span class="hl opt">:</span>
    <span class="hl com">/*</span>
<span class="hl com">     * TIP #280. Release the local CmdFrame, and its contents.</span>
<span class="hl com">     */</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>eeFramePtr<span class="hl opt">-&gt;</span>type <span class="hl opt">==</span> TCL_LOCATION_SOURCE<span class="hl opt">) {</span>
	<span class="hl kwd">Tcl_DecrRefCount</span><span class="hl opt">(</span>eeFramePtr<span class="hl opt">-&gt;</span>data<span class="hl opt">.</span>eval<span class="hl opt">.</span>path<span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwd">TclStackFree</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> linesStack<span class="hl opt">);</span>
    <span class="hl kwd">TclStackFree</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> expandStack<span class="hl opt">);</span>
    <span class="hl kwd">TclStackFree</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> stackObjArray<span class="hl opt">);</span>
    <span class="hl kwd">TclStackFree</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> eeFramePtr<span class="hl opt">);</span>
    <span class="hl kwd">TclStackFree</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> parsePtr<span class="hl opt">);</span>

    <span class="hl kwa">return</span> code<span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl com">/*</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> *</span>
<span class="hl com"> * TclAdvanceLines --</span>
<span class="hl com"> *</span>
<span class="hl com"> *	This function is a helper which counts the number of lines in a block</span>
<span class="hl com"> *	of text and advances an external counter.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Results:</span>
<span class="hl com"> *	None.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Side effects:</span>
<span class="hl com"> *	The specified counter is advanced per the number of lines found.</span>
<span class="hl com"> *</span>
<span class="hl com"> * TIP #280</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> */</span>

<span class="hl kwb">void</span>
<span class="hl kwd">TclAdvanceLines</span><span class="hl opt">(</span>
    <span class="hl kwb">int</span> <span class="hl opt">*</span>line<span class="hl opt">,</span>
    <span class="hl kwb">const char</span> <span class="hl opt">*</span>start<span class="hl opt">,</span>
    <span class="hl kwb">const char</span> <span class="hl opt">*</span>end<span class="hl opt">)</span>
<span class="hl opt">{</span>
    <span class="hl kwc">register</span> <span class="hl kwb">const char</span> <span class="hl opt">*</span>p<span class="hl opt">;</span>

    <span class="hl kwa">for</span> <span class="hl opt">(</span>p <span class="hl opt">=</span> start<span class="hl opt">;</span> p <span class="hl opt">&lt;</span> end<span class="hl opt">;</span> p<span class="hl opt">++) {</span>
	<span class="hl kwa">if</span> <span class="hl opt">(*</span>p <span class="hl opt">==</span> <span class="hl str">'</span><span class="hl esc">\n</span><span class="hl str">'</span><span class="hl opt">) {</span>
	    <span class="hl opt">(*</span>line<span class="hl opt">)++;</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl com">/*</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> *</span>
<span class="hl com"> * TclAdvanceContinuations --</span>
<span class="hl com"> *</span>
<span class="hl com"> *	This procedure is a helper which counts the number of continuation</span>
<span class="hl com"> *	lines (CL) in a block of text using a table of CL locations and</span>
<span class="hl com"> *	advances an external counter, and the pointer into the table.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Results:</span>
<span class="hl com"> *	None.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Side effects:</span>
<span class="hl com"> *	The specified counter is advanced per the number of continuation lines</span>
<span class="hl com"> *	found.</span>
<span class="hl com"> *</span>
<span class="hl com"> * TIP #280</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> */</span>

<span class="hl kwb">void</span>
<span class="hl kwd">TclAdvanceContinuations</span> <span class="hl opt">(</span>line<span class="hl opt">,</span>clNextPtrPtr<span class="hl opt">,</span>loc<span class="hl opt">)</span>
     <span class="hl kwb">int</span><span class="hl opt">*</span> line<span class="hl opt">;</span>
     <span class="hl kwb">int</span><span class="hl opt">**</span> clNextPtrPtr<span class="hl opt">;</span>
     <span class="hl kwb">int</span> loc<span class="hl opt">;</span>
<span class="hl opt">{</span>
    <span class="hl com">/*</span>
<span class="hl com">     * Track the invisible continuation lines embedded in a script, if</span>
<span class="hl com">     * any. Here they are just spaces (already). They were removed by</span>
<span class="hl com">     * TclSubstTokens() via TclParseBackslash().</span>
<span class="hl com">     *</span>
<span class="hl com">     * *clNextPtrPtr         &lt;=&gt; We have continuation lines to track.</span>
<span class="hl com">     * **clNextPtrPtr &gt;= 0   &lt;=&gt; We are not beyond the last possible location.</span>
<span class="hl com">     * loc &gt;= **clNextPtrPtr &lt;=&gt; We stepped beyond the current cont. line.</span>
<span class="hl com">     */</span>

    <span class="hl kwa">while</span> <span class="hl opt">(*</span>clNextPtrPtr <span class="hl opt">&amp;&amp; (**</span>clNextPtrPtr <span class="hl opt">&gt;=</span> <span class="hl num">0</span><span class="hl opt">) &amp;&amp; (</span>loc <span class="hl opt">&gt;= **</span>clNextPtrPtr<span class="hl opt">)) {</span>
	<span class="hl com">/*</span>
<span class="hl com">	 * We just stepped over an invisible continuation line. Adjust the</span>
<span class="hl com">	 * line counter and step to the table entry holding the location of</span>
<span class="hl com">	 * the next continuation line to track.</span>
<span class="hl com">	 */</span>
	<span class="hl opt">(*</span>line<span class="hl opt">) ++;</span>
	<span class="hl opt">(*</span>clNextPtrPtr<span class="hl opt">) ++;</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl com">/*</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> * Note: The whole data structure access for argument location tracking is</span>
<span class="hl com"> * hidden behind these three functions. The only parts open are the lineLAPtr</span>
<span class="hl com"> * field in the Interp structure. The CFWord definition is internal to here.</span>
<span class="hl com"> * Should make it easier to redo the data structures if we find something more</span>
<span class="hl com"> * space/time efficient.</span>
<span class="hl com"> */</span>

<span class="hl com">/*</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> *</span>
<span class="hl com"> * TclArgumentEnter --</span>
<span class="hl com"> *</span>
<span class="hl com"> *	This procedure is a helper for the TIP #280 uplevel extension.</span>
<span class="hl com"> *	It enters location references for the arguments of a command to be</span>
<span class="hl com"> *	invoked. Only the first entry has the actual data, further entries</span>
<span class="hl com"> *	simply count the usage up.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Results:</span>
<span class="hl com"> *	None.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Side effects:</span>
<span class="hl com"> *	May allocate memory.</span>
<span class="hl com"> *</span>
<span class="hl com"> * TIP #280</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> */</span>

<span class="hl kwb">void</span>
<span class="hl kwd">TclArgumentEnter</span><span class="hl opt">(</span>interp<span class="hl opt">,</span>objv<span class="hl opt">,</span>objc<span class="hl opt">,</span>cfPtr<span class="hl opt">)</span>
     Tcl_Interp<span class="hl opt">*</span> interp<span class="hl opt">;</span>
     Tcl_Obj<span class="hl opt">**</span>   objv<span class="hl opt">;</span>
     <span class="hl kwb">int</span>         objc<span class="hl opt">;</span>
     CmdFrame<span class="hl opt">*</span>   cfPtr<span class="hl opt">;</span>
<span class="hl opt">{</span>
    Interp<span class="hl opt">*</span> iPtr <span class="hl opt">= (</span>Interp<span class="hl opt">*)</span> interp<span class="hl opt">;</span>
    <span class="hl kwb">int</span> <span class="hl kwa">new</span><span class="hl opt">,</span> i<span class="hl opt">;</span>
    Tcl_HashEntry<span class="hl opt">*</span> hPtr<span class="hl opt">;</span>
    CFWord<span class="hl opt">*</span> cfwPtr<span class="hl opt">;</span>

    <span class="hl kwa">for</span> <span class="hl opt">(</span>i<span class="hl opt">=</span><span class="hl num">1</span><span class="hl opt">;</span> i <span class="hl opt">&lt;</span> objc<span class="hl opt">;</span> i<span class="hl opt">++) {</span>
	<span class="hl com">/*</span>
<span class="hl com">	 * Ignore argument words without line information (= dynamic).  If</span>
<span class="hl com">	 * they are variables they may have location information associated</span>
<span class="hl com">	 * with that, either through globally recorded 'set' invokations, or</span>
<span class="hl com">	 * literals in bytecode. Eitehr way there is no need to record</span>
<span class="hl com">	 * something here.</span>
<span class="hl com">	 */</span>

	<span class="hl kwa">if</span> <span class="hl opt">(</span>cfPtr<span class="hl opt">-&gt;</span>line <span class="hl opt">[</span>i<span class="hl opt">] &lt;</span> <span class="hl num">0</span><span class="hl opt">)</span> <span class="hl kwa">continue</span><span class="hl opt">;</span>
	hPtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_CreateHashEntry</span> <span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>lineLAPtr<span class="hl opt">, (</span><span class="hl kwb">char</span><span class="hl opt">*)</span> objv<span class="hl opt">[</span>i<span class="hl opt">], &amp;</span><span class="hl kwa">new</span><span class="hl opt">);</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwa">new</span><span class="hl opt">) {</span>
           <span class="hl com">/*</span>
<span class="hl com">	    * The word is not on the stack yet, remember the current location</span>
<span class="hl com">	    * and initialize references.</span>
<span class="hl com">            */</span>
           cfwPtr <span class="hl opt">= (</span>CFWord<span class="hl opt">*)</span> <span class="hl kwd">ckalloc</span> <span class="hl opt">(</span><span class="hl kwa">sizeof</span> <span class="hl opt">(</span>CFWord<span class="hl opt">));</span>
           cfwPtr<span class="hl opt">-&gt;</span>framePtr <span class="hl opt">=</span> cfPtr<span class="hl opt">;</span>
           cfwPtr<span class="hl opt">-&gt;</span>word     <span class="hl opt">=</span> i<span class="hl opt">;</span>
           cfwPtr<span class="hl opt">-&gt;</span>refCount <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
           <span class="hl kwd">Tcl_SetHashValue</span> <span class="hl opt">(</span>hPtr<span class="hl opt">,</span> cfwPtr<span class="hl opt">);</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
           <span class="hl com">/*</span>
<span class="hl com">	    * The word is already on the stack, its current location is not</span>
<span class="hl com">            * relevant. Just remember the reference to prevent early removal.</span>
<span class="hl com">            */</span>
           cfwPtr <span class="hl opt">= (</span>CFWord<span class="hl opt">*)</span> <span class="hl kwd">Tcl_GetHashValue</span> <span class="hl opt">(</span>hPtr<span class="hl opt">);</span>
           cfwPtr<span class="hl opt">-&gt;</span>refCount <span class="hl opt">++;</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl com">/*</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> *</span>
<span class="hl com"> * TclArgumentRelease --</span>
<span class="hl com"> *</span>
<span class="hl com"> *	This procedure is a helper for the TIP #280 uplevel extension.</span>
<span class="hl com"> *	It removes the location references for the arguments of a command</span>
<span class="hl com"> *	just done. Usage is counted down, the data is removed only when</span>
<span class="hl com"> *	no user is left over.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Results:</span>
<span class="hl com"> *	None.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Side effects:</span>
<span class="hl com"> *	May release memory.</span>
<span class="hl com"> *</span>
<span class="hl com"> * TIP #280</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> */</span>

<span class="hl kwb">void</span>
<span class="hl kwd">TclArgumentRelease</span><span class="hl opt">(</span>interp<span class="hl opt">,</span>objv<span class="hl opt">,</span>objc<span class="hl opt">)</span>
     Tcl_Interp<span class="hl opt">*</span> interp<span class="hl opt">;</span>
     Tcl_Obj<span class="hl opt">**</span>   objv<span class="hl opt">;</span>
     <span class="hl kwb">int</span>         objc<span class="hl opt">;</span>
<span class="hl opt">{</span>
    Interp<span class="hl opt">*</span>        iPtr <span class="hl opt">= (</span>Interp<span class="hl opt">*)</span> interp<span class="hl opt">;</span>
    Tcl_HashEntry<span class="hl opt">*</span> hPtr<span class="hl opt">;</span>
    CFWord<span class="hl opt">*</span>        cfwPtr<span class="hl opt">;</span>
    <span class="hl kwb">int</span> i<span class="hl opt">;</span>

    <span class="hl kwa">for</span> <span class="hl opt">(</span>i<span class="hl opt">=</span><span class="hl num">1</span><span class="hl opt">;</span> i <span class="hl opt">&lt;</span> objc<span class="hl opt">;</span> i<span class="hl opt">++) {</span>
       hPtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_FindHashEntry</span> <span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>lineLAPtr<span class="hl opt">, (</span><span class="hl kwb">char</span> <span class="hl opt">*)</span> objv<span class="hl opt">[</span>i<span class="hl opt">]);</span>

       <span class="hl kwa">if</span> <span class="hl opt">(!</span>hPtr<span class="hl opt">) {</span> <span class="hl kwa">continue</span><span class="hl opt">; }</span>
       cfwPtr <span class="hl opt">= (</span>CFWord<span class="hl opt">*)</span> <span class="hl kwd">Tcl_GetHashValue</span> <span class="hl opt">(</span>hPtr<span class="hl opt">);</span>

       cfwPtr<span class="hl opt">-&gt;</span>refCount <span class="hl opt">--;</span>
       <span class="hl kwa">if</span> <span class="hl opt">(</span>cfwPtr<span class="hl opt">-&gt;</span>refCount <span class="hl opt">&gt;</span> <span class="hl num">0</span><span class="hl opt">) {</span> <span class="hl kwa">continue</span><span class="hl opt">; }</span>

       <span class="hl kwd">ckfree</span> <span class="hl opt">((</span><span class="hl kwb">char</span><span class="hl opt">*)</span> cfwPtr<span class="hl opt">);</span>
       <span class="hl kwd">Tcl_DeleteHashEntry</span> <span class="hl opt">(</span>hPtr<span class="hl opt">);</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl com">/*</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> *</span>
<span class="hl com"> * TclArgumentBCEnter --</span>
<span class="hl com"> *</span>
<span class="hl com"> *	This procedure is a helper for the TIP #280 uplevel extension.</span>
<span class="hl com"> *	It enters location references for the literal arguments of commands</span>
<span class="hl com"> *	in bytecode about to be invoked. Only the first entry has the actual</span>
<span class="hl com"> *	data, further entries simply count the usage up.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Results:</span>
<span class="hl com"> *	None.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Side effects:</span>
<span class="hl com"> *	May allocate memory.</span>
<span class="hl com"> *</span>
<span class="hl com"> * TIP #280</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> */</span>

<span class="hl kwb">void</span>
<span class="hl kwd">TclArgumentBCEnter</span><span class="hl opt">(</span>interp<span class="hl opt">,</span>objv<span class="hl opt">,</span>objc<span class="hl opt">,</span>codePtr<span class="hl opt">,</span>cfPtr<span class="hl opt">,</span>pc<span class="hl opt">)</span>
     Tcl_Interp<span class="hl opt">*</span> interp<span class="hl opt">;</span>
     Tcl_Obj<span class="hl opt">*</span>    objv<span class="hl opt">[];</span>
     <span class="hl kwb">int</span>         objc<span class="hl opt">;</span>
     <span class="hl kwb">void</span><span class="hl opt">*</span>       codePtr<span class="hl opt">;</span>
     CmdFrame<span class="hl opt">*</span>   cfPtr<span class="hl opt">;</span>
     <span class="hl kwb">int</span>         pc<span class="hl opt">;</span>
<span class="hl opt">{</span>
    Interp<span class="hl opt">*</span>        iPtr  <span class="hl opt">= (</span>Interp<span class="hl opt">*)</span> interp<span class="hl opt">;</span>
    Tcl_HashEntry<span class="hl opt">*</span> hePtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_FindHashEntry</span> <span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>lineBCPtr<span class="hl opt">, (</span><span class="hl kwb">char</span> <span class="hl opt">*)</span> codePtr<span class="hl opt">);</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>hePtr<span class="hl opt">) {</span>
	ExtCmdLoc<span class="hl opt">*</span> eclPtr <span class="hl opt">= (</span>ExtCmdLoc<span class="hl opt">*)</span> <span class="hl kwd">Tcl_GetHashValue</span> <span class="hl opt">(</span>hePtr<span class="hl opt">);</span>
	hePtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_FindHashEntry</span><span class="hl opt">(&amp;</span>eclPtr<span class="hl opt">-&gt;</span>litInfo<span class="hl opt">,</span> <span class="hl kwd">INT2PTR</span><span class="hl opt">(</span>pc<span class="hl opt">));</span>

	<span class="hl kwa">if</span> <span class="hl opt">(</span>hePtr<span class="hl opt">) {</span>
	    <span class="hl kwb">int</span>  cmd  <span class="hl opt">=</span> <span class="hl kwd">PTR2INT</span><span class="hl opt">(</span><span class="hl kwd">Tcl_GetHashValue</span><span class="hl opt">(</span>hePtr<span class="hl opt">));</span>
	    ECL<span class="hl opt">*</span> ePtr <span class="hl opt">= &amp;</span>eclPtr<span class="hl opt">-&gt;</span>loc<span class="hl opt">[</span>cmd<span class="hl opt">];</span>
	    <span class="hl kwb">int</span> word<span class="hl opt">;</span>

	    <span class="hl com">/*</span>
<span class="hl com">	     * A few truths ...</span>
<span class="hl com">	     * (1) ePtr-&gt;nline == objc</span>
<span class="hl com">	     * (2) (ePtr-&gt;line[word] &lt; 0) =&gt; !literal, for all words</span>
<span class="hl com">	     * (3) (word == 0) =&gt; !literal</span>
<span class="hl com">	     *</span>
<span class="hl com">	     * Item (2) is why we can use objv to get the literals, and do not</span>
<span class="hl com">	     * have to save them at compile time.</span>
<span class="hl com">	     */</span>

	    <span class="hl kwa">if</span> <span class="hl opt">(</span>ePtr<span class="hl opt">-&gt;</span>nline <span class="hl opt">!=</span> objc<span class="hl opt">) {</span>
		<span class="hl kwd">Tcl_Panic</span> <span class="hl opt">(</span><span class="hl str">&quot;TIP 280 data structure inconsistency&quot;</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span>

	    <span class="hl kwa">for</span> <span class="hl opt">(</span>word <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span> word <span class="hl opt">&lt;</span> objc<span class="hl opt">;</span> word<span class="hl opt">++) {</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span>ePtr<span class="hl opt">-&gt;</span>line<span class="hl opt">[</span>word<span class="hl opt">] &gt;=</span> <span class="hl num">0</span><span class="hl opt">) {</span>
		    <span class="hl kwb">int</span> isnew<span class="hl opt">;</span>
		    Tcl_HashEntry<span class="hl opt">*</span> hPtr <span class="hl opt">=</span>
			<span class="hl kwd">Tcl_CreateHashEntry</span> <span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>lineLABCPtr<span class="hl opt">,</span>
					     <span class="hl opt">(</span><span class="hl kwb">char</span><span class="hl opt">*)</span> objv<span class="hl opt">[</span>word<span class="hl opt">], &amp;</span>isnew<span class="hl opt">);</span>
		    CFWordBC<span class="hl opt">*</span> cfwPtr <span class="hl opt">= (</span>CFWordBC<span class="hl opt">*)</span> <span class="hl kwd">ckalloc</span> <span class="hl opt">(</span><span class="hl kwa">sizeof</span> <span class="hl opt">(</span>CFWordBC<span class="hl opt">));</span>

		    cfwPtr<span class="hl opt">-&gt;</span>framePtr <span class="hl opt">=</span> cfPtr<span class="hl opt">;</span>
		    cfwPtr<span class="hl opt">-&gt;</span>pc       <span class="hl opt">=</span> pc<span class="hl opt">;</span>
		    cfwPtr<span class="hl opt">-&gt;</span>word     <span class="hl opt">=</span> word<span class="hl opt">;</span>

		    <span class="hl kwa">if</span> <span class="hl opt">(</span>isnew<span class="hl opt">) {</span>
			<span class="hl com">/*</span>
<span class="hl com">			 * The word is not on the stack yet, remember the</span>
<span class="hl com">			 * current location and initialize references.</span>
<span class="hl com">			 */</span>
			cfwPtr<span class="hl opt">-&gt;</span>prevPtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
		    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
			<span class="hl com">/*</span>
<span class="hl com">			 * The object is already on the stack, however it may</span>
<span class="hl com">			 * have a different location now (literal sharing may</span>
<span class="hl com">			 * map multiple location to a single Tcl_Obj*. Save</span>
<span class="hl com">			 * the old information in the new structure.</span>
<span class="hl com">			 */</span>
			cfwPtr<span class="hl opt">-&gt;</span>prevPtr <span class="hl opt">= (</span>CFWordBC<span class="hl opt">*)</span> <span class="hl kwd">Tcl_GetHashValue</span><span class="hl opt">(</span>hPtr<span class="hl opt">);</span>
		    <span class="hl opt">}</span>

		    <span class="hl kwd">Tcl_SetHashValue</span> <span class="hl opt">(</span>hPtr<span class="hl opt">,</span> cfwPtr<span class="hl opt">);</span>
		<span class="hl opt">}</span>
	    <span class="hl opt">}</span> <span class="hl com">/* for */</span>
	<span class="hl opt">}</span> <span class="hl com">/* if */</span>
    <span class="hl opt">}</span> <span class="hl com">/* if */</span>
<span class="hl opt">}</span>

<span class="hl com">/*</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> *</span>
<span class="hl com"> * TclArgumentBCRelease --</span>
<span class="hl com"> *</span>
<span class="hl com"> *	This procedure is a helper for the TIP #280 uplevel extension.</span>
<span class="hl com"> *	It removes the location references for the literal arguments of</span>
<span class="hl com"> *	commands in bytecode just done. Usage is counted down, the data</span>
<span class="hl com"> *	is removed only when no user is left over.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Results:</span>
<span class="hl com"> *	None.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Side effects:</span>
<span class="hl com"> *	May release memory.</span>
<span class="hl com"> *</span>
<span class="hl com"> * TIP #280</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> */</span>

<span class="hl kwb">void</span>
<span class="hl kwd">TclArgumentBCRelease</span><span class="hl opt">(</span>interp<span class="hl opt">,</span>objv<span class="hl opt">,</span>objc<span class="hl opt">,</span>codePtr<span class="hl opt">,</span>pc<span class="hl opt">)</span>
     Tcl_Interp<span class="hl opt">*</span> interp<span class="hl opt">;</span>
     Tcl_Obj<span class="hl opt">*</span>    objv<span class="hl opt">[];</span>
     <span class="hl kwb">int</span>         objc<span class="hl opt">;</span>
     <span class="hl kwb">void</span><span class="hl opt">*</span>       codePtr<span class="hl opt">;</span>
     <span class="hl kwb">int</span>         pc<span class="hl opt">;</span>
<span class="hl opt">{</span>
    Interp<span class="hl opt">*</span>        iPtr  <span class="hl opt">= (</span>Interp<span class="hl opt">*)</span> interp<span class="hl opt">;</span>
    Tcl_HashEntry<span class="hl opt">*</span> hePtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_FindHashEntry</span> <span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>lineBCPtr<span class="hl opt">, (</span><span class="hl kwb">char</span> <span class="hl opt">*)</span> codePtr<span class="hl opt">);</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>hePtr<span class="hl opt">) {</span>
	ExtCmdLoc<span class="hl opt">*</span> eclPtr <span class="hl opt">= (</span>ExtCmdLoc<span class="hl opt">*)</span> <span class="hl kwd">Tcl_GetHashValue</span> <span class="hl opt">(</span>hePtr<span class="hl opt">);</span>
	hePtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_FindHashEntry</span><span class="hl opt">(&amp;</span>eclPtr<span class="hl opt">-&gt;</span>litInfo<span class="hl opt">,</span> <span class="hl kwd">INT2PTR</span><span class="hl opt">(</span>pc<span class="hl opt">));</span>

	<span class="hl kwa">if</span> <span class="hl opt">(</span>hePtr<span class="hl opt">) {</span>
	    <span class="hl kwb">int</span>  cmd  <span class="hl opt">=</span> <span class="hl kwd">PTR2INT</span><span class="hl opt">(</span><span class="hl kwd">Tcl_GetHashValue</span><span class="hl opt">(</span>hePtr<span class="hl opt">));</span>
	    ECL<span class="hl opt">*</span> ePtr <span class="hl opt">= &amp;</span>eclPtr<span class="hl opt">-&gt;</span>loc<span class="hl opt">[</span>cmd<span class="hl opt">];</span>
	    <span class="hl kwb">int</span> word<span class="hl opt">;</span>

	    <span class="hl com">/*</span>
<span class="hl com">	     * Iterate in reverse order, to properly match our pop to the push</span>
<span class="hl com">	     * in TclArgumentBCEnter().</span>
<span class="hl com">	     */</span>
	    <span class="hl kwa">for</span> <span class="hl opt">(</span>word <span class="hl opt">=</span> objc<span class="hl opt">-</span><span class="hl num">1</span><span class="hl opt">;</span> word <span class="hl opt">&gt;=</span> <span class="hl num">1</span><span class="hl opt">;</span> word<span class="hl opt">--) {</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span>ePtr<span class="hl opt">-&gt;</span>line<span class="hl opt">[</span>word<span class="hl opt">] &gt;=</span> <span class="hl num">0</span><span class="hl opt">) {</span>
		    Tcl_HashEntry<span class="hl opt">*</span> hPtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_FindHashEntry</span><span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>lineLABCPtr<span class="hl opt">,</span>
						    <span class="hl opt">(</span><span class="hl kwb">char</span> <span class="hl opt">*)</span> objv<span class="hl opt">[</span>word<span class="hl opt">]);</span>
		    <span class="hl kwa">if</span> <span class="hl opt">(</span>hPtr<span class="hl opt">) {</span>
			CFWordBC<span class="hl opt">*</span> cfwPtr <span class="hl opt">= (</span>CFWordBC<span class="hl opt">*)</span> <span class="hl kwd">Tcl_GetHashValue</span> <span class="hl opt">(</span>hPtr<span class="hl opt">);</span>

			<span class="hl kwa">if</span> <span class="hl opt">(</span>cfwPtr<span class="hl opt">-&gt;</span>prevPtr<span class="hl opt">) {</span>
			    <span class="hl kwd">Tcl_SetHashValue</span><span class="hl opt">(</span>hPtr<span class="hl opt">,</span> cfwPtr<span class="hl opt">-&gt;</span>prevPtr<span class="hl opt">);</span>
			<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
			    <span class="hl kwd">Tcl_DeleteHashEntry</span><span class="hl opt">(</span>hPtr<span class="hl opt">);</span>
			<span class="hl opt">}</span>

			<span class="hl kwd">ckfree</span><span class="hl opt">((</span><span class="hl kwb">char</span> <span class="hl opt">*)</span> cfwPtr<span class="hl opt">);</span>
		    <span class="hl opt">}</span>
		<span class="hl opt">}</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl com">/*</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> *</span>
<span class="hl com"> * TclArgumentGet --</span>
<span class="hl com"> *</span>
<span class="hl com"> *	This procedure is a helper for the TIP #280 uplevel extension.</span>
<span class="hl com"> *	It find the location references for a Tcl_Obj, if any.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Results:</span>
<span class="hl com"> *	None.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Side effects:</span>
<span class="hl com"> *	Writes found location information into the result arguments.</span>
<span class="hl com"> *</span>
<span class="hl com"> * TIP #280</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> */</span>

<span class="hl kwb">void</span>
<span class="hl kwd">TclArgumentGet</span><span class="hl opt">(</span>interp<span class="hl opt">,</span>obj<span class="hl opt">,</span>cfPtrPtr<span class="hl opt">,</span>wordPtr<span class="hl opt">)</span>
     Tcl_Interp<span class="hl opt">*</span> interp<span class="hl opt">;</span>
     Tcl_Obj<span class="hl opt">*</span>    obj<span class="hl opt">;</span>
     CmdFrame<span class="hl opt">**</span>  cfPtrPtr<span class="hl opt">;</span>
     <span class="hl kwb">int</span><span class="hl opt">*</span>        wordPtr<span class="hl opt">;</span>
<span class="hl opt">{</span>
    Interp<span class="hl opt">*</span>        iPtr <span class="hl opt">= (</span>Interp<span class="hl opt">*)</span> interp<span class="hl opt">;</span>
    Tcl_HashEntry<span class="hl opt">*</span> hPtr<span class="hl opt">;</span>
    CmdFrame<span class="hl opt">*</span>      framePtr<span class="hl opt">;</span>

    <span class="hl com">/*</span>
<span class="hl com">     * An object which either has no string rep or else is a canonical list is</span>
<span class="hl com">     * guaranteed to have been generated dynamically: bail out, this cannot</span>
<span class="hl com">     * have a usable absolute location. _Do not touch_ the information the set</span>
<span class="hl com">     * up by the caller. It knows better than us.</span>
<span class="hl com">     */</span>

    <span class="hl kwa">if</span> <span class="hl opt">((</span>obj<span class="hl opt">-&gt;</span>bytes <span class="hl opt">==</span> NULL<span class="hl opt">) ||</span> <span class="hl kwd">TclListObjIsCanonical</span><span class="hl opt">(</span>obj<span class="hl opt">)) {</span>
	<span class="hl kwa">return</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * First look for location information recorded in the argument</span>
<span class="hl com">     * stack. That is nearest.</span>
<span class="hl com">     */</span>

    hPtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_FindHashEntry</span> <span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>lineLAPtr<span class="hl opt">, (</span><span class="hl kwb">char</span> <span class="hl opt">*)</span> obj<span class="hl opt">);</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>hPtr<span class="hl opt">) {</span>
	CFWord<span class="hl opt">*</span> cfwPtr <span class="hl opt">= (</span>CFWord<span class="hl opt">*)</span> <span class="hl kwd">Tcl_GetHashValue</span> <span class="hl opt">(</span>hPtr<span class="hl opt">);</span>
	<span class="hl opt">*</span>wordPtr  <span class="hl opt">=</span> cfwPtr<span class="hl opt">-&gt;</span>word<span class="hl opt">;</span>
	<span class="hl opt">*</span>cfPtrPtr <span class="hl opt">=</span> cfwPtr<span class="hl opt">-&gt;</span>framePtr<span class="hl opt">;</span>
	<span class="hl kwa">return</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl com">/*</span>
<span class="hl com">     * Check if the Tcl_Obj has location information as a bytecode literal, in</span>
<span class="hl com">     * that stack.</span>
<span class="hl com">     */</span>

    hPtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_FindHashEntry</span> <span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>lineLABCPtr<span class="hl opt">, (</span><span class="hl kwb">char</span> <span class="hl opt">*)</span> obj<span class="hl opt">);</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>hPtr<span class="hl opt">) {</span>
	CFWordBC<span class="hl opt">*</span> cfwPtr <span class="hl opt">= (</span>CFWordBC<span class="hl opt">*)</span> <span class="hl kwd">Tcl_GetHashValue</span> <span class="hl opt">(</span>hPtr<span class="hl opt">);</span>

	framePtr <span class="hl opt">=</span> cfwPtr<span class="hl opt">-&gt;</span>framePtr<span class="hl opt">;</span>
	framePtr<span class="hl opt">-&gt;</span>data<span class="hl opt">.</span>tebc<span class="hl opt">.</span>pc <span class="hl opt">= (</span><span class="hl kwb">char</span> <span class="hl opt">*) (((</span>ByteCode<span class="hl opt">*)</span>
		framePtr<span class="hl opt">-&gt;</span>data<span class="hl opt">.</span>tebc<span class="hl opt">.</span>codePtr<span class="hl opt">)-&gt;</span>codeStart <span class="hl opt">+</span> cfwPtr<span class="hl opt">-&gt;</span>pc<span class="hl opt">);</span>
	<span class="hl opt">*</span>cfPtrPtr <span class="hl opt">=</span> cfwPtr<span class="hl opt">-&gt;</span>framePtr<span class="hl opt">;</span>
	<span class="hl opt">*</span>wordPtr  <span class="hl opt">=</span> cfwPtr<span class="hl opt">-&gt;</span>word<span class="hl opt">;</span>
	<span class="hl kwa">return</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl com">/*</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> *</span>
<span class="hl com"> * Tcl_Eval --</span>
<span class="hl com"> *</span>
<span class="hl com"> *	Execute a Tcl command in a string. This function executes the script</span>
<span class="hl com"> *	directly, rather than compiling it to bytecodes. Before the arrival of</span>
<span class="hl com"> *	the bytecode compiler in Tcl 8.0 Tcl_Eval was the main function used</span>
<span class="hl com"> *	for executing Tcl commands, but nowadays it isn't used much.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Results:</span>
<span class="hl com"> *	The return value is one of the return codes defined in tcl.h (such as</span>
<span class="hl com"> *	TCL_OK), and interp's result contains a value to supplement the return</span>
<span class="hl com"> *	code. The value of the result will persist only until the next call to</span>
<span class="hl com"> *	Tcl_Eval or Tcl_EvalObj: you must copy it or lose it!</span>
<span class="hl com"> *</span>
<span class="hl com"> * Side effects:</span>
<span class="hl com"> *	Can be almost arbitrary, depending on the commands in the script.</span>
<span class="hl com"> *</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> */</span>

<span class="hl kwb">int</span>
<span class="hl kwd">Tcl_Eval</span><span class="hl opt">(</span>
    Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>		<span class="hl com">/* Token for command interpreter (returned by</span>
<span class="hl com">				 * previous call to Tcl_CreateInterp). */</span>
    <span class="hl kwb">const char</span> <span class="hl opt">*</span>script<span class="hl opt">)</span>		<span class="hl com">/* Pointer to TCL command to execute. */</span>
<span class="hl opt">{</span>
    <span class="hl kwb">int</span> code <span class="hl opt">=</span> <span class="hl kwd">Tcl_EvalEx</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> script<span class="hl opt">, -</span><span class="hl num">1</span><span class="hl opt">,</span> <span class="hl num">0</span><span class="hl opt">);</span>

    <span class="hl com">/*</span>
<span class="hl com">     * For backwards compatibility with old C code that predates the object</span>
<span class="hl com">     * system in Tcl 8.0, we have to mirror the object result back into the</span>
<span class="hl com">     * string result (some callers may expect it there).</span>
<span class="hl com">     */</span>

    <span class="hl opt">(</span><span class="hl kwb">void</span><span class="hl opt">)</span> <span class="hl kwd">Tcl_GetStringResult</span><span class="hl opt">(</span>interp<span class="hl opt">);</span>
    <span class="hl kwa">return</span> code<span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl com">/*</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> *</span>
<span class="hl com"> * Tcl_EvalObj, Tcl_GlobalEvalObj --</span>
<span class="hl com"> *</span>
<span class="hl com"> *	These functions are deprecated but we keep them around for backwards</span>
<span class="hl com"> *	compatibility reasons.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Results:</span>
<span class="hl com"> *	See the functions they call.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Side effects:</span>
<span class="hl com"> *	See the functions they call.</span>
<span class="hl com"> *</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> */</span>

<span class="hl ppc">#undef Tcl_EvalObj</span>
<span class="hl kwb">int</span>
<span class="hl kwd">Tcl_EvalObj</span><span class="hl opt">(</span>
    Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>
    Tcl_Obj <span class="hl opt">*</span>objPtr<span class="hl opt">)</span>
<span class="hl opt">{</span>
    <span class="hl kwa">return</span> <span class="hl kwd">Tcl_EvalObjEx</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> objPtr<span class="hl opt">,</span> <span class="hl num">0</span><span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl ppc">#undef Tcl_GlobalEvalObj</span>
<span class="hl kwb">int</span>
<span class="hl kwd">Tcl_GlobalEvalObj</span><span class="hl opt">(</span>
    Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>
    Tcl_Obj <span class="hl opt">*</span>objPtr<span class="hl opt">)</span>
<span class="hl opt">{</span>
    <span class="hl kwa">return</span> <span class="hl kwd">Tcl_EvalObjEx</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> objPtr<span class="hl opt">,</span> TCL_EVAL_GLOBAL<span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl com">/*</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> *</span>
<span class="hl com"> * Tcl_EvalObjEx, TclEvalObjEx --</span>
<span class="hl com"> *</span>
<span class="hl com"> *	Execute Tcl commands stored in a Tcl object. These commands are</span>
<span class="hl com"> *	compiled into bytecodes if necessary, unless TCL_EVAL_DIRECT is</span>
<span class="hl com"> *	specified.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Results:</span>
<span class="hl com"> *	The return value is one of the return codes defined in tcl.h (such as</span>
<span class="hl com"> *	TCL_OK), and the interpreter's result contains a value to supplement</span>
<span class="hl com"> *	the return code.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Side effects:</span>
<span class="hl com"> *	The object is converted, if necessary, to a ByteCode object that holds</span>
<span class="hl com"> *	the bytecode instructions for the commands. Executing the commands</span>
<span class="hl com"> *	will almost certainly have side effects that depend on those commands.</span>
<span class="hl com"> *</span>
<span class="hl com"> * TIP #280 : Keep public API, internally extended API.</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> */</span>

<span class="hl kwb">int</span>
<span class="hl kwd">Tcl_EvalObjEx</span><span class="hl opt">(</span>
    Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>		<span class="hl com">/* Token for command interpreter (returned by</span>
<span class="hl com">				 * a previous call to Tcl_CreateInterp). */</span>
    <span class="hl kwc">register</span> Tcl_Obj <span class="hl opt">*</span>objPtr<span class="hl opt">,</span>	<span class="hl com">/* Pointer to object containing commands to</span>
<span class="hl com">				 * execute. */</span>
    <span class="hl kwb">int</span> flags<span class="hl opt">)</span>			<span class="hl com">/* Collection of OR-ed bits that control the</span>
<span class="hl com">				 * evaluation of the script. Supported values</span>
<span class="hl com">				 * are TCL_EVAL_GLOBAL and TCL_EVAL_DIRECT. */</span>
<span class="hl opt">{</span>
    <span class="hl kwa">return</span> <span class="hl kwd">TclEvalObjEx</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> objPtr<span class="hl opt">,</span> flags<span class="hl opt">,</span> NULL<span class="hl opt">,</span> <span class="hl num">0</span><span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl kwb">int</span>
<span class="hl kwd">TclEvalObjEx</span><span class="hl opt">(</span>
    Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>		<span class="hl com">/* Token for command interpreter (returned by</span>
<span class="hl com">				 * a previous call to Tcl_CreateInterp). */</span>
    <span class="hl kwc">register</span> Tcl_Obj <span class="hl opt">*</span>objPtr<span class="hl opt">,</span>	<span class="hl com">/* Pointer to object containing commands to</span>
<span class="hl com">				 * execute. */</span>
    <span class="hl kwb">int</span> flags<span class="hl opt">,</span>			<span class="hl com">/* Collection of OR-ed bits that control the</span>
<span class="hl com">				 * evaluation of the script. Supported values</span>
<span class="hl com">				 * are TCL_EVAL_GLOBAL and TCL_EVAL_DIRECT. */</span>
    <span class="hl kwb">const</span> CmdFrame <span class="hl opt">*</span>invoker<span class="hl opt">,</span>	<span class="hl com">/* Frame of the command doing the eval. */</span>
    <span class="hl kwb">int</span> word<span class="hl opt">)</span>			<span class="hl com">/* Index of the word which is in objPtr. */</span>
<span class="hl opt">{</span>
    <span class="hl kwc">register</span> Interp <span class="hl opt">*</span>iPtr <span class="hl opt">= (</span>Interp <span class="hl opt">*)</span> interp<span class="hl opt">;</span>
    <span class="hl kwb">char</span> <span class="hl opt">*</span>script<span class="hl opt">;</span>
    <span class="hl kwb">int</span> numSrcBytes<span class="hl opt">;</span>
    <span class="hl kwb">int</span> result<span class="hl opt">;</span>
    CallFrame <span class="hl opt">*</span>savedVarFramePtr<span class="hl opt">;</span><span class="hl com">/* Saves old copy of iPtr-&gt;varFramePtr in case</span>
<span class="hl com">				 * TCL_EVAL_GLOBAL was set. */</span>

    <span class="hl kwd">Tcl_IncrRefCount</span><span class="hl opt">(</span>objPtr<span class="hl opt">);</span>

    <span class="hl com">/* Pure List Optimization (no string representation). In this case, we can</span>
<span class="hl com">     * safely use Tcl_EvalObjv instead and get an appreciable improvement in</span>
<span class="hl com">     * execution speed. This is because it allows us to avoid a setFromAny</span>
<span class="hl com">     * step that would just pack everything into a string and back out again.</span>
<span class="hl com">     *</span>
<span class="hl com">     * This also preserves any associations between list elements and location</span>
<span class="hl com">     * information for such elements.</span>
<span class="hl com">     *</span>
<span class="hl com">     * This restriction has been relaxed a bit by storing in lists whether</span>
<span class="hl com">     * they are &quot;canonical&quot; or not (a canonical list being one that is either</span>
<span class="hl com">     * pure or that has its string rep derived by UpdateStringOfList from the</span>
<span class="hl com">     * internal rep).</span>
<span class="hl com">     */</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwd">TclListObjIsCanonical</span><span class="hl opt">(</span>objPtr<span class="hl opt">)) {</span>
	<span class="hl com">/*</span>
<span class="hl com">	 * TIP #280 Structures for tracking lines. As we know that this is</span>
<span class="hl com">	 * dynamic execution we ignore the invoker, even if known.</span>
<span class="hl com">	 */</span>

	<span class="hl kwb">int</span> nelements<span class="hl opt">;</span>
	Tcl_Obj <span class="hl opt">**</span>elements<span class="hl opt">, *</span>copyPtr <span class="hl opt">=</span> <span class="hl kwd">TclListObjCopy</span><span class="hl opt">(</span>NULL<span class="hl opt">,</span> objPtr<span class="hl opt">);</span>
	CmdFrame <span class="hl opt">*</span>eoFramePtr <span class="hl opt">= (</span>CmdFrame <span class="hl opt">*)</span>
		<span class="hl kwd">TclStackAlloc</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> <span class="hl kwa">sizeof</span><span class="hl opt">(</span>CmdFrame<span class="hl opt">));</span>

	eoFramePtr<span class="hl opt">-&gt;</span>type <span class="hl opt">=</span> TCL_LOCATION_EVAL_LIST<span class="hl opt">;</span>
	eoFramePtr<span class="hl opt">-&gt;</span>level <span class="hl opt">= (</span>iPtr<span class="hl opt">-&gt;</span>cmdFramePtr <span class="hl opt">==</span> NULL?  <span class="hl num">1</span> 
		<span class="hl opt">:</span> iPtr<span class="hl opt">-&gt;</span>cmdFramePtr<span class="hl opt">-&gt;</span>level <span class="hl opt">+</span> <span class="hl num">1</span><span class="hl opt">);</span>
	eoFramePtr<span class="hl opt">-&gt;</span>framePtr <span class="hl opt">=</span> iPtr<span class="hl opt">-&gt;</span>framePtr<span class="hl opt">;</span>
	eoFramePtr<span class="hl opt">-&gt;</span>nextPtr <span class="hl opt">=</span> iPtr<span class="hl opt">-&gt;</span>cmdFramePtr<span class="hl opt">;</span>

	eoFramePtr<span class="hl opt">-&gt;</span>nline <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
	eoFramePtr<span class="hl opt">-&gt;</span>line <span class="hl opt">=</span> NULL<span class="hl opt">;</span>

	eoFramePtr<span class="hl opt">-&gt;</span>cmd<span class="hl opt">.</span>listPtr  <span class="hl opt">=</span> objPtr<span class="hl opt">;</span>
	<span class="hl kwd">Tcl_IncrRefCount</span><span class="hl opt">(</span>eoFramePtr<span class="hl opt">-&gt;</span>cmd<span class="hl opt">.</span>listPtr<span class="hl opt">);</span>
	eoFramePtr<span class="hl opt">-&gt;</span>data<span class="hl opt">.</span>eval<span class="hl opt">.</span>path <span class="hl opt">=</span> NULL<span class="hl opt">;</span>

	<span class="hl com">/*</span>
<span class="hl com">	 * TIP #280 We do _not_ compute all the line numbers for the words</span>
<span class="hl com">	 * in the command. For the eval of a pure list the most sensible</span>
<span class="hl com">	 * choice is to put all words on line 1. Given that we neither</span>
<span class="hl com">	 * need memory for them nor compute anything.  'line' is left</span>
<span class="hl com">	 * NULL. The two places using this information (TclInfoFrame, and</span>
<span class="hl com">	 * TclInitCompileEnv), are special-cased to use the proper line</span>
<span class="hl com">	 * number directly instead of accessing the 'line' array.</span>
<span class="hl com">	 */</span>

	<span class="hl kwd">Tcl_ListObjGetElements</span><span class="hl opt">(</span>NULL<span class="hl opt">,</span> copyPtr<span class="hl opt">, &amp;</span>nelements<span class="hl opt">, &amp;</span>elements<span class="hl opt">);</span>

	iPtr<span class="hl opt">-&gt;</span>cmdFramePtr <span class="hl opt">=</span> eoFramePtr<span class="hl opt">;</span>
	result <span class="hl opt">=</span> <span class="hl kwd">Tcl_EvalObjv</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> nelements<span class="hl opt">,</span> elements<span class="hl opt">,</span> flags<span class="hl opt">);</span>

	<span class="hl kwd">Tcl_DecrRefCount</span><span class="hl opt">(</span>copyPtr<span class="hl opt">);</span>
	iPtr<span class="hl opt">-&gt;</span>cmdFramePtr <span class="hl opt">=</span> iPtr<span class="hl opt">-&gt;</span>cmdFramePtr<span class="hl opt">-&gt;</span>nextPtr<span class="hl opt">;</span>
	<span class="hl kwd">Tcl_DecrRefCount</span><span class="hl opt">(</span>eoFramePtr<span class="hl opt">-&gt;</span>cmd<span class="hl opt">.</span>listPtr<span class="hl opt">);</span>
	<span class="hl kwd">TclStackFree</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> eoFramePtr<span class="hl opt">);</span>
    <span class="hl opt">}</span> <span class="hl kwa">else if</span> <span class="hl opt">(</span>flags <span class="hl opt">&amp;</span> TCL_EVAL_DIRECT<span class="hl opt">) {</span>
	<span class="hl com">/*</span>
<span class="hl com">	 * We're not supposed to use the compiler or byte-code interpreter.</span>
<span class="hl com">	 * Let Tcl_EvalEx evaluate the command directly (and probably more</span>
<span class="hl com">	 * slowly).</span>
<span class="hl com">	 */</span>

	<span class="hl com">/*</span>
<span class="hl com">	 * TIP #280. Propagate context as much as we can. Especially if the</span>
<span class="hl com">	 * script to evaluate is a single literal it makes sense to look if</span>
<span class="hl com">	 * our context is one with absolute line numbers we can then track</span>
<span class="hl com">	 * into the literal itself too.</span>
<span class="hl com">	 *</span>
<span class="hl com">	 * See also tclCompile.c, TclInitCompileEnv, for the equivalent code</span>
<span class="hl com">	 * in the bytecode compiler.</span>
<span class="hl com">	 */</span>

	<span class="hl com">/*</span>
<span class="hl com">	 * Now we check if we have data about invisible continuation lines for</span>
<span class="hl com">	 * the script, and make it available to the direct script parser and</span>
<span class="hl com">	 * evaluator we are about to call, if so.</span>
<span class="hl com">	 *</span>
<span class="hl com">	 * It may be possible that the script Tcl_Obj* can be free'd while the</span>
<span class="hl com">	 * evaluator is using it, leading to the release of the associated</span>
<span class="hl com">	 * ContLineLoc structure as well. To ensure that the latter doesn't</span>
<span class="hl com">	 * happen we set a lock on it. We release this lock later in this</span>
<span class="hl com">	 * function, after the evaluator is done.  The relevant &quot;lineCLPtr&quot;</span>
<span class="hl com">	 * hashtable is managed in the file &quot;tclObj.c&quot;.</span>
<span class="hl com">	 *</span>
<span class="hl com">	 * Another important action is to save (and later restore) the</span>
<span class="hl com">	 * continuation line information of the caller, in case we are</span>
<span class="hl com">	 * executing nested commands in the eval/direct path.</span>
<span class="hl com">	 */</span>

	ContLineLoc<span class="hl opt">*</span> saveCLLocPtr <span class="hl opt">=</span> iPtr<span class="hl opt">-&gt;</span>scriptCLLocPtr<span class="hl opt">;</span>
	ContLineLoc<span class="hl opt">*</span> clLocPtr <span class="hl opt">=</span> <span class="hl kwd">TclContinuationsGet</span> <span class="hl opt">(</span>objPtr<span class="hl opt">);</span>

	<span class="hl kwa">if</span> <span class="hl opt">(</span>clLocPtr<span class="hl opt">) {</span>
	    iPtr<span class="hl opt">-&gt;</span>scriptCLLocPtr <span class="hl opt">=</span> clLocPtr<span class="hl opt">;</span>
	    <span class="hl kwd">Tcl_Preserve</span> <span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>scriptCLLocPtr<span class="hl opt">);</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    iPtr<span class="hl opt">-&gt;</span>scriptCLLocPtr <span class="hl opt">=</span> NULL<span class="hl opt">;</span>
	<span class="hl opt">}</span>

	<span class="hl kwa">if</span> <span class="hl opt">(</span>invoker <span class="hl opt">==</span> NULL<span class="hl opt">) {</span>
	    <span class="hl com">/*</span>
<span class="hl com">	     * No context, force opening of our own.</span>
<span class="hl com">	     */</span>

	    script <span class="hl opt">=</span> <span class="hl kwd">Tcl_GetStringFromObj</span><span class="hl opt">(</span>objPtr<span class="hl opt">, &amp;</span>numSrcBytes<span class="hl opt">);</span>
	    result <span class="hl opt">=</span> <span class="hl kwd">Tcl_EvalEx</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> script<span class="hl opt">,</span> numSrcBytes<span class="hl opt">,</span> flags<span class="hl opt">);</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl com">/*</span>
<span class="hl com">	     * We have an invoker, describing the command asking for the</span>
<span class="hl com">	     * evaluation of a subordinate script. This script may originate</span>
<span class="hl com">	     * in a literal word, or from a variable, etc. Using the line</span>
<span class="hl com">	     * array we now check if we have good line information for the</span>
<span class="hl com">	     * relevant word. The type of context is relevant as well. In a</span>
<span class="hl com">	     * non-'source' context we don't have to try tracking lines.</span>
<span class="hl com">	     *</span>
<span class="hl com">	     * First see if the word exists and is a literal. If not we go</span>
<span class="hl com">	     * through the easy dynamic branch. No need to perform more</span>
<span class="hl com">	     * complex invokations.</span>
<span class="hl com">	     */</span>

	    <span class="hl kwb">int</span> pc <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
	    CmdFrame <span class="hl opt">*</span>ctxPtr <span class="hl opt">= (</span>CmdFrame <span class="hl opt">*)</span>
		<span class="hl kwd">TclStackAlloc</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> <span class="hl kwa">sizeof</span><span class="hl opt">(</span>CmdFrame<span class="hl opt">));</span>

	    <span class="hl opt">*</span>ctxPtr <span class="hl opt">= *</span>invoker<span class="hl opt">;</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span>invoker<span class="hl opt">-&gt;</span>type <span class="hl opt">==</span> TCL_LOCATION_BC<span class="hl opt">) {</span>
		<span class="hl com">/*</span>
<span class="hl com">		 * Note: Type BC =&gt; ctxPtr-&gt;data.eval.path is not used.</span>
<span class="hl com">		 * ctxPtr-&gt;data.tebc.codePtr is used instead.</span>
<span class="hl com">		 */</span>

		<span class="hl kwd">TclGetSrcInfoForPc</span><span class="hl opt">(</span>ctxPtr<span class="hl opt">);</span>
		pc <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span>

	    script <span class="hl opt">=</span> <span class="hl kwd">Tcl_GetStringFromObj</span><span class="hl opt">(</span>objPtr<span class="hl opt">, &amp;</span>numSrcBytes<span class="hl opt">);</span>

	    <span class="hl kwa">if</span> <span class="hl opt">((</span>ctxPtr<span class="hl opt">-&gt;</span>nline <span class="hl opt">&lt;=</span> word<span class="hl opt">) ||</span>
		<span class="hl opt">(</span>ctxPtr<span class="hl opt">-&gt;</span>line<span class="hl opt">[</span>word<span class="hl opt">] &lt;</span> <span class="hl num">0</span><span class="hl opt">) ||</span>
		<span class="hl opt">(</span>ctxPtr<span class="hl opt">-&gt;</span>type <span class="hl opt">!=</span> TCL_LOCATION_SOURCE<span class="hl opt">)) {</span>
		<span class="hl com">/*</span>
<span class="hl com">		 * Dynamic script, or dynamic context, force our own</span>
<span class="hl com">		 * context.</span>
<span class="hl com">		 */</span>

		result <span class="hl opt">=</span> <span class="hl kwd">Tcl_EvalEx</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> script<span class="hl opt">,</span> numSrcBytes<span class="hl opt">,</span> flags<span class="hl opt">);</span>

	    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		<span class="hl com">/*</span>
<span class="hl com">		 * Absolute context to reuse.</span>
<span class="hl com">		 */</span>

		iPtr<span class="hl opt">-&gt;</span>invokeCmdFramePtr <span class="hl opt">=</span> ctxPtr<span class="hl opt">;</span>
		iPtr<span class="hl opt">-&gt;</span>evalFlags <span class="hl opt">|=</span> TCL_EVAL_CTX<span class="hl opt">;</span>

		result <span class="hl opt">=</span> <span class="hl kwd">TclEvalEx</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> script<span class="hl opt">,</span> numSrcBytes<span class="hl opt">,</span> flags<span class="hl opt">,</span>
				   ctxPtr<span class="hl opt">-&gt;</span>line<span class="hl opt">[</span>word<span class="hl opt">],</span> NULL<span class="hl opt">,</span> script<span class="hl opt">);</span>
	    <span class="hl opt">}</span>

	    <span class="hl kwa">if</span> <span class="hl opt">(</span>pc <span class="hl opt">&amp;&amp; (</span>ctxPtr<span class="hl opt">-&gt;</span>type <span class="hl opt">==</span> TCL_LOCATION_SOURCE<span class="hl opt">)) {</span>
		<span class="hl com">/*</span>
<span class="hl com">		 * Death of SrcInfo reference.</span>
<span class="hl com">		 */</span>

		<span class="hl kwd">Tcl_DecrRefCount</span><span class="hl opt">(</span>ctxPtr<span class="hl opt">-&gt;</span>data<span class="hl opt">.</span>eval<span class="hl opt">.</span>path<span class="hl opt">);</span>
	    <span class="hl opt">}</span>
	    <span class="hl kwd">TclStackFree</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> ctxPtr<span class="hl opt">);</span>
	<span class="hl opt">}</span>

	<span class="hl com">/*</span>
<span class="hl com">	 * Now release the lock on the continuation line information, if</span>
<span class="hl com">	 * any, and restore the caller's settings.</span>
<span class="hl com">	 */</span>

	<span class="hl kwa">if</span> <span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>scriptCLLocPtr<span class="hl opt">) {</span>
	    <span class="hl kwd">Tcl_Release</span> <span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>scriptCLLocPtr<span class="hl opt">);</span>
	<span class="hl opt">}</span>
	iPtr<span class="hl opt">-&gt;</span>scriptCLLocPtr <span class="hl opt">=</span> saveCLLocPtr<span class="hl opt">;</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl com">/*</span>
<span class="hl com">	 * Let the compiler/engine subsystem do the evaluation.</span>
<span class="hl com">	 *</span>
<span class="hl com">	 * TIP #280 The invoker provides us with the context for the script.</span>
<span class="hl com">	 * We transfer this to the byte code compiler.</span>
<span class="hl com">	 */</span>
	<span class="hl kwb">int</span> allowExceptions <span class="hl opt">= (</span>iPtr<span class="hl opt">-&gt;</span>evalFlags <span class="hl opt">&amp;</span> TCL_ALLOW_EXCEPTIONS<span class="hl opt">);</span>

	savedVarFramePtr <span class="hl opt">=</span> iPtr<span class="hl opt">-&gt;</span>varFramePtr<span class="hl opt">;</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span>flags <span class="hl opt">&amp;</span> TCL_EVAL_GLOBAL<span class="hl opt">) {</span>
	    iPtr<span class="hl opt">-&gt;</span>varFramePtr <span class="hl opt">=</span> iPtr<span class="hl opt">-&gt;</span>rootFramePtr<span class="hl opt">;</span>
	<span class="hl opt">}</span>

	result <span class="hl opt">=</span> <span class="hl kwd">TclCompEvalObj</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> objPtr<span class="hl opt">,</span> invoker<span class="hl opt">,</span> word<span class="hl opt">);</span>

	<span class="hl com">/*</span>
<span class="hl com">	 * If we are again at the top level, process any unusual return code</span>
<span class="hl com">	 * returned by the evaluated code.</span>
<span class="hl com">	 */</span>

	<span class="hl kwa">if</span> <span class="hl opt">(</span>iPtr<span class="hl opt">-&gt;</span>numLevels <span class="hl opt">==</span> <span class="hl num">0</span><span class="hl opt">) {</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span>result <span class="hl opt">==</span> TCL_RETURN<span class="hl opt">) {</span>
		result <span class="hl opt">=</span> <span class="hl kwd">TclUpdateReturnInfo</span><span class="hl opt">(</span>iPtr<span class="hl opt">);</span>
	    <span class="hl opt">}</span>
	    <span class="hl kwa">if</span> <span class="hl opt">((</span>result <span class="hl opt">!=</span> TCL_OK<span class="hl opt">) &amp;&amp; (</span>result <span class="hl opt">!=</span> TCL_ERROR<span class="hl opt">)</span>
		    <span class="hl opt">&amp;&amp; !</span>allowExceptions<span class="hl opt">) {</span>
		<span class="hl kwd">ProcessUnexpectedResult</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> result<span class="hl opt">);</span>
		result <span class="hl opt">=</span> TCL_ERROR<span class="hl opt">;</span>
		script <span class="hl opt">=</span> <span class="hl kwd">Tcl_GetStringFromObj</span><span class="hl opt">(</span>objPtr<span class="hl opt">, &amp;</span>numSrcBytes<span class="hl opt">);</span>
		<span class="hl kwd">Tcl_LogCommandInfo</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> script<span class="hl opt">,</span> script<span class="hl opt">,</span> numSrcBytes<span class="hl opt">);</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span>
	iPtr<span class="hl opt">-&gt;</span>evalFlags <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
	iPtr<span class="hl opt">-&gt;</span>varFramePtr <span class="hl opt">=</span> savedVarFramePtr<span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl kwd">TclDecrRefCount</span><span class="hl opt">(</span>objPtr<span class="hl opt">);</span>
    <span class="hl kwa">return</span> result<span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl com">/*</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> *</span>
<span class="hl com"> * ProcessUnexpectedResult --</span>
<span class="hl com"> *</span>
<span class="hl com"> *	Function called by Tcl_EvalObj to set the interpreter's result value</span>
<span class="hl com"> *	to an appropriate error message when the code it evaluates returns an</span>
<span class="hl com"> *	unexpected result code (not TCL_OK and not TCL_ERROR) to the topmost</span>
<span class="hl com"> *	evaluation level.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Results:</span>
<span class="hl com"> *	None.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Side effects:</span>
<span class="hl com"> *	The interpreter result is set to an error message appropriate to the</span>
<span class="hl com"> *	result code.</span>
<span class="hl com"> *</span>
<span class="hl com"> *----------------------------------------------------------------------</span>
<span class="hl com"> */</span>

<span class="hl kwb">static void</span>
<span class="hl kwd">ProcessUnexpectedResult</span><span class="hl opt">(</span>
    Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>		<span class="hl com">/* The interpreter in which the unexpected</span>
<span class="hl com">				 * result code was returned. */</span>
    <span class="hl kwb">int</span> returnCode<span class="hl opt">)</span>		<span class="hl com">/* The unexpected result code. */</span>
<span class="hl opt">{</span>
    <span class="hl kwd">Tcl_ResetResult</span><span class="hl opt">(</span>interp<span class="hl opt">);</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>returnCode <span class="hl opt">==</span> TCL_BREAK<span class="hl opt">) {</span>
	<span class="hl kwd">Tcl_AppendResult</span><span class="hl opt">(</span>interp<span class="hl opt">,</span>
		<span class="hl str">&quot;invoked</span> <span class="hl esc">\&quot;</span><span class="hl str">break</span><span class="hl esc">\&quot;</span> <span class="hl str">outside of a loop&quot;</span><span class="hl opt">,</span> NULL<span class="hl opt">);</span>
    <span class="hl opt">}</span> <span class="hl kwa">else if</span> <span class="hl opt">(</span>returnCode <span class="hl opt">==</span> TCL_CONTINUE<span class="hl opt">) {</span>
	<span class="hl kwd">Tcl_AppendResult</span><span class="hl opt">(</span>interp<span class="hl opt">,</span>
		<span class="hl str">&quot;invoked</span> <span class="hl esc">\&quot;</span><span class="hl str">continue</span><span class="hl esc">\&quot;</span> <span class="hl str">outside of a loop&quot;</span><span class="hl opt">,</span> NULL<span class="hl opt">);</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl kwd">Tcl_SetObjResult</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> <span class="hl kwd">Tcl_ObjPrintf</span><span class="hl opt">(</span>
		<span class="hl str">&quot;command returned bad code: %d&quot;</span><span class="hl opt">,</span> returnCode<span class="hl opt">));</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl com">/*</span>
<span class="hl com"> *---------------------------------------------------------------------------</span>
<span class="hl com"> *</span>
<span class="hl com"> * Tcl_ExprLong, Tcl_ExprDouble, Tcl_ExprBoolean --</span>
<span class="hl com"> *</span>
<span class="hl com"> *	Functions to evaluate an expression and return its value in a</span>
<span class="hl com"> *	particular form.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Results:</span>
<span class="hl com"> *	Each of the functions below returns a standard Tcl result. If an error</span>
<span class="hl com"> *	occurs then an error message is left in the interp's result. Otherwise</span>
<span class="hl com"> *	the value of the expression, in the appropriate form, is stored at</span>
<span class="hl com"> *	*ptr. If the expression had a result that was incompatible with the</span>
<span class="hl com"> *	desired form then an error is returned.</span>
<span class="hl com"> *</span>
<span class="hl com"> * Side effects:</span>
<span class="hl com"> *	None.</span>
<span class="hl com"> *</span>
<span class="hl com"> *---------------------------------------------------------------------------</span>
<span class="hl com"> */</span>

<span class="hl kwb">int</span>
<span class="hl kwd">Tcl_ExprLong</span><span class="hl opt">(</span>
    Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>		<span class="hl com">/* Context in which to evaluate the</span>
<span class="hl com">				 * expression. */</span>
    <span class="hl kwb">const char</span> <span class="hl opt">*</span>exprstring<span class="hl opt">,</span>	<span class="hl com">/* Expression to evaluate. */</span>
    <span class="hl kwb">long</span> <span class="hl opt">*</span>ptr<span class="hl opt">)</span>			<span class="hl com">/* Where to store result. */</span>
<span class="hl opt">{</span>
    <span class="hl kwc">register</span> Tcl_Obj <span class="hl opt">*</span>exprPtr<span class="hl opt">;</span>
    <span class="hl kwb">int</span> result <span class="hl opt">=</span> TCL_OK<span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(*</span>exprstring <span class="hl opt">==</span> <span class="hl str">'\0'</span><span class="hl opt">) {</span>
	<span class="hl com">/*</span>
<span class="hl com">	 * Legacy compatibility - return 0 for the zero-length string.</span>
<span class="hl com">	 */</span>

	<span class="hl opt">*</span>ptr <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	exprPtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_NewStringObj</span><span class="hl opt">(</span>exprstring<span class="hl opt">, -</span><span class="hl num">1</span><span class="hl opt">);</span>
	<span class="hl kwd">Tcl_IncrRefCount</span><span class="hl opt">(</span>exprPtr<span class="hl opt">);</span>
	result <span class="hl opt">=</span> <span class="hl kwd">Tcl_ExprLongObj</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> exprPtr<span class="hl opt">,</span> ptr<span class="hl opt">);</span>
	<span class="hl kwd">Tcl_DecrRefCount</span><span class="hl opt">(</span>exprPtr<span class="hl opt">);</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span>result <span class="hl opt">!=</span> TCL_OK<span class="hl opt">) {</span>
	    <span class="hl opt">(</span><span class="hl kwb">void</span><span class="hl opt">)</span> <span class="hl kwd">Tcl_GetStringResult</span><span class="hl opt">(</span>interp<span class="hl opt">);</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">return</span> result<span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwb">int</span>
<span class="hl kwd">Tcl_ExprDouble</span><span class="hl opt">(</span>
    Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>		<span class="hl com">/* Context in which to evaluate the</span>
<span class="hl com">				 * expression. */</span>
    <span class="hl kwb">const char</span> <span class="hl opt">*</span>exprstring<span class="hl opt">,</span>	<span class="hl com">/* Expression to evaluate. */</span>
    <span class="hl kwb">double</span> <span class="hl opt">*</span>ptr<span class="hl opt">)</span>		<span class="hl com">/* Where to store result. */</span>
<span class="hl opt">{</span>
    <span class="hl kwc">register</span> Tcl_Obj <span class="hl opt">*</span>exprPtr<span class="hl opt">;</span>
    <span class="hl kwb">int</span> result <span class="hl opt">=</span> TCL_OK<span class="hl opt">;</span>

    <span class="hl kwa">if</span> <span class="hl opt">(*</span>exprstring <span class="hl opt">==</span> <span class="hl str">'\0'</span><span class="hl opt">) {</span>
	<span class="hl com">/*</span>
<span class="hl com">	 * Legacy compatibility - return 0 for the zero-length string.</span>
<span class="hl com">	 */</span>

	<span class="hl opt">*</span>ptr <span class="hl opt">=</span> <span class="hl num">0.0</span><span class="hl opt">;</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	exprPtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_NewStringObj</span><span class="hl opt">(</span>exprstring<span class="hl opt">, -</span><span class="hl num">1</span><span class="hl opt">);</span>
	<span class="hl kwd">Tcl_IncrRefCount</span><span class="hl opt">(</span>exprPtr<span class="hl opt">);</span>
	result <span class="hl opt">=</span> <span class="hl kwd">Tcl_ExprDoubleObj</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> exprPtr<span class="hl opt">,</span> ptr<span class="hl opt">);</span>
	<span class="hl kwd">Tcl_DecrRefCount</span><span class="hl opt">(</span>exprPtr<span class="hl opt">);</span>
				<span class="hl com">/* Discard the expression object. */</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span>result <span class="hl opt">!=</span> TCL_OK<span class="hl opt">) {</span>
	    <span class="hl opt">(</span><span class="hl kwb">void</span><span class="hl opt">)</span> <span class="hl kwd">Tcl_GetStringResult</span><span class="hl opt">(</span>interp<span class="hl opt">);</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">return</span> result<span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwb">int</span>
<span class="hl kwd">Tcl_ExprBoolean</span><span class="hl opt">(</span>
    Tcl_Interp <span class="hl opt">*</span>interp<span class="hl opt">,</span>		<span class="hl com">/* Context in which to evaluate the</span>
<span class="hl com">				 * expression. */</span>
    <span class="hl kwb">const char</span> <span class="hl opt">*</span>exprstring<span class="hl opt">,</span>	<span class="hl com">/* Expression to evaluate. */</span>
    <span class="hl kwb">int</span> <span class="hl opt">*</span>ptr<span class="hl opt">)</span>			<span class="hl com">/* Where to store 0/1 result. */</span>
<span class="hl opt">{</span>
    <span class="hl kwa">if</span> <span class="hl opt">(*</span>exprstring <span class="hl opt">==</span> <span class="hl str">'\0'</span><span class="hl opt">) {</span>
	<span class="hl com">/*</span>
<span class="hl com">	 * An empty string. Just set the result boolean to 0 (false).</span>
<span class="hl com">	 */</span>

	<span class="hl opt">*</span>ptr <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
	<span class="hl kwa">return</span> TCL_OK<span class="hl opt">;</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl kwb">int</span> result<span class="hl opt">;</span>
	Tcl_Obj <span class="hl opt">*</span>exprPtr <span class="hl opt">=</span> <span class="hl kwd">Tcl_NewStringObj</span><span class="hl opt">(</span>exprstring<span class="hl opt">, -</span><span class="hl num">1</span><span class="hl opt">);</span>

	<span class="hl kwd">Tcl_IncrRefCount</span><span class="hl opt">(</span>exprPtr<span class="hl opt">);</span>
	result <span class="hl opt">=</span> <span class="hl kwd">Tcl_ExprBooleanObj</span><span class="hl opt">(</span>interp<span class="hl opt">,</span> exprPtr<span class="hl opt">,</span> ptr<span class="hl opt">);</span>
	<span class="hl kwd">Tcl_DecrRefCount</span><span class="hl opt">(</span>exprPtr<span class="hl opt">);</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span>result <span class="hl opt">!=</span> TCL_OK<span class="hl opt">) {</span>
	    <span class="hl com">/*</span>
<span class="hl com">	     * Move the interpreter's object result to the string result, then</span>
<span class="hl com">	     * reset the object result.</span>
<span class="hl com">	     */</span>

	    <span class="hl opt">(</span><span class="hl kwb">void</span><span class="hl opt">)</span> <span class="hl kwd">Tcl_GetStringResult</span><span class="hl opt">(</span>interp<span class="hl opt">);</span>
	<span class="hl opt">}