munch.awk


1
2
3
4
5
6
7
8
9
10
11

BEGIN { special = 0 }

/EXTERNS/ { ndirs = split(subdirs, dirs)
	    for (i = 1; i <= ndirs; ++i)
	    	printf "extern void EXFUN(__init_%s, (int argc, char **argv, char **envp));\n", dirs[i]
	    special = 1 }
/CALLS/ { ndirs = split(subdirs, dirs)
	  for (i = 1; i <= ndirs; ++i) printf "  __init_%s (argc, argv, envp);\n", dirs[i]
	  special = 1 }

{ if (special == 0) print $0; special = 0 }