#   Copyright (C) 1998 Cygnus Solutions
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.

# Please email any bugs, comments, and/or additions to this file to:
# bug-gdb@prep.ai.mit.edu

# This file was written by Keith Seitz (keiths@cygnus.com)

# Read in the standard defs file

if {![gdbtk_read_defs]} {
  break
}

global objdir test_ran

#####                            #####
#                                    #
#  Helper functions for this module  #
#                                    #
#####                            #####

# Set the search expression
proc set_regexp {exp} {
  global Regexp

  $Regexp delete 0 end
  $Regexp insert 0 $exp
}

# Do the search; attempts to filter out compiler noise
# like _DYNAMIC_ and __bss_start.
proc do_search {} {
  global browser Funcs

  $browser search
  set m [$Funcs get 0 end]

  # Bogus -- we could get things like _DYNAMIC, __bss_start, etc...
  set matches {}
  foreach a $m {
    if {![regexp ^_.* $a]} {
      lappend matches $a
    }
  }
  return $matches
}

# Set search on static functions only.
proc set_static_only {on} {
  if {$on} {
    pref set gdb/search/static 1
  } else {
    pref set gdb/search/static 0
  }
}

# Set search to use regular expressions.
proc set_use_regexp {on} {
  if {$on} {
    pref set gdb/search/use_regexp 1
  } else {
    pref set gdb/search/use_regexp 0
  }
}

#####         #####
#                 #
#  BROWSER TESTS  #
#                 #
#####         #####

# Load the test executable
set file [file join $objdir stack]
gdb_cmd "file $file"

# Open a browser
set browser [manage open browser]
set Files [$browser test_get FilesLB]
set Funcs [$browser test_get FuncsLB]
set Regexp [$browser test_get Regexp]

# Test:  browser-1.1
# Desc:  Check file listbox contents
gdbtk_test browser-1.1 {file listbox contents} {
  $Files get 0 end
} {stack1.c stack2.c}

# Test:  browser-2.1
# Desc:  Check all files/all funcs
gdbtk_test browser-2.1 {all files/all funcs} {
  set_regexp ""
  do_search
} {extern_func1_1 extern_func1_10 extern_func1_11 extern_func1_12 extern_func1_13 extern_func1_14 extern_func1_15 extern_func1_2 extern_func1_3 extern_func1_4 extern_func1_5 extern_func1_6 extern_func1_7 extern_func1_8 extern_func1_9 func_1 func_10 func_11 func_12 func_13 func_14 func_15 func_2 func_3 func_4 func_5 func_6 func_7 func_8 func_9 main static_func_1 static_func_10 static_func_11 static_func_12 static_func_13 static_func_14 static_func_15 static_func_2 static_func_3 static_func_4 static_func_5 static_func_6 static_func_7 static_func_8 static_func_9}

# Test:  browser-2.2
# Desc:  Check all functions in stack1.c
gdbtk_test browser-2.2 {all functions in stack1.c} {
  set_regexp ""
  $Files selection set 0
  do_search
} {func_1 func_10 func_11 func_12 func_13 func_14 func_15 func_2 func_3 func_4 func_5 func_6 func_7 func_8 func_9 main static_func_1 static_func_10 static_func_11 static_func_12 static_func_13 static_func_14 static_func_15 static_func_2 static_func_3 static_func_4 static_func_5 static_func_6 static_func_7 static_func_8 static_func_9}
if {$test_ran} {
  $Files selection clear 0 end
}

# Test:  browser-2.3
# Desc:  Check all functions in stack2.c
gdbtk_test browser-2.3 {all functions in stack2.c} {
  set_regexp ""
  $Files selection set 1
  do_search
} {extern_func1_1 extern_func1_10 extern_func1_11 extern_func1_12 extern_func1_13 extern_func1_14 extern_func1_15 extern_func1_2 extern_func1_3 extern_func1_4 extern_func1_5 extern_func1_6 extern_func1_7 extern_func1_8 extern_func1_9}
if {$test_ran} {
  $Files selection clear 0 end
}

