# -*- shell-script -*-
# gdb-like "run" debugger command
#
#   Copyright (C) 2002-2004, 2006, 2008-2010, 2016 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.

# Restart script in same way with saved arguments (probably the same
# ones as we were given before).

_Dbg_help_add run \
'**run** [*args*]

Attempt to restart the program via an exec call.

See also:
---------

**set args**, **kill** and **quit**'

proc _Dbg_do_run {
    typeset script_args
    # We need to escape any embedded blanks in script_args and such.
    if sh-expr ' $# == 0 )' {
	printf -v script_args "%q " $(_Dbg_orig_script_args[@])
    } else {
	printf -v script_args "%q " @Argv
    }

    typeset exec_cmd_prefix="$_Dbg_orig_0"
    if sh-expr ' _Dbg_script )' {
	test -z $BASH && setglobal BASH = ''bash''
        typeset bash_opt=''
        # case  $_Dbg_orig_0 in
        # bashdb | */bashdb )
        #     bash_opt='--debugger ' ;;
        # esac
	if [[ $_Dbg_frame_last_filename == $_Dbg_bogus_file ]]  {
	    setglobal script_args = ""$(bash_opt)-c \"$_Dbg_EXECUTION_STRING"\""
	} else {
	    setglobal script_args = ""$(bash_opt)$_Dbg_orig_0 $script_args"";
	}
	setglobal exec_cmd_prefix = $BASH
    } elif [[ -n "$BASH" ]]  {
	local exec_cmd_prefix="$BASH $_Dbg_orig_0"
    }

    _Dbg_msg "Restarting with: $script_args"

    # If we are in a subshell we need to get out of those levels
    # first before we restart. The strategy is to write into persistent
    # storage the restart command, and issue a "quit." The quit should
    # discover the restart at the last minute and issue the restart.
    if sh-expr ' BASH_SUBSHELL > 0 )' {
	_Dbg_msg "Note you are in a subshell. We will need to leave that first."
	_Dbg_write_journal "_Dbg_RESTART_COMMAND=\"$exec_cmd_prefix $script_args\""
	_Dbg_do_quit 0
    }
    _Dbg_cleanup
    _Dbg_save_state
    builtin cd $_Dbg_init_cwd

    eval "exec $exec_cmd_prefix $script_args"
}

_Dbg_alias_add R run
_Dbg_alias_add restart run