update from main archive 961217
[glibc.git] / munch.awk
blob1ed68686c180ad90a17cd8435a4dddecab67e615
1 BEGIN { special = 0 }
3 /EXTERNS/ { ndirs = split(subdirs, dirs)
4 for (i = 1; i <= ndirs; ++i)
5 printf "extern void __init_%s __P ((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 }
11 { if (special == 0) print $0; special = 0 }