#!/bin/nawk -f 
BEGIN {
	# Input looks like this:
	#
	#  @@@/usr/work/viola/res/objs/		<--- specifies directory
	#  res.v				<--- object files listing
	#  res.font.v
	#

	OUT = "objs_idx.c"

	print "Compiling index for C'fied viola objects..."

	cmd = sprintf("rm -f %s", OUT)
	system(cmd)

}
/@@@/{
	gsub(/@@@/, "")
	dirContext = $0
	print "\nDirectory Context=" dirContext
	next
}
/^$/{
	next
}
{
	gsub(/.v$/, "")
	objName = $0
	gsub(/\./, "_")
	objName_c_escaped = $0
	print ">>>>" objName
	cmd = sprintf("\"%s.v\", objDesc_%s,", objName, objName_c_escaped)
	print cmd >> OUT
}
END {
	print "Done. Result in " OUT
}
