# search.sh - Some search commands
#
#   Copyright (C) 2009, 2010 Rocky Bernstein
#   <rocky@gnu.org>
#
#   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, 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; see the file COPYING.  If not, write to
#   the Free Software Foundation, 59 Temple Place, Suite 330, Boston,
#   MA 02111 USA.  

_Dbg_help_add 'reverse' \
'?search

Search backword and list line of a script.' 

proc _Dbg_do_reverse {
  typeset delim_search_pat = $1
  if sh-expr ' $# < 1 '  {
    _Dbg_errmsg "Need a search pattern"
    return 1
  }
  shift

  match $delim_search_pat {
    with [?] 
      
    with [?]* 
      typeset -a word = ''
      setglobal word = '('$(_Dbg_split '?' $delim_search_pat))
      setglobal _Dbg_last_search_pat = $(word[0])
      
    # Error
    with * 
      setglobal _Dbg_last_search_pat = $delim_search_pat
  }
  typeset -i i = ''
  for (( i=_Dbg_listline-1; i > 0 ; i-- )) ; do
    _Dbg_get_source_line $i "$_Dbg_frame_last_filename"
    eval "$_seteglob"
    if [[ $_Dbg_source_line == *$_Dbg_last_search_pat* ]] ; then
      eval "$_resteglob"
      _Dbg_do_list $i 1
      _Dbg_listline=$i
      _Dbg_last_cmd='search'
      return 0
    fi
    eval "$_resteglob"
  done
  _Dbg_msg "search pattern: $_Dbg_last_search_pat not found."
  return 1

}

_Dbg_help_add 'search' \
'/search/ -- Search forward and list line of a script.' 

# /search/
proc _Dbg_do_search {
  typeset delim_search_pat = $(1)
  if sh-expr ' $# < 1 '  {
    _Dbg_errmsg "Need a search pattern"
    return 1
  }
  shift
  typeset search_pat = ''
  match $delim_search_pat {
    with / 
      
    with /* 
      typeset -a word = ''
      setglobal word = '('$(_Dbg_split '/' $delim_search_pat))
      setglobal _Dbg_last_search_pat = $(word[0])
      
    with * 
      setglobal _Dbg_last_search_pat = $delim_search_pat
  }

  typeset max_line = ''
  setglobal max_line = $[_Dbg_get_maxline $_Dbg_frame_last_filename]

  typeset -i i = ''
  for (( i=_Dbg_listline+1; i < max_line ; i++ )) ; do
    _Dbg_get_source_line $i "$_Dbg_frame_last_filename"
    eval "$_seteglob"
    if [[ $_Dbg_source_line == *$_Dbg_last_search_pat* ]] ; then
      eval "$_resteglob"
      _Dbg_do_list $i 1
      _Dbg_listline=$i
      # _Dbg_last_cmd='/'
      return 0
    fi
    eval "$_resteglob"
  done
  _Dbg_errmsg "search pattern: $_Dbg_last_search_pat not found."
  return 1

}