|
|
1.1 ! root 1: : 'Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1984.' ! 2: : '$Header: b_p.sh.gen,v 1.1 85/08/22 14:33:41 timo Exp $' ! 3: : ! 4: : 'Nicely print the units in this workspace.' ! 5: : ! 6: PATH=/bin:/usr/bin:/usr/ucb:/usr/local ! 7: export PATH ! 8: : 'B_LIB is the directory where 'retab' gets installed.' ! 9: : 'Filled in by make.' ! 10: B_LIB= ! 11: RETAB=$B_LIB/retab ! 12: ! 13: for F in ` ! 14: ls | ! 15: grep "^['<\">]" | ! 16: sort +.1 ! 17: ` ! 18: do N=`echo $F | ! 19: sed 's/.// ! 20: s/.........../&&/ ! 21: s/&.*/.../' ! 22: ` ! 23: echo " *** $N" ! 24: cat $F | ! 25: sed 's/^\([ ]*\)ALLOW\([ ]\)/\1SHARE\2/' ! 26: echo '' ! 27: done | ! 28: $RETAB -n -t4 | ! 29: pr -h `pwd`
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.