File: munch.awk

package info (click to toggle)
glibc 2.0.7.19981211-6
  • links: PTS
  • area: main
  • in suites: slink
  • size: 34,644 kB
  • ctags: 27,226
  • sloc: ansic: 178,271; asm: 18,109; makefile: 3,001; sh: 2,722; awk: 565; perl: 54; csh: 15; sed: 2
file content (11 lines) | stat: -rw-r--r-- 394 bytes parent folder | download | duplicates (4) 
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 __init_%s __P ((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 }