xref: /inferno-os/libmath/bin/unif_fdlibm (revision 37da2899f40661e3e9631e497da8dc59b971cbd0)
1#!/bin/rc
2test -d /netlib/fdlibm || 9fs netlib
3test -d /n/hati/usr/ehg || 9fs hati
4
5echo '/* derived from /netlib/fdlibm */' > $1
6if (~ $1 fdlibm.h) echo '#include "lib9.h"' >> $1
7
8cp /netlib/fdlibm/$1 /n/hati/usr/ehg/xxx.c
9rx hati 'unifdef -D__STDC__ -D_IEEE_LIBM -D_SCALB_INT -U__NEWVALID xxx.c' > xxx.c
10> /n/hati/usr/ehg/xxx.c
11sam -d >> $1 >[2] err <<!
12e xxx.c
13/extern int signgam;/,/#define	PLOSS/+d
14,x/HUGE_VAL/ c/DBL_MAX/
15,x/huge/ c/Huge/
16w
17q
18!
19cat xxx.c >> $1
20rm xxx.c
21