|
|
1.1 ! root 1: #!/bin/rc ! 2: ! 3: if(! ~ $#* 1){ ! 4: echo usage: mklinklist file >[2=1] ! 5: exit 1 ! 6: } ! 7: ! 8: fn mkextract{ ! 9: ! 10: sed '/^$/d; /^#/d' $2 | awk ' ! 11: BEGIN { doprint=0 } ! 12: doprint && /^[^ ]/ { doprint=0 } ! 13: doprint { print $1 "'.$O'"; for(i=2; i <= NF; i++) ! 14: print $i "'.$O'"; } ! 15: $0 ~ field { doprint=1; next } ! 16: ' 'field=^'$1 |sort|uniq ! 17: } ! 18: ! 19: mkextract link $1
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.