Retro68/gcc/libgcc/gen-fixed.sh

#!/bin/sh

# Worker script for libgcc/Makefile.in
# Generate lists of fixed-point labels, funcs, modes, from, to.
# Usage:
#    gen-fixed.sh arith labels
#    gen-fixed.sh arith funcs
#    gen-fixed.sh arith modes
#    gen-fixed.sh conv labels
#    gen-fixed.sh conv funcs
#    gen-fixed.sh conv from
#    gen-fixed.sh conv to

fixed_sfract_modes="QQ HQ SQ DQ TQ HA SA DA TA"
fixed_ufract_modes="UQQ UHQ USQ UDQ UTQ UHA USA UDA UTA"
fixed_fract_modes="$fixed_sfract_modes $fixed_ufract_modes"

fixed_signed_modes="QI HI SI DI TI SF DF"
fixed_unsigned_modes="UQI UHI USI UDI UTI"

fixed_func_names="_add _sub _neg _mul _mulhelper _divhelper _ashl _ashlhelper _cmp _saturate1 _saturate2"
fixed_sfunc_names="_ssadd _sssub _ssneg _ssmul _ssdiv _div _ssashl _ashr"
fixed_ufunc_names="_usadd _ussub _usneg _usmul _usdiv _udiv _usashl _lshr"

# emit the function information
# $1 = output type selector
# $2 = base function name
# $3 = from mode
# $4 = to mode
emit ()
{
    if [ "$3" != "$4" ]; then
	case "$1" in
	  labels)
            echo $2 ;;
	  from | modes)
	    echo $3 ;;
	  to)
	    echo $4 ;;
	  funcs)
	    echo $2$3$4 ;;
	esac
    fi
}

case "$1" in
  arith)
    for n in $fixed_func_names; do
	for m in $fixed_fract_modes; do
	    emit $2 $n $m
	done
    done

    for n in $fixed_sfunc_names; do
	for m in $fixed_sfract_modes; do
	    emit $2 $n $m
	done
    done

    for n in $fixed_ufunc_names; do
	for m in $fixed_ufract_modes; do
	    emit $2 $n $m
	done
    done
    ;;

  conv)
    for f in $fixed_fract_modes; do
	for t in $fixed_fract_modes $fixed_signed_modes; do
	    emit $2 _fract $f $t
	done
    done

    for f in $fixed_signed_modes; do
	for t in $fixed_fract_modes; do
	    emit $2 _fract $f $t
	done
    done

    for f in $fixed_fract_modes $fixed_signed_modes; do
	for t in $fixed_fract_modes; do
	    emit $2 _satfract $f $t
	done
    done

    for f in $fixed_fract_modes; do
	for t in $fixed_unsigned_modes; do
	    emit $2 _fractuns $f $t
	done
    done

    for f in $fixed_unsigned_modes; do
	for t in $fixed_fract_modes; do
	    emit $2 _fractuns $f $t
	done
    done

    for f in $fixed_unsigned_modes; do
	for t in $fixed_fract_modes; do
	    emit $2 _satfractuns $f $t
	done
    done
    ;;

esac