#! /bin/csh -f
#
# plot filter for nc
#
switch ($#argv)

case 1:
  set arg1 = `expr $1 + 1`
	awk 'BEGIN { start = 1000; numdef = 0; } \
		/#[ cfe]/  \
		/#[p]/ { print $1, '$#argv', $3; } \
		/#x/   { numdef++; } \
		/#x/ && numdef=='$1' \
		/#y/ && numdef=='$1' \
		$1 == "#node-->" || NR > start { print $1, $'$arg1'; \
			 start = NR; }'
  breaksw

case 2:
  set arg1 = `expr $1 + 1`
  set arg2 = `expr $2 + 1`
	awk 'BEGIN { start = 1000; numdef = 0; } \
		/#[ cfe]/  \
		/#[p]/ { print $1, '$#argv', $3; } \
		/#x/   { numdef++; } \
		/#x/ && numdef=='$1' \
		/#y/ && numdef=='$1' \
		/#x/ && numdef=='$2' \
		/#y/ && numdef=='$2' \
		$1 == "#node-->" || NR > start { \
			print $1, $'$arg1', $'$arg2'; \
			 start = NR; }'
  breaksw

case 3:
  set arg1 = `expr $1 + 1`
  set arg2 = `expr $2 + 1`
  set arg3 = `expr $3 + 1`
	awk 'BEGIN { start = 1000; numdef = 0; } \
		/#[ cfe]/  \
		/#[p]/ { print $1, '$#argv', $3; } \
		/#x/   { numdef++; } \
		/#x/ && numdef=='$1' \
		/#y/ && numdef=='$1' \
		/#x/ && numdef=='$2' \
		/#y/ && numdef=='$2' \
		/#x/ && numdef=='$3' \
		/#y/ && numdef=='$3' \
		$1=="#node-->" || NR > start  { print $1, $'$arg1', $'$arg2', $'$arg3'; \
			 start = NR; }'
  breaksw

case 4:
  set arg1 = `expr $1 + 1`
  set arg2 = `expr $2 + 1`
  set arg3 = `expr $3 + 1`
  set arg4 = `expr $4 + 1`
	awk 'BEGIN { start = 1000; numdef = 0; } \
		/#[ cfe]/  \
		/#[p]/ { print $1, '$#argv', $3; } \
		/#x/   { numdef++; } \
		/#x/ && numdef=='$1' \
		/#y/ && numdef=='$1' \
		/#x/ && numdef=='$2' \
		/#y/ && numdef=='$2' \
		/#x/ && numdef=='$3' \
		/#y/ && numdef=='$3' \
		/#x/ && numdef=='$4' \
		/#y/ && numdef=='$4' \
		$1=="#node-->" || NR > start  { print $1, $'$arg1', $'$arg2', $'$arg3', $'$arg4'; \
			 start = NR; }'
  breaksw


endsw

