Subversion Repositories w11

#!/bin/bash

# $Id: tbrun_tbwrri 808 2016-09-17 13:02:46Z mueller $

#

# Copyright 2014-2016 by Walter F.J. Mueller 

# License disclaimer see LICENSE_gpl_v2.txt in $RETROBASE directory

#

#  Revision History:

# Date         Rev Version  Comment

# 2016-09-17   808   1.3.3  add --r(l|b)mon,(b|s)wait; configure now via _conf=

# 2016-09-03   805   1.3.2  add TIMEFORMAT and time for make commands

# 2016-08-21   800   1.3.1  add -norun, -nomake

# 2016-08-06   795   1.3    use tbfilt; fixup -lsuf logic

# 2016-07-03   783   1.2.5  drop ghdl_assert_filter (use --ieee=... at ghdl lvl)

# 2016-06-25   778   1.2.4  drop make ghdl_tmp_clean logic

# 2016-06-18   776   1.2.3  use ti_rri --tout to set connection timeout

# 2016-06-05   773   1.2.2  use _bsim.log for behavioral sim log

# 2016-03-20   748   1.2.1  BUGFIX: add portsel oob for -hxon

#                           use 120 sec timeout for simulation

# 2016-03-18   745   1.2    use --sxon and --hxon instead of --xon

# 2015-04-11   666   1.1    add --fusp,--xon

# 2014-12-27   622   1.0    Initial version

#

chkval ()

{

  if [[ $1 =~ --.* || $1 =~ -[a-z]* ]]; then

    echo "tbrun_tbwrri-E: value forgotten prior to '$1'"

    exit 1

  fi

}

docmd ()

{

  if [[ -z "$optdry" ]] ; then

    echo "$2"

    eval "$1"

  else

    echo "$1"

  fi

}

optdry=""

optnomake=""

optnorun=""

optlsuf=""

optstack=""

optghw=""

opttbw=""

optpack=""

optrri=""

optpcom=""

optcuff=""

optfusp=""

optsxon=""

opthxon=""

optrlmon=""

optrbmon=""

optbwait=0

optswait=0

# handle options

while (( $# > 0 )) ; do

  case $1 in

    -dry|--dry)       optdry=$1    ;             shift 1 ;;

    -nomake|--nomake) optnomake=$1 ;             shift 1 ;;

    -norun|--norun)   optnorun=$1  ;             shift 1 ;;

    -lsuf|--lsuf)     optlsuf=$2   ; chkval $2 ; shift 2 ;;

    -stack|--stack)   optstack=$2  ; chkval $2 ; shift 2 ;;

    -ghw|--ghw)       optghw=$2    ; chkval $2 ; shift 2 ;;

    -tbw|--tbw)       opttbw=$2    ; chkval $2 ; shift 2 ;;

    -pack|--pack)     optpack=$2   ; chkval $2 ; shift 2 ;;

    -rri|--rri)       optrri=$2    ; chkval $2 ; shift 2 ;;

    -cuff|--cuff)     optcuff=$1   ;             shift 1 ;;

    -fusp|--fusp)     optfusp=$1   ;             shift 1 ;;

    -sxon|--sxon)     optsxon=$1   ;             shift 1 ;;

    -hxon|--hxon)     opthxon=$1   ;             shift 1 ;;

    -pcom|--pcom)     optpcom=$1   ;             shift 1 ;;

    -rlmon|--rlmon)   optrlmon=$1  ;             shift 1 ;;

    -rbmon|--rbmon)   optrlmon=$1  ;             shift 1 ;;

    -bwait|--bwait)   optbwait=$2  ; chkval $2 ; shift 2 ;;

    -swait|--swait)   optswait=$2  ; chkval $2 ; shift 2 ;;

    -\?|-h*|--h*)     opthelp=$1   ;             shift 1 ;;

    -*)             echo "tbrun_tbwrri-E: invalid option '$1'"; exit 1 ;;

    *)     break;;

  esac

done

# complain if no tbench defined

