# -*- shell-script -*-
# shell.sh - helper routines for 'shell' debugger command
#
#   Copyright (C) 2011 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.

setglobal _Dbg_shell_temp_profile = $[_Dbg_tempname profile]

proc _Dbg_shell_append_typesets {
    typeset -a words 
    typeset -p | while read -a words { 
	[[ declare != ${words[0]} ]] && continue
	setglobal var_name = $(words[2]%%=*)
	sh-expr '0 == _Dbg_set_debug' && [[ $var_name =~ ^_Dbg_ ]] && continue	
	setglobal flags = $(words[1])
	if [[ $flags =~ ^-.*x ]] { 
	    # Skip exported varables
	    continue
	} elif [[ $flags =~ -.*r ]] { 
	    # handle read-only variables
	    echo "typeset -p $(var_name) &>/dev/null || $[typeset -p $(var_name)]"
	} elif [[ ${flags:0:1} == '-' ]]  {
	    echo $[typeset -p $(var_name) !2 >/dev/null] 
	}
    } >>$_Dbg_shell_temp_profile 
}

proc _Dbg_shell_append_fn_typesets {
    typeset -a words 
    typeset -pf | while read -a words { 
	[[ declare != ${words[0]} ]] && continue
	setglobal fn_name = $(words[2]%%=*)
	sh-expr '0 == _Dbg_set_debug' && [[ $fn_name =~ ^_Dbg_ ]] && continue	
	setglobal flags = $(words[1])
	echo $[typeset -pf $(fn_name) !2 >/dev/null]
    } >>$_Dbg_shell_temp_profile
}

proc _Dbg_shell_new_shell_profile {
    typeset -i _Dbg_o_vars; setglobal _Dbg_o_vars = $(1:-1)
    typeset -i _Dbg_o_fns;  setglobal _Dbg_o_fns = $(2:-1)

    echo '# debugger shell profile' > $_Dbg_shell_temp_profile

    sh-expr '_Dbg_o_vars' && _Dbg_shell_append_typesets

    # Add where file to allow us to restore info and
    # Routine use can call to mark which variables should persist
    typeset -p _Dbg_restore_info >> $_Dbg_shell_temp_profile
    echo "source $(_Dbg_libdir)/data/shell.sh" >> $_Dbg_shell_temp_profile

    sh-expr '_Dbg_o_fns'  && _Dbg_shell_append_fn_typesets

}