|
|
1.1 ! root 1: .ig ! 2: .get file ! 3: includes copy of file right here. ! 4: normally used as ! 5: .P1 ! 6: .get file ! 7: .P2 ! 8: discards .G1/.G2 ! 9: ! 10: .zzz file ! 11: same as .get, but keeps .G1/.G2 ! 12: ! 13: .grap file ! 14: runs file thru grap and pic, inserts output here ! 15: input file assumed to include .G1/.G2 ! 16: ! 17: .dot file ! 18: runs file thru dot, grap and pic, inserts output here ! 19: input file does NOT include .G1/.G2 ! 20: ! 21: .scat file ! 22: runs file thru scatmat, grap and pic, inserts output here ! 23: input file does NOT include .G1/.G2 ! 24: ! 25: .d file ! 26: prints the first 5 and last line of the file ! 27: (pretty dumb so far) ! 28: normally needs .P1/.P2 ! 29: ! 30: .. ! 31: .so cprog.mac ! 32: .de ge \" assumes .ge called as .get ! 33: .sy trget \\n(.$ \\$2 '\\$3' '\\$4' '\\$5' | sed '/^.&.G[12]/d' >junk.\\n($$ ! 34: .so junk.\\n($$ ! 35: .sy rm junk.\\n($$ ! 36: .. ! 37: .de zz \" assumes .zz called as .zzz ! 38: .sy trget \\n(.$ \\$2 '\\$3' '\\$4' '\\$5' >junk.\\n($$ ! 39: .so junk.\\n($$ ! 40: .sy rm junk.\\n($$ ! 41: .. ! 42: .de gr \" assumes called as .grap ! 43: .sy grap \\$2 | pic | eqn '-d$$' >junk.\\n($$ ! 44: .so junk.\\n($$ ! 45: .sy rm junk.\\n($$ ! 46: .. ! 47: .de d ! 48: ....sy sed -n -e 1,5p -e '6s/.*/ .../p' -e '$p' \\$1 >junk.\\n($$ ! 49: .sy awk '{if(NR<=5)print;else x=$0}; END {if(NR>5){print "\\\\\\\\\\e&...";print x}}' \\$1 >junk.\\n($$ ! 50: .so junk.\\n($$ ! 51: ...sy rm junk.\\n($$ ! 52: .. ! 53: .de do \" assumes called as .dot ! 54: .sy dot \\$2 | grap | pic | eqn '-d$$' >junk.\\n($$ ! 55: .so junk.\\n($$ ! 56: .sy rm junk.\\n($$ ! 57: .. ! 58: .de sc \" assumes called as .scat ! 59: .sy scatmat \\$2 | grap | pic | eqn '-d$$' >junk.\\n($$ ! 60: .so junk.\\n($$ ! 61: .sy rm junk.\\n($$ ! 62: ..
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.