Return to f002544 CVS log

Up to [Plan 9 NeXT] / lucent / sys / src / 9 / port

Annotation of lucent/sys/src/9/port/f002544, revision 1.1.1.1

1.1       root        1: #!/bin/rc
                      2: 
                      3: switch($#*){
                      4: case [012]
                      5:        echo usage: mkextract [-u] field n file... >[1=2]
                      6:        exit 1
                      7: }
                      8: 
                      9: switch($1){
                     10: case -u
                     11:        flag=$1; shift
                     12: case *
                     13:        flag=''
                     14: }
                     15: 
                     16: field=$1
                     17: n=$2
                     18: shift 2
                     19: 
                     20: fn select {
                     21:        awk '
                     22: 
                     23:                BEGIN                   { doprint=0 }
                     24:                /^$/                    { next }
                     25:                /^#/                    { next }
                     26:                doprint && /^[^ ]/      { doprint=0 }
                     27:                doprint                 { print $'^$n^' }
                     28:                $0 ~ "^'^$field^'"      { doprint=1; next }
                     29:        ' $*
                     30: }
                     31: 
                     32: switch($flag){
                     33: case -u
                     34:        select $* | sort -u
                     35: case *
                     36:        select $*
                     37: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.