Re: [9fans] awk help; not plan9 matter

[erik quanstrom]

> # usage: buildre n replacement
> fn buildre {
>       re = '^'
>       for(i in `{seq 1 $1})
>               re = $re ^ '([^         ][      ]*)'
>       re = $re ^ ([^  ]):\' ^ $2 ^ ':'
> }

sorry.  quote snafu.

fn buildre {
        re = 's:^'
        for(i in `{seq 1 $1})
                re = $re ^ '([^         ][      ]*)'
        re = $re ^ '([^         ]):\' ^ $1 ^ $2 ^ :
}

- erik