# Test:  browser-2.4
# Desc:  Check for all functions matching "func"
gdbtk_test browser-2.4 {all functions matching "func"} {
  set_regexp func
  do_search
} {func_1 func_10 func_11 func_12 func_13 func_14 func_15 func_2 func_3 func_4 func_5 func_6 func_7 func_8 func_9}

# Test:  browser-2.5
# Desc:  Check all functions matching "func" in stack1.c
gdbtk_test browser-2.5 {all functions matching "func" in stack1.c} {
  set_regexp func
  $Files selection set 0
  do_search
} {func_1 func_10 func_11 func_12 func_13 func_14 func_15 func_2 func_3 func_4 func_5 func_6 func_7 func_8 func_9}
if {$test_ran} {
  $Files selection clear 0 end
}

# Test:  browser-2.6
# Desc:  Check all functions matching "funcs" in stack2.c
gdbtk_test browser-2.6 {all functions matching "func" in stack2.c} {
  set_regexp func
  $Files selection set 1
  do_search
} {}
if {$test_ran} {
  $Files selection clear 0 end
}

# Test:  browser-2.7
# Desc:  Check all functions matching "foobar"
gdbtk_test browser-2.7 {all functions matching "foobar"} {
  set_regexp foobar
  do_search
} {}

# Test:  browser-2.8
# Desc:  Check all functions matching "foobar" in stack1.c
gdbtk_test browser-2.8 {functions matching "foobar" in stack1.c} {
  set_regexp foobar
  $Files selection set 0
  do_search
} {}
if {$test_ran} {
  $Files selection clear 0 end
}

# Test:  browser-2.9
# Desc:  Check all functions matching "foobar" in stack2.c
gdbtk_test browser-2.9 {functions matching "foobar" in stack2.c} {
  set_regexp foobar
  $Files selection set 1
  do_search
} {}
if {$test_ran} {
  $Files selection clear 0 end
}

# Test:  browser-2.10
# Desc:  Check all functions matching regexp "func"
gdbtk_test browser-2.10 {all functions matching regexp "func"} {
  set_regexp func
  set_use_regexp 1
  do_search
} {extern_func1_1 extern_func1_10 extern_func1_11 extern_func1_12 extern_func1_13 extern_func1_14 extern_func1_15 extern_func1_2 extern_func1_3 extern_func1_4 extern_func1_5 extern_func1_6 extern_func1_7 extern_func1_8 extern_func1_9 func_1 func_10 func_11 func_12 func_13 func_14 func_15 func_2 func_3 func_4 func_5 func_6 func_7 func_8 func_9 static_func_1 static_func_10 static_func_11 static_func_12 static_func_13 static_func_14 static_func_15 static_func_2 static_func_3 static_func_4 static_func_5 static_func_6 static_func_7 static_func_8 static_func_9}
if {$test_ran} {
  set_use_regexp 0
}

# Test:  browser-2.11
# Desc:  Check all functions matching regexp "func" in stack1.c
gdbtk_test browser-2.11 {all functions matching regexp "func" in stack1.c} {
  set_regexp func
  set_use_regexp 1
  $Files selection set 0
  do_search
} {func_1 func_10 func_11 func_12 func_13 func_14 func_15 func_2 func_3 func_4 func_5 func_6 func_7 func_8 func_9 static_func_1 static_func_10 static_func_11 static_func_12 static_func_13 static_func_14 static_func_15 static_func_2 static_func_3 static_func_4 static_func_5 static_func_6 static_func_7 static_func_8 static_func_9}
if {$test_ran} {
  set_use_regexp 0
  $Files selection clear 0 end
}

# Test:  browser-2.12
# Desc:  Check all functions matching regexp "func" in stack2.c
gdbtk_test browser-2.12 {all functions matching regexp "func" in stack2.c} {
  set_regexp func
  set_use_regexp 1
  $Files selection set 1
  do_search
} {extern_func1_1 extern_func1_10 extern_func1_11 extern_func1_12 extern_func1_13 extern_func1_14 extern_func1_15 extern_func1_2 extern_func1_3 extern_func1_4 extern_func1_5 extern_func1_6 extern_func1_7 extern_func1_8 extern_func1_9}
if {$test_ran} {
  set_use_regexp 0
  $Files selection clear 0 end
}

