File: rectype.awk

package info (click to toggle)
db5.3 5.3.28%2Bdfsg2-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 158,500 kB
  • sloc: ansic: 448,411; java: 111,824; tcl: 80,544; sh: 44,264; cs: 33,697; cpp: 21,604; perl: 14,557; xml: 10,799; makefile: 4,077; javascript: 1,998; yacc: 1,003; awk: 965; sql: 801; erlang: 342; python: 216; php: 24; asm: 14
file content (27 lines) | stat: -rw-r--r-- 527 bytes parent folder | download | duplicates (13)
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
# $Id$
#
# Print out a range of the log.
# Command line should set RECTYPE to a comma separated list
# of the rectypes (or partial strings of rectypes) sought.
NR == 1 {
	ntypes = 0
	while ((ndx = index(RECTYPE, ",")) != 0) {
		types[ntypes] = substr(RECTYPE, 1, ndx - 1);
		RECTYPE = substr(RECTYPE, ndx + 1, length(RECTYPE) - ndx);
		ntypes++
	}
	types[ntypes] = RECTYPE;
}

/^\[/{
	printme = 0
	for (i = 0; i <= ntypes; i++)
		if (index($1, types[i]) != 0) {
			printme = 1
			break;
		}
}
{
	if (printme == 1)
		print $0
}