Annotation of researchv10no/cmd/lcc/port/run, revision 1.1.1.1

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

unix.superglobalmegacorp.com

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.