# Test:  browser-2.13
# Desc:  Check all functions matching regexp "\_1$"
gdbtk_test browser-2.13 {all functions matching regexp "\_1$"} {
  set_regexp {\_1$}
  set_use_regexp 1
  do_search
} {extern_func1_1 func_1 static_func_1}
if {$test_ran} {
  set_use_regexp 0
}

# Test:  browser-2.14
# Desc:  Check all functions matching regexp "\_1$" in stack1.c
gdbtk_test browser-2.14 {all functions matching regexp "\_1$" in stack1.c} {
  set_regexp {\_1$}
  set_use_regexp 1
  $Files selection set 0
  do_search
} {func_1 static_func_1}
if {$test_ran} {
  $Files selection clear 0 end
  set_use_regexp 0
}

# Test:  browser-2.15
# Desc:  Check all functions matching regexp "\_1$" in stack2.c
gdbtk_test browser-2.15 {all functions matching regexp "\_1$" in stack2.c} {
  set_regexp {\_1$}
  set_use_regexp 1
  $Files selection set 1
  do_search
} {extern_func1_1}
if {$test_ran} {
  $Files selection clear 0 end
  set_use_regexp 0
}

# Test:  browser-2.16
# Desc:  Check all functions matching regexp "foobar"
gdbtk_test browser-2.16 {all functions matching regexp "foobar"} {
  set_regexp foobar
  set_use_regexp 1
  do_search
} {}
if {$test_ran} {
  set_use_regexp 0
}

# Test:  browser-2.17
# Desc:  Check all functions matching regexp "foobar" in stack1.c
gdbtk_test browser-2.17 {all functions matching regexp "foobar" in stack1.c} {
  set_regexp foobar
  set_use_regexp 1
  $Files selection set 0
  do_search
} {}
if {$test_ran} {
  set_use_regexp 0
  $Files selection clear 0 end
}

# Test:  browser-2.18
# Desc:  Check all functions matching regexp "foobar"
gdbtk_test browser-2.18 {all functions matching regexp "foobar"} {
  set_regexp foobar
  set_use_regexp 1
  $Files selection set 1
  do_search
} {}
if {$test_ran} {
  set_use_regexp 0
  $Files selection clear 0 end
}

# Test:  browser-3.1
# Desc:  Check all static funcs
gdbtk_test browser-3.1 {all static funcs} {
  set_static_only 1
  set_regexp ""
  do_search
} {static_func_1 static_func_10 static_func_11 static_func_12 static_func_13 static_func_14 static_func_15 static_func_2 static_func_3 static_func_4 static_func_5 static_func_6 static_func_7 static_func_8 static_func_9}
if {$test_ran} {
  set_static_only 0
}

# Test:  browser-3.2
# Desc:  Check all static functions in stack1.c
gdbtk_test browser-3.2 {all static functions in stack1.c} {
  set_regexp ""
  $Files selection set 0
  set_static_only 1
  do_search
} {static_func_1 static_func_10 static_func_11 static_func_12 static_func_13 static_func_14 static_func_15 static_func_2 static_func_3 static_func_4 static_func_5 static_func_6 static_func_7 static_func_8 static_func_9}
if {$test_ran} {
  $Files selection clear 0 end
  set_static_only 0
}

# Test:  browser-3.3
# Desc:  Check all static functions in stack2.c
gdbtk_test browser-3.3 {all static functions in stack2.c} {
  set_regexp ""
  set_static_only 1
  $Files selection set 1
  do_search
} {}
if {$test_ran} {
  set_static_only 0
  $Files selection clear 0 end
}

# Test:  browser-3.4
# Desc:  Check for all static functions matching "func"
gdbtk_test browser-3.4 {all static functions matching "func"} {
  set_regexp func
  set_static_only 1
  do_search
} {}
if {$test_ran} {
  set_static_only 0
}

# Test:  browser-3.5
# Desc:  Check for all static functions matching "func" in stack1.c
gdbtk_test browser-3.5 {all static functions matching "func" in stack1.c} {
  set_regexp func
  set_static_only 1
  $Files selection set 0
  do_search
} {}
if {$test_ran} {
  set_static_only 0
  $Files selection clear 0 end
}

