#!/bin/rc

flagfmt='n,a'
args='type columns files ...'
if(! ifs=() eval `{aux/getflags $*} || ~ $#* 0) {
	aux/usage
	exit usage
}

type=$1 ; shift
c=$1 ; shift

fn fatal {
	echo $argv0: $* >[1=2]
	exit $*
}

if(! ~ `{wc -l <$c} $#*)
	fatal 'row mismatch'

cmd=tag/overwrite
if(! ~ $flaga '')
	cmd=tag/append
if(! ~ $flagn '')
	cmd=($cmd -n)

for(i in `{seq $#*})
	echo $type `{sed -n 's/''/''''/g; s/^/''/; s/$/''/; '^$i^p $c} | $cmd $*($i) || fatal $cmd(1)