# -*- shell-script -*-
# debugger command options processing. The bane of programming.
#
#   Copyright (C) 2008-2012, 2014-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.

proc _Dbg_usage {
  printf "Usage:
   $(_Dbg_pname) [OPTIONS] <script_file>

Runs $_Dbg_shell_name <script_file> under a debugger.

options:
    -h | --help              Print this help.
    -q | --quiet             Do not print introductory and quiet messages.
    -A | --annotate  LEVEL   Set the annotation level.
    -B | --basename          Show basename only on source file listings.
                             (Needed in regression tests)
    --highlight {dark|light} Use dark or light background ANSI terminal sequence
                             syntax highlighting
       | --no-highlight
                             Don't use ANSI terminal sequences for syntax
                             highlight
    --highlight | --no-highlight
                             Use or don't use ANSI terminal sequences for syntax
                             highlight
    --init-file FILE         Source script file FILE. Similar to bash's
                             corresponding option. This option can be given
                             several times with different files.
    -L | --library DIRECTORY
                             Set the directory location of library helper file: $_Dbg_main
    -c | --command STRING    Run STRING instead of a script file
    -n | --nx | --no-init    Don't run initialization files.
    -S | --style STYLE       Run use pygments STYLE for formatting source code
    --tty | --terminal DEV   Set to terminal in debugger output to DEV
                             DEV can also be &1 for STDOUT
    -T | --tempdir DIRECTORY
                             Use DIRECTORY to store temporary files
    -V | --version           Print the debugger version number.
    -X | --trace             Set line tracing similar to set -x
    -x | --eval-command CMDFILE
                             Execute debugger commands from CMDFILE.
"
  exit 100
}

proc _Dbg_show_version {
  printf "There is absolutely no warranty for $_Dbg_debugger_name.  Type \"show warranty\" for details.
"
  exit 101

}

# Script arguments before adulteration by _Dbg_parse_opts
typeset -xa _Dbg_orig_script_args = ''

# The 'eval' is used below to preserve embedded spaces which might
# occur for example in $@. Short of using a loop I'm not sure of an
# easier way to copy an array in bash.
eval "_Dbg_orig_script_args=(\"\$@\")"

# The following globals are set by _Dbg_parse_opts. Any values set are
# the default values.
typeset -xa _Dbg_script_args = ''

# Use gdb-style annotate?
typeset -i _Dbg_set_annotate = '0'

# Simulate set -x?
typeset -i _Dbg_set_linetrace = '0'
typeset -i _Dbg_set_basename = '0'
typeset    _Dbg_set_highlight = '''' # Initialized below
typeset -a _Dbg_o_init_files = ''; setglobal _Dbg_o_init_files = ''()
typeset -i _Dbg_o_nx = '0'

typeset -ix _Dbg_working_term_highlight = ''

if $(_Dbg_libdir)/lib/term-highlight.py -V !2 >/dev/null  !1 >/dev/null  {
    setglobal _Dbg_working_term_highlight = '1'
} else {
    setglobal _Dbg_working_term_highlight = '0'
}

typeset -x _Dbg_set_style = ''''
# $_Dbg_tmpdir could have been set by the top-level debugger script.
[[ -z $_Dbg_tmpdir ]] && typeset _Dbg_tmpdir = '/tmp'

proc _Dbg_check_tty {
    sh-expr ' $# < 1 ' && return 1
    typeset tty = $1
    if [[ $tty != '&1' ]]  {
        if ! $[touch $tty >/dev/null !2 >/dev/null] {
            _Dbg_errmsg "Can't access $tty for writing."
            return 1
        }
        if [[ ! -w $tty ]]  {
            _Dbg_errmsg "tty $tty needs to be writable"
            return 1
        }
        setglobal _Dbg_tty = $tty
        setglobal _Dbg_prompt_output = $_Dbg_tty
    }
    return 0
}

