#!/usr/bin/awk -f
#
# $Id: gen_geda_m4.awk,v 1.2 2003/08/30 00:26:16 danmc Exp $
#
# Script to regenerate geda.m4 from geda.inc
#
# Usage:
#
#  awk -f gen_geda_m4.awk geda.inc > geda.m4
#

BEGIN {
	printf("divert(-1)\n");
	printf("#\n");
	printf("# NOTE: Auto-generated. Do not change.\n");
	printf("#");
}

/^\#\#/ {
	descr = $0;
	ind = index(descr, $2);
	descr = substr(descr, ind);
	printf("#\n");
	next;
}


/^[ \t]*define/ {
	pkg = $1;
	ind = index(pkg, "PKG");
	pkg = substr(pkg, ind+4);
	ind = index(pkg, "'");
	pkg = substr(pkg, 1, ind-1);
	printf("define(`Description_geda_%s',\t``%s'')\n", pkg, descr);
}

END {
	printf("divert(0)dnl\n");
}