File: rectype.awk

package info (click to toggle)
evolution-data-server 2.22.3-1.1%2Blenny2
  • links: PTS, VCS
  • area: main
  • in suites: lenny
  • size: 69,336 kB
  • ctags: 44,478
  • sloc: ansic: 341,205; xml: 65,790; tcl: 30,499; sh: 19,137; perl: 11,529; cpp: 8,264; java: 7,653; makefile: 6,871; awk: 1,338; yacc: 1,105; sed: 772; cs: 505; lex: 134; python: 30; asm: 14
file content (27 lines) | stat: -rw-r--r-- 581 bytes parent folder | download
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: rectype.awk,v 1.1 2003/11/20 22:13:15 toshok Exp $
#
# Print out a range of the log
# Command line should set RECTYPE to the 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
}