# Test:  browser-3.6
# Desc:  Check all static functions matching "func" in stack2.c
gdbtk_test browser-3.6 {all static functions matching "func" in stack2.c} {
  set_regexp func
  set_static_only 1
  $Files selection set 1
  do_search
} {}
if {$test_ran} {
  set_static_only 0
  $Files selection clear 0 end
}

# Test:  browser-3.7
# Desc:  Check all static functions matching "foobar"
gdbtk_test browser-3.7 {all static functions matching "foobar"} {
  set_regexp foobar
  set_static_only 1
  do_search
} {}
if {$test_ran} {
  set_static_only 0
}

# Test:  browser-3.8
# Desc:  Check all static functions matching "foobar" in stack1.c
gdbtk_test browser-3.8 {all static functions matching "foobar" in stack1.c} {
  set_regexp foobar
  set_static_only 1
  $Files selection set 0
  do_search
} {}
if {$test_ran} {
  set_static_only 0
  $Files selection clear 0 end
}

# Test:  browser-3.9
# Desc:  Check all static functions matching "foobar" in stack2.c
gdbtk_test browser-3.9 {all static functions matching "foobar" stack2.c} {
  set_regexp foobar
  set_static_only 1
  $Files selection set 1
  do_search
} {}
if {$test_ran} {
  set_static_only 0
  $Files selection clear 0 end
}

# Test:  browser-3.10
# Desc:  Check all static functions matching regexp "func"
gdbtk_test browser-3.10 {all static functions matching regexp "func"} {
  set_regexp func
  set_static_only 1
  set_use_regexp 1
  do_search
} {static_func_1 static_func_10 static_func_11 static_func_12 static_func_13 static_func_14 static_func_15 static_func_2 static_func_3 static_func_4 static_func_5 static_func_6 static_func_7 static_func_8 static_func_9}
if {$test_ran} {
  set_use_regexp 0
  set_static_only 0
}

# Test:  browser-3.11
# Desc:  Check all static functions matching regexp "func" in stack1.c
gdbtk_test browser-3.11 {all static functions matching regexp "func" in stack1.c} {
  set_regexp func
  set_static_only 1
  set_use_regexp 1
  $Files selection set 0
  do_search
} {static_func_1 static_func_10 static_func_11 static_func_12 static_func_13 static_func_14 static_func_15 static_func_2 static_func_3 static_func_4 static_func_5 static_func_6 static_func_7 static_func_8 static_func_9}
if {$test_ran} {
  set_use_regexp 0
  set_static_only 0
  $Files selection clear 0 end
}

# Test:  browser-3.12
# Desc:  Check all static functions matching regexp "func" in stack2.c
gdbtk_test browser-3.12 {all static functions matching regexp "func" in stack2.c} {
  set_regexp func
  set_static_only 1
  set_use_regexp 1
  $Files selection set 1
  do_search
} {}
if {$test_ran} {
  set_use_regexp 0
  set_static_only 0
  $Files selection clear 0 end
}

# Test:  browser-3.13
# Desc:  Check all static functions matching regexp "\_1$"
gdbtk_test browser-3.13 {all static functions matching regexp "\_1$"} {
  set_regexp {\_1$}
  set_static_only 1
  set_use_regexp 1
  do_search
} {static_func_1}
if {$test_ran} {
  set_static_only 0
  set_use_regexp 0
}

# Test:  browser-3.14
# Desc:  Check all static functions matching regexp "\_1$" in stack1.c
gdbtk_test browser-3.14 {all static functions matching regexp "\_1$" in stack1.c} {
  set_regexp {\_1$}
  set_static_only 1
  set_use_regexp 1
  $Files selection set 0
  do_search
} {static_func_1}
if {$test_ran} {
  set_use_regexp 0
  set_static_only 0
  $Files selection clear 0 end
}

# Test:  browser-3.15
# Desc:  Check all static functions matching regexp "\_1$" in stack2.c
gdbtk_test browser-3.15 {all static functions matching regexp "\_1$" in stack2.c} {
  set_regexp {\_1$}
  set_static_only 1
  set_use_regexp 1
  $Files selection set 1
  do_search
} {}
if {$test_ran} {
  set_use_regexp 0
  set_static_only 0
  $Files selection clear 0 end
}

