|
|
1.1 ! root 1: set -x ! 2: rm -f cport.a dport.a fport.a ! 3: ! 4: for i in frame app1 app2 blas de fft lin linopt nl2opt nl3opt nl4opt post quad root sparse spfns util; do ! 5: /usr/dmg/bin/627 /n/pyxis/usr/dmg/swift/port3/p3src.$i | fsplit -i ! 6: if [ $i = frame ]; then ! 7: ed <<\! ! 8: e r1mach.f ! 9: /VAX/;.+2,.+6s/^C// ! 10: w ! 11: e d1mach.f ! 12: /VAX/;.+2,.+6s/^C// ! 13: w ! 14: e i1mach.f ! 15: /VAX/;.+2,+17s/^C// ! 16: -10s/ 4 / 1 / ! 17: wq ! 18: ! ! 19: fi ! 20: f2c -ec *.f || { echo $i failed | mail cwf; exit 1 } ! 21: lcc -B/usr/src/cmd/lcc/gen2/vax-v9/ -c `ls *.c | sed /_com/d` || { echo $i failed | mail cwf; exit 1 } ! 22: ar q cport.a *.o ! 23: lcc -B/usr/src/cmd/lcc/gen2/vax-v9/ -c -g `ls *.c | sed /_com/d` || { echo $i failed | mail cwf; exit 1 } ! 24: ar q dport.a *.o ! 25: f77 -c *.f ! 26: ar q fport.a *.o ! 27: rm `ls *.c | sed /_com/d` *.[fo] ! 28: done ! 29: lcc -B/usr/src/cmd/lcc/gen2/vax-v9/ -c -g *_com.c ! 30: ar q cport.a *.o ! 31: ar q dport.a *.o ! 32: rm *_com.* ! 33: ranlib cport.a ! 34: ranlib dport.a ! 35: ranlib fport.a ! 36: ! 37: for i in LGEA LGEB LLZA LYMB PREA PRSA PRSF PRSJ \ ! 38: APNR BURA BURB CDEX CDLG CPLA CSPA CSPE CSPG CSPQ DDEA DESA EBEA ERRK \ ! 39: EVAA EXTR FFTA FFTC FMTR LBAA LBAB LBAF LBAK LBAN LBAP LGEF LGEH LGEL \ ! 40: LGEM LNAB LPSA LPSB LPSF LPSG LPSK LPSM LRPA LRPB LRPE LRPF LRPG LSFA \ ! 41: LYMA LYMK LYMP MFTE MFTF MFTG MLLR MNNA NLSA NLSB NLSJ NLSK NLSP NLSR \ ! 42: NMSK NP2A NP2B NP2E NP2F NSFA NSNM NTLE NTLF NTLH NTLK NTLM NTLP NTLR \ ! 43: NTLT NTLU PDEA PDEW PRS1 PRSZ QBLA QBLC QBLG QGSG QGSH QGSJ QGSM QGSP \ ! 44: QGSR QGST QODD QPRA RANC RNRM RPAD SDBA SPLF VDSA VDSB VDSE XKHD XKHI \ ! 45: XKTH ZERA ZONA ZONB; do ! 46: run1 $i examps e || exit 1 ! 47: done ! 48: ! 49: for i in ERR1 ERR2 ERR3 ERRK EXTR GAMA GMAD LGAC LGAD LGEA LLZA LRAD LRPA LTQD \ ! 50: LTSQ LYAD LYMA LYRC LYSC MACH MFED MFTE MNTB PLYA PLYC PRAC PRAD PRSA \ ! 51: QBGD QBLG QGGD QGSG QPAD QPRA RNRM SDBA SPLE STK1 STK2 SVAD SVBD SVCD \ ! 52: SVDA SVDB SVDC THYP VDAD VDBD VDED; do ! 53: run1 $i tests t || exit 1 ! 54: done ! 55: ! 56: echo port passed | mail cwf ! 57: rm a.out [cdf]port.a zap ! 58: exit 0
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.