: generate the ksh math builtin table
: include math.tab
command=$0
iffeflags="-n -v"
iffehdrs="math.h"
iffelibs="-lm"
table=/dev/null
eval $1
shift
table=$1
: check long double
eval `iffe $iffeflags -c "$cc" - typ long.double 2>&$stderr`
: check ast_standards.h
eval `iffe $iffeflags -F ast_standards.h -c "$cc" - tst use_ast_standards -lm 'note{' 'math.h needs ast_standards.h' '}end' 'link{' 'case $_use_ast_standards in
1) iffeflags="$iffeflags -F ast_standards.h" ;;
esac
eval `iffe $iffeflags -c "$cc" - tst use_ieeefp -lm 'note{' 'ieeefp.h plays nice' '}end' 'link{' 'case $_use_ieeefp in
1) iffehdrs="$iffehdrs ieeefp.h" ;;
esac
: read the table
exec < $table
ifs=$IFS
libs=
names=
nums=
while read type args name aka
do case $type in
[fix]) names="$names $name"
libs="$libs,$name"
case $_typ_long_double in
1) libs="$libs,${name}l" ;;
esac
for a in $aka
do case $a in
'{'*) break
;;
*=*) IFS='=|'
set $a
IFS=$ifs
case ",$libs" in
*,$1,*) ;;
*) names="$names $1"
libs="$libs,$1"
case $_typ_long_double in
1) libs="$libs,${1}l" ;;
esac
;;
esac
shift
while :
do case $ 0) break ;;
esac
case ",$nums" in
*,$1,*) ;;
*) nums="$nums,$1" ;;
esac
shift
done
;;
esac
done
eval TYPE_$name='$type' ARGS_$name='$args' AKA_$name='$aka'
;;
esac
done
: check the math library
eval `iffe $iffeflags -c "$cc" - lib $libs $iffehdrs $iffelibs 2>&$stderr`
lib=
for name in $names
do eval x='$'_lib_${name}l y='$'_lib_${name}
case $x in
1) lib="$lib,${name}l" ;;
esac
case $y in
1) case $x in
'') lib="$lib,${name}" ;;
esac
;;
esac
done
eval `iffe $iffeflags -c "$cc" - dat,npt,mac $lib $iffehdrs $iffelibs 2>&$stderr`
eval `iffe $iffeflags -c "$cc" - num $nums $iffehdrs $iffelibs 2>&$stderr`
cat <<!
/* : : generated by $command from $table : : */
typedef Sfdouble_t (*Math_f)(Sfdouble_t,...);
!
case $_use_ast_standards in
1) echo "#include <ast_standards.h>" ;;
esac
echo "#include <math.h>"
case $_hdr_ieeefp in
1) echo "#include <ieeefp.h>" ;;
esac
echo
: generate the intercept functions and table entries
nl='
'
ht=' '
tab=
for name in $names
do eval x='$'_lib_${name}l y='$'_lib_${name} r='$'TYPE_${name} a='$'ARGS_${name} aka='$'AKA_${name}
case $r in
i) L=int R=1 ;;
x) L=Sfdouble_t R=4 ;;
*) L=Sfdouble_t R=0 ;;
esac
F=local_$name
case $x:$y in
1:*) f=${name}l
t=Sfdouble_t
local=
;;
*:1) f=${name}
t=double
local=$_typ_long_double
;;
*) body=
for k in $aka
do case $body in
?*) body="$body $k"
continue
;;
esac
case $k in
'{'*) body=$k
;;
*=*) IFS='=|'
set $k
IFS=$ifs
f=$1
shift
v=$*
eval x='$'_lib_${f}l y='$'_lib_${f}
case $x:$y in
1:*) f=${f}l
;;
*:1) ;;
*) continue
;;
esac
y=
while :
do case $ 0) break ;;
esac
eval x='$'_num_$1
case $x in
1) case $y in
?*) y="$y || " ;;
esac
y="${y}q == $1"
;;
esac
shift
done
case $y in
'') ;;
*) r=int R=1
echo "static $r $F(Sfdouble_t a1) { $r q = $f(a1); return $y; }"
tab="$tab$nl$ht\"\\0${R}${a}${name}\",$ht(Math_f)${F},"
break
;;
esac
;;
esac
done
case $body in
?*) code="static $L $F("
sep=
ta=
tc=
td=
for p in 1 2 3 4 5 6 7 8 9
do case $R:$p in
4:2) T=int ;;
*) T=Sfdouble_t ;;
esac
code="$code${sep}$T a$p"
ta="$ta${sep}a$p"
tc="$tc${sep}0"
td="${td}$T a$p;"
case $a in
$p) break ;;
esac
sep=","
done
_it_links_=0
eval `iffe $iffeflags -c "$cc" - tst it_links_ note{ $F function links }end link{ "static $L $F($ta)$td${body}int main(){return $F($tc)!=0;}" }end sfio.h $iffehdrs $iffelibs 2>&$stderr`
case $_it_links_ in
1) code="$code)$body"
echo "$code"
tab="$tab$nl$ht\"\\0${R}${a}${name}\",$ht(Math_f)${F},"
;;
esac
;;
esac
continue
;;
esac
case $r in
i) r=int ;;
*) r=$t ;;
esac
eval n='$'_npt_$f m='$'_mac_$f d='$'_dat_$f
case $d:$m:$n in
1:*:*|*:1:*)
;;
*:*:1) code="extern $r $f("
sep=
for p in 1 2 3 4 5 6 7
do code="$code${sep}$t"
case $a in
$p) break ;;
esac
sep=","
done
code="$code);"
echo "$code"
;;
esac
case $local:$m:$n:$d in
1:*:*:*|*:1:*:*|*:*:1:)
args=
code="static $L local_$f("
sep=
for p in 1 2 3 4 5 6 7 8 9
do args="$args${sep}a$p"
case $R:$p in
4:2) T=int ;;
*) T=Sfdouble_t ;;
esac
code="$code${sep}$T a$p"
case $a in
$p) break ;;
esac
sep=","
done
code="$code){return $f($args);}"
echo "$code"
f=local_$f
;;
esac
for x in $name $aka
do case $x in
'{'*) break
;;
*=*) continue
;;
esac
tab="$tab$nl$ht\"\\0${R}${a}${x}\",$ht(Math_f)$f,"
done
done
tab="$tab$nl$ht\"\",$ht$ht(Math_f)0"
cat <<!
/*
* first byte is two-digit octal number. Last digit is number of args
* first digit is 0 if return value is double, 1 for integer
*/
const struct mathtab shtab_math[] =
{$tab
};
!