proc _Dbg_parse_options {

    source ${_Dbg_libdir}/getopts_long.sh

    typeset -i _Dbg_o_quiet = '0'
    typeset -i _Dbg_o_version = '0'

    while getopts_long A:Bc:x:hL:nqTt:VX opt \
        annotate     required_argument       \
        basename     no_argument             \
        command      required_argument       \
        debugger     no_argument             \
        eval-command required_argument       \
        help         no_argument             \
        highlight    required_argument       \
        init-file    required_argument       \
        library      required_argument       \
        no-highlight no_argument             \
        no-init      no_argument             \
        nx           no_argument             \
        quiet        no_argument             \
        tempdir      required_argument       \
        tty          required_argument       \
        terminal     required_argument       \
        version      no_argument             \
        '' "$@"
    {
        match $opt {
            with A | annotate 
                setglobal _Dbg_o_annotate = $OPTLARG
            with B | basename 
                setglobal _Dbg_set_basename = '1'     
            with c | command 
                setglobal _Dbg_EXECUTION_STRING = $OPTLARG 
            with debugger 
                # This option is for compatibility with bash --debugger
                
            with h | help 
                _Dbg_usage              
            with highlight 
		match $OPTLARG {
		    with light | dark 
			setglobal _Dbg_set_highlight = $OPTLARG
		    
		with * 
		    print "Expecting 'dark' or 'light', got \"$(OPTLARG)\"" > !2
		    exit 2
		}

		if ! shell { pygmentize --version || pygmentize -V } 2>/dev/null 1>/dev/null  {
                    print "Can't run pygmentize. --highight forced off" > !2
		    setglobal _Dbg_set_highlight = ''''

                }
                
            with no-highlight 
                setglobal _Dbg_set_highlight = ''''   
            with init-file 
                set -x
                setglobal _Dbg_o_init_files = $OPTLARG
                set +x
                
            with L | library                
            with V | version 
                setglobal _Dbg_o_version = '1'        
            with n | nx | no-init 
                setglobal _Dbg_o_nx = '1'             
            with q | quiet 
                setglobal _Dbg_o_quiet = '1'          
            with tempdir
                setglobal _Dbg_tmpdir = $OPTLARG    
            with terminal | tty 
                if _Dbg_check_tty $OPTLARG  {
                    setglobal _Dbg_tty = $OPTLARG
                } else {
                    _Dbg_errmsg '--tty option ignored'
                }
                
            with x | eval-command 
                setglobal DBG_INPUT = $OPTLARG      
            with X | trace 
                setglobal _Dbg_set_linetrace = '1'        
            with '?'   # Path taken on a bad option
                echo  >&2 'Use -h or --help to see options.> !2 'Use -h or --help to see options.'
                exit 2                  
            with * 
                echo "Unknown option $opt. Use -h or --help to see options." > !2
                exit 2          
        }
    }
    shift "$shExpr('$OPTLIND - 1')"

    if sh-expr ' _Dbg_o_version '  {
        _Dbg_do_show_version
        exit 0
    } elif sh-expr ' ! _Dbg_o_quiet ' && [[ -n $_Dbg_shell_name ]] && \
        [[ -n $_Dbg_release ]]  {
        echo "$_Dbg_shell_name debugger, $_Dbg_debugger_name, release $_Dbg_release"
        printf '
Copyright 2002, 2003, 2004, 2006-2012, 2014, 2016 Rocky Bernstein
This is free software, covered by the GNU General Public License, and you are
welcome to change it and/or distribute copies of it under certain conditions.

'
    }
    sh-expr ' _Dbg_o_version ' && _Dbg_show_version

    if [[ -n $_Dbg_o_annotate ]]  {
        if [[ ${_Dbg_o_annotate} == [0-9]* ]]  {
            setglobal _Dbg_set_annotate = $_Dbg_o_annotate
            if sh-expr ' _Dbg_set_annotate > 3 || _Dbg_set_annotate < 0' {
                echo "Annotation level must be less between 0 and 3. Got: $_Dbg_set_annotate." > !2
                echo "Setting Annotation level to 0." > !2
                setglobal _Dbg_set_annotate = '0'
            }
        } else {
            echo "Annotate option should be an integer, got $(_Dbg_o_annotate)." > !2
            echo "Setting annotation level to 0." > !2
        }
    }
    unset _Dbg_o_annotate _Dbg_o_version _Dbg_o_quiet
    setglobal _Dbg_script_args = '('"$@")
}


# Stand-alone Testing.
if [[ -n "$_Dbg_dbg_opts_test" ]]  {
    setglobal OPTLIND = '1'
    setglobal _Dbg_libdir = ''.''
    [[ -n $_Dbg_input ]] && typeset -p _Dbg_input
    _Dbg_parse_options @Argv
    typeset -p _Dbg_set_highlight
    typeset -p _Dbg_set_annotate
    typeset -p _Dbg_set_linetrace
    typeset -p _Dbg_set_basename
}