if [[ -n "$opthelp" || $# -eq 0 ]] ; then

  echo "Usage: tbrun_tbwrri [opts] testbench rricmds..."

  echo "  Options:"

  echo "  --dry             dry run, print commands, don't execute"

  echo "  --nomake          don't execute make step"

  echo "  --norun           don't execute run  step"

  echo "  --lsuf  suff      use '_.log' as suffix for log file"

  echo "  --stack nnn       use  as ghdl stack size"

  echo "  --ghw   fname     write ghw file with name '.ghw'"

  echo "  --tbw   opts      append  to tbw command"

  echo "  --pack  plist     add '--pack=<=plist>' option to ti_rri"

  echo "  --rri   opts      append  to ti_rri command"

  echo "  --cuff            use cuff and not serport"

  echo "  --fusp            use 2nd serport"

  echo "  --sxon            use xon with 1st serport (via SWI(1))"

  echo "  --hxon            use xon with 1st serport (hardwired)"

  echo "  --pcom            print test comments"

  echo "  --rlmon           enable rlmon"

  echo "  --rbmon           enable rbmon"

  echo "  --bwait ns        start-up wait in ns for behavioral simulations"

  echo "  --swait ns        start-up wait in ns for post-syn simulations"

  exit 1

fi

# check that only one of --cuff --fusp or --?xon given

ncfxcount=0

if [[ -n "$optcuff" ]] ; then ncfxcount=$(($ncfxcount+1)); fi

if [[ -n "$optfusp" ]] ; then ncfxcount=$(($ncfxcount+1)); fi

if [[ -n "$opthxon" ]] ; then ncfxcount=$(($ncfxcount+1)); fi

if [[ -n "$optsxon" ]] ; then ncfxcount=$(($ncfxcount+1)); fi

if (( $ncfxcount > 1 )) ; then

  echo "tbrun_tbwrri-E: only one of --cuff,-fusp,--sxon,--hxon allowed"

  exit 1

fi

tbench=$1

shift 1

makeopts=""

tbenchname=$(basename $tbench)

tbenchpath=$(dirname  $tbench)

# issue makes

#   add -C $tbenchpath only if not '.' to avoid 'Entering/Leaving' messages

makeopts=""

if [[ "$tbenchpath" != "." ]] ; then

  makeopts="-C $tbenchpath"

fi

if [[ -z "$optnomake" ]] ; then

  cmd="TIMEFORMAT=$'real %3lR   user %3lU   sys %3lS'"

  cmd+=$'\n'

  cmd+="time make $makeopts $tbench"

  docmd "$cmd"

  exitstat=$?

  if (( $exitstat > 0 )) ; then exit $exitstat; fi

  echo ""

fi

# check for test bench

if [[ ! -x $tbench ]] ; then

  echo "tbrun_tbwrri-E: $tbench not existing or not executable"

  exit 1

fi

# determine logfile name and determine startup wait (bwait or swait)

logsuff="_bsim"

waitns=$optbwait

if [[ $tbenchname =~ _[fsorept]sim$ ]] ; then

  logsuff=""

  waitns=$optswait

fi

if [[ -n "$optlsuf" ]] ;                 then logsuff+="_$optlsuf"; fi

logfile="${tbenchname}${logsuff}.log"

# determine simbus configure (done with inline mode _conf={l1;l2;l3})

# Note: .sdata expects hex in full signal size (addr 8 bit, data 16 bit)

conf=""

if [[ -n "$optcuff" ]] ; then

  conf+=".sdata 08 0004;"    # portsel = 0100 -> fx2

  conf+=".sdata 10 0004;"    # swi     = 0100 -> fx2

fi

if [[ -n "$optfusp" ]] ; then

  conf+=".sdata 08 0001;"    # portsel = 0001 -> 2nd ser

  conf+=".sdata 10 0001;"    # swi     = 0001 -> 2nd ser

fi

if [[ -n "$optsxon" ]] ; then

  conf+=".sdata 08 0002;"    # portsel = 0010 -> 1st ser XON

  conf+=".sdata 10 0002;"    # swi     = 0010 -> 1st ser XON

fi

if [[ -n "$opthxon" ]] ; then

  conf+=".sdata 08 0002;"    # portsel = 0010 -> 1st ser XON

fi

if (( $waitns > 0 )) ; then

  conf+=".wait $waitns ns;"

fi

# now build actual test command

cmdtb+="ti_rri --run=\"tbw $tbench -fifo"

if [[ -n "$conf" ]] ;   then    cmdtb+=" '_conf={$conf}'"; fi

if [[ -n "$opttbw" ]] ; then    cmdtb+=" $opttbw"; fi

if [[ -n "$optstack" ]] ; then  cmdtb+=" --stack-max-size=$optstack"; fi

if [[ -n "$optghw" ]] ; then

  if [[ "$optghw" != *.ghw ]]; then optghw="$optghw.ghw"; fi

  cmdtb+=" --wave=$optghw";

fi

cmdtb+=" 2>&1 \""

# Note: the following ensurs that we always have 'fifo=,' with an

#       empty first field (the default fifo name)

fifoopts=""

if [[ -n "$opthxon" ]] ; then   fifoopts+=",xon"; fi

if [[ -n "$optsxon" ]] ; then   fifoopts+=",xon"; fi

if [[ -n "$fifoopts" ]] ; then

  cmdtb+=" --fifo=$fifoopts"

else

  cmdtb+=" --fifo"

fi

cmdtb+=" --logl=3"

cmdtb+=" --tout=120."             # 120 sec timeout for simulation

if [[ -n "$optpack" ]] ; then   cmdtb+=" --pack=$optpack"; fi

if [[ -n "$optrri" ]] ; then    cmdtb+=" $optrri"; fi

cmdtb+=" --"

while (( $# > 0 )) ; do

  cmdtb+=" "

  if [[ $1 =~ " " ]] ; then cmdtb+="\""; fi

  cmdtb+="$1"

  if [[ $1 =~ " " ]] ; then cmdtb+="\""; fi

  shift 1

done

cmdtf="tbfilt -tee $logfile"

if [[ -n "$optpcom" ]] ; then cmdtf+=" -pcom"; fi

cmd="(export TIMEFORMAT=$'real %3lR   user %3lU   sys %3lS'; time $cmdtb) 2>&1"

cmd+=" | $cmdtf"

txt="$cmdtb | $cmdtf"

if [[ -z "$optnorun" ]] ; then

  docmd "$cmd" "$txt"

fi