# Test:  browser-3.16
# Desc:  Check all static functions matching regexp "foobar"
gdbtk_test browser-3.16 {all static functions matching regexp "foobar"} {
  set_regexp foobar
  set_use_regexp 1
  set_static_only 1
  do_search
} {}
if {$test_ran} {
  set_static_only 0
  set_use_regexp 0
}

# Test:  browser-3.17
# Desc:  Check all static functions matching regexp "foobar" in stack1.c
gdbtk_test browser-3.17 {all static functions matching regexp "foobar" in stack1.c} {
  set_regexp foobar
  set_use_regexp 1
  set_static_only 1
  $Files selection set 0
  do_search
} {}
if {$test_ran} {
  set_static_only 0
  set_use_regexp 0
  $Files selection clear 0 end
}

# Test:  browser-3.18
# Desc:  Check all static functions matching regexp "foobar" in stack2.c
gdbtk_test browser-3.18 {all static functions matching regexp "foobar" in stack2.c} {
  set_regexp foobar
  set_static_only 1
  set_use_regexp 1
  $Files selection set 1
  do_search
} {}
if {$test_ran} {
  set_static_only 0
  set_use_regexp 0
  $Files selection clear 0 end
}

set select [$browser test_get Select]
# Test:  browser-4.1
# Desc:  Check select button text initial
gdbtk_test browser-4.1 {select all files button initial text} {
  $select cget -text
} {Select All}

# Test:  browser-4.2
# Desc:  Check select button function
gdbtk_test browser-4.2 {select button - select all} {
  $select invoke
  $Files curselection
} {0 1}
if {$test_ran} {
  $Files selection clear 0 end
  $select invoke
}

# Test:  browser-4.3
# Desc:  Check select button text
gdbtk_test browser-4.3 {select button text - select none} {
  $select invoke
  $select cget -text
} {Select None}
if {$test_ran} {
  $select invoke
}

# Test:  browser-4.4
# Desc:  Check select button function
gdbtk_test browser-4.4 {select button - select none} {
  $select invoke
  $select invoke
  $Files curselection
} {}

# Test:  browser-4.5
# Desc:  Check select button text
gdbtk_test browser-4.5 {select button text - flip} {
  $select invoke
  $select invoke
  $select cget -text
} {Select All}

# Test:  browser-5.1
# Desc:  Toggle all bps on
gdbtk_test browser-5.1 {toggle_all_bp on} {
  set_regexp {\_1$}
  set_use_regexp 1
  do_search
  $browser toggle_all_bp

  set_regexp .*
  set funcs [do_search]
  set bps {}
  foreach f $funcs {
    if {[bp_exists [gdb_loc $f]] != -1} {
      lappend bps 1
    } else {
      lappend bps 0
    }
  }
  set bps
} {1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0}
if {$test_ran} {
  set_use_regexp 0
  for {set i 0} {$i < 20} {incr i} {
    catch {gdb_cmd "delete $i"}
  }
}

# Test:  browser-5.2
# Desc:  Toggle all bps off
gdbtk_test browser-5.2 {toggle_all_bp off} {
  set_regexp {\_1$}
  set_use_regexp 1
  do_search
  $browser toggle_all_bp

  # Turn on bps
  set_regexp .*
  set funcs [do_search]

  # Turn off all static bps
  set_regexp {\_1$}
  set_static_only 1
  do_search
  $browser toggle_all_bp
  set bps {}
  foreach f $funcs {
    if {[bp_exists [gdb_loc $f]] != -1} {
      lappend bps 1
    } else {
      lappend bps 0
    }
  }
  set bps
} {1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0}
if {$test_ran} {
  set_static_only 0
  set_use_regexp 0
  for {set i 0} {$i < 20} {incr i} {
    catch {gdb_cmd "delete $i"}
  }
}

# Test:  browser-6.1
# Desc:  Check that search expressions are saved
gdbtk_test browser-6.1 {save last search expression} {
  set_regexp hello
  do_search
  pref get gdb/search/last_symbol
} {hello}

#
#  Exit
#
gdbtk_test_done