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