Return to hatari-prg-args.sh CVS log

Up to [HATARI the Atari ST Emulator] / hatari / tools

Annotation of hatari/tools/hatari-prg-args.sh, revision 1.1.1.1

1.1       root        1: #!/bin/sh
                      2: #
                      3: # script to set first Atari program args when it starts
                      4: #
                      5: # this is achieved by chaining breakpoints from Hatari
                      6: # startup to program startup.
                      7: 
                      8: # path to (2015) hatari version which debugger provides "basepage" variable
                      9: hatari=hatari
                     10: 
                     11: # where temporary debugger scripts will be stored
                     12: dir=/tmp/hatari-debugger.tmp
                     13: 
                     14: usage ()
                     15: {
                     16:        name=${0##*/}
                     17:        echo "usage: $name [Hatari args] -- <Atari program> <program args>"
                     18:        echo
                     19:        echo "Script for running Hatari so that it autostarts given Atari program"
                     20:        echo "and inserts given arguments to program (to its basepage, with builtin"
                     21:        echo "Hatari debugger facilities)."
                     22:        echo
                     23:        echo "If arguments have same (host) path prefix as given Atari program,"
                     24:        echo "those prefixes are replaced with 'C:\', Unix path separators ('/')"
                     25:        echo "are replaced with Atari ones ('\\') and whole filename upper-cased."
                     26:        echo
                     27:        echo "Other arguments are passed unmodified."
                     28:        echo
                     29:        echo "Example:"
                     30:        echo "  $name -m -- atari/sidplay.ttp atari/sids/test.sid"
                     31:        echo
                     32:        echo "ERROR: $1!"
                     33:        exit 1
                     34: }
                     35: 
                     36: # --------- argument parsing --------
                     37: 
                     38: # generic argument checking
                     39: if [ $# -lt 3 ]; then
                     40:        usage "not enough arguments"
                     41: fi
                     42: echo " $* " | grep -q ' -- '
                     43: if [ $? -ne 0 ]; then
                     44:        usage "Separator missing for Hatari -- Atari options"
                     45: fi
                     46: 
                     47: # collect/remove hatari arguments
                     48: for arg in $*; do
                     49:        shift
                     50:        if [ $arg = '--' ]; then
                     51:                break
                     52:        fi
                     53:        hatari="$hatari $arg"
                     54: done
                     55: 
                     56: # check atari program
                     57: prg=$1
                     58: shift
                     59: if [ \! -f $prg ]; then
                     60:        usage "given Atari program doesn't exist"
                     61: fi
                     62: 
                     63: # builtin shell echo can be broken, so that it interprets backlashes by default,
                     64: # i.e. concatenating '\' path separator with dirname 't', produces TAB, not '\t'...
                     65: # -> use separate echo binary
                     66: echo=$(which echo)
                     67: 
                     68: # temporary dir
                     69: mkdir -p $dir
                     70: 
                     71: # collect/convert atari program arguments
                     72: args=$dir/args
                     73: rm -f $args
                     74: touch $args
                     75: prefix=""
                     76: drive="C:\\"
                     77: path="${prg%/*}/"
                     78: for arg in $*; do
                     79:        if [ "${arg#$path}" != "$arg" ]; then
                     80:                # file path needing conversion
                     81:                if [ \! -f $arg ]; then
                     82:                        usage "given file name '$arg' doesn't exits"
                     83:                fi
                     84:                # prefix with separator & drive letter & remove host path,
                     85:                # upper-case, convert path separators
                     86:                $echo -n "${prefix}${drive}${arg#$path}" | tr a-z A-Z | tr '/' '\\' >> $args
                     87:        else
                     88:                $echo -n "${prefix}$arg" >> $args
                     89:        fi
                     90:        prefix=" "
                     91:        shift
                     92: done
                     93: 
                     94: # calculate command line lenght and append zero just in case
                     95: cmdlen=$(wc -c $args | awk '{print $1}')
                     96: echo -n "\0" >> $args
                     97: if [ $cmdlen -gt 126 ]; then
                     98:        usage "command line is too long, $cmdlen chars (basepage limit is 126)"
                     99: fi
                    100: 
                    101: # --------- debugger scripts --------
                    102: 
                    103: # until desktop is up and TOS opens (autostart) INF file,
                    104: # it's not possible to set program breakpoints (0x3D = Fopen())
                    105: cat > $dir/fopen.ini << EOF
                    106: b GemdosOpcode = 0x3D :once :quiet :trace :file $dir/start.ini
                    107: EOF
                    108: 
                    109: # real work can be done when program starts,
                    110: # i.e. PC is at TEXT section beginning
                    111: cat > $dir/start.ini << EOF
                    112: b pc = text :once :trace :quiet :file $dir/basepage.ini
                    113: EOF
                    114: 
                    115: # add command line args args to program basepage 
                    116: cat > $dir/basepage.ini << EOF
                    117: setopt dec
                    118: w "basepage+0x80" $cmdlen
                    119: l $args "basepage+0x81"
                    120: info basepage
                    121: EOF
                    122: 
                    123: # --------- ready, run ----------
                    124: 
                    125: # show args & debugger scripts
                    126: head $dir/*
                    127: 
                    128: # run Hatari
                    129: echo $hatari --parse $dir/fopen.ini $prg
                    130: $hatari --parse $dir/fopen.ini $prg
                    131: 
                    132: # cleanup
                    133: rm -r $dir

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.