File: regrange.awk

package info (click to toggle)
gawk 1%3A4.0.1%2Bdfsg-2.1
  • links: PTS
  • area: main
  • in suites: wheezy
  • size: 10,944 kB
  • sloc: ansic: 38,137; awk: 6,654; yacc: 6,066; sh: 4,807; makefile: 1,802; sed: 112
file content (30 lines) | stat: -rw-r--r-- 541 bytes parent folder | download | duplicates (8) 
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
28
29
30
 
# Tests due to John Haque, May 2011
#
# The following should be fatal; can't catch them inside awk, though
# $> echo 'a' | ./gawk '/[z-a]/ { print }'
# $> echo 'A' | ./gawk '/[+-[:digit:]]/'

BEGIN {
	char[1] = "."
	pat[1] = "[--\\/]"

	char[2] = "a"
	pat[2] = "[]-c]"

	char[3] = "c"
	pat[3] = "[[a-d]"

	char[4] = "\\"
	pat[4] = "[\\[-\\]]"

	char[5] = "[.c.]"
	pat[5] = "[a-[.e.]]"

	char[6] = "[.d.]"
	pat[6] = "[[.c.]-[.z.]]"

	for (i = 1; i in char; i++) {
		printf("\"%s\" ~ /%s/ --> %d\n", char[i], pat[i],
			char[i] ~ pat[i])
	}
}