1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
#!/usr/bin/awk -f
#
# 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");
}
|
