munch.awk

   1 BEGIN { special = 0 }
   2
   3 /EXTERNS/ { ndirs = split(subdirs, dirs)
   4             for (i = 1; i <= ndirs; ++i)
   5                 printf "extern void EXFUN(__init_%s, (int argc, char **argv, char **envp));\n", dirs[i]
   6             special = 1 }
   7 /CALLS/ { ndirs = split(subdirs, dirs)
   8           for (i = 1; i <= ndirs; ++i) printf "  __init_%s (argc, argv, envp);\n", dirs[i]
   9           special = 1 }
  10
  11 { if (special == 0) print $0; special = 0 }