|
|
1.1 root 1: : "Convert from B 2.9 to 2.10 spool format, with dots turned into slashes."
2: L=$1
3: S=$2
4: cat $L/active >> xtmp
5: ed - xtmp << 'X'
6: g; ;s; .*;;
7: 1,$s;.*;ln & &/*;
8: 1,$s;\.;/;
9: 1,$s;\.\([^ ]* \);/\1;
10: 1,$s; \(.*\) \(.*\); \2 \1;
11: w
12: q
13: X
14: cat xtmp | (cd $S ; sh -v)
15: rm -f a.out parents xtmp
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.