Category

Development Platform
Home > SourceCode/Document > Database system > MySQL > View Code
update.tcl
Package: mysql-3.23.35.tar.gz　[view]
Upload User: tsgydb
Upload Date: 2007-04-14
Package Size: 10674k
Code Size: 3k
Category:

MySQL

Development Platform:

Visual C++

update.tcl：Code Content
  1. # See the file LICENSE for redistribution information.
  2. #
  3. # Copyright (c) 1999, 2000
  4. # Sleepycat Software.  All rights reserved.
  5. #
  6. # $Id: update.tcl,v 11.9 2000/10/27 13:23:56 sue Exp $
  7. source ./include.tcl
  8. global update_dir
  9. set update_dir "$test_path/update_test"
  11. proc update { } {
  12. source ./include.tcl
  13. global update_dir
  15. foreach version [glob $update_dir/*] {
  16. regexp [^/]*$ $version version
  17. foreach method [glob $update_dir/$version/*] {
  18. regexp [^/]*$ $method method
  19. foreach file [glob $update_dir/$version/$method/*] {
  20. regexp ([^/]*).tar.gz$ $file dummy name
  21. foreach endianness {"le" "be"} {
  22. puts "Update:
  23.     $version $method $name $endianness"
  24. set ret [catch {_update $update_dir $testdir $version $method $name $endianness 1 1} message]
  25. if { $ret != 0 } {
  26. puts $message
  27. }
  28. }
  29. }
  30. }
  31. }
  32. }
  34. proc _update { source_dir temp_dir 
  35.     version method file endianness do_db_load_test do_update_test } {
  36. source include.tcl
  37. global errorInfo
  39. cleanup $temp_dir NULL
  41. exec sh -c 
  42. "gzcat $source_dir/$version/$method/$file.tar.gz | (cd $temp_dir && tar xf -)"
  44. if { $do_db_load_test } {
  45. set ret [catch 
  46.     {exec $util_path/db_load -f "$temp_dir/$file.dump" 
  47.     "$temp_dir/update.db"} message]
  48. error_check_good 
  49.     "Update load: $version $method $file $message" $ret 0
  51. set ret [catch 
  52.     {exec $util_path/db_dump -f "$temp_dir/update.dump" 
  53.     "$temp_dir/update.db"} message]
  54. error_check_good 
  55.     "Update dump: $version $method $file $message" $ret 0
  57. error_check_good "Update diff.1.1: $version $method $file" 
  58.     [filecmp "$temp_dir/$file.dump" "$temp_dir/update.dump"] 0
  59. error_check_good 
  60.     "Update diff.1.2: $version $method $file" $ret ""
  61. }
  63. if { $do_update_test } {
  64. set ret [catch 
  65.     {berkdb open -update "$temp_dir/$file-$endianness.db"} db]
  66. if { $ret == 1 } {
  67. if { ![is_substr $errorInfo "version upgrade"] } {
  68. set fnl [string first "n" $errorInfo]
  69. set theError 
  70.     [string range $errorInfo 0 [expr $fnl - 1]]
  71. error $theError
  72. }
  73. } else {
  74. error_check_good dbopen [is_valid_db $db] TRUE
  75. error_check_good dbclose [$db close] 0
  77. set ret [catch 
  78.     {exec $util_path/db_dump -f 
  79.     "$temp_dir/update.dump" 
  80.     "$temp_dir/$file-$endianness.db"} message]
  81. error_check_good "Update
  82.     dump: $version $method $file $message" $ret 0
  84. error_check_good 
  85.     "Update diff.2: $version $method $file" 
  86.     [filecmp "$temp_dir/$file.dump" 
  87.     "$temp_dir/update.dump"] 0
  88. error_check_good 
  89.     "Update diff.2: $version $method $file" $ret ""
  90. }
  91. }
  92. }