|
|
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.