diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2012-08-17 13:07:27 +0300 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2012-08-17 13:07:27 +0300 |
| commit | 07fb393999d623541bf2e54aeeb0d9c0311baace (patch) | |
| tree | ee1cd614366b3acfd612e5acfb39e30fc88de667 /test/regexprange.awk | |
| parent | e6b05afd9971b457c0b46907a91185b66be8ff4e (diff) | |
| parent | a58fa491cdaf57a9f67cff35c58398ef0c87f52e (diff) | |
| download | egawk-07fb393999d623541bf2e54aeeb0d9c0311baace.tar.gz egawk-07fb393999d623541bf2e54aeeb0d9c0311baace.tar.bz2 egawk-07fb393999d623541bf2e54aeeb0d9c0311baace.zip | |
Merge branch 'gawk-4.0-stable'
Diffstat (limited to 'test/regexprange.awk')
| -rw-r--r-- | test/regexprange.awk | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/test/regexprange.awk b/test/regexprange.awk new file mode 100644 index 00000000..861e5ee5 --- /dev/null +++ b/test/regexprange.awk @@ -0,0 +1,14 @@ +BEGIN { + range = "[a-dx-z]" + + split("ABCDEFGHIJKLMNOPQRSTUVWXYZ", upper, "") + split("abcdefghijklmnopqrstuvwxyz", lower, "") + + for (i = 1; i in upper; i++) + printf("%s ~ %s ---> %s\n", + upper[i], range, (upper[i] ~ range) ? "true" : "false") + + for (i = 1; i in lower; i++) + printf("%s ~ %s ---> %s\n", + lower[i], range, (lower[i] ~ range) ? "true" : "false") +} |