diff options
Diffstat (limited to 'test/scanners/groovy/pleac.expected.raydebug')
| -rw-r--r-- | test/scanners/groovy/pleac.expected.raydebug | 10953 |
1 files changed, 0 insertions, 10953 deletions
diff --git a/test/scanners/groovy/pleac.expected.raydebug b/test/scanners/groovy/pleac.expected.raydebug deleted file mode 100644 index 80eb2e5..0000000 --- a/test/scanners/groovy/pleac.expected.raydebug +++ /dev/null @@ -1,10953 +0,0 @@ -comment(// -*- groovy -*-) -comment(// The examples make use of Groovy's built-in assert) -comment(// command so that the script is self-checking) - -comment(// @@PLEAC@@_NAME) -comment(// @@SKIP@@ Groovy) - -comment(// @@PLEAC@@_WEB) -comment(// @@SKIP@@ http://groovy.codehaus.org) - -comment(// @@PLEAC@@_1.0) -comment(//----------------------------------------------------------------------------------) -ident(string) operator(=) string<delimiter(')char(\\\\)content(n)delimiter(')> comment(// two characters, \\ and an n) -keyword(assert) ident(string)operator(.)ident(size)operator(()operator(\)) operator(==) integer(2) -ident(string) operator(=) string<delimiter(")char(\\n)delimiter(")> comment(// a "newline" character) -ident(string) operator(=) string<delimiter(')content(\\n)delimiter(')> comment(// a "newline" character) - -ident(string) operator(=) string<delimiter(")content(Jon 'Maddog' Orwant)delimiter(")> comment(// literal single quote inside double quotes) -ident(string) operator(=) string<delimiter(')content(Jon )char(\\')content(Maddog)char(\\')content( Orwant)delimiter(')> comment(// escaped single quotes) - -ident(string) operator(=) string<delimiter(')content(Jon "Maddog" Orwant)delimiter(')> comment(// literal double quotes inside single quotes) -ident(string) operator(=) string<delimiter(")content(Jon )char(\\")content(Maddog)char(\\")content( Orwant)delimiter(")> comment(// escaped double quotes) - -ident(string) operator(=) string<delimiter(''')content( -This is a multiline string declaration -using single quotes (you can use double quotes\) -)delimiter(''')> -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_1.1) -comment(//----------------------------------------------------------------------------------) -comment(// accessing substrings) -ident(string) operator(=) string<delimiter(')content(hippopotamus)delimiter(')> -ident(start) operator(=) integer(5)operator(;) ident(end) operator(=) integer(7)operator(;) ident(endplus1) operator(=) integer(8) -keyword(assert) ident(string)operator(.)ident(substring)operator(()ident(start)operator(,) ident(endplus1)operator(\)) operator(==) string<delimiter(')content(pot)delimiter(')> -keyword(assert) ident(string)operator([)ident(start)operator(..)ident(end)operator(]) operator(==) string<delimiter(')content(pot)delimiter(')> - -keyword(assert) ident(string)operator(.)ident(substring)operator(()ident(start)operator(\)) operator(==) string<delimiter(')content(potamus)delimiter(')> -keyword(assert) ident(string)operator([)ident(start)operator(..)operator(-)integer(1)operator(]) operator(==) string<delimiter(')content(potamus)delimiter(')> - -comment(// String is immutable but new strings can be created in various ways) -keyword(assert) ident(string) operator(-) string<delimiter(')content(hippo)delimiter(')> operator(-) string<delimiter(')content(mus)delimiter(')> operator(+) string<delimiter(')content(to)delimiter(')> operator(==) string<delimiter(')content(potato)delimiter(')> -keyword(assert) ident(string)operator(.)ident(replace)operator(()string<delimiter(')content(ppopotam)delimiter(')>operator(,)string<delimiter(')content(bisc)delimiter(')>operator(\)) operator(==) string<delimiter(')content(hibiscus)delimiter(')> -keyword(assert) ident(string)operator(.)ident(substring)operator(()integer(0)operator(,) integer(2)operator(\)) operator(+) string<delimiter(')content(bisc)delimiter(')> operator(+) ident(string)operator([)operator(-)integer(2)operator(..)operator(-)integer(1)operator(]) operator(==) string<delimiter(')content(hibiscus)delimiter(')> -comment(// StringBuffer is mutable) -ident(sb) operator(=) keyword(new) pre_type(StringBuffer)operator(()ident(string)operator(\)) -ident(sb)operator([)integer(2)operator(..)operator(-)integer(3)operator(]) operator(=) string<delimiter(')content(bisc)delimiter(')> -keyword(assert) ident(sb)operator(.)ident(toString)operator(()operator(\)) operator(==) string<delimiter(')content(hibiscus)delimiter(')> - -comment(// No exact pack/unpack equivalents exist in Groovy. Examples here use a custom) -comment(// implementation to split an original string into chunks of specified length) -comment(// the method is a modified version of the Java PLEAC version) - -comment(// get a 5-character string, skip 8, then grab 2 5-character strings) -comment(// skipping the trailing spaces, then grab the rest) -ident(data) operator(=) string<delimiter(')content(hippopotamus means river horse)delimiter(')> -keyword(def) ident(fields) operator(=) ident(unpack)operator(()string<delimiter(')content(A5 x8 A5 x1 A5 x1 A*)delimiter(')>operator(,) ident(data)operator(\)) -keyword(assert) ident(fields) operator(==) operator([)string<delimiter(')content(hippo)delimiter(')>operator(,) string<delimiter(')content(means)delimiter(')>operator(,) string<delimiter(')content(river)delimiter(')>operator(,) string<delimiter(')content(horse)delimiter(')>operator(]) - -comment(// On a Java 5 or 6 JVM, Groovy can also make use of Scanners:) -ident(s) operator(=) keyword(new) pre_type(Scanner)operator(()ident(data)operator(\)) -ident(s)operator(.)ident(findInLine)operator(()regexp<delimiter(/)content((.{5}\).{8}(.{5}\) (.{5}\) (.*\))delimiter(/)>operator(\)) -ident(m) operator(=) ident(s)operator(.)ident(match)operator(()operator(\)) -ident(fields) operator(=) type([]) -operator(()integer(1)operator(..)ident(m)operator(.)ident(groupCount)operator(()operator(\))operator(\))operator(.)ident(each)operator({) ident(fields) operator(<)operator(<) ident(m)operator(.)ident(group)operator(()local_variable(it)operator(\)) operator(}) -keyword(assert) ident(fields) operator(==) operator([)string<delimiter(')content(hippo)delimiter(')>operator(,) string<delimiter(')content(means)delimiter(')>operator(,) string<delimiter(')content(river)delimiter(')>operator(,) string<delimiter(')content(horse)delimiter(')>operator(]) - -comment(// another scanner example similar to the javadoc example) -ident(input) operator(=) string<delimiter(')content(1 fish 2 fish red fish blue fish)delimiter(')> -ident(s) operator(=) keyword(new) pre_type(Scanner)operator(()ident(input)operator(\))operator(.)ident(useDelimiter)operator(()regexp<delimiter(/)char(\\s)content(*fish)char(\\s)content(*)delimiter(/)>operator(\)) -ident(fields) operator(=) type([]) -integer(2)operator(.)ident(times)operator({) ident(fields) operator(<)operator(<) ident(s)operator(.)ident(nextInt)operator(()operator(\)) operator(}) -integer(2)operator(.)ident(times)operator({) ident(fields) operator(<)operator(<) ident(s)operator(.)ident(next)operator(()operator(\)) operator(}) -keyword(assert) ident(fields) operator(==) operator([)integer(1)operator(,) integer(2)operator(,) string<delimiter(')content(red)delimiter(')>operator(,) string<delimiter(')content(blue)delimiter(')>operator(]) - -comment(// split at five characters boundaries) -pre_type(String)type([]) ident(fivers) operator(=) ident(unpack)operator(()string<delimiter(')content(A5 )delimiter(')> operator(*) operator(()ident(data)operator(.)ident(length)operator(()operator(\)) operator(/) integer(5)operator(\))operator(,) ident(data)operator(\)) -keyword(assert) ident(fivers) operator(==) operator([)string<delimiter(")content(hippo)delimiter(")>operator(,) string<delimiter(")content(potam)delimiter(")>operator(,) string<delimiter(")content(us me)delimiter(")>operator(,) string<delimiter(")content(ans r)delimiter(")>operator(,) string<delimiter(")content(iver )delimiter(")>operator(,) string<delimiter(")content(horse)delimiter(")>operator(]) - -comment(// chop string into individual characters) -keyword(assert) string<delimiter(')content(abcd)delimiter(')> keyword(as) pre_type(String)type([]) operator(==) operator([)string<delimiter(')content(a)delimiter(')>operator(,) string<delimiter(')content(b)delimiter(')>operator(,) string<delimiter(')content(c)delimiter(')>operator(,) string<delimiter(')content(d)delimiter(')>operator(]) - -ident(string) operator(=) string<delimiter(")content(This is what you have)delimiter(")> -comment(// Indexing forwards (left to right\)) -comment(// tens 000000000011111111112) -comment(// units +012345678901234567890) -comment(// Indexing backwards (right to left\)) -comment(// tens 221111111111000000000) -comment(// units 109876543210987654321-) - -keyword(assert) ident(string)operator([)integer(0)operator(]) operator(==) string<delimiter(')content(T)delimiter(')> -keyword(assert) ident(string)operator([)integer(5)operator(..)integer(6)operator(]) operator(==) string<delimiter(')content(is)delimiter(')> -keyword(assert) ident(string)operator([)integer(13)operator(..)operator(-)integer(1)operator(]) operator(==) string<delimiter(')content(you have)delimiter(')> -keyword(assert) ident(string)operator([)operator(-)integer(1)operator(]) operator(==) string<delimiter(')content(e)delimiter(')> -keyword(assert) ident(string)operator([)operator(-)integer(4)operator(..)operator(-)integer(1)operator(]) operator(==) string<delimiter(')content(have)delimiter(')> -keyword(assert) ident(string)operator([)operator(-)integer(8)operator(,) operator(-)integer(7)operator(,) operator(-)integer(6)operator(]) operator(==) string<delimiter(')content(you)delimiter(')> - -ident(data) operator(=) keyword(new) pre_type(StringBuffer)operator(()ident(string)operator(\)) -ident(data)operator([)integer(5)operator(..)integer(6)operator(]) operator(=) string<delimiter(")content(wasn't)delimiter(")> operator(;) keyword(assert) ident(data)operator(.)ident(toString)operator(()operator(\)) operator(==) string<delimiter(")content(This wasn't what you have)delimiter(")> -ident(data)operator([)operator(-)integer(12)operator(..)operator(-)integer(1)operator(]) operator(=) string<delimiter(")content(ondrous)delimiter(")> operator(;) keyword(assert) ident(data)operator(.)ident(toString)operator(()operator(\)) operator(==) string<delimiter(")content(This wasn't wondrous)delimiter(")> -ident(data)operator([)integer(0)operator(..)integer(0)operator(]) operator(=) string<delimiter(")delimiter(")> operator(;) keyword(assert) ident(data)operator(.)ident(toString)operator(()operator(\)) operator(==) string<delimiter(")content(his wasn't wondrous)delimiter(")> -ident(data)operator([)operator(-)integer(10)operator(..)operator(-)integer(1)operator(]) operator(=) string<delimiter(")delimiter(")> operator(;) keyword(assert) ident(data)operator(.)ident(toString)operator(()operator(\)) operator(==) string<delimiter(")content(his wasn')delimiter(")> - -ident(string) operator(=) string<delimiter(")content(This wasn't wondrous)delimiter(")> -comment(// check last ten characters match some pattern) -keyword(assert) ident(string)operator([)operator(-)integer(10)operator(..)operator(-)integer(1)operator(]) operator(=~) regexp<delimiter(/)content(^t)char(\\s)content(w.*s)content($)delimiter(/)> - -ident(string) operator(=) string<delimiter(')content(This is a test)delimiter(')> -keyword(assert) ident(string)operator([)integer(0)operator(..)integer(4)operator(])operator(.)ident(replaceAll)operator(()string<delimiter(')content(is)delimiter(')>operator(,) string<delimiter(')content(at)delimiter(')>operator(\)) operator(+) ident(string)operator([)integer(5)operator(..)operator(-)integer(1)operator(]) operator(==) string<delimiter(')content(That is a test)delimiter(')> - -comment(// exchange the first and last letters in a string) -ident(string) operator(=) string<delimiter(')content(make a hat)delimiter(')> -ident(string) operator(=) ident(string)operator([)operator(-)integer(1)operator(]) operator(+) ident(string)operator([)integer(1)operator(..)operator(-)integer(2)operator(]) operator(+) ident(string)operator([)integer(0)operator(]) -keyword(assert) ident(string) operator(==) string<delimiter(')content(take a ham)delimiter(')> - -comment(// extract column with unpack) -ident(string) operator(=) string<delimiter(')content(To be or not to be)delimiter(')> - -comment(// skip 6, grab 6) -keyword(assert) ident(unpack)operator(()string<delimiter(")content(x6 A6)delimiter(")>operator(,) ident(string)operator(\)) operator(==) operator([)string<delimiter(')content(or not)delimiter(')>operator(]) - -comment(// forward 6, grab 2, backward 5, grab 2) -keyword(assert) ident(unpack)operator(()string<delimiter(")content(x6 A2 X5 A2)delimiter(")>operator(,) ident(string)operator(\)) operator(==) operator([)string<delimiter(')content(or)delimiter(')>operator(,) string<delimiter(')content(be)delimiter(')>operator(]) - -keyword(assert) ident(cut2fmt)operator(()operator([)integer(8)operator(,) integer(14)operator(,) integer(20)operator(,) integer(26)operator(,) integer(30)operator(])operator(\)) operator(==) string<delimiter(')content(A7 A6 A6 A6 A4 A*)delimiter(')> - -comment(// utility method (derived from Java PLEAC version\)) -keyword(def) method(unpack)operator(()pre_type(String) ident(format)operator(,) pre_type(String) ident(data)operator(\)) operator({) - keyword(def) ident(result) operator(=) type([]) - type(int) ident(formatOffset) operator(=) integer(0)operator(,) ident(dataOffset) operator(=) integer(0) - type(int) ident(minDataOffset) operator(=) integer(0)operator(,) ident(maxDataOffset) operator(=) ident(data)operator(.)ident(size)operator(()operator(\)) - - keyword(new) pre_type(StringTokenizer)operator(()ident(format)operator(\))operator(.)ident(each)operator({) ident(token) operator(->) - type(int) ident(tokenLen) operator(=) ident(token)operator(.)ident(length)operator(()operator(\)) - - comment(// count determination) - type(int) ident(count) operator(=) integer(0) - keyword(if) operator(()ident(tokenLen) operator(==) integer(1)operator(\)) ident(count) operator(=) integer(1) - keyword(else) keyword(if) operator(()ident(token)operator(.)ident(charAt)operator(()integer(1)operator(\)) operator(==) string<delimiter(')content(*)delimiter(')>operator(\)) ident(count) operator(=) operator(-)integer(1) - keyword(else) ident(count) operator(=) ident(token)operator([)integer(1)operator(..)operator(-)integer(1)operator(])operator(.)ident(toInteger)operator(()operator(\)) - - comment(// action determination) - type(char) ident(action) operator(=) ident(token)operator(.)ident(charAt)operator(()integer(0)operator(\)) - keyword(switch) operator(()ident(action)operator(\)) operator({) - keyword(case) string<delimiter(')content(A)delimiter(')>operator(:) - keyword(if) operator(()ident(count) operator(==) operator(-)integer(1)operator(\)) operator({) - ident(start) operator(=) operator([)ident(dataOffset)operator(,) ident(maxDataOffset)operator(])operator(.)ident(min)operator(()operator(\)) - ident(result)operator(.)ident(add)operator(()ident(data)operator([)ident(start)operator(..)operator(-)integer(1)operator(])operator(\)) - ident(dataOffset) operator(=) ident(maxDataOffset) - operator(}) keyword(else) operator({) - ident(start) operator(=) operator([)ident(dataOffset)operator(,) ident(maxDataOffset)operator(])operator(.)ident(min)operator(()operator(\)) - ident(end) operator(=) operator([)ident(dataOffset) operator(+) ident(count)operator(,) ident(maxDataOffset)operator(])operator(.)ident(min)operator(()operator(\)) - ident(result)operator(.)ident(add)operator(()ident(data)operator([)ident(start)operator(..<)ident(end)operator(])operator(\)) - ident(dataOffset) operator(+=) ident(count) - operator(}) - keyword(break) - keyword(case) string<delimiter(')content(x)delimiter(')>operator(:) - keyword(if) operator(()ident(count) operator(==) operator(-)integer(1)operator(\)) ident(dataOffset) operator(=) ident(maxDataOffset) - keyword(else) ident(dataOffset) operator(+=) ident(count) - keyword(break) - keyword(case) string<delimiter(')content(X)delimiter(')>operator(:) - keyword(if) operator(()ident(count) operator(==) operator(-)integer(1)operator(\)) ident(dataOffset) operator(=) ident(minDataOffset) - keyword(else) ident(dataOffset) operator(-=) ident(count) - keyword(break) - keyword(default)operator(:) - keyword(throw) keyword(new) exception(RuntimeException)operator(()string<delimiter(')content(Unknown action token)delimiter(')>operator(,) ident(formatOffset)operator(\)) - operator(}) - ident(formatOffset) operator(+=) ident(tokenLen) operator(+) integer(1) - operator(}) - keyword(return) ident(result) keyword(as) pre_type(String)type([]) -operator(}) - -comment(// utility method) -keyword(def) method(cut2fmt)operator(()ident(positions)operator(\)) operator({) - ident(template) operator(=) string<delimiter(')delimiter(')> - ident(lastpos) operator(=) integer(1) - keyword(for) operator(()ident(pos) keyword(in) ident(positions)operator(\)) operator({) - ident(template) operator(+=) string<delimiter(')content(A)delimiter(')> operator(+) operator(()ident(pos) operator(-) ident(lastpos)operator(\)) operator(+) string<delimiter(')content( )delimiter(')> - ident(lastpos) operator(=) ident(pos) - operator(}) - keyword(return) ident(template) operator(+) string<delimiter(')content(A*)delimiter(')> -operator(}) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_1.2) -comment(//----------------------------------------------------------------------------------) -comment(// use b if b is true, else c) -ident(b) operator(=) pre_constant(false)operator(;) ident(c) operator(=) string<delimiter(')content(cat)delimiter(')> -keyword(assert) operator(()ident(b) operator(?) ident(b) operator(:) ident(c)operator(\)) operator(==) string<delimiter(')content(cat)delimiter(')> -ident(b) operator(=) pre_constant(true) -keyword(assert) operator(()ident(b) operator(?) ident(b) operator(:) ident(c)operator(\)) -comment(// can be simplified to 'b || c' if c is a boolean) -comment(// strictly speaking, b doesn't have to be a boolean,) -comment(// e.g. an empty list is coerced to boolean false) -ident(b) operator(=) type([]) -keyword(assert) operator(()ident(b) operator(?) ident(b) operator(:) ident(c)operator(\)) operator(==) string<delimiter(')content(cat)delimiter(')> - -comment(// set x to y unless x is already true) -ident(x) operator(=) pre_constant(false)operator(;) ident(y) operator(=) string<delimiter(')content(dog)delimiter(')> -keyword(if) operator(()operator(!)ident(x)operator(\)) ident(x) operator(=) ident(y) -keyword(assert) ident(x) operator(==) string<delimiter(')content(dog)delimiter(')> -comment(// can be simplified to 'x ||= y' if y is a boolean) -comment(// x doesn't need to be a boolean, e.g. a non-empty) -comment(// string is coerced to boolean true) -ident(x) operator(=) string<delimiter(')content(cat)delimiter(')> -keyword(if) operator(()operator(!)ident(x)operator(\)) ident(x) operator(=) ident(y) -keyword(assert) ident(x) operator(==) string<delimiter(')content(cat)delimiter(')> - -comment(// JVM supplies user name) -comment(// otherwise could use exec or built-in Ant features for reading environment vars) -keyword(assert) pre_type(System)operator(.)ident(getProperty)operator(()string<delimiter(')content(user.name)delimiter(')>operator(\)) - -comment(// test for nullity then for emptyness) -keyword(def) method(setDefaultIfNullOrEmpty)operator(()ident(startingPoint)operator(\)) operator({) - operator(()operator(!)ident(startingPoint) operator(||) ident(startingPoint)operator(.)ident(length)operator(()operator(\)) operator(==) integer(0)operator(\)) operator(?) string<delimiter(')content(Greenwich)delimiter(')> operator(:) ident(startingPoint) -operator(}) -keyword(assert) ident(setDefaultIfNullOrEmpty)operator(()pre_constant(null)operator(\)) operator(==) string<delimiter(')content(Greenwich)delimiter(')> -keyword(assert) ident(setDefaultIfNullOrEmpty)operator(()string<delimiter(')delimiter(')>operator(\)) operator(==) string<delimiter(')content(Greenwich)delimiter(')> -keyword(assert) ident(setDefaultIfNullOrEmpty)operator(()string<delimiter(')content(Something else)delimiter(')>operator(\)) operator(==) string<delimiter(')content(Something else)delimiter(')> -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_1.3) -comment(//----------------------------------------------------------------------------------) -ident(v1) operator(=) string<delimiter(')content(alpha)delimiter(')>operator(;) ident(v2) operator(=) string<delimiter(')content(omega)delimiter(')> -comment(// this can done with explicit swapping via a temp variable) -comment(// or in a slightly more interesting way with a closure) -ident(swap) operator(=) operator({) ident(temp) operator(=) ident(v1)operator(;) ident(v1) operator(=) ident(v2)operator(;) ident(v2) operator(=) ident(temp) operator(}) -ident(swap)operator(()operator(\)) -keyword(assert) ident(v1) operator(==) string<delimiter(')content(omega)delimiter(')> operator(&&) ident(v2) operator(==) string<delimiter(')content(alpha)delimiter(')> -comment(// a more generic swap(\) is also possible using Groovy's metaclass mechanisms) -comment(// but is not idiomatic of Groovy usage) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_1.4) -comment(//----------------------------------------------------------------------------------) -comment(// char and int are interchangable, apart from precision difference) -comment(// char use 16 bits while int use 32, requiring a cast from int to char) -type(char) ident(ch) operator(=) string<delimiter(')content(e)delimiter(')> -type(int) ident(num) operator(=) ident(ch) comment(// no problem) -ident(ch) operator(=) operator(()type(char)operator(\)) ident(num) comment(// needs an explicit cast) - -ident(s1) operator(=) string<delimiter(")content(Number )delimiter(")> operator(+) ident(num) operator(+) string<delimiter(")content( is character )delimiter(")> operator(+) operator(()type(char)operator(\)) ident(num) -keyword(assert) ident(s1) operator(==) string<delimiter(')content(Number 101 is character e)delimiter(')> -ident(s2) operator(=) string<delimiter(")content(Character )delimiter(")> operator(+) ident(ch) operator(+) string<delimiter(")content( is number )delimiter(")> operator(+) operator(()type(int)operator(\)) ident(ch) -keyword(assert) ident(s2) operator(==) string<delimiter(')content(Character e is number 101)delimiter(')> - -comment(// easy conversion between char arrays, char lists and Strings) -type(char)type([]) ident(ascii) operator(=) string<delimiter(")content(sample)delimiter(")>operator(.)ident(toCharArray)operator(()operator(\)) comment(// {115, 97, 109, 112, 108, 101}) -keyword(assert) keyword(new) pre_type(String)operator(()ident(ascii)operator(\)) operator(==) string<delimiter(")content(sample)delimiter(")> -keyword(assert) keyword(new) pre_type(String)operator(()operator([)integer(115)operator(,) integer(97)operator(,) integer(109)operator(,) integer(112)operator(,) integer(108)operator(,) integer(101)operator(]) keyword(as) type(char)type([])operator(\)) operator(==) string<delimiter(")content(sample)delimiter(")> - -comment(// convert 'HAL' to 'IBM' (in increasing order of Grooviness\)) -keyword(assert) string<delimiter(")content(HAL)delimiter(")>operator(.)ident(toCharArray)operator(()operator(\))operator(.)ident(collect)operator({)keyword(new) pre_type(String)operator(()local_variable(it)operator(+)integer(1) keyword(as) type(char)type([])operator(\))operator(})operator(.)ident(join)operator(()operator(\)) operator(==) string<delimiter(')content(IBM)delimiter(')> -keyword(assert) operator(()string<delimiter(")content(HAL)delimiter(")> keyword(as) pre_type(String)type([])operator(\))operator(.)ident(collect)operator({)local_variable(it)operator(.)ident(next)operator(()operator(\))operator(})operator(.)ident(join)operator(()operator(\)) operator(==) string<delimiter(')content(IBM)delimiter(')> -keyword(assert) string<delimiter(")content(HAL)delimiter(")>operator(.)ident(replaceAll)operator(()string<delimiter(')content(.)delimiter(')>operator(,) operator({)local_variable(it)operator(.)ident(next)operator(()operator(\))operator(})operator(\)) operator(==) string<delimiter(')content(IBM)delimiter(')> -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_1.5) -comment(//----------------------------------------------------------------------------------) -ident(string) operator(=) string<delimiter(")content(an apple a day)delimiter(")> -keyword(assert) ident(string)operator([)integer(3)operator(..)integer(7)operator(])operator(.)ident(split)operator(()string<delimiter(')delimiter(')>operator(\))operator([)integer(1)operator(..)integer(5)operator(]) operator(==) operator([)string<delimiter(')content(a)delimiter(')>operator(,) string<delimiter(')content(p)delimiter(')>operator(,) string<delimiter(')content(p)delimiter(')>operator(,) string<delimiter(')content(l)delimiter(')>operator(,) string<delimiter(')content(e)delimiter(')>operator(]) -keyword(assert) ident(string)operator(.)ident(split)operator(()string<delimiter(')delimiter(')>operator(\))operator(.)ident(toList)operator(()operator(\))operator(.)ident(unique)operator(()operator(\))operator(.)ident(sort)operator(()operator(\))operator(.)ident(join)operator(()operator(\)) operator(==) string<delimiter(')content( adelnpy)delimiter(')> - -comment(//----------------------------------------------------------------------------------) -comment(// CheckSum.groovy: Compute 16-bit checksum of input file) -comment(// Usage: groovy CheckSum <file>) -comment(// script:) -ident(checksum) operator(=) integer(0) -keyword(new) pre_type(File)operator(()ident(args)operator([)integer(0)operator(])operator(\))operator(.)ident(eachByte)operator({) ident(checksum) operator(+=) local_variable(it) operator(}) -ident(checksum) operator(%=) operator(()type(int)operator(\)) pre_type(Math)operator(.)ident(pow)operator(()integer(2)operator(,) integer(16)operator(\)) operator(-) integer(1) -ident(println) ident(checksum) -comment(//----------------------------------------------------------------------------------) -comment(// to run on its own source code:) -comment(//=> % groovy CheckSum CheckSum.groovy) -comment(//=> 9349) -comment(//----------------------------------------------------------------------------------) -comment(// Slowcat.groovy: Emulate a s l o w line printer) -comment(// Usage: groovy Slowcat <file> <delay_millis_between_each_char>) -comment(// script:) -ident(delay) operator(=) ident(args)operator([)integer(1)operator(])operator(.)ident(toInteger)operator(()operator(\)) -keyword(new) pre_type(File)operator(()ident(args)operator([)integer(0)operator(])operator(\))operator(.)ident(eachByte)operator({) ident(print) operator(()operator(()type(char)operator(\)) local_variable(it)operator(\))operator(;) pre_type(Thread)operator(.)ident(sleep)operator(()ident(delay)operator(\)) operator(}) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_1.6) -comment(//----------------------------------------------------------------------------------) -keyword(assert) string<delimiter(')content(string)delimiter(')>operator(.)ident(reverse)operator(()operator(\)) operator(==) string<delimiter(')content(gnirts)delimiter(')> - -ident(string) operator(=) string<delimiter(')content(Yoda said, "can you see this?")delimiter(')> -ident(revwords) operator(=) ident(string)operator(.)ident(split)operator(()string<delimiter(')content( )delimiter(')>operator(\))operator(.)ident(toList)operator(()operator(\))operator(.)ident(reverse)operator(()operator(\))operator(.)ident(join)operator(()string<delimiter(')content( )delimiter(')>operator(\)) -keyword(assert) ident(revwords) operator(==) string<delimiter(')content(this?" see you "can said, Yoda)delimiter(')> - -ident(words) operator(=) operator([)string<delimiter(')content(bob)delimiter(')>operator(,) string<delimiter(')content(alpha)delimiter(')>operator(,) string<delimiter(')content(rotator)delimiter(')>operator(,) string<delimiter(')content(omega)delimiter(')>operator(,) string<delimiter(')content(reviver)delimiter(')>operator(]) -ident(long_palindromes) operator(=) ident(words)operator(.)ident(findAll)operator({) ident(w) operator(->) ident(w) operator(==) ident(w)operator(.)ident(reverse)operator(()operator(\)) operator(&&) ident(w)operator(.)ident(size)operator(()operator(\)) operator(>) integer(5) operator(}) -keyword(assert) ident(long_palindromes) operator(==) operator([)string<delimiter(')content(rotator)delimiter(')>operator(,) string<delimiter(')content(reviver)delimiter(')>operator(]) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_1.7) -comment(//----------------------------------------------------------------------------------) -ident(s1) operator(=) string<delimiter(')content(abc\\t def\\tghi \\n\\tx)delimiter(')> -ident(s2) operator(=) string<delimiter(')content(abc def ghi \\n x)delimiter(')> -keyword(def) method(expand)operator(()ident(s)operator(\)) operator({) - ident(s)operator(.)ident(split)operator(()string<delimiter(')content(\\n)delimiter(')>operator(\))operator(.)ident(toList)operator(()operator(\))operator(.)ident(collect)operator({) - ident(line) operator(=) local_variable(it) - keyword(while) operator(()ident(line)operator(.)ident(contains)operator(()string<delimiter(')content(\\t)delimiter(')>operator(\))operator(\)) operator({) - ident(line) operator(=) ident(line)operator(.)ident(replaceAll)operator(()regexp<delimiter(/)content(([^)char(\\t)content(]*\)()char(\\t)content(\)(.*\))delimiter(/)>operator(\))operator({) - ident(all)operator(,)ident(pre)operator(,)ident(tab)operator(,)ident(suf) operator(->) ident(pre) operator(+) string<delimiter(')content( )delimiter(')> operator(*) operator(()integer(8) operator(-) ident(pre)operator(.)ident(size)operator(()operator(\)) operator(%) integer(8)operator(\)) operator(+) ident(suf) - operator(}) - operator(}) - keyword(return) ident(line) - operator(})operator(.)ident(join)operator(()string<delimiter(')content(\\n)delimiter(')>operator(\)) -operator(}) -keyword(def) method(unexpand)operator(()ident(s)operator(\)) operator({) - ident(s)operator(.)ident(split)operator(()string<delimiter(')content(\\n)delimiter(')>operator(\))operator(.)ident(toList)operator(()operator(\))operator(.)ident(collect)operator({) - ident(line) operator(=) local_variable(it) - keyword(for) operator(()ident(i) keyword(in) ident(line)operator(.)ident(size)operator(()operator(\))operator(-)integer(1)operator(..)integer(1)operator(\)) operator({) - keyword(if) operator(()ident(i) operator(%) integer(8) operator(==) integer(0)operator(\)) operator({) - ident(prefix) operator(=) ident(line)operator([)integer(0)operator(..<)ident(i)operator(]) - keyword(if) operator(()ident(prefix)operator(.)ident(trim)operator(()operator(\))operator(.)ident(size)operator(()operator(\)) operator(!=) ident(prefix)operator(.)ident(size)operator(()operator(\))operator(\)) operator({) - ident(line) operator(=) ident(prefix)operator(.)ident(trim)operator(()operator(\)) operator(+) string<delimiter(')content(\\t)delimiter(')> operator(+) ident(line)operator([)ident(i)operator(..)operator(-)integer(1)operator(]) - operator(}) - operator(}) - operator(}) - keyword(return) ident(line) - operator(})operator(.)ident(join)operator(()string<delimiter(')content(\\n)delimiter(')>operator(\)) -operator(}) -keyword(assert) ident(expand)operator(()ident(s1)operator(\)) operator(==) ident(s2) -keyword(assert) ident(unexpand)operator(()ident(s2)operator(\)) operator(==) ident(s1) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_1.8) -comment(//----------------------------------------------------------------------------------) -ident(debt) operator(=) integer(150) -keyword(assert) string<delimiter(")content(You owe )inline<inline_delimiter($)ident(debt)>content( to me)delimiter(")> operator(==) string<delimiter(')content(You owe 150 to me)delimiter(')> - -ident(rows) operator(=) integer(24)operator(;) ident(cols) operator(=) integer(80) -keyword(assert) string<delimiter(")content(I am )inline<inline_delimiter($)ident(rows)>content( high and )inline<inline_delimiter($)ident(cols)>content( wide)delimiter(")> operator(==) string<delimiter(')content(I am 24 high and 80 wide)delimiter(')> - -keyword(assert) string<delimiter(')content(I am 17 years old)delimiter(')>operator(.)ident(replaceAll)operator(()regexp<delimiter(/)char(\\d)content(+)delimiter(/)>operator(,) operator({)integer(2)operator(*)local_variable(it)operator(.)ident(toInteger)operator(()operator(\))operator(})operator(\)) operator(==) string<delimiter(')content(I am 34 years old)delimiter(')> -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_1.9) -comment(//----------------------------------------------------------------------------------) -keyword(assert) string<delimiter(")content(bo peep)delimiter(")>operator(.)ident(toUpperCase)operator(()operator(\)) operator(==) string<delimiter(')content(BO PEEP)delimiter(')> -keyword(assert) string<delimiter(')content(JOHN)delimiter(')>operator(.)ident(toLowerCase)operator(()operator(\)) operator(==) string<delimiter(')content(john)delimiter(')> -keyword(def) method(capitalize)operator(()ident(s)operator(\)) operator({)ident(s)operator([)integer(0)operator(])operator(.)ident(toUpperCase)operator(()operator(\)) operator(+) operator(()ident(s)operator(.)ident(size)operator(()operator(\))operator(<)integer(2) operator(?) string<delimiter(')delimiter(')> operator(:) ident(s)operator([)integer(1)operator(..)operator(-)integer(1)operator(])operator(?)operator(.)ident(toLowerCase)operator(()operator(\))operator(\))operator(}) -keyword(assert) ident(capitalize)operator(()string<delimiter(')content(joHn)delimiter(')>operator(\)) operator(==) string<delimiter(')content(John)delimiter(')> - -ident(s) operator(=) string<delimiter(")content(thIS is a loNG liNE)delimiter(")>operator(.)ident(replaceAll)operator(()regexp<delimiter(/)char(\\w)content(+)delimiter(/)>operator(\))operator({)ident(capitalize)operator(()local_variable(it)operator(\))operator(}) -keyword(assert) ident(s) operator(==) string<delimiter(')content(This Is A Long Line)delimiter(')> - -ident(s1) operator(=) string<delimiter(')content(JOhn)delimiter(')>operator(;) ident(s2) operator(=) string<delimiter(')content(joHN)delimiter(')> -keyword(assert) ident(s1)operator(.)ident(equalsIgnoreCase)operator(()ident(s2)operator(\)) - -directive(private) pre_type(Random) ident(rand) -keyword(def) method(randomCase)operator(()type(char) ident(ch)operator(\)) operator({) - operator(()ident(rand)operator(.)ident(nextInt)operator(()integer(100)operator(\)) operator(<) integer(20)operator(\)) operator(?) pre_type(Character)operator(.)ident(toLowerCase)operator(()ident(ch)operator(\)) operator(:) ident(ch) -operator(}) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_1.10) -comment(//----------------------------------------------------------------------------------) -ident(n) operator(=) integer(10) -keyword(assert) string<delimiter(")content(I have )inline<inline_delimiter(${)ident(n)operator(+)integer(1)inline_delimiter(})>content( guanacos.)delimiter(")> operator(==) string<delimiter(')content(I have 11 guanacos.)delimiter(')> -keyword(assert) string<delimiter(")content(I have )delimiter(")> operator(+) operator(()ident(n)operator(+)integer(1)operator(\)) operator(+) string<delimiter(")content( guanacos.)delimiter(")> operator(==) string<delimiter(')content(I have 11 guanacos.)delimiter(')> - -comment(// sending templated email is solved in two parts: templating and sending) -comment(// Part 1: creating an email template) -ident(naughty) operator(=) string<delimiter(')content(Mr Bad Credit)delimiter(')> -keyword(def) method(get_manager_list)operator(()ident(s)operator(\)) operator({) string<delimiter(')content(The Big Boss)delimiter(')> operator(}) -ident(msg) operator(=) string<delimiter(""")content( -To: )inline<inline_delimiter($)ident(naughty)>content( -From: Your Bank -Cc: )inline<inline_delimiter(${) ident(get_manager_list)operator(()ident(naughty)operator(\)) inline_delimiter(})>content( -Date: )inline<inline_delimiter(${) keyword(new) pre_type(Date)operator(()operator(\)) inline_delimiter(})>content( - -Dear )inline<inline_delimiter($)ident(naughty)>content(, - -Today, you bounced check number )inline<inline_delimiter(${) integer(500) operator(+) keyword(new) pre_type(Random)operator(()operator(\))operator(.)ident(nextInt)operator(()integer(100)operator(\)) inline_delimiter(})>content( to us. -Your account is now closed. - -Sincerely, -the management -)delimiter(""")> -ident(expected) operator(=) string<delimiter(''')content( -To: Mr Bad Credit -From: Your Bank -Cc: The Big Boss -Date: XXX - -Dear Mr Bad Credit, - -Today, you bounced check number XXX to us. -Your account is now closed. - -Sincerely, -the management -)delimiter(''')> -ident(sanitized) operator(=) ident(msg)operator(.)ident(replaceAll)operator(()string<delimiter(')content((?m\)^Date: (.*\)$)delimiter(')>operator(,)string<delimiter(')content(Date: XXX)delimiter(')>operator(\)) -ident(sanitized) operator(=) ident(sanitized)operator(.)ident(replaceAll)operator(()regexp<delimiter(/)content((?m\)check number ()char(\\d)content(+\) to)delimiter(/)>operator(,)string<delimiter(')content(check number XXX to)delimiter(')>operator(\)) -keyword(assert) ident(sanitized) operator(==) ident(expected) -comment(// note: Groovy also has several additional built-in templating facilities) -comment(// Part 2: sending email) -comment(// SendMail.groovy: Send email) -comment(// Usage: groovy SendEmail <msgfile>) -comment(// script:) -ident(ant) operator(=) keyword(new) ident(AntBuilder)operator(()operator(\)) -ident(ant)operator(.)ident(mail)operator(()key(from)operator(:)string<delimiter(')content(manager@grumpybank.com)delimiter(')>operator(,) key(tolist)operator(:)string<delimiter(')content(innocent@poorhouse.com)delimiter(')>operator(,) - key(encoding)operator(:)string<delimiter(')content(plain)delimiter(')>operator(,) key(mailhost)operator(:)string<delimiter(')content(mail.someserver.com)delimiter(')>operator(,) - key(subject)operator(:)string<delimiter(')content(Friendly Letter)delimiter(')>operator(,) key(message)operator(:)string<delimiter(')content(this is a test message)delimiter(')>operator(\)) -comment(// Ant has many options for setting encoding, security, attachments, etc., see:) -comment(// http://ant.apache.org/manual/CoreTasks/mail.html) -comment(// Groovy could also use the Java Mail Api directly if required) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_1.11) -comment(//----------------------------------------------------------------------------------) -keyword(def) ident(raw) operator(=) string<delimiter(''')content( - your text - goes here -)delimiter(''')> - -keyword(def) ident(expected) operator(=) string<delimiter(''')content( -your text -goes here -)delimiter(''')> - -keyword(assert) ident(raw)operator(.)ident(split)operator(()string<delimiter(')content(\\n)delimiter(')>operator(\))operator(.)ident(toList)operator(()operator(\))operator(.)ident(collect)operator({) - local_variable(it)operator(.)ident(replaceAll)operator(()regexp<delimiter(/)content(^)char(\\s)content(+)delimiter(/)>operator(,)string<delimiter(')delimiter(')>operator(\)) -operator(})operator(.)ident(join)operator(()string<delimiter(')content(\\n)delimiter(')>operator(\)) operator(+) string<delimiter(')content(\\n)delimiter(')> operator(==) ident(expected) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_1.12) -comment(//----------------------------------------------------------------------------------) -ident(input) operator(=) string<delimiter(''')content(Folding and splicing is the work of an editor, - not a mere collection of silicon - and - mobile electrons!)delimiter(''')> - -ident(expected) operator(=) string<delimiter(''')content(Folding and splicing -is the work of an -editor, not a mere -collection of -silicon and mobile -electrons!)delimiter(''')> - -keyword(def) method(wrap)operator(()ident(text)operator(,) ident(maxSize)operator(\)) operator({) - ident(all) operator(=) type([]) - ident(line) operator(=) string<delimiter(')delimiter(')> - ident(text)operator(.)ident(eachMatch)operator(()regexp<delimiter(/)char(\\S)content(+)delimiter(/)>operator(\)) operator({) - ident(word) operator(=) local_variable(it)operator([)integer(0)operator(]) - keyword(if) operator(()ident(line)operator(.)ident(size)operator(()operator(\)) operator(+) integer(1) operator(+) ident(word)operator(.)ident(size)operator(()operator(\)) operator(>) ident(maxSize)operator(\)) operator({) - ident(all) operator(+=) ident(line) - ident(line) operator(=) ident(word) - operator(}) keyword(else) operator({) - ident(line) operator(+=) operator(()ident(line) operator(==) string<delimiter(')delimiter(')> operator(?) ident(word) operator(:) string<delimiter(')content( )delimiter(')> operator(+) ident(word)operator(\)) - operator(}) - operator(}) - ident(all) operator(+=) ident(line) - keyword(return) ident(all)operator(.)ident(join)operator(()string<delimiter(')content(\\n)delimiter(')>operator(\)) -operator(}) -keyword(assert) ident(wrap)operator(()ident(input)operator(,) integer(20)operator(\)) operator(==) ident(expected) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_1.13) -comment(//----------------------------------------------------------------------------------) -ident(string) operator(=) regexp<delimiter(/)content(Mom said, "Don't do that.")delimiter(/)> -comment(// backslash special chars) -keyword(assert) ident(string)operator(.)ident(replaceAll)operator(()regexp<delimiter(/)content(['"])delimiter(/)>operator(\))operator({)regexp<delimiter(/)char(\\\\)delimiter(/)>operator(+)local_variable(it)operator([)integer(0)operator(])operator(}) operator(==) regexp<delimiter(/)content(Mom said, )char(\\")content(Don)char(\\')content(t do that.)char(\\")delimiter(/)> comment(//') -comment(// double special chars) -keyword(assert) ident(string)operator(.)ident(replaceAll)operator(()regexp<delimiter(/)content(['"])delimiter(/)>operator(\))operator({)local_variable(it)operator([)integer(0)operator(])operator(+)local_variable(it)operator([)integer(0)operator(])operator(}) operator(==) regexp<delimiter(/)content(Mom said, ""Don''t do that."")delimiter(/)> comment(//') -comment(//backslash quote all non-capital letters) -keyword(assert) string<delimiter(")content(DIR /?)delimiter(")>operator(.)ident(replaceAll)operator(()regexp<delimiter(/)content([^A-Z])delimiter(/)>operator(\))operator({)regexp<delimiter(/)char(\\\\)delimiter(/)>operator(+)local_variable(it)operator([)integer(0)operator(])operator(}) operator(==) regexp<delimiter(/)content(DIR)content(\\ )char(\\/)content(\\?)delimiter(/)> -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_1.14) -comment(//----------------------------------------------------------------------------------) -keyword(assert) string<delimiter(')content( x )delimiter(')>operator(.)ident(trim)operator(()operator(\)) operator(==) string<delimiter(')content(x)delimiter(')> -comment(// print what's typed, but surrounded by >< symbols) -comment(// script:) -keyword(new) pre_type(BufferedReader)operator(()keyword(new) pre_type(InputStreamReader)operator(()pre_type(System)operator(.)ident(in)operator(\))operator(\))operator(.)ident(eachLine)operator({) - ident(println)operator(()string<delimiter(")content(>)delimiter(")> operator(+) local_variable(it)operator(.)ident(trim)operator(()operator(\)) operator(+) string<delimiter(")content(<)delimiter(")>operator(\))operator(;) -operator(}) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_1.15) -comment(//----------------------------------------------------------------------------------) -ident(pattern) operator(=) regexp<delimiter(/)content("([^)char(\\")char(\\\\)content(]*(?:)char(\\\\)content(.[^)char(\\")char(\\\\)content(]*\)*\)",?|([^,]+\),?|,)delimiter(/)> -ident(line) operator(=) regexp<delimiter(/)content(XYZZY,"","O'Reilly, Inc","Wall, Larry","a )char(\\")content(glug)char(\\")content( bit,",5,"Error, Core Dumped")delimiter(/)> -ident(m) operator(=) ident(line) operator(=~) ident(pattern) -ident(expected) operator(=) operator([)regexp<delimiter(/)content(XYZZY)delimiter(/)>operator(,) string<delimiter(')delimiter(')>operator(,) regexp<delimiter(/)content(O'Reilly, Inc)delimiter(/)>operator(,) regexp<delimiter(/)content(Wall, Larry)delimiter(/)>operator(,) comment(//') - regexp<delimiter(/)content(a )char(\\")content(glug)char(\\")content( bit,)delimiter(/)>operator(,) regexp<delimiter(/)content(5)delimiter(/)>operator(,) regexp<delimiter(/)content(Error, Core Dumped)delimiter(/)>operator(]) -keyword(for) operator(()ident(i) keyword(in) integer(0)operator(..<)ident(m)operator(.)ident(size)operator(()operator(\))operator(.)ident(toInteger)operator(()operator(\))operator(\)) - keyword(assert) ident(expected)operator([)ident(i)operator(]) operator(==) operator(()ident(m)operator([)ident(i)operator(])operator([)integer(2)operator(]) operator(?) ident(m)operator([)ident(i)operator(])operator([)integer(2)operator(]) operator(:) ident(m)operator([)ident(i)operator(])operator([)integer(1)operator(])operator(\)) - -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_1.16) -comment(//----------------------------------------------------------------------------------) -comment(// A quick google search found several Java implementations.) -comment(// As an example, how to use commons codec is shown below.) -comment(// Just place the respective jar in your classpath.) -comment(// Further details: http://jakarta.apache.org/commons/codec) -comment(// require(groupId:'commons-codec', artifactId:'commons-codec', version:'1.3'\)) -ident(soundex) operator(=) keyword(new) ident(org)operator(.)ident(apache)operator(.)ident(commons)operator(.)ident(codec)operator(.)ident(language)operator(.)ident(Soundex)operator(()operator(\)) -keyword(assert) ident(soundex)operator(.)ident(soundex)operator(()string<delimiter(')content(Smith)delimiter(')>operator(\)) operator(==) ident(soundex)operator(.)ident(soundex)operator(()string<delimiter(')content(Smyth)delimiter(')>operator(\)) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_1.17) -comment(//----------------------------------------------------------------------------------) -ident(input) operator(=) string<delimiter(''')content(I have analysed the new part. As long as you -aren't worried about the colour, it is a dropin replacement.)delimiter(''')> comment(//') - -ident(expected) operator(=) string<delimiter(''')content(I have analyzed the new part. As long as you -aren't worried about the color, it is a drop-in replacement.)delimiter(''')> comment(//') - -ident(translations) operator(=) operator([)key(colour)operator(:)string<delimiter(')content(color)delimiter(')>operator(,) key(analysed)operator(:)string<delimiter(')content(analyzed)delimiter(')>operator(,) key(dropin)operator(:)string<delimiter(')content(drop-in)delimiter(')>operator(]) - -keyword(def) method(fixstyle)operator(()ident(s)operator(\)) operator({) - ident(s)operator(.)ident(split)operator(()string<delimiter(')content(\\n)delimiter(')>operator(\))operator(.)ident(toList)operator(()operator(\))operator(.)ident(collect)operator({) - ident(line) operator(=) local_variable(it) - ident(translations)operator(.)ident(each)operator({) ident(key)operator(,) ident(value) operator(->) - ident(line) operator(=) ident(line)operator(.)ident(replaceAll)operator(()regexp<delimiter(/)content((?<=)char(\\W)content(\))delimiter(/)> operator(+) ident(key) operator(+) regexp<delimiter(/)content((?=)char(\\W)content(\))delimiter(/)>operator(,) ident(value)operator(\)) - operator(}) - keyword(return) ident(line) - operator(})operator(.)ident(join)operator(()string<delimiter(')content(\\n)delimiter(')>operator(\)) -operator(}) -keyword(assert) ident(fixstyle)operator(()ident(input)operator(\)) operator(==) ident(expected) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_1.18) -comment(//----------------------------------------------------------------------------------) -comment(// Solved in two parts: 'screenscrape' text stream and return stream from process) -comment(// Part 1: text scraping) -ident(input) operator(=) string<delimiter(''')content( - PID PPID PGID WINPID TTY UID STIME COMMAND - 4636 1 4636 4636 con 1005 08:24:50 /usr/bin/bash - 676 4636 676 788 con 1005 13:53:32 /usr/bin/ps -)delimiter(''')> -ident(select1) operator(=) string<delimiter(''')content( - PID PPID PGID WINPID TTY UID STIME COMMAND - 676 4636 676 788 con 1005 13:53:32 /usr/bin/ps -)delimiter(''')> -ident(select2) operator(=) string<delimiter(''')content( - PID PPID PGID WINPID TTY UID STIME COMMAND - 4636 1 4636 4636 con 1005 08:24:50 /usr/bin/bash -)delimiter(''')> - -comment(// line below must be configured for your unix - this one's cygwin) -ident(format) operator(=) ident(cut2fmt)operator(()operator([)integer(10)operator(,) integer(18)operator(,) integer(26)operator(,) integer(37)operator(,) integer(42)operator(,) integer(47)operator(,) integer(56)operator(])operator(\)) -keyword(def) method(psgrep)operator(()ident(s)operator(\)) operator({) - ident(out) operator(=) type([]) - ident(lines) operator(=) ident(input)operator(.)ident(split)operator(()string<delimiter(')content(\\n)delimiter(')>operator(\))operator(.)ident(findAll)operator({) local_variable(it)operator(.)ident(size)operator(()operator(\)) operator(}) - ident(vars) operator(=) ident(unpack)operator(()ident(format)operator(,) ident(lines)operator([)integer(0)operator(])operator(\))operator(.)ident(toList)operator(()operator(\))operator(.)ident(collect)operator({) local_variable(it)operator(.)ident(toLowerCase)operator(()operator(\))operator(.)ident(trim)operator(()operator(\)) operator(}) - ident(out) operator(+=) ident(lines)operator([)integer(0)operator(]) - ident(lines)operator([)integer(1)operator(..)operator(-)integer(1)operator(])operator(.)ident(each)operator({) - ident(values) operator(=) ident(unpack)operator(()ident(format)operator(,) local_variable(it)operator(\))operator(.)ident(toList)operator(()operator(\))operator(.)ident(collect)operator({) - keyword(try) operator({) - keyword(return) local_variable(it)operator(.)ident(toInteger)operator(()operator(\)) - operator(}) keyword(catch)operator(()exception(NumberFormatException) ident(e)operator(\)) operator({) - keyword(return) local_variable(it)operator(.)ident(trim)operator(()operator(\)) - operator(}) - operator(}) - ident(vars)operator(.)ident(eachWithIndex)operator({) ident(var)operator(,) ident(i) operator(->) - ident(binding)operator(.)ident(setVariable)operator(()ident(var)operator(,) ident(values)operator([)ident(i)operator(])operator(\)) - operator(}) - keyword(if) operator(()keyword(new) ident(GroovyShell)operator(()ident(binding)operator(\))operator(.)ident(evaluate)operator(()ident(s)operator(\))operator(\)) ident(out) operator(+=) local_variable(it) - operator(}) - keyword(return) string<delimiter(')content(\\n)delimiter(')> operator(+) ident(out)operator(.)ident(join)operator(()string<delimiter(')content(\\n)delimiter(')>operator(\)) operator(+) string<delimiter(')content(\\n)delimiter(')> -operator(}) -keyword(assert) ident(psgrep)operator(()string<delimiter(')content(winpid < 800)delimiter(')>operator(\)) operator(==) ident(select1) -keyword(assert) ident(psgrep)operator(()string<delimiter(')content(uid % 5 == 0 && command =~ /sh$/)delimiter(')>operator(\)) operator(==) ident(select2) -comment(// Part 2: obtaining text stream from process) -comment(// unixScript:) -ident(input) operator(=) string<delimiter(')content(ps)delimiter(')>operator(.)ident(execute)operator(()operator(\))operator(.)ident(text) -comment(// cygwinScript:) -ident(input) operator(=) string<delimiter(')content(path_to_cygwin/bin/ps.exe)delimiter(')>operator(.)ident(execute)operator(()operator(\))operator(.)ident(text) -comment(// windowsScript:) -comment(// can use something like sysinternal.com s pslist (with minor script tweaks\)) -ident(input) operator(=) string<delimiter(')content(pslist.exe)delimiter(')>operator(.)ident(execute)operator(()operator(\))operator(.)ident(text) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_2.1) -comment(//----------------------------------------------------------------------------------) -comment(// four approaches possible (shown for Integers, similar for floats, double etc.\):) -comment(// (1\) NumberFormat.getInstance(\).parse(s\) // getInstance(\) can take locale) -comment(// (2\) Integer.parseInt(s\)) -comment(// (3\) new Integer(s\)) -comment(// (4\) regex) -keyword(import) include(java.text.*) -type(int) ident(nb) operator(=) integer(0) -keyword(try) operator({) - ident(nb) operator(=) pre_type(NumberFormat)operator(.)ident(getInstance)operator(()operator(\))operator(.)ident(parse)operator(()string<delimiter(')content(33.5)delimiter(')>operator(\)) comment(// '.5' will be ignored) - ident(nb) operator(=) pre_type(NumberFormat)operator(.)ident(getInstance)operator(()operator(\))operator(.)ident(parse)operator(()string<delimiter(')content(abc)delimiter(')>operator(\)) -operator(}) keyword(catch) operator(()exception(ParseException) ident(ex)operator(\)) operator({) - keyword(assert) ident(ex)operator(.)ident(getMessage)operator(()operator(\))operator(.)ident(contains)operator(()string<delimiter(')content(abc)delimiter(')>operator(\)) -operator(}) -keyword(assert) ident(nb) operator(==) integer(33) - -keyword(try) operator({) - ident(nb) operator(=) pre_type(Integer)operator(.)ident(parseInt)operator(()string<delimiter(')content(34)delimiter(')>operator(\)) - keyword(assert) ident(nb) operator(==) integer(34) - ident(nb) operator(=) keyword(new) pre_type(Integer)operator(()string<delimiter(')content(35)delimiter(')>operator(\)) - ident(nb) operator(=) pre_type(Integer)operator(.)ident(parseInt)operator(()string<delimiter(')content(abc)delimiter(')>operator(\)) -operator(}) keyword(catch) operator(()exception(NumberFormatException) ident(ex)operator(\)) operator({) - keyword(assert) ident(ex)operator(.)ident(getMessage)operator(()operator(\))operator(.)ident(contains)operator(()string<delimiter(')content(abc)delimiter(')>operator(\)) -operator(}) -keyword(assert) ident(nb) operator(==) integer(35) - -ident(integerPattern) operator(=) regexp<delimiter(/)content(^[+-]?)char(\\d)content(+)content($)delimiter(/)> -keyword(assert) string<delimiter(')content(-36)delimiter(')> operator(=~) ident(integerPattern) -keyword(assert) operator(!)operator(()string<delimiter(')content(abc)delimiter(')> operator(=~) ident(integerPattern)operator(\)) -ident(decimalPattern) operator(=) regexp<delimiter(/)content(^-?(?:)char(\\d)content(+(?:)content(\\.)char(\\d)content(*\)?|)content(\\.)char(\\d)content(+\))content($)delimiter(/)> -keyword(assert) string<delimiter(')content(37.5)delimiter(')> operator(=~) ident(decimalPattern) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_2.2) -comment(//----------------------------------------------------------------------------------) -comment(// Groovy defaults to BigDecimal if you don't use an explicit float or double) -ident(wage) operator(=) float(5.36) -ident(week) operator(=) integer(40) operator(*) ident(wage) -keyword(assert) string<delimiter(")content(One week's wage is: )char(\\$)inline<inline_delimiter($)ident(week)>delimiter(")> operator(==) regexp<delimiter(/)content(One week's wage is: )content($)content(214.40)delimiter(/)> -comment(// if you want to use explicit doubles and floats you can still use) -comment(// printf in version 5, 6 or 7 JVMs) -comment(// printf('%5.2f', week as double\)) -comment(// => 214.40) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_2.3) -comment(//----------------------------------------------------------------------------------) -ident(a) operator(=) float(0.255) -ident(b) operator(=) ident(a)operator(.)ident(setScale)operator(()integer(2)operator(,) pre_type(BigDecimal)operator(.)ident(ROUND_HALF_UP)operator(\))operator(;) -keyword(assert) ident(a)operator(.)ident(toString)operator(()operator(\)) operator(==) string<delimiter(')content(0.255)delimiter(')> -keyword(assert) ident(b)operator(.)ident(toString)operator(()operator(\)) operator(==) string<delimiter(')content(0.26)delimiter(')> - -ident(a) operator(=) operator([)float(3.3) operator(,) float(3.5) operator(,) float(3.7)operator(,) operator(-)float(3.3)operator(]) keyword(as) type(double)type([]) -comment(// warning rint(\) rounds to nearest integer - slightly different to Perl's int(\)) -ident(rintExpected) operator(=) operator([)float(3.0)operator(,) float(4.0)operator(,) float(4.0)operator(,) operator(-)float(3.0)operator(]) keyword(as) type(double)type([]) -ident(floorExpected) operator(=) operator([)float(3.0)operator(,) float(3.0)operator(,) float(3.0)operator(,) operator(-)float(4.0)operator(]) keyword(as) type(double)type([]) -ident(ceilExpected) operator(=) operator([)float(4.0)operator(,) float(4.0)operator(,) float(4.0)operator(,) operator(-)float(3.0)operator(]) keyword(as) type(double)type([]) -ident(a)operator(.)ident(eachWithIndex)operator({) ident(val)operator(,) ident(i) operator(->) - keyword(assert) pre_type(Math)operator(.)ident(rint)operator(()ident(val)operator(\)) operator(==) ident(rintExpected)operator([)ident(i)operator(]) - keyword(assert) pre_type(Math)operator(.)ident(floor)operator(()ident(val)operator(\)) operator(==) ident(floorExpected)operator([)ident(i)operator(]) - keyword(assert) pre_type(Math)operator(.)ident(ceil)operator(()ident(val)operator(\)) operator(==) ident(ceilExpected)operator([)ident(i)operator(]) -operator(}) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_2.4) -comment(//----------------------------------------------------------------------------------) -keyword(assert) pre_type(Integer)operator(.)ident(parseInt)operator(()string<delimiter(')content(0110110)delimiter(')>operator(,) integer(2)operator(\)) operator(==) integer(54) -keyword(assert) pre_type(Integer)operator(.)ident(toString)operator(()integer(54)operator(,) integer(2)operator(\)) operator(==) string<delimiter(')content(110110)delimiter(')> -comment(// also works for other radix values, e.g. hex) -keyword(assert) pre_type(Integer)operator(.)ident(toString)operator(()integer(60)operator(,) integer(16)operator(\)) operator(==) string<delimiter(')content(3c)delimiter(')> - -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_2.5) -comment(//----------------------------------------------------------------------------------) -ident(x) operator(=) integer(3)operator(;) ident(y) operator(=) integer(20) -keyword(for) operator(()ident(i) keyword(in) ident(x)operator(..)ident(y)operator(\)) operator({) - comment(//i is set to every integer from x to y, inclusive) -operator(}) - -operator(()ident(x)operator(..<)ident(y)operator(\))operator(.)ident(each) operator({) - comment(//implicit closure variable it is set to every integer from x up to but excluding y) -operator(}) - -keyword(assert) operator(()ident(x)operator(..)ident(y)operator(\))operator(.)ident(step)operator(()integer(7)operator(\)) operator(==) operator([)integer(3)operator(,) integer(10)operator(,) integer(17)operator(]) - -ident(years) operator(=) type([]) -operator(()integer(5)operator(..<)integer(13)operator(\))operator(.)ident(each)operator({) ident(age) operator(->) ident(years) operator(+=) ident(age) operator(}) -keyword(assert) ident(years) operator(==) operator([)integer(5)operator(,) integer(6)operator(,) integer(7)operator(,) integer(8)operator(,) integer(9)operator(,) integer(10)operator(,) integer(11)operator(,) integer(12)operator(]) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_2.6) -comment(//----------------------------------------------------------------------------------) -comment(// We can add additional methods to the Integer class) -type(class) class(IntegerCategory) operator({) - directive(static) keyword(def) ident(romanMap) operator(=) operator([)integer(1000)operator(:)string<delimiter(')content(M)delimiter(')>operator(,) integer(900)operator(:)string<delimiter(')content(CM)delimiter(')>operator(,) integer(500)operator(:)string<delimiter(')content(D)delimiter(')>operator(,) integer(400)operator(:)string<delimiter(')content(CD)delimiter(')>operator(,) integer(100)operator(:)string<delimiter(')content(C)delimiter(')>operator(,) integer(90)operator(:)string<delimiter(')content(XC)delimiter(')>operator(,) - integer(50)operator(:)string<delimiter(')content(L)delimiter(')>operator(,) integer(40)operator(:)string<delimiter(')content(XL)delimiter(')>operator(,) integer(10)operator(:)string<delimiter(')content(X)delimiter(')>operator(,) integer(9)operator(:)string<delimiter(')content(IX)delimiter(')>operator(,) integer(5)operator(:)string<delimiter(')content(V)delimiter(')>operator(,) integer(4)operator(:)string<delimiter(')content(IV)delimiter(')>operator(,) integer(1)operator(:)string<delimiter(')content(I)delimiter(')>operator(]) - - directive(static) ident(getRoman)operator(()pre_type(Integer) ident(self)operator(\)) operator({) - keyword(def) ident(remains) operator(=) ident(self) - keyword(def) ident(text) operator(=) string<delimiter(')delimiter(')> - ident(romanMap)operator(.)ident(keySet)operator(()operator(\))operator(.)ident(sort)operator(()operator(\))operator(.)ident(reverse)operator(()operator(\))operator(.)ident(each)operator({) ident(key) operator(->) - keyword(while) operator(()ident(remains) operator(>=) ident(key)operator(\)) operator({) - ident(remains) operator(-=) ident(key) - ident(text) operator(+=) ident(romanMap)operator([)ident(key)operator(]) - operator(}) - operator(}) - keyword(return) ident(text) - operator(}) - - directive(static) type(int) ident(parseRoman)operator(()pre_type(Object) ident(self)operator(,) pre_type(String) ident(input)operator(\)) operator({) - keyword(def) ident(ustr) operator(=) ident(input)operator(.)ident(toUpperCase)operator(()operator(\)) - type(int) ident(sum) operator(=) integer(0) - ident(romanMap)operator(.)ident(keySet)operator(()operator(\))operator(.)ident(sort)operator(()operator(\))operator(.)ident(reverse)operator(()operator(\))operator(.)ident(each)operator({) ident(key) operator(->) - keyword(while) operator(()ident(ustr)operator(.)ident(startsWith)operator(()ident(romanMap)operator([)ident(key)operator(])operator(\))operator(\)) operator({) - ident(sum) operator(+=) ident(key) - ident(ustr) operator(-=) ident(romanMap)operator([)ident(key)operator(]) - operator(}) - operator(}) - keyword(return) ident(sum) - operator(}) -operator(}) - -ident(use)operator(()ident(IntegerCategory)operator(\)) operator({) - type(int) ident(fifteen) operator(=) integer(15) - keyword(assert) ident(fifteen)operator(.)ident(roman) operator(==) string<delimiter(')content(XV)delimiter(')> - keyword(assert) ident(parseRoman)operator(()string<delimiter(')content(XXVI)delimiter(')>operator(\)) operator(==) integer(26) - keyword(for) operator(()ident(i) keyword(in) integer(1)operator(..)integer(3900)operator(\)) operator({) - keyword(assert) ident(i) operator(==) ident(parseRoman)operator(()ident(i)operator(.)ident(roman)operator(\)) - operator(}) -operator(}) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_2.7) -comment(//----------------------------------------------------------------------------------) -ident(random) operator(=) keyword(new) pre_type(Random)operator(()operator(\)) -integer(100)operator(.)ident(times)operator({) - ident(next) operator(=) ident(random)operator(.)ident(nextInt)operator(()integer(50)operator(\)) operator(+) integer(25) - keyword(assert) ident(next) operator(>) integer(24) - keyword(assert) ident(next) operator(<) integer(76) -operator(}) -ident(chars) operator(=) type([]) -operator([)string<delimiter(')content(A)delimiter(')>operator(..)string<delimiter(')content(Z)delimiter(')>operator(,)string<delimiter(')content(a)delimiter(')>operator(..)string<delimiter(')content(z)delimiter(')>operator(,)string<delimiter(')content(0)delimiter(')>operator(..)string<delimiter(')content(9)delimiter(')>operator(,)operator(()string<delimiter(')content(!@$%^&*)delimiter(')> keyword(as) pre_type(String)type([])operator(\))operator(.)ident(toList)operator(()operator(\))operator(])operator(.)ident(each)operator({)ident(chars) operator(+=) local_variable(it)operator(}) -ident(password) operator(=) operator(()integer(1)operator(..)integer(8)operator(\))operator(.)ident(collect)operator({) ident(chars)operator([)ident(random)operator(.)ident(nextInt)operator(()ident(chars)operator(.)ident(size)operator(()operator(\))operator(\))operator(]) operator(})operator(.)ident(join)operator(()operator(\)) -keyword(assert) ident(password)operator(.)ident(size)operator(()operator(\)) operator(==) integer(8) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_2.8) -comment(//----------------------------------------------------------------------------------) -comment(// By default Groovy uses Java's Random facilities which use the current time) -comment(// as the initial seed. This always changes but does so slowly over time.) -comment(// You are free to select a better seed if you want greater randomness or) -comment(// use the same one each time if you need repeatability.) -type(long) ident(seed) operator(=) pre_type(System)operator(.)ident(currentTimeMillis)operator(()operator(\)) -ident(random1) operator(=) keyword(new) pre_type(Random)operator(()ident(seed)operator(\)) -ident(random2) operator(=) keyword(new) pre_type(Random)operator(()ident(seed)operator(\)) -keyword(assert) ident(random1)operator(.)ident(nextInt)operator(()operator(\)) operator(==) ident(random2)operator(.)ident(nextInt)operator(()operator(\)) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_2.9) -comment(//----------------------------------------------------------------------------------) -comment(// java.util.Random which Groovy uses already uses a 48-bit seed) -comment(// You can make use 64 not 48 bits (and make better use of the 48 bits\) see here:) -comment(// http://alife.co.uk/nonrandom/) -comment(// You can choose a better seed, e.g. Ant uses:) -ident(seed) operator(=) pre_type(System)operator(.)ident(currentTimeMillis)operator(()operator(\)) operator(+) pre_type(Runtime)operator(.)ident(runtime)operator(.)ident(freeMemory)operator(()operator(\)) -comment(// You can accept input from the user, e.g.) -comment(// http://examples.oreilly.com/javacrypt/files/oreilly/jonathan/util/Seeder.java) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_2.10) -comment(//----------------------------------------------------------------------------------) -comment(// use Java's Random.nextGaussian(\) method) -ident(random) operator(=) keyword(new) pre_type(Random)operator(()operator(\)) -ident(mean) operator(=) integer(25) -ident(sdev) operator(=) integer(2) -ident(salary) operator(=) ident(random)operator(.)ident(nextGaussian)operator(()operator(\)) operator(*) ident(sdev) operator(+) ident(mean) -comment(// script:) -ident(printf) string<delimiter(')content(You have been hired at \\$%.2f)delimiter(')>operator(,) ident(salary) -comment(// => You have been hired at $25.05) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_2.11) -comment(//----------------------------------------------------------------------------------) -comment(// radians = Math.toRadians(degrees\)) -keyword(assert) pre_type(Math)operator(.)ident(toRadians)operator(()integer(90)operator(\)) operator(==) pre_type(Math)operator(.)ident(PI) operator(/) integer(2) -comment(// degrees = Math.toDegrees(radians\)) -keyword(assert) pre_type(Math)operator(.)ident(toDegrees)operator(()pre_type(Math)operator(.)ident(PI)operator(\)) operator(==) integer(180) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_2.12) -comment(//----------------------------------------------------------------------------------) -comment(// use Java's trigonometry methods in java.lang.Math) -comment(//----------------------------------------------------------------------------------) -ident(t) operator(=) pre_type(Math)operator(.)ident(tan)operator(()float(1.5)operator(\)) -keyword(assert) ident(t) operator(>) float(14.1) operator(&&) ident(t) operator(<) float(14.11) -ident(ac) operator(=) pre_type(Math)operator(.)ident(acos)operator(()float(0.1)operator(\)) -keyword(assert) ident(ac) operator(>) float(1.47) operator(&&) ident(ac) operator(<) float(1.48) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_2.13) -comment(//----------------------------------------------------------------------------------) -keyword(assert) pre_type(Math)operator(.)ident(log)operator(()pre_type(Math)operator(.)ident(E)operator(\)) operator(==) integer(1) -keyword(assert) pre_type(Math)operator(.)ident(log10)operator(()integer(10000)operator(\)) operator(==) integer(4) -keyword(def) method(logn)operator(()ident(base)operator(,) ident(val)operator(\)) operator({) pre_type(Math)operator(.)ident(log)operator(()ident(val)operator(\))operator(/)pre_type(Math)operator(.)ident(log)operator(()ident(base)operator(\)) operator(}) -keyword(assert) ident(logn)operator(()integer(2)operator(,) integer(1024)operator(\)) operator(==) integer(10) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_2.14) -comment(//----------------------------------------------------------------------------------) -comment(// there are several Java Matrix packages available, e.g.) -comment(// http://math.nist.gov/javanumerics/jama) -keyword(import) include(Jama.Matrix) -ident(matrix1) operator(=) keyword(new) ident(Matrix)operator(()operator([) - operator([)integer(3)operator(,) integer(2)operator(,) integer(3)operator(])operator(,) - operator([)integer(5)operator(,) integer(9)operator(,) integer(8)operator(]) -operator(]) keyword(as) type(double)type([])type([])operator(\)) - -ident(matrix2) operator(=) keyword(new) ident(Matrix)operator(()operator([) - operator([)integer(4)operator(,) integer(7)operator(])operator(,) - operator([)integer(9)operator(,) integer(3)operator(])operator(,) - operator([)integer(8)operator(,) integer(1)operator(]) -operator(]) keyword(as) type(double)type([])type([])operator(\)) - -ident(expectedArray) operator(=) operator([)operator([)float(54.0)operator(,) float(30.0)operator(])operator(,) operator([)float(165.0)operator(,) float(70.0)operator(])operator(]) keyword(as) type(double)type([])type([]) -ident(productArray) operator(=) ident(matrix1)operator(.)ident(times)operator(()ident(matrix2)operator(\))operator(.)ident(array) - -keyword(for) operator(()ident(i) keyword(in) integer(0)operator(..<)ident(productArray)operator(.)ident(size)operator(()operator(\))operator(\)) operator({) - keyword(assert) ident(productArray)operator([)ident(i)operator(]) operator(==) ident(expectedArray)operator([)ident(i)operator(]) -operator(}) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_2.15) -comment(//----------------------------------------------------------------------------------) -comment(// there are several Java Complex number packages, e.g.:) -comment(// http://jakarta.apache.org/commons/math/userguide/complex.html) -keyword(import) include(org.apache.commons.math.complex.Complex) -ident(a) operator(=) keyword(new) ident(Complex)operator(()integer(3)operator(,) integer(5)operator(\)) comment(// 3 + 5i) -ident(b) operator(=) keyword(new) ident(Complex)operator(()integer(2)operator(,) operator(-)integer(2)operator(\)) comment(// 2 - 2i) -ident(expected) operator(=) keyword(new) ident(Complex) operator(()integer(16)operator(,) integer(4)operator(\)) comment(// 16 + 4i) -keyword(assert) ident(expected) operator(==) ident(a) operator(*) ident(b) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_2.16) -comment(//----------------------------------------------------------------------------------) -keyword(assert) pre_type(Integer)operator(.)ident(parseInt)operator(()string<delimiter(')content(101)delimiter(')>operator(,) integer(16)operator(\)) operator(==) integer(257) -keyword(assert) pre_type(Integer)operator(.)ident(parseInt)operator(()string<delimiter(')content(077)delimiter(')>operator(,) integer(8)operator(\)) operator(==) integer(63) -comment(//----------------------------------------------------------------------------------) -comment(// conversionScript:) -ident(print) string<delimiter(')content(Gimme a number in decimal, octal, or hex: )delimiter(')> -ident(reader) operator(=) keyword(new) pre_type(BufferedReader)operator(()keyword(new) pre_type(InputStreamReader)operator(()pre_type(System)operator(.)ident(in)operator(\))operator(\)) -ident(input) operator(=) ident(reader)operator(.)ident(readLine)operator(()operator(\))operator(.)ident(trim)operator(()operator(\)) -keyword(switch)operator(()ident(input)operator(\)) operator({) - keyword(case) operator(~)string<delimiter(')content(^0x)char(\\\\)content(d+)delimiter(')>operator(:) - ident(number) operator(=) pre_type(Integer)operator(.)ident(parseInt)operator(()ident(input)operator(.)ident(substring)operator(()integer(2)operator(\))operator(,) integer(16)operator(\))operator(;) keyword(break) - keyword(case) operator(~)string<delimiter(')content(^0)char(\\\\)content(d+)delimiter(')>operator(:) - ident(number) operator(=) pre_type(Integer)operator(.)ident(parseInt)operator(()ident(input)operator(.)ident(substring)operator(()integer(1)operator(\))operator(,) integer(8)operator(\))operator(;) keyword(break) - keyword(default)operator(:) - ident(number) operator(=) pre_type(Integer)operator(.)ident(parseInt)operator(()ident(input)operator(\)) -operator(}) -ident(println) string<delimiter(')content(Decimal value: )delimiter(')> operator(+) ident(number) - -comment(// permissionScript:) -ident(print) string<delimiter(')content(Enter file permission in octal: )delimiter(')> -ident(input) operator(=) keyword(new) pre_type(BufferedReader)operator(()keyword(new) pre_type(InputStreamReader)operator(()pre_type(System)operator(.)ident(in)operator(\))operator(\)) -ident(num) operator(=) ident(input)operator(.)ident(readLine)operator(()operator(\))operator(.)ident(trim)operator(()operator(\)) -ident(permission) operator(=) pre_type(Integer)operator(.)ident(parseInt)operator(()ident(num)operator(,) integer(8)operator(\)) -ident(println) string<delimiter(')content(Decimal value: )delimiter(')> operator(+) ident(permission) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_2.17) -comment(//----------------------------------------------------------------------------------) -ident(nf) operator(=) pre_type(NumberFormat)operator(.)ident(getInstance)operator(()operator(\)) -keyword(assert) ident(nf)operator(.)ident(format)operator(()operator(-)integer(1740525205)operator(\)) operator(==) string<delimiter(')content(-1,740,525,205)delimiter(')> -comment(//----------------------------------------------------------------------------------) -comment(// @@PLEAC@@_2.18) -comment(//----------------------------------------------------------------------------------) -keyword(def) method(timeMessage)operator(()ident(hour)operator(\)) operator({) string<delimiter(')content(It took )delimiter(')> operator(+) ident(hour) operator(+) string<delimiter(')content( hour)delimiter(')> operator(+) operator(()ident(hour) operator(==) integer(1) operator(?) string<delimiter(')delimiter(')> operator(:) string<delimiter(')content(s)delimiter(')>operator(\)) operator(}) -keyword(assert) string<delimiter(')content(It took 1 hour)delimiter(')> operator(==) ident(timeMessage)operator(()integer(1)operator(\)) -keyword(assert) string<delimiter(')content(It took 2 hours)delimiter(')> operator(==) ident(timeMessage)operator(()integer(2)operator(\)) - -comment(// you can also use Java's ChoiceFormat) -comment(// overkill for this example but extensible and compatible with MessageFormat) -ident(limits) operator(=) operator([)integer(1)operator(,) pre_type(ChoiceFormat)operator(.)ident(nextDouble)operator(()integer(1)operator(\))operator(]) keyword(as) type(double)type([]) -ident(names) operator(=) operator([)string<delimiter(')content(century)delimiter(')>operator(,) string<delimiter(')content(centuries)delimiter(')>operator(]) keyword(as) pre_type(String)type([]) -ident(choice) operator(=) keyword(new) pre_type(ChoiceFormat)operator(()ident(limits)operator(,) ident(names)operator(\)) -ident(numCenturies) operator(=) integer(1) -ident(expected) operator(=) string<delimiter(')content(It took 1 century)delimiter(')> -keyword(assert) ident(expected) operator(==) string<delimiter(")content(It took )inline<inline_delimiter($)ident(numCenturies)>content( )delimiter(")> operator(+) ident(choice)operator(.)ident(format)operator(()ident(numCenturies)operator(\)) -comment(// an alternate constructor syntax) -ident(choice) operator(=) keyword(new) pre_type(ChoiceFormat)operator(()string<delimiter(')content(0#are no files|1#is one file|2#are multiple files)delimiter(')>operator(\)) -keyword(assert) ident(choice)operator(.)ident(format)operator(()integer(3)operator(\)) operator(==) string<delimiter(')content(are multiple files)delimiter(')> - -comment(// more complex pluralization can be done with Java libraries, e.g.:) -comment(// http://www.elvis.ac.nz/brain?PluralizationMapping) -comment(// org.springframework.util.Pluralizer within the Spring Framework (springframework.org\)) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_2.19) -comment(//----------------------------------------------------------------------------------) -comment(// calculating prime factors) -keyword(def) method(factorize)operator(()pre_type(BigInteger) ident(orig)operator(\)) operator({) - ident(factors) operator(=) operator([)operator(:)operator(]) - keyword(def) ident(addFactor) operator(=) operator({) ident(x) operator(->) keyword(if) operator(()ident(factors)operator([)ident(x)operator(])operator(\)) ident(factors)operator([)ident(x)operator(]) operator(+=) integer(1) keyword(else) ident(factors)operator([)ident(x)operator(]) operator(=) integer(1) operator(}) - ident(n) operator(=) ident(orig) - ident(i) operator(=) integer(2) - ident(sqi) operator(=) integer(4) comment(// square of i) - keyword(while) operator(()ident(sqi) operator(<=) ident(n)operator(\)) operator({) - keyword(while) operator(()ident(n)operator(.)ident(remainder)operator(()ident(i)operator(\)) operator(==) integer(0)operator(\)) operator({) - ident(n) operator(/)operator(=) ident(i) - ident(addFactor) ident(i) - operator(}) - comment(// we take advantage of the fact that (i+1\)**2 = i**2 + 2*i + 1) - ident(sqi) operator(+=) integer(2) operator(*) ident(i) operator(+) integer(1) - ident(i) operator(+=) integer(1) - operator(}) - keyword(if) operator(()operator(()ident(n) operator(!=) integer(1)operator(\)) operator(&&) operator(()ident(n) operator(!=) ident(orig)operator(\))operator(\)) ident(addFactor) ident(n) - keyword(return) ident(factors) -operator(}) - -keyword(def) method(pretty)operator(()ident(factors)operator(\)) operator({) - keyword(if) operator(()operator(!)ident(factors)operator(\)) keyword(return) string<delimiter(")content(PRIME)delimiter(")> - ident(sb) operator(=) keyword(new) pre_type(StringBuffer)operator(()operator(\)) - ident(factors)operator(.)ident(keySet)operator(()operator(\))operator(.)ident(sort)operator(()operator(\))operator(.)ident(each) operator({) ident(key) operator(->) - ident(sb) operator(<)operator(<) ident(key) - keyword(if) operator(()ident(factors)operator([)ident(key)operator(]) operator(>) integer(1)operator(\)) ident(sb) operator(<)operator(<) string<delimiter(")content(**)delimiter(")> operator(+) ident(factors)operator([)ident(key)operator(]) - ident(sb) operator(<)operator(<) string<delimiter(")content( )delimiter(")> - operator(}) - keyword(return) ident(sb)operator(.)ident(toString)operator(()operator(\))operator(.)ident(trim)operator(()operator(\)) -operator(}) - -keyword(assert) ident(pretty)operator(()ident(factorize)operator(()integer(2178)operator(\))operator(\)) operator(==) string<delimiter(')content(2 3**2 11**2)delimiter(')> -keyword(assert) ident(pretty)operator(()ident(factorize)operator(()integer(39887)operator(\))operator(\)) operator(==) string<delimiter(')content(PRIME)delimiter(')> -keyword(assert) ident(pretty)operator(()ident(factorize)operator(()integer(239322000000000000000000)operator(\))operator(\)) operator(==) string<delimiter(')content(2**19 3 5**18 39887)delimiter(')> -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_3.0) -comment(//----------------------------------------------------------------------------------) -comment(// use Date to get the current time) -ident(println) keyword(new) pre_type(Date)operator(()operator(\)) -comment(// => Mon Jan 01 07:12:32 EST 2007) -comment(// use Calendar to compute year, month, day, hour, minute, and second values) -ident(cal) operator(=) pre_type(Calendar)operator(.)ident(instance) -ident(println) string<delimiter(')content(Today is day )delimiter(')> operator(+) ident(cal)operator(.)ident(get)operator(()pre_type(Calendar)operator(.)ident(DAY_OF_YEAR)operator(\)) operator(+) string<delimiter(')content( of the current year.)delimiter(')> -comment(// => Today is day 1 of the current year.) -comment(// there are other Java Date/Time packages with extended capabilities, e.g.:) -comment(// http://joda-time.sourceforge.net/) -comment(// there is a special Grails (grails.codehaus.org\) time DSL (see below\)) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_3.1) -comment(//----------------------------------------------------------------------------------) -ident(cal) operator(=) pre_type(Calendar)operator(.)ident(instance) -ident(Y) operator(=) ident(cal)operator(.)ident(get)operator(()pre_type(Calendar)operator(.)ident(YEAR)operator(\)) -ident(M) operator(=) ident(cal)operator(.)ident(get)operator(()pre_type(Calendar)operator(.)ident(MONTH)operator(\)) operator(+) integer(1) -ident(D) operator(=) ident(cal)operator(.)ident(get)operator(()pre_type(Calendar)operator(.)ident(DATE)operator(\)) -ident(println) string<delimiter(")content(The current date is )inline<inline_delimiter($)ident(Y)>content( )inline<inline_delimiter($)ident(M)>content( )inline<inline_delimiter($)ident(D)>delimiter(")> -comment(// => The current date is 2006 04 28) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_3.2) -comment(//----------------------------------------------------------------------------------) -comment(// create a calendar with current time and time zone) -ident(cal) operator(=) pre_type(Calendar)operator(.)ident(instance) -comment(// set time zone using long or short timezone values) -ident(cal)operator(.)ident(timeZone) operator(=) pre_type(TimeZone)operator(.)ident(getTimeZone)operator(()string<delimiter(")content(America/Los_Angeles)delimiter(")>operator(\)) -ident(cal)operator(.)ident(timeZone) operator(=) pre_type(TimeZone)operator(.)ident(getTimeZone)operator(()string<delimiter(")content(UTC)delimiter(")>operator(\)) -comment(// set date fields one at a time) -ident(cal)operator(.)ident(set)operator(()pre_type(Calendar)operator(.)ident(MONTH)operator(,) pre_type(Calendar)operator(.)ident(DECEMBER)operator(\)) -comment(// or several together) -comment(//calendar.set(year, month - 1, day, hour, minute, second\)) -comment(// get time in seconds since EPOCH) -type(long) ident(time) operator(=) ident(cal)operator(.)ident(time)operator(.)ident(time) operator(/) integer(1000) -ident(println) ident(time) -comment(// => 1196522682) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_3.3) -comment(//----------------------------------------------------------------------------------) -comment(// create a calendar with current time and time zone) -ident(cal) operator(=) pre_type(Calendar)operator(.)ident(instance) -comment(// set time) -ident(cal)operator(.)ident(time) operator(=) keyword(new) pre_type(Date)operator(()ident(time) operator(*) integer(1000)operator(\)) -comment(// get date fields) -ident(println)operator(()string<delimiter(')content(Dateline: )delimiter(')> - operator(+) ident(cal)operator(.)ident(get)operator(()pre_type(Calendar)operator(.)ident(HOUR_OF_DAY)operator(\)) operator(+) string<delimiter(')content(:)delimiter(')> - operator(+) ident(cal)operator(.)ident(get)operator(()pre_type(Calendar)operator(.)ident(MINUTE)operator(\)) operator(+) string<delimiter(')content(:)delimiter(')> - operator(+) ident(cal)operator(.)ident(get)operator(()pre_type(Calendar)operator(.)ident(SECOND)operator(\)) operator(+) string<delimiter(')content(-)delimiter(')> - operator(+) ident(cal)operator(.)ident(get)operator(()pre_type(Calendar)operator(.)ident(YEAR)operator(\)) operator(+) string<delimiter(')content(/)delimiter(')> - operator(+) operator(()ident(cal)operator(.)ident(get)operator(()pre_type(Calendar)operator(.)ident(MONTH)operator(\)) operator(+) integer(1)operator(\)) operator(+) string<delimiter(')content(/)delimiter(')> - operator(+) ident(cal)operator(.)ident(get)operator(()pre_type(Calendar)operator(.)ident(DATE)operator(\))operator(\)) -comment(// => Dateline: 7:33:16-2007/1/1) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_3.4) -comment(//----------------------------------------------------------------------------------) -keyword(import) include(java.text.SimpleDateFormat) -type(long) ident(difference) operator(=) integer(100) -type(long) ident(after) operator(=) ident(time) operator(+) ident(difference) -type(long) ident(before) operator(=) ident(time) operator(-) ident(difference) - -comment(// any field of a calendar is incrementable via add(\) and roll(\) methods) -ident(cal) operator(=) pre_type(Calendar)operator(.)ident(instance) -ident(df) operator(=) keyword(new) pre_type(SimpleDateFormat)operator(()operator(\)) -ident(printCal) operator(=) operator({)ident(cal) operator(->) ident(df)operator(.)ident(format)operator(()ident(cal)operator(.)ident(time)operator(\))operator(}) -ident(cal)operator(.)ident(set)operator(()integer(2000)operator(,) integer(0)operator(,) integer(1)operator(,) oct(00)operator(,) oct(01)operator(,) integer(0)operator(\)) -keyword(assert) ident(printCal)operator(()ident(cal)operator(\)) operator(==) string<delimiter(')content(1/01/00 00:01)delimiter(')> -comment(// roll minute back by 2 but don't adjust other fields) -ident(cal)operator(.)ident(roll)operator(()pre_type(Calendar)operator(.)ident(MINUTE)operator(,) operator(-)integer(2)operator(\)) -keyword(assert) ident(printCal)operator(()ident(cal)operator(\)) operator(==) string<delimiter(')content(1/01/00 00:59)delimiter(')> -comment(// adjust hour back 1 and adjust other fields if needed) -ident(cal)operator(.)ident(add)operator(()pre_type(Calendar)operator(.)ident(HOUR)operator(,) operator(-)integer(1)operator(\)) -keyword(assert) ident(printCal)operator(()ident(cal)operator(\)) operator(==) string<delimiter(')content(31/12/99 23:59)delimiter(')> - -comment(// larger example) -ident(cal)operator(.)ident(timeZone) operator(=) pre_type(TimeZone)operator(.)ident(getTimeZone)operator(()string<delimiter(")content(UTC)delimiter(")>operator(\)) -ident(cal)operator(.)ident(set)operator(()integer(1973)operator(,) integer(0)operator(,) integer(18)operator(,) integer(3)operator(,) integer(45)operator(,) integer(50)operator(\)) -ident(cal)operator(.)ident(add)operator(()pre_type(Calendar)operator(.)ident(DATE)operator(,) integer(55)operator(\)) -ident(cal)operator(.)ident(add)operator(()pre_type(Calendar)operator(.)ident(HOUR_OF_DAY)operator(,) integer(2)operator(\)) -ident(cal)operator(.)ident(add)operator(()pre_type(Calendar)operator(.)ident(MINUTE)operator(,) integer(17)operator(\)) -ident(cal)operator(.)ident(add)operator(()pre_type(Calendar)operator(.)ident(SECOND)operator(,) integer(5)operator(\)) -keyword(assert) ident(printCal)operator(()ident(cal)operator(\)) operator(==) string<delimiter(')content(14/03/73 16:02)delimiter(')> - -comment(// alternatively, work with epoch times) -type(long) ident(birthTime) operator(=) integer(96176750359) comment(// 18/Jan/1973, 3:45:50 am) -type(long) ident(interval) operator(=) integer(5) operator(+) comment(// 5 second) - integer(17) operator(*) integer(60) operator(+) comment(// 17 minute) - integer(2) operator(*) integer(60) operator(*) integer(60) operator(+) comment(// 2 hour) - integer(55) operator(*) integer(60) operator(*) integer(60) operator(*) integer(24) comment(// and 55 day) -ident(then) operator(=) keyword(new) pre_type(Date)operator(()ident(birthTime) operator(+) ident(interval) operator(*) integer(1000)operator(\)) -keyword(assert) ident(df)operator(.)ident(format)operator(()ident(then)operator(\)) operator(==) string<delimiter(')content(14/03/73 16:02)delimiter(')> - -comment(// Alternatively, the Google Data module has a category with DSL-like time support:) -comment(// http://docs.codehaus.org/display/GROOVY/Google+Data+Support) -comment(// which supports the following syntax) -comment(// def interval = 5.seconds + 17.minutes + 2.hours + 55.days) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_3.5) -comment(//----------------------------------------------------------------------------------) -ident(bree) operator(=) integer(361535725) comment(// 16 Jun 1981, 4:35:25) -ident(nat) operator(=) integer(96201950) comment(// 18 Jan 1973, 3:45:50) -ident(difference) operator(=) ident(bree) operator(-) ident(nat) -ident(println) string<delimiter(")content(There were )inline<inline_delimiter($)ident(difference)>content( seconds between Nat and Bree)delimiter(")> -comment(// => There were 265333775 seconds between Nat and Bree) -ident(seconds) operator(=) ident(difference) operator(%) integer(60) -ident(difference) operator(=) operator(()ident(difference) operator(-) ident(seconds)operator(\)) operator(/) integer(60) -ident(minutes) operator(=) ident(difference) operator(%) integer(60) -ident(difference) operator(=) operator(()ident(difference) operator(-) ident(minutes)operator(\)) operator(/) integer(60) -ident(hours) operator(=) ident(difference) operator(%) integer(24) -ident(difference) operator(=) operator(()ident(difference) operator(-) ident(hours)operator(\)) operator(/) integer(24) -ident(days) operator(=) ident(difference) operator(%) integer(7) -ident(weeks) operator(=) operator(()ident(difference) operator(-) ident(days)operator(\)) operator(/) integer(7) -ident(println) string<delimiter(")content(()inline<inline_delimiter($)ident(weeks)>content( weeks, )inline<inline_delimiter($)ident(days)>content( days, )inline<inline_delimiter($)ident(hours)>content(:)inline<inline_delimiter($)ident(minutes)>content(:)inline<inline_delimiter($)ident(seconds)>content(\))delimiter(")> -comment(// => (438 weeks, 4 days, 23:49:35\)) -comment(//----------------------------------------------------------------------------------) -ident(cal) operator(=) pre_type(Calendar)operator(.)ident(getInstance)operator(()pre_type(TimeZone)operator(.)ident(getTimeZone)operator(()string<delimiter(")content(UTC)delimiter(")>operator(\))operator(\)) -ident(cal)operator(.)ident(set)operator(()integer(1981)operator(,) integer(5)operator(,) integer(16)operator(\)) comment(// 16 Jun 1981) -ident(date1) operator(=) ident(cal)operator(.)ident(time) -ident(cal)operator(.)ident(set)operator(()integer(1973)operator(,) integer(0)operator(,) integer(18)operator(\)) comment(// 18 Jan 1973) -ident(date2) operator(=) ident(cal)operator(.)ident(time) -ident(difference) operator(=) pre_type(Math)operator(.)ident(abs)operator(()ident(date2)operator(.)ident(time) operator(-) ident(date1)operator(.)ident(time)operator(\)) -ident(days) operator(=) ident(difference) operator(/) operator(()integer(1000) operator(*) integer(60) operator(*) integer(60) operator(*) integer(24)operator(\)) -keyword(assert) ident(days) operator(==) integer(3071) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_3.6) -comment(//----------------------------------------------------------------------------------) -comment(// create a calendar with current time and time zone) -ident(cal) operator(=) pre_type(Calendar)operator(.)ident(instance) -ident(cal)operator(.)ident(set)operator(()integer(1981)operator(,) integer(5)operator(,) integer(16)operator(\)) -ident(yearDay) operator(=) ident(cal)operator(.)ident(get)operator(()pre_type(Calendar)operator(.)ident(DAY_OF_YEAR)operator(\))operator(;) -ident(year) operator(=) ident(cal)operator(.)ident(get)operator(()pre_type(Calendar)operator(.)ident(YEAR)operator(\))operator(;) -ident(yearWeek) operator(=) ident(cal)operator(.)ident(get)operator(()pre_type(Calendar)operator(.)ident(WEEK_OF_YEAR)operator(\))operator(;) -ident(df1) operator(=) keyword(new) pre_type(SimpleDateFormat)operator(()string<delimiter(")content(dd/MMM/yy)delimiter(")>operator(\)) -ident(df2) operator(=) keyword(new) pre_type(SimpleDateFormat)operator(()string<delimiter(")content(EEEE)delimiter(")>operator(\)) -ident(print)operator(()ident(df1)operator(.)ident(format)operator(()ident(cal)operator(.)ident(time)operator(\)) operator(+) string<delimiter(')content( was a )delimiter(')> operator(+) ident(df2)operator(.)ident(format)operator(()ident(cal)operator(.)ident(time)operator(\))operator(\)) -ident(println) string<delimiter(")content( and was day number )inline<inline_delimiter($)ident(yearDay)>content( and week number )inline<inline_delimiter($)ident(yearWeek)>content( of )inline<inline_delimiter($)ident(year)>delimiter(")> -comment(// => 16/Jun/81 was a Tuesday and was day number 167 and week number 25 of 1981) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_3.7) -comment(//----------------------------------------------------------------------------------) -ident(input) operator(=) string<delimiter(")content(1998-06-03)delimiter(")> -ident(df1) operator(=) keyword(new) pre_type(SimpleDateFormat)operator(()string<delimiter(")content(yyyy-MM-dd)delimiter(")>operator(\)) -ident(date) operator(=) ident(df1)operator(.)ident(parse)operator(()ident(input)operator(\)) -ident(df2) operator(=) keyword(new) pre_type(SimpleDateFormat)operator(()string<delimiter(")content(MMM/dd/yyyy)delimiter(")>operator(\)) -ident(println) string<delimiter(')content(Date was )delimiter(')> operator(+) ident(df2)operator(.)ident(format)operator(()ident(date)operator(\)) -comment(// => Date was Jun/03/1998) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_3.8) -comment(//----------------------------------------------------------------------------------) -keyword(import) include(java.text.DateFormat) -ident(df) operator(=) keyword(new) pre_type(SimpleDateFormat)operator(()string<delimiter(')content(E M d hh:mm:ss z yyyy)delimiter(')>operator(\)) -ident(cal)operator(.)ident(set)operator(()integer(2007)operator(,) integer(0)operator(,) integer(1)operator(\)) -ident(println) string<delimiter(')content(Customized format gives: )delimiter(')> operator(+) ident(df)operator(.)ident(format)operator(()ident(cal)operator(.)ident(time)operator(\)) -comment(// => Mon 1 1 09:02:29 EST 2007 (differs depending on your timezone\)) -ident(df) operator(=) pre_type(DateFormat)operator(.)ident(getDateInstance)operator(()pre_type(DateFormat)operator(.)ident(FULL)operator(,) pre_type(Locale)operator(.)ident(FRANCE)operator(\)) -ident(println) string<delimiter(')content(Customized format gives: )delimiter(')> operator(+) ident(df)operator(.)ident(format)operator(()ident(cal)operator(.)ident(time)operator(\)) -comment(// => lundi 1 janvier 2007) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_3.9) -comment(//----------------------------------------------------------------------------------) -comment(// script:) -ident(println) string<delimiter(')content(Press return when ready)delimiter(')> -ident(before) operator(=) pre_type(System)operator(.)ident(currentTimeMillis)operator(()operator(\)) -ident(input) operator(=) keyword(new) pre_type(BufferedReader)operator(()keyword(new) pre_type(InputStreamReader)operator(()pre_type(System)operator(.)ident(in)operator(\))operator(\))operator(.)ident(readLine)operator(()operator(\)) -ident(after) operator(=) pre_type(System)operator(.)ident(currentTimeMillis)operator(()operator(\)) -ident(elapsed) operator(=) operator(()ident(after) operator(-) ident(before)operator(\)) operator(/) integer(1000) -ident(println) string<delimiter(")content(You took )inline<inline_delimiter($)ident(elapsed)>content( seconds.)delimiter(")> -comment(// => You took2.313 seconds.) - -comment(// take mean sorting time) -ident(size) operator(=) integer(500)operator(;) ident(number) operator(=) integer(100)operator(;) ident(total) operator(=) integer(0) -keyword(for) operator(()ident(i) keyword(in) integer(0)operator(..<)ident(number)operator(\)) operator({) - ident(array) operator(=) type([]) - ident(size)operator(.)ident(times)operator({) ident(array) operator(<)operator(<) pre_type(Math)operator(.)ident(random)operator(()operator(\)) operator(}) - ident(doubles) operator(=) ident(array) keyword(as) type(double)type([]) - comment(// sort it) - type(long) ident(t0) operator(=) pre_type(System)operator(.)ident(currentTimeMillis)operator(()operator(\)) - pre_type(Arrays)operator(.)ident(sort)operator(()ident(doubles)operator(\)) - type(long) ident(t1) operator(=) pre_type(System)operator(.)ident(currentTimeMillis)operator(()operator(\)) - ident(total) operator(+=) operator(()ident(t1) operator(-) ident(t0)operator(\)) -operator(}) -ident(println) string<delimiter(")content(On average, sorting )inline<inline_delimiter($)ident(size)>content( random numbers takes )inline<inline_delimiter(${)ident(total) operator(/) ident(number)inline_delimiter(})>content( milliseconds)delimiter(")> -comment(// => On average, sorting 500 random numbers takes 0.32 milliseconds) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_3.10) -comment(//----------------------------------------------------------------------------------) -ident(delayMillis) operator(=) integer(50) -pre_type(Thread)operator(.)ident(sleep)operator(()ident(delayMillis)operator(\)) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_3.11) -comment(//----------------------------------------------------------------------------------) -comment(// this could be done more simply using JavaMail's getAllHeaderLines(\) but is shown) -comment(// in long hand for illustrative purposes) -ident(sampleMessage) operator(=) string<delimiter(''')content(Delivered-To: alias-someone@somewhere.com.au -Received: (qmail 27284 invoked from network\); 30 Dec 2006 15:16:26 -0000 -Received: from unknown (HELO lists-outbound.sourceforge.net\) (66.35.250.225\) - by bne012m.server-web.com with SMTP; 30 Dec 2006 15:16:25 -0000 -Received: from sc8-sf-list2-new.sourceforge.net (sc8-sf-list2-new-b.sourceforge.net [10.3.1.94]\) - by sc8-sf-spam2.sourceforge.net (Postfix\) with ESMTP - id D8CCBFDE3; Sat, 30 Dec 2006 07:16:24 -0800 (PST\) -Received: from sc8-sf-mx1-b.sourceforge.net ([10.3.1.91] - helo=mail.sourceforge.net\) - by sc8-sf-list2-new.sourceforge.net with esmtp (Exim 4.43\) - id 1H0fwX-0003c0-GA - for pleac-discuss@lists.sourceforge.net; Sat, 30 Dec 2006 07:16:20 -0800 -Received: from omta05ps.mx.bigpond.com ([144.140.83.195]\) - by mail.sourceforge.net with esmtp (Exim 4.44\) id 1H0fwY-0005D4-DD - for pleac-discuss@lists.sourceforge.net; Sat, 30 Dec 2006 07:16:19 -0800 -Received: from win2K001 ([138.130.127.127]\) by omta05ps.mx.bigpond.com - with SMTP - id <20061230151611.XVWL19269.omta05ps.mx.bigpond.com@win2K001>; - Sat, 30 Dec 2006 15:16:11 +0000 -From: someone@somewhere.com -To: <pleac-discuss@lists.sourceforge.net> -Date: Sun, 31 Dec 2006 02:14:57 +1100 -Subject: Re: [Pleac-discuss] C/Posix/GNU - @@pleac@@_10x -Content-Type: text/plain; charset="us-ascii" -Content-Transfer-Encoding: 7bit -Sender: pleac-discuss-bounces@lists.sourceforge.net -Errors-To: pleac-discuss-bounces@lists.sourceforge.net - ------ Original Message ----- -From: someone@somewhere.com -To: otherperson@somewhereelse.com -Cc: <pleac-discuss@lists.sourceforge.net> -Sent: Wednesday, December 27, 2006 9:18 AM -Subject: Re: [Pleac-discuss] C/Posix/GNU - @@pleac@@_10x - -I really like that description of PLEAC. -)delimiter(''')> -ident(expected) operator(=) string<delimiter(''')content( -Sender Recipient Time Delta -<origin> somewhere.com 01:14:57 06/12/31 -win2K001 omta05ps.mx.bigpond.com 01:14:57 06/12/31 1m 14s -omta05ps.mx.bigpond.com mail.sourceforge.net 01:16:11 06/12/31 8s -sc8-sf-mx1-b.sourceforge. sc8-sf-list2-new.sourcefo 01:16:19 06/12/31 1s -sc8-sf-list2-new.sourcefo sc8-sf-spam2.sourceforge. 01:16:20 06/12/31 4s -unknown bne012m.server-web.com 01:16:24 06/12/31 1s -)delimiter(''')> - -type(class) class(MailHopDelta) operator({) - keyword(def) ident(headers)operator(,) ident(firstSender)operator(,) ident(firstDate)operator(,) ident(out) - - ident(MailHopDelta)operator(()ident(mail)operator(\)) operator({) - ident(extractHeaders)operator(()ident(mail)operator(\)) - ident(out) operator(=) keyword(new) pre_type(StringBuffer)operator(()operator(\)) - keyword(def) ident(m) operator(=) operator(()ident(mail) operator(=~) regexp<delimiter(/)content((?m\)^Date:)char(\\s)content(+(.*\))delimiter(/)>operator(\)) - ident(firstDate) operator(=) ident(parseDate)operator(()ident(m)operator([)integer(0)operator(])operator([)integer(1)operator(])operator(\)) - ident(firstSender) operator(=) operator(()ident(mail) operator(=~) regexp<delimiter(/)content((?m\)^From.*)content(\\@)content(([^)char(\\s)content(>]*\))delimiter(/)>operator(\))operator([)integer(0)operator(])operator([)integer(1)operator(]) - ident(out)operator(()string<delimiter(')content(Sender Recipient Time Delta)delimiter(')>operator(.)ident(split)operator(()string<delimiter(')content( )delimiter(')>operator(\))operator(\)) - operator(}) - - keyword(def) method(parseDate)operator(()ident(date)operator(\)) operator({) - keyword(try) operator({) - keyword(return) keyword(new) pre_type(SimpleDateFormat)operator(()string<delimiter(')content(EEE, dd MMM yyyy hh:mm:ss Z)delimiter(')>operator(\))operator(.)ident(parse)operator(()ident(date)operator(\)) - operator(}) keyword(catch)operator(()ident(java)operator(.)ident(text)operator(.)ident(ParseException) ident(ex)operator(\)) operator({)operator(}) - keyword(try) operator({) - keyword(return) keyword(new) pre_type(SimpleDateFormat)operator(()string<delimiter(')content(dd MMM yyyy hh:mm:ss Z)delimiter(')>operator(\))operator(.)ident(parse)operator(()ident(date)operator(\)) - operator(}) keyword(catch)operator(()ident(java)operator(.)ident(text)operator(.)ident(ParseException) ident(ex)operator(\)) operator({)operator(}) - keyword(try) operator({) - keyword(return) pre_type(DateFormat)operator(.)ident(getDateInstance)operator(()pre_type(DateFormat)operator(.)ident(FULL)operator(\))operator(.)ident(parse)operator(()ident(date)operator(\)) - operator(}) keyword(catch)operator(()ident(java)operator(.)ident(text)operator(.)ident(ParseException) ident(ex)operator(\)) operator({)operator(}) - pre_type(DateFormat)operator(.)ident(getDateInstance)operator(()pre_type(DateFormat)operator(.)ident(LONG)operator(\))operator(.)ident(parse)operator(()ident(date)operator(\)) - operator(}) - - keyword(def) method(extractHeaders)operator(()ident(mail)operator(\)) operator({) - ident(headers) operator(=) type([]) - keyword(def) ident(isHeader) operator(=) pre_constant(true) - keyword(def) ident(currentHeader) operator(=) string<delimiter(')delimiter(')> - ident(mail)operator(.)ident(split)operator(()string<delimiter(')content(\\n)delimiter(')>operator(\))operator(.)ident(each)operator({) ident(line) operator(->) - keyword(if) operator(()operator(!)ident(isHeader)operator(\)) keyword(return) - keyword(switch)operator(()ident(line)operator(\)) operator({) - keyword(case) operator(~)regexp<delimiter(/)content(^)char(\\s)content(*)content($)delimiter(/)>operator(:) - ident(isHeader) operator(=) pre_constant(false) - keyword(if) operator(()ident(currentHeader)operator(\)) ident(headers) operator(<)operator(<) ident(currentHeader) - keyword(break) - keyword(case) operator(~)regexp<delimiter(/)content(^)char(\\s)content(+.*)delimiter(/)>operator(:) - ident(currentHeader) operator(+=) ident(line)operator(;) keyword(break) - keyword(default)operator(:) - keyword(if) operator(()ident(currentHeader)operator(\)) ident(headers) operator(<)operator(<) ident(currentHeader) - ident(currentHeader) operator(=) ident(line) - operator(}) - operator(}) - operator(}) - - keyword(def) method(out)operator(()ident(line)operator(\)) operator({) - ident(out) operator(<)operator(<) ident(line)operator([)integer(0)operator(])operator([)integer(0)operator(..<)operator([)integer(25)operator(,)ident(line)operator([)integer(0)operator(])operator(.)ident(size)operator(()operator(\))operator(])operator(.)ident(min)operator(()operator(\))operator(])operator(.)ident(padRight)operator(()integer(26)operator(\)) - ident(out) operator(<)operator(<) ident(line)operator([)integer(1)operator(])operator([)integer(0)operator(..<)operator([)integer(25)operator(,)ident(line)operator([)integer(1)operator(])operator(.)ident(size)operator(()operator(\))operator(])operator(.)ident(min)operator(()operator(\))operator(])operator(.)ident(padRight)operator(()integer(26)operator(\)) - ident(out) operator(<)operator(<) ident(line)operator([)integer(2)operator(])operator(.)ident(padRight)operator(()integer(17)operator(\)) operator(+) string<delimiter(')content( )delimiter(')> - ident(out) operator(<)operator(<) ident(line)operator([)integer(3)operator(]) operator(+) string<delimiter(')content(\\n)delimiter(')> - operator(}) - - keyword(def) method(prettyDate)operator(()ident(date)operator(\)) operator({) - keyword(new) pre_type(SimpleDateFormat)operator(()string<delimiter(')content(hh:mm:ss yy/MM/dd)delimiter(')>operator(\))operator(.)ident(format)operator(()ident(date)operator(\)) - operator(}) - - keyword(def) method(process)operator(()operator(\)) operator({) - ident(out)operator(()operator([)string<delimiter(')content(<origin>)delimiter(')>operator(,) ident(firstSender)operator(,) ident(prettyDate)operator(()ident(firstDate)operator(\))operator(,) string<delimiter(')delimiter(')>operator(])operator(\)) - keyword(def) ident(prevDate) operator(=) ident(firstDate) - ident(headers)operator(.)ident(grep)operator(()operator(~)regexp<delimiter(/)content(^Received:)char(\\s)content(from.*)delimiter(/)>operator(\))operator(.)ident(reverseEach)operator({) ident(hop) operator(->) - keyword(def) ident(from) operator(=) operator(()ident(hop) operator(=~) regexp<delimiter(/)content(from)char(\\s)content(+()char(\\S)content(+\)|)content(\\()content((.*?\))content(\\\))delimiter(/)>operator(\))operator([)integer(0)operator(])operator([)integer(1)operator(]) - keyword(def) ident(by) operator(=) operator(()ident(hop) operator(=~) regexp<delimiter(/)content(by)char(\\s)content(+()char(\\S)content(+)content(\\.)char(\\S)content(+\))delimiter(/)>operator(\))operator([)integer(0)operator(])operator([)integer(1)operator(]) - keyword(def) ident(hopDate) operator(=) ident(parseDate)operator(()ident(hop)operator([)ident(hop)operator(.)ident(lastIndexOf)operator(()string<delimiter(')content(;)delimiter(')>operator(\))operator(+)integer(2)operator(..)operator(-)integer(1)operator(])operator(\)) - ident(out)operator(()operator([)ident(from)operator(,) ident(by)operator(,) ident(prettyDate)operator(()ident(prevDate)operator(\))operator(,) ident(prettyDelta)operator(()ident(hopDate)operator(.)ident(time) operator(-) ident(prevDate)operator(.)ident(time)operator(\))operator(])operator(\)) - ident(prevDate) operator(=) ident(hopDate) - operator(}) - keyword(return) ident(out)operator(.)ident(toString)operator(()operator(\)) - operator(}) - - keyword(def) method(prettyField)operator(()ident(secs)operator(,) ident(sign)operator(,) ident(ch)operator(,) ident(multiplier)operator(,) ident(sb)operator(\)) operator({) - keyword(def) ident(whole) operator(=) operator(()type(int)operator(\))operator(()ident(secs) operator(/) ident(multiplier)operator(\)) - keyword(if) operator(()operator(!)ident(whole)operator(\)) keyword(return) integer(0) - ident(sb) operator(<)operator(<) string<delimiter(')delimiter(')> operator(+) operator(()ident(sign) operator(*) ident(whole)operator(\)) operator(+) ident(ch) operator(+) string<delimiter(')content( )delimiter(')> - keyword(return) ident(whole) operator(*) ident(multiplier) - operator(}) - - keyword(def) method(prettyDelta)operator(()ident(millis)operator(\)) operator({) - keyword(def) ident(sign) operator(=) ident(millis) operator(<) integer(0) operator(?) operator(-)integer(1) operator(:) integer(1) - keyword(def) ident(secs) operator(=) operator(()type(int)operator(\))pre_type(Math)operator(.)ident(abs)operator(()ident(millis)operator(/)integer(1000)operator(\)) - keyword(def) ident(sb) operator(=) keyword(new) pre_type(StringBuffer)operator(()operator(\)) - ident(secs) operator(-=) ident(prettyField)operator(()ident(secs)operator(,) ident(sign)operator(,) string<delimiter(')content(d)delimiter(')>operator(,) integer(60) operator(*) integer(60) operator(*) integer(24)operator(,) ident(sb)operator(\)) - ident(secs) operator(-=) ident(prettyField)operator(()ident(secs)operator(,) ident(sign)operator(,) string<delimiter(')content(h)delimiter(')>operator(,) integer(60) operator(*) integer(60)operator(,) ident(sb)operator(\)) - ident(secs) operator(-=) ident(prettyField)operator(()ident(secs)operator(,) ident(sign)operator(,) string<delimiter(')content(m)delimiter(')>operator(,) integer(60)operator(,) ident(sb)operator(\)) - ident(prettyField)operator(()ident(secs)operator(,) ident(sign)operator(,) string<delimiter(')content(s)delimiter(')>operator(,) integer(1)operator(,) ident(sb)operator(\)) - keyword(return) ident(sb)operator(.)ident(toString)operator(()operator(\))operator(.)ident(trim)operator(()operator(\)) - operator(}) -operator(}) - -keyword(assert) string<delimiter(')content(\\n)delimiter(')> operator(+) keyword(new) ident(MailHopDelta)operator(()ident(sampleMessage)operator(\))operator(.)ident(process)operator(()operator(\)) operator(==) ident(expected) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_4.0) -comment(//----------------------------------------------------------------------------------) -ident(simple) operator(=) operator([) string<delimiter(")content(this)delimiter(")>operator(,) string<delimiter(")content(that)delimiter(")>operator(,) string<delimiter(")content(the)delimiter(")>operator(,) string<delimiter(")content(other)delimiter(")> operator(]) -ident(nested) operator(=) operator([) string<delimiter(")content(this)delimiter(")>operator(,) string<delimiter(")content(that)delimiter(")>operator(,) operator([) string<delimiter(")content(the)delimiter(")>operator(,) string<delimiter(")content(other)delimiter(")> operator(]) operator(]) -keyword(assert) ident(nested)operator(.)ident(size)operator(()operator(\)) operator(==) integer(3) -keyword(assert) ident(nested)operator([)integer(2)operator(])operator(.)ident(size)operator(()operator(\)) operator(==) integer(2) - -ident(flattenNestedToSimple) operator(=) operator([) string<delimiter(")content(this)delimiter(")>operator(,) string<delimiter(")content(that)delimiter(")>operator(,) operator([) string<delimiter(")content(the)delimiter(")>operator(,) string<delimiter(")content(other)delimiter(")> operator(]) operator(])operator(.)ident(flatten)operator(()operator(\)) -keyword(assert) ident(flattenNestedToSimple)operator(.)ident(size)operator(()operator(\)) operator(==) integer(4) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_4.1) -comment(//----------------------------------------------------------------------------------) -ident(a) operator(=) operator([) string<delimiter(")content(quick)delimiter(")>operator(,) string<delimiter(")content(brown)delimiter(")>operator(,) string<delimiter(")content(fox)delimiter(")> operator(]) -keyword(assert) ident(a)operator(.)ident(size)operator(()operator(\)) operator(==) integer(3) -ident(a) operator(=) string<delimiter(')content(Why are you teasing me?)delimiter(')>operator(.)ident(split)operator(()string<delimiter(')content( )delimiter(')>operator(\)) -keyword(assert) ident(a) operator(==) operator([)string<delimiter(")content(Why)delimiter(")>operator(,) string<delimiter(")content(are)delimiter(")>operator(,) string<delimiter(")content(you)delimiter(")>operator(,) string<delimiter(")content(teasing)delimiter(")>operator(,) string<delimiter(")content(me?)delimiter(")>operator(]) - -ident(removeLeadingSpaces) operator(=) operator({) local_variable(it)operator(.)ident(trim)operator(()operator(\)) operator(}) -ident(nonBlankLines) operator(=) operator({) local_variable(it) operator(}) -ident(lines) operator(=) string<delimiter(''')content( - The boy stood on the burning deck, - It was as hot as glass. -)delimiter(''')>operator(.)ident(split)operator(()string<delimiter(')content(\\n)delimiter(')>operator(\))operator(.)ident(collect)operator(()ident(removeLeadingSpaces)operator(\))operator(.)ident(findAll)operator(()ident(nonBlankLines)operator(\)) - -keyword(assert) ident(lines) operator(==) operator([)string<delimiter(")content(The boy stood on the burning deck,)delimiter(")>operator(,) - string<delimiter(")content(It was as hot as glass.)delimiter(")>operator(]) - -comment(// initialiseListFromFileScript:) -ident(lines) operator(=) keyword(new) pre_type(File)operator(()string<delimiter(')content(mydata.txt)delimiter(')>operator(\))operator(.)ident(readLines)operator(()operator(\)) - -comment(// processFileScript:) -keyword(new) pre_type(File)operator(()string<delimiter(')content(mydata.txt)delimiter(')>operator(\))operator(.)ident(eachLine)operator({) - comment(// dosomething) -operator(}) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_4.2) -comment(//----------------------------------------------------------------------------------) -ident(marbleColors) operator(=) operator([)string<delimiter(')content(red)delimiter(')>operator(,) string<delimiter(')content(green)delimiter(')>operator(,) string<delimiter(')content(yellow)delimiter(')>operator(]) -keyword(assert) ident(marbleColors)operator(.)ident(join)operator(()string<delimiter(')content(, )delimiter(')>operator(\)) operator(==) string<delimiter(')content(red, green, yellow)delimiter(')> - -keyword(def) method(commify)operator(()ident(items)operator(\)) operator({) - keyword(if) operator(()operator(!)ident(items)operator(\)) keyword(return) ident(items) - keyword(def) ident(sepchar) operator(=) ident(items)operator(.)ident(find)operator({) local_variable(it) operator(=~) regexp<delimiter(/)content(,)delimiter(/)> operator(}) operator(?) string<delimiter(')content(; )delimiter(')> operator(:) string<delimiter(')content(, )delimiter(')> - keyword(switch) operator(()ident(items)operator(.)ident(size)operator(()operator(\))operator(\)) operator({) - keyword(case) integer(1)operator(:) keyword(return) ident(items)operator([)integer(0)operator(]) - keyword(case) integer(2)operator(:) keyword(return) ident(items)operator(.)ident(join)operator(()string<delimiter(')content( and )delimiter(')>operator(\)) - operator(}) - ident(items)operator([)integer(0)operator(..)operator(-)integer(2)operator(])operator(.)ident(join)operator(()ident(sepchar)operator(\)) operator(+) ident(sepchar) operator(+) string<delimiter(')content(and )delimiter(')> operator(+) ident(items)operator([)operator(-)integer(1)operator(]) -operator(}) - -keyword(assert) ident(commify)operator(()ident(marbleColors)operator(\)) operator(==) string<delimiter(')content(red, green, and yellow)delimiter(')> - -ident(lists) operator(=) operator([) - operator([) string<delimiter(')content(just one thing)delimiter(')> operator(])operator(,) - operator([) string<delimiter(')content(Mutt)delimiter(')>operator(,) string<delimiter(')content(Jeff)delimiter(')> operator(])operator(,) - string<delimiter(')content(Peter Paul Mary)delimiter(')>operator(.)ident(split)operator(()string<delimiter(')content( )delimiter(')>operator(\))operator(,) - operator([) string<delimiter(')content(To our parents)delimiter(')>operator(,) string<delimiter(')content(Mother Theresa)delimiter(')>operator(,) string<delimiter(')content(God)delimiter(')> operator(])operator(,) - operator([) string<delimiter(')content(pastrami)delimiter(')>operator(,) string<delimiter(')content(ham and cheese)delimiter(')>operator(,) string<delimiter(')content(peanut butter and jelly)delimiter(')>operator(,) string<delimiter(')content(tuna)delimiter(')> operator(])operator(,) - operator([) string<delimiter(')content(recycle tired, old phrases)delimiter(')>operator(,) string<delimiter(')content(ponder big, happy thoughts)delimiter(')> operator(])operator(,) - operator([) string<delimiter(')content(recycle tired, old phrases)delimiter(')>operator(,) - string<delimiter(')content(ponder big, happy thoughts)delimiter(')>operator(,) - string<delimiter(')content(sleep and dream peacefully)delimiter(')> operator(])operator(,) -operator(]) - -ident(expected) operator(=) string<delimiter(''')content( -just one thing -Mutt and Jeff -Peter, Paul, and Mary -To our parents, Mother Theresa, and God -pastrami, ham and cheese, peanut butter and jelly, and tuna -recycle tired, old phrases and ponder big, happy thoughts -recycle tired, old phrases; ponder big, happy thoughts; and sleep and dream peacefully -)delimiter(''')> - -keyword(assert) ident(expected) operator(==) string<delimiter(')content(\\n)delimiter(')> operator(+) ident(lists)operator(.)ident(collect)operator({)ident(commify)operator(()local_variable(it)operator(\))operator(})operator(.)ident(join)operator(()string<delimiter(')content(\\n)delimiter(')>operator(\)) operator(+) string<delimiter(')content(\\n)delimiter(')> -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_4.3) -comment(//----------------------------------------------------------------------------------) -comment(// In Groovy, lists and arrays are more or less interchangeable) -comment(// here is the example using lists) -ident(people) operator(=) operator([)string<delimiter(')content(Crosby)delimiter(')>operator(,) string<delimiter(')content(Stills)delimiter(')>operator(,) string<delimiter(')content(Nash)delimiter(')>operator(]) -keyword(assert) ident(people)operator(.)ident(size)operator(()operator(\)) operator(==) integer(3) -ident(people)operator([)integer(3)operator(]) operator(=) string<delimiter(')content(Young)delimiter(')> -keyword(assert) ident(people)operator(.)ident(size)operator(()operator(\)) operator(==) integer(4) -keyword(assert) ident(people) operator(==) operator([)string<delimiter(')content(Crosby)delimiter(')>operator(,) string<delimiter(')content(Stills)delimiter(')>operator(,) string<delimiter(')content(Nash)delimiter(')>operator(,) string<delimiter(')content(Young)delimiter(')>operator(]) -comment(// to use arrays simply do 'people = peopleArray.toList(\)' at the start) -comment(// and 'peopleArray = people as String[]' at the end) -comment(// if you attempt to do extension on a Java array you will get an) -comment(// ArrayIndexOutOfBoundsException - which is why Java has ArrayList et al) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_4.4) -comment(//----------------------------------------------------------------------------------) -comment(// list to process) -ident(people) operator(==) operator([)string<delimiter(')content(Crosby)delimiter(')>operator(,) string<delimiter(')content(Stills)delimiter(')>operator(,) string<delimiter(')content(Nash)delimiter(')>operator(,) string<delimiter(')content(Young)delimiter(')>operator(]) -comment(// helper) -ident(startsWithCapital) operator(=) operator({) ident(word) operator(->) ident(word)operator([)integer(0)operator(]) keyword(in) string<delimiter(')content(A)delimiter(')>operator(..)string<delimiter(')content(Z)delimiter(')> operator(}) - -comment(// various styles are possible for processing lists) -comment(// closure style) -ident(people)operator(.)ident(each) operator({) ident(person) operator(->) keyword(assert) ident(startsWithCapital)operator(()ident(person)operator(\)) operator(}) -comment(// for loop style) -keyword(for) operator(()ident(person) keyword(in) ident(people)operator(\)) operator({) keyword(assert) ident(startsWithCapital)operator(()ident(person)operator(\)) operator(}) - -comment(// unixScriptToFindAllUsersStartingWithLetterA:) -ident(all) operator(=) string<delimiter(')content(who)delimiter(')>operator(.)ident(execute)operator(()operator(\))operator(.)ident(text)operator(.)ident(replaceAll)operator(()string<delimiter(')content(\\r)delimiter(')>operator(,) string<delimiter(')delimiter(')>operator(\))operator(.)ident(split)operator(()string<delimiter(')content(\\n)delimiter(')>operator(\)) -ident(all)operator(.)ident(grep)operator(()operator(~)regexp<delimiter(/)content(^a.*)delimiter(/)>operator(\))operator(.)ident(each)operator({) ident(println) local_variable(it) operator(}) - -comment(// printFileWithWordsReversedScript:) -keyword(new) pre_type(File)operator(()string<delimiter(')content(Pleac/src/SlowCat.groovy)delimiter(')>operator(\))operator(.)ident(eachLine)operator({) ident(line) operator(->) - ident(line)operator(.)ident(split)operator(()string<delimiter(')content( )delimiter(')>operator(\))operator(.)ident(each)operator({) ident(print) local_variable(it)operator(.)ident(reverse)operator(()operator(\)) operator(}) -operator(}) - -ident(a) operator(=) operator([)float(0.5)operator(,) integer(3)operator(])operator(;) ident(b) operator(=) operator([)integer(0)operator(,) integer(1)operator(]) -keyword(assert) operator([)ident(a)operator(,) ident(b)operator(])operator(.)ident(flatten)operator(()operator(\))operator(.)ident(collect)operator({) local_variable(it) operator(*) integer(7) operator(}) operator(==) operator([)float(3.5)operator(,) integer(21)operator(,) integer(0)operator(,) integer(7)operator(]) -comment(// above doesn't modify original arrays) -comment(// instead use a = a.collect{ ... }) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_4.5) -comment(//----------------------------------------------------------------------------------) -comment(// not relevant in Groovy since we have always references) -ident(items) operator(=) type([]) -keyword(for) operator(()ident(item) keyword(in) ident(items)operator(\)) operator({) - comment(// do something with item) -operator(}) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_4.6) -comment(//----------------------------------------------------------------------------------) -keyword(assert) operator([) integer(1)operator(,) integer(1)operator(,) integer(2)operator(,) integer(2)operator(,) integer(3)operator(,) integer(3)operator(,) integer(3)operator(,) integer(5) operator(])operator(.)ident(unique)operator(()operator(\)) operator(==) operator([) integer(1)operator(,) integer(2)operator(,) integer(3)operator(,) integer(5) operator(]) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_4.7) -comment(//----------------------------------------------------------------------------------) -keyword(assert) operator([) integer(1)operator(,) integer(1)operator(,) integer(2)operator(,) integer(2)operator(,) integer(3)operator(,) integer(3)operator(,) integer(3)operator(,) integer(4)operator(,) integer(5) operator(]) operator(-) operator([) integer(1)operator(,) integer(2)operator(,) integer(4) operator(]) operator(==) operator([)integer(3)operator(,) integer(3)operator(,) integer(3)operator(,) integer(5)operator(]) -keyword(assert) operator([) integer(1)operator(,) integer(1)operator(,) integer(2)operator(,) integer(2)operator(,) integer(3)operator(,) integer(3)operator(,) integer(3)operator(,) integer(4)operator(,) integer(5) operator(])operator(.)ident(unique)operator(()operator(\)) operator(-) operator([) integer(1)operator(,) integer(2)operator(,) integer(4) operator(]) operator(==) operator([)integer(3)operator(,) integer(5)operator(]) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_4.8) -comment(//----------------------------------------------------------------------------------) -ident(a) operator(=) operator([)integer(1)operator(,) integer(3)operator(,) integer(5)operator(,) integer(6)operator(,) integer(7)operator(,) integer(8)operator(]) -ident(b) operator(=) operator([)integer(2)operator(,) integer(3)operator(,) integer(5)operator(,) integer(7)operator(,) integer(9)operator(]) -comment(// intersection) -keyword(assert) ident(a)operator(.)ident(intersect)operator(()ident(b)operator(\)) operator(==) operator([)integer(3)operator(,) integer(5)operator(,) integer(7)operator(]) -comment(// union) -keyword(assert) operator(()ident(a) operator(+) ident(b)operator(\))operator(.)ident(unique)operator(()operator(\))operator(.)ident(sort)operator(()operator(\)) operator(==) operator([)integer(1)operator(,) integer(2)operator(,) integer(3)operator(,) integer(5)operator(,) integer(6)operator(,) integer(7)operator(,) integer(8)operator(,) integer(9)operator(]) -comment(// difference) -keyword(assert) operator(()ident(a) operator(-) ident(b)operator(\)) operator(==) operator([)integer(1)operator(,) integer(6)operator(,) integer(8)operator(]) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_4.9) -comment(//----------------------------------------------------------------------------------) -ident(members) operator(=) operator([) string<delimiter(")content(Time)delimiter(")>operator(,) string<delimiter(")content(Flies)delimiter(")> operator(]) -ident(initiates) operator(=) operator([) string<delimiter(")content(An)delimiter(")>operator(,) string<delimiter(")content(Arrow)delimiter(")> operator(]) -ident(members) operator(+=) ident(initiates) -keyword(assert) ident(members) operator(==) operator([)string<delimiter(")content(Time)delimiter(")>operator(,) string<delimiter(")content(Flies)delimiter(")>operator(,) string<delimiter(")content(An)delimiter(")>operator(,) string<delimiter(")content(Arrow)delimiter(")>operator(]) - -ident(members)operator(.)ident(add)operator(()integer(2)operator(,) string<delimiter(")content(Like)delimiter(")>operator(\)) -keyword(assert) ident(members) operator(==) operator([)string<delimiter(")content(Time)delimiter(")>operator(,) string<delimiter(")content(Flies)delimiter(")>operator(,) string<delimiter(")content(Like)delimiter(")>operator(,) string<delimiter(")content(An)delimiter(")>operator(,) string<delimiter(")content(Arrow)delimiter(")>operator(]) - -ident(members)operator([)integer(0)operator(]) operator(=) string<delimiter(")content(Fruit)delimiter(")> -ident(members)operator([)integer(3)operator(..)integer(4)operator(]) operator(=) operator([)string<delimiter(")content(A)delimiter(")>operator(,) string<delimiter(")content(Banana)delimiter(")>operator(]) -keyword(assert) ident(members) operator(==) operator([)string<delimiter(")content(Fruit)delimiter(")>operator(,) string<delimiter(")content(Flies)delimiter(")>operator(,) string<delimiter(")content(Like)delimiter(")>operator(,) string<delimiter(")content(A)delimiter(")>operator(,) string<delimiter(")content(Banana)delimiter(")>operator(]) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_4.10) -comment(//----------------------------------------------------------------------------------) -ident(items) operator(=) operator([)string<delimiter(")content(the)delimiter(")>operator(,) string<delimiter(")content(quick)delimiter(")>operator(,) string<delimiter(")content(brown)delimiter(")>operator(,) string<delimiter(")content(fox)delimiter(")>operator(]) -keyword(assert) ident(items)operator(.)ident(reverse)operator(()operator(\)) operator(==) operator([)string<delimiter(")content(fox)delimiter(")>operator(,) string<delimiter(")content(brown)delimiter(")>operator(,) string<delimiter(")content(quick)delimiter(")>operator(,) string<delimiter(")content(the)delimiter(")>operator(]) - -ident(firstLetters) operator(=) type([]) -ident(items)operator(.)ident(reverseEach)operator({) ident(firstLetters) operator(+=) local_variable(it)operator([)integer(0)operator(]) operator(}) -keyword(assert) ident(firstLetters)operator(.)ident(join)operator(()operator(\)) operator(==) string<delimiter(')content(fbqt)delimiter(')> - -ident(descending) operator(=) ident(items)operator(.)ident(sort)operator(()operator(\))operator(.)ident(reverse)operator(()operator(\)) -keyword(assert) ident(descending) operator(==) operator([)string<delimiter(")content(the)delimiter(")>operator(,) string<delimiter(")content(quick)delimiter(")>operator(,) string<delimiter(")content(fox)delimiter(")>operator(,) string<delimiter(")content(brown)delimiter(")>operator(]) -ident(descendingBySecondLastLetter) operator(=) ident(items)operator(.)ident(sort) operator({) ident(a)operator(,)ident(b) operator(->) ident(b)operator([)operator(-)integer(2)operator(]) operator(<=>) ident(a)operator([)operator(-)integer(2)operator(]) operator(}) -keyword(assert) ident(descendingBySecondLastLetter) operator(==) operator([)string<delimiter(")content(brown)delimiter(")>operator(,) string<delimiter(")content(fox)delimiter(")>operator(,) string<delimiter(")content(the)delimiter(")>operator(,) string<delimiter(")content(quick)delimiter(")>operator(]) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_4.11) -comment(//----------------------------------------------------------------------------------) -comment(// warning: not an exact equivalent, idiomatic use would return copies) -keyword(def) ident(shift2) operator(=) operator({)ident(one) operator(=) ident(friends)operator([)integer(0)operator(])operator(;) ident(two) operator(=) ident(friends)operator([)integer(1)operator(])operator(;) integer(2)operator(.)ident(times)operator({)ident(friends)operator(.)ident(remove)operator(()integer(0)operator(\))operator(})operator(}) -ident(friends) operator(=) string<delimiter(')content(Peter Paul Mary Jim Tim)delimiter(')>operator(.)ident(split)operator(()string<delimiter(')content( )delimiter(')>operator(\))operator(.)ident(toList)operator(()operator(\)) -ident(shift2)operator(()operator(\)) -keyword(assert) ident(one) operator(==) string<delimiter(')content(Peter)delimiter(')> -keyword(assert) ident(two) operator(==) string<delimiter(')content(Paul)delimiter(')> -keyword(assert) ident(friends) operator(==) operator([)string<delimiter(")content(Mary)delimiter(")>operator(,) string<delimiter(")content(Jim)delimiter(")>operator(,) string<delimiter(")content(Tim)delimiter(")>operator(]) - -keyword(def) method(pop2)operator(()ident(items)operator(\)) operator({) ident(items)operator([)integer(0)operator(..)integer(1)operator(]) operator(}) -ident(beverages) operator(=) string<delimiter(')content(Dew Jolt Cola Sprite Fresca)delimiter(')>operator(.)ident(split)operator(()string<delimiter(')content( )delimiter(')>operator(\))operator(.)ident(toList)operator(()operator(\)) -ident(pair) operator(=) ident(pop2)operator(()ident(beverages)operator(\)) -keyword(assert) ident(pair) operator(==) operator([)string<delimiter(")content(Dew)delimiter(")>operator(,) string<delimiter(")content(Jolt)delimiter(")>operator(]) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_4.12) -comment(//----------------------------------------------------------------------------------) -type(class) class(Employee) operator({) - keyword(def) ident(name) - keyword(def) ident(position) - keyword(def) ident(salary) -operator(}) -ident(staff) operator(=) operator([)keyword(new) ident(Employee)operator(()key(name)operator(:)string<delimiter(')content(Jim)delimiter(')>operator(,)key(position)operator(:)string<delimiter(')content(Manager)delimiter(')>operator(,)key(salary)operator(:)integer(26000)operator(\))operator(,) - keyword(new) ident(Employee)operator(()key(name)operator(:)string<delimiter(')content(Jill)delimiter(')>operator(,)key(position)operator(:)string<delimiter(')content(Engineer)delimiter(')>operator(,)key(salary)operator(:)integer(24000)operator(\))operator(,) - keyword(new) ident(Employee)operator(()key(name)operator(:)string<delimiter(')content(Jack)delimiter(')>operator(,)key(position)operator(:)string<delimiter(')content(Engineer)delimiter(')>operator(,)key(salary)operator(:)integer(22000)operator(\))operator(]) -ident(highestEngineer) operator(=) ident(staff)operator(.)ident(find) operator({) ident(emp) operator(->) ident(emp)operator(.)ident(position) operator(==) string<delimiter(')content(Engineer)delimiter(')> operator(}) -keyword(assert) ident(highestEngineer)operator(.)ident(salary) operator(==) integer(24000) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_4.13) -comment(//----------------------------------------------------------------------------------) -ident(engineers) operator(=) ident(staff)operator(.)ident(findAll) operator({) ident(e) operator(->) ident(e)operator(.)ident(position) operator(==) string<delimiter(')content(Engineer)delimiter(')> operator(}) -keyword(assert) ident(engineers)operator(.)ident(size)operator(()operator(\)) operator(==) integer(2) - -ident(highPaid) operator(=) ident(staff)operator(.)ident(findAll) operator({) ident(e) operator(->) ident(e)operator(.)ident(salary) operator(>) integer(23000) operator(}) -keyword(assert) ident(highPaid)operator(*.)ident(name) operator(==) operator([)string<delimiter(")content(Jim)delimiter(")>operator(,) string<delimiter(")content(Jill)delimiter(")>operator(]) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_4.14) -comment(//----------------------------------------------------------------------------------) -comment(// sort works for numbers) -keyword(assert) operator([)integer(100)operator(,) integer(3)operator(,) integer(20)operator(])operator(.)ident(sort)operator(()operator(\)) operator(==) operator([)integer(3)operator(,) integer(20)operator(,) integer(100)operator(]) -comment(// strings representing numbers will be sorted alphabetically) -keyword(assert) operator([)string<delimiter(')content(100)delimiter(')>operator(,) string<delimiter(')content(3)delimiter(')>operator(,) string<delimiter(')content(20)delimiter(')>operator(])operator(.)ident(sort)operator(()operator(\)) operator(==) operator([)string<delimiter(")content(100)delimiter(")>operator(,) string<delimiter(")content(20)delimiter(")>operator(,) string<delimiter(")content(3)delimiter(")>operator(]) -comment(// closure style sorting allows arbitrary expressions for the comparison) -keyword(assert) operator([)string<delimiter(')content(100)delimiter(')>operator(,) string<delimiter(')content(3)delimiter(')>operator(,) string<delimiter(')content(20)delimiter(')>operator(])operator(.)ident(sort)operator({) ident(a)operator(,)ident(b) operator(->) ident(a)operator(.)ident(toLong)operator(()operator(\)) operator(<=>) ident(b)operator(.)ident(toLong)operator(()operator(\))operator(}) operator(==) operator([)string<delimiter(")content(3)delimiter(")>operator(,) string<delimiter(")content(20)delimiter(")>operator(,) string<delimiter(")content(100)delimiter(")>operator(]) - -comment(// obtain the following on unix systems using: 'ps ux'.execute(\).text) -ident(processInput) operator(=) string<delimiter(''')content( - PID PPID PGID WINPID TTY UID STIME COMMAND - 3868 1 3868 3868 con 1005 06:23:34 /usr/bin/bash - 3456 3868 3456 3528 con 1005 06:23:39 /usr/bin/ps -)delimiter(''')> -ident(nonEmptyLines) operator(=) operator({)local_variable(it)operator(.)ident(trim)operator(()operator(\))operator(}) -ident(lines) operator(=) ident(processInput)operator(.)ident(split)operator(()string<delimiter(")char(\\n)delimiter(")>operator(\))operator(.)ident(findAll)operator(()ident(nonEmptyLines)operator(\))operator([)integer(1)operator(..)operator(-)integer(1)operator(]) -keyword(def) method(col)operator(()ident(n)operator(,) ident(s)operator(\)) operator({) ident(s)operator(.)ident(tokenize)operator(()operator(\))operator([)ident(n)operator(]) operator(}) -ident(commandIdx) operator(=) integer(7) -ident(pidIdx) operator(=) integer(0) -ident(ppidIdx) operator(=) integer(1) -ident(linesByPid) operator(=) ident(lines)operator(.)ident(sort)operator({) ident(col)operator(()ident(pidIdx)operator(,)local_variable(it)operator(\))operator(.)ident(toLong)operator(()operator(\)) operator(}) -keyword(assert) ident(col)operator(()ident(commandIdx)operator(,) ident(linesByPid)operator([)integer(0)operator(])operator(\)) operator(==) string<delimiter(')content(/usr/bin/ps)delimiter(')> -ident(linesByPpid) operator(=) ident(lines)operator(.)ident(sort)operator({) ident(col)operator(()ident(ppidIdx)operator(,)local_variable(it)operator(\))operator(.)ident(toLong)operator(()operator(\)) operator(}) -keyword(assert) ident(col)operator(()ident(commandIdx)operator(,) ident(linesByPpid)operator([)integer(0)operator(])operator(\)) operator(==) string<delimiter(')content(/usr/bin/bash)delimiter(')> -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_4.15) -comment(//----------------------------------------------------------------------------------) -comment(// sort staff from 4.12 by name) -keyword(assert) ident(staff)operator(.)ident(sort) operator({) ident(a)operator(,)ident(b) operator(->) ident(a)operator(.)ident(name) operator(<=>) ident(b)operator(.)ident(name) operator(})operator(*.)ident(name) operator(==) operator([)string<delimiter(")content(Jack)delimiter(")>operator(,) string<delimiter(")content(Jill)delimiter(")>operator(,) string<delimiter(")content(Jim)delimiter(")>operator(]) -comment(// sort by first two characters of name and if equal by descending salary) -keyword(assert) ident(staff)operator(.)ident(sort) operator({) ident(a)operator(,)ident(b) operator(->) - ident(astart) operator(=) ident(a)operator(.)ident(name)operator([)integer(0)operator(..)integer(1)operator(]) - ident(bstart) operator(=) ident(b)operator(.)ident(name)operator([)integer(0)operator(..)integer(1)operator(]) - keyword(if) operator(()ident(astart) operator(==) ident(bstart)operator(\)) keyword(return) ident(b)operator(.)ident(salary) operator(<=>) ident(a)operator(.)ident(salary) - keyword(return) ident(astart) operator(<=>) ident(bstart) -operator(})operator(*.)ident(name) operator(==) operator([)string<delimiter(")content(Jack)delimiter(")>operator(,) string<delimiter(")content(Jim)delimiter(")>operator(,) string<delimiter(")content(Jill)delimiter(")>operator(]) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_4.16) -comment(//----------------------------------------------------------------------------------) -ident(items) operator(=) operator([)integer(1)operator(,) integer(2)operator(,) integer(3)operator(,) integer(4)operator(,) integer(5)operator(]) -ident(processed) operator(=) type([]) -integer(10)operator(.)ident(times)operator({) - ident(processed) operator(<)operator(<) ident(items)operator([)integer(0)operator(]) - ident(items) operator(=) ident(items)operator([)integer(1)operator(..)operator(-)integer(1)operator(]) operator(+) ident(items)operator([)integer(0)operator(]) -operator(}) -keyword(assert) ident(processed) operator(==) operator([)integer(1)operator(,) integer(2)operator(,) integer(3)operator(,) integer(4)operator(,) integer(5)operator(,) integer(1)operator(,) integer(2)operator(,) integer(3)operator(,) integer(4)operator(,) integer(5)operator(]) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_4.17) -comment(//----------------------------------------------------------------------------------) -keyword(import) include(java.text.DateFormatSymbols) keyword(as) class(Symbols) -ident(items) operator(=) keyword(new) ident(Symbols)operator(()operator(\))operator(.)ident(shortWeekdays)operator(.)ident(toList)operator(()operator(\))operator([)integer(1)operator(..)integer(7)operator(]) -keyword(assert) ident(items) operator(==) operator([)string<delimiter(")content(Sun)delimiter(")>operator(,) string<delimiter(")content(Mon)delimiter(")>operator(,) string<delimiter(")content(Tue)delimiter(")>operator(,) string<delimiter(")content(Wed)delimiter(")>operator(,) string<delimiter(")content(Thu)delimiter(")>operator(,) string<delimiter(")content(Fri)delimiter(")>operator(,) string<delimiter(")content(Sat)delimiter(")>operator(]) -comment(// not as random as you might expect) -ident(println) ident(items)operator(.)ident(sort)operator({) pre_type(Math)operator(.)ident(random)operator(()operator(\)) operator(}) -comment(// => ["Sat", "Tue", "Sun", "Wed", "Mon", "Thu", "Fri"]) -comment(// better to use the built-in method for this purpose) -pre_type(Collections)operator(.)ident(shuffle)operator(()ident(items)operator(\)) -ident(println) ident(items) -comment(// => ["Wed", "Tue", "Fri", "Sun", "Sat", "Thu", "Mon"]) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_4.18) -comment(//----------------------------------------------------------------------------------) -ident(symbols) operator(=) keyword(new) ident(Symbols)operator(()operator(\)) -ident(words) operator(=) ident(symbols)operator(.)ident(weekdays)operator(.)ident(toList)operator(()operator(\))operator([)integer(1)operator(..)integer(7)operator(]) operator(+) - ident(symbols)operator(.)ident(months)operator(.)ident(toList)operator(()operator(\))operator([)integer(0)operator(..)integer(11)operator(]) operator(+) - ident(symbols)operator(.)ident(eras)operator(.)ident(toList)operator(()operator(\)) operator(+) - ident(symbols)operator(.)ident(amPmStrings)operator(.)ident(toList)operator(()operator(\)) - -ident(expected) operator(=) comment(//) -string<delimiter(')content(AD August February July May October September Tuesday \\n)delimiter(')> operator(+) -string<delimiter(')content(AM BC Friday June Monday PM Sunday Wednesday \\n)delimiter(')> operator(+) -string<delimiter(')content(April December January March November Saturday Thursday \\n)delimiter(')> - -type(class) class(WordFormatter) operator({) - keyword(def) ident(cols) - - keyword(def) method(process)operator(()ident(list)operator(\)) operator({) - keyword(def) ident(sb) operator(=) keyword(new) pre_type(StringBuffer)operator(()operator(\)) - keyword(def) ident(colWidth) operator(=) ident(list)operator(.)ident(max)operator({)local_variable(it)operator(.)ident(size)operator(()operator(\))operator(})operator(.)ident(size)operator(()operator(\)) operator(+) integer(1) - type(int) ident(columns) operator(=) operator([)ident(cols)operator(/)ident(colWidth)operator(,) integer(1)operator(])operator(.)ident(max)operator(()operator(\)) - keyword(def) ident(numWords) operator(=) ident(list)operator(.)ident(size)operator(()operator(\)) - type(int) ident(rows) operator(=) operator(()ident(numWords) operator(+) ident(columns) operator(-) integer(1)operator(\)) operator(/) ident(columns) - keyword(for) operator(()ident(row) keyword(in) integer(0)operator(..<)ident(rows)operator(\)) operator({) - keyword(for) operator(()ident(col) keyword(in) integer(0)operator(..<)ident(columns)operator(\)) operator({) - keyword(def) ident(target) operator(=) ident(row) operator(+) ident(col) operator(*) ident(rows) - keyword(if) operator(()ident(target) operator(<) ident(numWords)operator(\)) - ident(sb) operator(<)operator(<) ident(list)operator([)ident(target)operator(])operator(.)ident(padRight)operator(()ident(colWidth)operator(\)) - operator(}) - ident(sb) operator(<)operator(<) string<delimiter(')content(\\n)delimiter(')> - operator(}) - keyword(return) ident(sb)operator(.)ident(toString)operator(()operator(\)) - operator(}) -operator(}) - -comment(// get nr of chars that fit in window or console, see PLEAC 15.4) -comment(// hard-coded here but several packages are available, e.g. in JLine) -comment(// use a concrete implementation of Terminal.getTerminalWidth(\)) -keyword(def) method(getWinCharWidth)operator(()operator(\)) operator({) integer(80) operator(}) - -comment(// main script) -ident(actual) operator(=) keyword(new) ident(WordFormatter)operator(()key(cols)operator(:)ident(getWinCharWidth)operator(()operator(\))operator(\))operator(.)ident(process)operator(()ident(words)operator(.)ident(sort)operator(()operator(\))operator(\)) -keyword(assert) ident(actual) operator(==) ident(expected) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_4.19) -comment(//----------------------------------------------------------------------------------) -comment(// recursive version is simplest but can be inefficient) -keyword(def) method(fact)operator(()ident(n)operator(\)) operator({) operator(()ident(n) operator(==) integer(1)operator(\)) operator(?) integer(1) operator(:) ident(n) operator(*) ident(fact)operator(()ident(n)operator(-)integer(1)operator(\))operator(}) -keyword(assert) ident(fact)operator(()integer(10)operator(\)) operator(==) integer(3628800) -comment(// unwrapped version: note use of BigInteger) -keyword(def) method(factorial)operator(()ident(n)operator(\)) operator({) - keyword(def) ident(result) operator(=) integer(1G) comment(// 1 as BigInteger) - keyword(while) operator(()ident(n) operator(>) integer(0)operator(\)) operator({) - ident(result) operator(*=) ident(n) - ident(n) operator(-=) integer(1) - operator(}) - keyword(return) ident(result) -operator(}) -ident(expected) operator(=) integer(93326215443944152681699238856266700490715968264381621468592963895217599993229915608941463976156518286253697920827223758251185210916864000000000000000000000000) -keyword(assert) ident(expected) operator(==) ident(factorial)operator(()integer(100)operator(\)) -comment(// println factorial(10000\)) -comment(// => 284625... (greater than 35,000 digits\)) - -comment(// simple version but less efficient) -keyword(def) method(simplePermute)operator(()ident(items)operator(,) ident(perms)operator(\)) operator({) - keyword(if) operator(()ident(items)operator(.)ident(size)operator(()operator(\)) operator(==) integer(0)operator(\)) - ident(println) ident(perms)operator(.)ident(join)operator(()string<delimiter(')content( )delimiter(')>operator(\)) - keyword(else) - keyword(for) operator(()ident(i) keyword(in) ident(items)operator(\)) operator({) - ident(newitems) operator(=) ident(items)operator(.)ident(clone)operator(()operator(\)) - ident(newperms) operator(=) ident(perms)operator(.)ident(clone)operator(()operator(\)) - ident(newperms)operator(.)ident(add)operator(()ident(i)operator(\)) - ident(newitems)operator(.)ident(remove)operator(()ident(i)operator(\)) - ident(simplePermute)operator(()ident(newitems)operator(,) ident(newperms)operator(\)) - operator(}) -operator(}) -ident(simplePermute)operator(()operator([)string<delimiter(')content(dog)delimiter(')>operator(,) string<delimiter(')content(bites)delimiter(')>operator(,) string<delimiter(')content(man)delimiter(')>operator(])operator(,) type([])operator(\)) -comment(// =>) -comment(//dog bites man) -comment(//dog man bites) -comment(//bites dog man) -comment(//bites man dog) -comment(//man dog bites) -comment(//man bites dog) - -comment(// optimised version below) -ident(expected) operator(=) string<delimiter(''')content( -man bites dog -man dog bites -bites man dog -bites dog man -dog man bites -dog bites man -)delimiter(''')> - -comment(// n2pat(n, len\): produce the N-th pattern of length len) -keyword(def) method(n2pat)operator(()ident(n)operator(,) ident(length)operator(\)) operator({) - keyword(def) ident(pat) operator(=) type([]) - type(int) ident(i) operator(=) integer(1) - keyword(while) operator(()ident(i) operator(<=) ident(length)operator(\)) operator({) - ident(pat) operator(<)operator(<) operator(()ident(n) operator(%) ident(i)operator(\)) - ident(n) operator(=) ident(n)operator(.)ident(intdiv)operator(()ident(i)operator(\)) - ident(i) operator(+=) integer(1) - operator(}) - ident(pat) -operator(}) - -comment(// pat2perm(pat\): turn pattern returned by n2pat(\) into) -comment(// permutation of integers.) -keyword(def) method(pat2perm)operator(()ident(pat)operator(\)) operator({) - keyword(def) ident(source) operator(=) operator(()integer(0) operator(..<) ident(pat)operator(.)ident(size)operator(()operator(\))operator(\))operator(.)ident(collect)operator({) local_variable(it)comment(/*.toString(\)*/) operator(}) - keyword(def) ident(perm) operator(=) type([]) - keyword(while) operator(()ident(pat)operator(.)ident(size)operator(()operator(\)) operator(>) integer(0)operator(\)) operator({) - keyword(def) ident(next) operator(=) ident(pat)operator(.)ident(remove)operator(()ident(pat)operator(.)ident(size)operator(()operator(\))operator(-)integer(1)operator(\)) - ident(perm) operator(<)operator(<) ident(source)operator([)ident(next)operator(]) - ident(source)operator(.)ident(remove)operator(()ident(next)operator(\)) - operator(}) - ident(perm) -operator(}) - -keyword(def) method(n2perm)operator(()ident(n)operator(,) ident(len)operator(\)) operator({) - ident(pat2perm)operator(()ident(n2pat)operator(()operator(()type(int)operator(\))ident(n)operator(,)ident(len)operator(\))operator(\)) -operator(}) - -ident(data) operator(=) operator([)string<delimiter(')content(man)delimiter(')>operator(,) string<delimiter(')content(bites)delimiter(')>operator(,) string<delimiter(')content(dog)delimiter(')>operator(]) -ident(sb) operator(=) keyword(new) pre_type(StringBuffer)operator(()operator(\)) -ident(numPermutations) operator(=) ident(fact)operator(()ident(data)operator(.)ident(size)operator(()operator(\))operator(\)) -keyword(for) operator(()ident(j) keyword(in) integer(0)operator(..<)ident(numPermutations)operator(\)) operator({) - keyword(def) ident(permutation) operator(=) ident(n2perm)operator(()ident(j)operator(,) ident(data)operator(.)ident(size)operator(()operator(\))operator(\))operator(.)ident(collect) operator({) ident(k) operator(->) ident(data)operator([)ident(k)operator(]) operator(}) - ident(sb) operator(<)operator(<) ident(permutation)operator(.)ident(join)operator(()string<delimiter(')content( )delimiter(')>operator(\)) operator(+) string<delimiter(')content(\\n)delimiter(')> -operator(}) -keyword(assert) string<delimiter(')content(\\n)delimiter(')> operator(+) ident(sb)operator(.)ident(toString)operator(()operator(\)) operator(==) ident(expected) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_5.0) -comment(//----------------------------------------------------------------------------------) -comment(// quotes are optional around the key) -ident(age) operator(=) operator([) key(Nat)operator(:)integer(24)operator(,) key(Jules)operator(:)integer(25)operator(,) key(Josh)operator(:)integer(17) operator(]) - -keyword(assert) ident(age)operator([)string<delimiter(')content(Nat)delimiter(')>operator(]) operator(==) integer(24) -comment(// alternate syntax) -keyword(assert) ident(age)operator(.)string<delimiter(")content(Jules)delimiter(")> operator(==) integer(25) - -ident(foodColor) operator(=) operator([) - key(Apple)operator(:) string<delimiter(')content(red)delimiter(')>operator(,) - key(Banana)operator(:) string<delimiter(')content(yellow)delimiter(')>operator(,) - key(Lemon)operator(:) string<delimiter(')content(yellow)delimiter(')>operator(,) - key(Carrot)operator(:) string<delimiter(')content(orange)delimiter(')> -operator(]) -keyword(assert) ident(foodColor)operator(.)ident(size)operator(()operator(\)) operator(==) integer(4) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_5.1) -comment(//----------------------------------------------------------------------------------) -ident(foodColor)operator([)string<delimiter(')content(Lemon)delimiter(')>operator(]) operator(=) string<delimiter(')content(green)delimiter(')> -keyword(assert) ident(foodColor)operator(.)ident(size)operator(()operator(\)) operator(==) integer(4) -keyword(assert) ident(foodColor)operator([)string<delimiter(')content(Lemon)delimiter(')>operator(]) operator(==) string<delimiter(')content(green)delimiter(')> -ident(foodColor)operator([)string<delimiter(')content(Raspberry)delimiter(')>operator(]) operator(=) string<delimiter(')content(pink)delimiter(')> -keyword(assert) ident(foodColor)operator(.)ident(size)operator(()operator(\)) operator(==) integer(5) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_5.2) -comment(//----------------------------------------------------------------------------------) -keyword(assert) operator([)string<delimiter(')content(Banana)delimiter(')>operator(,) string<delimiter(')content(Martini)delimiter(')>operator(])operator(.)ident(collect)operator({) ident(foodColor)operator(.)ident(containsKey)operator(()local_variable(it)operator(\))operator(?)string<delimiter(')content(food)delimiter(')>operator(:)string<delimiter(')content(drink)delimiter(')> operator(}) operator(==) operator([) string<delimiter(')content(food)delimiter(')>operator(,) string<delimiter(')content(drink)delimiter(')> operator(]) - -ident(age) operator(=) operator([)key(Toddler)operator(:)integer(3)operator(,) key(Unborn)operator(:)integer(0)operator(,) key(Phantasm)operator(:)pre_constant(null)operator(]) -operator([)string<delimiter(')content(Toddler)delimiter(')>operator(,) string<delimiter(')content(Unborn)delimiter(')>operator(,) string<delimiter(')content(Phantasm)delimiter(')>operator(,) string<delimiter(')content(Relic)delimiter(')>operator(])operator(.)ident(each)operator({) ident(key) operator(->) - ident(print) string<delimiter(")inline<inline_delimiter($)ident(key)>content(: )delimiter(")> - keyword(if) operator(()ident(age)operator(.)ident(containsKey)operator(()ident(key)operator(\))operator(\)) ident(print) string<delimiter(')content(has key )delimiter(')> - keyword(if) operator(()ident(age)operator(.)ident(containsKey)operator(()ident(key)operator(\)) operator(&&) ident(age)operator([)ident(key)operator(])operator(!=)pre_constant(null)operator(\)) ident(print) string<delimiter(')content(non-null )delimiter(')> - keyword(if) operator(()ident(age)operator(.)ident(containsKey)operator(()ident(key)operator(\)) operator(&&) ident(age)operator([)ident(key)operator(])operator(\)) ident(print) string<delimiter(')content(true )delimiter(')> - ident(println) string<delimiter(')delimiter(')> -operator(}) -comment(// =>) -comment(// Toddler: has key non-null true) -comment(// Unborn: has key non-null) -comment(// Phantasm: has key) -comment(// Relic:) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_5.3) -comment(//----------------------------------------------------------------------------------) -keyword(assert) ident(foodColor)operator(.)ident(size)operator(()operator(\)) operator(==) integer(5) -ident(foodColor)operator(.)ident(remove)operator(()string<delimiter(')content(Banana)delimiter(')>operator(\)) -keyword(assert) ident(foodColor)operator(.)ident(size)operator(()operator(\)) operator(==) integer(4) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_5.4) -comment(//----------------------------------------------------------------------------------) -ident(hash) operator(=) operator([)operator(:)operator(]) -ident(hash)operator(.)ident(each) operator({) ident(key)operator(,) ident(value) operator(->) - comment(// do something with key and value) -operator(}) - -ident(hash)operator(.)ident(each) operator({) ident(entry) operator(->) - comment(// do something with entry) -operator(}) - -ident(hash)operator(.)ident(keySet)operator(()operator(\))operator(.)ident(each) operator({) ident(key) operator(->) - comment(// do something with key) -operator(}) - -ident(sb) operator(=) keyword(new) pre_type(StringBuffer)operator(()operator(\)) -ident(foodColor)operator(.)ident(each) operator({) ident(food)operator(,) ident(color) operator(->) - ident(sb) operator(<)operator(<) string<delimiter(")inline<inline_delimiter($)ident(food)>content( is )inline<inline_delimiter($)ident(color)>char(\\n)delimiter(")> -operator(}) -keyword(assert) string<delimiter(')content(\\n)delimiter(')> operator(+) ident(sb)operator(.)ident(toString)operator(()operator(\)) operator(==) string<delimiter(''')content( -Lemon is green -Carrot is orange -Apple is red -Raspberry is pink -)delimiter(''')> - -ident(foodColor)operator(.)ident(each) operator({) ident(entry) operator(->) - keyword(assert) ident(entry)operator(.)ident(key)operator(.)ident(size)operator(()operator(\)) operator(>) integer(4) operator(&&) ident(entry)operator(.)ident(value)operator(.)ident(size)operator(()operator(\)) operator(>) integer(2) -operator(}) - -ident(foodColorsSortedByFood) operator(=) type([]) -ident(foodColor)operator(.)ident(keySet)operator(()operator(\))operator(.)ident(sort)operator(()operator(\))operator(.)ident(each) operator({) ident(k) operator(->) ident(foodColorsSortedByFood) operator(<)operator(<) ident(foodColor)operator([)ident(k)operator(]) operator(}) -keyword(assert) ident(foodColorsSortedByFood) operator(==) operator([)string<delimiter(")content(red)delimiter(")>operator(,) string<delimiter(")content(orange)delimiter(")>operator(,) string<delimiter(")content(green)delimiter(")>operator(,) string<delimiter(")content(pink)delimiter(")>operator(]) - -ident(fakedInput) operator(=) string<delimiter(''')content( -From: someone@somewhere.com -From: someone@spam.com -From: someone@somewhere.com -)delimiter(''')> - -ident(from) operator(=) operator([)operator(:)operator(]) -ident(fakedInput)operator(.)ident(split)operator(()string<delimiter(')content(\\n)delimiter(')>operator(\))operator(.)ident(each)operator({) - ident(matcher) operator(=) operator(()local_variable(it) operator(=~) regexp<delimiter(/)content(^From:)char(\\s)content(+([^)char(\\s)content(>]*\))delimiter(/)>operator(\)) - keyword(if) operator(()ident(matcher)operator(.)ident(matches)operator(()operator(\))operator(\)) operator({) - ident(sender) operator(=) ident(matcher)operator([)integer(0)operator(])operator([)integer(1)operator(]) - keyword(if) operator(()ident(from)operator(.)ident(containsKey)operator(()ident(sender)operator(\))operator(\)) ident(from)operator([)ident(sender)operator(]) operator(+=) integer(1) - keyword(else) ident(from)operator([)ident(sender)operator(]) operator(=) integer(1) - operator(}) -operator(}) - -comment(// More useful to sort by number of received mail by person) -ident(from)operator(.)ident(entrySet)operator(()operator(\))operator(.)ident(sort) operator({) ident(a)operator(,)ident(b) operator(->) ident(b)operator(.)ident(value)operator(<=>)ident(a)operator(.)ident(value)operator(})operator(.)ident(each) operator({) ident(e)operator(->) - ident(println) string<delimiter(")inline<inline_delimiter(${)ident(e)operator(.)ident(key)inline_delimiter(})>content(: )inline<inline_delimiter(${)ident(e)operator(.)ident(value)inline_delimiter(})>delimiter(")> -operator(}) -comment(// =>) -comment(// someone@somewhere.com: 2) -comment(// someone@spam.com: 1) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_5.5) -comment(//----------------------------------------------------------------------------------) -ident(hash) operator(=) operator([)key(a)operator(:)integer(1)operator(,) key(b)operator(:)integer(2)operator(,) key(c)operator(:)integer(3)operator(]) -comment(// Map#toString already produce a pretty decent output:) -ident(println) ident(hash) -comment(// => ["b":2, "a":1, "c":3]) - -comment(// Or do it by longhand for customised formatting) -ident(hash)operator(.)ident(each) operator({) ident(k)operator(,)ident(v) operator(->) ident(println) string<delimiter(")inline<inline_delimiter($)ident(k)>content( => )inline<inline_delimiter($)ident(v)>delimiter(")> operator(}) -comment(// =>) -comment(// b => 2) -comment(// a => 1) -comment(// c => 3) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_5.6) -comment(//----------------------------------------------------------------------------------) -comment(// java.util.LinkedHashMap "maintains a doubly-linked list running through all of its entries.) -comment(// This linked list defines the iteration ordering, which is normally the order in which keys) -comment(// were inserted into the map (insertion-order\)".) -ident(foodColor) operator(=) keyword(new) pre_type(LinkedHashMap)operator(()operator(\)) -ident(foodColor)operator([)string<delimiter(')content(Banana)delimiter(')>operator(]) operator(=) string<delimiter(')content(Yellow)delimiter(')> -ident(foodColor)operator([)string<delimiter(')content(Apple)delimiter(')>operator(]) operator(=) string<delimiter(')content(Green)delimiter(')> -ident(foodColor)operator([)string<delimiter(')content(Lemon)delimiter(')>operator(]) operator(=) string<delimiter(')content(Yellow)delimiter(')> - -ident(foodColor)operator(.)ident(keySet)operator(()operator(\))operator(.)ident(each)operator({) ident(key) operator(->) ident(println) ident(key) operator(}) -comment(// =>) -comment(// Banana) -comment(// Apple) -comment(// Lemon) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_5.7) -comment(//----------------------------------------------------------------------------------) -ident(foodsOfColor) operator(=) operator([) key(Yellow)operator(:)operator([)string<delimiter(')content(Banana)delimiter(')>operator(,) string<delimiter(')content(Lemon)delimiter(')>operator(])operator(,) key(Green)operator(:)operator([)string<delimiter(')content(Apple)delimiter(')>operator(]) operator(]) -ident(foodsOfColor)operator([)string<delimiter(')content(Green)delimiter(')>operator(]) operator(+=) string<delimiter(')content(Melon)delimiter(')> -keyword(assert) ident(foodsOfColor) operator(==) operator([)string<delimiter(")content(Green)delimiter(")>operator(:)operator([)string<delimiter(")content(Apple)delimiter(")>operator(,) string<delimiter(")content(Melon)delimiter(")>operator(])operator(,) string<delimiter(")content(Yellow)delimiter(")>operator(:)operator([)string<delimiter(")content(Banana)delimiter(")>operator(,) string<delimiter(")content(Lemon)delimiter(")>operator(])operator(]) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_5.8) -comment(//----------------------------------------------------------------------------------) -ident(surname) operator(=) operator([)key(Mickey)operator(:) string<delimiter(')content(Mantle)delimiter(')>operator(,) key(Babe)operator(:) string<delimiter(')content(Ruth)delimiter(')>operator(]) -keyword(assert) ident(surname)operator(.)ident(findAll)operator({) local_variable(it)operator(.)ident(value) operator(==) string<delimiter(')content(Mantle)delimiter(')> operator(})operator(.)ident(collect)operator({) local_variable(it)operator(.)ident(key) operator(}) operator(==) operator([)string<delimiter(")content(Mickey)delimiter(")>operator(]) - -ident(firstname) operator(=) operator([)operator(:)operator(]) -ident(surname)operator(.)ident(each)operator({) ident(entry) operator(->) ident(firstname)operator([)ident(entry)operator(.)ident(value)operator(]) operator(=) ident(entry)operator(.)ident(key) operator(}) -keyword(assert) ident(firstname) operator(==) operator([)string<delimiter(")content(Ruth)delimiter(")>operator(:)string<delimiter(")content(Babe)delimiter(")>operator(,) string<delimiter(")content(Mantle)delimiter(")>operator(:)string<delimiter(")content(Mickey)delimiter(")>operator(]) - -comment(// foodfindScript:) -doctype(#!/usr/bin/groovy) -comment(// usage: foodfind food_or_color") -ident(color) operator(=) operator([)key(Apple)operator(:)string<delimiter(')content(red)delimiter(')>operator(,) key(Banana)operator(:)string<delimiter(')content(yellow)delimiter(')>operator(,) key(Lemon)operator(:)string<delimiter(')content(yellow)delimiter(')>operator(,) key(Carrot)operator(:)string<delimiter(')content(orange)delimiter(')>operator(]) -ident(given) operator(=) ident(args)operator([)integer(0)operator(]) -keyword(if) operator(()ident(color)operator(.)ident(containsKey)operator(()ident(given)operator(\))operator(\)) - ident(println) string<delimiter(")inline<inline_delimiter($)ident(given)>content( is a food with color )inline<inline_delimiter(${)ident(color)operator([)ident(given)operator(])inline_delimiter(})>content(.)delimiter(")> -ident(if) operator(()ident(color)operator(.)ident(containsValue)operator(()ident(given)operator(\))operator(\)) operator({) - comment(// could use commify(\) here - see 4.2) - ident(foods) operator(=) ident(color)operator(.)ident(findAll)operator({)local_variable(it)operator(.)ident(value) operator(==) ident(given)operator(})operator(.)ident(collect)operator({)local_variable(it)operator(.)ident(key)operator(}) - ident(join) operator(=) ident(foods)operator(.)ident(size)operator(()operator(\)) operator(==) integer(1) operator(?) string<delimiter(')content(is a food)delimiter(')> operator(:) string<delimiter(')content(are foods)delimiter(')> - ident(println) string<delimiter(")inline<inline_delimiter(${)ident(foods)operator(.)ident(join)operator(()string<delimiter(')content(, )delimiter(')>operator(\))inline_delimiter(})>content( )inline<inline_delimiter($)ident(join)>content( with color )inline<inline_delimiter(${)ident(given)inline_delimiter(})>content(.)delimiter(")> -operator(}) -comment(// foodfind red) -comment(// => Apple is a food with color red.) -comment(// foodfind yellow) -comment(// => Lemon, Banana are foods with color yellow.) -comment(// foodfind Carrot) -comment(// => Carrot is a food with color orange.) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_5.9) -comment(//----------------------------------------------------------------------------------) -ident(foodColor) operator(=) operator([)key(Apple)operator(:)string<delimiter(')content(red)delimiter(')>operator(,) key(Carrot)operator(:)string<delimiter(')content(orange)delimiter(')>operator(,) key(Banana)operator(:)string<delimiter(')content(yellow)delimiter(')>operator(,) key(Cherry)operator(:)string<delimiter(')content(black)delimiter(')>operator(]) - -comment(// Sorted by keys) -keyword(assert) ident(foodColor)operator(.)ident(keySet)operator(()operator(\))operator(.)ident(sort)operator(()operator(\)) operator(==) operator([)string<delimiter(")content(Apple)delimiter(")>operator(,) string<delimiter(")content(Banana)delimiter(")>operator(,) string<delimiter(")content(Carrot)delimiter(")>operator(,) string<delimiter(")content(Cherry)delimiter(")>operator(]) -comment(// you could now iterate through the hash with the sorted keys) -keyword(assert) ident(foodColor)operator(.)ident(values)operator(()operator(\))operator(.)ident(sort)operator(()operator(\)) operator(==) operator([)string<delimiter(")content(black)delimiter(")>operator(,) string<delimiter(")content(orange)delimiter(")>operator(,) string<delimiter(")content(red)delimiter(")>operator(,) string<delimiter(")content(yellow)delimiter(")>operator(]) -keyword(assert) ident(foodColor)operator(.)ident(values)operator(()operator(\))operator(.)ident(sort)operator({)local_variable(it)operator(.)ident(size)operator(()operator(\))operator(}) operator(==) operator([)string<delimiter(")content(red)delimiter(")>operator(,) string<delimiter(")content(black)delimiter(")>operator(,) string<delimiter(")content(orange)delimiter(")>operator(,) string<delimiter(")content(yellow)delimiter(")>operator(]) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_5.10) -comment(//----------------------------------------------------------------------------------) -comment(//merged = a.clone.update(b\) # because Hash#update changes object in place) - -ident(drinkColor) operator(=) operator([)key(Galliano)operator(:)string<delimiter(')content(yellow)delimiter(')>operator(,) string<delimiter(')content(Mai Tai)delimiter(')>operator(:)string<delimiter(')content(blue)delimiter(')>operator(]) -ident(ingestedColor) operator(=) operator([)operator(:)operator(]) -ident(ingestedColor)operator(.)ident(putAll)operator(()ident(drinkColor)operator(\)) -comment(// overrides any common keys) -ident(ingestedColor)operator(.)ident(putAll)operator(()ident(foodColor)operator(\)) - -ident(totalColors) operator(=) ident(ingestedColor)operator(.)ident(values)operator(()operator(\))operator(.)ident(sort)operator(()operator(\))operator(.)ident(unique)operator(()operator(\)) -keyword(assert) ident(totalColors) operator(==) operator([)string<delimiter(")content(black)delimiter(")>operator(,) string<delimiter(")content(blue)delimiter(")>operator(,) string<delimiter(")content(orange)delimiter(")>operator(,) string<delimiter(")content(red)delimiter(")>operator(,) string<delimiter(")content(yellow)delimiter(")>operator(]) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_5.11) -comment(//----------------------------------------------------------------------------------) -ident(foodColor)operator([)string<delimiter(')content(Lemon)delimiter(')>operator(])operator(=)string<delimiter(')content(yellow)delimiter(')> -ident(citrusColor) operator(=) operator([)key(Lemon)operator(:)string<delimiter(')content(yellow)delimiter(')>operator(,) key(Orange)operator(:)string<delimiter(')content(orange)delimiter(')>operator(,) key(Lime)operator(:)string<delimiter(')content(green)delimiter(')>operator(]) -ident(println) ident(foodColor) -ident(println) ident(citrusColor) -ident(common) operator(=) ident(foodColor)operator(.)ident(keySet)operator(()operator(\))operator(.)ident(intersect)operator(()ident(citrusColor)operator(.)ident(keySet)operator(()operator(\))operator(\)) -keyword(assert) ident(common) operator(==) operator([)string<delimiter(")content(Lemon)delimiter(")>operator(]) - -ident(foodButNotCitrus) operator(=) ident(foodColor)operator(.)ident(keySet)operator(()operator(\))operator(.)ident(toList)operator(()operator(\)) operator(-) ident(citrusColor)operator(.)ident(keySet)operator(()operator(\))operator(.)ident(toList)operator(()operator(\)) -keyword(assert) ident(foodButNotCitrus) operator(==) operator([)string<delimiter(")content(Carrot)delimiter(")>operator(,) string<delimiter(")content(Apple)delimiter(")>operator(,) string<delimiter(")content(Banana)delimiter(")>operator(,) string<delimiter(")content(Cherry)delimiter(")>operator(]) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_5.12) -comment(//----------------------------------------------------------------------------------) -comment(// no problem here, Groovy handles any kind of object for key-ing) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_5.13) -comment(//----------------------------------------------------------------------------------) -comment(// Groovy uses Java implementations for storing hashes and these) -comment(// support setting an initial capacity and load factor (which determines) -comment(// at what point the hash will be resized if needed\)) -ident(hash) operator(=) operator([)operator(:)operator(]) comment(// Groovy shorthand gets defaults) -ident(hash) operator(=) keyword(new) pre_type(HashMap)operator(()operator(\)) comment(// default capacity and load factor) -ident(println) ident(hash)operator(.)ident(capacity)operator(()operator(\)) -comment(// => 16) -operator(()string<delimiter(')content(A)delimiter(')>operator(..)string<delimiter(')content(Z)delimiter(')>operator(\))operator(.)ident(each)operator({) ident(hash)operator([)local_variable(it)operator(]) operator(=) local_variable(it) operator(}) -ident(println) ident(hash)operator(.)ident(capacity)operator(()operator(\)) -comment(// => 64) -ident(hash) operator(=) keyword(new) pre_type(HashMap)operator(()integer(100)operator(\)) comment(// initial capacity of 100 and default load factor) -ident(hash) operator(=) keyword(new) pre_type(HashMap)operator(()integer(100)operator(,) float(0.8f)operator(\)) comment(// initial capacity of 100 and 0.8 load factor) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_5.14) -comment(//----------------------------------------------------------------------------------) -ident(count) operator(=) operator([)operator(:)operator(]) -ident(letters) operator(=) type([]) -ident(foodColor)operator(.)ident(values)operator(()operator(\))operator(.)ident(each)operator({) ident(letters)operator(.)ident(addAll)operator(()operator(()local_variable(it) keyword(as) pre_type(String)type([])operator(\))operator(.)ident(toList)operator(()operator(\))operator(\)) operator(}) -ident(letters)operator(.)ident(each)operator({) keyword(if) operator(()ident(count)operator(.)ident(containsKey)operator(()local_variable(it)operator(\))operator(\)) ident(count)operator([)local_variable(it)operator(]) operator(+=) integer(1) keyword(else) ident(count)operator([)local_variable(it)operator(]) operator(=) integer(1) operator(}) -keyword(assert) ident(count) operator(==) operator([)string<delimiter(")content(o)delimiter(")>operator(:)integer(3)operator(,) string<delimiter(")content(d)delimiter(")>operator(:)integer(1)operator(,) string<delimiter(")content(k)delimiter(")>operator(:)integer(1)operator(,) string<delimiter(")content(w)delimiter(")>operator(:)integer(2)operator(,) string<delimiter(")content(r)delimiter(")>operator(:)integer(2)operator(,) string<delimiter(")content(c)delimiter(")>operator(:)integer(1)operator(,) string<delimiter(")content(l)delimiter(")>operator(:)integer(5)operator(,) string<delimiter(")content(g)delimiter(")>operator(:)integer(1)operator(,) string<delimiter(")content(b)delimiter(")>operator(:)integer(1)operator(,) string<delimiter(")content(a)delimiter(")>operator(:)integer(2)operator(,) string<delimiter(")content(y)delimiter(")>operator(:)integer(2)operator(,) string<delimiter(")content(n)delimiter(")>operator(:)integer(1)operator(,) string<delimiter(")content(e)delimiter(")>operator(:)integer(4)operator(]) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_5.15) -comment(//----------------------------------------------------------------------------------) -ident(father) operator(=) operator([) - key(Cain)operator(:)string<delimiter(')content(Adam)delimiter(')>operator(,) - key(Abel)operator(:)string<delimiter(')content(Adam)delimiter(')>operator(,) - key(Seth)operator(:)string<delimiter(')content(Adam)delimiter(')>operator(,) - key(Enoch)operator(:)string<delimiter(')content(Cain)delimiter(')>operator(,) - key(Irad)operator(:)string<delimiter(')content(Enoch)delimiter(')>operator(,) - key(Mehujael)operator(:)string<delimiter(')content(Irad)delimiter(')>operator(,) - key(Methusael)operator(:)string<delimiter(')content(Mehujael)delimiter(')>operator(,) - key(Lamech)operator(:)string<delimiter(')content(Methusael)delimiter(')>operator(,) - key(Jabal)operator(:)string<delimiter(')content(Lamech)delimiter(')>operator(,) - key(Jubal)operator(:)string<delimiter(')content(Lamech)delimiter(')>operator(,) - key(Tubalcain)operator(:)string<delimiter(')content(Lamech)delimiter(')>operator(,) - key(Enos)operator(:)string<delimiter(')content(Seth)delimiter(')> -operator(]) - -keyword(def) method(upline)operator(()ident(person)operator(\)) operator({) - keyword(while) operator(()ident(father)operator(.)ident(containsKey)operator(()ident(person)operator(\))operator(\)) operator({) - ident(print) ident(person) operator(+) string<delimiter(')content( )delimiter(')> - ident(person) operator(=) ident(father)operator([)ident(person)operator(]) - operator(}) - ident(println) ident(person) -operator(}) - -ident(upline)operator(()string<delimiter(')content(Irad)delimiter(')>operator(\)) -comment(// => Irad Enoch Cain Adam) - -ident(children) operator(=) operator([)operator(:)operator(]) -ident(father)operator(.)ident(each) operator({) ident(k)operator(,)ident(v) operator(->) - keyword(if) operator(()operator(!)ident(children)operator(.)ident(containsKey)operator(()ident(v)operator(\))operator(\)) ident(children)operator([)ident(v)operator(]) operator(=) type([]) - ident(children)operator([)ident(v)operator(]) operator(+=) ident(k) -operator(}) -keyword(def) method(downline)operator(()ident(person)operator(\)) operator({) - ident(println) string<delimiter(")inline<inline_delimiter($)ident(person)>content( begat )inline<inline_delimiter(${)ident(children)operator(.)ident(containsKey)operator(()ident(person)operator(\))operator(?)ident(children)operator([)ident(person)operator(])operator(.)ident(join)operator(()string<delimiter(')content(, )delimiter(')>operator(\))operator(:)string<delimiter(')content(Nobody)delimiter(')>inline_delimiter(})>content(.)char(\\n)delimiter(")> -operator(}) -ident(downline)operator(()string<delimiter(')content(Tubalcain)delimiter(')>operator(\)) -comment(// => Tubalcain begat Nobody.) -ident(downline)operator(()string<delimiter(')content(Adam)delimiter(')>operator(\)) -comment(// => Adam begat Abel, Seth, Cain.) - -comment(// This one doesn't recurse through subdirectories (as a simplification\)) -comment(// scriptToFindIncludeFilesWhichContainNoIncludesScript:) -ident(dir) operator(=) string<delimiter(')content(<path_to_usr/include>)delimiter(')> -ident(includes) operator(=) operator([)operator(:)operator(]) -keyword(new) pre_type(File)operator(()ident(dir)operator(\))operator(.)ident(eachFile)operator({) ident(file) operator(->) - keyword(if) operator(()ident(file)operator(.)ident(directory)operator(\)) keyword(return) - ident(file)operator(.)ident(eachLine)operator({) ident(line) operator(->) - ident(matcher) operator(=) operator(()ident(line) operator(=~) string<delimiter(')content(^)char(\\\\)content(s*#)char(\\\\)content(s*include)char(\\\\)content(s*<([^>]+\)>)delimiter(')>operator(\)) - keyword(if) operator(()ident(matcher)operator(.)ident(matches)operator(()operator(\))operator(\)) operator({) - keyword(if) operator(()operator(!)ident(includes)operator(.)ident(containsKey)operator(()ident(file)operator(.)ident(name)operator(\))operator(\)) ident(includes)operator([)ident(file)operator(.)ident(name)operator(]) operator(=) type([]) - ident(includes)operator([)ident(file)operator(.)ident(name)operator(]) operator(+=) ident(matcher)operator([)integer(0)operator(])operator([)integer(1)operator(]) - operator(}) - operator(}) -operator(}) -comment(// find referenced files which have no includes; assumes all files) -comment(// were processed and none are missing) -ident(println) ident(includes)operator(.)ident(values)operator(()operator(\))operator(.)ident(sort)operator(()operator(\))operator(.)ident(flatten)operator(()operator(\))operator(.)ident(unique)operator(()operator(\)) operator(-) ident(includes)operator(.)ident(keySet)operator(()operator(\)) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_5.16) -comment(//----------------------------------------------------------------------------------) -comment(// dutree - print sorted indented rendition of du output) -comment(// obtaining this input is not shown, it is similar to other examples) -comment(// on some unix systems it will be: duProcessFakedInput = "du options".process(\).text) -ident(duProcessFakedInput) operator(=) string<delimiter(''')content( -11732 groovysoap/lib -68 groovysoap/src/main/groovy/net/soap -71 groovysoap/src/main/groovy/net -74 groovysoap/src/main/groovy -77 groovysoap/src/main -9 groovysoap/src/examples -8 groovysoap/src/examples/groovy -102 groovysoap/src/test -202 groovysoap/src -11966 groovysoap -)delimiter(''')> - -comment(// The DuNode class collects all information about a directory,) -type(class) class(DuNode) operator({) - keyword(def) ident(name) - keyword(def) ident(size) - keyword(def) ident(kids) operator(=) type([]) - - comment(// support for sorting nodes with side) - keyword(def) method(compareTo)operator(()ident(node2)operator(\)) operator({) ident(size) operator(<=>) ident(node2)operator(.)ident(size) operator(}) - - keyword(def) method(getBasename)operator(()operator(\)) operator({) - ident(name)operator(.)ident(replaceAll)operator(()regexp<delimiter(/)content(.*)char(\\/)delimiter(/)>operator(,) string<delimiter(')delimiter(')>operator(\)) - operator(}) - - comment(// returns substring before last "/", otherwise null) - keyword(def) method(getParent)operator(()operator(\)) operator({) - keyword(def) ident(p) operator(=) ident(name)operator(.)ident(replaceAll)operator(()regexp<delimiter(/)char(\\/)content([^)char(\\/)content(]+)content($)delimiter(/)>operator(,)string<delimiter(')delimiter(')>operator(\)) - keyword(return) operator(()ident(p) operator(==) ident(name)operator(\)) operator(?) pre_constant(null) operator(:) ident(p) - operator(}) -operator(}) - -comment(// The DuTree does the actual work of) -comment(// getting the input, parsing it, building up a tree) -comment(// and formatting it for output) -type(class) class(DuTree) operator({) - keyword(def) ident(input) - keyword(def) ident(topdir) - keyword(def) ident(nodes) operator(=) operator([)operator(:)operator(]) - keyword(def) ident(dirsizes) operator(=) operator([)operator(:)operator(]) - keyword(def) ident(kids) operator(=) operator([)operator(:)operator(]) - - comment(// get a node by name, create it if it does not exist yet) - keyword(def) method(getOrCreateNode)operator(()ident(name)operator(\)) operator({) - keyword(if) operator(()operator(!)ident(nodes)operator(.)ident(containsKey)operator(()ident(name)operator(\))operator(\)) - ident(nodes)operator([)ident(name)operator(]) operator(=) keyword(new) ident(DuNode)operator(()key(name)operator(:)ident(name)operator(\)) - keyword(return) ident(nodes)operator([)ident(name)operator(]) - operator(}) - - comment(// figure out how much is taken in each directory) - comment(// that isn't stored in the subdirectories. Add a new) - comment(// fake kid called "." containing that much.) - keyword(def) method(getDots)operator(()ident(node)operator(\)) operator({) - keyword(def) ident(cursize) operator(=) ident(node)operator(.)ident(size) - keyword(for) operator(()ident(kid) keyword(in) ident(node)operator(.)ident(kids)operator(\)) operator({) - ident(cursize) operator(-=) ident(kid)operator(.)ident(size) - ident(getDots)operator(()ident(kid)operator(\)) - operator(}) - keyword(if) operator(()ident(node)operator(.)ident(size) operator(!=) ident(cursize)operator(\)) operator({) - keyword(def) ident(newnode) operator(=) ident(getOrCreateNode)operator(()ident(node)operator(.)ident(name) operator(+) string<delimiter(")content(/.)delimiter(")>operator(\)) - ident(newnode)operator(.)ident(size) operator(=) ident(cursize) - ident(node)operator(.)ident(kids) operator(+=) ident(newnode) - operator(}) - operator(}) - - keyword(def) method(processInput)operator(()operator(\)) operator({) - keyword(def) ident(name) operator(=) string<delimiter(')delimiter(')> - ident(input)operator(.)ident(split)operator(()string<delimiter(')content(\\n)delimiter(')>operator(\))operator(.)ident(findAll)operator({)local_variable(it)operator(.)ident(trim)operator(()operator(\))operator(})operator(.)ident(each)operator({) ident(line) operator(->) - keyword(def) ident(tokens) operator(=) ident(line)operator(.)ident(tokenize)operator(()operator(\)) - keyword(def) ident(size) operator(=) ident(tokens)operator([)integer(0)operator(]) - ident(name) operator(=) ident(tokens)operator([)integer(1)operator(]) - keyword(def) ident(node) operator(=) ident(getOrCreateNode)operator(()ident(name)operator(\)) - ident(node)operator(.)ident(size) operator(=) ident(size)operator(.)ident(toInteger)operator(()operator(\)) - ident(nodes)operator([)ident(name)operator(]) operator(=) ident(node) - keyword(def) ident(parent) operator(=) ident(node)operator(.)ident(parent) - keyword(if) operator(()ident(parent)operator(\)) - ident(getOrCreateNode)operator(()ident(parent)operator(\))operator(.)ident(kids) operator(<)operator(<) ident(node) - operator(}) - ident(topdir) operator(=) ident(nodes)operator([)ident(name)operator(]) - operator(}) - - comment(// recursively output everything) - comment(// passing padding and number width as well) - comment(// on recursive calls) - keyword(def) method(output)operator(()ident(node)operator(,) ident(prefix)operator(=)string<delimiter(')delimiter(')>operator(,) ident(width)operator(=)integer(0)operator(\)) operator({) - keyword(def) ident(line) operator(=) ident(node)operator(.)ident(size)operator(.)ident(toString)operator(()operator(\))operator(.)ident(padRight)operator(()ident(width)operator(\)) operator(+) string<delimiter(')content( )delimiter(')> operator(+) ident(node)operator(.)ident(basename) - ident(println) operator(()ident(prefix) operator(+) ident(line)operator(\)) - ident(prefix) operator(+=) ident(line)operator(.)ident(replaceAll)operator(()regexp<delimiter(/)char(\\d)content( )delimiter(/)>operator(,) string<delimiter(')content(| )delimiter(')>operator(\)) - ident(prefix) operator(=) ident(prefix)operator(.)ident(replaceAll)operator(()regexp<delimiter(/)content([^|])delimiter(/)>operator(,) string<delimiter(')content( )delimiter(')>operator(\)) - keyword(if) operator(()ident(node)operator(.)ident(kids)operator(.)ident(size)operator(()operator(\)) operator(>) integer(0)operator(\)) operator({) comment(// not a bachelor node) - ident(kids) operator(=) ident(node)operator(.)ident(kids) - ident(kids)operator(.)ident(sort)operator({) ident(a)operator(,)ident(b) operator(->) ident(b)operator(.)ident(compareTo)operator(()ident(a)operator(\)) operator(}) - ident(width) operator(=) ident(kids)operator([)integer(0)operator(])operator(.)ident(size)operator(.)ident(toString)operator(()operator(\))operator(.)ident(size)operator(()operator(\)) - keyword(for) operator(()ident(kid) keyword(in) ident(kids)operator(\)) ident(output)operator(()ident(kid)operator(,) ident(prefix)operator(,) ident(width)operator(\)) - operator(}) - operator(}) -operator(}) - -ident(tree) operator(=) keyword(new) ident(DuTree)operator(()key(input)operator(:)ident(duProcessFakedInput)operator(\)) -ident(tree)operator(.)ident(processInput)operator(()operator(\)) -ident(tree)operator(.)ident(getDots)operator(()ident(tree)operator(.)ident(topdir)operator(\)) -ident(tree)operator(.)ident(output)operator(()ident(tree)operator(.)ident(topdir)operator(\)) -comment(// =>) -comment(// 11966 groovysoap) -comment(// | 11732 lib) -comment(// | 202 src) -comment(// | | 102 test) -comment(// | | 77 main) -comment(// | | | 74 groovy) -comment(// | | | | 71 net) -comment(// | | | | | 68 soap) -comment(// | | | | | 3 .) -comment(// | | | | 3 .) -comment(// | | | 3 .) -comment(// | | 14 .) -comment(// | | 9 examples) -comment(// | | | 8 groovy) -comment(// | | | 1 .) -comment(// | 32 .) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_6.0) -comment(//----------------------------------------------------------------------------------) -comment(// Groovy has built-in language support for Regular Expressions:) -comment(// * Strings quoted with '/' characters have special escaping) -comment(// rules for backslashes and the like.) -comment(// * ~string (regex pattern operator\)) -comment(// * m =~ /pattern/ (regex find operator\)) -comment(// * m ==~/pattern/ (regex match operator\)) -comment(// * patterns can be used in case expressions in a switch statement) -comment(// * string.replaceAll can take a closure expression as the second argument) -comment(// In addition, Groovy can make use of Java's Pattern, Matcher and Scanner classes) -comment(// directly. (The sugar coating metnioed above sits on top of these anyway\).) -comment(// There are also additional open source Java regex libraries which can be used.) - -ident(meadow1) operator(=) string<delimiter(')content(cow grass butterflies Ovine)delimiter(')> -ident(meadow2) operator(=) string<delimiter(')content(goat sheep flowers dog)delimiter(')> -comment(// pattern strings can benefit from 'slashy' quotes) -ident(partial) operator(=) regexp<delimiter(/)content(sheep)delimiter(/)> -ident(full) operator(=) regexp<delimiter(/)content(.*sheep.*)delimiter(/)> - -comment(// find operator) -keyword(assert) operator(!)operator(()ident(meadow1) operator(=~) ident(partial)operator(\)) -keyword(assert) ident(meadow2) operator(=~) ident(partial) -ident(finder) operator(=) operator(()ident(meadow2) operator(=~) ident(partial)operator(\)) -comment(// underneath Groovy sugar coating is Java implementation) -keyword(assert) ident(finder) keyword(instanceof) ident(java)operator(.)ident(util)operator(.)ident(regex)operator(.)ident(Matcher) - -comment(// match operator) -keyword(assert) operator(!)operator(()ident(meadow1) operator(==~) ident(full)operator(\)) -keyword(assert) ident(meadow2) operator(==~) ident(full) -ident(matcher) operator(=) operator(()ident(meadow2) operator(==~) ident(full)operator(\)) -comment(// under the covers is just a boolean) -keyword(assert) ident(matcher) keyword(instanceof) pre_type(Boolean) - -keyword(assert) ident(meadow1) operator(=~) regexp<delimiter(/)content((?i\))char(\\b)content(ovines?)char(\\b)delimiter(/)> comment(// (?i\) == case flag) - -ident(string) operator(=) string<delimiter(')content(good food)delimiter(')> -ident(println) ident(string)operator(.)ident(replaceFirst)operator(()regexp<delimiter(/)content(o*)delimiter(/)>operator(,) string<delimiter(')content(e)delimiter(')>operator(\)) -comment(// => egood food) -ident(println) ident(string)operator(.)ident(replaceAll)operator(()regexp<delimiter(/)content(o*)delimiter(/)>operator(,) string<delimiter(')content(e)delimiter(')>operator(\)) -comment(// => egeede efeede (global\)) -comment(// beware this one is just textual replacement) -ident(println) ident(string)operator(.)ident(replace)operator(()regexp<delimiter(/)content(o*)delimiter(/)>operator(,) string<delimiter(')content(e)delimiter(')>operator(\)) -comment(// => good food) -ident(println) string<delimiter(')content(o*o*)delimiter(')>operator(.)ident(replace)operator(()regexp<delimiter(/)content(o*)delimiter(/)>operator(,) string<delimiter(')content(e)delimiter(')>operator(\)) -comment(// => ee) - -comment(// groovy -e "m = args[0] =~ /(a|ba|b\)+(a|ac\)+/; if (m.matches(\)\) println m[0][0]" ababacaca) -comment(// => ababa) - -ident(digits) operator(=) string<delimiter(")content(123456789)delimiter(")> -ident(nonlap) operator(=) ident(digits) operator(=~) regexp<delimiter(/)char(\\d)char(\\d)char(\\d)delimiter(/)> -keyword(assert) ident(nonlap)operator(.)ident(count) operator(==) integer(3) -ident(print) string<delimiter(')content(Non-overlapping: )delimiter(')> -operator(()integer(0)operator(..<)ident(nonlap)operator(.)ident(count)operator(\))operator(.)ident(each)operator({) ident(print) ident(nonlap)operator([)local_variable(it)operator(]) operator(+) string<delimiter(')content( )delimiter(')> operator(})operator(;) ident(print) string<delimiter(')content(\\n)delimiter(')> -ident(print) string<delimiter(')content(Overlapping: )delimiter(')> -ident(yeslap) operator(=) operator(()ident(digits) operator(=~) regexp<delimiter(/)content((?=()char(\\d)char(\\d)char(\\d)content(\)\))delimiter(/)>operator(\)) -keyword(assert) ident(yeslap)operator(.)ident(count) operator(==) integer(7) -operator(()integer(0)operator(..<)ident(yeslap)operator(.)ident(count)operator(\))operator(.)ident(each)operator({) ident(print) ident(yeslap)operator([)local_variable(it)operator(])operator([)integer(1)operator(]) operator(+) string<delimiter(')content( )delimiter(')> operator(})operator(;) ident(print) string<delimiter(')content(\\n)delimiter(')> -comment(// Non-overlapping: 123 456 789) -comment(// Overlapping: 123 234 345 456 567 678 789) - -ident(string) operator(=) string<delimiter(')content(And little lambs eat ivy)delimiter(')> -comment(// Greedy version) -ident(parts) operator(=) ident(string) operator(=~) regexp<delimiter(/)content((.*\)(l[^s]*s\)(.*\))delimiter(/)> -operator(()integer(1)operator(..)ident(parts)operator(.)ident(groupCount)operator(()operator(\))operator(\))operator(.)ident(each)operator({) ident(print) string<delimiter(")content(()inline<inline_delimiter(${)ident(parts)operator([)integer(0)operator(])operator([)local_variable(it)operator(])inline_delimiter(})>content(\) )delimiter(")> operator(})operator(;) ident(print) string<delimiter(')content(\\n)delimiter(')> -comment(// (And little \) (lambs\) ( eat ivy\)) - -comment(// Reluctant version) -ident(parts) operator(=) ident(string) operator(=~) regexp<delimiter(/)content((.*?\)(l[^s]*s\)(.*\))delimiter(/)> -operator(()integer(1)operator(..)ident(parts)operator(.)ident(groupCount)operator(()operator(\))operator(\))operator(.)ident(each)operator({) ident(print) string<delimiter(")content(()inline<inline_delimiter(${)ident(parts)operator([)integer(0)operator(])operator([)local_variable(it)operator(])inline_delimiter(})>content(\) )delimiter(")> operator(})operator(;) ident(print) string<delimiter(')content(\\n)delimiter(')> -comment(// (And \) (little lambs\) ( eat ivy\)) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_6.1) -comment(//----------------------------------------------------------------------------------) -comment(// Groovy splits src and dest to avoid this problem) -ident(src) operator(=) string<delimiter(')content(Go this way)delimiter(')> -ident(dst) operator(=) ident(src)operator(.)ident(replaceFirst)operator(()string<delimiter(')content(this)delimiter(')>operator(,) string<delimiter(')content(that)delimiter(')>operator(\)) -keyword(assert) ident(dst) operator(==) string<delimiter(')content(Go that way)delimiter(')> - -comment(// extract basename) -ident(src) operator(=) string<delimiter(')content(c:/some/path/file.ext)delimiter(')> -ident(dst) operator(=) ident(src)operator(.)ident(replaceFirst)operator(()string<delimiter(')content(^.*/)delimiter(')>operator(,) string<delimiter(')delimiter(')>operator(\)) -keyword(assert) ident(dst) operator(==) string<delimiter(')content(file.ext)delimiter(')> - -comment(// Make All Words Title-Cased (not that you would do it this way\)) -comment(// The preprocessing operations \\X where X is one of l, u, L, and U are not supported) -comment(// in the sun regex library but other Java regex libraries may support this. Instead:) -ident(src) operator(=) string<delimiter(')content(make all words title-cased)delimiter(')> -ident(dst) operator(=) ident(src) -operator(()string<delimiter(')content(a)delimiter(')>operator(..)string<delimiter(')content(z)delimiter(')>operator(\))operator(.)ident(each)operator({) ident(dst) operator(=) ident(dst)operator(.)ident(replaceAll)operator(()regexp<delimiter(/)content(([^a-zA-Z]\))delimiter(/)>operator(+)local_variable(it)operator(+)regexp<delimiter(/)content(|)content(\\A)delimiter(/)>operator(+)local_variable(it)operator(,) regexp<delimiter(/)content($)content(1)delimiter(/)>operator(+)local_variable(it)operator(.)ident(toUpperCase)operator(()operator(\))operator(\)) operator(}) -keyword(assert) ident(dst) operator(==) string<delimiter(')content(Make All Words Title-Cased)delimiter(')> - -comment(// rename list of dirs) -ident(bindirs) operator(=) string<delimiter(')content(/usr/bin /bin /usr/local/bin)delimiter(')>operator(.)ident(split)operator(()string<delimiter(')content( )delimiter(')>operator(\))operator(.)ident(toList)operator(()operator(\)) -ident(expected) operator(=) string<delimiter(')content(/usr/lib /lib /usr/local/lib)delimiter(')>operator(.)ident(split)operator(()string<delimiter(')content( )delimiter(')>operator(\))operator(.)ident(toList)operator(()operator(\)) -ident(libdirs) operator(=) ident(bindirs)operator(.)ident(collect) operator({) ident(dir) operator(->) ident(dir)operator(.)ident(replaceFirst)operator(()string<delimiter(')content(bin)delimiter(')>operator(,) string<delimiter(')content(lib)delimiter(')>operator(\)) operator(}) -keyword(assert) ident(libdirs) operator(==) ident(expected) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_6.2) -comment(//----------------------------------------------------------------------------------) -comment(// Groovy uses Java regex (other Java regex packages would also be possible\)) -comment(// It doesn't support Locale-based settings but you can roll your own to some) -comment(// extent, you can use any Unicode characters as per below and you can use) -comment(// \\p{Punct} Punctuation: One of !"#$%&'(\)*+,-./:;<=>?@[\\]^_`{|}~) -comment(// or the other special character classes) -ident(words) operator(=) string<delimiter(''')content( -silly -façade -coöperate -niño -Renée -Moliçre -hæmoglobin -naïve -tschüß -random!stuff#here)content(\\u0948)content( -)delimiter(''')> -ident(results) operator(=) string<delimiter(')delimiter(')> -ident(greekAlpha) operator(=) string<delimiter(')content(\\u0391)delimiter(')> -ident(special) operator(=) string<delimiter(')content(çéüßöñà æï?)delimiter(')> operator(+) ident(greekAlpha) -comment(// flag as either Y (alphabetic\) or N (not\)) -ident(words)operator(.)ident(split)operator(()string<delimiter(')content(\\n)delimiter(')>operator(\))operator(.)ident(findAll)operator({)local_variable(it)operator(.)ident(trim)operator(()operator(\))operator(})operator(.)ident(each)operator({) ident(results) operator(+=) local_variable(it) operator(==~) regexp<delimiter(/)content(^[)char(\\w)delimiter(/)>operator(+)ident(special)operator(+)regexp<delimiter(/)content(]+)content($)delimiter(/)> operator(?)string<delimiter(')content(Y)delimiter(')>operator(:)string<delimiter(')content(N)delimiter(')> operator(}) -keyword(assert) ident(results) operator(==) string<delimiter(')content(YYYYYYYYYN)delimiter(')> -ident(results) operator(=) string<delimiter(')delimiter(')> -ident(words)operator(.)ident(split)operator(()string<delimiter(')content(\\n)delimiter(')>operator(\))operator(.)ident(findAll)operator({)local_variable(it)operator(.)ident(trim)operator(()operator(\))operator(})operator(.)ident(each)operator({) ident(results) operator(+=) local_variable(it) operator(==~) regexp<delimiter(/)content(^[^)content(\\p)content({Punct}]+)content($)delimiter(/)> operator(?)string<delimiter(')content(Y)delimiter(')>operator(:)string<delimiter(')content(N)delimiter(')> operator(}) -keyword(assert) ident(results) operator(==) string<delimiter(')content(YYYYYYYYYN)delimiter(')> -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_6.3) -comment(//----------------------------------------------------------------------------------) -comment(// as many non-whitespace bytes as possible) -ident(finder) operator(=) string<delimiter(')content(abczqz z)delimiter(')> operator(=~) regexp<delimiter(/)content(a)char(\\S)content(+z)delimiter(/)> -keyword(assert) ident(finder)operator([)integer(0)operator(]) operator(==) string<delimiter(')content(abczqz)delimiter(')> - -comment(// as many letters, apostrophes, and hyphens) -ident(finder) operator(=) string<delimiter(")content(aAzZ'z-z0z)delimiter(")> operator(=~) regexp<delimiter(/)content(a[A-Za-z'-]+z)delimiter(/)> comment(//') -keyword(assert) ident(finder)operator([)integer(0)operator(]) operator(==) string<delimiter(")content(aAzZ'z-z)delimiter(")> - -comment(// selecting words) -ident(finder) operator(=) string<delimiter(')content(23rd Psalm)delimiter(')> operator(=~) regexp<delimiter(/)char(\\b)content(([A-Za-z]+\))char(\\b)delimiter(/)> comment(// usually best) -ident(println) ident(finder)operator([)integer(0)operator(])operator([)integer(0)operator(]) -comment(// => Psalm (23rd is not matched\)) -ident(finder) operator(=) string<delimiter(')content(23rd Psalm)delimiter(')> operator(=~) regexp<delimiter(/)char(\\s)content(([A-Za-z]+\))char(\\s)delimiter(/)> comment(// fails at ends or w/ punctuation) -ident(println) ident(finder)operator(.)ident(matches)operator(()operator(\)) -comment(// => false (no whitespaces at ends\)) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_6.4) -comment(//----------------------------------------------------------------------------------) -ident(str) operator(=) string<delimiter(')content(groovy.codehaus.org and www.aboutgroovy.com)delimiter(')> -ident(re) operator(=) string<delimiter(''')content((?x\) # to enable whitespace and comments - ( # capture the hostname in $1 - (?: # these parens for grouping only - (?! [-_] \) # lookahead for neither underscore nor dash - [)char(\\\\)content(w-] + # hostname component - )char(\\\\)content(. # and the domain dot - \) + # now repeat that whole thing a bunch of times - [A-Za-z] # next must be a letter - [)char(\\\\)content(w-] + # now trailing domain part - \) # end of $1 capture - )delimiter(''')> - -ident(finder) operator(=) ident(str) operator(=~) ident(re) -ident(out) operator(=) ident(str) -operator(()integer(0)operator(..<)ident(finder)operator(.)ident(count)operator(\))operator(.)ident(each)operator({) - ident(adr) operator(=) ident(finder)operator([)local_variable(it)operator(])operator([)integer(0)operator(]) - ident(out) operator(=) ident(out)operator(.)ident(replaceAll)operator(()ident(adr)operator(,) string<delimiter(")inline<inline_delimiter($)ident(adr)>content( [)inline<inline_delimiter(${)pre_type(InetAddress)operator(.)ident(getByName)operator(()ident(adr)operator(\))operator(.)ident(hostAddress)inline_delimiter(})>content(])delimiter(")>operator(\)) -operator(}) -ident(println) ident(out) -comment(// => groovy.codehaus.org [63.246.7.187] and www.aboutgroovy.com [63.246.7.76]) - -comment(// to match whitespace or #-characters in an extended re you need to escape them.) -ident(foo) operator(=) integer(42) -ident(str) operator(=) string<delimiter(')content(blah #foo# blah)delimiter(')> -ident(re) operator(=) string<delimiter(''')content((?x\) # to enable whitespace and comments - )char(\\\\)content(# # a pound sign - ()char(\\\\)content(w+\) # the variable name - )char(\\\\)content(# # another pound sign - )delimiter(''')> -ident(finder) operator(=) ident(str) operator(=~) ident(re) -ident(found) operator(=) ident(finder)operator([)integer(0)operator(]) -ident(out) operator(=) ident(str)operator(.)ident(replaceAll)operator(()ident(found)operator([)integer(0)operator(])operator(,) ident(evaluate)operator(()ident(found)operator([)integer(1)operator(])operator(\))operator(.)ident(toString)operator(()operator(\))operator(\)) -keyword(assert) ident(out) operator(==) string<delimiter(')content(blah 42 blah)delimiter(')> -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_6.5) -comment(//----------------------------------------------------------------------------------) -ident(fish) operator(=) string<delimiter(')content(One fish two fish red fish blue fish)delimiter(')> -ident(expected) operator(=) string<delimiter(')content(The third fish is a red one.)delimiter(')> -ident(thirdFish) operator(=) regexp<delimiter(/)content((?:)char(\\w)content(+)char(\\s)content(+fish)char(\\s)content(+\){2}()char(\\w)content(+\))char(\\s)content(+fish.*)delimiter(/)> -keyword(assert) ident(expected) operator(==) operator(()ident(fish)operator(.)ident(replaceAll)operator(()ident(thirdFish)operator(,) string<delimiter(')content(The third fish is a $1 one.)delimiter(')>operator(\))operator(\)) - -ident(anyFish) operator(=) regexp<delimiter(/)content(()char(\\w)content(+\))char(\\s)content(+fish)char(\\b)delimiter(/)> -ident(finder) operator(=) ident(fish) operator(=~) ident(anyFish) -comment(// finder contains an array of matched groups) -comment(// 2 = third one (index start at 0\), 1 = matched word in group) -ident(out) operator(=) string<delimiter(")content(The third fish is a )inline<inline_delimiter(${)ident(finder)operator([)integer(2)operator(])operator([)integer(1)operator(])inline_delimiter(})>content( one.)delimiter(")> -keyword(assert) ident(out) operator(==) ident(expected) - -ident(evens) operator(=) type([]) -operator(()integer(0)operator(..<)ident(finder)operator(.)ident(count)operator(\))operator(.)ident(findAll)operator({)local_variable(it)operator(%)integer(2)operator(!=)integer(0)operator(})operator(.)ident(each)operator({) ident(evens) operator(+=) ident(finder)operator([)local_variable(it)operator(])operator([)integer(1)operator(]) operator(}) -ident(println) string<delimiter(")content(Even numbered fish are )inline<inline_delimiter(${)ident(evens)operator(.)ident(join)operator(()string<delimiter(')content( )delimiter(')>operator(\))inline_delimiter(})>content(.)delimiter(")> -comment(// => Even numbered fish are two blue.) - -comment(// one of several ways to do this) -ident(pond) operator(=) ident(fish) operator(+) string<delimiter(')content( in the pond)delimiter(')> -ident(fishInPond) operator(=) operator(()regexp<delimiter(/)content(()char(\\w)content(+\)()char(\\s)content(+fish)char(\\b)char(\\s)content(*\))delimiter(/)>operator(\)) operator(*) integer(4) operator(+) regexp<delimiter(/)content((.*\))delimiter(/)> -ident(found) operator(=) operator(()ident(pond) operator(=~) ident(fishInPond)operator(\))operator([)integer(0)operator(]) -ident(println) operator(()operator(()ident(found)operator([)integer(1)operator(..)integer(6)operator(]) operator(+) string<delimiter(')content(sushi)delimiter(')> operator(+) ident(found)operator([)integer(8)operator(..)integer(9)operator(])operator(\))operator(.)ident(join)operator(()operator(\))operator(\)) -comment(// => One fish two fish red fish sushi fish in the pond) - -comment(// find last fish) -ident(expected) operator(=) string<delimiter(')content(Last fish is blue)delimiter(')> -ident(pond) operator(=) string<delimiter(')content(One fish two fish red fish blue fish swim here.)delimiter(')> -ident(finder) operator(=) operator(()ident(pond) operator(=~) ident(anyFish)operator(\)) -keyword(assert) ident(expected) operator(==) string<delimiter(")content(Last fish is )inline<inline_delimiter(${)ident(finder)operator([)ident(finder)operator(.)ident(count)operator(-)integer(1)operator(])operator([)integer(1)operator(])inline_delimiter(})>delimiter(")> -comment(// => Last fish is blue) - -comment(// greedy match version of above) -ident(finder) operator(=) operator(()ident(pond) operator(=~) regexp<delimiter(/)content(.*)char(\\b)delimiter(/)> operator(+) ident(anyFish)operator(\)) -keyword(assert) ident(expected) operator(==) string<delimiter(")content(Last fish is )inline<inline_delimiter(${)ident(finder)operator([)integer(0)operator(])operator([)integer(1)operator(])inline_delimiter(})>delimiter(")> - -comment(// last fish match version of above) -ident(finder) operator(=) operator(()ident(pond) operator(=~) regexp<delimiter(/)char(\\b)content(()char(\\w)content(+\))char(\\s)content(+fish)char(\\b)content((?!.*)char(\\b)content(fish)char(\\b)content(\))delimiter(/)>operator(\)) -keyword(assert) ident(expected) operator(==) string<delimiter(")content(Last fish is )inline<inline_delimiter(${)ident(finder)operator([)integer(0)operator(])operator([)integer(1)operator(])inline_delimiter(})>delimiter(")> -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_6.6) -comment(//----------------------------------------------------------------------------------) -comment(// Html Stripper) -comment(// get this using: fakedfile = new File('path_to_file.htm'\).text) -ident(fakedFile) operator(=) string<delimiter(''')content( -<html> -<head><title>Chapter 1 Title</title></head> -<body> -<h1>Chapter 1: Some Heading</h1> -A paragraph. -</body> -</html> -)delimiter(''')> - -ident(stripExpectations) operator(=) string<delimiter(''')content( -Chapter 1 Title - -Chapter 1: Some Heading -A paragraph. -)delimiter(''')>operator(.)ident(trim)operator(()operator(\)) - -ident(stripped) operator(=) ident(fakedFile)operator(.)ident(replaceAll)operator(()regexp<delimiter(/)content((?m\)<.*?>)delimiter(/)>operator(,)string<delimiter(')delimiter(')>operator(\))operator(.)ident(trim)operator(()operator(\)) -keyword(assert) ident(stripExpectations) operator(==) ident(stripped) - -ident(pattern) operator(=) string<delimiter(''')content((?x\) - ( # capture in $1 - Chapter # text string - )char(\\\\)content(s+ # mandatory whitespace - )char(\\\\)content(d+ # decimal number - )char(\\\\)content(s* # optional whitespace - : # a real colon - . * # anything not a newline till end of line - \) -)delimiter(''')> - -ident(headerfyExpectations) operator(=) string<delimiter(''')content( -Chapter 1 Title - -<H1>Chapter 1: Some Heading</H1> -A paragraph. -)delimiter(''')>operator(.)ident(trim)operator(()operator(\)) - -ident(headerfied) operator(=) ident(stripped)operator(.)ident(replaceAll)operator(()ident(pattern)operator(,) string<delimiter(')content(<H1>$1</H1>)delimiter(')>operator(\)) -keyword(assert) ident(headerfyExpectations) operator(==) ident(headerfied) - -comment(// one liner equivalent which prints to stdout) -comment(//% groovy -p -e "line.replaceAll(/^(Chapter\\s+\\d+\\s*:.*\)/,'<H1>$1</H1>'\)") - -comment(// one liner equivalent which modifies file in place and creates *.bak original file) -comment(//% groovy -pi .bak -e "line.replaceAll(/^(Chapter\\s+\\d+\\s*:.*\)/,'<H1>$1</H1>'\)") - -comment(// use: realFileInput = new File(path_to_file\).text) -ident(fakeFileInput) operator(=) string<delimiter(''')content( -0 -START -1 -2 -END -3 -4 -5 -START -6 -END -)delimiter(''')> - -ident(chunkyPattern) operator(=) regexp<delimiter(/)content((?ms\)^START(.*?\)^END)delimiter(/)> -ident(finder) operator(=) ident(fakeFileInput) operator(=~) ident(chunkyPattern) -operator(()integer(0)operator(..<)ident(finder)operator(.)ident(count)operator(\))operator(.)ident(each) operator({) - ident(println) string<delimiter(")content(Chunk #)inline<inline_delimiter($)local_variable(it)>content( contains )inline<inline_delimiter(${)keyword(new) pre_type(StringTokenizer)operator(()ident(finder)operator([)local_variable(it)operator(])operator([)integer(1)operator(])operator(,)string<delimiter(')content(\\n)delimiter(')>operator(\))operator(.)ident(countTokens)operator(()operator(\))inline_delimiter(})>content( lines.)delimiter(")> -operator(}) -comment(// =>) -comment(// Chunk #0 contains 2 lines.) -comment(// Chunk #1 contains 1 lines.) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_6.7) -comment(//----------------------------------------------------------------------------------) -comment(// general pattern is:) -comment(//file = new File("datafile"\).text.split(/pattern/\)) -comment(// .Ch, .Se and .Ss divide chunks of input text) -ident(fakedFiletext) operator(=) string<delimiter(''')content( -.Ch -abc -.Se -def -.Ss -ghi -.Se -jkl -.Se -mno -.Ss -pqr -.Ch -stu -.Ch -vwx -.Se -yz! -)delimiter(''')> -ident(chunks) operator(=) ident(fakedFiletext)operator(.)ident(split)operator(()regexp<delimiter(/)content((?m\)^)content(\\.)content((Ch|Se|Ss\))content($)delimiter(/)>operator(\)) -ident(println) string<delimiter(")content(I read )inline<inline_delimiter(${)ident(chunks)operator(.)ident(size)operator(()operator(\))inline_delimiter(})>content( chunks.)delimiter(")> -comment(// => I read 10 chunks.) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_6.8) -comment(//----------------------------------------------------------------------------------) -comment(// Groovy doesn't support the ~/BEGIN/ .. ~/END/ notation) -comment(// you have to emulate it as shown in the example below) -comment(// The from line number to line number processing is supported) -comment(// from the command line but not within a script, e.g.) -comment(// command-line to print lines 15 through 17 inclusive (see below\)) -comment(// > groovy -p -e "if (count in 15..17\) return line" datafile) -comment(// Within a script itself, you emulate the count by keeping state) - -ident(htmlContent) operator(=) string<delimiter(''')content( -<h1>A Heading</h1> -Here is <XMP>inline AAA</XMP>. -And the bigger Example 2: -<XMP> -line BBB -line CCC -</XMP> -Done. -)delimiter(''')>operator(.)ident(trim)operator(()operator(\)) - -ident(examplePattern) operator(=) regexp<delimiter(/)content((?ms\)<XMP>(.*?\)<)char(\\/)content(XMP>)delimiter(/)> -ident(finder) operator(=) ident(htmlContent) operator(=~) ident(examplePattern) -operator(()integer(0)operator(..<)ident(finder)operator(.)ident(count)operator(\))operator(.)ident(each) operator({) - ident(println) string<delimiter(")content(Example )inline<inline_delimiter(${)local_variable(it)operator(+)integer(1)inline_delimiter(})>content(:)delimiter(")> - ident(println) ident(finder)operator([)local_variable(it)operator(])operator([)integer(1)operator(]) -operator(}) -comment(// =>) -comment(// Example 1:) -comment(// inline AAA) -comment(// Example 2:) -comment(//) -comment(// line BBB) -comment(// line CCC) -comment(//) - -ident(htmlContent)operator(.)ident(split)operator(()string<delimiter(')content(\\n)delimiter(')>operator(\))operator(.)ident(eachWithIndex)operator({) ident(line)operator(,) ident(count) operator(->) - keyword(if) operator(()ident(count) keyword(in) integer(4)operator(..)integer(5)operator(\)) ident(println) ident(line) -operator(}) -comment(// =>) -comment(// line BBB) -comment(// line CCC) - -comment(// You would probably use a mail Api for this in Groovy) -ident(fakedMailInput) operator(=) string<delimiter(''')content( -From: A Person <someone@somewhere.com> -To: <pleac-discuss@lists.sourceforge.net> -Date: Sun, 31 Dec 2006 02:14:57 +1100 - -From: noone@nowhere.com -To: <pleac-discuss@lists.sourceforge.net> -Date: Sun, 31 Dec 2006 02:14:58 +1100 - -From: someone@somewhere.com -To: <pleac-discuss@lists.sourceforge.net> -Date: Sun, 31 Dec 2006 02:14:59 +1100 -)delimiter(''')>operator(.)ident(trim)operator(()operator(\))operator(+)string<delimiter(')content(\\n)delimiter(')> - -ident(seen) operator(=) operator([)operator(:)operator(]) -ident(fakedMailInput)operator(.)ident(split)operator(()string<delimiter(')content(\\n)delimiter(')>operator(\))operator(.)ident(each)operator({) ident(line) operator(->) - ident(m) operator(=) operator(()ident(line) operator(=~) regexp<delimiter(/)content(^From:?)char(\\s)content((.*\))delimiter(/)>operator(\)) - keyword(if) operator(()ident(m)operator(\)) operator({) - ident(addr) operator(=) ident(m)operator([)integer(0)operator(])operator([)integer(1)operator(]) operator(=~) regexp<delimiter(/)content(([^<>(\),;)char(\\s)content(]+)content(\\@)content([^<>(\),;)char(\\s)content(]+\))delimiter(/)> - ident(x) operator(=) ident(addr)operator([)integer(0)operator(])operator([)integer(1)operator(]) - keyword(if) operator(()ident(seen)operator(.)ident(containsKey)operator(()ident(x)operator(\))operator(\)) ident(seen)operator([)ident(x)operator(]) operator(+=) integer(1) keyword(else) ident(seen)operator([)ident(x)operator(]) operator(=) integer(1) - operator(}) -operator(}) -ident(seen)operator(.)ident(each)operator({) ident(k)operator(,)ident(v) operator(->) ident(println) string<delimiter(")content(Address )inline<inline_delimiter($)ident(k)>content( seen )inline<inline_delimiter($)ident(v)>content( time)inline<inline_delimiter(${)ident(v)operator(==)integer(1)operator(?)string<delimiter(')delimiter(')>operator(:)string<delimiter(')content(s)delimiter(')>inline_delimiter(})>content(.)delimiter(")> operator(}) -comment(// =>) -comment(// Address noone@nowhere.com seen 1 time.) -comment(// Address someone@somewhere.com seen 2 times.) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_6.9) -comment(//----------------------------------------------------------------------------------) -keyword(import) include(java.util.regex.Pattern) - -ident(names) operator(=) string<delimiter(''')content( -myFile.txt -oldFile.tex -myPicture.jpg -)delimiter(''')> - -keyword(def) method(glob2pat)operator(()ident(globstr)operator(\)) operator({) - keyword(def) ident(patmap) operator(=) operator([) string<delimiter(')content(*)delimiter(')>operator(:)string<delimiter(')content(.*)delimiter(')>operator(,) string<delimiter(')content(?)delimiter(')>operator(:)string<delimiter(')content(.)delimiter(')>operator(,) string<delimiter(')content([)delimiter(')>operator(:)string<delimiter(')content([)delimiter(')>operator(,) string<delimiter(')content(])delimiter(')>operator(:)string<delimiter(')content(])delimiter(')> operator(]) - keyword(def) ident(result) operator(=) string<delimiter(')content((?m\)^)delimiter(')> - string<delimiter(')content(^)delimiter(')> operator(+) ident(globstr)operator(.)ident(replaceAll)operator(()regexp<delimiter(/)content((.\))delimiter(/)>operator(\)) operator({) ident(all)operator(,) ident(c) operator(->) - ident(result) operator(+=) operator(()ident(patmap)operator(.)ident(containsKey)operator(()ident(c)operator(\)) operator(?) ident(patmap)operator([)ident(c)operator(]) operator(:) pre_type(Pattern)operator(.)ident(quote)operator(()ident(c)operator(\))operator(\)) - operator(}) - ident(result) operator(+) string<delimiter(')content($)delimiter(')> -operator(}) - -keyword(def) method(checkNumMatches)operator(()ident(pat)operator(,) ident(count)operator(\)) operator({) - keyword(assert) operator(()ident(names) operator(=~) ident(glob2pat)operator(()ident(pat)operator(\))operator(\))operator(.)ident(count) operator(==) ident(count) -operator(}) - -ident(checkNumMatches)operator(()string<delimiter(')content(*.*)delimiter(')>operator(,) integer(3)operator(\)) -ident(checkNumMatches)operator(()string<delimiter(')content(my*.*)delimiter(')>operator(,) integer(2)operator(\)) -ident(checkNumMatches)operator(()string<delimiter(')content(*.t*)delimiter(')>operator(,) integer(2)operator(\)) -ident(checkNumMatches)operator(()string<delimiter(')content(*File.*)delimiter(')>operator(,) integer(2)operator(\)) -ident(checkNumMatches)operator(()string<delimiter(')content(*Rabbit*.*)delimiter(')>operator(,) integer(0)operator(\)) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_6.10) -comment(//----------------------------------------------------------------------------------) -comment(// version 1: simple obvious way) -ident(states) operator(=) string<delimiter(')content(CO ON MI WI MN)delimiter(')>operator(.)ident(split)operator(()string<delimiter(')content( )delimiter(')>operator(\))operator(.)ident(toList)operator(()operator(\)) - -keyword(def) method(popgrep1)operator(()ident(file)operator(\)) operator({) - ident(file)operator(.)ident(eachLine)operator({) ident(line) operator(->) - keyword(if) operator(()ident(states)operator(.)ident(any)operator({) ident(line) operator(=~) regexp<delimiter(/)char(\\b)inline<inline_delimiter($)local_variable(it)>char(\\b)delimiter(/)> operator(})operator(\)) ident(println) ident(line) - operator(}) -operator(}) -comment(// popgrep1(new File('path_to_file'\)\)) - -comment(// version 2: eval strings; fast but hard to quote (SLOW\)) -keyword(def) method(popgrep2)operator(()ident(file)operator(\)) operator({) - keyword(def) ident(code) operator(=) string<delimiter(')content(def found = false\\n)delimiter(')> - ident(states)operator(.)ident(each)operator({) - ident(code) operator(+=) string<delimiter(")content(if (!found && line =~ /)char(\\\\)content(b)inline<inline_delimiter($)local_variable(it)>char(\\\\)content(b/\) found = true)char(\\n)delimiter(")> - operator(}) - ident(code) operator(+=) string<delimiter(")content(if (found\) println line)char(\\n)delimiter(")> - ident(file)operator(.)ident(eachLine)operator({) ident(line) operator(=) local_variable(it)operator(;) ident(evaluate)operator(()ident(code)operator(\)) operator(}) -operator(}) -comment(// popgrep2(new File('path_to_file'\)\)) - -comment(// version 2b: eval using switch/case (not in Perl cookbook\) (SLOW\)) -keyword(def) method(popgrep2b)operator(()ident(file)operator(\)) operator({) - keyword(def) ident(code) operator(=) string<delimiter(')content(switch(line\) {\\n)delimiter(')> - ident(states)operator(.)ident(each)operator({) - ident(code) operator(+=) string<delimiter(")content(case ~/.*)char(\\\\)content(b)inline<inline_delimiter($)local_variable(it)>char(\\\\)content(b.*/:)char(\\n)content(println line;break)char(\\n)delimiter(")> - operator(}) - ident(code) operator(+=) string<delimiter(")content(default:break)char(\\n)content(})char(\\n)delimiter(")> - ident(file)operator(.)ident(eachLine)operator({) ident(line) operator(=) local_variable(it)operator(;) ident(evaluate)operator(()ident(code)operator(\)) operator(}) -operator(}) -comment(// popgrep2b(new File('path_to_file'\)\)) - -comment(// version3: build a match_any function as a GString) -keyword(def) method(popgrep3)operator(()ident(file)operator(\)) operator({) - keyword(def) ident(code) operator(=) ident(states)operator(.)ident(collect)operator({) string<delimiter(")content(line =~ /)char(\\\\)content(b)inline<inline_delimiter($)local_variable(it)>char(\\\\)content(b/)delimiter(")> operator(})operator(.)ident(join)operator(()string<delimiter(')content(||)delimiter(')>operator(\)) - ident(file)operator(.)ident(eachLine)operator({) ident(line) operator(=) local_variable(it)operator(;) keyword(if) operator(()ident(evaluate)operator(()ident(code)operator(\))operator(\)) ident(println) ident(line) operator(}) -operator(}) -comment(// popgrep3(new File('path_to_file'\)\)) - -comment(// version4: pretty fast, but simple: compile all re's first:) -ident(patterns) operator(=) ident(states)operator(.)ident(collect)operator({) operator(~)regexp<delimiter(/)char(\\b)inline<inline_delimiter($)local_variable(it)>char(\\b)delimiter(/)> operator(}) -keyword(def) method(popgrep4)operator(()ident(file)operator(\)) operator({) - ident(file)operator(.)ident(eachLine)operator({) ident(line) operator(->) - keyword(if) operator(()ident(patterns)operator(.)ident(any)operator({) local_variable(it)operator(.)ident(matcher)operator(()ident(line)operator(\))operator(})operator(\)) ident(println) ident(line) - operator(}) -operator(}) -comment(// popgrep4(new File('path_to_file'\)\)) - -comment(// version5: faster) -ident(str) operator(=) ident(states)operator(.)ident(collect)operator({) regexp<delimiter(/)char(\\b)inline<inline_delimiter($)local_variable(it)>char(\\b)delimiter(/)> operator(})operator(.)ident(join)operator(()string<delimiter(')content(|)delimiter(')>operator(\)) -keyword(def) method(popgrep5)operator(()ident(file)operator(\)) operator({) - ident(file)operator(.)ident(eachLine)operator({) ident(line) operator(->) - keyword(if) operator(()ident(line) operator(=~) ident(str)operator(\)) ident(println) ident(line) - operator(}) -operator(}) -comment(// popgrep5(new File('path_to_file'\)\)) - -comment(// version5b: faster (like 5 but compiled outside loop\)) -ident(pattern) operator(=) operator(~)ident(states)operator(.)ident(collect)operator({) regexp<delimiter(/)char(\\b)inline<inline_delimiter($)local_variable(it)>char(\\b)delimiter(/)> operator(})operator(.)ident(join)operator(()string<delimiter(')content(|)delimiter(')>operator(\)) -keyword(def) method(popgrep5b)operator(()ident(file)operator(\)) operator({) - ident(file)operator(.)ident(eachLine)operator({) ident(line) operator(->) - keyword(if) operator(()ident(pattern)operator(.)ident(matcher)operator(()ident(line)operator(\))operator(\)) ident(println) ident(line) - operator(}) -operator(}) -comment(// popgrep5b(new File('path_to_file'\)\)) - -comment(// speeds trials ON the current source file (~1200 lines\)) -comment(// popgrep1 => 0.39s) -comment(// popgrep2 => 25.08s) -comment(// popgrep2b => 23.86s) -comment(// popgrep3 => 22.42s) -comment(// popgrep4 => 0.12s) -comment(// popgrep5 => 0.05s) -comment(// popgrep5b => 0.05s) -comment(// Groovy's built-in support is the way to go in terms of) -comment(// both speed and simplicity of understanding. Avoid using) -comment(// evaluate(\) unless you absolutely need it) - -comment(// generic matching functions) -ident(input) operator(=) string<delimiter(''')content( -both cat and dog -neither -just a cat -just a dog -)delimiter(''')>operator(.)ident(split)operator(()string<delimiter(')content(\\n)delimiter(')>operator(\))operator(.)ident(findAll)operator({)local_variable(it)operator(.)ident(trim)operator(()operator(\))operator(}) - -keyword(def) method(matchAny)operator(()ident(line)operator(,) ident(patterns)operator(\)) operator({) ident(patterns)operator(.)ident(any)operator({) ident(line) operator(=~) local_variable(it) operator(}) operator(}) -keyword(def) method(matchAll)operator(()ident(line)operator(,) ident(patterns)operator(\)) operator({) ident(patterns)operator(.)ident(every)operator({) ident(line) operator(=~) local_variable(it) operator(}) operator(}) - -keyword(assert) ident(input)operator(.)ident(findAll)operator({) ident(matchAny)operator(()local_variable(it)operator(,) operator([)string<delimiter(')content(cat)delimiter(')>operator(,)string<delimiter(')content(dog)delimiter(')>operator(])operator(\)) operator(})operator(.)ident(size)operator(()operator(\)) operator(==) integer(3) -keyword(assert) ident(input)operator(.)ident(findAll)operator({) ident(matchAny)operator(()local_variable(it)operator(,) operator([)string<delimiter(')content(cat$)delimiter(')>operator(,)string<delimiter(')content(^n.*)delimiter(')>operator(])operator(\)) operator(})operator(.)ident(size)operator(()operator(\)) operator(==) integer(2) -keyword(assert) ident(input)operator(.)ident(findAll)operator({) ident(matchAll)operator(()local_variable(it)operator(,) operator([)string<delimiter(')content(cat)delimiter(')>operator(,)string<delimiter(')content(dog)delimiter(')>operator(])operator(\)) operator(})operator(.)ident(size)operator(()operator(\)) operator(==) integer(1) -keyword(assert) ident(input)operator(.)ident(findAll)operator({) ident(matchAll)operator(()local_variable(it)operator(,) operator([)string<delimiter(')content(cat$)delimiter(')>operator(,)string<delimiter(')content(^n.*)delimiter(')>operator(])operator(\)) operator(})operator(.)ident(size)operator(()operator(\)) operator(==) integer(0) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_6.11) -comment(//----------------------------------------------------------------------------------) -comment(// patternCheckingScript:) -ident(prompt) operator(=) string<delimiter(')content(\\n> )delimiter(')> -ident(print) string<delimiter(')content(Enter patterns to check:)delimiter(')> operator(+) ident(prompt) -keyword(new) pre_type(BufferedReader)operator(()keyword(new) pre_type(InputStreamReader)operator(()pre_type(System)operator(.)ident(in)operator(\))operator(\))operator(.)ident(eachLine)operator({) ident(line) operator(->) - keyword(try) operator({) - pre_type(Pattern)operator(.)ident(compile)operator(()ident(line)operator(\)) - ident(print) string<delimiter(')content(Valid)delimiter(')> operator(+) ident(prompt) - operator(}) keyword(catch) operator(()ident(java)operator(.)ident(util)operator(.)ident(regex)operator(.)ident(PatternSyntaxException) ident(ex)operator(\)) operator({) - ident(print) string<delimiter(')content(Invalid pattern: )delimiter(')> operator(+) ident(ex)operator(.)ident(message) operator(+) ident(prompt) - operator(}) -operator(}) -comment(// =>) -comment(// Enter patterns to check:) -comment(// > ab*.c) -comment(// Valid) -comment(// > ^\\s+[^a-z]*$) -comment(// Valid) -comment(// > **) -comment(// Invalid pattern: Dangling meta character '*' near index 0) -comment(// **) -comment(// ^) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_6.12) -comment(//----------------------------------------------------------------------------------) -ident(src) operator(=) string<delimiter(')content(dierk könig)delimiter(')> -comment(// simplistic with locale issue) -ident(dst) operator(=) ident(src) -operator(()string<delimiter(')content(a)delimiter(')>operator(..)string<delimiter(')content(z)delimiter(')>operator(\))operator(.)ident(each)operator({) ident(dst) operator(=) ident(dst)operator(.)ident(replaceAll)operator(()regexp<delimiter(/)content((?<=[^a-zA-Z]\))delimiter(/)>operator(+)local_variable(it)operator(+)regexp<delimiter(/)content(|)content(\\A)delimiter(/)>operator(+)local_variable(it)operator(,) local_variable(it)operator(.)ident(toUpperCase)operator(()operator(\))operator(\)) operator(}) -ident(println) ident(dst) -comment(// => Dierk KöNig) -comment(// locale avoidance) -ident(dst) operator(=) ident(src) -operator(()string<delimiter(')content(a)delimiter(')>operator(..)string<delimiter(')content(z)delimiter(')>operator(\))operator(.)ident(each)operator({) ident(dst) operator(=) ident(dst)operator(.)ident(replaceAll)operator(()regexp<delimiter(/)content((?<=)content(\\A)content(|)char(\\b)content(\))delimiter(/)>operator(+)local_variable(it)operator(,) local_variable(it)operator(.)ident(toUpperCase)operator(()operator(\))operator(\)) operator(}) -ident(println) ident(dst) -comment(// => Dierk König) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_6.13) -comment(//----------------------------------------------------------------------------------) -comment(// Several libraries exist, e.g.) -comment(// http://secondstring.sourceforge.net/) -comment(// http://sourceforge.net/projects/simmetrics/) -comment(// both support numerous algorithms. Using the second as an example:) -keyword(import) include(uk.ac.shef.wit.simmetrics.similaritymetrics.*) -ident(target) operator(=) string<delimiter(')content(balast)delimiter(')> -ident(candidates) operator(=) string<delimiter(''')content( -quick -brown -fox -jumped -over -the -lazy -dog -ballast -ballasts -balustrade -balustrades -blast -blasted -blaster -blasters -blasting -blasts -)delimiter(''')>operator(.)ident(split)operator(()string<delimiter(')content(\\n)delimiter(')>operator(\))operator(.)ident(findAll)operator({)local_variable(it)operator(.)ident(trim)operator(()operator(\))operator(}) -ident(metrics) operator(=) operator([)keyword(new) ident(Levenshtein)operator(()operator(\))operator(,) keyword(new) ident(MongeElkan)operator(()operator(\))operator(,) keyword(new) ident(JaroWinkler)operator(()operator(\))operator(,) keyword(new) ident(Soundex)operator(()operator(\))operator(]) -keyword(def) method(out)operator(()ident(name)operator(,) ident(results)operator(\)) operator({) - ident(print) ident(name)operator(.)ident(padLeft)operator(()integer(14)operator(\)) operator(+) string<delimiter(')content( )delimiter(')>operator(;) ident(results)operator(.)ident(each)operator({)ident(print)operator(()local_variable(it)operator(.)ident(padRight)operator(()integer(16)operator(\))operator(\))operator(})operator(;) ident(println)operator(()operator(\)) -operator(}) -keyword(def) method(outr)operator(()ident(name)operator(,) ident(results)operator(\))operator({)ident(out)operator(()ident(name)operator(,) ident(results)operator(.)ident(collect)operator({)string<delimiter(')delimiter(')>operator(+)operator(()operator(()type(int)operator(\))operator(()local_variable(it)operator(*)integer(100)operator(\))operator(\))operator(/)integer(100)operator(})operator(\))operator(}) -ident(out) operator(()string<delimiter(')content(Word/Metric)delimiter(')>operator(,) ident(metrics)operator(.)ident(collect)operator({)local_variable(it)operator(.)ident(shortDescriptionString)operator(}) operator(\)) -ident(candidates)operator(.)ident(each)operator({) ident(w) operator(->) ident(outr)operator(()ident(w)operator(,) ident(metrics)operator(.)ident(collect)operator({) ident(m) operator(->) ident(m)operator(.)ident(getSimilarity)operator(()ident(target)operator(,) ident(w)operator(\))operator(}) operator(\))operator(}) -comment(// =>) -comment(// Word/Metric Levenshtein MongeElkan JaroWinkler Soundex) -comment(// quick 0 0.11 0 0.66) -comment(// brown 0.16 0.23 0.5 0.73) -comment(// fox 0 0.2 0 0.66) -comment(// jumped 0 0.2 0 0.66) -comment(// over 0 0.44 0 0.55) -comment(// the 0 0.33 0 0.55) -comment(// lazy 0.33 0.5 0.44 0.66) -comment(// dog 0 0.2 0 0.66) -comment(// ballast 0.85 0.83 0.96 1) -comment(// ballasts 0.75 0.83 0.94 0.94) -comment(// balustrade 0.5 0.93 0.3 0.94) -comment(// balustrades 0.45 0.93 0.3 0.94) -comment(// blast 0.83 0.8 0.88 1) -comment(// blasted 0.57 0.66 0.8 0.94) -comment(// blaster 0.57 0.66 0.8 0.94) -comment(// blasters 0.5 0.66 0.77 0.94) -comment(// blasting 0.5 0.66 0.77 0.94) -comment(// blasts 0.66 0.66 0.84 0.94) -comment(// to implement the example, iterate through /usr/dict/words selecting words) -comment(// where one or a combination of metrics are greater than some threshold) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_6.14) -comment(//----------------------------------------------------------------------------------) -ident(n) operator(=) string<delimiter(")content( 49 here)delimiter(")> -ident(println) ident(n)operator(.)ident(replaceAll)operator(()regexp<delimiter(/)content(\\G)content( )delimiter(/)>operator(,)string<delimiter(')content(0)delimiter(')>operator(\)) -comment(// => 00049 here) - -ident(str) operator(=) string<delimiter(")content(3,4,5,9,120)delimiter(")> -ident(print) string<delimiter(')content(Found numbers:)delimiter(')> -ident(str)operator(.)ident(eachMatch)operator(()regexp<delimiter(/)content(\\G)content(,?()char(\\d)content(+\))delimiter(/)>operator(\))operator({) ident(print) string<delimiter(')content( )delimiter(')> operator(+) local_variable(it)operator([)integer(1)operator(]) operator(}) -ident(println)operator(()operator(\)) -comment(// => Found numbers: 3 4 5 9 120) - -comment(// Groovy doesn't have the String.pos or a /c re modifier like Perl) -comment(// But it does have similar functionality. Matcher has start(\) and) -comment(// end(\) for find the position and Matcher's usePattern(\) allows) -comment(// you to swap patterns without changing the buffer position) -ident(text) operator(=) string<delimiter(')content(the year 1752 lost 10 days on the 3rd of September)delimiter(')> -ident(p) operator(=) operator(~)regexp<delimiter(/)content((?<=)char(\\D)content(\)()char(\\d)content(+\))delimiter(/)> -ident(m) operator(=) ident(p)operator(.)ident(matcher)operator(()ident(text)operator(\)) -keyword(while) operator(()ident(m)operator(.)ident(find)operator(()operator(\))operator(\)) operator({) - ident(println) string<delimiter(')content(Found )delimiter(')> operator(+) ident(m)operator(.)ident(group)operator(()operator(\)) operator(+) string<delimiter(')content( starting at pos )delimiter(')> operator(+) ident(m)operator(.)ident(start)operator(()operator(\)) operator(+) - string<delimiter(')content( and ending at pos )delimiter(')> operator(+) ident(m)operator(.)ident(end)operator(()operator(\)) -operator(}) -comment(// now reset pos back to between 1st and 2nd numbers) -keyword(if) operator(()ident(m)operator(.)ident(find)operator(()integer(16)operator(\))operator(\)) operator({) ident(println) string<delimiter(')content(Found )delimiter(')> operator(+) ident(m)operator(.)ident(group)operator(()operator(\)) operator(}) -comment(// =>) -comment(// Found 1752 starting at pos 9 and ending at pos 13) -comment(// Found 10 starting at pos 19 and ending at pos 21) -comment(// Found 3 starting at pos 34 and ending at pos 35) -comment(// Found 10) - -comment(// Alternatively you can use Scanner in Java 5-7+:) -ident(p1) operator(=) operator(~)regexp<delimiter(/)content((?<=)char(\\D)content(\)()char(\\d)content(+\))delimiter(/)> -ident(p2) operator(=) operator(~)regexp<delimiter(/)char(\\S)content(+)delimiter(/)> -ident(s) operator(=) keyword(new) pre_type(Scanner)operator(()ident(text)operator(\)) -keyword(while) operator(()operator(()ident(f) operator(=) ident(s)operator(.)ident(findInLine)operator(()ident(p1)operator(\))operator(\))operator(\)) operator({) ident(println) string<delimiter(')content(Found: )delimiter(')> operator(+) ident(f) operator(}) -keyword(if) operator(()operator(()ident(f) operator(=) ident(s)operator(.)ident(findInLine)operator(()ident(p2)operator(\))operator(\))operator(\)) operator({) ident(println) string<delimiter(")content(Found )inline<inline_delimiter($)ident(f)>content( after the last number.)delimiter(")> operator(}) -comment(// =>) -comment(// Found: 1752) -comment(// Found: 10) -comment(// Found: 3) -comment(// Found rd after the last number.) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_6.15) -comment(//----------------------------------------------------------------------------------) -ident(html) operator(=) string<delimiter(')content(<b><i>this</i> and <i>that</i> are important</b> Oh, <b><i>me too!</i></b>)delimiter(')> - -ident(greedyHtmlStripPattern) operator(=) operator(~)regexp<delimiter(/)content((?m\)<.*>)delimiter(/)> comment(// not good) -ident(nonGreedyHtmlStripPattern) operator(=) operator(~)regexp<delimiter(/)content((?m\)<.*?>)delimiter(/)> comment(// not great) -ident(simpleNested) operator(=) operator(~)regexp<delimiter(/)content((?mx\)<b><i>(.*?\)<)char(\\/)content(i><)char(\\/)content(b>)delimiter(/)> -comment(// match BEGIN, then not BEGIN, then END) -ident(generalPattern) operator(=) operator(~)regexp<delimiter(/)content(BEGIN((?:(?!BEGIN\).\)*\)END)delimiter(/)> -ident(betterButInefficient1) operator(=) operator(~)regexp<delimiter(/)content((?mx\)<b><i>( (?: (?!<)char(\\/)content(b>|<)char(\\/)content(i>\). \)* \) <)char(\\/)content(i><)char(\\/)content(b>)delimiter(/)> -ident(betterButInefficient2) operator(=) operator(~)regexp<delimiter(/)content((?mx\)<b><i>( (?: (?!<)char(\\/)content([ib]>\). \)* \) <)char(\\/)content(i><)char(\\/)content(b>)delimiter(/)> - -ident(efficientPattern) operator(=) string<delimiter(''')content((?mx\) - <b><i> - [^<]* # stuff not possibly bad, and not possibly the end. - (?: - # at this point, we can have '<' if not part of something bad - (?! </?[ib]> \) # what we can't have - < # okay, so match the '<' - [^<]* # and continue with more safe stuff - \) * - </i></b> -)delimiter(''')> comment(//') -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_6.16) -comment(//----------------------------------------------------------------------------------) -ident(input) operator(=) string<delimiter(')content(This is a test\\nTest of the duplicate word finder.\\n)delimiter(')> -ident(dupWordPattern) operator(=) string<delimiter(''')content((?ix\) - )char(\\\\)content(b # start at word boundary - ()char(\\\\)content(S+\) # find chunk of non-whitespace - )char(\\\\)content(b # until a word boundary - ( - )char(\\\\)content(s+ # followed by whitespace - )char(\\\\)content(1 # and that same chunk again - )char(\\\\)content(b # and a word boundary - \) + # one or more times -)delimiter(''')> -ident(finder) operator(=) ident(input) operator(=~) ident(dupWordPattern) -ident(println) string<delimiter(')content(Found duplicate word: )delimiter(')> operator(+) ident(finder)operator([)integer(0)operator(])operator([)integer(1)operator(]) -comment(// => Found duplicate word: test) - -ident(astr) operator(=) string<delimiter(')content(nobody)delimiter(')> -ident(bstr) operator(=) string<delimiter(')content(bodysnatcher)delimiter(')> -ident(m) operator(=) string<delimiter(")inline<inline_delimiter($)ident(astr)>content( )inline<inline_delimiter($)ident(bstr)>delimiter(")> operator(=~) regexp<delimiter(/)content(^()char(\\w)content(+\)()char(\\w)content(+\) )char(\\2)content(()char(\\w)content(+\))content($)delimiter(/)> -ident(actual) operator(=) string<delimiter(")inline<inline_delimiter(${)ident(m)operator([)integer(0)operator(])operator([)integer(2)operator(])inline_delimiter(})>content( overlaps in )inline<inline_delimiter(${)ident(m)operator([)integer(0)operator(])operator([)integer(1)operator(])inline_delimiter(})>content(-)inline<inline_delimiter(${)ident(m)operator([)integer(0)operator(])operator([)integer(2)operator(])inline_delimiter(})>content(-)inline<inline_delimiter(${)ident(m)operator([)integer(0)operator(])operator([)integer(3)operator(])inline_delimiter(})>delimiter(")> -keyword(assert) ident(actual) operator(==) string<delimiter(')content(body overlaps in no-body-snatcher)delimiter(')> - -ident(cap) operator(=) string<delimiter(')content(o)delimiter(')> operator(*) integer(180) -keyword(while) operator(()ident(m) operator(=) operator(()ident(cap) operator(=~) regexp<delimiter(/)content(^(oo+?\))char(\\1)content(+)content($)delimiter(/)>operator(\))operator(\)) operator({) - ident(p1) operator(=) ident(m)operator([)integer(0)operator(])operator([)integer(1)operator(]) - ident(print) ident(p1)operator(.)ident(size)operator(()operator(\)) operator(+) string<delimiter(')content( )delimiter(')> - ident(cap) operator(=) ident(cap)operator(.)ident(replaceAll)operator(()ident(p1)operator(,)string<delimiter(')content(o)delimiter(')>operator(\)) -operator(}) -ident(println) ident(cap)operator(.)ident(size)operator(()operator(\)) -comment(// => 2 2 3 3 5) - -comment(// diophantine) -comment(// solve for 12x + 15y + 16z = 281, maximizing x) -keyword(if) operator(()operator(()ident(m) operator(=) operator(()string<delimiter(')content(o)delimiter(')> operator(*) integer(281)operator(\)) operator(=~) regexp<delimiter(/)content(^(o*\))char(\\1)content({11}(o*\))char(\\2)content({14}(o*\))char(\\3)content({15})content($)delimiter(/)>operator(\))operator(\)) operator({) - ident(x)operator(=)ident(m)operator([)integer(0)operator(])operator([)integer(1)operator(])operator(.)ident(size)operator(()operator(\))operator(;) ident(y)operator(=)ident(m)operator([)integer(0)operator(])operator([)integer(2)operator(])operator(.)ident(size)operator(()operator(\))operator(;) ident(z)operator(=)ident(m)operator([)integer(0)operator(])operator([)integer(3)operator(])operator(.)ident(size)operator(()operator(\)) - ident(println) string<delimiter(")content(One solution is: x=)inline<inline_delimiter($)ident(x)>content(; y=)inline<inline_delimiter($)ident(y)>content(; z=)inline<inline_delimiter($)ident(z)>delimiter(")> -operator(}) keyword(else) ident(println) string<delimiter(")content(No solution.)delimiter(")> -comment(// => One solution is: x=17; y=3; z=2) - -comment(// using different quantifiers:) -comment(// /^(o+\)\\1{11}(o+\)\\2{14}(o+\)\\3{15}$/) -comment(// => One solution is: x=17; y=3; z=2) - -comment(// /^(o*?\)\\1{11}(o*\)\\2{14}(o*\)\\3{15}$/) -comment(// => One solution is: x=0; y=7; z=11) - -comment(// /^(o+?\)\\1{11}(o*\)\\2{14}(o*\)\\3{15}$/) -comment(// => One solution is: x=1; y=3; z=14) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_6.17) -comment(//----------------------------------------------------------------------------------) -comment(// Groovy doesn't currently support x!~y so you must use the !(x=~y\) style) - -comment(// alpha OR beta) -keyword(assert) string<delimiter(')content(alpha)delimiter(')> operator(==~) regexp<delimiter(/)content(alpha|beta)delimiter(/)> -keyword(assert) string<delimiter(')content(beta)delimiter(')> operator(==~) regexp<delimiter(/)content(alpha|beta)delimiter(/)> -keyword(assert) string<delimiter(')content(betalpha)delimiter(')> operator(=~) regexp<delimiter(/)content(alpha)delimiter(/)> operator(||) string<delimiter(')content(betalpha)delimiter(')> operator(=~) regexp<delimiter(/)content(beta)delimiter(/)> - -comment(// alpha AND beta) -keyword(assert) operator(!)operator(()string<delimiter(')content(alpha)delimiter(')> operator(=~) regexp<delimiter(/)content((?=.*alpha\)(?=.*beta\))delimiter(/)>operator(\)) -keyword(assert) string<delimiter(')content(alphabeta)delimiter(')> operator(=~) regexp<delimiter(/)content((?=.*alpha\)(?=.*beta\))delimiter(/)> -keyword(assert) string<delimiter(')content(betalpha)delimiter(')> operator(=~) regexp<delimiter(/)content((?=.*alpha\)(?=.*beta\))delimiter(/)> -keyword(assert) string<delimiter(')content(betalpha)delimiter(')> operator(=~) regexp<delimiter(/)content(alpha)delimiter(/)> operator(&&) string<delimiter(')content(betalpha)delimiter(')> operator(=~) regexp<delimiter(/)content(beta)delimiter(/)> - -comment(// alpha AND beta, no overlap) -keyword(assert) string<delimiter(')content(alphabeta)delimiter(')> operator(=~) regexp<delimiter(/)content(alpha.*beta|beta.*alpha)delimiter(/)> -keyword(assert) operator(!)operator(()string<delimiter(')content(betalpha)delimiter(')> operator(=~) regexp<delimiter(/)content(alpha.*beta|beta.*alpha)delimiter(/)>operator(\)) - -comment(// NOT beta) -keyword(assert) string<delimiter(')content(alpha gamma)delimiter(')> operator(=~) regexp<delimiter(/)content(^(?:(?!beta\).\)*)content($)delimiter(/)> -keyword(assert) operator(!)operator(()string<delimiter(')content(alpha beta gamma)delimiter(')> operator(=~) regexp<delimiter(/)content(^(?:(?!beta\).\)*)content($)delimiter(/)>operator(\)) - -comment(// NOT bad BUT good) -keyword(assert) operator(!)operator(()string<delimiter(')content(GOOD and BAD)delimiter(')> operator(=~) regexp<delimiter(/)content((?=(?:(?!BAD\).\)*)content($)content(\)GOOD)delimiter(/)>operator(\)) -keyword(assert) operator(!)operator(()string<delimiter(')content(BAD)delimiter(')> operator(=~) regexp<delimiter(/)content((?=(?:(?!BAD\).\)*)content($)content(\)GOOD)delimiter(/)>operator(\)) -keyword(assert) operator(!)operator(()string<delimiter(')content(WORSE)delimiter(')> operator(=~) regexp<delimiter(/)content((?=(?:(?!BAD\).\)*)content($)content(\)GOOD)delimiter(/)>operator(\)) -keyword(assert) string<delimiter(')content(GOOD)delimiter(')> operator(=~) regexp<delimiter(/)content((?=(?:(?!BAD\).\)*)content($)content(\)GOOD)delimiter(/)> - -comment(// minigrep could be done as a one-liner as follows) -comment(// groovy -p -e "if (line =~ /pat/\) return line" datafile) - -ident(string) operator(=) string<delimiter(')content(labelled)delimiter(')> -keyword(assert) ident(string) operator(=~) regexp<delimiter(/)content(^(?=.*bell\)(?=.*lab\))delimiter(/)> -keyword(assert) ident(string) operator(=~) regexp<delimiter(/)content(bell)delimiter(/)> operator(&&) ident(string) operator(=~) string<delimiter(')content(lab)delimiter(')> -ident(fakeAddress) operator(=) string<delimiter(")content(blah bell blah )delimiter(")> -ident(murrayHillRegex) operator(=) string<delimiter(''')content((?x\) - ^ # start of string - (?= # zero-width lookahead - .* # any amount of intervening stuff - bell # the desired bell string - \) # rewind, since we were only looking - (?= # and do the same thing - .* # any amount of intervening stuff - lab # and the lab part - \) -)delimiter(''')> -keyword(assert) ident(string) operator(=~) ident(murrayHillRegex) -keyword(assert) operator(!)operator(()ident(fakeAddress) operator(=~) ident(murrayHillRegex)operator(\)) - -comment(// eliminate overlapping) -keyword(assert) operator(!)operator(()ident(string) operator(=~) regexp<delimiter(/)content((?:^.*bell.*lab\)|(?:^.*lab.*bell\))delimiter(/)>operator(\)) - -ident(brandRegex) operator(=) string<delimiter(''')content((?x\) - (?: # non-capturing grouper - ^ .*? # any amount of stuff at the front - bell # look for a bell - .*? # followed by any amount of anything - lab # look for a lab - \) # end grouper - | # otherwise, try the other direction - (?: # non-capturing grouper - ^ .*? # any amount of stuff at the front - lab # look for a lab - .*? # followed by any amount of anything - bell # followed by a bell - \) # end grouper -)delimiter(''')> -keyword(assert) operator(!)operator(()ident(string) operator(=~) ident(brandRegex)operator(\)) - -ident(map) operator(=) string<delimiter(')content(the great baldo)delimiter(')> - -keyword(assert) ident(map) operator(=~) regexp<delimiter(/)content(^(?:(?!waldo\).\)*)content($)delimiter(/)> -ident(noWaldoRegex) operator(=) string<delimiter(''')content((?x\) - ^ # start of string - (?: # non-capturing grouper - (?! # look ahead negation - waldo # is he ahead of us now? - \) # is so, the negation failed - . # any character (cuzza /s\) - \) * # repeat that grouping 0 or more - $ # through the end of the string -)delimiter(''')> -keyword(assert) ident(map) operator(=~) ident(noWaldoRegex) - -comment(// on unix systems use: realFakedInput = 'w'.process(\).text) -ident(fakedInput) operator(=) string<delimiter(''')content( - 7:15am up 206 days, 13:30, 4 users, load average: 1.04, 1.07, 1.04 -USER TTY FROM LOGIN@ IDLE JCPU PCPU WHAT -tchrist tty1 5:16pm 36days 24:43 0.03s xinit -tchrist tty2 5:19pm 6days 0.43s 0.43s -tcsh -tchrist ttyp0 chthon 7:58am 3days 23.44s 0.44s -tcsh -gnat ttyS4 coprolith 2:01pm 13:36m 0.30s 0.30s -tcsh -)delimiter(''')>operator(.)ident(trim)operator(()operator(\)) operator(+) string<delimiter(')content(\\n)delimiter(')> - -keyword(def) method(miniGrepMethod)operator(()ident(input)operator(\)) operator({) - ident(input)operator(.)ident(split)operator(()string<delimiter(')content(\\n)delimiter(')>operator(\))operator(.)ident(findAll)operator({)local_variable(it) operator(=~) string<delimiter(')content(^(?!.*ttyp\).*tchrist)delimiter(')>operator(}) -operator(}) -keyword(assert) ident(miniGrepMethod)operator(()ident(fakedInput)operator(\))operator(.)ident(size)operator(()operator(\)) operator(==) integer(2) - -ident(findUserRegex) operator(=) string<delimiter(''')content((?xm\) - ^ # anchored to the start - (?! # zero-width look-ahead assertion - .* # any amount of anything (faster than .*?\) - ttyp # the string you don't want to find - \) # end look-ahead negation; rewind to start - .* # any amount of anything (faster than .*?\) - tchrist # now try to find Tom -)delimiter(''')> -keyword(assert) operator(()ident(fakedInput) operator(=~) ident(findUserRegex)operator(\))operator(.)ident(count) operator(==) integer(2) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_6.18) -comment(//----------------------------------------------------------------------------------) -comment(// Groovy uses Unicode character encoding) -comment(// special care needs to be taken when using unicode because of the different) -comment(// byte lengths, e.g. à can be encoded as two bytes \\u0061\\u0300 and is also) -comment(// supported in legacy character sets by a single character \\u00E0. To Match) -comment(// this character, you can't use any of /./, /../, /a/, /\\u00E0/, /\\u0061/\\u0300) -comment(// or /\\pL/. The correct way is to use /X (not currently supported\) or one) -comment(// of /\\pL/\\pM*/ to ensure that it is a letter or /\\PM\\pM*/ when you just want) -comment(// to combine multicharacter sequences and don't care whether it is a letter) -keyword(def) method(checkUnicode)operator(()ident(s)operator(\)) operator({) - ident(println) ident(s) operator(+) string<delimiter(')content( is of size )delimiter(')> operator(+) ident(s)operator(.)ident(size)operator(()operator(\)) - ident(println) string<delimiter(')content(Exactly matches /./ )delimiter(')> operator(+) operator(()ident(s) operator(==~) regexp<delimiter(/)content(.)delimiter(/)>operator(\)) - ident(println) string<delimiter(')content(Exactly matches /../ )delimiter(')> operator(+) operator(()ident(s) operator(==~) regexp<delimiter(/)content(..)delimiter(/)>operator(\)) - ident(println) string<delimiter(')content(Exactly matches /a/ )delimiter(')> operator(+) operator(()ident(s) operator(==~) regexp<delimiter(/)content(a)delimiter(/)>operator(\)) - ident(println) string<delimiter(')content(Exactly matches /)char(\\\\)content(u00E0/ )delimiter(')> operator(+) operator(()ident(s) operator(==~) regexp<delimiter(/)char(\\u00E0)delimiter(/)>operator(\)) - ident(println) string<delimiter(')content(Exactly matches /)char(\\\\)content(u0061)char(\\\\)content(u0300/ )delimiter(')> operator(+) operator(()ident(s) operator(==~) regexp<delimiter(/)char(\\u0061)char(\\u0300)delimiter(/)>operator(\)) - ident(println) string<delimiter(')content(Exactly matches /)char(\\\\)content(pL/ )delimiter(')> operator(+) operator(()ident(s) operator(==~) regexp<delimiter(/)content(\\p)content(L)delimiter(/)>operator(\)) - ident(println) string<delimiter(')content(Exactly matches /)char(\\\\)content(pL)char(\\\\)content(pM*/ )delimiter(')> operator(+) operator(()ident(s) operator(==~) regexp<delimiter(/)content(\\p)content(L)content(\\p)content(M*)delimiter(/)>operator(\)) - ident(println) string<delimiter(')content(Exactly matches /)char(\\\\)content(PM)char(\\\\)content(pM*/ )delimiter(')> operator(+) operator(()ident(s) operator(==~) regexp<delimiter(/)content(\\P)content(M)content(\\p)content(M*)delimiter(/)>operator(\)) -operator(}) -ident(checkUnicode)operator(()string<delimiter(')content(à )delimiter(')>operator(\)) -ident(checkUnicode)operator(()string<delimiter(')content(\\u0061\\u0300)delimiter(')>operator(\)) -ident(checkUnicode)operator(()string<delimiter(')content(\\u00E0)delimiter(')>operator(\)) -comment(// =>) -comment(// à is of size 1) -comment(// Exactly matches /./ true) -comment(// Exactly matches /../ false) -comment(// Exactly matches /a/ false) -comment(// Exactly matches /\\u00E0/ true) -comment(// Exactly matches /\\u0061\\u0300/ false) -comment(// Exactly matches /\\pL/ true) -comment(// Exactly matches /\\pL\\pM*/ true) -comment(// Exactly matches /\\PM\\pM*/ true) -comment(// a? is of size 2) -comment(// Exactly matches /./ false) -comment(// Exactly matches /../ true) -comment(// Exactly matches /a/ false) -comment(// Exactly matches /\\u00E0/ false) -comment(// Exactly matches /\\u0061\\u0300/ true) -comment(// Exactly matches /\\pL/ false) -comment(// Exactly matches /\\pL\\pM*/ true) -comment(// Exactly matches /\\PM\\pM*/ true) -comment(// à is of size 1) -comment(// Exactly matches /./ true) -comment(// Exactly matches /../ false) -comment(// Exactly matches /a/ false) -comment(// Exactly matches /\\u00E0/ true) -comment(// Exactly matches /\\u0061\\u0300/ false) -comment(// Exactly matches /\\pL/ true) -comment(// Exactly matches /\\pL\\pM*/ true) -comment(// Exactly matches /\\PM\\pM*/ true) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_6.19) -comment(//----------------------------------------------------------------------------------) -comment(// The Perl Cookbook categorizes this as a hard problem ... mostly for) -comment(// reasons not related to the actual regex - but with a 60-line regex) -comment(// perhaps there are some issues with that too. Further details:) -comment(// http://www.perl.com/CPAN/authors/Tom_Christiansen/scripts/ckaddr.gz) - -ident(simpleCommentStripper) operator(=) regexp<delimiter(/)content(\\()content([^(\)]*)content(\\\))delimiter(/)> -ident(println) string<delimiter(')content(Book Publishing <marketing@books.com> (We will spam you\))delimiter(')>operator(.)ident(replaceAll)operator(()ident(simpleCommentStripper)operator(,) string<delimiter(')delimiter(')>operator(\)) -comment(// => Book Publishing <marketing@books.com>) - -comment(// inspired by the fact that domain names can contain any foreign character these days) -ident(modern) operator(=) regexp<delimiter(/)content(^.+@[^)content(\\.)content(].*)content(\\.)content([a-z]{2,}>?)content($)delimiter(/)> - -comment(// .Net ) -ident(lenient) operator(=) regexp<delimiter(/)char(\\w)content(+([-+.])char(\\w)content(+\)*@)char(\\w)content(+([-.])char(\\w)content(+\)*)content(\\.)char(\\w)content(+([-.])char(\\w)content(+\)*)delimiter(/)> - -comment(// a little more checking) -ident(strict) operator(=) regexp<delimiter(/)content(^[_a-zA-Z0-9- <]+()content(\\.)content([_a-zA-Z0-9- <]+\)*@[a-zA-Z0-9-]+()content(\\.)content([a-zA-Z0-9-]+\)*)content(\\.)delimiter(/)> operator(+) - regexp<delimiter(/)content((([0-9]{1,3}\)|([a-zA-Z]{2,3}\)|(aero|coop|info|museum|name\)\)>?)content($)delimiter(/)> - -ident(addresses) operator(=) operator([)string<delimiter(')content(someuser@somehost.com)delimiter(')>operator(,) - string<delimiter(')content(Book Publishing <marketing@books.com>)delimiter(')>operator(]) -ident(addresses)operator(.)ident(each)operator({) - keyword(assert) local_variable(it) operator(=~) ident(lenient) - keyword(assert) local_variable(it) operator(=~) ident(strict) - keyword(assert) local_variable(it) operator(=~) ident(modern) -operator(}) - -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_6.20) -comment(//----------------------------------------------------------------------------------) -keyword(def) method(findAction)operator(()ident(ans)operator(\)) operator({) - keyword(def) ident(re) operator(=) string<delimiter(')content((?i\)^)delimiter(')> operator(+) pre_type(Pattern)operator(.)ident(quote)operator(()ident(ans)operator(\)) - keyword(if) operator(()string<delimiter(")content(SEND)delimiter(")> operator(=~) ident(re)operator(\)) ident(println) string<delimiter(")content(Action is send)delimiter(")> - keyword(else) keyword(if) operator(()string<delimiter(")content(STOP)delimiter(")> operator(=~) ident(re)operator(\)) ident(println) string<delimiter(")content(Action is stop)delimiter(")> - keyword(else) keyword(if) operator(()string<delimiter(")content(ABORT)delimiter(")> operator(=~) ident(re)operator(\)) ident(println) string<delimiter(")content(Action is abort)delimiter(")> - keyword(else) keyword(if) operator(()string<delimiter(")content(EDIT)delimiter(")> operator(=~) ident(re)operator(\)) ident(println) string<delimiter(")content(Action is edit)delimiter(")> - keyword(else) ident(println) string<delimiter(')content(No Match)delimiter(')> -operator(}) -ident(findAction)operator(()string<delimiter(')content(edit something)delimiter(')>operator(\)) -comment(// => No Match) -ident(findAction)operator(()string<delimiter(')content(edit)delimiter(')>operator(\)) -comment(// => Action is edit) -ident(findAction)operator(()string<delimiter(')content(se)delimiter(')>operator(\)) -comment(// => Action is send) -ident(findAction)operator(()string<delimiter(')content(e)delimiter(')>operator(\)) -comment(// => Action is edit) - -keyword(def) method(buildAbbrev)operator(()ident(words)operator(\)) operator({) - keyword(def) ident(table) operator(=) keyword(new) pre_type(TreeMap)operator(()operator(\)) - ident(words)operator(.)ident(each)operator({) ident(w) operator(->) - operator(()integer(0)operator(..<)ident(w)operator(.)ident(size)operator(()operator(\))operator(\))operator(.)ident(each) operator({) ident(n) operator(->) - keyword(if) operator(()operator(!)operator(()ident(words) operator(-) ident(w)operator(\))operator(.)ident(any)operator({) - local_variable(it)operator(.)ident(size)operator(()operator(\)) operator(>=) ident(n)operator(+)integer(1) operator(&&) local_variable(it)operator([)integer(0)operator(..)ident(n)operator(]) operator(==) ident(w)operator([)integer(0)operator(..)ident(n)operator(]) - operator(})operator(\)) ident(table)operator([)ident(w)operator([)integer(0)operator(..)ident(n)operator(])operator(]) operator(=) ident(w) - operator(}) - operator(}) - ident(table) -operator(}) -ident(println) ident(buildAbbrev)operator(()string<delimiter(')content(send stop abort edit)delimiter(')>operator(.)ident(split)operator(()string<delimiter(')content( )delimiter(')>operator(\))operator(.)ident(toList)operator(()operator(\))operator(\)) -comment(// => ["a":"abort", "ab":"abort", "abo":"abort", "abor":"abort", "abort":"abort",) -comment(// "e":"edit", "ed":"edit", "edi":"edit", "edit":"edit", "se":"send", "sen":"send",) -comment(// "send":"send", "st":"stop", "sto":"stop", "stop":"stop"]) - -comment(// miniShellScript:) -comment(// dummy methods) -keyword(def) method(invokeEditor)operator(()operator(\)) operator({) ident(println) string<delimiter(")content(invoking editor)delimiter(")> operator(}) -keyword(def) method(deliverMessage)operator(()operator(\)) operator({) ident(println) string<delimiter(")content(delivering message at )delimiter(")> operator(+) keyword(new) pre_type(Date)operator(()operator(\)) operator(}) -ident(actions) operator(=) operator([) - key(edit)operator(:) local_variable(this)operator(.)operator(&)ident(invokeEditor)operator(,) - key(send)operator(:) local_variable(this)operator(.)operator(&)ident(deliverMessage)operator(,) - key(list)operator(:) operator({) ident(println) pre_type(Runtime)operator(.)ident(runtime)operator(.)ident(freeMemory)operator(()operator(\)) operator(})operator(,) - key(abort)operator(:) operator({) pre_type(System)operator(.)ident(exit)operator(()integer(0)operator(\)) operator(})operator(,) - key(unknown)operator(:) operator({) ident(println) string<delimiter(")content(Unknown Command)delimiter(")>operator(}) -operator(]) - -ident(table) operator(=) ident(buildAbbrev)operator(()ident(actions)operator(.)ident(keySet)operator(()operator(\))operator(.)ident(toList)operator(()operator(\))operator(\)) -ident(prompt) operator(=) string<delimiter(')content(\\n> )delimiter(')> -ident(print) string<delimiter(')content(Enter Commands: edit send list abort)delimiter(')> operator(+) ident(prompt) -keyword(new) pre_type(BufferedReader)operator(()keyword(new) pre_type(InputStreamReader)operator(()pre_type(System)operator(.)ident(in)operator(\))operator(\))operator(.)ident(eachLine)operator({) ident(line) operator(->) - keyword(def) ident(idx) operator(=) operator(()ident(table)operator(.)ident(containsKey)operator(()ident(line)operator(\))operator(\)) operator(?) ident(table)operator([)ident(line)operator(]) operator(:) string<delimiter(')content(unknown)delimiter(')> - ident(actions)operator([)ident(idx)operator(])operator(()operator(\)) - ident(print) ident(prompt) -operator(}) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_6.21) -comment(//----------------------------------------------------------------------------------) -comment(//% gunzip -c ~/mail/archive.gz | urlify > archive.urlified) -comment(//% urlify ~/mail/*.inbox > ~/allmail.urlified) - -ident(urls) operator(=) string<delimiter(')content((https?|telnet|gopher|file|wais|ftp|mail\))delimiter(')> -ident(ltrs) operator(=) regexp<delimiter(/)char(\\w)delimiter(/)> -ident(gunk) operator(=) regexp<delimiter(/)content(\\#)char(\\/)content(~:.?+=&%@!)content(\\-)delimiter(/)> -ident(punc) operator(=) regexp<delimiter(/)content(.:?)content(\\-)delimiter(/)> -ident(doll) operator(=) regexp<delimiter(/)content($)delimiter(/)> -ident(all) operator(=) regexp<delimiter(/)inline<inline_delimiter($)ident(ltrs)>inline<inline_delimiter($)ident(gunk)>inline<inline_delimiter($)ident(punc)>delimiter(/)> - -ident(findUrls) operator(=) string<delimiter(""")content((?ix\) - )char(\\\\)content(b # start at word boundary - ( # begin group 1 { - )inline<inline_delimiter($)ident(urls)>content( : # need resource and a colon - [)inline<inline_delimiter($)ident(all)>content(] +? # followed by on or more of any valid - # character, but be conservative and - # take only what you need to... - \) # end group 1 } - (?= # look-ahead non-consumptive assertion - [)inline<inline_delimiter($)ident(punc)>content(]* # either 0 or more punctuation - [^)inline<inline_delimiter($)ident(all)>content(] # followed by a non-url character - | # or else - )inline<inline_delimiter($)ident(doll)>content( # then end of the string - \) -)delimiter(""")> - -ident(input) operator(=) string<delimiter(''')content( -If you find a typo on http://groovy.codehaus.org please -send an email to mail:spelling.pedant@codehaus.org -)delimiter(''')> - -ident(println) ident(input)operator(.)ident(replaceAll)operator(()ident(findUrls)operator(,)string<delimiter(')content(<a href="$1">$1</a>)delimiter(')>operator(\)) -comment(// =>) -comment(// If you find a typo on <a href="http://groovy.codehaus.org">http://groovy.codehaus.org</a> please) -comment(// send an email to <a href="mail:spelling.pedant@codehaus.org">mail:spelling.pedant@codehaus.org</a>) - -comment(// urlifyScript:) -doctype(#!/usr/bin/groovy) -comment(// urlify - wrap HTML links around URL-like constructs) -comment(// definitions from above) -ident(args)operator(.)ident(each)operator({) ident(file) operator(->) - keyword(new) pre_type(File)operator(()ident(file)operator(\))operator(.)ident(eachLine)operator({) ident(line) operator(->) - ident(println) ident(line)operator(.)ident(replaceAll)operator(()ident(findUrls)operator(,)string<delimiter(')content(<a href="$1">$1</a>)delimiter(')>operator(\)) - operator(}) -operator(}) - -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_6.22) -comment(//----------------------------------------------------------------------------------) -comment(// @@INCOMPLETE@@) -comment(// @@INCOMPLETE@@) - -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_6.23) -comment(//----------------------------------------------------------------------------------) -ident(romans) operator(=) regexp<delimiter(/)content((?i\)^m*(d?c{0,3}|c[dm]\)(l?x{0,3}|x[lc]\)(v?i{0,3}|i[vx]\))content($)delimiter(/)> -keyword(assert) string<delimiter(')content(cmxvi)delimiter(')> operator(=~) ident(romans) -comment(// can't have tens before 1000s (M\) or 100s (C\) after 5s (V\)) -keyword(assert) operator(!)operator(()string<delimiter(')content(xmvci)delimiter(')> operator(=~) ident(romans)operator(\)) - -comment(// swap first two words) -keyword(assert) string<delimiter(')content(the words)delimiter(')>operator(.)ident(replaceAll)operator(()regexp<delimiter(/)content(()char(\\S)content(+\)()char(\\s)content(+\)()char(\\S)content(+\))delimiter(/)>operator(,) string<delimiter(')content($3$2$1)delimiter(')>operator(\)) operator(==) string<delimiter(')content(words the)delimiter(')> - -comment(// extract keyword and value) -ident(m) operator(=) string<delimiter(')content(k=v)delimiter(')> operator(=~) regexp<delimiter(/)content(()char(\\w)content(+\))char(\\s)content(*=)char(\\s)content(*(.*\))char(\\s)content(*)content($)delimiter(/)> -keyword(assert) ident(m)operator(.)ident(matches)operator(()operator(\)) -keyword(assert) ident(m)operator([)integer(0)operator(])operator([)integer(1)operator(]) operator(==) string<delimiter(')content(k)delimiter(')> -keyword(assert) ident(m)operator([)integer(0)operator(])operator([)integer(2)operator(]) operator(==) string<delimiter(')content(v)delimiter(')> - -ident(hasAtLeastSize) operator(=) operator({) ident(n) operator(->) regexp<delimiter(/)content(.{)inline<inline_delimiter($)ident(n)>content(,})delimiter(/)> operator(}) -keyword(assert) string<delimiter(')content(abcdefghijklmnopqrstuvwxyz)delimiter(')> operator(=~) ident(hasAtLeastSize)operator(()integer(20)operator(\)) - -comment(// MM/DD/YY HH:MM:SS (lenient - doesn't check HH > 23 etc\)) -ident(d) operator(=) regexp<delimiter(/)char(\\d)content(+)delimiter(/)> -ident(datetime) operator(=) string<delimiter(")content(()inline<inline_delimiter($)ident(d)>content(\)/()inline<inline_delimiter($)ident(d)>content(\)/()inline<inline_delimiter($)ident(d)>content(\) ()inline<inline_delimiter($)ident(d)>content(\):()inline<inline_delimiter($)ident(d)>content(\):()inline<inline_delimiter($)ident(d)>content(\))delimiter(")> -keyword(assert) string<delimiter(')content(04/05/2006 10:26:59)delimiter(')> operator(=~) ident(datetime) - -ident(orig) operator(=) string<delimiter(')content(/usr/bin/vi)delimiter(')> -ident(expected) operator(=) string<delimiter(')content(/usr/local/bin/vi)delimiter(')> -ident(orig)operator(.)ident(replaceAll)operator(()string<delimiter(')content(/usr/bin)delimiter(')>operator(,)string<delimiter(')content(/usr/local/bin)delimiter(')>operator(\)) operator(==) ident(expected) - -ident(escapeSequenceRegex) operator(=) regexp<delimiter(/)content(%([0-9A-Fa-f][0-9A-Fa-f]\))delimiter(/)> -ident(convertEscapeToChar) operator(=) operator({) pre_type(Object)type([]) ident(ch) operator(->) keyword(new) pre_type(Character)operator(()operator(()type(char)operator(\))pre_type(Integer)operator(.)ident(parseInt)operator(()ident(ch)operator([)integer(1)operator(])operator(,)integer(16)operator(\))operator(\)) operator(}) -keyword(assert) string<delimiter(')content(abc%3cdef)delimiter(')>operator(.)ident(replaceAll)operator(()ident(escapeSequenceRegex)operator(,) ident(convertEscapeToChar)operator(\)) operator(==) string<delimiter(')content(abc<def)delimiter(')> - -ident(commentStripper) operator(=) string<delimiter(''')content((?xms\) - /)char(\\\\)content(* # Match the opening delimiter - .* # Match a minimal number of characters */ - )char(\\\\)content(*/ # Match the closing delimiter -)delimiter(''')> - -ident(input) operator(=) string<delimiter(''')content( -a line -/* -some comment -*/ -another line -)delimiter(''')> -ident(expected) operator(=) string<delimiter(''')content( -a line - -another line -)delimiter(''')> - -keyword(assert) ident(input)operator(.)ident(replaceAll)operator(()ident(commentStripper)operator(,)string<delimiter(')delimiter(')>operator(\)) operator(==) ident(expected) - -comment(// emulate s.trim(\)) -keyword(assert) string<delimiter(')content( x y )delimiter(')>operator(.)ident(replaceAll)operator(()regexp<delimiter(/)content(^)char(\\s)content(+)delimiter(/)>operator(,) string<delimiter(')delimiter(')>operator(\))operator(.)ident(replaceAll)operator(()regexp<delimiter(/)char(\\s)content(+)content($)delimiter(/)>operator(,) string<delimiter(')delimiter(')>operator(\)) operator(==) string<delimiter(')content(x y)delimiter(')> - -comment(// convert \\\\n into \\n) -keyword(assert) operator(()regexp<delimiter(/)content(a)char(\\n)content(b)delimiter(/)>operator(.)ident(replaceAll)operator(()regexp<delimiter(/)char(\\\\)content(n)delimiter(/)>operator(,)string<delimiter(")char(\\n)delimiter(")>operator(\)) operator(==) string<delimiter(')content(a\\nb)delimiter(')>operator(\)) - -comment(// remove package symbol (Groovy/Java doesn't use this as package symbol\)) -keyword(assert) string<delimiter(')content(A::B)delimiter(')>operator(.)ident(replaceAll)operator(()regexp<delimiter(/)content(^.*::)delimiter(/)>operator(,) string<delimiter(')delimiter(')>operator(\)) operator(==) string<delimiter(')content(B)delimiter(')> - -comment(// match IP Address (requires leading 0's\)) -ident(ipregex) operator(=) regexp<delimiter(/)content(^([01]?)char(\\d)char(\\d)content(|2[0-4])char(\\d)content(|25[0-5]\))content(\\.)content(([01]?)char(\\d)char(\\d)content(|2[0-4])char(\\d)content(|25[0-5]\))content(\\.)delimiter(/)> operator(+) - regexp<delimiter(/)content(([01]?)char(\\d)char(\\d)content(|2[0-4])char(\\d)content(|25[0-5]\))content(\\.)content(([01]?)char(\\d)char(\\d)content(|2[0-4])char(\\d)content(|25[0-5]\))content($)delimiter(/)> -keyword(assert) operator(!)operator(()string<delimiter(')content(123.456.789)delimiter(')> operator(=~) ident(ipregex)operator(\)) -keyword(assert) string<delimiter(')content(192.168.000.001)delimiter(')> operator(=~) ident(ipregex) - -comment(// extract basename) -keyword(assert) string<delimiter(')content(c:/usr/temp.txt)delimiter(')>operator(.)ident(replaceAll)operator(()regexp<delimiter(/)content(^.*)char(\\/)content({1})delimiter(/)>operator(,) string<delimiter(')delimiter(')>operator(\)) operator(==) string<delimiter(')content(temp.txt)delimiter(')> - -ident(termcap) operator(=) string<delimiter(')content(:co#80:li#24:)delimiter(')> -ident(m) operator(=) operator(()ident(termcap) operator(=~) regexp<delimiter(/)content(:co)content(\\#)content(()char(\\d)content(+\):)delimiter(/)>operator(\)) -keyword(assert) ident(m)operator(.)ident(count) operator(==) integer(1) -keyword(assert) ident(m)operator([)integer(0)operator(])operator([)integer(1)operator(]) operator(==) string<delimiter(')content(80)delimiter(')> - -keyword(assert) string<delimiter(')content(cmd c:/tmp/junk.txt)delimiter(')>operator(.)ident(replaceAll)operator(()regexp<delimiter(/)content( )char(\\S)content(+)char(\\/)content({1})delimiter(/)>operator(,) string<delimiter(')content( )delimiter(')>operator(\)) operator(==) string<delimiter(')content(cmd junk.txt)delimiter(')> - -ident(os) operator(=) pre_type(System)operator(.)ident(getProperty)operator(()string<delimiter(')content(os.name)delimiter(')>operator(\)) -ident(println) string<delimiter(')content(Is Linux? )delimiter(')> operator(+) operator(()ident(os) operator(==~) regexp<delimiter(/)content((?i\)linux.*)delimiter(/)>operator(\)) -ident(println) string<delimiter(')content(Is Windows? )delimiter(')> operator(+) operator(()ident(os) operator(==~) regexp<delimiter(/)content((?i\)windows.*)delimiter(/)>operator(\)) -ident(println) string<delimiter(')content(Is Mac? )delimiter(')> operator(+) operator(()ident(os) operator(==~) regexp<delimiter(/)content((?i\)mac.*)delimiter(/)>operator(\)) - -comment(// join multiline sting) -ident(multi) operator(=) string<delimiter(''')content( -This is - a test -)delimiter(''')>operator(.)ident(trim)operator(()operator(\)) -keyword(assert) ident(multi)operator(.)ident(replaceAll)operator(()regexp<delimiter(/)content((?m\))char(\\n)char(\\s)content(+)delimiter(/)>operator(,) string<delimiter(')content( )delimiter(')>operator(\)) operator(==) string<delimiter(')content(This is a test)delimiter(')> - -comment(// nums in string) -ident(string) operator(=) string<delimiter(')content(The 5th test was won today by 10 wickets after 10.5 overs)delimiter(')> -ident(nums) operator(=) ident(string) operator(=~) regexp<delimiter(/)content(()char(\\d)content(+)content(\\.)content(?)char(\\d)content(*|)content(\\.)char(\\d)content(+\))delimiter(/)> -keyword(assert) operator(()integer(0)operator(..<)ident(nums)operator(.)ident(count)operator(\))operator(.)ident(collect)operator({) ident(nums)operator([)local_variable(it)operator(])operator([)integer(1)operator(]) operator(})operator(.)ident(join)operator(()string<delimiter(')content( )delimiter(')>operator(\)) operator(==) string<delimiter(')content(5 10 10.5)delimiter(')> - -comment(// capitalize words) -ident(words) operator(=) string<delimiter(')content(the Capital words ARE hiding)delimiter(')> -ident(capwords) operator(=) ident(words) operator(=~) regexp<delimiter(/)content(()char(\\b)content(\\p)content({Upper}+)char(\\b)content(\))delimiter(/)> -keyword(assert) operator(()integer(0)operator(..<)ident(capwords)operator(.)ident(count)operator(\))operator(.)ident(collect)operator({) ident(capwords)operator([)local_variable(it)operator(])operator([)integer(1)operator(]) operator(})operator(.)ident(join)operator(()string<delimiter(')content( )delimiter(')>operator(\)) operator(==) string<delimiter(')content(ARE)delimiter(')> - -ident(lowords) operator(=) ident(words) operator(=~) regexp<delimiter(/)content(()char(\\b)content(\\p)content({Lower}+)char(\\b)content(\))delimiter(/)> -keyword(assert) operator(()integer(0)operator(..<)ident(lowords)operator(.)ident(count)operator(\))operator(.)ident(collect)operator({) ident(lowords)operator([)local_variable(it)operator(])operator([)integer(1)operator(]) operator(})operator(.)ident(join)operator(()string<delimiter(')content( )delimiter(')>operator(\)) operator(==) string<delimiter(')content(the words hiding)delimiter(')> - -ident(capWords) operator(=) ident(words) operator(=~) regexp<delimiter(/)content(()char(\\b)content(\\p)content({Upper})content(\\p)content({Lower}*)char(\\b)content(\))delimiter(/)> -keyword(assert) operator(()integer(0)operator(..<)ident(capWords)operator(.)ident(count)operator(\))operator(.)ident(collect)operator({) ident(capWords)operator([)local_variable(it)operator(])operator([)integer(1)operator(]) operator(})operator(.)ident(join)operator(()string<delimiter(')content( )delimiter(')>operator(\)) operator(==) string<delimiter(')content(Capital)delimiter(')> - -ident(input) operator(=) string<delimiter(''')content( -If you find a typo on <a href="http://groovy.codehaus.org">http://groovy.codehaus.org</a> please -send an email to <a href="mail:spelling.pedant@codehaus.org">mail:spelling.pedant@codehaus.org</a> -)delimiter(''')> - -ident(linkRegex) operator(=) regexp<delimiter(/)content((?im\)<A[^>]+?HREF)char(\\s)content(*=)char(\\s)content(*["']?([^'" >]+?\)[ '"]?>)delimiter(/)> comment(//') -ident(links) operator(=) ident(input) operator(=~) ident(linkRegex) -operator(()integer(0)operator(..<)ident(links)operator(.)ident(count)operator(\))operator(.)ident(each)operator({) ident(println) ident(links)operator([)local_variable(it)operator(])operator([)integer(1)operator(]) operator(}) -comment(// =>) -comment(// http://groovy.codehaus.org) -comment(// mail:spelling.pedant@codehaus.org) - -comment(// find middle initial if any) -ident(m) operator(=) string<delimiter(')content(Lee Harvey Oswald)delimiter(')> operator(=~) regexp<delimiter(/)content(^)char(\\S)content(+)char(\\s)content(+()char(\\S)content(\))char(\\S)content(*)char(\\s)content(+)char(\\S)delimiter(/)> -ident(initial) operator(=) ident(m)operator(.)ident(count) operator(?) ident(m)operator([)integer(0)operator(])operator([)integer(1)operator(]) operator(:) string<delimiter(")delimiter(")> -keyword(assert) ident(initial) operator(==) string<delimiter(')content(H)delimiter(')> - -comment(// inch marks to quotes) -ident(println) string<delimiter(')content(I said "Hello" to you.)delimiter(')>operator(.)ident(replaceAll)operator(()regexp<delimiter(/)content("([^"]*\)")delimiter(/)>operator(,) regexp<delimiter(/)content(``)content($)content(1'')delimiter(/)>operator(\)) comment(//") -comment(// => I said ``Hello'' to you.) - -comment(// extract sentences (2 spaces or newline after punctuation\)) -ident(input) operator(=) string<delimiter(''')content( -Is this a sentence? -Yes! And so -is this. And the fourth. -)delimiter(''')> -ident(sentences) operator(=) type([]) -ident(strip) operator(=) ident(input)operator(.)ident(replaceAll)operator(()regexp<delimiter(/)content(()content(\\p)content({Punct}\))char(\\n)delimiter(/)>operator(,) string<delimiter(')content($1 )delimiter(')>operator(\))operator(.)ident(replaceAll)operator(()regexp<delimiter(/)char(\\n)delimiter(/)>operator(,) string<delimiter(')content( )delimiter(')>operator(\))operator(.)ident(replaceAll)operator(()regexp<delimiter(/)content( {3,})delimiter(/)>operator(,)string<delimiter(')content( )delimiter(')>operator(\)) -ident(m) operator(=) ident(strip) operator(=~) regexp<delimiter(/)content(()char(\\S)content(.*?)content(\\p)content({Punct}\)(?= |)content(\\Z)content(\))delimiter(/)> -operator(()integer(0)operator(..<)ident(m)operator(.)ident(count)operator(\))operator(.)ident(each)operator({) ident(sentences) operator(+=) ident(m)operator([)local_variable(it)operator(])operator([)integer(1)operator(]) operator(}) -keyword(assert) ident(sentences) operator(==) operator([)string<delimiter(")content(Is this a sentence?)delimiter(")>operator(,) string<delimiter(")content(Yes!)delimiter(")>operator(,) string<delimiter(")content(And so is this.)delimiter(")>operator(,) string<delimiter(")content(And the fourth.)delimiter(")>operator(]) - -comment(// YYYY-MM-DD) -ident(m) operator(=) string<delimiter(')content(2007-2-28)delimiter(')> operator(=~) regexp<delimiter(/)content(()char(\\d)content({4}\)-()char(\\d)char(\\d)content(?\)-()char(\\d)char(\\d)content(?\))delimiter(/)> -keyword(assert) ident(m)operator(.)ident(matches)operator(()operator(\)) -keyword(assert) operator([)string<delimiter(')content(2007)delimiter(')>operator(,) string<delimiter(')content(2)delimiter(')>operator(,) string<delimiter(')content(28)delimiter(')>operator(]) operator(==) operator([)ident(m)operator([)integer(0)operator(])operator([)integer(1)operator(])operator(,) ident(m)operator([)integer(0)operator(])operator([)integer(2)operator(])operator(,) ident(m)operator([)integer(0)operator(])operator([)integer(3)operator(])operator(]) - -ident(usPhoneRegex) operator(=) regexp<delimiter(/)content(^[01]?[- .]?()content(\\()content([2-9])char(\\d)content({2})content(\\\))content(|[2-9])char(\\d)content({2}\)[- .]?)char(\\d)content({3}[- .]?)char(\\d)content({4})content($)delimiter(/)> -ident(numbers) operator(=) string<delimiter(''')content( -(425\) 555-0123 -425-555-0123 -425 555 0123 -1-425-555-0123 -)delimiter(''')>operator(.)ident(trim)operator(()operator(\))operator(.)ident(split)operator(()string<delimiter(')content(\\n)delimiter(')>operator(\))operator(.)ident(toList)operator(()operator(\)) -keyword(assert) ident(numbers)operator(.)ident(every)operator({) local_variable(it) operator(==~) ident(usPhoneRegex) operator(}) - -ident(exclaimRegex) operator(=) regexp<delimiter(/)content((?i\))char(\\b)content(oh)char(\\s)content(+my)char(\\s)content(+gh?o(d(dess(es\)?|s?\)|odness|sh\))char(\\b)delimiter(/)> -keyword(assert) string<delimiter(')content(Oh my Goodness!)delimiter(')> operator(=~) ident(exclaimRegex) -keyword(assert) operator(!)operator(()string<delimiter(')content(Golly gosh)delimiter(')> operator(=~) ident(exclaimRegex)operator(\)) - -ident(input) operator(=) string<delimiter(')content(line 1\\rline 2\\nline\\r\\nline 3\\n\\rline 4)delimiter(')> -ident(m) operator(=) ident(input) operator(=~) regexp<delimiter(/)content((?m\)^([^)char(\\012)char(\\015)content(]*\)()char(\\012)char(\\015)content(?|)char(\\015)char(\\012)content(?\))delimiter(/)> -keyword(assert) ident(m)operator(.)ident(count) operator(==) integer(4) - - -comment(// @@PLEAC@@_6.22) -comment(// not an exact equivalent to original cookbook but has) -comment(// a reasonable subset of mostly similar functionality) -comment(// instead of -r recursion option, use Ant fileset wildcards) -comment(// e.g. **/*.c. You can also specify an excludes pattern) -comment(// e.g. **/*.* -X **/*.h will process all but header files) -comment(// (currently not optimised and with minimal error checking\)) -comment(// uses jopt-simple (jopt-simple.sf.net\)) - -ident(op) operator(=) keyword(new) ident(joptsimple)operator(.)ident(OptionParser)operator(()operator(\)) -ident(NOCASE) operator(=) string<delimiter(')content(i)delimiter(')>operator(;) ident(op)operator(.)ident(accepts)operator(() ident(NOCASE)operator(,) string<delimiter(")content(case insensitive)delimiter(")> operator(\)) -ident(WITHN) operator(=) string<delimiter(')content(n)delimiter(')>operator(;) ident(op)operator(.)ident(accepts)operator(() ident(WITHN)operator(,) string<delimiter(")content(display line/para with line/para number)delimiter(")> operator(\)) -ident(WITHF) operator(=) string<delimiter(')content(H)delimiter(')>operator(;) ident(op)operator(.)ident(accepts)operator(() ident(WITHF)operator(,) string<delimiter(")content(display line/para with filename)delimiter(")> operator(\)) -ident(NONAME) operator(=) string<delimiter(')content(h)delimiter(')>operator(;) ident(op)operator(.)ident(accepts)operator(() ident(NONAME)operator(,) string<delimiter(")content(hide filenames)delimiter(")> operator(\)) -ident(COUNT) operator(=) string<delimiter(')content(c)delimiter(')>operator(;) ident(op)operator(.)ident(accepts)operator(() ident(COUNT)operator(,) string<delimiter(")content(give count of lines/paras matching)delimiter(")> operator(\)) -ident(TCOUNT) operator(=) string<delimiter(')content(C)delimiter(')>operator(;) ident(op)operator(.)ident(accepts)operator(() ident(TCOUNT)operator(,) string<delimiter(")content(give count of total matches (multiple per line/para\))delimiter(")> operator(\)) -ident(WORD) operator(=) string<delimiter(')content(w)delimiter(')>operator(;) ident(op)operator(.)ident(accepts)operator(() ident(WORD)operator(,) string<delimiter(")content(word boundaries only)delimiter(")> operator(\)) -ident(EXACT) operator(=) string<delimiter(')content(x)delimiter(')>operator(;) ident(op)operator(.)ident(accepts)operator(() ident(EXACT)operator(,) string<delimiter(")content(exact matches only)delimiter(")> operator(\)) -ident(INVERT) operator(=) string<delimiter(')content(v)delimiter(')>operator(;) ident(op)operator(.)ident(accepts)operator(() ident(INVERT)operator(,) string<delimiter(")content(invert search sense (lines that DON'T match\))delimiter(")> operator(\)) -ident(EXCLUDE) operator(=) string<delimiter(')content(X)delimiter(')>operator(;) ident(op)operator(.)ident(accepts)operator(() ident(EXCLUDE)operator(,) string<delimiter(")content(exclude files matching pattern [default is '**/*.bak'])delimiter(")> operator(\))operator(.) - ident(withRequiredArg)operator(()operator(\))operator(.)ident(describedAs)operator(()string<delimiter(')content(path_pattern)delimiter(')>operator(\)) -ident(MATCH) operator(=) string<delimiter(')content(l)delimiter(')>operator(;) ident(op)operator(.)ident(accepts)operator(() ident(MATCH)operator(,) string<delimiter(")content(list names of files with matches)delimiter(")> operator(\)) -ident(NOMATCH) operator(=) string<delimiter(')content(L)delimiter(')>operator(;) ident(op)operator(.)ident(accepts)operator(() ident(NOMATCH)operator(,) string<delimiter(")content(list names of files with no match)delimiter(")> operator(\)) -ident(PARA) operator(=) string<delimiter(')content(p)delimiter(')>operator(;) ident(op)operator(.)ident(accepts)operator(() ident(PARA)operator(,) string<delimiter(")content(para mode (.* matches newlines\))delimiter(")> operator(\))operator(.) - ident(withOptionalArg)operator(()operator(\))operator(.)ident(describedAs)operator(()string<delimiter(')content(para_pattern)delimiter(')>operator(\)) -ident(EXPR) operator(=) string<delimiter(')content(e)delimiter(')>operator(;) ident(op)operator(.)ident(accepts)operator(() ident(EXPR)operator(,) string<delimiter(")content(expression (when pattern begins with '-'\))delimiter(")> operator(\))operator(.) - ident(withRequiredArg)operator(()operator(\))operator(.)ident(describedAs)operator(()string<delimiter(')content(pattern)delimiter(')>operator(\)) -ident(FILE) operator(=) string<delimiter(')content(f)delimiter(')>operator(;) ident(op)operator(.)ident(accepts)operator(() ident(FILE)operator(,) string<delimiter(")content(file containing pattern)delimiter(")> operator(\))operator(.) - ident(withRequiredArg)operator(()operator(\))operator(.)ident(describedAs)operator(()string<delimiter(')content(filename)delimiter(')>operator(\)) -ident(HELP) operator(=) string<delimiter(')content(help)delimiter(')>operator(;) ident(op)operator(.)ident(accepts)operator(() ident(HELP)operator(,) string<delimiter(")content(display this message)delimiter(")> operator(\)) - -ident(options) operator(=) ident(op)operator(.)ident(parse)operator(()ident(args)operator(\)) -ident(params) operator(=) ident(options)operator(.)ident(nonOptionArguments)operator(()operator(\)) -keyword(if) operator(()ident(options)operator(.)ident(wasDetected)operator(() ident(HELP) operator(\))operator(\)) operator({) - ident(op)operator(.)ident(printHelpOn)operator(() pre_type(System)operator(.)ident(out) operator(\)) -operator(}) keyword(else) keyword(if) operator(()ident(params)operator(.)ident(size)operator(()operator(\)) operator(==) integer(0)operator(\)) operator({) - ident(println) string<delimiter(")content(Usage: grep [OPTION]... PATTERN [FILE]...)char(\\n)content(Try 'grep --)inline<inline_delimiter($)ident(HELP)>content(' for more information.)delimiter(")> -operator(}) keyword(else) operator({) - ident(modifiers) operator(=) type([]) - ident(paraPattern) operator(=) string<delimiter(')delimiter(')> - ident(o_withn) operator(=) ident(options)operator(.)ident(wasDetected)operator(() ident(WITHN) operator(\)) - ident(o_withf) operator(=) ident(options)operator(.)ident(wasDetected)operator(() ident(WITHF) operator(\)) - ident(o_noname) operator(=) ident(options)operator(.)ident(wasDetected)operator(() ident(NONAME) operator(\)) - ident(o_count) operator(=) ident(options)operator(.)ident(wasDetected)operator(() ident(COUNT) operator(\)) - ident(o_tcount) operator(=) ident(options)operator(.)ident(wasDetected)operator(() ident(TCOUNT) operator(\)) - ident(o_invert) operator(=) ident(options)operator(.)ident(wasDetected)operator(() ident(INVERT) operator(\)) - ident(o_match) operator(=) ident(options)operator(.)ident(wasDetected)operator(() ident(MATCH) operator(\)) - ident(o_nomatch) operator(=) ident(options)operator(.)ident(wasDetected)operator(() ident(NOMATCH) operator(\)) - keyword(if) operator(()ident(options)operator(.)ident(wasDetected)operator(() ident(EXPR) operator(\))operator(\)) operator({) - ident(pattern) operator(=) ident(options)operator(.)ident(valueOf)operator(() ident(EXPR) operator(\)) - operator(}) keyword(else) keyword(if) operator(()ident(options)operator(.)ident(wasDetected)operator(() ident(FILE) operator(\))operator(\)) operator({) - ident(pattern) operator(=) keyword(new) pre_type(File)operator(()ident(options)operator(.)ident(valueOf)operator(() ident(FILE) operator(\))operator(\))operator(.)ident(text)operator(.)ident(trim)operator(()operator(\)) - operator(}) keyword(else) operator({) - ident(pattern) operator(=) ident(params)operator([)integer(0)operator(]) - ident(params) operator(=) ident(params)operator([)integer(1)operator(..)operator(-)integer(1)operator(]) - operator(}) - keyword(if) operator(()ident(options)operator(.)ident(wasDetected)operator(() ident(EXCLUDE) operator(\))operator(\)) ident(excludes) operator(=) ident(options)operator(.)ident(valueOf)operator(() ident(EXCLUDE) operator(\)) - keyword(else) ident(excludes) operator(=) operator([)string<delimiter(')content(**/*.bak)delimiter(')>operator(]) - keyword(if) operator(()ident(options)operator(.)ident(wasDetected)operator(() ident(EXACT) operator(\))operator(\)) ident(pattern) operator(=) string<delimiter(')content(^)delimiter(')> operator(+) ident(pattern) operator(+) string<delimiter(')content($)delimiter(')> - keyword(else) keyword(if) operator(()ident(options)operator(.)ident(wasDetected)operator(() ident(WORD) operator(\))operator(\)) ident(pattern) operator(=) regexp<delimiter(/)char(\\b)inline<inline_delimiter($)ident(pattern)>char(\\b)delimiter(/)> - keyword(if) operator(()ident(options)operator(.)ident(wasDetected)operator(() ident(NOCASE) operator(\))operator(\)) ident(modifiers) operator(+=) string<delimiter(')content(i)delimiter(')> - keyword(if) operator(()ident(options)operator(.)ident(wasDetected)operator(() ident(PARA) operator(\))operator(\)) operator({) - keyword(if) operator(()ident(options)operator(.)ident(hasArgument)operator(() ident(PARA) operator(\))operator(\)) ident(paraPattern) operator(=) ident(options)operator(.)ident(valueOf)operator(() ident(PARA) operator(\)) - keyword(else) ident(paraPattern) operator(=) string<delimiter(')content(^$)delimiter(')> - ident(paraPattern) operator(=) string<delimiter(')content((?sm\))delimiter(')> operator(+) ident(paraPattern) - ident(modifiers) operator(+=) string<delimiter(')content(sm)delimiter(')> - operator(}) - keyword(if) operator(()ident(modifiers)operator(\)) ident(pattern) operator(=) string<delimiter(")content((?)inline<inline_delimiter(${)ident(modifiers)operator(.)ident(join)operator(()operator(\))inline_delimiter(})>content(\))delimiter(")> operator(+) ident(pattern) - - keyword(if) operator(()ident(params)operator(.)ident(size)operator(()operator(\)) operator(==) integer(0)operator(\)) ident(grepStream)operator(()pre_type(System)operator(.)ident(in)operator(,) string<delimiter(')content(<stdin>)delimiter(')>operator(\)) - keyword(else) operator({) - ident(scanner) operator(=) keyword(new) ident(AntBuilder)operator(()operator(\))operator(.)ident(fileScanner) operator({) - ident(fileset)operator(()key(dir)operator(:)string<delimiter(')content(.)delimiter(')>operator(,) key(includes)operator(:)ident(params)operator(.)ident(join)operator(()string<delimiter(')content(,)delimiter(')>operator(\))operator(,) key(excludes)operator(:)ident(excludes)operator(\)) - operator(}) - keyword(for) operator(()ident(f) keyword(in) ident(scanner)operator(\)) operator({) - ident(grepStream)operator(()keyword(new) pre_type(FileInputStream)operator(()ident(f)operator(\))operator(,) ident(f)operator(\)) - operator(}) - operator(}) -operator(}) - -keyword(def) method(grepStream)operator(()ident(s)operator(,) ident(name)operator(\)) operator({) - keyword(def) ident(count) operator(=) integer(0) - keyword(def) ident(tcount) operator(=) integer(0) - keyword(def) ident(pieces) - keyword(if) operator(()ident(paraPattern)operator(\)) ident(pieces) operator(=) ident(s)operator(.)ident(text)operator(.)ident(split)operator(()ident(paraPattern)operator(\)) - keyword(else) ident(pieces) operator(=) ident(s)operator(.)ident(readLines)operator(()operator(\)) - keyword(def) ident(fileMode) operator(=) ident(o_match) operator(||) ident(o_nomatch) operator(||) ident(o_count) operator(||) ident(o_tcount) - ident(pieces)operator(.)ident(eachWithIndex)operator({)ident(line)operator(,) ident(index) operator(->) - keyword(def) ident(m) operator(=) ident(line) operator(=~) ident(pattern) - type(boolean) ident(found) operator(=) ident(m)operator(.)ident(count) - keyword(if) operator(()ident(found) operator(!=) ident(o_invert)operator(\)) operator({) - ident(count)operator(++) - ident(tcount) operator(+=) ident(m)operator(.)ident(count) - keyword(if) operator(()operator(!)ident(fileMode)operator(\)) operator({) - ident(linefields) operator(=) type([]) - keyword(if) operator(()ident(o_withf)operator(\)) ident(linefields) operator(+=) ident(name) - keyword(if) operator(()ident(o_withn)operator(\)) ident(linefields) operator(+=) ident(index) operator(+) integer(1) - ident(linefields) operator(+=) ident(line) - ident(println) ident(linefields)operator(.)ident(join)operator(()string<delimiter(')content(:)delimiter(')>operator(\)) - operator(}) - operator(}) - operator(}) - keyword(def) ident(display) operator(=) pre_constant(true) - keyword(if) operator(()operator(()ident(o_match) operator(&&) ident(count) operator(==) integer(0)operator(\)) operator(||) operator(()ident(o_nomatch) operator(&&) ident(count) operator(!=) integer(0)operator(\))operator(\)) ident(display) operator(=) pre_constant(false) - keyword(if) operator(()ident(fileMode) operator(&&) ident(display)operator(\)) operator({) - ident(filefields) operator(=) type([]) - keyword(if) operator(()operator(!)ident(o_noname)operator(\)) ident(filefields) operator(+=) ident(name) - keyword(if) operator(()ident(o_tcount)operator(\)) ident(filefields) operator(+=) ident(tcount) - keyword(else) keyword(if) operator(()ident(o_count)operator(\)) ident(filefields) operator(+=) ident(count) - ident(println) ident(filefields)operator(.)ident(join)operator(()string<delimiter(')content(:)delimiter(')>operator(\)) - operator(}) -operator(}) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_7.0) -comment(//----------------------------------------------------------------------------------) -comment(//testfile = new File('/usr/local/widgets/data'\) // unix) -ident(testfile) operator(=) keyword(new) pre_type(File)operator(()string<delimiter(')content(Pleac/data/blue.txt)delimiter(')>operator(\)) comment(// windows) -ident(testfile)operator(.)ident(eachLine)operator({) keyword(if) operator(()local_variable(it) operator(=~) regexp<delimiter(/)content(blue)delimiter(/)>operator(\)) ident(println) local_variable(it) operator(}) - -comment(// Groovy (like Java\) uses the File class as an abstraction for) -comment(// the path representing a potential file system resource.) -comment(// Channels and Streams (along with Reader adn Writer helper) -comment(// classes\) are used to read and write to files (and other) -comment(// things\). Files, channels, streams etc are all "normal") -comment(// objects; they can be passed around in your programs just) -comment(// like other objects (though there are some restrictions) -comment(// covered elsewhere - e.g. you can't expect to pass a File) -comment(// object between JVMs on different machines running different) -comment(// operating systems and expect them to maintain a meaningful) -comment(// value across the different JVMs\). In addition to Streams,) -comment(// there is also support for random access to files.) - -comment(// Many operations are available on streams and channels. Some) -comment(// return values to indicate success or failure, some can throw) -comment(// exceptions, other times both styles of error reporting may be) -comment(// available.) - -comment(// Streams at the lowest level are just a sequence of bytes though) -comment(// there are various abstractions at higher levels to allow) -comment(// interacting with streams at encoded character, data type or) -comment(// object levels if desired. Standard streams include System.in,) -comment(// System.out and System.err. Java and Groovy on top of that) -comment(// provide facilities for buffering, filtering and processing) -comment(// streams in various ways.) - -comment(// File channels provide more powerful operations than streams) -comment(// for reading and writing files such as locks, buffering,) -comment(// positioning, concurrent reading and writing, mapping to memory) -comment(// etc. In the examples which follow, streams will be used for) -comment(// simple cases, channels when more advanced features are) -comment(// required. Groovy currently focusses on providing extra support) -comment(// at the file and stream level rather than channel level.) -comment(// This makes the simple things easy but lets you do more complex) -comment(// things by just using the appropriate Java classes. All Java) -comment(// classes are available within Groovy by default.) - -comment(// Groovy provides syntactic sugar over the top of Java's file) -comment(// processing capabilities by providing meaning to shorthand) -comment(// operators and by automatically handling scaffolding type) -comment(// code such as opening, closing and handling exceptions behind) -comment(// the scenes. It also provides many powerful closure operators,) -comment(// e.g. file.eachLineMatch(pattern\){ some_operation } will open) -comment(// the file, process it line-by-line, finding all lines which) -comment(// match the specified pattern and then invoke some operation) -comment(// for the matching line(s\) if any, before closing the file.) - - -comment(// this example shows how to access the standard input stream) -comment(// numericCheckingScript:) -ident(prompt) operator(=) string<delimiter(')content(\\n> )delimiter(')> -ident(print) string<delimiter(')content(Enter text including a digit:)delimiter(')> operator(+) ident(prompt) -keyword(new) pre_type(BufferedReader)operator(()keyword(new) pre_type(InputStreamReader)operator(()pre_type(System)operator(.)ident(in)operator(\))operator(\))operator(.)ident(eachLine)operator({) ident(line) operator(->) - comment(// line is read from System.in) - keyword(if) operator(()ident(line) operator(=~) string<delimiter(')char(\\\\)content(d)delimiter(')>operator(\)) ident(println) string<delimiter(")content(Read: )inline<inline_delimiter($)ident(line)>delimiter(")> comment(// normal output to System.out) - keyword(else) pre_type(System)operator(.)ident(err)operator(.)ident(println) string<delimiter(')content(No digit found.)delimiter(')> comment(// this message to System.err) -operator(}) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_7.1) -comment(//----------------------------------------------------------------------------------) -comment(// test values (change for your os and directories\)) -ident(inputPath)operator(=)string<delimiter(')content(Pleac/src/pleac7.groovy)delimiter(')>operator(;) ident(outPath)operator(=)string<delimiter(')content(Pleac/temp/junk.txt)delimiter(')> - -comment(// For input Java uses InputStreams (for byte-oriented processing\) or Readers) -comment(// (for character-oriented processing\). These can throw FileNotFoundException.) -comment(// There are also other stream variants: buffered, data, filters, objects, ...) -ident(inputFile) operator(=) keyword(new) pre_type(File)operator(()ident(inputPath)operator(\)) -ident(inputStream) operator(=) keyword(new) pre_type(FileInputStream)operator(()ident(inputFile)operator(\)) -ident(reader) operator(=) keyword(new) pre_type(FileReader)operator(()ident(inputFile)operator(\)) -ident(inputChannel) operator(=) ident(inputStream)operator(.)ident(channel) - -comment(// Examples for random access to a file) -ident(file) operator(=) keyword(new) pre_type(RandomAccessFile)operator(()ident(inputFile)operator(,) string<delimiter(")content(rw)delimiter(")>operator(\)) comment(// for read and write) -ident(channel) operator(=) ident(file)operator(.)ident(channel) - -comment(// Groovy provides some sugar coating on top of Java) -ident(println) ident(inputFile)operator(.)ident(text)operator(.)ident(size)operator(()operator(\)) -comment(// => 13496) - -comment(// For output Java use OutputStreams or Writers. Can throw FileNotFound) -comment(// or IO exceptions. There are also other flavours of stream: buffered,) -comment(// data, filters, objects, ...) -ident(outFile) operator(=) keyword(new) pre_type(File)operator(()ident(outPath)operator(\)) -ident(appendFlag) operator(=) pre_constant(false) -ident(outStream) operator(=) keyword(new) pre_type(FileOutputStream)operator(()ident(outFile)operator(,) ident(appendFlag)operator(\)) -ident(writer) operator(=) keyword(new) pre_type(FileWriter)operator(()ident(outFile)operator(,) ident(appendFlag)operator(\)) -ident(outChannel) operator(=) ident(outStream)operator(.)ident(channel) - -comment(// Also some Groovy sugar coating) -ident(outFile) operator(<)operator(<) string<delimiter(')content(A Chinese sailing vessel)delimiter(')> -ident(println) ident(outFile)operator(.)ident(text)operator(.)ident(size)operator(()operator(\)) comment(// => 24) - -comment(// @@PLEAC@@_7.2) -comment(//----------------------------------------------------------------------------------) -comment(// No problem with Groovy since the filename doesn't contain characters with) -comment(// special meaning; like Perl's sysopen. Options are either additional parameters) -comment(// or captured in different classes, e.g. Input vs Output, Buffered vs non etc.) -keyword(new) pre_type(FileReader)operator(()ident(inputPath)operator(\)) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_7.3) -comment(//----------------------------------------------------------------------------------) -comment(// '~' is a shell expansion feature rather than file system feature per se.) -comment(// Because '~' is a valid filename character in some operating systems, and Java) -comment(// attempts to be cross-platform, it doesn't automatically expand Tilde's.) -comment(// Given that '~' expansion is commonly used however, Java puts the $HOME) -comment(// environment variable (used by shells to do typical expansion\) into the) -comment(// "user.home" system property. This works across operating systems - though) -comment(// the value inside differs from system to system so you shouldn't rely on its) -comment(// content to be of a particular format. In most cases though you should be) -comment(// able to write a regex that will work as expected. Also, Apple's) -comment(// NSPathUtilities can expand and introduce Tildes on platforms it supports.) -ident(path) operator(=) string<delimiter(')content(~paulk/.cvspass)delimiter(')> -ident(name) operator(=) pre_type(System)operator(.)ident(getProperty)operator(()string<delimiter(')content(user.name)delimiter(')>operator(\)) -ident(home) operator(=) pre_type(System)operator(.)ident(getProperty)operator(()string<delimiter(')content(user.home)delimiter(')>operator(\)) -ident(println) ident(home) operator(+) ident(path)operator(.)ident(replaceAll)operator(()string<delimiter(")content(~)inline<inline_delimiter($)ident(name)>content((.*\))delimiter(")>operator(,) string<delimiter(')content($1)delimiter(')>operator(\)) -comment(// => C:\\Documents and Settings\\Paul/.cvspass) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_7.4) -comment(//----------------------------------------------------------------------------------) -comment(// The exception raised in Groovy reports the filename) -keyword(try) operator({) - keyword(new) pre_type(File)operator(()string<delimiter(')content(unknown_path/bad_file.ext)delimiter(')>operator(\))operator(.)ident(text) -operator(}) keyword(catch) operator(()exception(Exception) ident(ex)operator(\)) operator({) - pre_type(System)operator(.)ident(err)operator(.)ident(println)operator(()ident(ex)operator(.)ident(message)operator(\)) -operator(}) -comment(// =>) -comment(// unknown_path\\bad_file.ext (The system cannot find the path specified\)) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_7.5) -comment(//----------------------------------------------------------------------------------) -keyword(try) operator({) - ident(temp) operator(=) pre_type(File)operator(.)ident(createTempFile)operator(()string<delimiter(")content(prefix)delimiter(")>operator(,) string<delimiter(")content(.suffix)delimiter(")>operator(\)) - ident(temp)operator(.)ident(deleteOnExit)operator(()operator(\)) -operator(}) keyword(catch) operator(()exception(IOException) ident(ex)operator(\)) operator({) - pre_type(System)operator(.)ident(err)operator(.)ident(println)operator(()string<delimiter(")content(Temp file could not be created)delimiter(")>operator(\)) -operator(}) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_7.6) -comment(//----------------------------------------------------------------------------------) -comment(// no special features are provided, here is a way to do it manually) -comment(// DO NOT REMOVE THE FOLLOWING STRING DEFINITION.) -ident(pleac_7_6_embeddedFileInfo) operator(=) string<delimiter(''')content( -Script size is 13731 -Last script update: Wed Jan 10 19:05:58 EST 2007 -)delimiter(''')> -ident(ls) operator(=) pre_type(System)operator(.)ident(getProperty)operator(()string<delimiter(')content(line.separator)delimiter(')>operator(\)) -ident(file) operator(=) keyword(new) pre_type(File)operator(()string<delimiter(')content(Pleac/src/pleac7.groovy)delimiter(')>operator(\)) -ident(regex) operator(=) regexp<delimiter(/)content((?ms\)(?<=^pleac_7_6_embeddedFileInfo = '''\)(.*\)(?=^'''\))delimiter(/)> -keyword(def) method(readEmbeddedInfo)operator(()operator(\)) operator({) - ident(m) operator(=) ident(file)operator(.)ident(text) operator(=~) ident(regex) - ident(println) string<delimiter(')content(Found:\\n)delimiter(')> operator(+) ident(m)operator([)integer(0)operator(])operator([)integer(1)operator(]) -operator(}) -keyword(def) method(writeEmbeddedInfo)operator(()operator(\)) operator({) - ident(lastMod) operator(=) keyword(new) pre_type(Date)operator(()ident(file)operator(.)ident(lastModified)operator(()operator(\))operator(\)) - ident(newInfo) operator(=) string<delimiter(")inline<inline_delimiter(${)ident(ls)inline_delimiter(})>content(Script size is )inline<inline_delimiter(${)ident(file)operator(.)ident(size)operator(()operator(\))inline_delimiter(})>inline<inline_delimiter(${)ident(ls)inline_delimiter(})>content(Last script update: )inline<inline_delimiter(${)ident(lastMod)inline_delimiter(})>inline<inline_delimiter(${)ident(ls)inline_delimiter(})>delimiter(")> - ident(file)operator(.)ident(write)operator(()ident(file)operator(.)ident(text)operator(.)ident(replaceAll)operator(()ident(regex)operator(,) ident(newInfo)operator(\))operator(\)) -operator(}) -ident(readEmbeddedInfo)operator(()operator(\)) -comment(// writeEmbeddedInfo(\) // uncomment to make script update itself) -comment(// readEmbeddedInfo(\) // uncomment to redisplay the embedded info after the update) - -comment(// => (output when above two method call lines are uncommented\)) -comment(// Found:) -comment(//) -comment(// Script size is 13550) -comment(// Last script update: Wed Jan 10 18:56:03 EST 2007) -comment(//) -comment(// Found:) -comment(//) -comment(// Script size is 13731) -comment(// Last script update: Wed Jan 10 19:05:58 EST 2007) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_7.7) -comment(//----------------------------------------------------------------------------------) -comment(// general pattern for reading from System.in is:) -comment(// System.in.readLines(\).each{ processLine(it\) }) - -comment(// general pattern for a filter which can either process file args or read from System.in is:) -comment(// if (args.size(\) != 0\) args.each{) -comment(// file -> new File(file\).eachLine{ processLine(it\) }) -comment(// } else System.in.readLines(\).each{ processLine(it\) }) - -comment(// note: the following examples are file-related per se. They show) -comment(// how to do option processing in scenarios which typically also) -comment(// involve file arguments. The reader should also consider using a) -comment(// pre-packaged options parser package (there are several popular) -comment(// ones\) rather than the hard-coded processing examples shown here.) - -ident(chopFirst) operator(=) pre_constant(false) -ident(columns) operator(=) integer(0) -ident(args) operator(=) operator([)string<delimiter(')content(-c)delimiter(')>operator(,) string<delimiter(')content(-30)delimiter(')>operator(,) string<delimiter(')content(somefile)delimiter(')>operator(]) - -comment(// demo1: optional c) -keyword(if) operator(()ident(args)operator([)integer(0)operator(]) operator(==) string<delimiter(')content(-c)delimiter(')>operator(\)) operator({) - ident(chopFirst) operator(=) pre_constant(true) - ident(args) operator(=) ident(args)operator([)integer(1)operator(..)operator(-)integer(1)operator(]) -operator(}) - -keyword(assert) ident(args) operator(==) operator([)string<delimiter(")content(-30)delimiter(")>operator(,) string<delimiter(")content(somefile)delimiter(")>operator(]) -keyword(assert) ident(chopFirst) - -comment(// demo2: processing numerical options) -keyword(if) operator(()ident(args)operator([)integer(0)operator(]) operator(=~) regexp<delimiter(/)content(^-()char(\\d)content(+\))content($)delimiter(/)>operator(\)) operator({) - ident(columns) operator(=) ident(args)operator([)integer(0)operator(])operator([)integer(1)operator(..)operator(-)integer(1)operator(])operator(.)ident(toInteger)operator(()operator(\)) - ident(args) operator(=) ident(args)operator([)integer(1)operator(..)operator(-)integer(1)operator(]) -operator(}) - -keyword(assert) ident(args) operator(==) operator([)string<delimiter(")content(somefile)delimiter(")>operator(]) -keyword(assert) ident(columns) operator(==) integer(30) - -comment(// demo3: multiple args (again consider option parsing package\)) -ident(args) operator(=) operator([)string<delimiter(')content(-n)delimiter(')>operator(,)string<delimiter(')content(-a)delimiter(')>operator(,)string<delimiter(')content(file1)delimiter(')>operator(,)string<delimiter(')content(file2)delimiter(')>operator(]) -ident(nostdout) operator(=) pre_constant(false) -ident(append) operator(=) pre_constant(false) -ident(unbuffer) operator(=) pre_constant(false) -ident(ignore_ints) operator(=) pre_constant(false) -ident(files) operator(=) type([]) -ident(args)operator(.)ident(each)operator({) ident(arg) operator(->) - keyword(switch)operator(()ident(arg)operator(\)) operator({) - keyword(case) string<delimiter(')content(-n)delimiter(')>operator(:) ident(nostdout) operator(=) pre_constant(true)operator(;) keyword(break) - keyword(case) string<delimiter(')content(-a)delimiter(')>operator(:) ident(append) operator(=) pre_constant(true)operator(;) keyword(break) - keyword(case) string<delimiter(')content(-u)delimiter(')>operator(:) ident(unbuffer) operator(=) pre_constant(true)operator(;) keyword(break) - keyword(case) string<delimiter(')content(-i)delimiter(')>operator(:) ident(ignore_ints) operator(=) pre_constant(true)operator(;) keyword(break) - keyword(default)operator(:) ident(files) operator(+=) ident(arg) - operator(}) -operator(}) -keyword(if) operator(()ident(files)operator(.)ident(any)operator({) local_variable(it)operator(.)ident(startsWith)operator(()string<delimiter(')content(-)delimiter(')>operator(\))operator(})operator(\)) operator({) - pre_type(System)operator(.)ident(err)operator(.)ident(println)operator(()string<delimiter(")content(usage: demo3 [-ainu] [filenames])delimiter(")>operator(\)) -operator(}) -comment(// process files ...) -keyword(assert) ident(nostdout) operator(&&) ident(append) operator(&&) operator(!)ident(unbuffer) operator(&&) operator(!)ident(ignore_ints) -keyword(assert) ident(files) operator(==) operator([)string<delimiter(')content(file1)delimiter(')>operator(,)string<delimiter(')content(file2)delimiter(')>operator(]) - -comment(// find login: print all lines containing the string "login" (command-line version\)) -comment(//% groovy -ne "if (line =~ 'login'\) println line" filename) - -comment(// find login variation: lines containing "login" with line number (command-line version\)) -comment(//% groovy -ne "if (line =~ 'login'\) println count + ':' + line" filename) - -comment(// lowercase file (command-line version\)) -comment(//% groovy -pe "line.toLowerCase(\)") - - -comment(// count chunks but skip comments and stop when reaching "__DATA__" or "__END__") -ident(chunks) operator(=) integer(0)operator(;) ident(done) operator(=) pre_constant(false) -ident(testfile) operator(=) keyword(new) pre_type(File)operator(()string<delimiter(')content(Pleac/data/chunks.txt)delimiter(')>operator(\)) comment(// change on your system) -ident(lines) operator(=) ident(testfile)operator(.)ident(readLines)operator(()operator(\)) -keyword(for) operator(()ident(line) keyword(in) ident(lines)operator(\)) operator({) - keyword(if) operator(()operator(!)ident(line)operator(.)ident(trim)operator(()operator(\))operator(\)) keyword(continue) - ident(words) operator(=) ident(line)operator(.)ident(split)operator(()regexp<delimiter(/)content([^)char(\\w)content(#]+)delimiter(/)>operator(\))operator(.)ident(toList)operator(()operator(\)) - keyword(for) operator(()ident(word) keyword(in) ident(words)operator(\)) operator({) - keyword(if) operator(()ident(word) operator(=~) regexp<delimiter(/)content(^#)delimiter(/)>operator(\)) keyword(break) - keyword(if) operator(()ident(word) keyword(in) operator([)string<delimiter(")content(__DATA__)delimiter(")>operator(,) string<delimiter(")content(__END__)delimiter(")>operator(])operator(\)) operator({) ident(done) operator(=) pre_constant(true)operator(;) keyword(break) operator(}) - ident(chunks) operator(+=) integer(1) - operator(}) - keyword(if) operator(()ident(done)operator(\)) keyword(break) -operator(}) -ident(println) string<delimiter(")content(Found )inline<inline_delimiter($)ident(chunks)>content( chunks)delimiter(")> - - -comment(// groovy "one-liner" (cough cough\) for turning .history file into pretty version:) -comment(//% groovy -e "m=new File(args[0]\).text=~/(?ms\)^#\\+(\\d+\)\\r?\\n(.*?\)$/;(0..<m.count\).each{println ''+new Date(m[it][1].toInteger(\)\)+' '+m[it][2]}" .history) -comment(// =>) -comment(// Sun Jan 11 18:26:22 EST 1970 less /etc/motd) -comment(// Sun Jan 11 18:26:22 EST 1970 vi ~/.exrc) -comment(// Sun Jan 11 18:26:22 EST 1970 date) -comment(// Sun Jan 11 18:26:22 EST 1970 who) -comment(// Sun Jan 11 18:26:22 EST 1970 telnet home) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_7.8) -comment(//----------------------------------------------------------------------------------) -comment(// test data for below) -ident(testPath) operator(=) string<delimiter(')content(Pleac/data/process.txt)delimiter(')> - -comment(// general pattern) -keyword(def) method(processWithBackup)operator(()ident(inputPath)operator(,) ident(Closure) ident(processLine)operator(\)) operator({) - keyword(def) ident(input) operator(=) keyword(new) pre_type(File)operator(()ident(inputPath)operator(\)) - keyword(def) ident(out) operator(=) pre_type(File)operator(.)ident(createTempFile)operator(()string<delimiter(")content(prefix)delimiter(")>operator(,) string<delimiter(")content(.suffix)delimiter(")>operator(\)) - ident(out)operator(.)ident(write)operator(()string<delimiter(')delimiter(')>operator(\)) comment(// create empty file) - ident(count) operator(=) integer(0) - ident(input)operator(.)ident(eachLine)operator({) ident(line) operator(->) - ident(count)operator(++) - ident(processLine)operator(()ident(out)operator(,) ident(line)operator(,) ident(count)operator(\)) - operator(}) - keyword(def) ident(dest) operator(=) keyword(new) pre_type(File)operator(()ident(inputPath) operator(+) string<delimiter(")content(.orig)delimiter(")>operator(\)) - ident(dest)operator(.)ident(delete)operator(()operator(\)) comment(// clobber previous backup) - ident(input)operator(.)ident(renameTo)operator(()ident(dest)operator(\)) - ident(out)operator(.)ident(renameTo)operator(()ident(input)operator(\)) -operator(}) - -comment(// use withPrintWriter if you don't want the '\\n''s appearing) -ident(processWithBackup)operator(()ident(testPath)operator(\)) operator({) ident(out)operator(,) ident(line)operator(,) ident(count) operator(->) - keyword(if) operator(()ident(count) operator(==) integer(20)operator(\)) operator({) comment(// we are at the 20th line) - ident(out) operator(<)operator(<) string<delimiter(")content(Extra line 1)char(\\n)delimiter(")> - ident(out) operator(<)operator(<) string<delimiter(")content(Extra line 2)char(\\n)delimiter(")> - operator(}) - ident(out) operator(<)operator(<) ident(line) operator(+) string<delimiter(')content(\\n)delimiter(')> -operator(}) - -ident(processWithBackup)operator(()ident(testPath)operator(\)) operator({) ident(out)operator(,) ident(line)operator(,) ident(count) operator(->) - keyword(if) operator(()operator(!)operator(()ident(count) keyword(in) integer(20)operator(..)integer(30)operator(\))operator(\)) comment(// skip the 20th line to the 30th) - ident(out) operator(<)operator(<) ident(line) operator(+) string<delimiter(')content(\\n)delimiter(')> -operator(}) -comment(// equivalent to "one-liner":) -comment(//% groovy -i.orig -pe "if (!(count in 20..30\)\) out << line" testPath) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_7.9) -comment(//----------------------------------------------------------------------------------) -comment(//% groovy -i.orig -pe 'FILTER COMMAND' file1 file2 file3 ...) - -comment(// the following may also be possible on unix systems (unchecked\)) -comment(//#!/usr/bin/groovy -i.orig -p) -comment(// filter commands go here) - -comment(// "one-liner" templating scenario: change DATE -> current time) -comment(//% groovy -pi.orig -e 'line.replaceAll(/DATE/\){new Date(\)}') - -comment(//% groovy -i.old -pe 'line.replaceAll(/\\bhisvar\\b/, 'hervar'\)' *.[Cchy] (globbing platform specific\)) - -comment(// one-liner for correcting spelling typos) -comment(//% groovy -i.orig -pe 'line.replaceAll(/\\b(p\)earl\\b/i, '\\1erl'\)' *.[Cchy] (globbing platform specific\)) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_7.10) -comment(//----------------------------------------------------------------------------------) -comment(// general pattern) -keyword(def) method(processFileInplace)operator(()ident(file)operator(,) ident(Closure) ident(processText)operator(\)) operator({) - keyword(def) ident(text) operator(=) ident(file)operator(.)ident(text) - ident(file)operator(.)ident(write)operator(()ident(processText)operator(()ident(text)operator(\))operator(\)) -operator(}) - -comment(// templating scenario: change DATE -> current time) -ident(testfile) operator(=) keyword(new) pre_type(File)operator(()string<delimiter(')content(Pleac/data/pleac7_10.txt)delimiter(')>operator(\)) comment(// replace on your system) -ident(processFileInplace)operator(()ident(testfile)operator(\)) operator({) ident(text) operator(->) - ident(text)operator(.)ident(replaceAll)operator(()regexp<delimiter(/)content((?m\)DATE)delimiter(/)>operator(,) keyword(new) pre_type(Date)operator(()operator(\))operator(.)ident(toString)operator(()operator(\))operator(\)) -operator(}) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_7.11) -comment(//----------------------------------------------------------------------------------) -comment(// You need to use Java's Channel class to acquire locks. The exact) -comment(// nature of the lock is somewhat dependent on the operating system.) -keyword(def) method(processFileWithLock)operator(()ident(file)operator(,) ident(processStream)operator(\)) operator({) - keyword(def) ident(random) operator(=) keyword(new) pre_type(RandomAccessFile)operator(()ident(file)operator(,) string<delimiter(")content(rw)delimiter(")>operator(\)) - keyword(def) ident(lock) operator(=) ident(random)operator(.)ident(channel)operator(.)ident(lock)operator(()operator(\)) comment(// acquire exclusive lock) - ident(processStream)operator(()ident(random)operator(\)) - ident(lock)operator(.)ident(release)operator(()operator(\)) - ident(random)operator(.)ident(close)operator(()operator(\)) -operator(}) - -comment(// Instead of an exclusive lock you can acquire a shared lock.) - -comment(// Also, you can acquire a lock for a region of a file by specifying) -comment(// start and end positions of the region when acquiring the lock.) - -comment(// For non-blocking functionality, use tryLock(\) instead of lock(\).) -keyword(def) method(processFileWithTryLock)operator(()ident(file)operator(,) ident(processStream)operator(\)) operator({) - ident(random) operator(=) keyword(new) pre_type(RandomAccessFile)operator(()ident(file)operator(,) string<delimiter(")content(rw)delimiter(")>operator(\)) - ident(channel) operator(=) ident(random)operator(.)ident(channel) - keyword(def) ident(MAX_ATTEMPTS) operator(=) integer(30) - keyword(for) operator(()ident(i) keyword(in) integer(0)operator(..<)ident(MAX_ATTEMPTS)operator(\)) operator({) - ident(lock) operator(=) ident(channel)operator(.)ident(tryLock)operator(()operator(\)) - keyword(if) operator(()ident(lock) operator(!=) pre_constant(null)operator(\)) keyword(break) - ident(println) string<delimiter(')content(Could not get lock, pausing ...)delimiter(')> - pre_type(Thread)operator(.)ident(sleep)operator(()integer(500)operator(\)) comment(// 500 millis = 0.5 secs) - operator(}) - keyword(if) operator(()ident(lock) operator(==) pre_constant(null)operator(\)) operator({) - ident(println) string<delimiter(')content(Unable to acquire lock, aborting ...)delimiter(')> - operator(}) keyword(else) operator({) - ident(processStream)operator(()ident(random)operator(\)) - ident(lock)operator(.)ident(release)operator(()operator(\)) - operator(}) - ident(random)operator(.)ident(close)operator(()operator(\)) -operator(}) - - -comment(// non-blocking multithreaded example: print first line while holding lock) -pre_type(Thread)operator(.)ident(start)operator({) - ident(processFileWithLock)operator(()ident(testfile)operator(\)) operator({) ident(source) operator(->) - ident(println) string<delimiter(')content(First reader: )delimiter(')> operator(+) ident(source)operator(.)ident(readLine)operator(()operator(\))operator(.)ident(toUpperCase)operator(()operator(\)) - pre_type(Thread)operator(.)ident(sleep)operator(()integer(2000)operator(\)) comment(// 2000 millis = 2 secs) - operator(}) -operator(}) -ident(processFileWithTryLock)operator(()ident(testfile)operator(\)) operator({) ident(source) operator(->) - ident(println) string<delimiter(')content(Second reader: )delimiter(')> operator(+) ident(source)operator(.)ident(readLine)operator(()operator(\))operator(.)ident(toUpperCase)operator(()operator(\)) -operator(}) -comment(// =>) -comment(// Could not get lock, pausing ...) -comment(// First reader: WAS LOWERCASE) -comment(// Could not get lock, pausing ...) -comment(// Could not get lock, pausing ...) -comment(// Could not get lock, pausing ...) -comment(// Could not get lock, pausing ...) -comment(// Second reader: WAS LOWERCASE) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_7.12) -comment(//----------------------------------------------------------------------------------) -comment(// In Java, input and output streams have a flush(\) method and file channels) -comment(// have a force(\) method (applicable also to memory-mapped files\). When creating) -comment(// PrintWriters and // PrintStreams, an autoFlush option can be provided.) -comment(// From a FileInput or Output Stream you can ask for the FileDescriptor) -comment(// which has a sync(\) method - but you wouldn't you'd just use flush(\).) - -ident(inputStream) operator(=) ident(testfile)operator(.)ident(newInputStream)operator(()operator(\)) comment(// returns a buffered input stream) -ident(autoFlush) operator(=) pre_constant(true) -ident(printStream) operator(=) keyword(new) pre_type(PrintStream)operator(()ident(outStream)operator(,) ident(autoFlush)operator(\)) -ident(printWriter) operator(=) keyword(new) pre_type(PrintWriter)operator(()ident(outStream)operator(,) ident(autoFlush)operator(\)) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_7.13) -comment(//----------------------------------------------------------------------------------) -comment(// See the comments in 7.14 about scenarios where non-blocking can be) -comment(// avoided. Also see 7.14 regarding basic information about channels.) -comment(// An advanced feature of the java.nio.channels package is supported) -comment(// by the Selector and SelectableChannel classes. These allow efficient) -comment(// server multiplexing amongst responses from a number of potential sources.) -comment(// Under the covers, it allows mapping to native operating system features) -comment(// supporting such multiplexing or using a pool of worker processing threads) -comment(// much smaller in size than the total available connections.) -comment(//) -comment(// The general pattern for using selectors is:) -comment(//) -comment(// while (true\) {) -comment(// selector.select(\)) -comment(// def it = selector.selectedKeys(\).iterator(\)) -comment(// while (it.hasNext(\)\) {) -comment(// handleKey(it++\)) -comment(// it.remove(\)) -comment(// }) -comment(// }) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_7.14) -comment(//----------------------------------------------------------------------------------) -comment(// Groovy has no special support for this apart from making it easier to) -comment(// create threads (see note at end\); it relies on Java's features here.) - -comment(// InputStreams in Java/Groovy block if input is not yet available.) -comment(// This is not normally an issue, because if you have a potential blocking) -comment(// operation, e.g. save a large file, you normally just create a thread) - comment(// and save it in the background.) - -comment(// Channels are one way to do non-blocking stream-based IO.) -comment(// Classes which implement the AbstractSelectableChannel interface provide) -comment(// a configureBlocking(boolean\) method as well as an isBlocking(\) method.) -comment(// When processing a non-blocking stream, you need to process incoming) -comment(// information based on the number of bytes read returned by the various) -comment(// read methods. For non-blocking, this can be 0 bytes even if you pass) -comment(// a fixed size byte[] buffer to the read method. Non-blocking IO is typically) -comment(// not used with Files but more normally with network streams though they) -comment(// can when Pipes (couple sink and source channels\) are involved where) -comment(// one side of the pipe is a file.) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_7.15) -comment(//----------------------------------------------------------------------------------) -comment(// Groovy uses Java's features here.) -comment(// For both blocking and non-blocking reads, the read operation returns the number) -comment(// of bytes read. In blocking operations, this normally corresponds to the number) -comment(// of bytes requested (typically the size of some buffer\) but can have a smaller) -comment(// value at the end of a stream. Java also makes no guarantees about whether) -comment(// other streams in general will return bytes as they become available under) -comment(// certain circumstances (rather than blocking until the entire buffer is filled.) -comment(// In non-blocking operations, the number of bytes returned will typically be) -comment(// the number of bytes available (up to some maximum buffer or requested size\).) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_7.16) -comment(//----------------------------------------------------------------------------------) -comment(// This just works in Java and Groovy as per the previous examples.) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_7.17) -comment(//----------------------------------------------------------------------------------) -comment(// Groovy uses Java's features here.) -comment(// More work has been done in the Java on object caching than file caching) -comment(// with several open source and commercial offerings in that area. File caches) -comment(// are also available, for one, see:) -comment(// http://portals.apache.org/jetspeed-1/apidocs/org/apache/jetspeed/cache/FileCache.html) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_7.18) -comment(//----------------------------------------------------------------------------------) -comment(// The general pattern is: streams.each{ stream -> stream.println 'item to print' }) -comment(// See the MultiStream example in 13.5 for a coded example.) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_7.19) -comment(//----------------------------------------------------------------------------------) -comment(// You wouldn't normally be dealing with FileDescriptors. In case were you have) -comment(// one you would normally walk through all known FileStreams asking each for) -comment(// it's FileDescriptor until you found one that matched. You would then close) -comment(// that stream.) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_7.20) -comment(//----------------------------------------------------------------------------------) -comment(// There are several concepts here. At the object level, any two object references) -comment(// can point to the same object. Any changes made by one of these will be visible) -comment(// in the 'alias'. You can also have multiple stream, reader, writer or channel objects) -comment(// referencing the same resource. Depending on the kind of resource, any potential) -comment(// locks, the operations being requested and the behaviour of third-party programs,) -comment(// the result of trying to perform such concurrent operations may not always be) -comment(// deterministic. There are strategies for coping with such scenarious but the) -comment(// best bet is to avoid the issue.) - -comment(// For the scenario given, copying file handles, that corresponds most closely) -comment(// with cloning streams. The best bet is to just use individual stream objects) -comment(// both created from the same file. If you are attempting to do write operations,) -comment(// then you should consider using locks.) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_7.21) -comment(//----------------------------------------------------------------------------------) -comment(// locking is built in to Java (since 1.4\), so should not be missing) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_7.22) -comment(//----------------------------------------------------------------------------------) -comment(// Java locking supports locking just regions of files.) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_8.0) -comment(//----------------------------------------------------------------------------------) -ident(datafile) operator(=) keyword(new) pre_type(File)operator(()string<delimiter(')content(Pleac/data/pleac8_0.txt)delimiter(')>operator(\)) comment(// change on your system) - -ident(datafile)operator(.)ident(eachLine)operator({) ident(line) operator(->) ident(print) ident(line)operator(.)ident(size)operator(()operator(\)) operator(}) - -ident(lines) operator(=) ident(datafile)operator(.)ident(readLines)operator(()operator(\)) - -ident(wholeTextFile) operator(=) ident(datafile)operator(.)ident(text) - -comment(// on command line Groovy use -a auto split pattern instead of record separator) -comment(// default pattern is /\\s/) -comment(// groovy -a -e 'println "First word is ${split[0][1]}"') - -comment(// (additional examples to original cookbook to illustrate -a\)) -comment(// Print processes owned by root:) -comment(// ps aux|groovy -ane "if(split[0][1] =~ 'root'\)println split[0][10..-1]") - -comment(// Print all logins from /etc/passwd that are not commented:) -comment(// groovy -a':' -ne "if(!(split[0][1] =~ /^#/\)\)println split[0][1]" /etc/passwd) - -comment(// Add the first and the penultimate column of a file:) -comment(// groovy -ape "split[0][1].toInteger(\)+split[0][-2].toInteger(\)" accounts.txt) - -comment(// no BEGIN and END in Groovy (has been proposed, may be added soon\)) - -ident(datafile)operator(.)ident(withOutputStream)operator({) ident(stream) operator(->) - ident(stream)operator(.)ident(print) string<delimiter(")content(one)delimiter(")> operator(+) string<delimiter(")content(two)delimiter(")> operator(+) string<delimiter(")content(three)delimiter(")> comment(// "onetwothree" -> file) - ident(println) string<delimiter(")content(Baa baa black sheep.)delimiter(")> comment(// sent to $stdout) -operator(}) - -comment(// use streams or channels for advanced file handling) -type(int) ident(size) operator(=) ident(datafile)operator(.)ident(size)operator(()operator(\)) -ident(buffer) operator(=) pre_type(ByteBuffer)operator(.)ident(allocate)operator(()ident(size)operator(\)) comment(// for large files, use some block size, e.g. 4096) -ident(channel) operator(=) keyword(new) pre_type(FileInputStream)operator(()ident(datafile)operator(\))operator(.)ident(channel) -ident(println) string<delimiter(")content(Number of bytes read was: )inline<inline_delimiter(${)ident(channel)operator(.)ident(read)operator(()ident(buffer)operator(\))inline_delimiter(})>delimiter(")> comment(// -1 = EOF) - -ident(channel) operator(=) keyword(new) pre_type(FileOutputStream)operator(()pre_type(File)operator(.)ident(createTempFile)operator(()string<delimiter(")content(pleac8)delimiter(")>operator(,) string<delimiter(")content(.junk)delimiter(")>operator(\))operator(\))operator(.)ident(channel) -ident(size) operator(=) ident(channel)operator(.)ident(size)operator(()operator(\)) -ident(channel)operator(.)ident(truncate)operator(()ident(size)operator(\)) comment(// shrinks file (in our case to same size\)) - -ident(pos) operator(=) ident(channel)operator(.)ident(position)operator(()operator(\)) -ident(println) string<delimiter(")content(I'm )inline<inline_delimiter($)ident(pos)>content( bytes from the start of datafile)delimiter(")> -ident(channel)operator(.)ident(position)operator(()ident(pos)operator(\)) comment(// move to pos (in our case unchanged\)) -ident(channel)operator(.)ident(position)operator(()integer(0)operator(\)) comment(// move to start of file) -ident(channel)operator(.)ident(position)operator(()ident(size)operator(\)) comment(// move to end of file) - -comment(// no sysread and syswrite are available but dataInput/output streams) -comment(// can be used to achieve similar functionality, see 8.15.) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_8.1) -comment(//----------------------------------------------------------------------------------) -ident(testfile) operator(=) keyword(new) pre_type(File)operator(()string<delimiter(')content(Pleac/data/pleac8_1.txt)delimiter(')>operator(\)) comment(// change on your system) -comment(// contents of testfile:) -comment(// DISTFILES = $(DIST_COMMON\) $(SOURCES\) $(HEADERS\) \\ -// $(TEXINFOS\) $(INFOS\) $(MANS\) $(DATA\)) -comment(// DEP_DISTFILES = $(DIST_COMMON\) $(SOURCES\) $(HEADERS\) \\ -// $(TEXINFOS\) $(INFO_DEPS\) $(MANS\) $(DATA\) \\ -// $(EXTRA_DIST\)) - -ident(lines) operator(=) type([]) -ident(continuing) operator(=) pre_constant(false) -ident(regex) operator(=) regexp<delimiter(/)char(\\\\)content($)delimiter(/)> -ident(testfile)operator(.)ident(eachLine)operator({) ident(line) operator(->) - ident(stripped) operator(=) ident(line)operator(.)ident(replaceAll)operator(()ident(regex)operator(,)string<delimiter(')delimiter(')>operator(\)) - keyword(if) operator(()ident(continuing)operator(\)) ident(lines)operator([)operator(-)integer(1)operator(]) operator(+=) ident(stripped) - keyword(else) ident(lines) operator(+=) ident(stripped) - ident(continuing) operator(=) operator(()ident(line) operator(=~) ident(regex)operator(\)) -operator(}) -ident(println) ident(lines)operator(.)ident(join)operator(()string<delimiter(')content(\\n)delimiter(')>operator(\)) -comment(// =>) -comment(// DISTFILES = $(DIST_COMMON\) $(SOURCES\) $(HEADERS\) $(TEXINFOS\) $(INFOS\) $(MANS\) $(DATA\)) -comment(// DEP_DISTFILES = $(DIST_COMMON\) $(SOURCES\) $(HEADERS\) $(TEXINFOS\) $(INFO_DEPS\) $(MANS\) $(DATA\) $(EXTRA_DIST\)) - -comment(// to remove hidden spaces after the slash (but keep the slash\):) -keyword(def) method(trimtail)operator(()ident(line)operator(\)) operator({) - ident(line) operator(=) ident(line)operator(.)ident(replaceAll)operator(()regexp<delimiter(/)content((?<=)char(\\\\)content(\))char(\\s)content(*)content($)delimiter(/)>operator(,) string<delimiter(')delimiter(')>operator(\)) -operator(}) -ident(b) operator(=) regexp<delimiter(/)char(\\\\)delimiter(/)> comment(// backslash) -keyword(assert) string<delimiter(")content(abc )inline<inline_delimiter($)ident(b)>delimiter(")> operator(==) ident(trimtail)operator(()string<delimiter(")content(abc )inline<inline_delimiter($)ident(b)>delimiter(")>operator(\)) -keyword(assert) string<delimiter(")content(abc )delimiter(")> operator(==) ident(trimtail)operator(()string<delimiter(")content(abc )delimiter(")>operator(\)) -keyword(assert) string<delimiter(")content(abc )inline<inline_delimiter($)ident(b)>delimiter(")> operator(==) ident(trimtail)operator(()string<delimiter(")content(abc )inline<inline_delimiter($)ident(b)>content( )delimiter(")>operator(\)) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_8.2) -comment(//----------------------------------------------------------------------------------) -comment(// unixScript:) -ident(println) operator(()string<delimiter(")content(wc -l < )inline<inline_delimiter($)ident(filename)>delimiter(")>operator(.)ident(execute)operator(()operator(\))operator(.)ident(text)operator(\)) - -comment(// for small files which fit in memory) -ident(println) ident(testfile)operator(.)ident(readLines)operator(()operator(\))operator(.)ident(size)operator(()operator(\)) - -comment(// streaming approach (lines and paras\)) -ident(lines) operator(=) integer(0)operator(;) ident(paras) operator(=) integer(1) -ident(testfile)operator(.)ident(eachLine)operator({) ident(lines)operator(++)operator(;) keyword(if) operator(()local_variable(it) operator(=~) regexp<delimiter(/)content(^)content($)delimiter(/)>operator(\)) ident(paras)operator(++) operator(}) -ident(println) string<delimiter(")content(Found )inline<inline_delimiter($)ident(lines)>content( lines and )inline<inline_delimiter($)ident(paras)>content( paras.)delimiter(")> -comment(// note: counts blank line at end as start of next empty para) - -comment(// with a StreamTokenizer) -ident(st) operator(=) keyword(new) pre_type(StreamTokenizer)operator(()ident(testfile)operator(.)ident(newReader)operator(()operator(\))operator(\)) -keyword(while) operator(()ident(st)operator(.)ident(nextToken)operator(()operator(\)) operator(!=) pre_type(StreamTokenizer)operator(.)ident(TT_EOF)operator(\)) operator({)operator(}) -ident(println) ident(st)operator(.)ident(lineno)operator(()operator(\)) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_8.3) -comment(//----------------------------------------------------------------------------------) -comment(// general pattern) -keyword(def) method(processWordsInFile)operator(()ident(file)operator(,) ident(processWord)operator(\)) operator({) - ident(testfile)operator(.)ident(splitEachLine)operator(()regexp<delimiter(/)char(\\W)content(+)delimiter(/)>operator(\)) operator({) ident(matched) operator(->) - ident(matched)operator(.)ident(each)operator({) ident(w) operator(->) keyword(if) operator(()ident(w)operator(\)) ident(processWord)operator(()ident(w)operator(\)) operator(}) - operator(}) -operator(}) - -ident(testfile) operator(=) keyword(new) pre_type(File)operator(()string<delimiter(')content(Pleac/src/pleac8.groovy)delimiter(')>operator(\)) comment(// change path on your system) - -comment(// count words) -ident(count) operator(=) integer(0) -ident(processWordsInFile)operator(()ident(testfile)operator(\))operator({) ident(count)operator(++) operator(}) -ident(println) ident(count) - -comment(// (variation to Perl example\)) -comment(// with a StreamTokenizer (counting words and numbers in Pleac chapter 8 source file\)) -ident(words) operator(=) integer(0)operator(;) ident(numbers) operator(=) integer(0) -ident(st) operator(=) keyword(new) pre_type(StreamTokenizer)operator(()ident(testfile)operator(.)ident(newReader)operator(()operator(\))operator(\)) -ident(st)operator(.)ident(slashSlashComments)operator(()pre_constant(true)operator(\)) comment(// ignore words and numbers in comments) -keyword(while) operator(()ident(st)operator(.)ident(nextToken)operator(()operator(\)) operator(!=) pre_type(StreamTokenizer)operator(.)ident(TT_EOF)operator(\)) operator({) - keyword(if) operator(()ident(st)operator(.)ident(ttype) operator(==) pre_type(StreamTokenizer)operator(.)ident(TT_WORD)operator(\)) ident(words)operator(++) - keyword(else) keyword(if) operator(()ident(st)operator(.)ident(ttype) operator(==) pre_type(StreamTokenizer)operator(.)ident(TT_NUMBER)operator(\)) ident(numbers)operator(++) -operator(}) -ident(println) string<delimiter(")content(Found )inline<inline_delimiter($)ident(words)>content( words and )inline<inline_delimiter($)ident(numbers)>content( numbers.)delimiter(")> - - -comment(// word frequency count) -ident(seen) operator(=) operator([)operator(:)operator(]) -ident(processWordsInFile)operator(()ident(testfile)operator(\)) operator({) - ident(w) operator(=) local_variable(it)operator(.)ident(toLowerCase)operator(()operator(\)) - keyword(if) operator(()ident(seen)operator(.)ident(containsKey)operator(()ident(w)operator(\))operator(\)) ident(seen)operator([)ident(w)operator(]) operator(+=) integer(1) - keyword(else) ident(seen)operator([)ident(w)operator(]) operator(=) integer(1) -operator(}) -comment(// output map in a descending numeric sort of its values) -ident(seen)operator(.)ident(entrySet)operator(()operator(\))operator(.)ident(sort) operator({) ident(a)operator(,)ident(b) operator(->) ident(b)operator(.)ident(value) operator(<=>) ident(a)operator(.)ident(value) operator(})operator(.)ident(each)operator({) ident(e) operator(->) - ident(printf)operator(()string<delimiter(")content(%5d %s)char(\\n)delimiter(")>operator(,) operator([)ident(e)operator(.)ident(value)operator(,) ident(e)operator(.)ident(key)operator(]) operator(\)) -operator(}) -comment(// =>) -comment(// 25 pleac) -comment(// 22 line) -comment(// 20 file) -comment(// 19 println) -comment(// 19 lines) -comment(// 13 testfile) -comment(// ...) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_8.4) -comment(//----------------------------------------------------------------------------------) -ident(testfile)operator(.)ident(readLines)operator(()operator(\))operator(.)ident(reverseEach)operator({) - ident(println) local_variable(it) -operator(}) - -ident(lines) operator(=) ident(testfile)operator(.)ident(readLines)operator(()operator(\)) -comment(// normally one would use the reverseEach, but you can use) -comment(// a numerical index if you want) -operator(()operator(()ident(lines)operator(.)ident(size)operator(()operator(\)) operator(-) integer(1)operator(\))operator(..)integer(0)operator(\))operator(.)ident(each)operator({) - ident(println) ident(lines)operator([)local_variable(it)operator(]) -operator(}) - -comment(// Paragraph-based processing could be done as in 8.2.) - -comment(// A streaming-based solution could use random file access) -comment(// and have a sliding buffer working from the back of the) -comment(// file to the front.) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_8.5) -comment(//----------------------------------------------------------------------------------) -ident(logfile) operator(=) keyword(new) pre_type(File)operator(()string<delimiter(')content(Pleac/data/sampleLog.txt)delimiter(')>operator(\)) -comment(// logTailingScript:) -ident(sampleInterval) operator(=) integer(2000) comment(// 2000 millis = 2 secs) -ident(file) operator(=) keyword(new) pre_type(RandomAccessFile)operator(() ident(logfile)operator(,) string<delimiter(")content(r)delimiter(")> operator(\)) -ident(filePointer) operator(=) integer(0) comment(// set to logfile.size(\) to begin tailing from the end of the file) -keyword(while)operator(() pre_constant(true) operator(\)) operator({) - comment(// Compare the length of the file to the file pointer) - type(long) ident(fileLength) operator(=) ident(logfile)operator(.)ident(size)operator(()operator(\)) - keyword(if)operator(() ident(fileLength) operator(<) ident(filePointer) operator(\)) operator({) - comment(// Log file must have been rotated or deleted;) - pre_type(System)operator(.)ident(err)operator(.)ident(println) string<delimiter(")inline<inline_delimiter(${)keyword(new) pre_type(Date)operator(()operator(\))inline_delimiter(})>content(: Reopening )inline<inline_delimiter($)ident(logfile)>delimiter(")> - ident(file) operator(=) keyword(new) pre_type(RandomAccessFile)operator(() ident(logfile)operator(,) string<delimiter(")content(r)delimiter(")> operator(\)) - ident(filePointer) operator(=) integer(0) - operator(}) - keyword(if)operator(() ident(fileLength) operator(>) ident(filePointer) operator(\)) operator({) - comment(// There is data to read) - ident(file)operator(.)ident(seek)operator(() ident(filePointer) operator(\)) - keyword(while)operator(() operator(()ident(line) operator(=) ident(file)operator(.)ident(readLine)operator(()operator(\))operator(\)) operator(!=) pre_constant(null) operator(\)) operator({) - ident(println) string<delimiter(')content(##)delimiter(')> operator(+) ident(line) - operator(}) - ident(filePointer) operator(=) ident(file)operator(.)ident(filePointer) - operator(}) - comment(// Sleep for the specified interval) - pre_type(Thread)operator(.)ident(sleep)operator(() ident(sampleInterval) operator(\)) -operator(}) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_8.6) -comment(//----------------------------------------------------------------------------------) -comment(//testfile = newFile('/usr/share/fortune/humorists'\)) - -comment(// small files:) -ident(random) operator(=) keyword(new) pre_type(Random)operator(()operator(\)) -ident(lines) operator(=) ident(testfile)operator(.)ident(readLines)operator(()operator(\)) -ident(println) ident(lines)operator([)ident(random)operator(.)ident(nextInt)operator(()ident(lines)operator(.)ident(size)operator(()operator(\))operator(\))operator(]) - -comment(// streamed alternative) -ident(count) operator(=) integer(0) -keyword(def) ident(adage) -ident(testfile)operator(.)ident(eachLine)operator({) ident(line) operator(->) - ident(count)operator(++) - keyword(if) operator(()ident(random)operator(.)ident(nextInt)operator(()ident(count)operator(\)) operator(<) integer(1)operator(\)) ident(adage) operator(=) ident(line) -operator(}) -ident(println) ident(adage) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_8.7) -comment(//----------------------------------------------------------------------------------) -comment(// non-streamed solution (like Perl and Ruby\)) -ident(lines) operator(=) ident(testfile)operator(.)ident(readLines)operator(()operator(\)) -pre_type(Collections)operator(.)ident(shuffle)operator(()ident(lines)operator(\)) -ident(println) ident(lines)operator(.)ident(join)operator(()string<delimiter(')content(\\n)delimiter(')>operator(\)) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_8.8) -comment(//----------------------------------------------------------------------------------) -ident(desiredLine) operator(=) integer(235) -comment(// for small files) -ident(lines) operator(=) ident(testfile)operator(.)ident(readLines)operator(()operator(\)) -ident(println) string<delimiter(")content(Line )inline<inline_delimiter($)ident(desiredLine)>content(: )inline<inline_delimiter(${)ident(lines)operator([)ident(desiredLine)operator(-)integer(1)operator(])inline_delimiter(})>delimiter(")> - -comment(// streaming solution) -ident(reader) operator(=) ident(testfile)operator(.)ident(newReader)operator(()operator(\)) -ident(count) operator(=) integer(0) -keyword(def) ident(line) -keyword(while) operator(()operator(()ident(line) operator(=) ident(reader)operator(.)ident(readLine)operator(()operator(\))operator(\))operator(!=) pre_constant(null)operator(\)) operator({) - keyword(if) operator(()operator(++)ident(count) operator(==) ident(desiredLine)operator(\)) keyword(break) -operator(}) -ident(println) string<delimiter(")content(Line )inline<inline_delimiter($)ident(desiredLine)>content(: )inline<inline_delimiter($)ident(line)>delimiter(")> -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_8.9) -comment(//----------------------------------------------------------------------------------) -ident(println) ident(testfile)operator(.)ident(text)operator(.)ident(split)operator(()regexp<delimiter(/)content(@@pleac@@_8.)delimiter(/)modifier(i)>operator(\))operator(.)ident(size)operator(()operator(\)) -comment(// => 23 (21 sections .0 .. .20 plus before .0 plus line above\)) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_8.10) -comment(//----------------------------------------------------------------------------------) -ident(file) operator(=) keyword(new) pre_type(RandomAccessFile)operator(() ident(logfile)operator(,) string<delimiter(")content(rw)delimiter(")> operator(\)) -type(long) ident(previous)operator(,) ident(lastpos) operator(=) integer(0) -keyword(while)operator(() operator(()ident(line) operator(=) ident(file)operator(.)ident(readLine)operator(()operator(\))operator(\)) operator(!=) pre_constant(null) operator(\)) operator({) - ident(previous) operator(=) ident(lastpos) - ident(lastpos) operator(=) ident(file)operator(.)ident(filePointer) -operator(}) -keyword(if) operator(()ident(previous)operator(\)) ident(file)operator(.)ident(setLength)operator(()ident(previous)operator(\)) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_8.11) -comment(//----------------------------------------------------------------------------------) -comment(// Java's streams are binary at the lowest level if not processed with) -comment(// higher level stream mechanisms or readers/writers. Some additions) -comment(// to the Perl cookbook which illustrate the basics.) - -comment(// Print first ten bytes of a binary file:) -keyword(def) method(dumpStart)operator(()ident(filename)operator(\)) operator({) - ident(bytes) operator(=) keyword(new) pre_type(File)operator(()ident(filename)operator(\))operator(.)ident(newInputStream)operator(()operator(\)) - integer(10)operator(.)ident(times)operator({) - ident(print) ident(bytes)operator(.)ident(read)operator(()operator(\)) operator(+) string<delimiter(')content( )delimiter(')> - operator(}) - ident(println)operator(()operator(\)) -operator(}) -ident(dumpStart)operator(()pre_type(System)operator(.)ident(getProperty)operator(()string<delimiter(')content(java.home)delimiter(')>operator(\))operator(+)string<delimiter(')content(/lib/rt.jar)delimiter(')>operator(\)) -comment(// => 80 75 3 4 10 0 0 0 0 0 (note first two bytes = PK - you might recognize this) -comment(// as the starting sequence of a zip file\)) -ident(dumpStart)operator(()string<delimiter(')content(Pleac/classes/pleac8.class)delimiter(')>operator(\)) comment(// after running groovyc compiler in src directory) -comment(// => 202 254 186 190 0 0 0 47 2 20 (starting bytes in HEX: CAFEBABE\)) - -ident(binfile) operator(=) keyword(new) pre_type(File)operator(()string<delimiter(')content(Pleac/data/temp.bin)delimiter(')>operator(\)) -ident(binfile)operator(.)ident(withOutputStream)operator({) ident(stream) operator(->) operator(()integer(0)operator(..<)integer(20)operator(\))operator(.)ident(each)operator({) ident(stream)operator(.)ident(write)operator(()local_variable(it)operator(\)) operator(})operator(}) -ident(binfile)operator(.)ident(eachByte)operator({) ident(print) local_variable(it) operator(+) string<delimiter(')content( )delimiter(')> operator(})operator(;) ident(println)operator(()operator(\)) -comment(// => 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_8.12) -comment(//----------------------------------------------------------------------------------) -comment(// lets treat binfile as having 5 records of size 4, let's print out the 3rd record) -ident(recsize) operator(=) integer(4) -ident(recno) operator(=) integer(2) comment(// index starts at 0) -ident(address) operator(=) ident(recsize) operator(*) ident(recno) -ident(randomaccess) operator(=) keyword(new) pre_type(RandomAccessFile)operator(()ident(binfile)operator(,) string<delimiter(')content(r)delimiter(')>operator(\)) -ident(randomaccess)operator(.)ident(seek)operator(()ident(address)operator(\)) -ident(recsize)operator(.)ident(times)operator({) ident(print) ident(randomaccess)operator(.)ident(read)operator(()operator(\)) operator(+) string<delimiter(')content( )delimiter(')> operator(})operator(;) ident(println)operator(()operator(\)) comment(// => 8 9 10 11) -ident(randomaccess)operator(.)ident(close)operator(()operator(\)) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_8.13) -comment(//----------------------------------------------------------------------------------) -comment(// let's take the example from 8.12 but replace the 3rd record with) -comment(// 90 - the original value in the file) -comment(// this is an alternative example to the Perl cookbook which is cross platform) -comment(// see chapter 1 regarding un/pack which could be combined with below) -comment(// to achieve the full functionality of the original 8.13) -ident(recsize) operator(=) integer(4) -ident(recno) operator(=) integer(2) comment(// index starts at 0) -ident(address) operator(=) ident(recsize) operator(*) ident(recno) -ident(randomaccess) operator(=) keyword(new) pre_type(RandomAccessFile)operator(()ident(binfile)operator(,) string<delimiter(')content(rw)delimiter(')>operator(\)) -ident(randomaccess)operator(.)ident(seek)operator(()ident(address)operator(\)) -ident(bytes) operator(=) type([]) -ident(recsize)operator(.)ident(times)operator({) ident(bytes) operator(+=) ident(randomaccess)operator(.)ident(read)operator(()operator(\)) operator(}) -ident(randomaccess)operator(.)ident(seek)operator(()ident(address)operator(\)) -ident(bytes)operator(.)ident(each)operator({) ident(b) operator(->) ident(randomaccess)operator(.)ident(write)operator(()integer(90) operator(-) ident(b)operator(\)) operator(}) -ident(randomaccess)operator(.)ident(close)operator(()operator(\)) -ident(binfile)operator(.)ident(eachByte)operator({) ident(print) local_variable(it) operator(+) string<delimiter(')content( )delimiter(')> operator(})operator(;) ident(println)operator(()operator(\)) -comment(// => 0 1 2 3 4 5 6 7 82 81 80 79 12 13 14 15 16 17 18 19) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_8.14) -comment(//----------------------------------------------------------------------------------) -comment(// reading a String would involve looping and collecting the read bytes) - -comment(// simple bgets) -comment(// this is similar to the revised 8.13 but would look for the terminating 0) - -comment(// simplistic strings functionality) -ident(binfile)operator(.)ident(eachByte)operator({) ident(b) operator(->) keyword(if) operator(()operator(()type(int)operator(\))ident(b) keyword(in) integer(32)operator(..)integer(126)operator(\)) ident(print) operator(()operator(()type(char)operator(\))ident(b)operator(\)) operator(})operator(;) ident(println)operator(()operator(\)) comment(// => RQPO) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_8.15) -comment(//----------------------------------------------------------------------------------) -comment(// You could combine the byte-level reading/writing mechanisms shown) -comment(// in 8.11 - 8.12 and combine that with the un/pack functionality from) -comment(// Chapter 1 to achieve the desired functionality. A more Java and Groovy) -comment(// friendly way to do this would be to use the Scattering and Gathering) -comment(// stream operations of channels for byte-oriented record fields or) -comment(// data-oriented records. Alternatively, the dataInput/output stream) -comment(// capabilities for data-oriented records. Finally, the) -comment(// objectInput/output stream capabilities could be used for object types.) -comment(// Note, these examples mix reading and writing even though the original) -comment(// Perl example was just about reading.) - - -comment(// fixed-length byte-oriented records using channels) -comment(// typical approach used with low-level protocols or file formats) -keyword(import) include(java.nio.*) -ident(binfile)operator(.)ident(delete)operator(()operator(\))operator(;) ident(binfile)operator(.)ident(createNewFile)operator(()operator(\)) comment(// start from scratch) -ident(buf1) operator(=) pre_type(ByteBuffer)operator(.)ident(wrap)operator(()operator([)integer(10)operator(,)integer(11)operator(,)integer(12)operator(,)integer(13)operator(]) keyword(as) type(byte)type([])operator(\)) comment(// simulate 4 byte field) -ident(buf2) operator(=) pre_type(ByteBuffer)operator(.)ident(wrap)operator(()operator([)integer(44)operator(,)integer(45)operator(]) keyword(as) type(byte)type([])operator(\)) comment(// 2 byte field) -ident(buf3) operator(=) pre_type(ByteBuffer)operator(.)ident(wrap)operator(()string<delimiter(')content(Hello)delimiter(')>operator(.)ident(bytes)operator(\)) comment(// String) -ident(records) operator(=) operator([)ident(buf1)operator(,) ident(buf2)operator(,) ident(buf3)operator(]) keyword(as) pre_type(ByteBuffer)type([]) -ident(channel) operator(=) keyword(new) pre_type(FileOutputStream)operator(()ident(binfile)operator(\))operator(.)ident(channel) -ident(channel)operator(.)ident(write)operator(()ident(records)operator(\)) comment(// gathering byte records) -ident(channel)operator(.)ident(close)operator(()operator(\)) -ident(binfile)operator(.)ident(eachByte)operator({) ident(print) local_variable(it) operator(+) string<delimiter(')content( )delimiter(')> operator(})operator(;) ident(println)operator(()operator(\)) -comment(// => 10 11 12 13 44 45 72 101 108 108 111) -comment(// ScatteringInputStream would convert this back into an array of byte[]) - - -comment(// data-oriented streams using channels) -ident(binfile)operator(.)ident(delete)operator(()operator(\))operator(;) ident(binfile)operator(.)ident(createNewFile)operator(()operator(\)) comment(// start from scratch) -ident(buf) operator(=) pre_type(ByteBuffer)operator(.)ident(allocate)operator(()integer(24)operator(\)) -ident(now) operator(=) pre_type(System)operator(.)ident(currentTimeMillis)operator(()operator(\)) -ident(buf)operator(.)ident(put)operator(()string<delimiter(')content(PI=)delimiter(')>operator(.)ident(bytes)operator(\))operator(.)ident(putDouble)operator(()pre_type(Math)operator(.)ident(PI)operator(\))operator(.)ident(put)operator(()string<delimiter(')content(Date=)delimiter(')>operator(.)ident(bytes)operator(\))operator(.)ident(putLong)operator(()ident(now)operator(\)) -ident(buf)operator(.)ident(flip)operator(()operator(\)) comment(// readies for writing: set length and point back to start) -ident(channel) operator(=) keyword(new) pre_type(FileOutputStream)operator(()ident(binfile)operator(\))operator(.)ident(channel) -ident(channel)operator(.)ident(write)operator(()ident(buf)operator(\)) -ident(channel)operator(.)ident(close)operator(()operator(\)) -comment(// now read it back in) -ident(channel) operator(=) keyword(new) pre_type(FileInputStream)operator(()ident(binfile)operator(\))operator(.)ident(channel) -ident(buf) operator(=) pre_type(ByteBuffer)operator(.)ident(allocate)operator(()integer(24)operator(\)) -ident(channel)operator(.)ident(read)operator(()ident(buf)operator(\)) -ident(buf)operator(.)ident(flip)operator(()operator(\)) -integer(3)operator(.)ident(times)operator({) ident(print) operator(()operator(()type(char)operator(\))ident(buf)operator(.)ident(get)operator(()operator(\))operator(\)) operator(}) -ident(println) operator(()ident(buf)operator(.)ident(getDouble)operator(()operator(\))operator(\)) -integer(5)operator(.)ident(times)operator({) ident(print) operator(()operator(()type(char)operator(\))ident(buf)operator(.)ident(get)operator(()operator(\))operator(\)) operator(}) -ident(println) operator(()keyword(new) pre_type(Date)operator(()ident(buf)operator(.)ident(getLong)operator(()operator(\))operator(\))operator(\)) -ident(channel)operator(.)ident(close)operator(()operator(\)) -comment(// =>) -comment(// PI=3.141592653589793) -comment(// Date=Sat Jan 13 00:14:50 EST 2007) - -comment(// object-oriented streams) -ident(binfile)operator(.)ident(delete)operator(()operator(\))operator(;) ident(binfile)operator(.)ident(createNewFile)operator(()operator(\)) comment(// start from scratch) -type(class) class(Person) directive(implements) pre_type(Serializable) operator({) keyword(def) ident(name)operator(,) ident(age) operator(}) -ident(binfile)operator(.)ident(withObjectOutputStream)operator({) ident(oos) operator(->) - ident(oos)operator(.)ident(writeObject)operator(()keyword(new) ident(Person)operator(()key(name)operator(:)string<delimiter(')content(Bernie)delimiter(')>operator(,)key(age)operator(:)integer(16)operator(\))operator(\)) - ident(oos)operator(.)ident(writeObject)operator(()operator([)integer(1)operator(:)string<delimiter(')content(a)delimiter(')>operator(,) integer(2)operator(:)string<delimiter(')content(b)delimiter(')>operator(])operator(\)) - ident(oos)operator(.)ident(writeObject)operator(()keyword(new) pre_type(Date)operator(()operator(\))operator(\)) -operator(}) -comment(// now read it back in) -ident(binfile)operator(.)ident(withObjectInputStream)operator({) ident(ois) operator(->) - ident(person) operator(=) ident(ois)operator(.)ident(readObject)operator(()operator(\)) - ident(println) string<delimiter(")inline<inline_delimiter($)ident(person)>content(.name is )inline<inline_delimiter($)ident(person)>content(.age)delimiter(")> - ident(println) ident(ois)operator(.)ident(readObject)operator(()operator(\)) - ident(println) ident(ois)operator(.)ident(readObject)operator(()operator(\)) -operator(}) -comment(// =>) -comment(// Bernie is 16) -comment(// [1:"a", 2:"b"]) -comment(// Sat Jan 13 00:22:13 EST 2007) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_8.16) -comment(//----------------------------------------------------------------------------------) -comment(// use built-in Java property class) -comment(// suppose you have the following file:) -comment(// # set your database settings here) -comment(// server=localhost) -comment(// url=jdbc:derby:derbyDB;create=true) -comment(// user.name=me) -comment(// user.password=secret) -ident(props) operator(=) keyword(new) pre_type(Properties)operator(()operator(\)) -ident(propsfile)operator(=)keyword(new) pre_type(File)operator(()string<delimiter(')content(Pleac/data/plain.properties)delimiter(')>operator(\)) -ident(props)operator(.)ident(load)operator(()ident(propsfile)operator(.)ident(newInputStream)operator(()operator(\))operator(\)) -ident(props)operator(.)ident(list)operator(()pre_type(System)operator(.)ident(out)operator(\)) -comment(// =>) -comment(// -- listing properties --) -comment(// user.name=me) -comment(// user.password=secret) -comment(// url=jdbc:derby:derbyDB;create=true) -comment(// server=localhost) - -comment(// There are also provisions for writing properties file.) - -comment(// (additional example to Perl\)) -comment(// You can also read and write xml properties files.) -keyword(new) pre_type(File)operator(()string<delimiter(')content(Pleac/data/props.xml)delimiter(')>operator(\))operator(.)ident(withOutputStream)operator({) ident(os) operator(->) - ident(props)operator(.)ident(storeToXML)operator(()ident(os)operator(,) string<delimiter(")content(Database Settings)delimiter(")>operator(\)) -operator(}) -comment(// =>) -comment(// <?xml version="1.0" encoding="UTF-8"?>) -comment(// <!DOCTYPE properties SYSTEM "http://java.sun.com/dtd/properties.dtd">) -comment(// <properties>) -comment(// <comment>Database Settings</comment>) -comment(// <entry key="user.password">secret</entry>) -comment(// <entry key="user.name">me</entry>) -comment(// <entry key="url">jdbc:derby:derbyDB;create=true</entry>) -comment(// <entry key="server">localhost</entry>) -comment(// </properties>) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_8.17) -comment(//----------------------------------------------------------------------------------) -comment(// The File class provides canRead(\), canWrite(\) and canExecute(\) (JDK6\) methods) -comment(// for finding out about security information specific to the user. JSR 203) -comment(// (expected in Java 7\) provides access to additional security related attributes.) - -comment(// Another useful package to use when wondering about the trustworthiness of a) -comment(// file is the java.security package. It contains many classes. Just one is) -comment(// MessageDigest. This would allow you to create a strong checksum of a file.) -comment(// Your program could refuse to operate if a file it was accessing didn't have the) -comment(// checksum it was expecting - an indication that it may have been tampered with.) - -comment(// (additional info\)) -comment(// While getting file-based security permissions correct is important, it isn't the) -comment(// only mechanism to use for security when using Java based systems. Java provides) -comment(// policy files and an authorization and authentication API which lets you secure) -comment(// any reources (not just files\) at various levels of granularity with various) -comment(// security mechanisms.) -comment(// Security policies may be universal, apply to a particular codebase, or) -comment(// using JAAS apply to individuals. Some indicative policy statements:) -comment(// grant {) -comment(// permission java.net.SocketPermission "*", "connect";) -comment(// permission java.io.FilePermission "C:\\\\users\\\\cathy\\\\foo.bat", "read";) -comment(// };) -comment(// grant codebase "file:./*", Principal ExamplePrincipal "Secret" {) -comment(// permission java.io.FilePermission "dummy.txt", "read";) -comment(// };) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_8.18) -comment(//----------------------------------------------------------------------------------) -comment(// general purpose utility methods) -keyword(def) method(getString)operator(()ident(buf)operator(,)ident(size)operator(\))operator({) - comment(// consider get(buf[]\) instead of get(buf\) for efficiency) - ident(b)operator(=)type([])operator(;) ident(size)operator(.)ident(times)operator({)ident(b)operator(+=)ident(buf)operator(.)ident(get)operator(()operator(\))operator(})operator(;) keyword(new) pre_type(String)operator(()ident(b) keyword(as) type(byte)type([])operator(\))operator(.)ident(trim)operator(()operator(\)) -operator(}) -keyword(def) method(getInt)operator(()ident(buf)operator(,)ident(size)operator(\)) operator({) - comment(// normally in Java we would just use methods like getLong(\)) - comment(// to read a long but wish to ignore platform issues here) - type(long) ident(val) operator(=) integer(0) - keyword(for) operator(()ident(n) keyword(in) integer(0)operator(..<)ident(size)operator(\)) operator({) ident(val) operator(+=) operator(()operator(()type(int)operator(\))ident(buf)operator(.)ident(get)operator(()operator(\)) operator(&) hex(0xFF)operator(\)) operator(<)operator(<) operator(()ident(n) operator(*) integer(8)operator(\)) operator(}) - keyword(return) ident(val) -operator(}) -keyword(def) method(getDate)operator(()ident(buf)operator(\)) operator({) - keyword(return) keyword(new) pre_type(Date)operator(()ident(getInt)operator(()ident(buf)operator(,)integer(4)operator(\)) operator(*) integer(1000)operator(\)) comment(// Java uses millis) -operator(}) - -comment(// specific utility method (wtmp file from ubuntu 6.10\)) -keyword(def) method(processWtmpRecords)operator(()ident(file)operator(,) ident(origpos)operator(\)) operator({) - ident(channel) operator(=) keyword(new) pre_type(RandomAccessFile)operator(()ident(file)operator(,) string<delimiter(')content(r)delimiter(')>operator(\))operator(.)ident(channel) - ident(recsize) operator(=) integer(4) operator(+) integer(4) operator(+) integer(32) operator(+) integer(4) operator(+) integer(32) operator(+) integer(256) operator(+) integer(8) operator(+) integer(4) operator(+) integer(40) - ident(channel)operator(.)ident(position)operator(()ident(origpos)operator(\)) - ident(newpos) operator(=) ident(origpos) - ident(buf) operator(=) pre_type(ByteBuffer)operator(.)ident(allocate)operator(()ident(recsize)operator(\)) - keyword(while) operator(()operator(()ident(count) operator(=) ident(channel)operator(.)ident(read)operator(()ident(buf)operator(\))operator(\)) operator(!=) operator(-)integer(1)operator(\)) operator({) - keyword(if) operator(()ident(count) operator(!=) ident(recsize)operator(\)) keyword(break) - ident(buf)operator(.)ident(flip)operator(()operator(\)) - ident(print) ident(getInt)operator(()ident(buf)operator(,)integer(4)operator(\)) operator(+) string<delimiter(')content( )delimiter(')> comment(// type) - ident(print) ident(getInt)operator(()ident(buf)operator(,)integer(4)operator(\)) operator(+) string<delimiter(')content( )delimiter(')> comment(// pid) - ident(print) ident(getString)operator(()ident(buf)operator(,)integer(32)operator(\)) operator(+) string<delimiter(')content( )delimiter(')> comment(// line) - ident(print) ident(getString)operator(()ident(buf)operator(,)integer(4)operator(\)) operator(+) string<delimiter(')content( )delimiter(')> comment(// inittab) - ident(print) ident(getString)operator(()ident(buf)operator(,)integer(32)operator(\)) operator(+) string<delimiter(')content( )delimiter(')> comment(// user) - ident(print) ident(getString)operator(()ident(buf)operator(,)integer(256)operator(\)) operator(+) string<delimiter(')content( )delimiter(')> comment(// hostname) - ident(buf)operator(.)ident(position)operator(()ident(buf)operator(.)ident(position)operator(()operator(\)) operator(+) integer(8)operator(\)) comment(// skip) - ident(println) string<delimiter(")inline<inline_delimiter(${)ident(getDate)operator(()ident(buf)operator(\))inline_delimiter(})>content( )delimiter(")> comment(// time) - ident(buf)operator(.)ident(clear)operator(()operator(\)) - ident(newpos) operator(=) ident(channel)operator(.)ident(position)operator(()operator(\)) - operator(}) - keyword(return) ident(newpos) -operator(}) - -ident(wtmp) operator(=) keyword(new) pre_type(File)operator(()string<delimiter(')content(Pleac/data/wtmp)delimiter(')>operator(\)) -comment(// wtmpTailingScript:) -ident(sampleInterval) operator(=) integer(2000) comment(// 2000 millis = 2 secs) -ident(filePointer) operator(=) ident(wtmp)operator(.)ident(size)operator(()operator(\)) comment(// begin tailing from the end of the file) -keyword(while)operator(()pre_constant(true)operator(\)) operator({) - comment(// Compare the length of the file to the file pointer) - type(long) ident(fileLength) operator(=) ident(wtmp)operator(.)ident(size)operator(()operator(\)) - keyword(if)operator(() ident(fileLength) operator(>) ident(filePointer) operator(\)) operator({) - comment(// There is data to read) - ident(filePointer) operator(=) ident(processWtmpRecords)operator(()ident(wtmp)operator(,) ident(filePointer)operator(\)) - operator(}) - comment(// Sleep for the specified interval) - pre_type(Thread)operator(.)ident(sleep)operator(() ident(sampleInterval) operator(\)) -operator(}) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_8.19) -comment(//----------------------------------------------------------------------------------) -comment(// contains most of the functionality of the original (not guaranteed to be perfect\)) -comment(// -i ignores errors, e.g. if one target is write protected, the others will work) -comment(// -u writes files in unbuffered mode (ignore for '|'\)) -comment(// -n not to stdout) -comment(// -a all files are in append mode) -comment(// '>>file1' turn on append for individual file) -comment(// '|wc' or '|grep x' etc sends output to forked process (only one at any time\)) -type(class) class(MultiStream) operator({) - directive(private) ident(targets) - directive(private) ident(ignoreErrors) - ident(MultiStream)operator(()pre_type(List) ident(targets)operator(,) ident(ignore)operator(\)) operator({) - local_variable(this)operator(.)ident(targets) operator(=) ident(targets) - ident(ignoreErrors) operator(=) ident(ignore) - operator(}) - keyword(def) method(println)operator(()pre_type(String) ident(content)operator(\)) operator({) - ident(targets)operator(.)ident(each)operator({) - keyword(try) operator({) - local_variable(it)operator(?)operator(.)ident(write)operator(()ident(content)operator(.)ident(bytes)operator(\)) - operator(}) keyword(catch) operator(()exception(Exception) ident(ex)operator(\)) operator({) - keyword(if) operator(()operator(!)ident(ignoreErrors)operator(\)) keyword(throw) ident(ex) - ident(targets) operator(-=) local_variable(it) - local_variable(it)operator(?)operator(.)ident(close)operator(()operator(\)) - operator(}) - operator(}) - operator(}) - keyword(def) method(close)operator(()operator(\)) operator({) ident(targets)operator(.)ident(each)operator({) local_variable(it)operator(?)operator(.)ident(close)operator(()operator(\)) operator(}) operator(}) -operator(}) - -type(class) class(TeeTarget) operator({) - directive(private) ident(filename) - directive(private) ident(stream) - directive(private) ident(p) - - ident(TeeTarget)operator(()pre_type(String) ident(name)operator(,) ident(append)operator(,) ident(buffered)operator(,) ident(ignore)operator(\)) operator({) - keyword(if) operator(()ident(name)operator(.)ident(startsWith)operator(()string<delimiter(')content(>>)delimiter(')>operator(\))operator(\)) operator({) - ident(createFileStream)operator(()ident(name)operator([)integer(2)operator(..)operator(-)integer(1)operator(])operator(,)pre_constant(true)operator(,)ident(buffered)operator(,)ident(ignore)operator(\)) - operator(}) keyword(else) keyword(if) operator(()ident(name)operator(.)ident(startsWith)operator(()string<delimiter(')content(|)delimiter(')>operator(\))operator(\)) operator({) - ident(createProcessReader)operator(()ident(name)operator([)integer(1)operator(..)operator(-)integer(1)operator(])operator(\)) - operator(}) keyword(else) operator({) - ident(createFileStream)operator(()ident(name)operator(,)ident(append)operator(,)ident(buffered)operator(,)ident(ignore)operator(\)) - operator(}) - operator(}) - - ident(TeeTarget)operator(()pre_type(OutputStream) ident(stream)operator(\)) operator({) local_variable(this)operator(.)ident(stream) operator(=) ident(stream) operator(}) - - keyword(def) method(write)operator(()ident(bytes)operator(\)) operator({) ident(stream)operator(?)operator(.)ident(write)operator(()ident(bytes)operator(\)) operator(}) - keyword(def) method(close)operator(()operator(\)) operator({) ident(stream)operator(?)operator(.)ident(close)operator(()operator(\)) operator(}) - - directive(private) ident(createFileStream)operator(()ident(name)operator(,) ident(append)operator(,) ident(buffered)operator(,) ident(ignore)operator(\)) operator({) - ident(filename) operator(=) ident(name) - keyword(def) ident(fos) - keyword(try) operator({) - ident(fos) operator(=) keyword(new) pre_type(FileOutputStream)operator(()ident(name)operator(,) ident(append)operator(\)) - operator(}) keyword(catch) operator(()exception(Exception) ident(ex)operator(\)) operator({) - keyword(if) operator(()ident(ignore)operator(\)) keyword(return) - operator(}) - keyword(if) operator(()operator(!)ident(buffered)operator(\)) ident(stream) operator(=) ident(fos) - keyword(else) ident(stream) operator(=) keyword(new) pre_type(BufferedOutputStream)operator(()ident(fos)operator(\)) - operator(}) - directive(private) ident(createWriter)operator(()ident(os)operator(\)) operator({)keyword(new) pre_type(PrintWriter)operator(()keyword(new) pre_type(BufferedOutputStream)operator(()ident(os)operator(\))operator(\))operator(}) - directive(private) ident(createReader)operator(()ident(is)operator(\)) operator({)keyword(new) pre_type(BufferedReader)operator(()keyword(new) pre_type(InputStreamReader)operator(()ident(is)operator(\))operator(\))operator(}) - directive(private) ident(createPiperThread)operator(()ident(br)operator(,) ident(pw)operator(\)) operator({) - pre_type(Thread)operator(.)ident(start)operator({) - keyword(def) ident(next) - keyword(while)operator(()operator(()ident(next) operator(=) ident(br)operator(.)ident(readLine)operator(()operator(\))operator(\))operator(!=)pre_constant(null)operator(\)) operator({) - ident(pw)operator(.)ident(println)operator(()ident(next)operator(\)) - operator(}) - ident(pw)operator(.)ident(flush)operator(()operator(\))operator(;) ident(pw)operator(.)ident(close)operator(()operator(\)) - operator(}) - operator(}) - directive(private) ident(createProcessReader)operator(()ident(name)operator(\)) operator({) - keyword(def) ident(readFromStream) operator(=) keyword(new) pre_type(PipedInputStream)operator(()operator(\)) - keyword(def) ident(r1) operator(=) ident(createReader)operator(()ident(readFromStream)operator(\)) - ident(stream) operator(=) keyword(new) pre_type(BufferedOutputStream)operator(()keyword(new) pre_type(PipedOutputStream)operator(()ident(readFromStream)operator(\))operator(\)) - ident(p) operator(=) pre_type(Runtime)operator(.)ident(runtime)operator(.)ident(exec)operator(()ident(name)operator(\)) - keyword(def) ident(w1) operator(=) ident(createWriter)operator(()ident(p)operator(.)ident(outputStream)operator(\)) - ident(createPiperThread)operator(()ident(r1)operator(,) ident(w1)operator(\)) - keyword(def) ident(w2) operator(=) ident(createWriter)operator(()pre_type(System)operator(.)ident(out)operator(\)) - keyword(def) ident(r2) operator(=) ident(createReader)operator(()ident(p)operator(.)ident(inputStream)operator(\)) - ident(createPiperThread)operator(()ident(r2)operator(,) ident(w2)operator(\)) - operator(}) -operator(}) - -ident(targets) operator(=) type([]) -ident(append) operator(=) pre_constant(false)operator(;) ident(ignore) operator(=) pre_constant(false)operator(;) ident(includeStdout) operator(=) pre_constant(true)operator(;) ident(buffer) operator(=) pre_constant(true) -operator(()integer(0)operator(..<)ident(args)operator(.)ident(size)operator(()operator(\))operator(\))operator(.)ident(each)operator({) - ident(arg) operator(=) ident(args)operator([)local_variable(it)operator(]) - keyword(if) operator(()ident(arg)operator(.)ident(startsWith)operator(()string<delimiter(')content(-)delimiter(')>operator(\))operator(\)) operator({) - keyword(switch) operator(()ident(arg)operator(\)) operator({) - keyword(case) string<delimiter(')content(-a)delimiter(')>operator(:) ident(append) operator(=) pre_constant(true)operator(;) keyword(break) - keyword(case) string<delimiter(')content(-i)delimiter(')>operator(:) ident(ignore) operator(=) pre_constant(true)operator(;) keyword(break) - keyword(case) string<delimiter(')content(-n)delimiter(')>operator(:) ident(includeStdout) operator(=) pre_constant(false)operator(;) keyword(break) - keyword(case) string<delimiter(')content(-u)delimiter(')>operator(:) ident(buffer) operator(=) pre_constant(false)operator(;) keyword(break) - keyword(default)operator(:) - ident(println) string<delimiter(")content(usage: tee [-ainu] [filenames] ...)delimiter(")> - pre_type(System)operator(.)ident(exit)operator(()integer(1)operator(\)) - operator(}) - operator(}) keyword(else) ident(targets) operator(+=) ident(arg) -operator(}) -ident(targets) operator(=) ident(targets)operator(.)ident(collect)operator({) keyword(new) ident(TeeTarget)operator(()local_variable(it)operator(,) ident(append)operator(,) ident(buffer)operator(,) ident(ignore)operator(\)) operator(}) -keyword(if) operator(()ident(includeStdout)operator(\)) ident(targets) operator(+=) keyword(new) ident(TeeTarget)operator(()pre_type(System)operator(.)ident(out)operator(\)) -keyword(def) ident(tee) operator(=) keyword(new) ident(MultiStream)operator(()ident(targets)operator(,) ident(ignore)operator(\)) -keyword(while) operator(()ident(line) operator(=) pre_type(System)operator(.)ident(in)operator(.)ident(readLine)operator(()operator(\))operator(\)) operator({) - ident(tee)operator(.)ident(println)operator(()ident(line)operator(\)) -operator(}) -ident(tee)operator(.)ident(close)operator(()operator(\)) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_8.20) -comment(//----------------------------------------------------------------------------------) -comment(// most of the functionality - uses an explicit uid - ran on ubuntu 6.10 on intel) -ident(lastlog) operator(=) keyword(new) pre_type(File)operator(()string<delimiter(')content(Pleac/data/lastlog)delimiter(')>operator(\)) -ident(channel) operator(=) keyword(new) pre_type(RandomAccessFile)operator(()ident(lastlog)operator(,) string<delimiter(')content(r)delimiter(')>operator(\))operator(.)ident(channel) -ident(uid) operator(=) integer(1000) -ident(recsize) operator(=) integer(4) operator(+) integer(32) operator(+) integer(256) -ident(channel)operator(.)ident(position)operator(()ident(uid) operator(*) ident(recsize)operator(\)) -ident(buf) operator(=) pre_type(ByteBuffer)operator(.)ident(allocate)operator(()ident(recsize)operator(\)) -ident(channel)operator(.)ident(read)operator(()ident(buf)operator(\)) -ident(buf)operator(.)ident(flip)operator(()operator(\)) -ident(date) operator(=) ident(getDate)operator(()ident(buf)operator(\)) -ident(line) operator(=) ident(getString)operator(()ident(buf)operator(,)integer(32)operator(\)) -ident(host) operator(=) ident(getString)operator(()ident(buf)operator(,)integer(256)operator(\)) -ident(println) string<delimiter(")content(User with uid )inline<inline_delimiter($)ident(uid)>content( last logged on )inline<inline_delimiter($)ident(date)>content( from )inline<inline_delimiter(${)ident(host)operator(?)ident(host)operator(:)string<delimiter(')content(unknown)delimiter(')>inline_delimiter(})>content( on )inline<inline_delimiter($)ident(line)>delimiter(")> -comment(// => User with uid 1000 last logged on Sat Jan 13 09:09:35 EST 2007 from unknown on :0) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_9.0) -comment(//----------------------------------------------------------------------------------) -comment(// Groovy builds on Java's file and io classes which provide an operating) -comment(// system independent abstraction of a file system. The actual File class) -comment(// is the main class of interest. It represents a potential file or) -comment(// directory - which may or may not (yet\) exist. In versions of Java up to) -comment(// and including Java 6, the File class was missing some of the functionality) -comment(// required to implement some of the examples in the Chapter (workarounds) -comment(// and alternatives are noted below\). In Java 7, (also known as "Dolphin"\)) -comment(// new File abstraction facilities are being worked on but haven't yet been) -comment(// publically released. These new features are known as JSR 203 and are) -comment(// referred to when relevant to some of the examples. Thanks to Alan Bateman) -comment(// from Sun for clarification regarding various aspects of JSR 203. Apologies) -comment(// if I misunderstood any aspects relayed to me and also usual disclaimers) -comment(// apply regarding features which may change or be dropped before release.) - -comment(// path='/usr/bin'; file='vi' // linux/mac os?) -ident(path)operator(=)string<delimiter(')content(C:/windows)delimiter(')>operator(;) ident(file)operator(=)string<delimiter(')content(explorer.exe)delimiter(')> comment(// windows) -ident(entry) operator(=) keyword(new) pre_type(File)operator(()string<delimiter(")inline<inline_delimiter($)ident(path)>delimiter(")>operator(\)) -keyword(assert) ident(entry)operator(.)ident(isDirectory)operator(()operator(\)) -ident(entry) operator(=) keyword(new) pre_type(File)operator(()string<delimiter(")inline<inline_delimiter($)ident(path)>content(/)inline<inline_delimiter($)ident(file)>delimiter(")>operator(\)) -keyword(assert) ident(entry)operator(.)ident(isFile)operator(()operator(\)) - -ident(println) pre_type(File)operator(.)ident(separator) -comment(// => \\ (on Windows\)) -comment(// => / (on Unix\)) -comment(// however if you just stick to backslashes Java converts for you) -comment(// in most situations) - -comment(// File modification time (no exact equivalent of ctime - but you can) -comment(// call stat(\) using JNI or use exec(\) of dir or ls to get this kind of info\)) -comment(// JSR 203 also plans to provide such info in Java 7.) -ident(println) keyword(new) pre_type(Date)operator(()ident(entry)operator(.)ident(lastModified)operator(()operator(\))operator(\)) -comment(// => Wed Aug 04 07:00:00 EST 2004) - -comment(// file size) -ident(println) ident(entry)operator(.)ident(size)operator(()operator(\)) -comment(// => 1032192) - -comment(// check if we have permission to read the file) -keyword(assert) ident(entry)operator(.)ident(canRead)operator(()operator(\)) - -comment(// check if file is binary or text?) -comment(// There is no functionality for this at the file level.) -comment(// Java has the Java Activation Framework (jaf\) which is used to) -comment(// associate files (and streams\) with MIME Types and subsequently) -comment(// binary data streams or character encodings for (potentially) -comment(// multilanguage\) text files. JSR-203 provides a method to determine) -comment(// the MIME type of a file. Depending on the platform the file type may) -comment(// be determined based on a file attribute, file name "extension", the) -comment(// bytes of the files (byte sniffing\) or other means. It is service) -comment(// provider based so developers can plug in their own file type detection) -comment(// mechanisms as required. "Out of the box" it will ship with file type) -comment(// detectors that are appropriate for the platform (integrates with GNOME,) -comment(// Windows registry, etc.\).) - -comment(// Groovy uses File for directories and files) -comment(// displayAllFilesInUsrBin:) -keyword(new) pre_type(File)operator(()string<delimiter(')content(/usr/bin)delimiter(')>operator(\))operator(.)ident(eachFile)operator({) ident(file) operator(->) - ident(println) string<delimiter(")content(Inside /usr/bin is something called )inline<inline_delimiter($)ident(file)>content(.name)delimiter(")> -operator(}) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_9.1) -comment(//----------------------------------------------------------------------------------) -ident(file) operator(=) keyword(new) pre_type(File)operator(()string<delimiter(")content(filename)delimiter(")>operator(\)) -ident(file) operator(<)operator(<) string<delimiter(')content(hi)delimiter(')> -ident(timeModified) operator(=) ident(file)operator(.)ident(lastModified)operator(()operator(\)) -ident(println) keyword(new) pre_type(Date)operator(()ident(timeModified)operator(\)) -comment(// => Sun Jan 07 11:49:02 EST 2007) - -ident(MILLIS_PER_WEEK) operator(=) integer(60) operator(*) integer(60) operator(*) integer(24) operator(*) integer(1000) operator(*) integer(7) -ident(file)operator(.)ident(setLastModified)operator(()ident(timeModified) operator(-) ident(MILLIS_PER_WEEK)operator(\)) -ident(println) keyword(new) pre_type(Date)operator(()ident(file)operator(.)ident(lastModified)operator(()operator(\))operator(\)) -comment(// => Sun Dec 31 11:49:02 EST 2006) - -comment(// Java currently doesn't provide access to other timestamps but) -comment(// there are things that can be done:) -comment(// (1\) You can use JNI to call to C, e.g. stat(\)) -comment(// (2\) Use exec(\) and call another program, e.g. dir, ls, ... to get the value you are after) -comment(// (3\) Here is a Windows specific patch to get lastAccessedTime and creationTime) -comment(// http://forum.java.sun.com/thread.jspa?forumID=31&start=0&threadID=409921&range=100#1800193) -comment(// (4\) There is an informal patch for Java 5/6 which gives lastAccessedTime on Windows and Linux) -comment(// and creationTime on windows:) -comment(// http://bugs.sun.com/bugdatabase/view_bug.do?bug_id=6314708) -comment(// (5\) JSR 203 (currently targetted for Java 7\) aims to provide) -comment(// "bulk access to file attributes, change notification, escape to filesystem-specific APIs") -comment(// this is supposed to include creationTime and lastAccessedTime along with many) -comment(// security-related file attributes) - -comment(// viFileWithoutChangingModificationTimeScript:) -doctype(#!/usr/bin/groovy) -comment(// uvi - vi a file without changing it's last modified time) -keyword(if) operator(()ident(args)operator(.)ident(size)operator(()operator(\)) operator(!=) integer(1)operator(\)) - ident(println) string<delimiter(")content(usage: uvi filename)delimiter(")> - pre_type(System)operator(.)ident(exit)operator(()integer(1)operator(\)) -operator(}) -ident(file) operator(=) ident(args)operator([)integer(0)operator(]) -ident(origTime) operator(=) keyword(new) pre_type(File)operator(()ident(file)operator(\))operator(.)ident(lastModified)operator(()operator(\)) -string<delimiter(")content(vi )inline<inline_delimiter($)ident(file)>delimiter(")>operator(.)ident(execute)operator(()operator(\)) -keyword(new) pre_type(File)operator(()ident(file)operator(\))operator(.)ident(setLastModified)operator(()ident(origTime)operator(\)) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_9.2) -comment(//----------------------------------------------------------------------------------) -ident(println) keyword(new) pre_type(File)operator(()string<delimiter(')content(/doesnotexist)delimiter(')>operator(\))operator(.)ident(exists)operator(()operator(\)) comment(// => false) -ident(println) keyword(new) pre_type(File)operator(()string<delimiter(')content(/doesnotexist)delimiter(')>operator(\))operator(.)ident(delete)operator(()operator(\)) comment(// => false) - -keyword(new) pre_type(File)operator(()string<delimiter(')content(/createme)delimiter(')>operator(\)) operator(<)operator(<) string<delimiter(')content(Hi there)delimiter(')> -ident(println) keyword(new) pre_type(File)operator(()string<delimiter(')content(/createme)delimiter(')>operator(\))operator(.)ident(exists)operator(()operator(\)) comment(// => true) -ident(println) keyword(new) pre_type(File)operator(()string<delimiter(')content(/createme)delimiter(')>operator(\))operator(.)ident(delete)operator(()operator(\)) comment(// => true) - -ident(names) operator(=) operator([)string<delimiter(')content(file1)delimiter(')>operator(,)string<delimiter(')content(file2)delimiter(')>operator(,)string<delimiter(')content(file3)delimiter(')>operator(]) -ident(files) operator(=) ident(names)operator(.)ident(collect)operator({) keyword(new) pre_type(File)operator(()local_variable(it)operator(\)) operator(}) -comment(// create 2 of the files) -ident(files)operator([)integer(0)operator(..)integer(1)operator(])operator(.)ident(each)operator({) ident(f) operator(->) ident(f) operator(<)operator(<) ident(f)operator(.)ident(name) operator(}) - -keyword(def) method(deleteFiles)operator(()ident(files)operator(\)) operator({) - keyword(def) ident(problemFileNames) operator(=) type([]) - ident(files)operator(.)ident(each)operator({) ident(f) operator(->) - keyword(if) operator(()operator(!)ident(f)operator(.)ident(delete)operator(()operator(\))operator(\)) - ident(problemFileNames) operator(+=) ident(f)operator(.)ident(name) - operator(}) - keyword(def) ident(delCnt) operator(=) ident(files)operator(.)ident(size)operator(()operator(\)) operator(-) ident(problemFileNames)operator(.)ident(size)operator(()operator(\)) - ident(println) string<delimiter(")content(Successfully deleted )inline<inline_delimiter($)ident(delCnt)>content( of )inline<inline_delimiter(${)ident(files)operator(.)ident(size)operator(()operator(\))inline_delimiter(})>content( file(s\))delimiter(")> - keyword(if) operator(()ident(problemFileNames)operator(\)) - ident(println) string<delimiter(")content(Problems file(s\): )delimiter(")> operator(+) ident(problemFileNames)operator(.)ident(join)operator(()string<delimiter(')content(, )delimiter(')>operator(\)) -operator(}) - -ident(deleteFiles)operator(()ident(files)operator(\)) -comment(// =>) -comment(// Successfully deleted 2 of 3 file(s\)) -comment(// Problems file(s\): file3) - -comment(// we can also set files for deletion on exit) -ident(tempFile) operator(=) keyword(new) pre_type(File)operator(()string<delimiter(')content(/xxx)delimiter(')>operator(\)) -keyword(assert) operator(!)ident(tempFile)operator(.)ident(exists)operator(()operator(\)) -ident(tempFile) operator(<)operator(<) string<delimiter(')content(junk)delimiter(')> -keyword(assert) ident(tempFile)operator(.)ident(exists)operator(()operator(\)) -ident(tempFile)operator(.)ident(deleteOnExit)operator(()operator(\)) -keyword(assert) ident(tempFile)operator(.)ident(exists)operator(()operator(\)) -comment(// To confirm this is working, run these steps multiple times in a row.) - -comment(// Discussion:) -comment(// Be careful with deleteOnExit(\) as there is no way to cancel it.) -comment(// There are also mechanisms specifically for creating unqiuely named temp files.) -comment(// On completion of JSR 203, there will be additional methods available for) -comment(// deleting which throw exceptions with detailed error messages rather than) -comment(// just return booleans.) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_9.3) -comment(//----------------------------------------------------------------------------------) -comment(// (1\) Copy examples) - -comment(//shared setup) -ident(dummyContent) operator(=) string<delimiter(')content(some content)delimiter(')> operator(+) pre_type(System)operator(.)ident(getProperty)operator(()string<delimiter(')content(line.separator)delimiter(')>operator(\)) -ident(setUpFromFile)operator(()operator(\)) -ident(setUpToFile)operator(()operator(\)) - -comment(// built-in copy via memory (text files only\)) -ident(to) operator(<)operator(<) ident(from)operator(.)ident(text) -ident(checkSuccessfulCopyAndDelete)operator(()operator(\)) - -comment(// built-in as a stream (text or binary\) with optional encoding) -ident(to) operator(<)operator(<) ident(from)operator(.)ident(asWritable)operator(()string<delimiter(')content(US-ASCII)delimiter(')>operator(\)) -ident(checkSuccessfulCopyAndDelete)operator(()operator(\)) - -comment(// built-in using AntBuilder) -comment(// for options, see: http://ant.apache.org/manual/CoreTasks/copy.html) -keyword(new) ident(AntBuilder)operator(()operator(\))operator(.)ident(copy)operator(() key(file)operator(:) ident(from)operator(.)ident(canonicalPath)operator(,) key(tofile)operator(:) ident(to)operator(.)ident(canonicalPath) operator(\)) -ident(checkSuccessfulCopyAndDelete)operator(()operator(\)) -comment(// =>) -comment(// [copy] Copying 1 file to D:\\ -) - -comment(// use Apache Jakarta Commons IO (jakarta.apache.org\)) -keyword(import) include(org.apache.commons.io.FileUtils) -comment(// Copies a file to a new location preserving the lastModified date.) -ident(FileUtils)operator(.)ident(copyFile)operator(()ident(from)operator(,) ident(to)operator(\)) -ident(checkSuccessfulCopyAndDelete)operator(()operator(\)) - -comment(// using execute(\)) -comment(// "cp $from.canonicalPath $to.canonicalPath".execute(\) // unix) -ident(println) string<delimiter(")content(cmd /c )char(\\")content(copy )inline<inline_delimiter($)ident(from)>content(.canonicalPath )inline<inline_delimiter($)ident(to)>content(.canonicalPath)char(\\")delimiter(")>operator(.)ident(execute)operator(()operator(\))operator(.)ident(text) comment(// dos vms) -ident(checkSuccessfulCopyAndDelete)operator(()operator(\)) -comment(// =>) -comment(// 1 file(s\) copied.) - -comment(// (2\) Move examples) -comment(// You can just do copy followed by delete but many OS's can just 'rename' in place) -comment(// so you can additionally do using Java's functionality:) -keyword(assert) ident(from)operator(.)ident(renameTo)operator(()ident(to)operator(\)) -keyword(assert) operator(!)ident(from)operator(.)ident(exists)operator(()operator(\)) -ident(checkSuccessfulCopyAndDelete)operator(()operator(\)) -comment(// whether renameTo succeeds if from and to are on different platforms) -comment(// or if to pre-exists is OS dependent, so you should check the return boolean) - -comment(// alternatively, Ant has a move task:) -comment(// http://ant.apache.org/manual/CoreTasks/move.html) - -comment(//helper methods) -keyword(def) method(checkSuccessfulCopyAndDelete)operator(()operator(\)) operator({) - keyword(assert) ident(to)operator(.)ident(text) operator(==) ident(dummyContent) - keyword(assert) ident(to)operator(.)ident(delete)operator(()operator(\)) - keyword(assert) operator(!)ident(to)operator(.)ident(exists)operator(()operator(\)) -operator(}) -keyword(def) method(setUpFromFile)operator(()operator(\)) operator({) - ident(from) operator(=) keyword(new) pre_type(File)operator(()string<delimiter(')content(/from.txt)delimiter(')>operator(\)) comment(// just a name) - ident(from) operator(<)operator(<) ident(dummyContent) comment(// now its a real file with content) - ident(from)operator(.)ident(deleteOnExit)operator(()operator(\)) comment(// that will be deleted on exit) -operator(}) -keyword(def) method(setUpToFile)operator(()operator(\)) operator({) - ident(to) operator(=) keyword(new) pre_type(File)operator(()string<delimiter(')content(C:/to.txt)delimiter(')>operator(\)) comment(// target name) - ident(to)operator(.)ident(delete)operator(()operator(\)) comment(// ensure not left from previous aborted run) - keyword(assert) operator(!)ident(to)operator(.)ident(exists)operator(()operator(\)) comment(// double check) -operator(}) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_9.4) -comment(//----------------------------------------------------------------------------------) -comment(// Groovy (because of its Java heritage\) doesn't have an exact) -comment(// equivalent of stat - as per 9.2 there are numerous mechanisms) -comment(// to achieve the equivalent, in particular, JSR203 (still in draft\)) -comment(// has specific SymLink support including a FileId class in the) -comment(// java.nio.filesystems package. This will allow (depending on the) -comment(// operating system capabilities\) files to be uniquely identified.) -comment(// If you work on Unix or Linux then you'll recognize this as it device/inode.) - -comment(// If you are not interested in the above workarounds/future features) -comment(// and you are on a unix system, you can compare the absolutePath and) -comment(// canonicalPath attributes for a file. If they are different it is) -comment(// a symbolic link. On other operating systems, this difference is not) -comment(// to be relied upon and even on *nix systems, this will only get you) -comment(// so far and will also be relatively expensive resource and timewise.) - -comment(// process only unique files) -ident(seen) operator(=) type([]) -keyword(def) method(myProcessing)operator(()ident(file)operator(\)) operator({) - keyword(def) ident(path) operator(=) ident(file)operator(.)ident(canonicalPath) - keyword(if) operator(()operator(!)ident(seen)operator(.)ident(contains)operator(()ident(path)operator(\))operator(\)) operator({) - ident(seen) operator(<)operator(<) ident(path) - comment(// do something with file because we haven't seen it before) - operator(}) -operator(}) - -comment(// find linked files) -ident(seen) operator(=) operator([)operator(:)operator(]) -ident(filenames) operator(=) operator([)string<delimiter(')content(/dummyfile1.txt)delimiter(')>operator(,)string<delimiter(')content(/test.lnk)delimiter(')>operator(,)string<delimiter(')content(/dummyfile2.txt)delimiter(')>operator(]) -ident(filenames)operator(.)ident(each)operator({) ident(filename) operator(->) - keyword(def) ident(file) operator(=) keyword(new) pre_type(File)operator(()ident(filename)operator(\)) - keyword(def) ident(cpath) operator(=) ident(file)operator(.)ident(canonicalPath) - keyword(if) operator(()operator(!)ident(seen)operator(.)ident(containsKey)operator(()ident(cpath)operator(\))operator(\)) operator({) - ident(seen)operator([)ident(cpath)operator(]) operator(=) type([]) - operator(}) - ident(seen)operator([)ident(cpath)operator(]) operator(+=) ident(file)operator(.)ident(absolutePath) -operator(}) - -ident(println) string<delimiter(')content(Files with links:)delimiter(')> -ident(println) ident(seen)operator(.)ident(findAll)operator({) ident(k)operator(,)ident(v) operator(->) ident(v)operator(.)ident(size)operator(()operator(\)) operator(>) integer(1) operator(}) -comment(//---------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_9.5) -comment(//----------------------------------------------------------------------------------) -comment(// general pattern is:) -comment(// new File('dirname'\).eachFile{ /* do something ... */ }) - -comment(// setup (change this on your system\)) -ident(basedir) operator(=) string<delimiter(')content(Pleac/src)delimiter(')> - -comment(// process all files printing out full name (. and .. auto excluded\)) -keyword(new) pre_type(File)operator(()ident(basedir)operator(\))operator(.)ident(eachFile)operator({) ident(f)operator(->) - keyword(if) operator(()ident(f)operator(.)ident(isFile)operator(()operator(\))operator(\)) ident(println) ident(f)operator(.)ident(canonicalPath) -operator(}) -comment(// also remove dot files such as '.svn' and '.cvs' etc.) -keyword(new) pre_type(File)operator(()ident(basedir)operator(\))operator(.)ident(eachFileMatch)operator(()operator(~)string<delimiter(')content(^[^.].*)delimiter(')>operator(\))operator({) ident(f)operator(->) - keyword(if) operator(()ident(f)operator(.)ident(isFile)operator(()operator(\))operator(\)) ident(println) ident(f)operator(.)ident(canonicalPath) -operator(}) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_9.6) -comment(//----------------------------------------------------------------------------------) -comment(// Globbing via Apache Jakarta ORO) -keyword(import) include(org.apache.oro.io.GlobFilenameFilter) -ident(dir) operator(=) keyword(new) pre_type(File)operator(()ident(basedir)operator(\)) -ident(namelist) operator(=) ident(dir)operator(.)ident(list)operator(()keyword(new) ident(GlobFilenameFilter)operator(()string<delimiter(')content(*.c)delimiter(')>operator(\))operator(\)) -ident(filelist) operator(=) ident(dir)operator(.)ident(listFiles)operator(()keyword(new) ident(GlobFilenameFilter)operator(()string<delimiter(')content(*.h)delimiter(')>operator(\)) keyword(as) pre_type(FilenameFilter)operator(\)) - -comment(// Built-in matching using regex's) -ident(files) operator(=) type([]) -keyword(new) pre_type(File)operator(()ident(basedir)operator(\))operator(.)ident(eachFileMatch)operator(()operator(~)regexp<delimiter(/)content(\\.)content([ch])content($)delimiter(/)>operator(\))operator({) ident(f)operator(->) - keyword(if) operator(()ident(f)operator(.)ident(isFile)operator(()operator(\))operator(\)) ident(files) operator(+=) ident(f) -operator(}) - -comment(// Using Ant's FileScanner (supports arbitrary nested levels using **\)) -comment(// For more details about Ant FileSets, see here:) -comment(// http://ant.apache.org/manual/CoreTypes/fileset.html) -ident(scanner) operator(=) keyword(new) ident(AntBuilder)operator(()operator(\))operator(.)ident(fileScanner) operator({) - ident(fileset)operator(()key(dir)operator(:)ident(basedir)operator(\)) operator({) - ident(include)operator(()key(name)operator(:)string<delimiter(')content(**/pleac*.groovy)delimiter(')>operator(\)) - ident(include)operator(()key(name)operator(:)string<delimiter(')content(Slowcat.*y)delimiter(')>operator(\)) - ident(exclude)operator(()key(name)operator(:)string<delimiter(')content(**/pleac??.groovy)delimiter(')>operator(\)) comment(// chaps 10 and above) - ident(exclude)operator(()key(name)operator(:)string<delimiter(')content(**/*Test*)delimiter(')>operator(,) key(unless)operator(:)string<delimiter(')content(testMode)delimiter(')>operator(\)) - operator(}) -operator(}) -keyword(for) operator(()ident(f) keyword(in) ident(scanner)operator(\)) operator({) - ident(println) string<delimiter(")content(Found file )inline<inline_delimiter($)ident(f)>delimiter(")> -operator(}) - -comment(// find and sort directories with numeric names) -ident(candidateFiles) operator(=) keyword(new) pre_type(File)operator(()ident(basedir)operator(\))operator(.)ident(listFiles)operator(()operator(\)) -ident(allDigits) operator(=) operator({) local_variable(it)operator(.)ident(name) operator(=~) regexp<delimiter(/)content(^)char(\\d)content(+)content($)delimiter(/)> operator(}) -ident(isDir) operator(=) operator({) local_variable(it)operator(.)ident(isDirectory)operator(()operator(\)) operator(}) -ident(dirs) operator(=) ident(candidateFiles)operator(.)ident(findAll)operator(()ident(isDir)operator(\))operator(.)ident(findAll)operator(()ident(allDigits)operator(\))operator(*.)ident(canonicalPath)operator(.)ident(sort)operator(()operator(\)) -ident(println) ident(dirs) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_9.7) -comment(//----------------------------------------------------------------------------------) -comment(// find all files recursively) -ident(dir) operator(=) keyword(new) pre_type(File)operator(()ident(basedir)operator(\)) -ident(files) operator(=) type([]) -ident(dir)operator(.)ident(eachFileRecurse)operator({) ident(files) operator(+=) local_variable(it) operator(}) - -comment(// find total size) -ident(sum) operator(=) ident(files)operator(.)ident(sum)operator({) local_variable(it)operator(.)ident(size)operator(()operator(\)) operator(}) -ident(println) string<delimiter(")inline<inline_delimiter($)ident(basedir)>content( contains )inline<inline_delimiter($)ident(sum)>content( bytes)delimiter(")> -comment(// => Pleac/src contains 365676 bytes) - -comment(// find biggest) -ident(biggest) operator(=) ident(files)operator(.)ident(max)operator({) local_variable(it)operator(.)ident(size)operator(()operator(\)) operator(}) -ident(println) string<delimiter(")content(Biggest file is )inline<inline_delimiter($)ident(biggest)>content(.name with )inline<inline_delimiter(${)ident(biggest)operator(.)ident(size)operator(()operator(\))inline_delimiter(})>content( bytes)delimiter(")> -comment(// => Biggest file is pleac6.groovy with 42415 bytes) - -comment(// find most recently modified) -ident(youngest) operator(=) ident(files)operator(.)ident(max)operator({) local_variable(it)operator(.)ident(lastModified)operator(()operator(\)) operator(}) -ident(println) string<delimiter(")content(Most recently modified is )inline<inline_delimiter($)ident(youngest)>content(.name, changed )inline<inline_delimiter(${)keyword(new) pre_type(Date)operator(()ident(youngest)operator(.)ident(lastModified)operator(()operator(\))operator(\))inline_delimiter(})>delimiter(")> -comment(// => Most recently modified is pleac9.groovy, changed Tue Jan 09 07:35:39 EST 2007) - -comment(// find all directories) -ident(dir)operator(.)ident(eachDir)operator({) ident(println) string<delimiter(')content(Found: )delimiter(')> operator(+) local_variable(it)operator(.)ident(name)operator(}) - -comment(// find all directories recursively) -ident(dir)operator(.)ident(eachFileRecurse)operator({) ident(f) operator(->) keyword(if) operator(()ident(f)operator(.)ident(isDirectory)operator(()operator(\))operator(\)) ident(println) string<delimiter(')content(Found: )delimiter(')> operator(+) ident(f)operator(.)ident(canonicalPath)operator(}) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_9.8) -comment(//----------------------------------------------------------------------------------) -ident(base) operator(=) keyword(new) pre_type(File)operator(()string<delimiter(')content(path_to_somewhere_to_delete)delimiter(')>operator(\)) - -comment(// delete using Jakarta Apache Commons IO) -ident(FileUtils)operator(.)ident(deleteDirectory)operator(()ident(base)operator(\)) - -comment(// delete using Ant, for various options see:) -comment(// http://ant.apache.org/manual/CoreTasks/delete.html) -ident(ant) operator(=) keyword(new) ident(AntBuilder)operator(()operator(\)) -ident(ant)operator(.)ident(delete)operator(()key(dir)operator(:) ident(base)operator(\)) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_9.9) -comment(//----------------------------------------------------------------------------------) -ident(names) operator(=) operator([)string<delimiter(')content(Pleac/src/abc.java)delimiter(')>operator(,) string<delimiter(')content(Pleac/src/def.groovy)delimiter(')>operator(]) -ident(names)operator(.)ident(each)operator({) ident(name) operator(->) keyword(new) pre_type(File)operator(()ident(name)operator(\))operator(.)ident(renameTo)operator(()keyword(new) pre_type(File)operator(()ident(name) operator(+) string<delimiter(')content(.bak)delimiter(')>operator(\))operator(\)) operator(}) - -comment(// The Groovy way of doing rename using an expr would be to use a closure) -comment(// for the expr:) -comment(// groovySimpleRenameScript:) -doctype(#!/usr/bin/groovy) -comment(// usage rename closure_expr filenames) -ident(op) operator(=) ident(args)operator([)integer(0)operator(]) -ident(println) ident(op) -ident(files) operator(=) ident(args)operator([)integer(1)operator(..)operator(-)integer(1)operator(]) -ident(shell) operator(=) keyword(new) ident(GroovyShell)operator(()ident(binding)operator(\)) -ident(files)operator(.)ident(each)operator({) ident(f) operator(->) - ident(newname) operator(=) ident(shell)operator(.)ident(evaluate)operator(()string<delimiter(")inline<inline_delimiter($)ident(op)>content((')inline<inline_delimiter($)ident(f)>content('\))delimiter(")>operator(\)) - keyword(new) pre_type(File)operator(()ident(f)operator(\))operator(.)ident(renameTo)operator(()keyword(new) pre_type(File)operator(()ident(newname)operator(\))operator(\)) -operator(}) - -comment(// this would allow processing such as:) -comment(//% rename "{n -> 'FILE_' + n.toUpperCase(\)}" files) -comment(// with param pleac9.groovy => FILE_PLEAC9.GROOVY) -comment(//% rename "{n -> n.replaceAll(/9/,'nine'\) }" files) -comment(// with param pleac9.groovy => pleacnine.groovy) -comment(// The script could also be modified to take the list of) -comment(// files from stdin if no args were present (not shown\).) - -comment(// The above lets you type any Groovy code, but instead you might) -comment(// decide to provide the user with some DSL-like additions, e.g.) -comment(// adding the following lines into the script:) -ident(sep) operator(=) pre_type(File)operator(.)ident(separator) -ident(ext) operator(=) operator({) string<delimiter(')content(.)delimiter(')> operator(+) local_variable(it)operator(.)ident(tokenize)operator(()string<delimiter(')content(.)delimiter(')>operator(\))operator([)operator(-)integer(1)operator(]) operator(}) -ident(base) operator(=) operator({) keyword(new) pre_type(File)operator(()local_variable(it)operator(\))operator(.)ident(name) operator(-) ident(ext)operator(()local_variable(it)operator(\)) operator(}) -ident(parent) operator(=) operator({) keyword(new) pre_type(File)operator(()local_variable(it)operator(\))operator(.)ident(parent) operator(}) -ident(lastModified) operator(=) operator({) keyword(new) pre_type(Date)operator(()keyword(new) pre_type(File)operator(()local_variable(it)operator(\))operator(.)ident(lastModified)operator(()operator(\))operator(\)) operator(}) -comment(// would then allow the following more succinct expressions:) -comment(//% rename "{ n -> parent(n\) + sep + base(n\).reverse(\) + ext(n\) }" files) -comment(// with param Pleac/src/pleac9.groovy => Pleac\\src\\9caelp.groovy) -comment(//% rename "{ n -> base(n\) + '_' + lastModified(n\).year + ext(n\) }" files) -comment(// with param pleac9.groovy => pleac9_07.groovy) - -comment(// As a different alternative, you could hook into Ant's mapper mechanism.) -comment(// You wouldn't normally type in this from the command-line but it could) -comment(// be part of a script, here is an example (excludes the actual rename part\)) -ident(ant) operator(=) keyword(new) ident(AntBuilder)operator(()operator(\)) -ident(ant)operator(.)ident(pathconvert)operator(()key(property)operator(:)string<delimiter(')content(result)delimiter(')>operator(,)key(targetos)operator(:)string<delimiter(')content(windows)delimiter(')>operator(\))operator({) - ident(path)operator(()operator(\))operator({) ident(fileset)operator(()key(dir)operator(:)string<delimiter(')content(Pleac/src)delimiter(')>operator(,) key(includes)operator(:)string<delimiter(')content(pleac?.groovy)delimiter(')>operator(\)) operator(}) - ident(compositemapper)operator({) - ident(globmapper)operator(()key(from)operator(:)string<delimiter(')content(*1.groovy)delimiter(')>operator(,) key(to)operator(:)string<delimiter(')content(*1.groovy.bak)delimiter(')>operator(\)) - ident(regexpmapper)operator(()key(from)operator(:)regexp<delimiter(/)content(^(.*C2\))content(\\.)content((.*\))content($)delimiter(/)>operator(,) key(to)operator(:)regexp<delimiter(/)char(\\1)content(_beta.)char(\\2)delimiter(/)>operator(,) key(casesensitive)operator(:)string<delimiter(')content(no)delimiter(')>operator(\)) - ident(chainedmapper)operator({) - ident(packagemapper)operator(()key(from)operator(:)string<delimiter(')content(*pleac3.groovy)delimiter(')>operator(,) key(to)operator(:)string<delimiter(')content(*3.xml)delimiter(')>operator(\)) - ident(filtermapper)operator(()operator(\))operator({) ident(replacestring)operator(()key(from)operator(:)string<delimiter(')content(C:.)delimiter(')>operator(,) key(to)operator(:)string<delimiter(')delimiter(')>operator(\)) operator(}) - operator(}) - ident(chainedmapper)operator({) - ident(regexpmapper)operator(()key(from)operator(:)regexp<delimiter(/)content(^(.*\)4)content(\\.)content((.*\))content($)delimiter(/)>operator(,) key(to)operator(:)regexp<delimiter(/)char(\\1)content(_4.)char(\\2)delimiter(/)>operator(\)) - ident(flattenmapper)operator(()operator(\)) - ident(filtermapper)operator(()operator(\))operator({) ident(replacestring)operator(()key(from)operator(:)string<delimiter(')content(4)delimiter(')>operator(,) key(to)operator(:)string<delimiter(')content(four)delimiter(')>operator(\)) operator(}) - operator(}) - operator(}) -operator(}) -ident(println) ident(ant)operator(.)ident(antProject)operator(.)ident(getProperty)operator(()string<delimiter(')content(result)delimiter(')>operator(\))operator(.)ident(replaceAll)operator(()string<delimiter(')content(;)delimiter(')>operator(,)string<delimiter(')content(\\n)delimiter(')>operator(\)) -comment(// =>) -comment(// C:\\Projects\\GroovyExamples\\Pleac\\src\\pleac1.groovy.bak) -comment(// C:\\Projects\\GroovyExamples\\Pleac\\src\\pleac2_beta.groovy) -comment(// Projects.GroovyExamples.Pleac.src.3.xml) -comment(// pleac_four.groovy) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_9.10) -comment(//----------------------------------------------------------------------------------) -comment(// Splitting a Filename into Its Component Parts) -ident(path) operator(=) keyword(new) pre_type(File)operator(()string<delimiter(')content(Pleac/src/pleac9.groovy)delimiter(')>operator(\)) -keyword(assert) ident(path)operator(.)ident(parent) operator(==) string<delimiter(')content(Pleac)delimiter(')> operator(+) pre_type(File)operator(.)ident(separator) operator(+) string<delimiter(')content(src)delimiter(')> -keyword(assert) ident(path)operator(.)ident(name) operator(==) string<delimiter(')content(pleac9.groovy)delimiter(')> -ident(ext) operator(=) ident(path)operator(.)ident(name)operator(.)ident(tokenize)operator(()string<delimiter(')content(.)delimiter(')>operator(\))operator([)operator(-)integer(1)operator(]) -keyword(assert) ident(ext) operator(==) string<delimiter(')content(groovy)delimiter(')> - -comment(// No fileparse_set_fstype(\) equivalent in Groovy/Java. Java's File constructor) -comment(// automatically performs such a parse and does so appropriately of the operating) -comment(// system it is running on. In addition, 3rd party libraries allow platform) -comment(// specific operations ot be performed. As an example, many Ant tasks are OS) -comment(// aware, e.g. the pathconvert task (callable from an AntBuilder instance\) has) -comment(// a 'targetos' parameter which can be one of 'unix', 'windows', 'netware',) -comment(// 'tandem' or 'os/2'.) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_9.11) -comment(//----------------------------------------------------------------------------------) -comment(// Given the previous discussion regarding the lack of support for symlinks) -comment(// in Java's File class without exec'ing to the operating system or doing) -comment(// a JNI call (at least until JSR 203 arrives\), I have modified this example) -comment(// to perform an actual replica forest of actual file copies rather than) -comment(// a shadow forest full of symlinks pointing back at the real files.) -comment(// Use Apache Jakarta Commons IO) -ident(srcdir) operator(=) keyword(new) pre_type(File)operator(()string<delimiter(')content(Pleac/src)delimiter(')>operator(\)) comment(// path to src) -ident(destdir) operator(=) keyword(new) pre_type(File)operator(()string<delimiter(')content(C:/temp)delimiter(')>operator(\)) comment(// path to dest) -ident(preserveFileStamps) operator(=) pre_constant(true) -ident(FileUtils)operator(.)ident(copyDirectory)operator(()ident(srcdir)operator(,) ident(destdir)operator(,) ident(preserveFileStamps)operator(\)) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_9.12) -comment(//----------------------------------------------------------------------------------) -doctype(#!/usr/bin/groovy) -comment(// lst - list sorted directory contents (depth first\)) -comment(// Given the previous discussion around Java's more limited Date) -comment(// information available via the File class, this will be a reduced) -comment(// functionality version of ls) -ident(LONG_OPTION) operator(=) string<delimiter(')content(l)delimiter(')> -ident(REVERSE_OPTION) operator(=) string<delimiter(')content(r)delimiter(')> -ident(MODIFY_OPTION) operator(=) string<delimiter(')content(m)delimiter(')> -ident(SIZE_OPTION) operator(=) string<delimiter(')content(s)delimiter(')> -ident(HELP_OPTION) operator(=) string<delimiter(')content(help)delimiter(')> - -ident(op) operator(=) keyword(new) ident(joptsimple)operator(.)ident(OptionParser)operator(()operator(\)) -ident(op)operator(.)ident(accepts)operator(() ident(LONG_OPTION)operator(,) string<delimiter(')content(long listing)delimiter(')> operator(\)) -ident(op)operator(.)ident(accepts)operator(() ident(REVERSE_OPTION)operator(,) string<delimiter(')content(reverse listing)delimiter(')> operator(\)) -ident(op)operator(.)ident(accepts)operator(() ident(MODIFY_OPTION)operator(,) string<delimiter(')content(sort based on modification time)delimiter(')> operator(\)) -ident(op)operator(.)ident(accepts)operator(() ident(SIZE_OPTION)operator(,) string<delimiter(')content(sort based on size)delimiter(')> operator(\)) -ident(op)operator(.)ident(accepts)operator(() ident(HELP_OPTION)operator(,) string<delimiter(')content(display this message)delimiter(')> operator(\)) - -ident(options) operator(=) ident(op)operator(.)ident(parse)operator(()ident(args)operator(\)) -keyword(if) operator(()ident(options)operator(.)ident(wasDetected)operator(() ident(HELP_OPTION) operator(\))operator(\)) operator({) - ident(op)operator(.)ident(printHelpOn)operator(() pre_type(System)operator(.)ident(out) operator(\)) -operator(}) keyword(else) operator({) - ident(sort) operator(=) operator({)operator(}) - ident(params) operator(=) ident(options)operator(.)ident(nonOptionArguments)operator(()operator(\)) - ident(longFormat) operator(=) ident(options)operator(.)ident(wasDetected)operator(() ident(LONG_OPTION) operator(\)) - ident(reversed) operator(=) ident(options)operator(.)ident(wasDetected)operator(() ident(REVERSE_OPTION) operator(\)) - keyword(if) operator(()ident(options)operator(.)ident(wasDetected)operator(() ident(SIZE_OPTION) operator(\))operator(\)) operator({) - ident(sort) operator(=) operator({)ident(a)operator(,)ident(b) operator(->) ident(a)operator(.)ident(size)operator(()operator(\))operator(<=>)ident(b)operator(.)ident(size)operator(()operator(\))operator(}) - operator(}) keyword(else) keyword(if) operator(()ident(options)operator(.)ident(wasDetected)operator(() ident(MODIFY_OPTION) operator(\))operator(\)) operator({) - ident(sort) operator(=) operator({)ident(a)operator(,)ident(b) operator(->) ident(a)operator(.)ident(lastModified)operator(()operator(\))operator(<=>)ident(b)operator(.)ident(lastModified)operator(()operator(\))operator(}) - operator(}) - ident(displayFiles)operator(()ident(params)operator(,) ident(longFormat)operator(,) ident(reversed)operator(,) ident(sort)operator(\)) -operator(}) - -keyword(def) method(displayFiles)operator(()ident(params)operator(,) ident(longFormat)operator(,) ident(reversed)operator(,) ident(sort)operator(\)) operator({) - ident(files) operator(=) type([]) - ident(params)operator(.)ident(each)operator({) ident(name) operator(->) keyword(new) pre_type(File)operator(()ident(name)operator(\))operator(.)ident(eachFileRecurse)operator({) ident(files) operator(+=) local_variable(it) operator(}) operator(}) - ident(files)operator(.)ident(sort)operator(()ident(sort)operator(\)) - keyword(if) operator(()ident(reversed)operator(\)) ident(files) operator(=) ident(files)operator(.)ident(reverse)operator(()operator(\)) - ident(files)operator(.)ident(each) operator({) ident(file) operator(->) - keyword(if) operator(()ident(longFormat)operator(\)) operator({) - ident(print) operator(()ident(file)operator(.)ident(directory) operator(?) string<delimiter(')content(d)delimiter(')> operator(:) string<delimiter(')content(-)delimiter(')> operator(\)) - ident(print) operator(()ident(file)operator(.)ident(canRead)operator(()operator(\)) operator(?) string<delimiter(')content(r)delimiter(')> operator(:) string<delimiter(')content(-)delimiter(')> operator(\)) - ident(print) operator(()ident(file)operator(.)ident(canWrite)operator(()operator(\)) operator(?) string<delimiter(')content(w )delimiter(')> operator(:) string<delimiter(')content(- )delimiter(')> operator(\)) - comment(//print (file.canExecute(\) ? 'x' : '-' \) // Java 6) - ident(print) ident(file)operator(.)ident(size)operator(()operator(\))operator(.)ident(toString)operator(()operator(\))operator(.)ident(padLeft)operator(()integer(12)operator(\)) operator(+) string<delimiter(')content( )delimiter(')> - ident(print) keyword(new) pre_type(Date)operator(()ident(file)operator(.)ident(lastModified)operator(()operator(\))operator(\))operator(.)ident(toString)operator(()operator(\))operator(.)ident(padRight)operator(()integer(22)operator(\)) - ident(println) string<delimiter(')content( )delimiter(')> operator(+) ident(file) - operator(}) keyword(else) operator({) - ident(println) ident(file) - operator(}) - operator(}) -operator(}) - -comment(// =>) -comment(// % lst -help) -comment(// Option Description) -comment(// ------ -------------------------------) -comment(// --help display this message) -comment(// -l long listing) -comment(// -m sort based on modification time) -comment(// -r reverse listing) -comment(// -s sort based on size) -comment(//) -comment(// % lst -l -m Pleac/src Pleac/lib) -comment(// ...) -comment(// drw 0 Mon Jan 08 22:33:00 EST 2007 Pleac\\lib\\.svn) -comment(// -rw 18988 Mon Jan 08 22:33:41 EST 2007 Pleac\\src\\pleac9.groovy) -comment(// -rw 2159 Mon Jan 08 23:15:41 EST 2007 Pleac\\src\\lst.groovy) -comment(//) -comment(// % -l -s -r Pleac/src Pleac/lib) -comment(// -rw 1034049 Sun Jan 07 19:24:41 EST 2007 Pleac\\lib\\ant.jar) -comment(// -r- 1034049 Sun Jan 07 19:40:27 EST 2007 Pleac\\lib\\.svn\\text-base\\ant.jar.svn-base) -comment(// -rw 421008 Thu Jun 02 15:15:34 EST 2005 Pleac\\lib\\ant-nodeps.jar) -comment(// -rw 294436 Sat Jan 06 21:19:58 EST 2007 Pleac\\lib\\geronimo-javamail_1.3.1_mail-1.0.jar) -comment(// ...) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_10.0) -comment(//----------------------------------------------------------------------------------) -keyword(def) method(hello)operator(()operator(\)) operator({) - ident(greeted) operator(+=) integer(1) - ident(println) string<delimiter(")content(hi there!)delimiter(")> -operator(}) - -comment(// We need to initialize greeted before it can be used, because "+=" assumes predefinition) -ident(greeted) operator(=) integer(0) -ident(hello)operator(()operator(\)) -ident(println) ident(greeted) -comment(// =>) -comment(// hi there) -comment(// 1) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_10.1) -comment(//----------------------------------------------------------------------------------) -comment(// basic method calling examples) -comment(// In Groovy, parameters are named anyway) -keyword(def) method(hypotenuse)operator(()ident(side1)operator(,) ident(side2)operator(\)) operator({) - pre_type(Math)operator(.)ident(sqrt)operator(()ident(side1)operator(**)integer(2) operator(+) ident(side2)operator(**)integer(2)operator(\)) comment(// sqrt in Math package) -operator(}) -ident(diag) operator(=) ident(hypotenuse)operator(()integer(3)operator(,) integer(4)operator(\)) -keyword(assert) ident(diag) operator(==) integer(5) - -comment(// the star operator will magically convert an Array into a "tuple") -ident(a) operator(=) operator([)integer(5)operator(,) integer(12)operator(]) -keyword(assert) ident(hypotenuse)operator(()operator(*)ident(a)operator(\)) operator(==) integer(13) - -comment(// both = men + women) - -comment(// In Groovy, all objects are references, so the same problem arises.) -comment(// Typically we just return a new object. Especially for immutable objects) -comment(// this style of processing is very common.) -ident(nums) operator(=) operator([)float(1.4)operator(,) float(3.5)operator(,) float(6.7)operator(]) -keyword(def) method(toInteger)operator(()ident(n)operator(\)) operator({) - ident(n)operator(.)ident(collect) operator({) ident(v) operator(->) ident(v)operator(.)ident(toInteger)operator(()operator(\)) operator(}) -operator(}) -keyword(assert) ident(toInteger)operator(()ident(nums)operator(\)) operator(==) operator([)integer(1)operator(,) integer(3)operator(,) integer(6)operator(]) - -ident(orignums) operator(=) operator([)float(1.4)operator(,) float(3.5)operator(,) float(6.7)operator(]) -keyword(def) method(truncMe)operator(()ident(n)operator(\)) operator({) - operator(()integer(0)operator(..<)ident(n)operator(.)ident(size)operator(()operator(\))operator(\))operator(.)ident(each)operator({) ident(idx) operator(->) ident(n)operator([)ident(idx)operator(]) operator(=) ident(n)operator([)ident(idx)operator(])operator(.)ident(toInteger)operator(()operator(\)) operator(}) -operator(}) -ident(truncMe)operator(()ident(orignums)operator(\)) -keyword(assert) ident(orignums) operator(==) operator([)integer(1)operator(,) integer(3)operator(,) integer(6)operator(]) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_10.2) -comment(//----------------------------------------------------------------------------------) -comment(// variable scope examples) -keyword(def) method(somefunc)operator(()operator(\)) operator({) - keyword(def) ident(variableInMethod) comment(// private is default in a method) -operator(}) - -keyword(def) ident(name) comment(// private is default for variable in a script) - -ident(bindingVar) operator(=) integer(10) comment(// this will be in the binding (sort of global\)) -ident(globalArray) operator(=) type([]) - -comment(// In Groovy, run_check can't access a, b, or c until they are) -comment(// explicitely defined global (using leading $\), even if they are) -comment(// both defined in the same scope) - -keyword(def) method(checkAccess)operator(()ident(x)operator(\)) operator({) - keyword(def) ident(y) operator(=) integer(200) - keyword(return) ident(x) operator(+) ident(y) operator(+) ident(bindingVar) comment(// access private, param, global) -operator(}) -keyword(assert) ident(checkAccess)operator(()integer(7)operator(\)) operator(==) integer(217) - -keyword(def) method(saveArray)operator(()ident(ary)operator(\)) operator({) - ident(globalArray) operator(<)operator(<) string<delimiter(')content(internal)delimiter(')> - ident(globalArray) operator(+=) ident(ary) -operator(}) - -ident(saveArray)operator(()operator([)string<delimiter(')content(important)delimiter(')>operator(])operator(\)) -keyword(assert) ident(globalArray) operator(==) operator([)string<delimiter(")content(internal)delimiter(")>operator(,) string<delimiter(")content(important)delimiter(")>operator(]) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_10.3) -comment(//----------------------------------------------------------------------------------) -comment(// you want a private persistent variable within a script method) - -comment(// you could use a helper class for this) -type(class) class(CounterHelper) operator({) - directive(private) directive(static) ident(counter) operator(=) integer(0) - keyword(def) directive(static) method(next)operator(()operator(\)) operator({) operator(++)ident(counter) operator(}) -operator(}) -keyword(def) method(greeting)operator(()ident(s)operator(\)) operator({) - keyword(def) ident(n) operator(=) ident(CounterHelper)operator(.)ident(next)operator(()operator(\)) - ident(println) string<delimiter(")content(Hello )inline<inline_delimiter($)ident(s)>content( (I have been called )inline<inline_delimiter($)ident(n)>content( times\))delimiter(")> -operator(}) -ident(greeting)operator(()string<delimiter(')content(tom)delimiter(')>operator(\)) -ident(greeting)operator(()string<delimiter(')content(dick)delimiter(')>operator(\)) -ident(greeting)operator(()string<delimiter(')content(harry)delimiter(')>operator(\)) -comment(// =>) -comment(// Hello tom (I have been called 1 times\)) -comment(// Hello dick (I have been called 2 times\)) -comment(// Hello harry (I have been called 3 times\)) - -comment(// you could make it more fancy by having separate keys,) -comment(// using synchronisation, singleton pattern, ThreadLocal, ...) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_10.4) -comment(//----------------------------------------------------------------------------------) -comment(// Determining Current Method Name) -comment(// Getting class, package and static info is easy. Method info is just a little work.) -comment(// From Java we can use:) -comment(// new Exception(\).stackTrace[0].methodName) -comment(// or for Java 5 and above (saves relatively expensive exception creation\)) -comment(// Thread.currentThread(\).stackTrace[3].methodName) -comment(// But these give the Java method name. Groovy wraps its own runtime) -comment(// system over the top. It's still a Java method, just a little bit further up the) -comment(// stack from where we might expect. Getting the Groovy method name can be done in) -comment(// an implementation specific way (subject to change as the language evolves\):) -keyword(def) method(myMethod)operator(()operator(\)) operator({) - ident(names) operator(=) keyword(new) exception(Exception)operator(()operator(\))operator(.)ident(stackTrace)operator(*.)ident(methodName) - ident(println) ident(groovyUnwrap)operator(()ident(names)operator(\)) -operator(}) -keyword(def) method(myMethod2)operator(()operator(\)) operator({) - ident(names) operator(=) pre_type(Thread)operator(.)ident(currentThread)operator(()operator(\))operator(.)ident(stackTrace)operator(*.)ident(methodName) - ident(names) operator(=) ident(names)operator([)integer(3)operator(..<)ident(names)operator(.)ident(size)operator(()operator(\))operator(]) comment(// skip call to dumpThread) - ident(println) ident(groovyUnwrap)operator(()ident(names)operator(\)) -operator(}) -keyword(def) method(groovyUnwrap)operator(()ident(names)operator(\)) operator({) ident(names)operator([)ident(names)operator(.)ident(indexOf)operator(()string<delimiter(')content(invoke0)delimiter(')>operator(\))operator(-)integer(1)operator(]) operator(}) -ident(myMethod)operator(()operator(\)) comment(// => myMethod) -ident(myMethod2)operator(()operator(\)) comment(// => myMethod2) - -comment(// Discussion: If what you really wanted was a tracing mechanism, you could overrie) -comment(// invokeMethod and print out method names before calling the original method. Or) -comment(// you could use one of the Aspect-Oriented Programming packages for Java.) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_10.5) -comment(//----------------------------------------------------------------------------------) -comment(// Passing Arrays and Hashes by Reference) -comment(// In Groovy, every value is a reference to an object, thus there is) -comment(// no such problem, just call: arrayDiff(array1, array2\)) - -comment(// pairwise add (altered so it doesn't require equal sizes\)) -keyword(def) method(pairWiseAdd)operator(()ident(a1)operator(,) ident(a2)operator(\)) operator({) - ident(s1) operator(=) ident(a1)operator(.)ident(size)operator(()operator(\))operator(;) ident(s2) operator(=) ident(a2)operator(.)ident(size)operator(()operator(\)) - operator(()integer(0)operator(..<)operator([)ident(s1)operator(,)ident(s2)operator(])operator(.)ident(max)operator(()operator(\))operator(\))operator(.)ident(collect)operator({) - local_variable(it) operator(>) ident(s1)operator(-)integer(1) operator(?) ident(a2)operator([)local_variable(it)operator(]) operator(:) operator(()local_variable(it) operator(>) ident(s2)operator(-)integer(1) operator(?) ident(a1)operator([)local_variable(it)operator(]) operator(:) ident(a1)operator([)local_variable(it)operator(]) operator(+) ident(a2)operator([)local_variable(it)operator(])operator(\)) - operator(}) -operator(}) -ident(a) operator(=) operator([)integer(1)operator(,) integer(2)operator(]) -ident(b) operator(=) operator([)integer(5)operator(,) integer(8)operator(]) -keyword(assert) ident(pairWiseAdd)operator(()ident(a)operator(,) ident(b)operator(\)) operator(==) operator([)integer(6)operator(,) integer(10)operator(]) - -comment(// also works for unequal sizes) -ident(b) operator(=) operator([)integer(5)operator(,) integer(8)operator(,) operator(-)integer(1)operator(]) -keyword(assert) ident(pairWiseAdd)operator(()ident(a)operator(,) ident(b)operator(\)) operator(==) operator([)integer(6)operator(,) integer(10)operator(,) operator(-)integer(1)operator(]) -ident(b) operator(=) operator([)integer(5)operator(]) -keyword(assert) ident(pairWiseAdd)operator(()ident(a)operator(,) ident(b)operator(\)) operator(==) operator([)integer(6)operator(,) integer(2)operator(]) - -comment(// We could check if both arguments were of a particular type, e.g.) -comment(// (a1 instanceof List\) or (a2.class.isArray(\)\) but duck typing allows) -comment(// it to work on other things as well, so while wouldn't normally do this) -comment(// you do need to be a little careful when calling the method, e.g.) -comment(// here we call it with two maps of strings and get back strings) -comment(// the important thing here was that the arguments were indexed) -comment(// 0..size-1 and that the items supported the '+' operator (as String does\)) -ident(a) operator(=) operator([)integer(0)operator(:)string<delimiter(')content(Green )delimiter(')>operator(,) integer(1)operator(:)string<delimiter(')content(Grey )delimiter(')>operator(]) -ident(b) operator(=) operator([)integer(0)operator(:)string<delimiter(')content(Frog)delimiter(')>operator(,) integer(1)operator(:)string<delimiter(')content(Elephant)delimiter(')>operator(,) integer(2)operator(:)string<delimiter(')content(Dog)delimiter(')>operator(]) -keyword(assert) ident(pairWiseAdd)operator(()ident(a)operator(,) ident(b)operator(\)) operator(==) operator([)string<delimiter(")content(Green Frog)delimiter(")>operator(,) string<delimiter(")content(Grey Elephant)delimiter(")>operator(,) string<delimiter(")content(Dog)delimiter(")>operator(]) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_10.6) -comment(//----------------------------------------------------------------------------------) -comment(// Detecting Return Context) -comment(// There is no exact equivalent of return context in Groovy but) -comment(// you can behave differently when called under different circumstances) -keyword(def) method(addValueOrSize)operator(()ident(a1)operator(,) ident(a2)operator(\)) operator({) - ident(b1) operator(=) operator(()ident(a1) keyword(instanceof) pre_type(Number)operator(\)) operator(?) ident(a1) operator(:) ident(a1)operator(.)ident(size)operator(()operator(\)) - ident(b2) operator(=) operator(()ident(a2) keyword(instanceof) pre_type(Number)operator(\)) operator(?) ident(a2) operator(:) ident(a2)operator(.)ident(size)operator(()operator(\)) - ident(b1) operator(+) ident(b2) -operator(}) -keyword(assert) operator(()ident(addValueOrSize)operator(()integer(10)operator(,) string<delimiter(')content(abcd)delimiter(')>operator(\))operator(\)) operator(==) integer(14) -keyword(assert) operator(()ident(addValueOrSize)operator(()integer(10)operator(,) operator([)integer(25)operator(,) integer(50)operator(])operator(\))operator(\)) operator(==) integer(12) -keyword(assert) operator(()ident(addValueOrSize)operator(()string<delimiter(')content(abc)delimiter(')>operator(,) operator([)integer(25)operator(,) integer(50)operator(])operator(\))operator(\)) operator(==) integer(5) -keyword(assert) operator(()ident(addValueOrSize)operator(()integer(25)operator(,) integer(50)operator(\))operator(\)) operator(==) integer(75) - -comment(// Of course, a key feature of many OO languages including Groovy is) -comment(// method overloading so that responding to dofferent parameters has) -comment(// a formal way of being captured in code with typed methods, e.g.) -type(class) class(MakeBiggerHelper) operator({) - keyword(def) method(triple)operator(()pre_type(List) ident(iList)operator(\)) operator({) ident(iList)operator(.)ident(collect)operator({) local_variable(it) operator(*) integer(3) operator(}) operator(}) - keyword(def) method(triple)operator(()type(int) ident(i)operator(\)) operator({) ident(i) operator(*) integer(3) operator(}) -operator(}) -ident(mbh) operator(=) keyword(new) ident(MakeBiggerHelper)operator(()operator(\)) -keyword(assert) ident(mbh)operator(.)ident(triple)operator(()operator([)integer(4)operator(,) integer(5)operator(])operator(\)) operator(==) operator([)integer(12)operator(,) integer(15)operator(]) -keyword(assert) ident(mbh)operator(.)ident(triple)operator(()integer(4)operator(\)) operator(==) integer(12) - -comment(// Of course with duck typing, we can rely on dynamic typing if we want) -keyword(def) method(directTriple)operator(()ident(arg)operator(\)) operator({) - operator(()ident(arg) keyword(instanceof) pre_type(Number)operator(\)) operator(?) ident(arg) operator(*) integer(3) operator(:) ident(arg)operator(.)ident(collect)operator({) local_variable(it) operator(*) integer(3) operator(}) -operator(}) -keyword(assert) ident(directTriple)operator(()operator([)integer(4)operator(,) integer(5)operator(])operator(\)) operator(==) operator([)integer(12)operator(,) integer(15)operator(]) -keyword(assert) ident(directTriple)operator(()integer(4)operator(\)) operator(==) integer(12) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_10.7) -comment(//----------------------------------------------------------------------------------) -comment(// Passing by Named Parameter) -comment(// Groovy supports named params or positional arguments with optional) -comment(// defaults to simplify method calling) - -comment(// named arguments work by using a map) -keyword(def) method(thefunc)operator(()pre_type(Map) ident(args)operator(\)) operator({) - comment(// in this example, we just call the positional version) - ident(thefunc)operator(()ident(args)operator(.)ident(start)operator(,) ident(args)operator(.)ident(end)operator(,) ident(args)operator(.)ident(step)operator(\)) -operator(}) - -comment(// positional arguments with defaults) -keyword(def) method(thefunc)operator(()ident(start)operator(=)integer(0)operator(,) ident(end)operator(=)integer(30)operator(,) ident(step)operator(=)integer(10)operator(\)) operator({) - operator(()operator(()ident(start)operator(..)ident(end)operator(\))operator(.)ident(step)operator(()ident(step)operator(\))operator(\)) -operator(}) - -keyword(assert) ident(thefunc)operator(()operator(\)) operator(==) operator([)integer(0)operator(,) integer(10)operator(,) integer(20)operator(,) integer(30)operator(]) -keyword(assert) ident(thefunc)operator(()integer(15)operator(\)) operator(==) operator([)integer(15)operator(,) integer(25)operator(]) -keyword(assert) ident(thefunc)operator(()integer(0)operator(,)integer(40)operator(\)) operator(==) operator([)integer(0)operator(,) integer(10)operator(,) integer(20)operator(,) integer(30)operator(,) integer(40)operator(]) -keyword(assert) ident(thefunc)operator(()key(start)operator(:)integer(5)operator(,) key(end)operator(:)integer(20)operator(,) key(step)operator(:)integer(5)operator(\)) operator(==) operator([)integer(5)operator(,) integer(10)operator(,) integer(15)operator(,) integer(20)operator(]) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_10.8) -comment(//----------------------------------------------------------------------------------) -comment(// Skipping Selected Return Values) -comment(// Groovy 1.0 doesn't support multiple return types, so you always use) -comment(// a holder class, array or collection to return multiple values.) -keyword(def) method(getSystemInfo)operator(()operator(\)) operator({) - keyword(def) ident(millis) operator(=) pre_type(System)operator(.)ident(currentTimeMillis)operator(()operator(\)) - keyword(def) ident(freemem) operator(=) pre_type(Runtime)operator(.)ident(runtime)operator(.)ident(freeMemory)operator(()operator(\)) - keyword(def) ident(version) operator(=) pre_type(System)operator(.)ident(getProperty)operator(()string<delimiter(')content(java.vm.version)delimiter(')>operator(\)) - keyword(return) operator([)key(millis)operator(:)ident(millis)operator(,) key(freemem)operator(:)ident(freemem)operator(,) key(version)operator(:)ident(version)operator(]) - comment(// if you are likely to want all the information use a list) - comment(// return [millis, freemem, version]) - comment(// or dedicated holder class) - comment(// return new SystemInfo(millis, freemem, version\)) -operator(}) -ident(result) operator(=) ident(getSystemInfo)operator(()operator(\)) -ident(println) ident(result)operator(.)ident(version) -comment(// => 1.5.0_08-b03) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_10.9) -comment(//----------------------------------------------------------------------------------) -comment(// Returning More Than One Array or Hash) -comment(// As per 10.8, Groovy 1.0 doesn't support multiple return types but you) -comment(// just use a holder class, array or collection. There are no limitations) -comment(// on returning arbitrary nested values using this technique.) -keyword(def) method(getInfo)operator(()operator(\)) operator({) - keyword(def) ident(system) operator(=) operator([)key(millis)operator(:)pre_type(System)operator(.)ident(currentTimeMillis)operator(()operator(\))operator(,) - key(version)operator(:)pre_type(System)operator(.)ident(getProperty)operator(()string<delimiter(')content(java.vm.version)delimiter(')>operator(\))operator(]) - keyword(def) ident(runtime) operator(=) operator([)key(freemem)operator(:)pre_type(Runtime)operator(.)ident(runtime)operator(.)ident(freeMemory)operator(()operator(\))operator(,) - key(maxmem)operator(:)pre_type(Runtime)operator(.)ident(runtime)operator(.)ident(maxMemory)operator(()operator(\))operator(]) - keyword(return) operator([)key(system)operator(:)ident(system)operator(,) key(runtime)operator(:)ident(runtime)operator(]) -operator(}) -ident(println) ident(info)operator(.)ident(runtime)operator(.)ident(maxmem) comment(// => 66650112 (info automatically calls getInfo(\) here\)) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_10.10) -comment(//----------------------------------------------------------------------------------) -comment(// Returning Failure) -comment(// This is normally done in a heavy-weight way via Java Exceptions) -comment(// (see 10.12\) or in a lightweight way by returning null) -keyword(def) method(sizeMinusOne)operator(()ident(thing)operator(\)) operator({) - keyword(if) operator(()ident(thing) keyword(instanceof) pre_type(Number)operator(\)) keyword(return) - ident(thing)operator(.)ident(size)operator(()operator(\)) operator(-) integer(1) -operator(}) -keyword(def) method(check)operator(()ident(thing)operator(\)) operator({) - ident(result) operator(=) ident(sizeMinusOne)operator(()ident(thing)operator(\)) - ident(println) operator(()ident(result) operator(?) string<delimiter(")content(Worked with result: )inline<inline_delimiter($)ident(result)>delimiter(")> operator(:) string<delimiter(')content(Failed)delimiter(')>operator(\)) -operator(}) -ident(check)operator(()integer(4)operator(\)) -ident(check)operator(()operator([)integer(1)operator(,) integer(2)operator(])operator(\)) -ident(check)operator(()string<delimiter(')content(abc)delimiter(')>operator(\)) -comment(// =>) -comment(// Failed) -comment(// Worked with result: 1) -comment(// Worked with result: 2) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_10.11) -comment(//----------------------------------------------------------------------------------) -comment(// Prototyping Functions: Not supported by Groovy but arguably) -comment(// not important given other language features.) - -comment(// Omitting Parentheses Scenario: Groovy only lets you leave out) -comment(// parentheses in simple cases. If you had two methods sum(a1,a2,a3\)) -comment(// and sum(a1,a2\), there would be no way to indicate that whether) -comment(// 'sum sum 2, 3, 4, 5' meant sum(sum(2,3\),4,5\) or sum(sum(2,3,4\),5\).) -comment(// You would have to include the parentheses. Groovy does much less) -comment(// auto flattening than some other languages; it provides a *args) -comment(// operator, varargs style optional params and supports method) -comment(// overloading and ducktyping. Perhaps these other features mean) -comment(// that this scenario is always easy to avoid.) -keyword(def) method(sum)operator(()ident(a)operator(,)ident(b)operator(,)ident(c)operator(\))operator({) ident(a)operator(+)ident(b)operator(+)ident(c)operator(*)integer(2) operator(}) -keyword(def) method(sum)operator(()ident(a)operator(,)ident(b)operator(\))operator({) ident(a)operator(+)ident(b) operator(}) -comment(// sum sum 1,2,4,5) -comment(// => compilation error) -ident(sum) ident(sum)operator(()integer(1)operator(,)integer(2)operator(\))operator(,)integer(4)operator(,)integer(5) -ident(sum) ident(sum)operator(()integer(1)operator(,)integer(2)operator(,)integer(4)operator(\))operator(,)integer(5) -comment(// these work but if you try to do anything fancy you will run into trouble;) -comment(// your best bet is to actually include all the parentheses:) -ident(println) ident(sum)operator(()ident(sum)operator(()integer(1)operator(,)integer(2)operator(\))operator(,)integer(4)operator(,)integer(5)operator(\)) comment(// => 17) -ident(println) ident(sum)operator(()ident(sum)operator(()integer(1)operator(,)integer(2)operator(,)integer(4)operator(\))operator(,)integer(5)operator(\)) comment(// => 16) - -comment(// Mimicking built-ins scenario: this is a mechanism to turn-off) -comment(// auto flattening, Groovy only does flattening in restricted circumstances.) -comment(// func(array, 1, 2, 3\) is never coerced into a single list but varargs) -comment(// and optional args can be used instead) -keyword(def) method(push)operator(()ident(list)operator(,) pre_type(Object)type([]) ident(optionals)operator(\)) operator({) - ident(optionals)operator(.)ident(each)operator({) ident(list)operator(.)ident(add)operator(()local_variable(it)operator(\)) operator(}) -operator(}) -ident(items) operator(=) operator([)integer(1)operator(,)integer(2)operator(]) -ident(newItems) operator(=) operator([)integer(7)operator(,) integer(8)operator(,) integer(9)operator(]) -ident(push) ident(items)operator(,) integer(3)operator(,) integer(4) -ident(push) ident(items)operator(,) integer(6) -ident(push) operator(()ident(items)operator(,) operator(*)ident(newItems)operator(\)) comment(// brackets currently required, *=flattening) - comment(// without *: items = [1, 2, 3, 4, 6, [7, 8, 9]]) -keyword(assert) ident(items) operator(==) operator([)integer(1)operator(,) integer(2)operator(,) integer(3)operator(,) integer(4)operator(,) integer(6)operator(,) integer(7)operator(,) integer(8)operator(,) integer(9)operator(]) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_10.12) -comment(//----------------------------------------------------------------------------------) -comment(// Handling Exceptions) -comment(// Same story as in Java but Groovy has some nice Checked -> Unchecked) -comment(// magic behind the scenes (Java folk will know what this means\)) -comment(// When writing methods:) -comment(// throw exception to raise it) -comment(// When calling methods:) -comment(// try ... catch ... finally surrounds processing logic) -keyword(def) method(getSizeMostOfTheTime)operator(()ident(s)operator(\)) operator({) - keyword(if) operator(()ident(s) operator(=~) string<delimiter(')content(Full Moon)delimiter(')>operator(\)) keyword(throw) keyword(new) exception(RuntimeException)operator(()string<delimiter(')content(The world is ending)delimiter(')>operator(\)) - ident(s)operator(.)ident(size)operator(()operator(\)) -operator(}) -keyword(try) operator({) - ident(println) string<delimiter(')content(Size is: )delimiter(')> operator(+) ident(getSizeMostOfTheTime)operator(()string<delimiter(')content(The quick brown fox)delimiter(')>operator(\)) - ident(println) string<delimiter(')content(Size is: )delimiter(')> operator(+) ident(getSizeMostOfTheTime)operator(()string<delimiter(')content(Beware the Full Moon)delimiter(')>operator(\)) -operator(}) keyword(catch) operator(()exception(Exception) ident(ex)operator(\)) operator({) - ident(println) string<delimiter(")content(Error was: )inline<inline_delimiter($)ident(ex)>content(.message)delimiter(")> -operator(}) keyword(finally) operator({) - ident(println) string<delimiter(')content(Doing common cleanup)delimiter(')> -operator(}) -comment(// =>) -comment(// Size is: 19) -comment(// Error was: The world is ending) -comment(// Doing common cleanup) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_10.13) -comment(//----------------------------------------------------------------------------------) -comment(// Saving Global Values) -comment(// We can just save the value and restore it later:) -keyword(def) method(printAge)operator(()operator(\)) operator({) ident(println) string<delimiter(")content(Age is )inline<inline_delimiter($)ident(age)>delimiter(")> operator(}) - -ident(age) operator(=) integer(18) comment(// binding "global" variable) -ident(printAge)operator(()operator(\)) comment(// => 18) - -keyword(if) operator(()ident(age) operator(>) integer(0)operator(\)) operator({) - keyword(def) ident(origAge) operator(=) ident(age) - ident(age) operator(=) integer(23) - ident(printAge)operator(()operator(\)) comment(// => 23) - ident(age) operator(=) ident(origAge) -operator(}) -ident(printAge)operator(()operator(\)) comment(// => 18) - -comment(// Depending on the circmstances we could enhance this in various ways) -comment(// such as synchronizing, surrounding with try ... finally, using a) -comment(// memento pattern, saving the whole binding, using a ThreadLocal ...) - -comment(// There is no need to use local(\) for filehandles or directory) -comment(// handles in Groovy because filehandles are normal objects.) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_10.14) -comment(//----------------------------------------------------------------------------------) -comment(// Redefining a Function) -comment(// This can be done via a number of ways:) - -comment(// OO approach:) -comment(// The standard trick using OO is to override methods in subclasses) -type(class) class(Parent) operator({) keyword(def) method(foo)operator(()operator(\))operator({) ident(println) string<delimiter(')content(foo)delimiter(')> operator(}) operator(}) -type(class) class(Child) directive(extends) ident(Parent) operator({) keyword(def) method(foo)operator(()operator(\))operator({) ident(println) string<delimiter(')content(bar)delimiter(')> operator(}) operator(}) -keyword(new) ident(Parent)operator(()operator(\))operator(.)ident(foo)operator(()operator(\)) comment(// => foo) -keyword(new) ident(Child)operator(()operator(\))operator(.)ident(foo)operator(()operator(\)) comment(// => bar) - -comment(// Category approach:) -comment(// If you want to redefine a method from an existing library) -comment(// you can use categories. This can be done to avoid name conflicts) -comment(// or to patch functionality with local mods without changing) -comment(// original code) -ident(println) keyword(new) pre_type(Date)operator(()operator(\))operator(.)ident(toString)operator(()operator(\)) -comment(// => Sat Jan 06 16:44:55 EST 2007) -type(class) class(DateCategory) operator({) - directive(static) ident(toString)operator(()pre_type(Date) ident(self)operator(\)) operator({) string<delimiter(')content(not telling)delimiter(')> operator(}) -operator(}) -ident(use) operator(()ident(DateCategory)operator(\)) operator({) - ident(println) keyword(new) pre_type(Date)operator(()operator(\))operator(.)ident(toString)operator(()operator(\)) -operator(}) -comment(// => not telling) - -comment(// Closure approach:) -comment(// Groovy's closures let you have "anonymous methods" as objects.) -comment(// This allows you to be very flexible with "method" redefinition, e.g.:) -ident(colors) operator(=) string<delimiter(')content(red yellow blue green)delimiter(')>operator(.)ident(split)operator(()string<delimiter(')content( )delimiter(')>operator(\))operator(.)ident(toList)operator(()operator(\)) -ident(color2html) operator(=) keyword(new) ident(Expando)operator(()operator(\)) -ident(colors)operator(.)ident(each) operator({) ident(c) operator(->) - ident(color2html)operator([)ident(c)operator(]) operator(=) operator({) ident(args) operator(->) string<delimiter(")content(<FONT COLOR=')inline<inline_delimiter($)ident(c)>content('>)inline<inline_delimiter($)ident(args)>content(</FONT>)delimiter(")> operator(}) -operator(}) -ident(println) ident(color2html)operator(.)ident(yellow)operator(()string<delimiter(')content(error)delimiter(')>operator(\)) -comment(// => <FONT COLOR='yellow'>error</FONT>) -ident(color2html)operator(.)ident(yellow) operator(=) operator({) ident(args) operator(->) string<delimiter(")content(<b>)inline<inline_delimiter($)ident(args)>content(</b>)delimiter(")> operator(}) comment(// too hard to see yellow) -ident(println) ident(color2html)operator(.)ident(yellow)operator(()string<delimiter(')content(error)delimiter(')>operator(\)) -comment(// => <b>error</b>) - -comment(// Other approaches:) -comment(// you could use invokeMethod to intercept the original method and call) -comment(// your modified method on just particular input data) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_10.15) -comment(//----------------------------------------------------------------------------------) -comment(// Trapping Undefined Function Calls) -type(class) class(FontHelper) operator({) - comment(// we could define all the important colors explicitly like this) - keyword(def) method(pink)operator(()ident(info)operator(\)) operator({) - ident(buildFont)operator(()string<delimiter(')content(hot pink)delimiter(')>operator(,) ident(info)operator(\)) - operator(}) - comment(// but this method will catch any undefined ones) - keyword(def) method(invokeMethod)operator(()pre_type(String) ident(name)operator(,) pre_type(Object) ident(args)operator(\)) operator({) - ident(buildFont)operator(()ident(name)operator(,) ident(args)operator(.)ident(join)operator(()string<delimiter(')content( and )delimiter(')>operator(\))operator(\)) - operator(}) - keyword(def) method(buildFont)operator(()ident(name)operator(,) ident(info)operator(\)) operator({) - string<delimiter(")content(<FONT COLOR=')inline<inline_delimiter($)ident(name)>content('>)delimiter(")> operator(+) ident(info) operator(+) string<delimiter(")content(</FONT>)delimiter(")> - operator(}) -operator(}) -ident(fh) operator(=) keyword(new) ident(FontHelper)operator(()operator(\)) -ident(println) ident(fh)operator(.)ident(pink)operator(()string<delimiter(")content(panther)delimiter(")>operator(\)) -ident(println) ident(fh)operator(.)ident(chartreuse)operator(()string<delimiter(")content(stuff)delimiter(")>operator(,) string<delimiter(")content(more stuff)delimiter(")>operator(\)) -comment(// =>) -comment(// <FONT COLOR='hot pink'>panther</FONT>) -comment(// <FONT COLOR='chartreuse'>stuff and more stuff</FONT>) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_10.16) -comment(//----------------------------------------------------------------------------------) -comment(// Simulating Nested Subroutimes: Using Closures within Methods) -keyword(def) method(outer)operator(()ident(arg)operator(\)) operator({) - keyword(def) ident(x) operator(=) ident(arg) operator(+) integer(35) - ident(inner) operator(=) operator({) ident(x) operator(*) integer(19) operator(}) - ident(x) operator(+) ident(inner)operator(()operator(\)) -operator(}) -keyword(assert) ident(outer)operator(()integer(10)operator(\)) operator(==) integer(900) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_10.17) -comment(//----------------------------------------------------------------------------------) -comment(// Program: Sorting Your Mail) -doctype(#!/usr/bin/groovy) -keyword(import) include(javax.mail.*) - -comment(// solution using mstor package (mstor.sf.net\)) -ident(session) operator(=) ident(Session)operator(.)ident(getDefaultInstance)operator(()keyword(new) pre_type(Properties)operator(()operator(\))operator(\)) -ident(store) operator(=) ident(session)operator(.)ident(getStore)operator(()keyword(new) ident(URLName)operator(()string<delimiter(')content(mstor:/path_to_your_mbox_directory)delimiter(')>operator(\))operator(\)) -ident(store)operator(.)ident(connect)operator(()operator(\)) - -comment(// read messages from Inbox) -ident(inbox) operator(=) ident(store)operator(.)ident(defaultFolder)operator(.)ident(getFolder)operator(()string<delimiter(')content(Inbox)delimiter(')>operator(\)) -ident(inbox)operator(.)ident(open)operator(()ident(Folder)operator(.)ident(READ_ONLY)operator(\)) -ident(messages) operator(=) ident(inbox)operator(.)ident(messages)operator(.)ident(toList)operator(()operator(\)) - -comment(// extractor closures) -ident(subject) operator(=) operator({) ident(m) operator(->) ident(m)operator(.)ident(subject) operator(}) -ident(subjectExcludingReplyPrefix) operator(=) operator({) ident(m) operator(->) ident(subject)operator(()ident(m)operator(\))operator(.)ident(replaceAll)operator(()regexp<delimiter(/)content((?i\)Re:)char(\\\\)content(s*)delimiter(/)>operator(,)string<delimiter(')delimiter(')>operator(\)) operator(}) comment(// double slash to single outside triple quotes) -ident(date) operator(=) operator({) ident(m) operator(->) ident(d) operator(=) ident(m)operator(.)ident(sentDate)operator(;) keyword(new) pre_type(Date)operator(()ident(d)operator(.)ident(year)operator(,) ident(d)operator(.)ident(month)operator(,) ident(d)operator(.)ident(date)operator(\)) operator(}) comment(// ignore time fields) - -comment(// sort by subject excluding 'Re:' prefixs then print subject for first 6) -ident(println) ident(messages)operator(.)ident(sort)operator({)ident(subjectExcludingReplyPrefix)operator(()local_variable(it)operator(\))operator(})operator([)integer(0)operator(..)integer(5)operator(])operator(*.)ident(subject)operator(.)ident(join)operator(()string<delimiter(')content(\\n)delimiter(')>operator(\)) -comment(// =>) -comment(// Additional Resources for JDeveloper 10g (10.1.3\)) -comment(// Amazon Web Services Developer Connection Newsletter #18) -comment(// Re: Ant 1.7.0?) -comment(// ARN Daily | 2007: IT predictions for the year ahead) -comment(// Big Changes at Gentleware) -comment(// BigPond Account Notification) - -comment(// sort by date then subject (print first 6 entries\)) -ident(sorted) operator(=) ident(messages)operator(.)ident(sort)operator({) ident(a)operator(,)ident(b) operator(->) - ident(date)operator(()ident(a)operator(\)) operator(==) ident(date)operator(()ident(b)operator(\)) operator(?) - ident(subjectExcludingReplyPrefix)operator(()ident(a)operator(\)) operator(<=>) ident(subjectExcludingReplyPrefix)operator(()ident(b)operator(\)) operator(:) - ident(date)operator(()ident(a)operator(\)) operator(<=>) ident(date)operator(()ident(b)operator(\)) -operator(}) -ident(sorted)operator([)integer(0)operator(..)integer(5)operator(])operator(.)ident(each)operator({) ident(m) operator(->) ident(println) string<delimiter(")inline<inline_delimiter($)ident(m)>content(.sentDate: )inline<inline_delimiter($)ident(m)>content(.subject)delimiter(")> operator(}) -comment(// =>) -comment(// Wed Jan 03 08:54:15 EST 2007: ARN Daily | 2007: IT predictions for the year ahead) -comment(// Wed Jan 03 15:33:31 EST 2007: EclipseSource: RCP Adoption, Where Art Thou?) -comment(// Wed Jan 03 00:10:11 EST 2007: What's New at Sams Publishing?) -comment(// Fri Jan 05 08:31:11 EST 2007: Building a Sustainable Open Source Business) -comment(// Fri Jan 05 09:53:45 EST 2007: Call for Participation: Agile 2007) -comment(// Fri Jan 05 05:51:36 EST 2007: IBM developerWorks Weekly Edition, 4 January 2007) - -comment(// group by date then print first 2 entries of first 2 dates) -ident(groups) operator(=) ident(messages)operator(.)ident(groupBy)operator({) ident(date)operator(()local_variable(it)operator(\)) operator(}) -ident(groups)operator(.)ident(keySet)operator(()operator(\))operator(.)ident(toList)operator(()operator(\))operator([)integer(0)operator(..)integer(1)operator(])operator(.)ident(each)operator({) - ident(println) local_variable(it) - ident(println) ident(groups)operator([)local_variable(it)operator(])operator([)integer(0)operator(..)integer(1)operator(])operator(.)ident(collect)operator({) string<delimiter(')content( )delimiter(')> operator(+) local_variable(it)operator(.)ident(subject) operator(})operator(.)ident(join)operator(()string<delimiter(')content(\\n)delimiter(')>operator(\)) -operator(}) -comment(// =>) -comment(// Wed Jan 03 00:00:00 EST 2007) -comment(// ARN Daily | 2007: IT predictions for the year ahead) -comment(// EclipseSource: RCP Adoption, Where Art Thou?) -comment(// Fri Jan 05 00:00:00 EST 2007) -comment(// Building a Sustainable Open Source Business) -comment(// Call for Participation: Agile 2007) - - -comment(// @@PLEAC@@_11.0) -comment(//----------------------------------------------------------------------------------) -comment(// In Groovy, most usages of names are references (there are some special) -comment(// rules for the map shorthand notation and builders\).) -comment(// Objects are inherently anonymous, they don't know what names refer to them.) -ident(ref) operator(=) integer(3) comment(// points ref to an Integer object with value 3.) -ident(println) ident(ref) comment(// prints the value that the name ref refers to.) - -ident(myList) operator(=) operator([)integer(3)operator(,) integer(4)operator(,) integer(5)operator(]) comment(// myList is a name for this list) -ident(anotherRef) operator(=) ident(myList) -ident(myMap) operator(=) operator([)string<delimiter(")content(How)delimiter(")>operator(:) string<delimiter(")content(Now)delimiter(")>operator(,) string<delimiter(")content(Brown)delimiter(")>operator(:) string<delimiter(")content(Cow)delimiter(")>operator(]) comment(// myMap is a name for this map) - -ident(anArray) operator(=) operator([)integer(1)operator(,) integer(2)operator(,) integer(3)operator(]) keyword(as) type(int)type([]) comment(// creates an array of three references to Integer objects) - -ident(list) operator(=) operator([)type([])operator(]) comment(// a list containing an empty list) -ident(list)operator([)integer(2)operator(]) operator(=) string<delimiter(')content(Cat)delimiter(')> -ident(println) ident(list) comment(// => [[], null, "Cat"]) -ident(list)operator([)integer(0)operator(])operator([)integer(2)operator(]) operator(=) string<delimiter(')content(Dog)delimiter(')> -ident(println) ident(list) comment(// => [[null, null, "Dog"], null, "Cat"]) - -ident(a) operator(=) operator([)integer(2)operator(,) integer(1)operator(]) -ident(b) operator(=) ident(a) comment(// b is a reference to the same thing as a) -ident(a)operator(.)ident(sort)operator(()operator(\)) -ident(println) ident(b) comment(// => [1, 2]) - -ident(nat) operator(=) operator([) pre_type(Name)operator(:) string<delimiter(")content(Leonhard Euler)delimiter(")>operator(,) - key(Address)operator(:) string<delimiter(")content(1729 Ramanujan Lane)char(\\n)content(Mathworld, PI 31416)delimiter(")>operator(,) - key(Birthday)operator(:) hex(0x5bb5580) -operator(]) -ident(println) ident(nat) -comment(// =>["Address":"1729 Ramanujan Lane\\nMathworld, PI 31416", "Name":"Leonhard Euler", "Birthday":96163200]) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_11.1) -comment(//----------------------------------------------------------------------------------) -ident(aref) operator(=) ident(myList) -ident(anonList) operator(=) operator([)integer(1)operator(,) integer(3)operator(,) integer(5)operator(,) integer(7)operator(,) integer(9)operator(]) -ident(anonCopy) operator(=) ident(anonList) -ident(implicitCreation) operator(=) operator([)integer(2)operator(,) integer(4)operator(,) integer(6)operator(,) integer(8)operator(,) integer(10)operator(]) - -ident(anonList) operator(+=) integer(11) -ident(println) ident(anonList) comment(// => [1, 3, 5, 7, 9, 11]) - -ident(two) operator(=) ident(implicitCreation)operator([)integer(0)operator(]) -keyword(assert) ident(two) operator(==) integer(2) - -comment(// To get the last index of a list, you can use size(\)) -comment(// but you never would) -ident(lastIdx) operator(=) ident(aref)operator(.)ident(size)operator(()operator(\)) operator(-) integer(1) - -comment(// Normally, though, you'd use an index of -1 for the last) -comment(// element, -2 for the second last, etc.) -ident(println) ident(implicitCreation)operator([)operator(-)integer(1)operator(]) -comment(//=> 10) - -comment(// And if you were looping through (and not using a list closure operator\)) -operator(()integer(0)operator(..<)ident(aref)operator(.)ident(size)operator(()operator(\))operator(\))operator(.)ident(each)operator({) comment(/* do something */) operator(}) - -ident(numItems) operator(=) ident(aref)operator(.)ident(size)operator(()operator(\)) - -keyword(assert) ident(anArray) keyword(instanceof) type(int)type([]) -keyword(assert) ident(anArray)operator(.)ident(class)operator(.)ident(isArray)operator(()operator(\)) -ident(println) ident(anArray) - -ident(myList)operator(.)ident(sort)operator(()operator(\)) comment(// sort is in place.) -ident(myList) operator(+=) string<delimiter(")content(an item)delimiter(")> comment(// append item) - -keyword(def) method(createList)operator(()operator(\)) operator({) keyword(return) type([]) operator(}) -ident(aref1) operator(=) ident(createList)operator(()operator(\)) -ident(aref2) operator(=) ident(createList)operator(()operator(\)) -comment(// aref1 and aref2 point to different lists.) - -ident(println) ident(anonList)operator([)integer(4)operator(]) comment(// refers to the 4th item in the list_ref list.) - -comment(// The following two statements are equivalent and return up to 3 elements) -comment(// at indices 3, 4, and 5 (if they exist\).) -ident(x) operator(=) ident(anonList)operator([)integer(3)operator(..)integer(5)operator(]) -ident(x) operator(=) ident(anonList)operator([)operator(()integer(3)operator(..)integer(5)operator(\))operator(.)ident(step)operator(()integer(1)operator(\))operator(]) - -comment(// This will insert 3 elements, overwriting elements at indices 3,4, or 5 - if they exist.) -ident(anonList)operator([)integer(3)operator(..)integer(5)operator(]) operator(=) operator([)string<delimiter(")content(blackberry)delimiter(")>operator(,) string<delimiter(")content(blueberry)delimiter(")>operator(,) string<delimiter(")content(pumpkin)delimiter(")>operator(]) - -comment(// non index-based looping) -keyword(for) operator(()ident(item) keyword(in) ident(anonList)operator(\)) ident(println) ident(item) -ident(anonList)operator(.)ident(each)operator({) ident(println) local_variable(it) operator(}) - -comment(// index-based looping) -operator(()integer(0)operator(..<)ident(anonList)operator(.)ident(size)operator(()operator(\))operator(\))operator(.)ident(each)operator({) ident(idx) operator(->) ident(println) ident(anonList)operator([)ident(idx)operator(]) operator(}) -keyword(for) operator(()ident(idx) keyword(in) integer(0)operator(..<)ident(anonList)operator(.)ident(size)operator(()operator(\))operator(\)) ident(println) ident(anonList)operator([)ident(idx)operator(]) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_11.2) -comment(//----------------------------------------------------------------------------------) -comment(// Making Hashes of Arrays) -ident(hash) operator(=) operator([)operator(:)operator(]) comment(// empty map) -ident(hash)operator([)string<delimiter(")content(KEYNAME)delimiter(")>operator(]) operator(=) string<delimiter(")content(new value)delimiter(")> - -ident(hash)operator(.)ident(each)operator({) ident(key)operator(,) ident(value) operator(->) ident(println) ident(key) operator(+) string<delimiter(')content( )delimiter(')> operator(+) ident(value) operator(}) - -ident(hash)operator([)string<delimiter(")content(a key)delimiter(")>operator(]) operator(=) operator([)integer(3)operator(,) integer(4)operator(,) integer(5)operator(]) -ident(values) operator(=) ident(hash)operator([)string<delimiter(")content(a key)delimiter(")>operator(]) - -ident(hash)operator([)string<delimiter(")content(a key)delimiter(")>operator(]) operator(+=) integer(6) -ident(println) ident(hash) -comment(// => ["KEYNAME":"new value", "a key":[3, 4, 5, 6]]) - -comment(// attempting to access a value for a key not in the map yields null) -keyword(assert) ident(hash)operator([)string<delimiter(')content(unknown key)delimiter(')>operator(]) operator(==) pre_constant(null) -keyword(assert) ident(hash)operator(.)ident(get)operator(()string<delimiter(')content(unknown key)delimiter(')>operator(,) integer(45)operator(\)) operator(==) integer(45) -ident(println) ident(hash) -comment(// => ["unknown key":45, "KEYNAME":"new value", "a key":[3, 4, 5, 6]]) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_11.3) -comment(//----------------------------------------------------------------------------------) -comment(// Hashes are no different to other objects) -ident(myHash) operator(=) operator([) key(key1)operator(:)integer(100)operator(,) key(key2)operator(:)integer(200) operator(]) -ident(myHashCopy) operator(=) ident(myHash)operator(.)ident(clone)operator(()operator(\)) - -ident(value) operator(=) ident(myHash)operator([)string<delimiter(')content(key1)delimiter(')>operator(]) -ident(value) operator(=) ident(myHash)operator(.)string<delimiter(')content(key1)delimiter(')> -ident(slice) operator(=) ident(myHash)operator([)integer(1)operator(..)integer(3)operator(]) -ident(keys) operator(=) ident(myHash)operator(.)ident(keySet)operator(()operator(\)) - -keyword(assert) ident(myHash) keyword(instanceof) pre_type(Map) - -operator([)ident(myHash)operator(,) ident(hash)operator(])operator(.)ident(each)operator({) ident(m) operator(->) - ident(m)operator(.)ident(each)operator({) ident(k)operator(,) ident(v) operator(->) ident(println) string<delimiter(")inline<inline_delimiter($)ident(k)>content( => )inline<inline_delimiter($)ident(v)>delimiter(")>operator(}) -operator(}) -comment(// =>) -comment(// key1 => 100) -comment(// key2 => 200) -comment(// unknown key => 45) -comment(// KEYNAME => new value) -comment(// a key => [3, 4, 5, 6]) - -ident(values) operator(=) operator([)string<delimiter(')content(key1)delimiter(')>operator(,)string<delimiter(')content(key2)delimiter(')>operator(])operator(.)ident(collect)operator({) ident(myHash)operator([)local_variable(it)operator(]) operator(}) -ident(println) ident(values) comment(// => [100, 200]) - -keyword(for) operator(()ident(key) keyword(in) operator([)string<delimiter(")content(key1)delimiter(")>operator(,) string<delimiter(")content(key2)delimiter(")>operator(])operator(\)) operator({) - ident(myHash)operator([)ident(key)operator(]) operator(+=) integer(7) -operator(}) -ident(println) ident(myHash) comment(// => ["key1":107, "key2":207]) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_11.4) -comment(//----------------------------------------------------------------------------------) -comment(// you can use closures or the &method notation) -keyword(def) method(joy)operator(()operator(\)) operator({) ident(println) string<delimiter(')content(joy)delimiter(')> operator(}) -keyword(def) method(sullen)operator(()operator(\)) operator({) ident(println) string<delimiter(')content(sullen)delimiter(')> operator(}) -ident(angry) operator(=) operator({) ident(println) string<delimiter(')content(angry)delimiter(')> operator(}) -ident(commands) operator(=) operator([)key(happy)operator(:) local_variable(this)operator(.)operator(&)ident(joy)operator(,) - key(sad)operator(:) local_variable(this)operator(.)operator(&)ident(sullen)operator(,) - key(done)operator(:) operator({) pre_type(System)operator(.)ident(exit)operator(()integer(0)operator(\)) operator(})operator(,) - key(mad)operator(:) ident(angry) -operator(]) - -ident(print) string<delimiter(")content(How are you?)delimiter(")> -ident(cmd) operator(=) pre_type(System)operator(.)ident(in)operator(.)ident(readLine)operator(()operator(\)) -keyword(if) operator(()ident(cmd) keyword(in) ident(commands)operator(.)ident(keySet)operator(()operator(\))operator(\)) ident(commands)operator([)ident(cmd)operator(])operator(()operator(\)) -keyword(else) ident(println) string<delimiter(")content(No such command: )inline<inline_delimiter($)ident(cmd)>delimiter(")> - - -comment(// a counter of the type referred to in the original cookbook) -comment(// would be implemented using a class) -keyword(def) method(counterMaker)operator(()operator(\))operator({) - keyword(def) ident(start) operator(=) integer(0) - keyword(return) operator({) operator(->) ident(start)operator(++)operator(;) ident(start)operator(-)integer(1) operator(}) -operator(}) - -ident(counter) operator(=) ident(counterMaker)operator(()operator(\)) -integer(5)operator(.)ident(times)operator({) ident(print) string<delimiter(")inline<inline_delimiter(${)ident(counter)operator(()operator(\))inline_delimiter(})>content( )delimiter(")> operator(})operator(;) ident(println)operator(()operator(\)) - -ident(counter1) operator(=) ident(counterMaker)operator(()operator(\)) -ident(counter2) operator(=) ident(counterMaker)operator(()operator(\)) - -integer(5)operator(.)ident(times)operator({) ident(println) string<delimiter(")inline<inline_delimiter(${)ident(counter1)operator(()operator(\))inline_delimiter(})>content( )delimiter(")> operator(}) -ident(println) string<delimiter(")inline<inline_delimiter(${)ident(counter1)operator(()operator(\))inline_delimiter(})>content( )inline<inline_delimiter(${)ident(counter2)operator(()operator(\))inline_delimiter(})>delimiter(")> -comment(//=> 0) -comment(//=> 1) -comment(//=> 2) -comment(//=> 3) -comment(//=> 4) -comment(//=> 5 0) - - -keyword(def) method(timestamp)operator(()operator(\)) operator({) - keyword(def) ident(start) operator(=) pre_type(System)operator(.)ident(currentTimeMillis)operator(()operator(\)) - keyword(return) operator({) operator(()pre_type(System)operator(.)ident(currentTimeMillis)operator(()operator(\)) operator(-) ident(start)operator(\))operator(.)ident(intdiv)operator(()integer(1000)operator(\)) operator(}) -operator(}) -ident(early) operator(=) ident(timestamp)operator(()operator(\)) -comment(//sleep(10000\)) -ident(later) operator(=) ident(timestamp)operator(()operator(\)) -ident(sleep)operator(()integer(2000)operator(\)) -ident(println) string<delimiter(")content(It's been )inline<inline_delimiter(${)ident(early)operator(()operator(\))inline_delimiter(})>content( seconds since early.)delimiter(")> -ident(println) string<delimiter(")content(It's been )inline<inline_delimiter(${)ident(later)operator(()operator(\))inline_delimiter(})>content( seconds since later.)delimiter(")> -comment(//=> It's been 12 seconds since early.) -comment(//=> It's been 2 seconds since later.) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_11.5) -comment(//----------------------------------------------------------------------------------) -comment(// All variables in Groovy are objects including primitives. Some objects) -comment(// are immutable. Some operations on objects change mutable objects.) -comment(// Some operations produce new objects.) - -comment(// 15 is an Integer which is an immutable object.) -comment(// passing 15 to a method passes a reference to the Integer object.) -keyword(def) method(print)operator(()ident(n)operator(\)) operator({) ident(println) string<delimiter(")inline<inline_delimiter(${)ident(n)operator(.)ident(toString)operator(()operator(\))inline_delimiter(})>delimiter(")> operator(}) -ident(print)operator(()integer(15)operator(\)) comment(// no need to create any kind of explicit reference) - -comment(// even though Integers are immutable, references to them are not) -ident(x) operator(=) integer(1) -ident(y) operator(=) ident(x) -ident(println) string<delimiter(")inline<inline_delimiter($)ident(x)>content( )inline<inline_delimiter($)ident(y)>delimiter(")> comment(// => 1 1) -ident(x) operator(+=) integer(1) comment(// "x" now refers to a different object than y) -ident(println) string<delimiter(")inline<inline_delimiter($)ident(x)>content( )inline<inline_delimiter($)ident(y)>delimiter(")> comment(// => 2 1) -ident(y) operator(=) integer(4) comment(// "y" now refers to a different object than it did before) -ident(println) string<delimiter(")inline<inline_delimiter($)ident(x)>content( )inline<inline_delimiter($)ident(y)>delimiter(")> comment(// => 2 4) - -comment(// Some objects (including ints and strings\) are immutable, however, which) -comment(// can give the illusion of a by-value/by-reference distinction:) -ident(list) operator(=) operator([)operator([)integer(1)operator(])operator(,) integer(1)operator(,) string<delimiter(')content(s)delimiter(')>operator(]) -ident(list)operator(.)ident(each)operator({) local_variable(it) operator(+=) integer(1) operator(}) comment(// plus operator doesn't operate inplace) -ident(print) ident(list) comment(//=> [[1] 1 s]) -ident(list) operator(=) ident(list)operator(.)ident(collect)operator({) local_variable(it) operator(+) integer(1) operator(}) -ident(print) ident(list) comment(//=> [[1, 1], 2, s1]) - -ident(list) operator(=) operator([)operator([)string<delimiter(')content(Z)delimiter(')>operator(,) string<delimiter(')content(Y)delimiter(')>operator(,) string<delimiter(')content(X)delimiter(')>operator(])operator(,) operator([)string<delimiter(')content(C)delimiter(')>operator(,) string<delimiter(')content(B)delimiter(')>operator(,) string<delimiter(')content(A)delimiter(')>operator(])operator(,) operator([)integer(5)operator(,) integer(3)operator(,) integer(1)operator(])operator(]) -ident(list)operator(.)ident(each)operator({) local_variable(it)operator(.)ident(sort)operator(()operator(\)) operator(}) comment(// sort operation operates inline) -ident(println) ident(list) comment(// => [["X", "Y", "Z"], ["A", "B", "C"], [1, 3, 5]]) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_11.6) -comment(//----------------------------------------------------------------------------------) -comment(// As indicated by the previous section, everything is referenced, so) -comment(// just create a list as normal, and beware that augmented assignment) -comment(// works differently with immutable objects to mutable ones and depends) -comment(// on the semantics of the particular operation invoked:) -ident(mylist) operator(=) operator([)integer(1)operator(,) string<delimiter(")content(s)delimiter(")>operator(,) operator([)integer(1)operator(])operator(]) -ident(print) ident(mylist) -comment(//=> [1, s, [1]]) - -ident(mylist)operator(.)ident(each)operator({) local_variable(it) operator(*=) integer(2) operator(}) -ident(print) ident(mylist) -comment(//=> [1, s, [1,1]]) - -ident(mylist)operator([)integer(0)operator(]) operator(*=) integer(2) -ident(mylist)operator([)operator(-)integer(1)operator(]) operator(*=) integer(2) -ident(print) ident(mylist) -comment(//=> [2, s, [1, 1]]) - -comment(// If you need to modify every value in a list, you use collect) -comment(// which does NOT modify inplace but rather returns a new collection:) -ident(mylist) operator(=) integer(1)operator(..)integer(4) -ident(println) ident(mylist)operator(.)ident(collect)operator({) local_variable(it)operator(**)integer(3) operator(*) integer(4)operator(/)integer(3) operator(*) pre_type(Math)operator(.)ident(PI) operator(}) -comment(// => [4.188790204681671, 33.510321638395844, 113.09733552923255, 268.0825731062243]) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_11.7) -comment(//----------------------------------------------------------------------------------) -keyword(def) method(mkcounter)operator(()ident(count)operator(\)) operator({) - keyword(def) ident(start) operator(=) ident(count) - keyword(def) ident(bundle) operator(=) operator([)operator(:)operator(]) - ident(bundle)operator(.)string<delimiter(')content(NEXT)delimiter(')> operator(=) operator({) ident(count) operator(+=) integer(1) operator(}) - ident(bundle)operator(.)string<delimiter(')content(PREV)delimiter(')> operator(=) operator({) ident(count) operator(-=) integer(1) operator(}) - ident(bundle)operator(.)string<delimiter(')content(RESET)delimiter(')> operator(=) operator({) ident(count) operator(=) ident(start) operator(}) - ident(bundle)operator([)string<delimiter(")content(LAST)delimiter(")>operator(]) operator(=) ident(bundle)operator([)string<delimiter(")content(PREV)delimiter(")>operator(]) - keyword(return) ident(bundle) -operator(}) - -ident(c1) operator(=) ident(mkcounter)operator(()integer(20)operator(\)) -ident(c2) operator(=) ident(mkcounter)operator(()integer(77)operator(\)) - -ident(println) string<delimiter(")content(next c1: )inline<inline_delimiter(${)ident(c1)operator([)string<delimiter(")content(NEXT)delimiter(")>operator(])operator(()operator(\))inline_delimiter(})>delimiter(")> comment(// 21) -ident(println) string<delimiter(")content(next c2: )inline<inline_delimiter(${)ident(c2)operator([)string<delimiter(")content(NEXT)delimiter(")>operator(])operator(()operator(\))inline_delimiter(})>delimiter(")> comment(// 78) -ident(println) string<delimiter(")content(next c1: )inline<inline_delimiter(${)ident(c1)operator([)string<delimiter(")content(NEXT)delimiter(")>operator(])operator(()operator(\))inline_delimiter(})>delimiter(")> comment(// 22) -ident(println) string<delimiter(")content(last c1: )inline<inline_delimiter(${)ident(c1)operator([)string<delimiter(")content(PREV)delimiter(")>operator(])operator(()operator(\))inline_delimiter(})>delimiter(")> comment(// 21) -ident(println) string<delimiter(")content(last c1: )inline<inline_delimiter(${)ident(c1)operator([)string<delimiter(")content(LAST)delimiter(")>operator(])operator(()operator(\))inline_delimiter(})>delimiter(")> comment(// 20) -ident(println) string<delimiter(")content(old c2: )inline<inline_delimiter(${)ident(c2)operator([)string<delimiter(")content(RESET)delimiter(")>operator(])operator(()operator(\))inline_delimiter(})>delimiter(")> comment(// 77) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_11.8) -comment(//----------------------------------------------------------------------------------) -keyword(def) method(addAndMultiply)operator(()ident(a)operator(,) ident(b)operator(\)) operator({) - ident(println) string<delimiter(")inline<inline_delimiter(${)ident(a)operator(+)ident(b)inline_delimiter(})>content( )inline<inline_delimiter(${)ident(a)operator(*)ident(b)inline_delimiter(})>delimiter(")> -operator(}) -ident(methRef) operator(=) local_variable(this)operator(.)operator(&)ident(addAndMultiply) -comment(// or use direct closure) -ident(multiplyAndAdd) operator(=) operator({) ident(a)operator(,)ident(b) operator(->) ident(println) string<delimiter(")inline<inline_delimiter(${)ident(a)operator(*)ident(b)inline_delimiter(})>content( )inline<inline_delimiter(${)ident(a)operator(+)ident(b)inline_delimiter(})>delimiter(")> operator(}) -comment(// later ...) -ident(methRef)operator(()integer(2)operator(,)integer(3)operator(\)) comment(// => 5 6) -ident(multiplyAndAdd)operator(()integer(2)operator(,)integer(3)operator(\)) comment(// => 6 5) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_11.9) -comment(//----------------------------------------------------------------------------------) -ident(record) operator(=) operator([) - string<delimiter(")content(name)delimiter(")>operator(:) string<delimiter(")content(Jason)delimiter(")>operator(,) - string<delimiter(")content(empno)delimiter(")>operator(:) integer(132)operator(,) - string<delimiter(")content(title)delimiter(")>operator(:) string<delimiter(")content(deputy peon)delimiter(")>operator(,) - string<delimiter(")content(age)delimiter(")>operator(:) integer(23)operator(,) - string<delimiter(")content(salary)delimiter(")>operator(:) integer(37000)operator(,) - string<delimiter(")content(pals)delimiter(")>operator(:) operator([)string<delimiter(")content(Norbert)delimiter(")>operator(,) string<delimiter(")content(Rhys)delimiter(")>operator(,) string<delimiter(")content(Phineas)delimiter(")>operator(])operator(,) -operator(]) -ident(println) string<delimiter(")content(I am )inline<inline_delimiter(${)ident(record)operator(.)string<delimiter(')content(name)delimiter(')>inline_delimiter(})>content(, and my pals are )inline<inline_delimiter(${)ident(record)operator(.)string<delimiter(')content(pals)delimiter(')>operator(.)ident(join)operator(()string<delimiter(')content(, )delimiter(')>operator(\))inline_delimiter(})>content(.)delimiter(")> -comment(// => I am Jason, and my pals are Norbert, Rhys, Phineas.) - -ident(byname) operator(=) operator([)operator(:)operator(]) -ident(byname)operator([)ident(record)operator([)string<delimiter(")content(name)delimiter(")>operator(])operator(]) operator(=) ident(record) - -ident(rp) operator(=) ident(byname)operator(.)ident(get)operator(()string<delimiter(")content(Aron)delimiter(")>operator(\)) -keyword(if) operator(()ident(rp)operator(\)) ident(println) string<delimiter(")content(Aron is employee )inline<inline_delimiter(${)ident(rp)operator([)string<delimiter(")content(empno)delimiter(")>operator(])inline_delimiter(})>content(.)delimiter(")> - -ident(byname)operator([)string<delimiter(")content(Jason)delimiter(")>operator(])operator([)string<delimiter(")content(pals)delimiter(")>operator(]) operator(+=) string<delimiter(")content(Theodore)delimiter(")> -ident(println) string<delimiter(")content(Jason now has )inline<inline_delimiter(${)ident(byname)operator([)string<delimiter(')content(Jason)delimiter(')>operator(])operator([)string<delimiter(')content(pals)delimiter(')>operator(])operator(.)ident(size)operator(()operator(\))inline_delimiter(})>content( pals.)delimiter(")> - -ident(byname)operator(.)ident(each)operator({) ident(name)operator(,) ident(record) operator(->) - ident(println) string<delimiter(")inline<inline_delimiter($)ident(name)>content( is employee number )inline<inline_delimiter(${)ident(record)operator([)string<delimiter(')content(empno)delimiter(')>operator(])inline_delimiter(})>content(.)delimiter(")> -operator(}) - -ident(employees) operator(=) operator([)operator(:)operator(]) -ident(employees)operator([)ident(record)operator([)string<delimiter(")content(empno)delimiter(")>operator(])operator(]) operator(=) ident(record) - -comment(// lookup by id) -ident(rp) operator(=) ident(employees)operator([)integer(132)operator(]) -keyword(if) operator(()ident(rp)operator(\)) ident(println) string<delimiter(")content(Employee number 132 is )inline<inline_delimiter(${)ident(rp)operator(.)string<delimiter(')content(name)delimiter(')>inline_delimiter(})>content(.)delimiter(")> - -ident(byname)operator([)string<delimiter(")content(Jason)delimiter(")>operator(])operator([)string<delimiter(")content(salary)delimiter(")>operator(]) operator(*=) float(1.035) -ident(println) ident(record) -comment(// => ["pals":["Norbert", "Rhys", "Phineas", "Theodore"], "age":23,) -comment(// "title":"deputy peon", "name":"Jason", "salary":38295.000, "empno":132]) - -ident(peons) operator(=) ident(employees)operator(.)ident(findAll)operator({) ident(k)operator(,) ident(v) operator(->) ident(v)operator(.)string<delimiter(')content(title)delimiter(')> operator(=~) regexp<delimiter(/)content((?i\)peon)delimiter(/)> operator(}) -keyword(assert) ident(peons)operator(.)ident(size)operator(()operator(\)) operator(==) integer(1) -ident(tsevens) operator(=) ident(employees)operator(.)ident(findAll)operator({) ident(k)operator(,) ident(v) operator(->) ident(v)operator(.)string<delimiter(')content(age)delimiter(')> operator(==) integer(27) operator(}) -keyword(assert) ident(tsevens)operator(.)ident(size)operator(()operator(\)) operator(==) integer(0) - -comment(// Go through all records) -ident(println) string<delimiter(')content(Names are: )delimiter(')> operator(+) ident(employees)operator(.)ident(values)operator(()operator(\))operator(.)ident(collect)operator({)ident(r)operator(->)ident(r)operator(.)string<delimiter(')content(name)delimiter(')>operator(})operator(.)ident(join)operator(()string<delimiter(')content(, )delimiter(')>operator(\)) - -ident(byAge) operator(=) operator({)ident(a)operator(,)ident(b)operator(->) ident(a)operator(.)ident(value)operator(()operator(\))operator(.)string<delimiter(')content(age)delimiter(')> operator(<=>) ident(b)operator(.)ident(value)operator(()operator(\))operator(.)string<delimiter(')content(age)delimiter(')>operator(}) -ident(employees)operator(.)ident(values)operator(()operator(\))operator(.)ident(sort)operator({)ident(byAge)operator(})operator(.)ident(each)operator({) ident(r)operator(->) - ident(println) string<delimiter(")inline<inline_delimiter(${)ident(r)operator(.)string<delimiter(')content(name)delimiter(')>inline_delimiter(})>content( is )inline<inline_delimiter(${)ident(r)operator(.)string<delimiter(')content(age)delimiter(')>inline_delimiter(})>delimiter(")> -operator(}) - -comment(// byage, a hash: age => list of records) -ident(byage) operator(=) operator([)operator(:)operator(]) -ident(byage)operator([)ident(record)operator([)string<delimiter(")content(age)delimiter(")>operator(])operator(]) operator(=) ident(byage)operator(.)ident(get)operator(()ident(record)operator([)string<delimiter(")content(age)delimiter(")>operator(])operator(,) type([])operator(\)) operator(+) operator([)ident(record)operator(]) - -ident(byage)operator(.)ident(each)operator({) ident(age)operator(,) ident(list) operator(->) - ident(println) string<delimiter(")content(Age )inline<inline_delimiter($)ident(age)>content(: )inline<inline_delimiter(${)ident(list)operator(.)ident(collect)operator({)local_variable(it)operator(.)string<delimiter(')content(name)delimiter(')>operator(})operator(.)ident(join)operator(()string<delimiter(')content(, )delimiter(')>operator(\))inline_delimiter(})>delimiter(")> -operator(}) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_11.10) -comment(//----------------------------------------------------------------------------------) -comment(// if you are using a Properties (see 8.16\) then just use load) -comment(// and store (or storeToXML\)) -comment(// variation to original cookbook as Groovy can use Java's object serialization) -ident(map) operator(=) operator([)integer(1)operator(:)string<delimiter(')content(Jan)delimiter(')>operator(,) integer(2)operator(:)string<delimiter(')content(Feb)delimiter(')>operator(,) integer(3)operator(:)string<delimiter(')content(Mar)delimiter(')>operator(]) -comment(// write) -keyword(new) pre_type(File)operator(()string<delimiter(')content(months.dat)delimiter(')>operator(\))operator(.)ident(withObjectOutputStream)operator({) ident(oos) operator(->) - ident(oos)operator(.)ident(writeObject)operator(()ident(map)operator(\)) -operator(}) -comment(// reset) -ident(map) operator(=) pre_constant(null) -comment(// read) -keyword(new) pre_type(File)operator(()string<delimiter(')content(months.dat)delimiter(')>operator(\))operator(.)ident(withObjectInputStream)operator({) ident(ois) operator(->) - ident(map) operator(=) ident(ois)operator(.)ident(readObject)operator(()operator(\)) -operator(}) -ident(println) ident(map) comment(// => [1:"Jan", 2:"Feb", 3:"Mar"]) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_11.11) -comment(//----------------------------------------------------------------------------------) -comment(// Groovy automatically does pretty printing for some of the key types, e.g.) -ident(mylist) operator(=) operator([)operator([)integer(1)operator(,)integer(2)operator(,)integer(3)operator(])operator(,) operator([)integer(4)operator(,) operator([)integer(5)operator(,)integer(6)operator(,)integer(7)operator(])operator(,) integer(8)operator(,)integer(9)operator(,) operator([)integer(0)operator(,)integer(3)operator(,)integer(5)operator(])operator(])operator(,) integer(7)operator(,) integer(8)operator(]) -ident(println) ident(mylist) -comment(// => [[1, 2, 3], [4, [5, 6, 7], 8, 9, [0, 3, 5]], 7, 8]) - -ident(mydict) operator(=) operator([)string<delimiter(")content(abc)delimiter(")>operator(:) string<delimiter(")content(def)delimiter(")>operator(,) string<delimiter(")content(ghi)delimiter(")>operator(:)operator([)integer(1)operator(,)integer(2)operator(,)integer(3)operator(])operator(]) -ident(println) ident(mydict) -comment(// => ["abc":"def", "ghi":[1, 2, 3]]) - -comment(// if you have another type of object you can use the built-in dump(\) method) -type(class) class(PetLover) operator({) - keyword(def) ident(name) - keyword(def) ident(age) - keyword(def) ident(pets) -operator(}) -ident(p) operator(=) keyword(new) ident(PetLover)operator(()key(name)operator(:)string<delimiter(')content(Jason)delimiter(')>operator(,) key(age)operator(:)integer(23)operator(,) key(pets)operator(:)operator([)key(dog)operator(:)string<delimiter(')content(Rover)delimiter(')>operator(,)key(cat)operator(:)string<delimiter(')content(Garfield)delimiter(')>operator(])operator(\)) -ident(println) ident(p) -comment(// => PetLover@b957ea) -ident(println) ident(p)operator(.)ident(dump)operator(()operator(\)) -comment(// => <PetLover@b957ea name=Jason age=23 pets=["cat":"Garfield", "dog":"Rover"]>) - -comment(// If that isn't good enough, you can use Boost (http://tara-indigo.org/daisy/geekscape/g2/128\)) -comment(// or Jakarta Commons Lang *ToStringBuilders (jakarta.apache.org/commons\)) -comment(// Here's an example of Boost, just extend the supplied Primordial class) -keyword(import) include(au.net.netstorm.boost.primordial.Primordial) -type(class) class(PetLover2) directive(extends) ident(Primordial) operator({) keyword(def) ident(name)operator(,) ident(age)operator(,) ident(pets) operator(}) -ident(println) keyword(new) ident(PetLover2)operator(()key(name)operator(:)string<delimiter(')content(Jason)delimiter(')>operator(,) key(age)operator(:)integer(23)operator(,) key(pets)operator(:)operator([)key(dog)operator(:)string<delimiter(')content(Rover)delimiter(')>operator(,)key(cat)operator(:)string<delimiter(')content(Garfield)delimiter(')>operator(])operator(\)) -comment(// =>) -comment(// PetLover2[) -comment(// name=Jason) -comment(// age=23) -comment(// pets={cat=Garfield, dog=Rover}) -comment(// metaClass=groovy.lang.MetaClassImpl@1d8d39f[class PetLover2]) -comment(// ]) - -comment(// using Commons Lang ReflectionToStringBuilder (equivalent to dump(\)\)) -keyword(import) include(org.apache.commons.lang.builder.*) -type(class) class(PetLover3) operator({) - keyword(def) ident(name)operator(,) ident(age)operator(,) ident(pets) - pre_type(String) ident(toString)operator(()operator(\)) operator({) - ident(ReflectionToStringBuilder)operator(.)ident(toString)operator(()local_variable(this)operator(\)) - operator(}) -operator(}) -ident(println) keyword(new) ident(PetLover3)operator(()key(name)operator(:)string<delimiter(')content(Jason)delimiter(')>operator(,) key(age)operator(:)integer(23)operator(,) key(pets)operator(:)operator([)key(dog)operator(:)string<delimiter(')content(Rover)delimiter(')>operator(,)key(cat)operator(:)string<delimiter(')content(Garfield)delimiter(')>operator(])operator(\)) -comment(// => PetLover3@196e136[name=Jason,age=23,pets={cat=Garfield, dog=Rover}]) - -comment(// using Commons Lang ToStringBuilder if you want a custom format) -type(class) class(PetLover4) operator({) - keyword(def) ident(name)operator(,) ident(dob)operator(,) ident(pets) - pre_type(String) ident(toString)operator(()operator(\)) operator({) - keyword(def) ident(d1) operator(=) ident(dob)operator(.)ident(time)operator(;) keyword(def) ident(d2) operator(=) operator(()keyword(new) pre_type(Date)operator(()operator(\))operator(\))operator(.)ident(time) - type(int) ident(age) operator(=) operator(()ident(d2) operator(-) ident(d1)operator(\))operator(/)integer(1000)operator(/)integer(60)operator(/)integer(60)operator(/)integer(24)operator(/)integer(365) comment(// close approx good enough here) - keyword(return) keyword(new) ident(ToStringBuilder)operator(()local_variable(this)operator(\))operator(.) - ident(append)operator(()string<delimiter(")content(Pet Lover's name)delimiter(")>operator(,) ident(name)operator(\))operator(.) - ident(append)operator(()string<delimiter(')content(Pets)delimiter(')>operator(,) ident(pets)operator(\))operator(.) - ident(append)operator(()string<delimiter(')content(Age)delimiter(')>operator(,) ident(age)operator(\)) - operator(}) -operator(}) -ident(println) keyword(new) ident(PetLover4)operator(()key(name)operator(:)string<delimiter(')content(Jason)delimiter(')>operator(,) key(dob)operator(:)keyword(new) pre_type(Date)operator(()integer(83)operator(,)oct(03)operator(,)oct(04)operator(\))operator(,) key(pets)operator(:)operator([)key(dog)operator(:)string<delimiter(')content(Rover)delimiter(')>operator(,)key(cat)operator(:)string<delimiter(')content(Garfield)delimiter(')>operator(])operator(\)) -comment(// => PetLover4@fdfc58[Pet Lover's name=Jason,Pets={cat=Garfield, dog=Rover},Age=23]) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_11.12) -comment(//----------------------------------------------------------------------------------) -ident(oldlist) operator(=) operator([)integer(1)operator(,) integer(2)operator(,) integer(3)operator(]) -ident(newlist) operator(=) keyword(new) pre_type(ArrayList)operator(()ident(oldlist)operator(\)) comment(// shallow copy) -ident(newlist) operator(=) ident(oldlist)operator(.)ident(clone)operator(()operator(\)) comment(// shallow copy) - -ident(oldmap) operator(=) operator([)key(a)operator(:)integer(1)operator(,) key(b)operator(:)integer(2)operator(,) key(c)operator(:)integer(3)operator(]) -ident(newmap) operator(=) keyword(new) pre_type(HashMap)operator(()ident(oldmap)operator(\)) comment(// shallow copy) -ident(newmap) operator(=) ident(oldmap)operator(.)ident(clone)operator(()operator(\)) comment(// shallow copy) - -ident(oldarray) operator(=) operator([)integer(1)operator(,) integer(2)operator(,) integer(3)operator(]) keyword(as) type(int)type([]) -ident(newarray) operator(=) ident(oldarray)operator(.)ident(clone)operator(()operator(\)) - -comment(// shallow copies copy a data structure, but don't copy the items in those) -comment(// data structures so if there are nested data structures, both copy and) -comment(// original will refer to the same object) -ident(mylist) operator(=) operator([)string<delimiter(")content(1)delimiter(")>operator(,) string<delimiter(")content(2)delimiter(")>operator(,) string<delimiter(")content(3)delimiter(")>operator(]) -ident(newlist) operator(=) ident(mylist)operator(.)ident(clone)operator(()operator(\)) -ident(mylist)operator([)integer(0)operator(]) operator(=) string<delimiter(")content(0)delimiter(")> -ident(println) string<delimiter(")inline<inline_delimiter($)ident(mylist)>content( )inline<inline_delimiter($)ident(newlist)>delimiter(")> -comment(//=> ["0", "2", "3"] ["1", "2", "3"]) - -ident(mylist) operator(=) operator([)operator([)string<delimiter(")content(1)delimiter(")>operator(,) string<delimiter(")content(2)delimiter(")>operator(,) string<delimiter(")content(3)delimiter(")>operator(])operator(,) integer(4)operator(]) -ident(newlist) operator(=) ident(mylist)operator(.)ident(clone)operator(()operator(\)) -ident(mylist)operator([)integer(0)operator(])operator([)integer(0)operator(]) operator(=) string<delimiter(")content(0)delimiter(")> -ident(println) string<delimiter(")inline<inline_delimiter($)ident(mylist)>content( )inline<inline_delimiter($)ident(newlist)>delimiter(")> -comment(//=> [["0", "2", "3"], 4] [["0", "2", "3"], 4]) - -comment(// standard deep copy implementation) -keyword(def) method(deepcopy)operator(()ident(orig)operator(\)) operator({) - ident(bos) operator(=) keyword(new) pre_type(ByteArrayOutputStream)operator(()operator(\)) - ident(oos) operator(=) keyword(new) pre_type(ObjectOutputStream)operator(()ident(bos)operator(\)) - ident(oos)operator(.)ident(writeObject)operator(()ident(orig)operator(\))operator(;) ident(oos)operator(.)ident(flush)operator(()operator(\)) - ident(bin) operator(=) keyword(new) pre_type(ByteArrayInputStream)operator(()ident(bos)operator(.)ident(toByteArray)operator(()operator(\))operator(\)) - ident(ois) operator(=) keyword(new) pre_type(ObjectInputStream)operator(()ident(bin)operator(\)) - keyword(return) ident(ois)operator(.)ident(readObject)operator(()operator(\)) -operator(}) - -ident(newlist) operator(=) ident(deepcopy)operator(()ident(oldlist)operator(\)) comment(// deep copy) -ident(newmap) operator(=) ident(deepcopy)operator(()ident(oldmap)operator(\)) comment(// deep copy) - -ident(mylist) operator(=) operator([)operator([)string<delimiter(")content(1)delimiter(")>operator(,) string<delimiter(")content(2)delimiter(")>operator(,) string<delimiter(")content(3)delimiter(")>operator(])operator(,) integer(4)operator(]) -ident(newlist) operator(=) ident(deepcopy)operator(()ident(mylist)operator(\)) -ident(mylist)operator([)integer(0)operator(])operator([)integer(0)operator(]) operator(=) string<delimiter(")content(0)delimiter(")> -ident(println) string<delimiter(")inline<inline_delimiter($)ident(mylist)>content( )inline<inline_delimiter($)ident(newlist)>delimiter(")> -comment(//=> [["0", "2", "3"], 4] [["1", "2", "3"], 4]) - -comment(// See also:) -comment(// http://javatechniques.com/public/java/docs/basics/low-memory-deep-copy.html) -comment(// http://javatechniques.com/public/java/docs/basics/faster-deep-copy.html) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_11.13) -comment(//----------------------------------------------------------------------------------) -comment(// use Java's serialization capabilities as per 11.10) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_11.14) -comment(//----------------------------------------------------------------------------------) -comment(// There are numerous mechanisms for persisting objects to disk) -comment(// using Groovy and Java mechanisms. Some are completely transparent,) -comment(// some require some initialization only, others make the persistence) -comment(// mechanisms visible. Here is a site that lists over 20 options:) -comment(// http://www.java-source.net/open-source/persistence) -comment(// (This list doesn't include EJB offerings which typically) -comment(// require an application server or XML-based options\)) - -comment(// We'll just consider one possibility from prevayler.sf.net.) -comment(// This package doesn't make changes to persistent data transparent;) -comment(// instead requiring an explicit call via a transaction object.) -comment(// It saves all such transaction objects in a journal file so) -comment(// that it can rollback the system any number of times (or if) -comment(// you make use of the timestamp feature\) to a particular point) -comment(// in time. It can also be set up to create snapshots which) -comment(// consolidate all changes made up to a certain point. The) -comment(// journalling will begin again from that point.) -keyword(import) include(org.prevayler.*) -type(class) class(ImportantHash) directive(implements) pre_type(Serializable) operator({) - directive(private) ident(map) operator(=) operator([)operator(:)operator(]) - keyword(def) method(putAt)operator(()ident(key)operator(,) ident(value)operator(\)) operator({) ident(map)operator([)ident(key)operator(]) operator(=) ident(value) operator(}) - keyword(def) method(getAt)operator(()ident(key)operator(\)) operator({) ident(map)operator([)ident(key)operator(]) operator(}) -operator(}) -type(class) class(StoreTransaction) directive(implements) ident(Transaction) operator({) - directive(private) ident(val) - ident(StoreTransaction)operator(()ident(val)operator(\)) operator({) local_variable(this)operator(.)ident(val) operator(=) ident(val) operator(}) - type(void) ident(executeOn)operator(()ident(prevayler)operator(,) pre_type(Date) ident(ignored)operator(\)) operator({) ident(prevayler)operator(.)ident(putAt)operator(()ident(val)operator(,)ident(val)operator(*)integer(2)operator(\)) operator(}) -operator(}) -keyword(def) method(save)operator(()ident(n)operator(\))operator({) ident(store)operator(.)ident(execute)operator(()keyword(new) ident(StoreTransaction)operator(()ident(n)operator(\))operator(\)) operator(}) -ident(store) operator(=) ident(PrevaylerFactory)operator(.)ident(createPrevayler)operator(()keyword(new) ident(ImportantHash)operator(()operator(\))operator(,) string<delimiter(")content(pleac11)delimiter(")>operator(\)) -ident(hash) operator(=) ident(store)operator(.)ident(prevalentSystem)operator(()operator(\)) -keyword(for) operator(()ident(i) keyword(in) integer(0)operator(..)integer(1000)operator(\)) operator({) - ident(save)operator(()ident(i)operator(\)) -operator(}) -ident(println) ident(hash)operator([)integer(750)operator(]) comment(// => 1500) - -ident(store) operator(=) pre_constant(null)operator(;) ident(hash) operator(=) pre_constant(null) comment(// *** could shutdown here) - -ident(store) operator(=) ident(PrevaylerFactory)operator(.)ident(createPrevayler)operator(()keyword(new) ident(ImportantHash)operator(()operator(\))operator(,) string<delimiter(")content(pleac11)delimiter(")>operator(\)) -ident(hash) operator(=) ident(store)operator(.)ident(prevalentSystem)operator(()operator(\)) -ident(println) ident(hash)operator([)integer(750)operator(]) comment(// => 1500) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_11.15) -comment(//----------------------------------------------------------------------------------) -comment(// bintree - binary tree demo program) -type(class) class(BinaryTree) operator({) - keyword(def) ident(value)operator(,) ident(left)operator(,) ident(right) - ident(BinaryTree)operator(()ident(val)operator(\)) operator({) - ident(value) operator(=) ident(val) - ident(left) operator(=) pre_constant(null) - ident(right) operator(=) pre_constant(null) - operator(}) - - comment(// insert given value into proper point of) - comment(// provided tree. If no tree provided,) - comment(// use implicit pass by reference aspect of @_) - comment(// to fill one in for our caller.) - keyword(def) method(insert)operator(()ident(val)operator(\)) operator({) - keyword(if) operator(()ident(val) operator(<) ident(value)operator(\)) operator({) - keyword(if) operator(()ident(left)operator(\)) ident(left)operator(.)ident(insert)operator(()ident(val)operator(\)) - keyword(else) ident(left) operator(=) keyword(new) ident(BinaryTree)operator(()ident(val)operator(\)) - operator(}) keyword(else) keyword(if) operator(()ident(val) operator(>) ident(value)operator(\)) operator({) - keyword(if) operator(()ident(right)operator(\)) ident(right)operator(.)ident(insert)operator(()ident(val)operator(\)) - keyword(else) ident(right) operator(=) keyword(new) ident(BinaryTree)operator(()ident(val)operator(\)) - operator(}) keyword(else) ident(println) string<delimiter(")content(double)delimiter(")> comment(// ignore double values) - operator(}) - - comment(// recurse on left child,) - comment(// then show current value,) - comment(// then recurse on right child.) - keyword(def) method(inOrder)operator(()operator(\)) operator({) - keyword(if) operator(()ident(left)operator(\)) ident(left)operator(.)ident(inOrder)operator(()operator(\)) - ident(print) ident(value) operator(+) string<delimiter(')content( )delimiter(')> - keyword(if) operator(()ident(right)operator(\)) ident(right)operator(.)ident(inOrder)operator(()operator(\)) - operator(}) - - comment(// show current value,) - comment(// then recurse on left child,) - comment(// then recurse on right child.) - keyword(def) method(preOrder)operator(()operator(\)) operator({) - ident(print) ident(value) operator(+) string<delimiter(')content( )delimiter(')> - keyword(if) operator(()ident(left)operator(\)) ident(left)operator(.)ident(preOrder)operator(()operator(\)) - keyword(if) operator(()ident(right)operator(\)) ident(right)operator(.)ident(preOrder)operator(()operator(\)) - operator(}) - - comment(// show current value,) - comment(// then recurse on left child,) - comment(// then recurse on right child.) - keyword(def) method(dumpOrder)operator(()operator(\)) operator({) - ident(print) local_variable(this)operator(.)ident(dump)operator(()operator(\)) operator(+) string<delimiter(')content( )delimiter(')> - keyword(if) operator(()ident(left)operator(\)) ident(left)operator(.)ident(dumpOrder)operator(()operator(\)) - keyword(if) operator(()ident(right)operator(\)) ident(right)operator(.)ident(dumpOrder)operator(()operator(\)) - operator(}) - - comment(// recurse on left child,) - comment(// then recurse on right child,) - comment(// then show current value.) - keyword(def) method(postOrder)operator(()operator(\)) operator({) - keyword(if) operator(()ident(left)operator(\)) ident(left)operator(.)ident(postOrder)operator(()operator(\)) - keyword(if) operator(()ident(right)operator(\)) ident(right)operator(.)ident(postOrder)operator(()operator(\)) - ident(print) ident(value) operator(+) string<delimiter(')content( )delimiter(')> - operator(}) - - comment(// find out whether provided value is in the tree.) - comment(// if so, return the node at which the value was found.) - comment(// cut down search time by only looking in the correct) - comment(// branch, based on current value.) - keyword(def) method(search)operator(()ident(val)operator(\)) operator({) - keyword(if) operator(()ident(val) operator(==) ident(value)operator(\)) operator({) - keyword(return) local_variable(this)operator(.)ident(dump)operator(()operator(\)) - operator(}) keyword(else) keyword(if) operator(()ident(val) operator(<) ident(value)operator(\)) operator({) - keyword(return) ident(left) operator(?) ident(left)operator(.)ident(search)operator(()ident(val)operator(\)) operator(:) pre_constant(null) - operator(}) keyword(else) operator({) - keyword(return) ident(right) operator(?) ident(right)operator(.)ident(search)operator(()ident(val)operator(\)) operator(:) pre_constant(null) - operator(}) - operator(}) -operator(}) - -comment(// first generate 20 random inserts) -ident(test) operator(=) keyword(new) ident(BinaryTree)operator(()integer(500)operator(\)) -ident(rand) operator(=) keyword(new) pre_type(Random)operator(()operator(\)) -integer(20)operator(.)ident(times)operator({) - ident(test)operator(.)ident(insert)operator(()ident(rand)operator(.)ident(nextInt)operator(()integer(1000)operator(\))operator(\)) -operator(}) - -comment(// now dump out the tree all three ways) -ident(print) string<delimiter(")content(Pre order: )delimiter(")>operator(;) ident(test)operator(.)ident(preOrder)operator(()operator(\))operator(;) ident(println) string<delimiter(")delimiter(")> -ident(print) string<delimiter(")content(In order: )delimiter(")>operator(;) ident(test)operator(.)ident(inOrder)operator(()operator(\))operator(;) ident(println) string<delimiter(")delimiter(")> -ident(print) string<delimiter(")content(Post order: )delimiter(")>operator(;) ident(test)operator(.)ident(postOrder)operator(()operator(\))operator(;) ident(println) string<delimiter(")delimiter(")> - -ident(println) string<delimiter(")char(\\n)content(Search?)delimiter(")> -keyword(while) operator(()operator(()ident(item) operator(=) pre_type(System)operator(.)ident(in)operator(.)ident(readLine)operator(()operator(\))operator(?)operator(.)ident(trim)operator(()operator(\))operator(\)) operator(!=) pre_constant(null)operator(\)) operator({) - ident(println) ident(test)operator(.)ident(search)operator(()ident(item)operator(.)ident(toInteger)operator(()operator(\))operator(\)) - ident(println) string<delimiter(")char(\\n)content(Search?)delimiter(")> -operator(}) -comment(// Randomly produces a tree such as:) -comment(// -------- 500 ------) -comment(// / \\ -// 181 847) -comment(// / \\ / \\ -// 3 204 814 970) -comment(// \\ / \\ /) -comment(// 126 196 414 800) -comment(// / \\ /) -comment(// 353 438 621) -comment(// / / \\ -// 423 604 776) -comment(// / /) -comment(// 517 765) -comment(// /) -comment(// 646) -comment(// /) -comment(// 630) -comment(// Pre order:) -comment(// 500 181 3 126 204 196 414 353 438 423 847 814 800 621 604 517 776 765 646 630 970) -comment(// In order:) -comment(// 3 126 181 196 204 353 414 423 438 500 517 604 621 630 646 765 776 800 814 847 970) -comment(// Post order:) -comment(// 126 3 196 353 423 438 414 204 181 517 604 630 646 765 776 621 800 814 970 847 500) -comment(//) -comment(// Search?) -comment(// 125) -comment(// null) -comment(//) -comment(// Search?) -comment(// 126) -comment(// <BinaryTree@ae97c4 value=126 left=null right=null>) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_12.0) -comment(//----------------------------------------------------------------------------------) -comment(// Groovy adopts many of the Java structuring conventions and terminology) -comment(// and adds some concepts of its own.) -comment(// Code-reuse can occur at the script, class, library, component or framework level.) -comment(// Source code including class file source and scripts are organised into packages.) -comment(// These can be thought of as like hierarchical folders or directories. Two class) -comment(// with the same name can be distinguished by having different packages. Compiled) -comment(// byte code and sometimes source code including scripts can be packaged up into) -comment(// jar files. Various conventions exist for packaging classes and resources in) -comment(// such a way to allow them to be easily reused. Some of these conventions allow) -comment(// reusable code to be placed within repositories for easy use by third parties.) -comment(// One such repository is the maven repository, e.g.: ibiblio.org/maven2) -comment(// When reusing classes, it is possible to compartmentalise knowledge of) -comment(// particular packages using multiple (potentially hierarchical\) classloaders.) -comment(// By convention, package names are all lowercase. Class names are capitalized.) -comment(// Naming examples:) -comment(// package my.package1.name // at most one per source file - at top of file) -comment(// class MyClass ... // actually defines my.package1.name.MyClass) -comment(// import my.package1.name.MyClass // allows package to be dropped within current file) -comment(// import my.package2.name.MyClass // if class basenames are the same, can't) -comment(// // import both, leave one fully qualified) -comment(// import my.package.name.* // all classes in package can drop package prefix) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_12.1) -comment(//----------------------------------------------------------------------------------) -comment(// No equivalent export process exists for Groovy.) - -comment(// If you have some Groovy functionality that you would like others to use) -comment(// you either make the source code available or compile it into class files) -comment(// and package those up in a jar file. Some subset of your class files will) -comment(// define the OO interface to your functionality, e.g. public methods,) -comment(// interfaces, etc. Depending on the circumstances, various conventions are) -comment(// used to indicate this functionality including Manifest files, javadocs,) -comment(// deployment descriptors, project metadata and dependency management files.) -comment(// See 12.18 for an example.) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_12.2) -comment(//----------------------------------------------------------------------------------) -comment(// Groovy supports both static and dynamic (strong\) typing. When trying to) -comment(// compile or run files using static typing, the required classes referenced) -comment(// must be available. Classes used in more dynamic ways may be loaded (or) -comment(// created\) at runtime. Errors in loading such dynamic cases are handled) -comment(// using the normal exception handling mechanisms.) - -comment(// attempt to load an unknown resource or script:) -keyword(try) operator({) - ident(evaluate)operator(()keyword(new) pre_type(File)operator(()string<delimiter(')content(doesnotexist.groovy)delimiter(')>operator(\))operator(\)) -operator(}) keyword(catch) operator(()exception(Exception) exception(FileNotFoundException)operator(\)) operator({) - ident(println) string<delimiter(')content(File not found, skipping ...)delimiter(')> -operator(}) -comment(// => File not found, skipping ...) - -comment(// attempt to load an unknown class:) -keyword(try) operator({) - pre_type(Class)operator(.)ident(forName)operator(()string<delimiter(')content(org.happytimes.LottoNumberGenerator)delimiter(')>operator(\)) -operator(}) keyword(catch) operator(()exception(ClassNotFoundException) ident(ex)operator(\)) operator({) - ident(println) string<delimiter(')content(Class not found, skipping ...)delimiter(')> -operator(}) -comment(// -> Class not found, skipping ...) - -comment(// dynamicallly look for a database driver (slight variation to original cookbook\)) -comment(// Note: this hypothetical example ignores certain issues e.g. different url) -comment(// formats for configuration when establishing a connection with the driver) -ident(candidates) operator(=) operator([) - string<delimiter(')content(oracle.jdbc.OracleDriver)delimiter(')>operator(,) - string<delimiter(')content(com.ibm.db2.jcc.DB2Driver)delimiter(')>operator(,) - string<delimiter(')content(com.microsoft.jdbc.sqlserver.SQLServerDriver)delimiter(')>operator(,) - string<delimiter(')content(net.sourceforge.jtds.jdbc.Driver)delimiter(')>operator(,) - string<delimiter(')content(com.sybase.jdbc3.jdbc.SybDriver)delimiter(')>operator(,) - string<delimiter(')content(com.informix.jdbc.IfxDriver)delimiter(')>operator(,) - string<delimiter(')content(com.mysql.jdbc.Driver)delimiter(')>operator(,) - string<delimiter(')content(org.postgresql.Driver)delimiter(')>operator(,) - string<delimiter(')content(com.sap.dbtech.jdbc.DriverSapDB)delimiter(')>operator(,) - string<delimiter(')content(org.hsqldb.jdbcDriver)delimiter(')>operator(,) - string<delimiter(')content(com.pointbase.jdbc.jdbcUniversalDriver)delimiter(')>operator(,) - string<delimiter(')content(org.apache.derby.jdbc.ClientDriver)delimiter(')>operator(,) - string<delimiter(')content(com.mckoi.JDBCDriver)delimiter(')>operator(,) - string<delimiter(')content(org.firebirdsql.jdbc.FBDriver)delimiter(')>operator(,) - string<delimiter(')content(sun.jdbc.odbc.JdbcOdbcDriver)delimiter(')> -operator(]) -ident(loaded) operator(=) pre_constant(null) -keyword(for) operator(()ident(driver) keyword(in) ident(candidates)operator(\)) operator({) - keyword(try) operator({) - ident(loaded) operator(=) pre_type(Class)operator(.)ident(forName)operator(()ident(driver)operator(\))operator(.)ident(newInstance)operator(()operator(\)) - keyword(break) - operator(}) keyword(catch) operator(()exception(Exception) ident(ex)operator(\)) operator({) comment(/* ignore */) operator(}) -operator(}) -ident(println) ident(loaded)operator(?)operator(.)ident(class)operator(?)operator(.)ident(name) comment(// => sun.jdbc.odbc.JdbcOdbcDriver) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_12.3) -comment(//----------------------------------------------------------------------------------) -comment(// In Groovy (like Java\), any static reference to an external class within) -comment(// your class will cause the external class to be loaded from the classpath.) -comment(// You can dynamically add to the classpath using:) -comment(// this.class.rootLoader.addURL(url\)) -comment(// To delay loading of external classes, use Class.forName(\) or evaluate(\)) -comment(// the script separately as shown in 12.2.) - -comment(// For the specific case of initialization code, here is another example:) -comment(// (The code within the anonymous { ... } block is called whenever the) -comment(// class is loaded.\)) -type(class) class(DbHelper) operator({) - keyword(def) method(driver) - operator({) - keyword(if) operator(()pre_type(System)operator(.)ident(properties)operator(.)string<delimiter(')content(driver)delimiter(')> operator(==) string<delimiter(')content(oracle)delimiter(')>operator(\)) - ident(driver) operator(=) pre_type(Class)operator(.)ident(forName)operator(()string<delimiter(')content(oracle.jdbc.OracleDriver)delimiter(')>operator(\)) - keyword(else) - ident(driver) operator(=) pre_type(Class)operator(.)ident(forName)operator(()string<delimiter(')content(sun.jdbc.odbc.JdbcOdbcDriver)delimiter(')>operator(\)) - operator(}) -operator(}) -ident(println) keyword(new) ident(DbHelper)operator(()operator(\))operator(.)ident(driver)operator(.)ident(name) comment(// => sun.jdbc.odbc.JdbcOdbcDriver) -comment(// call program with -Ddriver=oracle to swap to other driver) - -comment(// A slightly related feature: If you want to load a script (typically in a) -comment(// server environment\) whenever the source file changes, use GroovyScriptEngine(\)) -comment(// instead of GroovyShell(\) when embedding groovy.) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_12.4) -comment(//----------------------------------------------------------------------------------) -comment(// class variables are private unless access functions are defined) -type(class) class(Alpha) operator({) - keyword(def) ident(x) operator(=) integer(10) - directive(private) ident(y) operator(=) integer(12) -operator(}) - -ident(println) keyword(new) ident(Alpha)operator(()operator(\))operator(.)ident(x) comment(// => 10) -ident(println) keyword(new) ident(Alpha)operator(()operator(\))operator(.)ident(y) comment(// => 12 when referenced inside source file, error outside) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_12.5) -comment(//----------------------------------------------------------------------------------) -comment(// You can examine the stacktrace to determine the calling class: see 10.4) -comment(// When executing a script from a groovy source file, you can either:) -ident(println) ident(getClass)operator(()operator(\))operator(.)ident(classLoader)operator(.)ident(resourceLoader)operator(.)ident(loadGroovySource)operator(()ident(getClass)operator(()operator(\))operator(.)ident(name)operator(\)) -comment(// => file:/C:/Projects/GroovyExamples/Pleac/classes/pleac12.groovy) -comment(// or for the initially started script when started using the standard .bat/.sh files) -ident(println) pre_type(System)operator(.)ident(properties)operator(.)string<delimiter(')content(script.name)delimiter(')> -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_12.6) -comment(//----------------------------------------------------------------------------------) -comment(// For code which executes at class startup, see the initialization code block) -comment(// mechanism mentioned in 12.3. For code which should execute during shutdown) -comment(// see the finalize(\) method discussed (including limitations\) in 13.2.) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_12.7) -comment(//----------------------------------------------------------------------------------) -comment(// Each JVM process may have its own classpath (and indeed its own version of Java) -comment(// runtime and libraries\). You "simply" supply a classpath pointing to different) -comment(// locations to obtain different modules.) -comment(// Groovy augments the JVM behaviour by allowing individuals to have a ~/.groovy/lib) -comment(// directory with additional libraries (and potentially other resources\).) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_12.8) -comment(//----------------------------------------------------------------------------------) -comment(// To make your code available to others could involve any of the following:) -comment(// (1\) make your source code available) -comment(// (2\) if you are creating a standard class, use the jar tool to package the) -comment(// compiled code into a jar - this is then added to the classpath to use) -comment(// (3\) if the jar relies on additional jars, this is sometimes specified in) -comment(// a special manifest file within the jar) -comment(// (4\) if the code is designed to run within a container environment, there) -comment(// might be additional packaging, e.g. servlets might be packaged in a war) -comment(// file - essentially a jar file with extra metadata in xml format.) -comment(// (5\) you might also supply your package to a well known repository such as the) -comment(// maven repository - and you will add dependency information in xml format) -comment(// (6\) you may use platform specific installers to produce easily installable) -comment(// components (e.g. windows .exe files or linux rpm's\)) -comment(// (7\) you may spackage up your components as a plugin (e.g. as an eclipse plugin\)) -comment(// this is also typically in jar/zip like format with additional metadata) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_12.9) -comment(//----------------------------------------------------------------------------------) -comment(// Groovy has no SelfLoader. Class loading can be delayed using external scripts) -comment(// and by using the Class.forName(\) approach discussed in 12.2/12.3. If you have) -comment(// critical performance issues, you can use these techniques and keep your class) -comment(// size small to maximise the ability to defer loading. There are other kinds of) -comment(// performance tradeoffs you can make too. Alot of work has been done with JIT) -comment(// (just in time\) compilers for bytecode. You can pre-compile Groovy source files) -comment(// into bytecode using the groovy compiler (groovyc\). You can also do this on) -comment(// the fly for scripts you know you are going to need shortly.) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_12.10) -comment(//----------------------------------------------------------------------------------) -comment(// Groovy has no AutoLoader. See the discussion in 12.9 for some techniques to) -comment(// impact program performance. There are many techniques available to speed up) -comment(// program performance (and in particular load speed\). Some of these utilise) -comment(// techniques similar in nature to the technique used by the AutoLoader.) -comment(// As already mentioned, when you load a class into the JVM, any statically) -comment(// referenced class is also loaded. If you reference interfaces rather than) -comment(// concrete implementations, only the interface need be loaded. If you must) -comment(// reference a concrete implementation you can use either a Proxy class or) -comment(// classloader tricks to delay the loading of a full class (e.g. you supply a) -comment(// Proxy class with just one method implemented or a lazy-loading Proxy which) -comment(// loads the real class only when absolutely required\)) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_12.11) -comment(//----------------------------------------------------------------------------------) -comment(// You can use Categories to override Groovy and Java base functionality.) -ident(println) keyword(new) pre_type(Date)operator(()operator(\))operator(.)ident(time) comment(// => 1169019557140) - -type(class) class(DateCategory) operator({) comment(// the class name by convention ends with category) - comment(// we can add new functionality) - directive(static) type(float) ident(getFloatTime)operator(()pre_type(Date) ident(self)operator(\)) operator({) - keyword(return) operator(()type(float)operator(\)) ident(self)operator(.)ident(getTime)operator(()operator(\)) - operator(}) - comment(// we can override existing functionality (now seconds since 1970 not millis\)) - directive(static) type(long) ident(asSeconds)operator(()pre_type(Date) ident(self)operator(\)) operator({) - keyword(return) operator(()type(long)operator(\)) operator(()ident(self)operator(.)ident(getTime)operator(()operator(\))operator(/)integer(1000)operator(\)) - operator(}) -operator(}) - -ident(use) operator(()ident(DateCategory)operator(\)) operator({) - ident(println) keyword(new) pre_type(Date)operator(()operator(\))operator(.)ident(floatTime) comment(// => 1.1690195E12) - ident(println) keyword(new) pre_type(Date)operator(()operator(\))operator(.)ident(asSeconds)operator(()operator(\)) comment(// => 1169019557) -operator(}) - -comment(// We can also use the 'as' keyword) -type(class) class(MathLib) operator({) - keyword(def) method(triple)operator(()ident(n)operator(\)) operator({) ident(n) operator(*) integer(4) operator(}) - keyword(def) method(twice)operator(()ident(n)operator(\)) operator({) ident(n) operator(*) integer(2) operator(}) -operator(}) -keyword(def) ident(m) operator(=) keyword(new) ident(MathLib)operator(()operator(\)) -ident(println) ident(m)operator(.)ident(twice)operator(()integer(10)operator(\)) comment(// => 20) -ident(println) ident(m)operator(.)ident(triple)operator(()integer(10)operator(\)) comment(// => 40 (Intentional Bug!\)) -comment(// we might want to make use of some funtionality in the math) -comment(// library but want to later some of its features slightly or fix) -comment(// some bugs, we can simply import the original using a different name) -keyword(import) include(MathLib) keyword(as) class(BuggyMathLib) -comment(// now we could define our own MathLib which extended or had a delegate) -comment(// of the BuggyMathLib class) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_12.12) -comment(//----------------------------------------------------------------------------------) -comment(// Many Java and Groovy programs emit a stacktrace when an error occurs.) -comment(// This shows both the calling and called programs (with line numbers if) -comment(// supplied\). Groovy pretties up stacktraces to show less noise. You can use -d) -comment(// or --debug on the commandline to force it to always produce full stacktraces.) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_12.13) -comment(//----------------------------------------------------------------------------------) -comment(// already have log10, how to create log11 to log100) -operator(()integer(11)operator(..)integer(100)operator(\))operator(.)ident(each) operator({) type(int) ident(base) operator(->) - ident(binding)operator(.)string<delimiter(")content(log)inline<inline_delimiter($)ident(base)>delimiter(")> operator(=) operator({) type(int) ident(n) operator(->) pre_type(Math)operator(.)ident(log)operator(()ident(n)operator(\)) operator(/) pre_type(Math)operator(.)ident(log)operator(()ident(base)operator(\)) operator(}) -operator(}) -ident(println) ident(log20)operator(()integer(400)operator(\)) comment(// => 2.0) -ident(println) ident(log100)operator(()integer(1000000)operator(\)) comment(// => 3.0 (displays 2.9999999999999996 using doubles\)) - -comment(// same thing again use currying) -keyword(def) ident(logAnyBase) operator(=) operator({) ident(base)operator(,) ident(n) operator(->) pre_type(Math)operator(.)ident(log)operator(()ident(n)operator(\)) operator(/) pre_type(Math)operator(.)ident(log)operator(()ident(base)operator(\)) operator(}) -operator(()integer(11)operator(..)integer(100)operator(\))operator(.)ident(each) operator({) type(int) ident(base) operator(->) - ident(binding)operator(.)string<delimiter(")content(log)inline<inline_delimiter($)ident(base)>delimiter(")> operator(=) ident(logAnyBase)operator(.)ident(curry)operator(()ident(base)operator(\)) -operator(}) -ident(println) ident(log20)operator(()integer(400)operator(\)) comment(// => 2.0) -ident(println) ident(log100)operator(()integer(1000000)operator(\)) comment(// => 3.0 (displays 2.9999999999999996 using doubles\)) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_12.14) -comment(//----------------------------------------------------------------------------------) -comment(// Groovy intefaces with C in the same way as Java: using JNI) -comment(// For this discussion we will ignoring platform specific options and CORBA.) -comment(// This tutorial here describes how to allow Java (and hence Groovy\) to) -comment(// call a C program which generates UUIDs:) -comment(// http://ringlord.com/publications/jni-howto/) -comment(// Here's another useful reference:) -comment(// http://weblogs.java.net/blog/kellyohair/archive/2006/01/compilation_of_1.html) -comment(// And of course, Sun's tutorial:) -comment(// http://java.sun.com/developer/onlineTraining/Programming/JDCBook/jni.html) - -comment(// You might also want to consider SWIG which simplifies connecting) -comment(// C/C++ to many scripting languages including Java (and hence Groovy\)) -comment(// More details: http://www.swig.org/) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_12.15) -comment(//----------------------------------------------------------------------------------) -comment(// See discussion for 12.14) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_12.16) -comment(//----------------------------------------------------------------------------------) -comment(// The standard documentation system for Java is JavaDoc.) -comment(// Documentation for JavaDoc is part of a Java installation.) -comment(// Groovy has a GroovyDoc tool planned which expands upon the JavaDoc tool) -comment(// but work on the tool hasn't progressed much as yet.) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_12.17) -comment(//----------------------------------------------------------------------------------) -comment(// Most libraries for Java (and hence Groovy\) come precompiled. You simply download) -comment(// the jar and place it somewhere on your CLASSPATH.) - -comment(// If only source code is available, you need to download the source and follow any) -comment(// instuctions which came with the source. Most projects use one of a handful of) -comment(// build tools to compile, test and package their artifacts. Typical ones are Ant) -comment(// and Maven which you need to install according to their respective instructions.) - -comment(// If using Ant, you need to unpack the source files then type 'ant'.) - -comment(// If using Maven, you need to unpack the source files then type 'maven'.) - -comment(// If you are using Maven or Ivy for dependency management you can add) -comment(// the following lines to your project description file.) -comment(/* - <dependency> - <groupId>commons-collections</groupId> - <artifactId>commons-collections</artifactId> - <version>3.2</version> - </dependency> -*/) -comment(// This will automatically download the particular version of the referenced) -comment(// library file and also provide hooks so that you can make this automatically) -comment(// available in your classpath.) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_12.18) -comment(//----------------------------------------------------------------------------------) -comment(// example groovy file for a "module") -keyword(import) include(org.apache.commons.lang.WordUtils) - -type(class) class(Greeter) operator({) - keyword(def) ident(name) - ident(Greeter)operator(()ident(who)operator(\)) operator({) ident(name) operator(=) ident(WordUtils)operator(.)ident(capitalize)operator(()ident(who)operator(\)) operator(}) - keyword(def) method(salute)operator(()operator(\)) operator({) string<delimiter(")content(Hello )inline<inline_delimiter($)ident(name)>content(!)delimiter(")> operator(}) -operator(}) - -comment(// test class) -type(class) class(GreeterTest) directive(extends) ident(GroovyTestCase) operator({) - keyword(def) method(testGreeting)operator(()operator(\)) operator({) - keyword(assert) keyword(new) ident(Greeter)operator(()string<delimiter(')content(world)delimiter(')>operator(\))operator(.)ident(salute)operator(()operator(\)) - operator(}) -operator(}) - -comment(// Typical Ant build file (could be in Groovy instead of XML\):) -comment(/* -<?xml version="1.0"?> -<project name="sample" default="jar" basedir="."> - <property name="src" value="src"/> - <property name="build" value="build"/> - - <target name="init"> - <mkdir dir="${build}"/> - </target> - - <target name="compile" depends="init"> - <mkdir dir="${build}/classes"/> - <groovyc srcdir="${src}" destdir="${build}/classes"/> - </target> - - <target name="test" depends="compile"> - <groovy src="${src}/GreeterTest.groovy"> - </target> - - <target name="jar" depends="compile,test"> - <mkdir dir="${build}/jar"/> - <jar destfile="${build}/jar/Greeter.jar" basedir="${build}/classes"> - <manifest> - <attribute name="Main-Class" value="Greeter"/> - </manifest> - </jar> - </target> -</project> - -*/) - -comment(// Typical dependency management file) -comment(/* -<?xml version="1.0" encoding="UTF-8"?> -<project - xmlns="http://maven.apache.org/POM/4.0.0" - xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" - xsi:schemaLocation="http://maven.apache.org/POM/4.0.0 - http://maven.apache.org/maven-v4_0_0.xsd"> - <modelVersion>4.0.0</modelVersion> - <groupId>groovy</groupId> - <artifactId>module</artifactId> - <name>Greeter</name> - <version>1.0</version> - <packaging>jar</packaging> - <description>Greeter Module/description> - <dependencies> - <dependency> - <groupId>commons-lang</groupId> - <artifactId>commons-lang</artifactId> - <version>2.2</version> - </dependency> - </dependencies> -</project> -*/) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_12.19) -comment(//----------------------------------------------------------------------------------) -comment(// Searching available modules in repositories:) -comment(// You can browse the repositories online, e.g. ibiblio.org/maven2 or various) -comment(// plugins are available for IDEs which do this for you, e.g. JarJuggler for IntelliJ.) - -comment(// Searching currently "installed" modules:) -comment(// Browse your install directory, view your maven POM file, look in your ~/.groovy/lib) -comment(// directory, turn on debug modes and watch classloader messages ...) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_13.0) -comment(//----------------------------------------------------------------------------------) -comment(// Classes and objects in Groovy are rather straigthforward) -type(class) class(Person) operator({) - comment(// Class variables (also called static attributes\) are prefixed by the keyword static) - directive(static) ident(personCounter)operator(=)integer(0) - keyword(def) ident(age)operator(,) ident(name) comment(// this creates setter and getter methods) - directive(private) ident(alive) - - comment(// object constructor) - ident(Person)operator(()ident(age)operator(,) ident(name)operator(,) ident(alive) operator(=) pre_constant(true)operator(\)) operator({) comment(// Default arg like in C++) - local_variable(this)operator(.)ident(age) operator(=) ident(age) - local_variable(this)operator(.)ident(name) operator(=) ident(name) - local_variable(this)operator(.)ident(alive) operator(=) ident(alive) - ident(personCounter) operator(+=) integer(1) - comment(// There is a '++' operator in Groovy but using += is often clearer.) - operator(}) - - keyword(def) method(die)operator(()operator(\)) operator({) - ident(alive) operator(=) pre_constant(false) - ident(println) string<delimiter(")inline<inline_delimiter($)ident(name)>content( has died at the age of )inline<inline_delimiter($)ident(age)>content(.)delimiter(")> - ident(alive) - operator(}) - - keyword(def) method(kill)operator(()ident(anotherPerson)operator(\)) operator({) - ident(println) string<delimiter(")inline<inline_delimiter($)ident(name)>content( is killing )inline<inline_delimiter($)ident(anotherPerson)>content(.name.)delimiter(")> - ident(anotherPerson)operator(.)ident(die)operator(()operator(\)) - operator(}) - - comment(// methods used as queries generally start with is, are, will or can) - comment(// usually have the '?' suffix) - keyword(def) method(isStillAlive)operator(()operator(\)) operator({) - ident(alive) - operator(}) - - keyword(def) method(getYearOfBirth)operator(()operator(\)) operator({) - keyword(new) pre_type(Date)operator(()operator(\))operator(.)ident(year) operator(-) ident(age) - operator(}) - - comment(// Class method (also called static method\)) - directive(static) ident(getNumberOfPeople)operator(()operator(\)) operator({) comment(// accessors often start with get) - comment(// in which case you can call it like) - comment(// it was a field (without the get\)) - ident(personCounter) - operator(}) -operator(}) - -comment(// Using the class:) -comment(// Create objects of class Person) -ident(lecter) operator(=) keyword(new) ident(Person)operator(()integer(47)operator(,) string<delimiter(')content(Hannibal)delimiter(')>operator(\)) -ident(starling) operator(=) keyword(new) ident(Person)operator(()integer(29)operator(,) string<delimiter(')content(Clarice)delimiter(')>operator(,) pre_constant(true)operator(\)) -ident(pazzi) operator(=) keyword(new) ident(Person)operator(()integer(40)operator(,) string<delimiter(')content(Rinaldo)delimiter(')>operator(,) pre_constant(true)operator(\)) - -comment(// Calling a class method) -ident(println) string<delimiter(")content(There are )inline<inline_delimiter($)ident(Person)>content(.numberOfPeople Person objects.)delimiter(")> - -ident(println) string<delimiter(")inline<inline_delimiter($)ident(pazzi)>content(.name is )inline<inline_delimiter(${)ident(pazzi)operator(.)ident(alive) operator(?) string<delimiter(')content(alive)delimiter(')> operator(:) string<delimiter(')content(dead)delimiter(')>inline_delimiter(})>content(.)delimiter(")> -ident(lecter)operator(.)ident(kill)operator(()ident(pazzi)operator(\)) -ident(println) string<delimiter(")inline<inline_delimiter($)ident(pazzi)>content(.name is )inline<inline_delimiter(${)ident(pazzi)operator(.)ident(isStillAlive)operator(()operator(\)) operator(?) string<delimiter(')content(alive)delimiter(')> operator(:) string<delimiter(')content(dead)delimiter(')>inline_delimiter(})>content(.)delimiter(")> - -ident(println) string<delimiter(")inline<inline_delimiter($)ident(starling)>content(.name was born in )inline<inline_delimiter($)ident(starling)>content(.yearOfBirth.)delimiter(")> -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_13.1) -comment(//----------------------------------------------------------------------------------) -comment(// Classes may have no constructor.) -type(class) class(MyClass) operator({) operator(}) - -ident(aValidButNotVeryUsefulObject) operator(=) keyword(new) ident(MyClass)operator(()operator(\)) - -comment(// If no explicit constructor is given a default implicit) -comment(// one which supports named parameters is provided.) -type(class) class(MyClass2) operator({) - keyword(def) ident(start) operator(=) keyword(new) pre_type(Date)operator(()operator(\)) - keyword(def) ident(age) operator(=) integer(0) -operator(}) -ident(println) keyword(new) ident(MyClass2)operator(()key(age)operator(:)integer(4)operator(\))operator(.)ident(age) comment(// => 4) - -comment(// One or more explicit constructors may also be provided) -type(class) class(MyClass3) operator({) - keyword(def) ident(start) - keyword(def) ident(age) - ident(MyClass3)operator(()ident(date)operator(,) ident(age)operator(\)) operator({) - ident(start) operator(=) ident(date) - local_variable(this)operator(.)ident(age) operator(=) ident(age) - operator(}) -operator(}) -ident(println) keyword(new) ident(MyClass3)operator(()keyword(new) pre_type(Date)operator(()operator(\))operator(,) integer(20)operator(\))operator(.)ident(age) comment(// => 20) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_13.2) -comment(//----------------------------------------------------------------------------------) -comment(// Objects are destroyed by the JVM garbage collector.) -comment(// The time of destroying is not predicated but left up to the JVM.) -comment(// There is no direct support for destructor. There is a courtesy) -comment(// method called finalize(\) which the JVM may call when disposing) -comment(// an object. If you need to free resources for an object, like) -comment(// closing a socket or killing a spawned subprocess, you should do) -comment(// it explicitly - perhaps by supporting your own lifecycle methods) -comment(// on your class, e.g. close(\).) - -type(class) class(MyClass4)operator({) - type(void) ident(finalize)operator(()operator(\)) operator({) - ident(println) string<delimiter(")content(Object [internal id=)inline<inline_delimiter(${)ident(hashCode)operator(()operator(\))inline_delimiter(})>content(] is dying at )inline<inline_delimiter(${)keyword(new) pre_type(Date)operator(()operator(\))inline_delimiter(})>delimiter(")> - operator(}) -operator(}) - -comment(// test code) -integer(50)operator(.)ident(times) operator({) - keyword(new) ident(MyClass4)operator(()operator(\)) -operator(}) -integer(20)operator(.)ident(times) operator({) - pre_type(System)operator(.)ident(gc)operator(()operator(\)) -operator(}) -comment(// => (between 0 and 50 lines similar to below\)) -comment(// Object [internal id=10884088] is dying at Wed Jan 10 16:33:33 EST 2007) -comment(// Object [internal id=6131844] is dying at Wed Jan 10 16:33:33 EST 2007) -comment(// Object [internal id=12245160] is dying at Wed Jan 10 16:33:33 EST 2007) -comment(// ...) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_13.3) -comment(//----------------------------------------------------------------------------------) -comment(// You can write getter and setter methods explicitly as shown below.) -comment(// One convention is to use set and get at the start of method names.) -type(class) class(Person2) operator({) - directive(private) ident(name) - keyword(def) method(getName)operator(()operator(\)) operator({) ident(name) operator(}) - keyword(def) method(setName)operator(()ident(name)operator(\)) operator({) local_variable(this)operator(.)ident(name) operator(=) ident(name) operator(}) -operator(}) - -comment(// You can also just use def which auto defines default getters and setters.) -type(class) class(Person3) operator({) - keyword(def) ident(age)operator(,) ident(name) -operator(}) - -comment(// Any variables marked as final will only have a default getter.) -comment(// You can also write an explicit getter. For a write-only variable) -comment(// just write only a setter.) -type(class) class(Person4) operator({) - directive(final) ident(age) comment(// getter only) - keyword(def) ident(name) comment(// getter and setter) - directive(private) ident(color) comment(// private) - keyword(def) method(setColor)operator(()operator(\)) operator({) local_variable(this)operator(.)ident(color) operator(=) ident(color) operator(}) comment(// setter only) -operator(}) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_13.4) -comment(//----------------------------------------------------------------------------------) -type(class) class(Person5) operator({) - comment(// Class variables (also called static attributes\) are prefixed by the keyword static) - directive(static) ident(personCounter) operator(=) integer(0) - - directive(static) ident(getPopulation)operator(()operator(\)) operator({) - ident(personCounter) - operator(}) - ident(Person5)operator(()operator(\)) operator({) - ident(personCounter) operator(+=) integer(1) - operator(}) - type(void) ident(finalize)operator(()operator(\)) operator({) - ident(personCounter) operator(-=) integer(1) - operator(}) -operator(}) -ident(people) operator(=) type([]) -integer(10)operator(.)ident(times) operator({) - ident(people) operator(+=) keyword(new) ident(Person5)operator(()operator(\)) -operator(}) -ident(println) string<delimiter(")content(There are )inline<inline_delimiter(${)ident(Person5)operator(.)ident(population)inline_delimiter(})>content( people alive)delimiter(")> -comment(// => There are 10 people alive) - -ident(alpha) operator(=) keyword(new) ident(FixedArray)operator(()operator(\)) -ident(println) string<delimiter(")content(Bound on alpha is )inline<inline_delimiter($)ident(alpha)>content(.maxBounds)delimiter(")> - -ident(beta) operator(=) keyword(new) ident(FixedArray)operator(()operator(\)) -ident(beta)operator(.)ident(maxBounds) operator(=) integer(50) -ident(println) string<delimiter(")content(Bound on alpha is )inline<inline_delimiter($)ident(alpha)>content(.maxBounds)delimiter(")> - -type(class) class(FixedArray) operator({) - directive(static) ident(maxBounds) operator(=) integer(100) - - keyword(def) method(getMaxBounds)operator(()operator(\)) operator({) - ident(maxBounds) - operator(}) - keyword(def) method(setMaxBounds)operator(()ident(value)operator(\)) operator({) - ident(maxBounds) operator(=) ident(value) - operator(}) -operator(}) -comment(// =>) -comment(// Bound on alpha is 100) -comment(// Bound on alpha is 50) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_13.5) -comment(//----------------------------------------------------------------------------------) -comment(// The fields of this struct-like class are dynamically typed) -type(class) class(DynamicPerson) operator({) keyword(def) ident(name)operator(,) ident(age)operator(,) ident(peers) operator(}) -ident(p) operator(=) keyword(new) ident(DynamicPerson)operator(()operator(\)) -ident(p)operator(.)ident(name) operator(=) string<delimiter(")content(Jason Smythe)delimiter(")> -ident(p)operator(.)ident(age) operator(=) integer(13) -ident(p)operator(.)ident(peers) operator(=) operator([)string<delimiter(")content(Wilbur)delimiter(")>operator(,) string<delimiter(")content(Ralph)delimiter(")>operator(,) string<delimiter(")content(Fred)delimiter(")>operator(]) -ident(p)operator(.)ident(setPeers)operator(()operator([)string<delimiter(")content(Wilbur)delimiter(")>operator(,) string<delimiter(")content(Ralph)delimiter(")>operator(,) string<delimiter(")content(Fred)delimiter(")>operator(])operator(\)) comment(// alternative using implicit setter) -ident(p)operator([)string<delimiter(")content(peers)delimiter(")>operator(]) operator(=) operator([)string<delimiter(")content(Wilbur)delimiter(")>operator(,) string<delimiter(")content(Ralph)delimiter(")>operator(,) string<delimiter(")content(Fred)delimiter(")>operator(]) comment(// alternative access using name of field) -ident(println) string<delimiter(")content(At age )inline<inline_delimiter($)ident(p)>content(.age, )inline<inline_delimiter($)ident(p)>content(.name's first friend is )inline<inline_delimiter(${)ident(p)operator(.)ident(peers)operator([)integer(0)operator(])inline_delimiter(})>delimiter(")> -comment(// => At age 13, Jason Smythe's first friend is Wilbur) - -comment(// The fields of this struct-like class are statically typed) -type(class) class(StaticPerson) operator({) pre_type(String) ident(name)operator(;) type(int) ident(age)operator(;) pre_type(List) ident(peers) operator(}) -ident(p) operator(=) keyword(new) ident(StaticPerson)operator(()key(name)operator(:)string<delimiter(')content(Jason)delimiter(')>operator(,) key(age)operator(:)integer(14)operator(,) key(peers)operator(:)operator([)string<delimiter(')content(Fred)delimiter(')>operator(,)string<delimiter(')content(Wilbur)delimiter(')>operator(,)string<delimiter(')content(Ralph)delimiter(')>operator(])operator(\)) -ident(println) string<delimiter(")content(At age )inline<inline_delimiter($)ident(p)>content(.age, )inline<inline_delimiter($)ident(p)>content(.name's first friend is )inline<inline_delimiter(${)ident(p)operator(.)ident(peers)operator([)integer(0)operator(])inline_delimiter(})>delimiter(")> -comment(// => At age 14, Jason's first friend is Fred) - - -type(class) class(Family) operator({) keyword(def) ident(head)operator(,) ident(address)operator(,) ident(members) operator(}) -ident(folks) operator(=) keyword(new) ident(Family)operator(()key(head)operator(:)keyword(new) ident(DynamicPerson)operator(()key(name)operator(:)string<delimiter(')content(John)delimiter(')>operator(,)key(age)operator(:)integer(34)operator(\))operator(\)) - -comment(// supply of own accessor method for the struct for error checking) -type(class) class(ValidatingPerson) operator({) - directive(private) ident(age) - keyword(def) method(printAge)operator(()operator(\)) operator({) ident(println) string<delimiter(')content(Age=)delimiter(')> operator(+) ident(age) operator(}) - keyword(def) method(setAge)operator(()ident(value)operator(\)) operator({) - keyword(if) operator(()operator(!)operator(()ident(value) keyword(instanceof) pre_type(Integer)operator(\))operator(\)) - keyword(throw) keyword(new) exception(IllegalArgumentException)operator(()string<delimiter(")content(Argument ')inline<inline_delimiter(${)ident(value)inline_delimiter(})>content(' isn't an Integer)delimiter(")>operator(\)) - keyword(if) operator(()ident(value) operator(>) integer(150)operator(\)) - keyword(throw) keyword(new) exception(IllegalArgumentException)operator(()string<delimiter(")content(Age )inline<inline_delimiter(${)ident(value)inline_delimiter(})>content( is unreasonable)delimiter(")>operator(\)) - ident(age) operator(=) ident(value) - operator(}) -operator(}) - -comment(// test ValidatingPerson) -keyword(def) method(tryCreate)operator(()ident(arg)operator(\)) operator({) - keyword(try) operator({) - keyword(new) ident(ValidatingPerson)operator(()key(age)operator(:)ident(arg)operator(\))operator(.)ident(printAge)operator(()operator(\)) - operator(}) keyword(catch) operator(()exception(Exception) ident(ex)operator(\)) operator({) - ident(println) ident(ex)operator(.)ident(message) - operator(}) -operator(}) - -ident(tryCreate)operator(()integer(20)operator(\)) -ident(tryCreate)operator(()string<delimiter(')content(Youngish)delimiter(')>operator(\)) -ident(tryCreate)operator(()integer(200)operator(\)) -comment(// =>) -comment(// Age=20) -comment(// Argument 'Youngish' isn't an Integer) -comment(// Age 200 is unreasonable) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_13.6) -comment(//----------------------------------------------------------------------------------) -comment(// Groovy objects are (loosely speaking\) extended Java objects.) -comment(// Java's Object class provides a clone(\) method. The conventions of) -comment(// clone(\) are that if I say a = b.clone(\) then a and b should be) -comment(// different objects with the same type and value. Java doesn't) -comment(// enforce a class to implement a clone(\) method at all let alone) -comment(// require that one has to meet these conventions. Classes which) -comment(// do support clone(\) should implement the Cloneable interface and) -comment(// implement an equals(\) method.) -comment(// Groovy follows Java's conventions for clone(\).) - -type(class) class(A) directive(implements) pre_type(Cloneable) operator({) - keyword(def) ident(name) - type(boolean) ident(equals)operator(()pre_type(Object) ident(other)operator(\)) operator({) - ident(other) keyword(instanceof) ident(A) operator(&&) local_variable(this)operator(.)ident(name) operator(==) ident(other)operator(.)ident(name) - operator(}) -operator(}) -ident(ob1) operator(=) keyword(new) ident(A)operator(()key(name)operator(:)string<delimiter(')content(My named thing)delimiter(')>operator(\)) - -ident(ob2) operator(=) ident(ob1)operator(.)ident(clone)operator(()operator(\)) -keyword(assert) operator(!)ident(ob1)operator(.)ident(is)operator(()ident(ob2)operator(\)) -keyword(assert) ident(ob1)operator(.)ident(class) operator(==) ident(ob2)operator(.)ident(class) -keyword(assert) ident(ob2)operator(.)ident(name) operator(==) ident(ob1)operator(.)ident(name) -keyword(assert) ident(ob1) operator(==) ident(ob2) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_13.7) -comment(//----------------------------------------------------------------------------------) -type(class) class(CanFlicker) operator({) - keyword(def) method(flicker)operator(()ident(arg)operator(\)) operator({) keyword(return) ident(arg) operator(*) integer(2) operator(}) -operator(}) -ident(methname) operator(=) string<delimiter(')content(flicker)delimiter(')> -keyword(assert) keyword(new) ident(CanFlicker)operator(()operator(\))operator(.)ident(invokeMethod)operator(()ident(methname)operator(,) integer(10)operator(\)) operator(==) integer(20) -keyword(assert) keyword(new) ident(CanFlicker)operator(()operator(\))operator(.)string<delimiter(")inline<inline_delimiter($)ident(methname)>delimiter(")>operator(()integer(10)operator(\)) operator(==) integer(20) - -type(class) class(NumberEcho) operator({) - keyword(def) method(one)operator(()operator(\)) operator({) integer(1) operator(}) - keyword(def) method(two)operator(()operator(\)) operator({) integer(2) operator(}) - keyword(def) method(three)operator(()operator(\)) operator({) integer(3) operator(}) -operator(}) -ident(obj) operator(=) keyword(new) ident(NumberEcho)operator(()operator(\)) -comment(// call methods on the object, by name) -keyword(assert) operator([)string<delimiter(')content(one)delimiter(')>operator(,) string<delimiter(')content(two)delimiter(')>operator(,) string<delimiter(')content(three)delimiter(')>operator(,) string<delimiter(')content(two)delimiter(')>operator(,) string<delimiter(')content(one)delimiter(')>operator(])operator(.)ident(collect)operator({) ident(obj)operator(.)string<delimiter(")inline<inline_delimiter($)local_variable(it)>delimiter(")>operator(()operator(\)) operator(})operator(.)ident(join)operator(()operator(\)) operator(==) string<delimiter(')content(12321)delimiter(')> -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_13.8) -comment(//----------------------------------------------------------------------------------) -comment(// Groovy can work with Groovy objects which inherit from a common base) -comment(// class called GroovyObject or Java objects which inherit from Object.) - -comment(// the class of the object) -keyword(assert) string<delimiter(')content(a string)delimiter(')>operator(.)ident(class) operator(==) ident(java)operator(.)ident(lang)operator(.)ident(String) - -comment(// Groovy classes are actually objects of class Class and they) -comment(// respond to methods defined in the Class class as well) -keyword(assert) string<delimiter(')content(a string)delimiter(')>operator(.)ident(class)operator(.)ident(class) operator(==) ident(java)operator(.)ident(lang)operator(.)ident(Class) -keyword(assert) operator(!)string<delimiter(')content(a string)delimiter(')>operator(.)ident(class)operator(.)ident(isArray)operator(()operator(\)) - -comment(// ask an object whether it is an instance of particular class) -ident(n) operator(=) float(4.7f) -ident(println) operator(()ident(n) keyword(instanceof) pre_type(Integer)operator(\)) comment(// false) -ident(println) operator(()ident(n) keyword(instanceof) pre_type(Float)operator(\)) comment(// true) -ident(println) operator(()ident(n) keyword(instanceof) pre_type(Double)operator(\)) comment(// false) -ident(println) operator(()ident(n) keyword(instanceof) pre_type(String)operator(\)) comment(// false) -ident(println) operator(()ident(n) keyword(instanceof) ident(StaticPerson)operator(\)) comment(// false) - -comment(// ask if a class or interface is either the same as, or is a) -comment(// superclass or superinterface of another class) -ident(println) ident(n)operator(.)ident(class)operator(.)ident(isAssignableFrom)operator(()pre_type(Float)operator(.)ident(class)operator(\)) comment(// true) -ident(println) ident(n)operator(.)ident(class)operator(.)ident(isAssignableFrom)operator(()pre_type(String)operator(.)ident(class)operator(\)) comment(// false) - -comment(// can a Groovy object respond to a particular method?) -keyword(assert) keyword(new) ident(CanFlicker)operator(()operator(\))operator(.)ident(metaClass)operator(.)ident(methods)operator(*.)ident(name)operator(.)ident(contains)operator(()string<delimiter(')content(flicker)delimiter(')>operator(\)) - -type(class) class(POGO)operator({)operator(}) -ident(println) operator(()ident(obj)operator(.)ident(metaClass)operator(.)ident(methods)operator(*.)ident(name) operator(-) keyword(new) ident(POGO)operator(()operator(\))operator(.)ident(metaClass)operator(.)ident(methods)operator(*.)ident(name)operator(\)) -comment(// => ["one", "two", "three"]) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_13.9) -comment(//----------------------------------------------------------------------------------) -comment(// Most classes in Groovy are inheritable) -type(class) class(Person6)operator({) keyword(def) ident(age)operator(,) ident(name) operator(}) -ident(dude) operator(=) keyword(new) ident(Person6)operator(()key(name)operator(:)string<delimiter(')content(Jason)delimiter(')>operator(,) key(age)operator(:)integer(23)operator(\)) -ident(println) string<delimiter(")inline<inline_delimiter($)ident(dude)>content(.name is age )inline<inline_delimiter($)ident(dude)>content(.age.)delimiter(")> - -comment(// Inheriting from Person) -type(class) class(Employee) directive(extends) ident(Person6) operator({) - keyword(def) ident(salary) -operator(}) -ident(empl) operator(=) keyword(new) ident(Employee)operator(()key(name)operator(:)string<delimiter(')content(Jason)delimiter(')>operator(,) key(age)operator(:)integer(23)operator(,) key(salary)operator(:)integer(200)operator(\)) -ident(println) string<delimiter(")inline<inline_delimiter($)ident(empl)>content(.name is age )inline<inline_delimiter($)ident(empl)>content(.age and has salary )inline<inline_delimiter($)ident(empl)>content(.salary.)delimiter(")> - -comment(// Many built-in class can be inherited the same way) -type(class) class(WierdList) directive(extends) pre_type(ArrayList) operator({) - keyword(def) method(size)operator(()operator(\)) operator({) comment(// size method in this class is overridden) - local_variable(super)operator(.)ident(size)operator(()operator(\)) operator(*) integer(2) - operator(}) -operator(}) -ident(a) operator(=) keyword(new) ident(WierdList)operator(()operator(\)) -ident(a)operator(.)ident(add)operator(()string<delimiter(')content(dog)delimiter(')>operator(\)) -ident(a)operator(.)ident(add)operator(()string<delimiter(')content(cat)delimiter(')>operator(\)) -ident(println) ident(a)operator(.)ident(size)operator(()operator(\)) comment(// => 4) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_13.10) -comment(//----------------------------------------------------------------------------------) -type(class) class(Person7) operator({) keyword(def) ident(firstname)operator(,) ident(surname)operator(;) keyword(def) method(getName)operator(()operator(\))operator({) ident(firstname) operator(+) string<delimiter(')content( )delimiter(')> operator(+) ident(surname) operator(}) operator(}) -type(class) class(Employee2) directive(extends) ident(Person7) operator({) - keyword(def) ident(employeeId) - keyword(def) method(getName)operator(()operator(\))operator({) string<delimiter(')content(Employee Number )delimiter(')> operator(+) ident(employeeId) operator(}) - keyword(def) method(getRealName)operator(()operator(\))operator({) local_variable(super)operator(.)ident(getName)operator(()operator(\)) operator(}) -operator(}) -ident(p) operator(=) keyword(new) ident(Person7)operator(()key(firstname)operator(:)string<delimiter(')content(Jason)delimiter(')>operator(,) key(surname)operator(:)string<delimiter(')content(Smythe)delimiter(')>operator(\)) -ident(println) ident(p)operator(.)ident(name) -comment(// =>) -comment(// Jason Smythe) -ident(e) operator(=) keyword(new) ident(Employee2)operator(()key(firstname)operator(:)string<delimiter(')content(Jason)delimiter(')>operator(,) key(surname)operator(:)string<delimiter(')content(Smythe)delimiter(')>operator(,) key(employeeId)operator(:)integer(12349876)operator(\)) -ident(println) ident(e)operator(.)ident(name) -ident(println) ident(e)operator(.)ident(realName) -comment(// =>) -comment(// Employee Number 12349876) -comment(// Jason Smythe) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_13.11) -comment(//----------------------------------------------------------------------------------) -comment(// Groovy's built in constructor and auto getter/setter features) - comment(// give you the required functionalty already but you could also) - comment(// override invokeMethod(\) for trickier scenarios.) -type(class) class(Person8) operator({) - keyword(def) ident(name)operator(,) ident(age)operator(,) ident(peers)operator(,) ident(parent) - keyword(def) method(newChild)operator(()ident(args)operator(\)) operator({) keyword(new) ident(Person8)operator(()key(parent)operator(:)local_variable(this)operator(,) operator(*)operator(:)ident(args)operator(\)) operator(}) -operator(}) - -ident(dad) operator(=) keyword(new) ident(Person8)operator(()key(name)operator(:)string<delimiter(')content(Jason)delimiter(')>operator(,) key(age)operator(:)integer(23)operator(\)) -ident(kid) operator(=) ident(dad)operator(.)ident(newChild)operator(()key(name)operator(:)string<delimiter(')content(Rachel)delimiter(')>operator(,) key(age)operator(:)integer(2)operator(\)) -ident(println) string<delimiter(")content(Kid's parent is )inline<inline_delimiter(${)ident(kid)operator(.)ident(parent)operator(.)ident(name)inline_delimiter(})>delimiter(")> -comment(// => Kid's parent is Jason) - -comment(// additional fields ...) -type(class) class(Employee3) directive(extends) ident(Person8) operator({) keyword(def) ident(salary)operator(,) ident(boss) operator(}) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_13.12) -comment(//----------------------------------------------------------------------------------) -comment(// Fields marked as private in Groovy can't be trampled by another class in) -comment(// the class hierarchy) -type(class) class(Parent) operator({) - directive(private) ident(name) comment(// my child's name) - keyword(def) method(setChildName)operator(()ident(value)operator(\)) operator({) ident(name) operator(=) ident(value) operator(}) - keyword(def) method(getChildName)operator(()operator(\)) operator({) ident(name) operator(}) -operator(}) -type(class) class(GrandParent) directive(extends) ident(Parent) operator({) - directive(private) ident(name) comment(// my grandchild's name) - keyword(def) method(setgrandChildName)operator(()ident(value)operator(\)) operator({) ident(name) operator(=) ident(value) operator(}) - keyword(def) method(getGrandChildName)operator(()operator(\)) operator({) ident(name) operator(}) -operator(}) -ident(g) operator(=) keyword(new) ident(GrandParent)operator(()operator(\)) -ident(g)operator(.)ident(childName) operator(=) string<delimiter(')content(Jason)delimiter(')> -ident(g)operator(.)ident(grandChildName) operator(=) string<delimiter(')content(Rachel)delimiter(')> -ident(println) ident(g)operator(.)ident(childName) comment(// => Jason) -ident(println) ident(g)operator(.)ident(grandChildName) comment(// => Rachel) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_13.13) -comment(//----------------------------------------------------------------------------------) -comment(// The JVM garbage collector copes with circular structures.) -comment(// You can test it with this code:) -type(class) class(Person9) operator({) - keyword(def) ident(friend) - type(void) ident(finalize)operator(()operator(\)) operator({) - ident(println) string<delimiter(")content(Object [internal id=)inline<inline_delimiter(${)ident(hashCode)operator(()operator(\))inline_delimiter(})>content(] is dying at )inline<inline_delimiter(${)keyword(new) pre_type(Date)operator(()operator(\))inline_delimiter(})>delimiter(")> - operator(}) -operator(}) - -keyword(def) method(makeSomeFriends)operator(()operator(\)) operator({) - keyword(def) ident(first) operator(=) keyword(new) ident(Person9)operator(()operator(\)) - keyword(def) ident(second) operator(=) keyword(new) ident(Person9)operator(()key(friend)operator(:)ident(first)operator(\)) - keyword(def) ident(third) operator(=) keyword(new) ident(Person9)operator(()key(friend)operator(:)ident(second)operator(\)) - keyword(def) ident(fourth) operator(=) keyword(new) ident(Person9)operator(()key(friend)operator(:)ident(third)operator(\)) - keyword(def) ident(fifth) operator(=) keyword(new) ident(Person9)operator(()key(friend)operator(:)ident(fourth)operator(\)) - ident(first)operator(.)ident(friend) operator(=) ident(fifth) -operator(}) - -ident(makeSomeFriends)operator(()operator(\)) -integer(100)operator(.)ident(times)operator({) - pre_type(System)operator(.)ident(gc)operator(()operator(\)) -operator(}) -comment(// =>) -comment(// Object [internal id=24478976] is dying at Tue Jan 09 22:24:31 EST 2007) -comment(// Object [internal id=32853087] is dying at Tue Jan 09 22:24:31 EST 2007) -comment(// Object [internal id=23664622] is dying at Tue Jan 09 22:24:31 EST 2007) -comment(// Object [internal id=10630672] is dying at Tue Jan 09 22:24:31 EST 2007) -comment(// Object [internal id=25921812] is dying at Tue Jan 09 22:24:31 EST 2007) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_13.14) -comment(//----------------------------------------------------------------------------------) -comment(// Groovy provides numerous methods which are automatically associated with) -comment(// symbol operators, e.g. here is '<=>' which is associated with compareTo(\)) -comment(// Suppose we have a class with a compareTo operator, such as:) -type(class) class(Person10) directive(implements) pre_type(Comparable) operator({) - keyword(def) ident(firstname)operator(,) ident(initial)operator(,) ident(surname) - ident(Person10)operator(()ident(f)operator(,)ident(i)operator(,)ident(s)operator(\)) operator({) ident(firstname) operator(=) ident(f)operator(;) ident(initial) operator(=) ident(i)operator(;) ident(surname) operator(=) ident(s) operator(}) - type(int) ident(compareTo)operator(()ident(other)operator(\)) operator({) ident(firstname) operator(<=>) ident(other)operator(.)ident(firstname) operator(}) -operator(}) -ident(a) operator(=) keyword(new) ident(Person10)operator(()string<delimiter(')content(James)delimiter(')>operator(,) string<delimiter(')content(T)delimiter(')>operator(,) string<delimiter(')content(Kirk)delimiter(')>operator(\)) -ident(b) operator(=) keyword(new) ident(Person10)operator(()string<delimiter(')content(Samuel)delimiter(')>operator(,) string<delimiter(')content(L)delimiter(')>operator(,) string<delimiter(')content(Jackson)delimiter(')>operator(\)) -ident(println) ident(a) operator(<=>) ident(b) -comment(// => -1) - -comment(// we can override the existing Person10's <=> operator as below) -comment(// so that now comparisons are made using the middle initial) -comment(// instead of the fisrtname:) -type(class) class(Person11) directive(extends) ident(Person10) operator({) - ident(Person11)operator(()ident(f)operator(,)ident(i)operator(,)ident(s)operator(\)) operator({) local_variable(super)operator(()ident(f)operator(,)ident(i)operator(,)ident(s)operator(\)) operator(}) - type(int) ident(compareTo)operator(()ident(other)operator(\)) operator({) ident(initial) operator(<=>) ident(other)operator(.)ident(initial) operator(}) -operator(}) - -ident(a) operator(=) keyword(new) ident(Person11)operator(()string<delimiter(')content(James)delimiter(')>operator(,) string<delimiter(')content(T)delimiter(')>operator(,) string<delimiter(')content(Kirk)delimiter(')>operator(\)) -ident(b) operator(=) keyword(new) ident(Person11)operator(()string<delimiter(')content(Samuel)delimiter(')>operator(,) string<delimiter(')content(L)delimiter(')>operator(,) string<delimiter(')content(Jackson)delimiter(')>operator(\)) -ident(println) ident(a) operator(<=>) ident(b) -comment(// => 1) - -comment(// we could also in general use Groovy's categories to extend class functionality.) - -comment(// There is no way to directly overload the '""' (stringify\)) -comment(// operator in Groovy. However, by convention, classes which) -comment(// can reasonably be converted to a String will define a) -comment(// 'toString(\)' method as in the TimeNumber class defined below.) -comment(// The 'println' method will automatcally call an object's) -comment(// 'toString(\)' method as is demonstrated below. Furthermore,) -comment(// an object of that class can be used most any place where the) -comment(// interpreter is looking for a String value.) - -comment(//---------------------------------------) -comment(// NOTE: Groovy has various built-in Time/Date/Calendar classes) -comment(// which would usually be used to manipulate time objects, the) -comment(// following is supplied for educational purposes to demonstrate) -comment(// operator overloading.) -type(class) class(TimeNumber) operator({) - keyword(def) ident(h)operator(,) ident(m)operator(,) ident(s) - ident(TimeNumber)operator(()ident(hour)operator(,) ident(min)operator(,) ident(sec)operator(\)) operator({) ident(h) operator(=) ident(hour)operator(;) ident(m) operator(=) ident(min)operator(;) ident(s) operator(=) ident(sec) operator(}) - - keyword(def) method(toDigits)operator(()ident(s)operator(\)) operator({) ident(s)operator(.)ident(toString)operator(()operator(\))operator(.)ident(padLeft)operator(()integer(2)operator(,) string<delimiter(')content(0)delimiter(')>operator(\)) operator(}) - pre_type(String) ident(toString)operator(()operator(\)) operator({) - keyword(return) ident(toDigits)operator(()ident(h)operator(\)) operator(+) string<delimiter(')content(:)delimiter(')> operator(+) ident(toDigits)operator(()ident(m)operator(\)) operator(+) string<delimiter(')content(:)delimiter(')> operator(+) ident(toDigits)operator(()ident(s)operator(\)) - operator(}) - - keyword(def) method(plus)operator(()ident(other)operator(\)) operator({) - ident(s) operator(=) ident(s) operator(+) ident(other)operator(.)ident(s) - ident(m) operator(=) ident(m) operator(+) ident(other)operator(.)ident(m) - ident(h) operator(=) ident(h) operator(+) ident(other)operator(.)ident(h) - keyword(if) operator(()ident(s) operator(>=) integer(60)operator(\)) operator({) - ident(s) operator(%=) integer(60) - ident(m) operator(+=) integer(1) - operator(}) - keyword(if) operator(()ident(m) operator(>=) integer(60)operator(\)) operator({) - ident(m) operator(%=) integer(60) - ident(h) operator(+=) integer(1) - operator(}) - keyword(return) keyword(new) ident(TimeNumber)operator(()ident(h)operator(,) ident(m)operator(,) ident(s)operator(\)) - operator(}) - -operator(}) - -ident(t1) operator(=) keyword(new) ident(TimeNumber)operator(()integer(0)operator(,) integer(58)operator(,) integer(59)operator(\)) -ident(sec) operator(=) keyword(new) ident(TimeNumber)operator(()integer(0)operator(,) integer(0)operator(,) integer(1)operator(\)) -ident(min) operator(=) keyword(new) ident(TimeNumber)operator(()integer(0)operator(,) integer(1)operator(,) integer(0)operator(\)) -ident(println) ident(t1) operator(+) ident(sec) operator(+) ident(min) operator(+) ident(min) - -comment(//-----------------------------) -comment(// StrNum class example: Groovy's builtin String class already has the) -comment(// capabilities outlined in StrNum Perl example, however the '*' operator) -comment(// on Groovy's String class acts differently: It creates a string which) -comment(// is the original string repeated N times.) -comment(//) -comment(// Using Groovy's String class as is in this example:) -ident(x) operator(=) string<delimiter(")content(Red)delimiter(")>operator(;) ident(y) operator(=) string<delimiter(")content(Black)delimiter(")> -ident(z) operator(=) ident(x)operator(+)ident(y) -ident(r) operator(=) ident(z)operator(*)integer(3) comment(// r is "RedBlackRedBlackRedBlack") -ident(println) string<delimiter(")content(values are )inline<inline_delimiter($)ident(x)>content(, )inline<inline_delimiter($)ident(y)>content(, )inline<inline_delimiter($)ident(z)>content(, and )inline<inline_delimiter($)ident(r)>delimiter(")> -ident(println) string<delimiter(")inline<inline_delimiter($)ident(x)>content( is )inline<inline_delimiter(${)ident(x) operator(<) ident(y) operator(?) string<delimiter(')content(LT)delimiter(')> operator(:) string<delimiter(')content(GE)delimiter(')>inline_delimiter(})>content( )inline<inline_delimiter($)ident(y)>delimiter(")> -comment(// prints:) -comment(// values are Red, Black, RedBlack, and RedBlackRedBlackRedBlack) -comment(// Red is GE Black) - -comment(//-----------------------------) -type(class) class(FixNum) operator({) - keyword(def) ident(REGEX) operator(=) regexp<delimiter(/)content(()content(\\.)char(\\d)content(*\))delimiter(/)> - directive(static) directive(final) ident(DEFAULT_PLACES) operator(=) integer(0) - keyword(def) type(float) ident(value) - keyword(def) type(int) ident(places) - ident(FixNum)operator(()ident(value)operator(\)) operator({) - ident(initValue)operator(()ident(value)operator(\)) - keyword(def) ident(m) operator(=) ident(value)operator(.)ident(toString)operator(()operator(\)) operator(=~) ident(REGEX) - keyword(if) operator(()ident(m)operator(\)) ident(places) operator(=) ident(m)operator([)integer(0)operator(])operator([)integer(1)operator(])operator(.)ident(size)operator(()operator(\)) operator(-) integer(1) - keyword(else) ident(places) operator(=) ident(DEFAULT_PLACES) - operator(}) - ident(FixNum)operator(()ident(value)operator(,) ident(places)operator(\)) operator({) - ident(initValue)operator(()ident(value)operator(\)) - local_variable(this)operator(.)ident(places) operator(=) ident(places) - operator(}) - directive(private) ident(initValue)operator(()ident(value)operator(\)) operator({) - local_variable(this)operator(.)ident(value) operator(=) ident(value) - operator(}) - - keyword(def) method(plus)operator(()ident(other)operator(\)) operator({) - keyword(new) ident(FixNum)operator(()ident(value) operator(+) ident(other)operator(.)ident(value)operator(,) operator([)ident(places)operator(,) ident(other)operator(.)ident(places)operator(])operator(.)ident(max)operator(()operator(\))operator(\)) - operator(}) - - keyword(def) method(multiply)operator(()ident(other)operator(\)) operator({) - keyword(new) ident(FixNum)operator(()ident(value) operator(*) ident(other)operator(.)ident(value)operator(,) operator([)ident(places)operator(,) ident(other)operator(.)ident(places)operator(])operator(.)ident(max)operator(()operator(\))operator(\)) - operator(}) - - keyword(def) method(div)operator(()ident(other)operator(\)) operator({) - ident(println) string<delimiter(")content(DEUG: Divide = )inline<inline_delimiter(${)ident(value)operator(/)ident(other)operator(.)ident(value)inline_delimiter(})>delimiter(")> - keyword(def) ident(result) operator(=) keyword(new) ident(FixNum)operator(()ident(value)operator(/)ident(other)operator(.)ident(value)operator(\)) - ident(result)operator(.)ident(places) operator(=) operator([)ident(places)operator(,)ident(other)operator(.)ident(places)operator(])operator(.)ident(max)operator(()operator(\)) - ident(result) - operator(}) - - pre_type(String) ident(toString)operator(()operator(\)) operator({) - comment(//m = value.toString(\) =~ /(\\d\)/ + REGEX) - pre_type(String)operator(.)ident(format)operator(()string<delimiter(")content(STR%s: %.)inline<inline_delimiter(${)ident(places)inline_delimiter(})>content(f)delimiter(")>operator(,) operator([)local_variable(this)operator(.)ident(class)operator(.)ident(name)operator(,) ident(value) keyword(as) type(float)operator(]) keyword(as) pre_type(Object)type([])operator(\)) - operator(}) -operator(}) - -ident(x) operator(=) keyword(new) ident(FixNum)operator(()integer(40)operator(\)) -ident(y) operator(=) keyword(new) ident(FixNum)operator(()integer(12)operator(,) integer(0)operator(\)) - -ident(println) string<delimiter(")content(sum of )inline<inline_delimiter($)ident(x)>content( and )inline<inline_delimiter($)ident(y)>content( is )inline<inline_delimiter(${)ident(x)operator(+)ident(y)inline_delimiter(})>delimiter(")> -ident(println) string<delimiter(")content(product of )inline<inline_delimiter($)ident(x)>content( and )inline<inline_delimiter($)ident(y)>content( is )inline<inline_delimiter(${)ident(x)operator(*)ident(y)inline_delimiter(})>delimiter(")> - -ident(z) operator(=) ident(x)operator(/)ident(y) -ident(println) string<delimiter(")inline<inline_delimiter($)ident(z)>content( has )inline<inline_delimiter($)ident(z)>content(.places places)delimiter(")> -ident(z)operator(.)ident(places) operator(=) integer(2) -ident(println) string<delimiter(")inline<inline_delimiter($)ident(z)>content( now has )inline<inline_delimiter($)ident(z)>content(.places places)delimiter(")> - -ident(println) string<delimiter(")content(div of )inline<inline_delimiter($)ident(x)>content( by )inline<inline_delimiter($)ident(y)>content( is )inline<inline_delimiter($)ident(z)>delimiter(")> -ident(println) string<delimiter(")content(square of that is )inline<inline_delimiter(${)ident(z)operator(*)ident(z)inline_delimiter(})>delimiter(")> -comment(// =>) -comment(// sum of STRFixNum: 40 and STRFixNum: 12 is STRFixNum: 52) -comment(// product of STRFixNum: 40 and STRFixNum: 12 is STRFixNum: 480) -comment(// DEUG: Divide = 3.3333333333333335) -comment(// STRFixNum: 3 has 0 places) -comment(// STRFixNum: 3.33 now has 2 places) -comment(// div of STRFixNum: 40 by STRFixNum: 12 is STRFixNum: 3.33) -comment(// square of that is STRFixNum: 11.11) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_13.15) -comment(//----------------------------------------------------------------------------------) -comment(// Groovy doesn't use the tie terminology but you can achieve) -comment(// similar results with Groovy's metaprogramming facilities) -type(class) class(ValueRing) operator({) - directive(private) ident(values) - keyword(def) method(add)operator(()ident(value)operator(\)) operator({) ident(values)operator(.)ident(add)operator(()integer(0)operator(,) ident(value)operator(\)) operator(}) - keyword(def) method(next)operator(()operator(\)) operator({) - keyword(def) ident(head) operator(=) ident(values)operator([)integer(0)operator(]) - ident(values) operator(=) ident(values)operator([)integer(1)operator(..)operator(-)integer(1)operator(]) operator(+) ident(head) - keyword(return) ident(head) - operator(}) -operator(}) -ident(ring) operator(=) keyword(new) ident(ValueRing)operator(()key(values)operator(:)operator([)string<delimiter(')content(red)delimiter(')>operator(,) string<delimiter(')content(blue)delimiter(')>operator(])operator(\)) -keyword(def) method(getColor)operator(()operator(\)) operator({) ident(ring)operator(.)ident(next)operator(()operator(\)) operator(}) -type(void) ident(setProperty)operator(()pre_type(String) ident(n)operator(,) ident(v)operator(\)) operator({) - keyword(if) operator(()ident(n) operator(==) string<delimiter(')content(color)delimiter(')>operator(\)) operator({) ident(ring)operator(.)ident(add)operator(()ident(v)operator(\))operator(;) keyword(return) operator(}) - local_variable(super)operator(.)ident(setProperty)operator(()ident(n)operator(,)ident(v)operator(\)) -operator(}) - -ident(println) string<delimiter(")inline<inline_delimiter($)ident(color)>content( )inline<inline_delimiter($)ident(color)>content( )inline<inline_delimiter($)ident(color)>content( )inline<inline_delimiter($)ident(color)>content( )inline<inline_delimiter($)ident(color)>content( )inline<inline_delimiter($)ident(color)>delimiter(")> -comment(// => red blue red blue red blue) - -ident(color) operator(=) string<delimiter(')content(green)delimiter(')> -ident(println) string<delimiter(")inline<inline_delimiter($)ident(color)>content( )inline<inline_delimiter($)ident(color)>content( )inline<inline_delimiter($)ident(color)>content( )inline<inline_delimiter($)ident(color)>content( )inline<inline_delimiter($)ident(color)>content( )inline<inline_delimiter($)ident(color)>delimiter(")> -comment(// => green red blue green red blue) - -comment(// Groovy doesn't have the $_ implicit variable so we can't show an) -comment(// example that gets rid of it. We can however show an example of how) -comment(// you could add in a simplified version of that facility into Groovy.) -comment(// We use Groovy's metaProgramming facilities. We execute our script) -comment(// in a new GroovyShell so that we don't affect subsequent examples.) -comment(// script:) -ident(x) operator(=) integer(3) -ident(println) string<delimiter(")inline<inline_delimiter($)ident(_)>delimiter(")> -ident(y) operator(=) string<delimiter(')content(cat)delimiter(')> operator(*) ident(x) -ident(println) string<delimiter(")inline<inline_delimiter($)ident(_)>delimiter(")> - -comment(// metaUnderscore:) -type(void) ident(setProperty)operator(()pre_type(String) ident(n)operator(,) ident(v)operator(\)) operator({) - local_variable(super)operator(.)ident(setProperty)operator(()string<delimiter(')content(_)delimiter(')>operator(,)ident(v)operator(\)) - local_variable(super)operator(.)ident(setProperty)operator(()ident(n)operator(,)ident(v)operator(\)) -operator(}) - -keyword(new) ident(GroovyShell)operator(()operator(\))operator(.)ident(evaluate)operator(()ident(metaUnderscore) operator(+) ident(script)operator(\)) -comment(// =>) -comment(// 3) -comment(// catcatcat) - -comment(// We can get a little bit fancier by making an UnderscoreAware class) -comment(// that wraps up some of this functionality. This is not recommended) -comment(// as good Groovy style but mimicks the $_ behaviour in a sinple way.) -type(class) class(UnderscoreAware) directive(implements) ident(GroovyInterceptable) operator({) - directive(private) ident(_saved) - type(void) ident(setProperty)operator(()pre_type(String) ident(n)operator(,) ident(v)operator(\)) operator({) - ident(_saved) operator(=) ident(v) - local_variable(this)operator(.)ident(metaClass)operator(.)ident(setProperty)operator(()local_variable(this)operator(,) ident(n)operator(,) ident(v)operator(\)) - operator(}) - keyword(def) method(getProperty)operator(()pre_type(String) ident(n)operator(\)) operator({) - keyword(if) operator(()ident(n) operator(==) string<delimiter(')content(_)delimiter(')>operator(\)) keyword(return) ident(_saved) - local_variable(this)operator(.)ident(metaClass)operator(.)ident(getProperty)operator(()local_variable(this)operator(,) ident(n)operator(\)) - operator(}) - keyword(def) method(invokeMethod)operator(()pre_type(String) ident(name)operator(,) pre_type(Object) ident(args)operator(\)) operator({) - keyword(if) operator(()ident(name)operator(.)ident(startsWith)operator(()string<delimiter(')content(print)delimiter(')>operator(\)) operator(&&) ident(args)operator(.)ident(size)operator(()operator(\)) operator(==) integer(0)operator(\)) - ident(args) operator(=) operator([)ident(_saved)operator(]) keyword(as) pre_type(Object)type([]) - local_variable(this)operator(.)ident(metaClass)operator(.)ident(invokeMethod)operator(()local_variable(this)operator(,) ident(name)operator(,) ident(args)operator(\)) - operator(}) -operator(}) - -type(class) class(PerlishClass) directive(extends) ident(UnderscoreAware) operator({) - directive(private) ident(_age) - keyword(def) method(setAge)operator(()ident(age)operator(\))operator({) ident(_age) operator(=) ident(age) operator(}) - keyword(def) method(getAge)operator(()operator(\))operator({) ident(_age) operator(}) - keyword(def) method(test)operator(()operator(\)) operator({) - ident(age) operator(=) integer(25) - ident(println) string<delimiter(")inline<inline_delimiter($)ident(_)>delimiter(")> comment(// explicit $_ supported) - ident(age)operator(++) - ident(println)operator(()operator(\)) comment(// implicit $_ will be injected) - operator(}) -operator(}) - -keyword(def) ident(x) operator(=) keyword(new) ident(PerlishClass)operator(()operator(\)) -ident(x)operator(.)ident(test)operator(()operator(\)) -comment(// =>) -comment(// 25) -comment(// 26) - -comment(// Autoappending hash:) -type(class) class(AutoMap) directive(extends) pre_type(HashMap) operator({) - type(void) ident(setProperty)operator(()pre_type(String) ident(name)operator(,) ident(v)operator(\)) operator({) - keyword(if) operator(()ident(containsKey)operator(()ident(name)operator(\))operator(\)) operator({) - ident(put)operator(()ident(name)operator(,) ident(get)operator(()ident(name)operator(\)) operator(+) ident(v)operator(\)) - operator(}) keyword(else) operator({) - ident(put)operator(()ident(name)operator(,) operator([)ident(v)operator(])operator(\)) - operator(}) - operator(}) -operator(}) -ident(m) operator(=) keyword(new) ident(AutoMap)operator(()operator(\)) -ident(m)operator(.)ident(beer) operator(=) string<delimiter(')content(guinness)delimiter(')> -ident(m)operator(.)ident(food) operator(=) string<delimiter(')content(potatoes)delimiter(')> -ident(m)operator(.)ident(food) operator(=) string<delimiter(')content(peas)delimiter(')> -ident(println) ident(m) -comment(// => ["food":["potatoes", "peas"], "beer":["guinness"]]) - -comment(// Case-Insensitive Hash:) -type(class) class(FoldedMap) directive(extends) pre_type(HashMap) operator({) - type(void) ident(setProperty)operator(()pre_type(String) ident(name)operator(,) ident(v)operator(\)) operator({) - ident(put)operator(()ident(name)operator(.)ident(toLowerCase)operator(()operator(\))operator(,) ident(v)operator(\)) - operator(}) - keyword(def) method(getProperty)operator(()pre_type(String) ident(name)operator(\)) operator({) - ident(get)operator(()ident(name)operator(.)ident(toLowerCase)operator(()operator(\))operator(\)) - operator(}) -operator(}) -ident(tab) operator(=) keyword(new) ident(FoldedMap)operator(()operator(\)) -ident(tab)operator(.)ident(VILLAIN) operator(=) string<delimiter(')content(big )delimiter(')> -ident(tab)operator(.)ident(herOine) operator(=) string<delimiter(')content(red riding hood)delimiter(')> -ident(tab)operator(.)ident(villain) operator(+=) string<delimiter(')content(bad wolf)delimiter(')> -ident(println) ident(tab) -comment(// => ["heroine":"red riding hood", "villain":"big bad wolf"]) - -comment(// Hash That "Allows Look-Ups by Key or Value":) -type(class) class(RevMap) directive(extends) pre_type(HashMap) operator({) - type(void) ident(setProperty)operator(()pre_type(String) ident(n)operator(,) ident(v)operator(\)) operator({) ident(put)operator(()ident(n)operator(,)ident(v)operator(\))operator(;) ident(put)operator(()ident(v)operator(,)ident(n)operator(\)) operator(}) - type(void) ident(remove)operator(()ident(n)operator(\)) operator({) local_variable(super)operator(.)ident(remove)operator(()ident(get)operator(()ident(n)operator(\))operator(\))operator(;) local_variable(super)operator(.)ident(remove)operator(()ident(n)operator(\)) operator(}) -operator(}) -ident(rev) operator(=) keyword(new) ident(RevMap)operator(()operator(\)) -ident(rev)operator(.)ident(Rojo) operator(=) string<delimiter(')content(Red)delimiter(')> -ident(rev)operator(.)ident(Azul) operator(=) string<delimiter(')content(Blue)delimiter(')> -ident(rev)operator(.)ident(Verde) operator(=) string<delimiter(')content(Green)delimiter(')> -ident(rev)operator(.)ident(EVIL) operator(=) operator([) string<delimiter(")content(No way!)delimiter(")>operator(,) string<delimiter(")content(Way!!)delimiter(")> operator(]) -ident(rev)operator(.)ident(remove)operator(()string<delimiter(')content(Red)delimiter(')>operator(\)) -ident(rev)operator(.)ident(remove)operator(()string<delimiter(')content(Azul)delimiter(')>operator(\)) -ident(println) ident(rev) -comment(// =>) -comment(// [["No way!", "Way!!"]:"EVIL", "EVIL":["No way!", "Way!!"], "Verde":"Green", "Green":"Verde"]) - -comment(// Infinite loop scenario:) -comment(// def x(n\) { x(++n\) }; x(0\)) -comment(// => Caught: java.lang.StackOverflowError) - -comment(// Multiple Strrams scenario:) -type(class) class(MultiStream) directive(extends) pre_type(PrintStream) operator({) - keyword(def) ident(streams) - ident(MultiStream)operator(()pre_type(List) ident(streams)operator(\)) operator({) - local_variable(super)operator(()ident(streams)operator([)integer(0)operator(])operator(\)) - local_variable(this)operator(.)ident(streams) operator(=) ident(streams) - operator(}) - keyword(def) method(println)operator(()pre_type(String) ident(x)operator(\)) operator({) - ident(streams)operator(.)ident(each)operator({) local_variable(it)operator(.)ident(println)operator(()ident(x)operator(\)) operator(}) - operator(}) -operator(}) -ident(tee) operator(=) keyword(new) ident(MultiStream)operator(()operator([)pre_type(System)operator(.)ident(out)operator(,) pre_type(System)operator(.)ident(err)operator(])operator(\)) -ident(tee)operator(.)ident(println) operator(()string<delimiter(')content(This goes two places)delimiter(')>operator(\)) -comment(// =>) -comment(// This goes two places) -comment(// This goes two places) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_14.0) -comment(//----------------------------------------------------------------------------------) -ident(As) ident(discussed) keyword(in) float(14.1)operator(,) ident(many) ident(database) ident(options) ident(exist)operator(,) ident(one) ident(of) ident(which) ident(is) ident(JDBC)operator(.) -ident(Over) integer(200) ident(JDBC) ident(drivers) ident(are) ident(listed) ident(at) ident(the) ident(following) pre_type(URL)operator(:) -key(http)operator(:)comment(//developers.sun.com/product/jdbc/drivers/browse_all.jsp) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_14.1) -comment(//----------------------------------------------------------------------------------) -comment(// Groovy can make use of various Java persistence libraries and has special) -comment(// support built-in (e.g. datasets\) for interacting wth RDBMS systems.) -comment(// Some of the options include:) -comment(// object serialization (built in to Java\)) -comment(// pbeans: pbeans.sf.net) -comment(// prevayler: http://www.prevayler.org) -comment(// Berkeley DB Java edition: http://www.oracle.com/database/berkeley-db/je/) -comment(// JDBC: Over 200 drivers are listed at http://developers.sun.com/product/jdbc/drivers) -comment(// Datasets (special Groovy support\)) -comment(// XML via e.g. xstream or JAXB or XmlBeans or ...) -comment(// ORM: over 20 are listed at http://java-source.net/open-source/persistence) -comment(// JNI: can be used directly on a platform that supports e.g. DBM or via) -comment(// a cross platform API such as Apache APR which includes DBM routines:) -comment(// http://apr.apache.org/docs/apr-util/0.9/group__APR__Util__DBM.html) -comment(// jmork: used for Firefox/Thunderbird databases, e.g. address books, history files) -comment(// JDBC or Datasets would normally be most common for all examples in this chapter.) - - -comment(// Example shown using berkeley db Java edition - not quite as transparent as) -comment(// cookbook example as Berkeley DB Java addition makes transactions visible.) -keyword(import) include(com.sleepycat.je.*) -ident(tx) operator(=) pre_constant(null) -ident(envHome) operator(=) keyword(new) pre_type(File)operator(()string<delimiter(")content(D:/Projects/GroovyExamples/Pleac/data/db)delimiter(")>operator(\)) - -ident(myEnvConfig) operator(=) keyword(new) ident(EnvironmentConfig)operator(()operator(\)) -ident(myEnvConfig)operator(.)ident(setAllowCreate)operator(()pre_constant(true)operator(\)) -ident(myEnv) operator(=) keyword(new) ident(Environment)operator(()ident(envHome)operator(,) ident(myEnvConfig)operator(\)) - -ident(myDbConfig) operator(=) keyword(new) ident(DatabaseConfig)operator(()operator(\)) -ident(myDbConfig)operator(.)ident(setAllowCreate)operator(()pre_constant(true)operator(\)) -ident(myDb) operator(=) ident(myEnv)operator(.)ident(openDatabase)operator(()ident(tx)operator(,) string<delimiter(")content(vendorDB)delimiter(")>operator(,) ident(myDbConfig)operator(\)) - -ident(theKey) operator(=) keyword(new) ident(DatabaseEntry)operator(()string<delimiter(")content(key)delimiter(")>operator(.)ident(getBytes)operator(()string<delimiter(")content(UTF-8)delimiter(")>operator(\))operator(\)) -ident(theData) operator(=) keyword(new) ident(DatabaseEntry)operator(()string<delimiter(")content(data)delimiter(")>operator(.)ident(getBytes)operator(()string<delimiter(")content(UTF-8)delimiter(")>operator(\))operator(\)) -ident(myDb)operator(.)ident(put)operator(()ident(tx)operator(,) ident(theKey)operator(,) ident(theData)operator(\)) -keyword(if) operator(()ident(myDb)operator(.)ident(get)operator(()ident(tx)operator(,) ident(theKey)operator(,) ident(theData)operator(,) ident(LockMode)operator(.)ident(DEFAULT)operator(\)) operator(==) ident(OperationStatus)operator(.)ident(SUCCESS)operator(\)) operator({) - ident(key) operator(=) keyword(new) pre_type(String)operator(()ident(theKey)operator(.)ident(data)operator(,) string<delimiter(")content(UTF-8)delimiter(")>operator(\)) - ident(foundData) operator(=) keyword(new) pre_type(String)operator(()ident(theData)operator(.)ident(data)operator(,) string<delimiter(")content(UTF-8)delimiter(")>operator(\)) - ident(println) string<delimiter(")content(For key: ')inline<inline_delimiter($)ident(key)>content(' found data: ')inline<inline_delimiter($)ident(foundData)>content('.)delimiter(")> -operator(}) -ident(myDb)operator(.)ident(delete)operator(()ident(tx)operator(,) ident(theKey)operator(\)) -ident(myDb)operator(.)ident(close)operator(()operator(\)) -ident(myEnv)operator(.)ident(close)operator(()operator(\)) - - -comment(// userstats using pbeans) -keyword(import) include(net.sourceforge.pbeans.*) -comment(// on *nix use: whotext = "who".execute(\).text) -ident(whotext) operator(=) string<delimiter(''')content( -gnat ttyp1 May 29 15:39 (coprolith.frii.com\) -bill ttyp1 May 28 15:38 (hilary.com\) -gnit ttyp1 May 27 15:37 (somewhere.org\) -)delimiter(''')> - -type(class) class(LoginInfo) directive(implements) ident(Persistent) operator({) - ident(LoginInfo)operator(()operator(\)) operator({)operator(}) - ident(LoginInfo)operator(()ident(name)operator(\)) operator({) local_variable(this)operator(.)ident(name) operator(=) ident(name)operator(;) ident(loginCount) operator(=) integer(1) operator(}) - pre_type(String) ident(name) - type(int) ident(loginCount) -operator(}) - -keyword(def) method(printAllUsers)operator(()ident(store)operator(\)) operator({) - ident(printUsers)operator(()ident(store)operator(,) ident(store)operator(.)ident(select)operator(()ident(LoginInfo)operator(.)ident(class)operator(\))operator(.)ident(collect)operator({)local_variable(it)operator(.)ident(name)operator(})operator(.)ident(sort)operator(()operator(\))operator(\)) -operator(}) - -keyword(def) method(printUsers)operator(()ident(store)operator(,) ident(list)operator(\)) operator({) - ident(list)operator(.)ident(each)operator({) - ident(println) string<delimiter(")inline<inline_delimiter($)local_variable(it)>content( )inline<inline_delimiter(${)ident(store)operator(.)ident(selectSingle)operator(()ident(LoginInfo)operator(.)ident(class)operator(,) string<delimiter(')content(name)delimiter(')>operator(,) local_variable(it)operator(\))operator(.)ident(loginCount)inline_delimiter(})>delimiter(")> - operator(}) -operator(}) - -keyword(def) method(addUsers)operator(()ident(store)operator(\)) operator({) - ident(whotext)operator(.)ident(trim)operator(()operator(\))operator(.)ident(split)operator(()string<delimiter(')content(\\n)delimiter(')>operator(\))operator(.)ident(each)operator({) - ident(m) operator(=) local_variable(it) operator(=~) regexp<delimiter(/)content(^()char(\\S)content(+\))delimiter(/)> - ident(name) operator(=) ident(m)operator([)integer(0)operator(])operator([)integer(1)operator(]) - ident(item) operator(=) ident(store)operator(.)ident(selectSingle)operator(()ident(LoginInfo)operator(.)ident(class)operator(,) string<delimiter(')content(name)delimiter(')>operator(,) ident(name)operator(\)) - keyword(if) operator(()ident(item)operator(\)) operator({) - ident(item)operator(.)ident(loginCount)operator(++) - ident(store)operator(.)ident(save)operator(()ident(item)operator(\)) - operator(}) keyword(else) operator({) - ident(store)operator(.)ident(insert)operator(()keyword(new) ident(LoginInfo)operator(()ident(name)operator(\))operator(\)) - operator(}) - operator(}) -operator(}) - -keyword(def) ident(ds) operator(=) keyword(new) ident(org)operator(.)ident(hsqldb)operator(.)ident(jdbc)operator(.)ident(jdbcDataSource)operator(()operator(\)) -ident(ds)operator(.)ident(database) operator(=) string<delimiter(')content(jdbc:hsqldb:hsql://localhost/mydb)delimiter(')> -ident(ds)operator(.)ident(user) operator(=) string<delimiter(')content(sa)delimiter(')> -ident(ds)operator(.)ident(password) operator(=) string<delimiter(')delimiter(')> -ident(store) operator(=) keyword(new) ident(Store)operator(()ident(ds)operator(\)) -keyword(if) operator(()ident(args)operator(.)ident(size)operator(()operator(\)) operator(==) integer(0)operator(\)) operator({) - ident(addUsers)operator(()ident(store)operator(\)) -operator(}) keyword(else) keyword(if) operator(()ident(args) operator(==) operator([)string<delimiter(')content(ALL)delimiter(')>operator(])operator(\)) operator({) - ident(printAllUsers)operator(()ident(store)operator(\)) -operator(}) keyword(else) operator({) - ident(printUsers)operator(()ident(store)operator(,) ident(args)operator(\)) -operator(}) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_14.2) -comment(//----------------------------------------------------------------------------------) -comment(// Groovy would normally use JDBC here (see 14.1 for details\)) -keyword(import) include(com.sleepycat.je.*) -ident(tx) operator(=) pre_constant(null) -ident(envHome) operator(=) keyword(new) pre_type(File)operator(()string<delimiter(")content(D:/Projects/GroovyExamples/Pleac/data/db)delimiter(")>operator(\)) - -ident(myEnvConfig) operator(=) keyword(new) ident(EnvironmentConfig)operator(()operator(\)) -ident(myEnvConfig)operator(.)ident(setAllowCreate)operator(()pre_constant(true)operator(\)) -ident(myEnv) operator(=) keyword(new) ident(Environment)operator(()ident(envHome)operator(,) ident(myEnvConfig)operator(\)) - -ident(myDbConfig) operator(=) keyword(new) ident(DatabaseConfig)operator(()operator(\)) -ident(myDbConfig)operator(.)ident(setAllowCreate)operator(()pre_constant(true)operator(\)) -ident(myDb) operator(=) ident(myEnv)operator(.)ident(openDatabase)operator(()ident(tx)operator(,) string<delimiter(")content(vendorDB)delimiter(")>operator(,) ident(myDbConfig)operator(\)) - -ident(theKey) operator(=) keyword(new) ident(DatabaseEntry)operator(()string<delimiter(")content(key)delimiter(")>operator(.)ident(getBytes)operator(()string<delimiter(")content(UTF-8)delimiter(")>operator(\))operator(\)) -ident(theData) operator(=) keyword(new) ident(DatabaseEntry)operator(()string<delimiter(")content(data)delimiter(")>operator(.)ident(getBytes)operator(()string<delimiter(")content(UTF-8)delimiter(")>operator(\))operator(\)) -ident(myDb)operator(.)ident(put)operator(()ident(tx)operator(,) ident(theKey)operator(,) ident(theData)operator(\)) -ident(myDb)operator(.)ident(close)operator(()operator(\)) -comment(// clear out database) -ident(returnCount) operator(=) pre_constant(true) -ident(println) ident(myEnv)operator(.)ident(truncateDatabase)operator(()ident(tx)operator(,) string<delimiter(")content(vendorDB)delimiter(")>operator(,) ident(returnCount)operator(\)) operator(+) string<delimiter(')content( records deleted)delimiter(')> -comment(// remove database) -ident(myEnv)operator(.)ident(removeDatabase)operator(()ident(tx)operator(,) string<delimiter(")content(vendorDB)delimiter(")>operator(\)) -ident(myEnv)operator(.)ident(close)operator(()operator(\)) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_14.3) -comment(//----------------------------------------------------------------------------------) -comment(// Original cookbook example not likely in Groovy.) -comment(// Here is a more realistic example, copying pbeans -> jdbc) -comment(// Creation of pbeans database not strictly needed but shown for completion) - -keyword(import) include(net.sourceforge.pbeans.*) -keyword(import) include(groovy.sql.Sql) - -keyword(def) ident(ds) operator(=) keyword(new) ident(org)operator(.)ident(hsqldb)operator(.)ident(jdbc)operator(.)ident(jdbcDataSource)operator(()operator(\)) -ident(ds)operator(.)ident(database) operator(=) string<delimiter(')content(jdbc:hsqldb:hsql://localhost/mydb)delimiter(')> -ident(ds)operator(.)ident(user) operator(=) string<delimiter(')content(sa)delimiter(')> -ident(ds)operator(.)ident(password) operator(=) string<delimiter(')delimiter(')> -ident(store) operator(=) keyword(new) ident(Store)operator(()ident(ds)operator(\)) - -type(class) class(Person) directive(implements) ident(Persistent) operator({) - pre_type(String) ident(name) - pre_type(String) ident(does) - pre_type(String) ident(email) -operator(}) - -comment(// populate with test data) -ident(store)operator(.)ident(insert)operator(()keyword(new) ident(Person)operator(()key(name)operator(:)string<delimiter(')content(Tom Christiansen)delimiter(')>operator(,) key(does)operator(:)string<delimiter(')content(book author)delimiter(')>operator(,) key(email)operator(:)string<delimiter(')content(tchrist@perl.com)delimiter(')>operator(\))operator(\)) -ident(store)operator(.)ident(insert)operator(()keyword(new) ident(Person)operator(()key(name)operator(:)string<delimiter(')content(Tom Boutell)delimiter(')>operator(,) key(does)operator(:)string<delimiter(')content(Poet Programmer)delimiter(')>operator(,) key(email)operator(:)string<delimiter(')content(boutell@boutell.com)delimiter(')>operator(\))operator(\)) - -ident(people) operator(=) ident(store)operator(.)ident(select)operator(()ident(Person)operator(.)ident(class)operator(\)) - -ident(db) operator(=) keyword(new) ident(Sql)operator(()ident(ds)operator(\)) - -ident(db)operator(.)ident(execute) string<delimiter(')content(CREATE TABLE people ( name VARCHAR, does VARCHAR, email VARCHAR \);)delimiter(')> -ident(people)operator(.)ident(each)operator({) ident(p) operator(->) - ident(db)operator(.)ident(execute) string<delimiter(")content(INSERT INTO people ( name, does, email \) VALUES ()inline<inline_delimiter($)ident(p)>content(.name,)inline<inline_delimiter($)ident(p)>content(.does,)inline<inline_delimiter($)ident(p)>content(.email\);)delimiter(")> -operator(}) -ident(db)operator(.)ident(eachRow)operator(()string<delimiter(")content(SELECT * FROM people where does like 'book%')delimiter(")>operator(\))operator({) - ident(println) string<delimiter(")inline<inline_delimiter($)local_variable(it)>content(.name, )inline<inline_delimiter($)local_variable(it)>content(.does, )inline<inline_delimiter($)local_variable(it)>content(.email)delimiter(")> -operator(}) -ident(db)operator(.)ident(execute) string<delimiter(')content(DROP TABLE people;)delimiter(')> -comment(// => Tom Christiansen, book author, tchrist@perl.com) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_14.4) -comment(//----------------------------------------------------------------------------------) -comment(// Groovy would normally use JDBC here (see 14.1 for details\)) -keyword(import) include(com.sleepycat.je.*) - -keyword(def) method(copyEntries)operator(()ident(indb)operator(,) ident(outdb)operator(\)) operator({) - ident(cursor) operator(=) ident(indb1)operator(.)ident(openCursor)operator(()pre_constant(null)operator(,) pre_constant(null)operator(\)) - keyword(while) operator(()ident(cursor)operator(.)ident(getNext)operator(()ident(foundKey)operator(,) ident(foundData)operator(,) ident(LockMode)operator(.)ident(DEFAULT)operator(\)) operator(==) ident(OperationStatus)operator(.)ident(SUCCESS)operator(\)) - ident(outdb)operator(.)ident(out)operator(()ident(tx)operator(,) ident(foundKey)operator(,) ident(foundData)operator(\)) - ident(cursor)operator(.)ident(close)operator(()operator(\)) -operator(}) - -ident(tx) operator(=) pre_constant(null) -ident(envHome) operator(=) keyword(new) pre_type(File)operator(()string<delimiter(")content(D:/Projects/GroovyExamples/Pleac/data/db)delimiter(")>operator(\)) - -ident(myEnvConfig) operator(=) keyword(new) ident(EnvironmentConfig)operator(()operator(\)) -ident(myEnvConfig)operator(.)ident(setAllowCreate)operator(()pre_constant(true)operator(\)) -ident(myEnv) operator(=) keyword(new) ident(Environment)operator(()ident(envHome)operator(,) ident(myEnvConfig)operator(\)) - -ident(myDbConfig) operator(=) keyword(new) ident(DatabaseConfig)operator(()operator(\)) -ident(myDbConfig)operator(.)ident(setAllowCreate)operator(()pre_constant(true)operator(\)) -ident(indb1) operator(=) ident(myEnv)operator(.)ident(openDatabase)operator(()ident(tx)operator(,) string<delimiter(")content(db1)delimiter(")>operator(,) ident(myDbConfig)operator(\)) -ident(indb2) operator(=) ident(myEnv)operator(.)ident(openDatabase)operator(()ident(tx)operator(,) string<delimiter(")content(db2)delimiter(")>operator(,) ident(myDbConfig)operator(\)) -ident(outdb) operator(=) ident(myEnv)operator(.)ident(openDatabase)operator(()ident(tx)operator(,) string<delimiter(")content(db3)delimiter(")>operator(,) ident(myDbConfig)operator(\)) -ident(foundKey) operator(=) keyword(new) ident(DatabaseEntry)operator(()operator(\)) -ident(foundData) operator(=) keyword(new) ident(DatabaseEntry)operator(()operator(\)) -ident(copyEntries)operator(()ident(indb1)operator(,) ident(outdb)operator(\)) -ident(copyEntries)operator(()ident(indb2)operator(,) ident(outdb)operator(\)) -ident(cursor) operator(=) ident(indb2)operator(.)ident(openCursor)operator(()pre_constant(null)operator(,) pre_constant(null)operator(\)) -keyword(while) operator(()ident(cursor)operator(.)ident(getNext)operator(()ident(foundKey)operator(,) ident(foundData)operator(,) ident(LockMode)operator(.)ident(DEFAULT)operator(\)) operator(==) ident(OperationStatus)operator(.)ident(SUCCESS)operator(\)) - ident(outdb)operator(.)ident(out)operator(()ident(tx)operator(,) ident(foundKey)operator(,) ident(foundData)operator(\)) -ident(cursor)operator(.)ident(close)operator(()operator(\)) -ident(indb1)operator(.)ident(close)operator(()operator(\)) -ident(indb2)operator(.)ident(close)operator(()operator(\)) -ident(outdb)operator(.)ident(close)operator(()operator(\)) -ident(myEnv)operator(.)ident(close)operator(()operator(\)) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_14.5) -comment(//----------------------------------------------------------------------------------) -comment(// If you are using a single file based persistence mechanism you can) -comment(// use the file locking mechanisms mentioned in 7.11 otherwise the) -comment(// database itself or the ORM layer will provide locking mechanisms.) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_14.6) -comment(//----------------------------------------------------------------------------------) -comment(// N/A for most Java/Groovy persistent technologies.) -comment(// Use indexes for RDBMS systems.) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_14.7) -comment(//----------------------------------------------------------------------------------) - comment(// We can write a category that allows the ArrayList class) - comment(// to be persisted as required.) - type(class) class(ArrayListCategory) operator({) - directive(static) ident(file) operator(=) keyword(new) pre_type(File)operator(()string<delimiter(')content(/temp.txt)delimiter(')>operator(\)) - directive(public) directive(static) type(void) ident(save)operator(()pre_type(ArrayList) ident(self)operator(\)) operator({) - keyword(def) ident(LS) operator(=) pre_type(System)operator(.)ident(getProperty)operator(()string<delimiter(')content(line.separator)delimiter(')>operator(\)) - ident(file)operator(.)ident(withWriter)operator({) ident(w) operator(->) - ident(self)operator(.)ident(each)operator({) ident(w)operator(.)ident(write)operator(()local_variable(it) operator(+) ident(LS)operator(\)) operator(}) - operator(}) - operator(}) - operator(}) - - ident(lines) operator(=) string<delimiter(''')content( - zero - one - two - three - four - )delimiter(''')>operator(.)ident(trim)operator(()operator(\))operator(.)ident(split)operator(()string<delimiter(')content(\\n)delimiter(')>operator(\)) keyword(as) pre_type(ArrayList) - - ident(use)operator(()ident(ArrayListCategory)operator(\)) operator({) - ident(println) string<delimiter(")content(ORIGINAL)delimiter(")> - keyword(for) operator(()ident(i) keyword(in) integer(0)operator(..<)ident(lines)operator(.)ident(size)operator(()operator(\))operator(\)) - ident(println) string<delimiter(")inline<inline_delimiter(${)ident(i)inline_delimiter(})>content(: )inline<inline_delimiter(${)ident(lines)operator([)ident(i)operator(])inline_delimiter(})>delimiter(")> - - ident(a) operator(=) ident(lines)operator([)operator(-)integer(1)operator(]) - ident(lines)operator([)operator(-)integer(1)operator(]) operator(=) string<delimiter(")content(last)delimiter(")> - ident(println) string<delimiter(")content(The last line was [)inline<inline_delimiter($)ident(a)>content(])delimiter(")> - - ident(a) operator(=) ident(lines)operator([)integer(0)operator(]) - ident(lines) operator(=) operator([)string<delimiter(")content(first)delimiter(")>operator(]) operator(+) ident(lines)operator([)integer(1)operator(..)operator(-)integer(1)operator(]) - ident(println) string<delimiter(")content(The first line was [)inline<inline_delimiter($)ident(a)>content(])delimiter(")> - - ident(lines)operator(.)ident(add)operator(()integer(3)operator(,) string<delimiter(')content(Newbie)delimiter(')>operator(\)) - ident(lines)operator(.)ident(add)operator(()integer(1)operator(,) string<delimiter(')content(New One)delimiter(')>operator(\)) - - ident(lines)operator(.)ident(remove)operator(()integer(3)operator(\)) - - ident(println) string<delimiter(")content(REVERSE)delimiter(")> - operator(()ident(lines)operator(.)ident(size)operator(()operator(\)) operator(-) integer(1)operator(\))operator(.)ident(downto)operator(()integer(0)operator(\))operator({) ident(i) operator(->) - ident(println) string<delimiter(")inline<inline_delimiter(${)ident(i)inline_delimiter(})>content(: )inline<inline_delimiter(${)ident(lines)operator([)ident(i)operator(])inline_delimiter(})>delimiter(")> - operator(}) - ident(lines)operator(.)ident(save)operator(()operator(\)) - operator(}) - comment(// =>) - comment(// ORIGINAL) - comment(// 0: zero) - comment(// 1: one) - comment(// 2: two) - comment(// 3: three) - comment(// 4: four) - comment(// The last line was [four]) - comment(// The first line was [zero]) - comment(// REVERSE) - comment(// 5: last) - comment(// 4: three) - comment(// 3: Newbie) - comment(// 2: one) - comment(// 1: New One) - comment(// 0: first) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_14.8) -comment(//----------------------------------------------------------------------------------) -comment(// example using pbeans) -keyword(import) include(net.sourceforge.pbeans.*) -keyword(def) ident(ds) operator(=) keyword(new) ident(org)operator(.)ident(hsqldb)operator(.)ident(jdbc)operator(.)ident(jdbcDataSource)operator(()operator(\)) -ident(ds)operator(.)ident(database) operator(=) string<delimiter(')content(jdbc:hsqldb:hsql://localhost/mydb)delimiter(')> -ident(ds)operator(.)ident(user) operator(=) string<delimiter(')content(sa)delimiter(')> -ident(ds)operator(.)ident(password) operator(=) string<delimiter(')delimiter(')> -ident(store) operator(=) keyword(new) ident(Store)operator(()ident(ds)operator(\)) - -type(class) class(Person) directive(implements) ident(Persistent) operator({) - pre_type(String) ident(name) - pre_type(String) ident(does) - pre_type(String) ident(email) -operator(}) - -ident(name1) operator(=) string<delimiter(')content(Tom Christiansen)delimiter(')> -ident(name2) operator(=) string<delimiter(')content(Tom Boutell)delimiter(')> - -ident(store)operator(.)ident(insert)operator(()keyword(new) ident(Person)operator(()key(name)operator(:)ident(name1)operator(,) key(does)operator(:)string<delimiter(')content(book author)delimiter(')>operator(,) key(email)operator(:)string<delimiter(')content(tchrist@perl.com)delimiter(')>operator(\))operator(\)) -ident(store)operator(.)ident(insert)operator(()keyword(new) ident(Person)operator(()key(name)operator(:)ident(name2)operator(,) key(does)operator(:)string<delimiter(')content(shareware author)delimiter(')>operator(,) key(email)operator(:)string<delimiter(')content(boutell@boutell.com)delimiter(')>operator(\))operator(\)) - -ident(tom1) operator(=) ident(store)operator(.)ident(selectSingle)operator(()ident(Person)operator(.)ident(class)operator(,) string<delimiter(')content(name)delimiter(')>operator(,) ident(name1)operator(\)) -ident(tom2) operator(=) ident(store)operator(.)ident(selectSingle)operator(()ident(Person)operator(.)ident(class)operator(,) string<delimiter(')content(name)delimiter(')>operator(,) ident(name2)operator(\)) - -ident(println) string<delimiter(")content(Two Toming: )inline<inline_delimiter($)ident(tom1)>content( )inline<inline_delimiter($)ident(tom2)>delimiter(")> - -keyword(if) operator(()ident(tom1)operator(.)ident(name) operator(==) ident(tom2)operator(.)ident(name) operator(&&) ident(tom1)operator(.)ident(does) operator(==) ident(tom2)operator(.)ident(does) operator(&&) ident(tom1)operator(.)ident(email) operator(==) ident(tom2)operator(.)ident(email)operator(\)) - ident(println) string<delimiter(")content(You're having runtime fun with one Tom made two.)delimiter(")> -keyword(else) - ident(println) string<delimiter(")content(No two Toms are ever alike)delimiter(")> - -ident(tom2)operator(.)ident(does) operator(=) string<delimiter(')content(Poet Programmer)delimiter(')> -ident(store)operator(.)ident(save)operator(()ident(tom2)operator(\)) -comment(// =>) -comment(// Two Toming: Person@12884e0 Person@8ab708) -comment(// No two Toms are ever alike) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_14.9) -comment(//----------------------------------------------------------------------------------) -comment(// Use one of the mechanisms mentioned in 14.1 to load variables at the start) -comment(// of the script and save them at the end. You can save the binding, individual) -comment(// variables, maps of variables or composite objects.) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_14.10) -comment(//----------------------------------------------------------------------------------) -keyword(import) include(groovy.sql.Sql) - -ident(users) operator(=) operator([)string<delimiter(')content(20)delimiter(')>operator(:)string<delimiter(')content(Joe Bloggs)delimiter(')>operator(,) string<delimiter(')content(40)delimiter(')>operator(:)string<delimiter(')content(Bill Clinton)delimiter(')>operator(,) string<delimiter(')content(60)delimiter(')>operator(:)string<delimiter(')content(Ben Franklin)delimiter(')>operator(]) - -keyword(def) ident(source) operator(=) keyword(new) ident(org)operator(.)ident(hsqldb)operator(.)ident(jdbc)operator(.)ident(jdbcDataSource)operator(()operator(\)) -ident(source)operator(.)ident(database) operator(=) string<delimiter(')content(jdbc:hsqldb:mem:PLEAC)delimiter(')> -ident(source)operator(.)ident(user) operator(=) string<delimiter(')content(sa)delimiter(')> -ident(source)operator(.)ident(password) operator(=) string<delimiter(')delimiter(')> -ident(db) operator(=) keyword(new) ident(Sql)operator(()ident(source)operator(\)) - -ident(db)operator(.)ident(execute) string<delimiter(')content(CREATE TABLE users ( uid INT, login CHAR(8\) \);)delimiter(')> -ident(users)operator(.)ident(each)operator({) ident(uid)operator(,) ident(login) operator(->) - ident(db)operator(.)ident(execute) string<delimiter(")content(INSERT INTO users ( uid, login \) VALUES ()inline<inline_delimiter($)ident(uid)>content(,)inline<inline_delimiter($)ident(login)>content(\);)delimiter(")> -operator(}) -ident(db)operator(.)ident(eachRow)operator(()string<delimiter(')content(SELECT uid, login FROM users WHERE uid < 50)delimiter(')>operator(\))operator({) - ident(println) string<delimiter(")inline<inline_delimiter($)local_variable(it)>content(.uid )inline<inline_delimiter($)local_variable(it)>content(.login)delimiter(")> -operator(}) -ident(db)operator(.)ident(execute) string<delimiter(')content(DROP TABLE users;)delimiter(')> -comment(// =>) -comment(// 20 Joe Bloggs) -comment(// 40 Bill Clinton) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_14.11) -comment(//----------------------------------------------------------------------------------) -comment(// variation to cookbook: uses Firefox instead of Netscape, always assumes) -comment(// argument is a regex, has some others args, retains no args to list all) - -comment(// uses jmork mork dbm reading library:) -comment(// http://www.smartwerkz.com/projects/jmork/index.html) -keyword(import) include(mork.*) -keyword(def) ident(cli) operator(=) keyword(new) ident(CliBuilder)operator(()operator(\)) -ident(cli)operator(.)ident(h)operator(()key(longOpt)operator(:) string<delimiter(')content(help)delimiter(')>operator(,) string<delimiter(')content(print this message)delimiter(')>operator(\)) -ident(cli)operator(.)ident(e)operator(()key(longOpt)operator(:) string<delimiter(')content(exclude)delimiter(')>operator(,) string<delimiter(')content(exclude hidden history entries (js, css, ads and images\))delimiter(')>operator(\)) -ident(cli)operator(.)ident(c)operator(()key(longOpt)operator(:) string<delimiter(')content(clean)delimiter(')>operator(,) string<delimiter(')content(clean off url query string when reporting urls)delimiter(')>operator(\)) -ident(cli)operator(.)ident(v)operator(()key(longOpt)operator(:) string<delimiter(')content(verbose)delimiter(')>operator(,) string<delimiter(')content(show referrer and first visit date)delimiter(')>operator(\)) -keyword(def) ident(options) operator(=) ident(cli)operator(.)ident(parse)operator(()ident(args)operator(\)) -keyword(if) operator(()ident(options)operator(.)ident(h)operator(\)) operator({) ident(cli)operator(.)ident(usage)operator(()operator(\))operator(;) pre_type(System)operator(.)ident(exit)operator(()integer(0)operator(\)) operator(}) -ident(regex) operator(=) ident(options)operator(.)ident(arguments)operator(()operator(\)) -keyword(if) operator(()ident(regex)operator(\)) ident(regex) operator(=) ident(regex)operator([)integer(0)operator(]) -ident(reader) operator(=) keyword(new) pre_type(FileReader)operator(()string<delimiter(')content(Pleac/data/history.dat)delimiter(')>operator(\)) -ident(morkDocument) operator(=) keyword(new) ident(MorkDocument)operator(()ident(reader)operator(\)) -ident(tables) operator(=) ident(morkDocument)operator(.)ident(tables) -ident(tables)operator(.)ident(each)operator({) ident(table) operator(->) - ident(table)operator(.)ident(rows)operator(.)ident(each) operator({) ident(row) operator(->) - ident(url) operator(=) ident(row)operator(.)ident(getValue)operator(()string<delimiter(')content(URL)delimiter(')>operator(\)) - keyword(if) operator(()ident(options)operator(.)ident(c)operator(\)) ident(url) operator(=) ident(url)operator(.)ident(tokenize)operator(()string<delimiter(')content(?)delimiter(')>operator(\))operator([)integer(0)operator(]) - keyword(if) operator(()operator(!)ident(regex) operator(||) ident(url) operator(=~) ident(regex)operator(\)) operator({) - keyword(if) operator(()operator(!)ident(options)operator(.)ident(e) operator(||) ident(row)operator(.)ident(getValue)operator(()string<delimiter(')content(Hidden)delimiter(')>operator(\)) operator(!=) string<delimiter(')content(1)delimiter(')>operator(\)) operator({) - ident(println) string<delimiter(")inline<inline_delimiter($)ident(url)>char(\\n)content( Last Visited: )inline<inline_delimiter(${)ident(date)operator(()ident(row)operator(,)string<delimiter(')content(LastVisitDate)delimiter(')>operator(\))inline_delimiter(})>delimiter(")> - keyword(if) operator(()ident(options)operator(.)ident(v)operator(\)) operator({) - ident(println) string<delimiter(")content( First Visited: )inline<inline_delimiter(${)ident(date)operator(()ident(row)operator(,)string<delimiter(')content(FirstVisitDate)delimiter(')>operator(\))inline_delimiter(})>delimiter(")> - ident(println) string<delimiter(")content( Referrer: )inline<inline_delimiter(${)ident(row)operator(.)ident(getValue)operator(()string<delimiter(')content(Referrer)delimiter(')>operator(\))inline_delimiter(})>delimiter(")> - operator(}) - operator(}) - operator(}) - operator(}) -operator(}) -keyword(def) method(date)operator(()ident(row)operator(,) ident(key)operator(\)) operator({) - keyword(return) keyword(new) pre_type(Date)operator(()operator(()type(long)operator(\))operator(()ident(row)operator(.)ident(getValue)operator(()ident(key)operator(\))operator(.)ident(toLong)operator(()operator(\))operator(/)integer(1000)operator(\))operator(\)) -operator(}) -comment(// $ groovy gfh -ev oracle' =>) -comment(// http://www.oracle.com/technology/products/jdev/index.html) -comment(// Last Visited: Thu Feb 15 20:20:36 EST 2007) -comment(// First Visited: Thu Feb 15 20:20:36 EST 2007) -comment(// Referrer: http://docs.codehaus.org/display/GROOVY/Oracle+JDeveloper+Plugin) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_15.1) -comment(//----------------------------------------------------------------------------------) -comment(// The are several Java options builder packages available. Some popular ones:) -comment(// Apache Jakarta Commons CLI: http://jakarta.apache.org/commons/cli/) -comment(// jopt-simple: http://jopt-simple.sourceforge.net) -comment(// args4j: https://args4j.dev.java.net/ (requires Java 5 with annotations\)) -comment(// jargs: http://jargs.sourceforge.net/) -comment(// te-code: http://te-code.sourceforge.net/article-20041121-cli.html) -comment(// Most of these can be used from Groovy with some Groovy code benefits.) -comment(// Groovy also has the CliBuilder built right in.) - - -comment(// CliBuilder example) -keyword(def) ident(cli) operator(=) keyword(new) ident(CliBuilder)operator(()operator(\)) -ident(cli)operator(.)ident(v)operator(()key(longOpt)operator(:) string<delimiter(')content(verbose)delimiter(')>operator(,) string<delimiter(')content(verbose mode)delimiter(')>operator(\)) -ident(cli)operator(.)ident(D)operator(()key(longOpt)operator(:) string<delimiter(')content(Debug)delimiter(')>operator(,) string<delimiter(')content(display debug info)delimiter(')>operator(\)) -ident(cli)operator(.)ident(o)operator(()key(longOpt)operator(:) string<delimiter(')content(output)delimiter(')>operator(,) string<delimiter(')content(use/specify output file)delimiter(')>operator(\)) -keyword(def) ident(options) operator(=) ident(cli)operator(.)ident(parse)operator(()ident(args)operator(\)) -keyword(if) operator(()ident(options)operator(.)ident(v)operator(\)) comment(// ...) -keyword(if) operator(()ident(options)operator(.)ident(D)operator(\)) ident(println) string<delimiter(')content(Debugging info available)delimiter(')> -keyword(if) operator(()ident(options)operator(.)ident(o)operator(\)) operator({) - ident(println) string<delimiter(')content(Output file flag was specified)delimiter(')> - ident(println) string<delimiter(")content(Output file is )inline<inline_delimiter(${)ident(options)operator(.)ident(o)inline_delimiter(})>delimiter(")> -operator(}) -comment(// ...) - - -comment(// jopt-simple example 1 (short form\)) -ident(cli) operator(=) keyword(new) ident(joptsimple)operator(.)ident(OptionParser)operator(()string<delimiter(")content(vDo::)delimiter(")>operator(\)) -ident(options) operator(=) ident(cli)operator(.)ident(parse)operator(()ident(args)operator(\)) -keyword(if) operator(()ident(options)operator(.)ident(wasDetected)operator(()string<delimiter(')content(o)delimiter(')>operator(\))operator(\)) operator({) - ident(println) string<delimiter(')content(Output file flag was specified.)delimiter(')> - ident(println) string<delimiter(")content(Output file is )inline<inline_delimiter(${)ident(options)operator(.)ident(argumentsOf)operator(()string<delimiter(')content(o)delimiter(')>operator(\))inline_delimiter(})>delimiter(")> -operator(}) -comment(// ...) - - -comment(// jopt-simple example 2 (declarative form\)) -ident(op) operator(=) keyword(new) ident(joptsimple)operator(.)ident(OptionParser)operator(()operator(\)) -ident(VERBOSE) operator(=) string<delimiter(')content(v)delimiter(')>operator(;) ident(op)operator(.)ident(accepts)operator(() ident(VERBOSE)operator(,) string<delimiter(")content(verbose mode)delimiter(")> operator(\)) -ident(DEBUG) operator(=) string<delimiter(')content(D)delimiter(')>operator(;) ident(op)operator(.)ident(accepts)operator(() ident(DEBUG)operator(,) string<delimiter(")content(display debug info)delimiter(")> operator(\)) -ident(OUTPUT) operator(=) string<delimiter(')content(o)delimiter(')>operator(;) ident(op)operator(.)ident(accepts)operator(() ident(OUTPUT)operator(,) string<delimiter(")content(use/specify output file)delimiter(")> operator(\))operator(.)ident(withOptionalArg)operator(()operator(\))operator(.) - ident(describedAs)operator(() string<delimiter(")content(file)delimiter(")> operator(\))operator(.)ident(ofType)operator(() pre_type(File)operator(.)ident(class) operator(\)) -ident(options) operator(=) ident(op)operator(.)ident(parse)operator(()ident(args)operator(\)) -ident(params) operator(=) ident(options)operator(.)ident(nonOptionArguments)operator(()operator(\)) -keyword(if) operator(()ident(options)operator(.)ident(wasDetected)operator(() ident(DEBUG) operator(\))operator(\)) ident(println) string<delimiter(')content(Debugging info available)delimiter(')> -comment(// ...) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_15.2) -comment(//----------------------------------------------------------------------------------) -comment(// Groovy like Java can be run in a variety of scenarios, not just interactive vs) -comment(// non-interative, e.g. within a servlet container. Sometimes InputStreams and other) -comment(// mechanisms are used to hide away differences between the different containers) -comment(// in which code is run; other times, code needs to be written purpose-built for) -comment(// the container in which it is running. In most situations where the latter applies) -comment(// the container will have specific lifecycle mechanisms to allow the code to) -comment(// access specific needs, e.g. javax.servlet.ServletRequest.getInputStream(\)) -comment(// rather than System.in) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_15.3) -comment(//----------------------------------------------------------------------------------) -comment(// Idiomatically Groovy encourages GUI over text-based applications where a rich) -comment(// interface is desirable. Libraries for richer text-based interfaces include:) -comment(// jline: http://jline.sourceforge.net) -comment(// jcurses: http://sourceforge.net/projects/javacurses/) -comment(// java-readline: http://java-readline.sourceforge.net) -comment(// enigma console: http://sourceforge.net/projects/enigma-shell/) -comment(// Note: Run examples using these libraries from command line not inside an IDE.) - -comment(// If you are using a terminal/console that understands ANSI codes) -comment(// (excludes WinNT derivatives\) you can just print the ANSI codes) -ident(print) operator(()operator(()type(char)operator(\))integer(27) operator(+) string<delimiter(')content([2J)delimiter(')>operator(\)) - -comment(// jline has constants for ANSI codes) -keyword(import) include(jline.ANSIBuffer) -ident(print) ident(ANSIBuffer)operator(.)ident(ANSICodes)operator(.)ident(clrscr)operator(()operator(\)) -comment(// Also available through ConsoleReader.clearScreen(\)) - -comment(// Using jcurses) -keyword(import) include(jcurses.system.*) -ident(bg) operator(=) ident(CharColor)operator(.)ident(BLACK) -ident(fg) operator(=) ident(CharColor)operator(.)ident(WHITE) -ident(screenColors) operator(=) keyword(new) ident(CharColor)operator(()ident(bg)operator(,) ident(fg)operator(\)) -pre_type(Toolkit)operator(.)ident(clearScreen)operator(()ident(screenColors)operator(\)) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_15.4) -comment(//----------------------------------------------------------------------------------) -comment(// Not idiomatic for Groovy to use text-based applications here.) - -comment(// Using jcurses: http://sourceforge.net/projects/javacurses/) -comment(// use Toolkit.screenWidth and Toolkit.screenHeight) - -comment(// 'barchart' example) -keyword(import) include(jcurses.system.Toolkit) -ident(numCols) operator(=) pre_type(Toolkit)operator(.)ident(screenWidth) -ident(rand) operator(=) keyword(new) pre_type(Random)operator(()operator(\)) -keyword(if) operator(()ident(numCols) operator(<) integer(20)operator(\)) keyword(throw) keyword(new) exception(RuntimeException)operator(()string<delimiter(")content(You must have at least 20 characters)delimiter(")>operator(\)) -ident(values) operator(=) operator(()integer(1)operator(..)integer(5)operator(\))operator(.)ident(collect) operator({) ident(rand)operator(.)ident(nextInt)operator(()integer(20)operator(\)) operator(}) comment(// generate rand values) -ident(max) operator(=) ident(values)operator(.)ident(max)operator(()operator(\)) -ident(ratio) operator(=) operator(()ident(numCols) operator(-) integer(12)operator(\))operator(/)ident(max) -ident(values)operator(.)ident(each)operator({) ident(i) operator(->) - ident(printf)operator(()string<delimiter(')content(%8.1f %s\\n)delimiter(')>operator(,) operator([)ident(i) keyword(as) type(double)operator(,) string<delimiter(")content(*)delimiter(")> operator(*) ident(ratio) operator(*) ident(i)operator(])operator(\)) -operator(}) - -comment(// gives, for example:) -comment(// 15.0 *******************************) -comment(// 10.0 *********************) -comment(// 5.0 **********) -comment(// 14.0 *****************************) -comment(// 18.0 **************************************) -comment(// Run from command line not inside an IDE which may give false width/height values.) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_15.5) -comment(//----------------------------------------------------------------------------------) -comment(// Idiomatically Groovy encourages GUI over text-based applications where a rich) -comment(// interface is desirable. See 15.3 for richer text-based interface libraries.) -comment(// Note: Run examples using these libraries from command line not inside an IDE.) - -comment(// If you are using a terminal/console that understands ANSI codes) -comment(// (excludes WinNT derivatives\) you can just print the ANSI codes) -ident(ESC) operator(=) string<delimiter(")inline<inline_delimiter(${)operator(()type(char)operator(\))integer(27)inline_delimiter(})>delimiter(")> -ident(redOnBlack) operator(=) ident(ESC) operator(+) string<delimiter(')content([31;40m)delimiter(')> -ident(reset) operator(=) ident(ESC) operator(+) string<delimiter(')content([0m)delimiter(')> -ident(println) operator(()ident(redOnBlack) operator(+) string<delimiter(')content(Danger, Will Robinson!)delimiter(')> operator(+) ident(reset)operator(\)) - -comment(// jline has constants for ANSI codes) -keyword(import) include(jline.ANSIBuffer) -ident(redOnBlack) operator(=) ident(ANSIBuffer)operator(.)ident(ANSICodes)operator(.)ident(attrib)operator(()integer(31)operator(\)) operator(+) ident(ANSIBuffer)operator(.)ident(ANSICodes)operator(.)ident(attrib)operator(()integer(40)operator(\)) -ident(reset) operator(=) ident(ANSIBuffer)operator(.)ident(ANSICodes)operator(.)ident(attrib)operator(()integer(0)operator(\)) -ident(println) ident(redOnBlack) operator(+) string<delimiter(')content(Danger, Will Robinson!)delimiter(')> operator(+) ident(reset) - -comment(// Using JavaCurses) -keyword(import) include(jcurses.system.*) -keyword(import) include(jcurses.widgets.*) -ident(whiteOnBlack) operator(=) keyword(new) ident(CharColor)operator(()ident(CharColor)operator(.)ident(BLACK)operator(,) ident(CharColor)operator(.)ident(WHITE)operator(\)) -pre_type(Toolkit)operator(.)ident(clearScreen)operator(()ident(whiteOnBlack)operator(\)) -ident(redOnBlack) operator(=) keyword(new) ident(CharColor)operator(()ident(CharColor)operator(.)ident(BLACK)operator(,) ident(CharColor)operator(.)ident(RED)operator(\)) -pre_type(Toolkit)operator(.)ident(printString)operator(()string<delimiter(")content(Danger, Will Robinson!)delimiter(")>operator(,) integer(0)operator(,) integer(0)operator(,) ident(redOnBlack)operator(\)) -pre_type(Toolkit)operator(.)ident(printString)operator(()string<delimiter(")content(This is just normal text.)delimiter(")>operator(,) integer(0)operator(,) integer(1)operator(,) ident(whiteOnBlack)operator(\)) -comment(// Blink not supported by JavaCurses) - -comment(// Using jline constants for Blink) -ident(blink) operator(=) ident(ANSIBuffer)operator(.)ident(ANSICodes)operator(.)ident(attrib)operator(()integer(5)operator(\)) -ident(reset) operator(=) ident(ANSIBuffer)operator(.)ident(ANSICodes)operator(.)ident(attrib)operator(()integer(0)operator(\)) -ident(println) operator(()ident(blink) operator(+) string<delimiter(')content(Do you hurt yet?)delimiter(')> operator(+) ident(reset)operator(\)) - -comment(// Using jline constants for Coral snake rhyme) -keyword(def) method(ansi)operator(()ident(code)operator(\)) operator({) ident(ANSIBuffer)operator(.)ident(ANSICodes)operator(.)ident(attrib)operator(()ident(code)operator(\)) operator(}) -ident(redOnBlack) operator(=) ident(ansi)operator(()integer(31)operator(\)) operator(+) ident(ansi)operator(()integer(40)operator(\)) -ident(redOnYellow) operator(=) ident(ansi)operator(()integer(31)operator(\)) operator(+) ident(ansi)operator(()integer(43)operator(\)) -ident(greenOnCyanBlink) operator(=) ident(ansi)operator(()integer(32)operator(\)) operator(+) ident(ansi)operator(()integer(46)operator(\)) operator(+) ident(ansi)operator(()integer(5)operator(\)) -ident(reset) operator(=) ident(ansi)operator(()integer(0)operator(\)) -ident(println) ident(redOnBlack) operator(+) string<delimiter(")content(venom lack)delimiter(")> -ident(println) ident(redOnYellow) operator(+) string<delimiter(")content(kill that fellow)delimiter(")> -ident(println) ident(greenOnCyanBlink) operator(+) string<delimiter(")content(garish!)delimiter(")> operator(+) ident(reset) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_15.6) -comment(//----------------------------------------------------------------------------------) -comment(// Default Java libraries buffer System.in by default.) - -comment(// Using JavaCurses:) -keyword(import) include(jcurses.system.Toolkit) -ident(print) string<delimiter(')content(Press a key: )delimiter(')> -ident(println) string<delimiter(")char(\\n)content(You pressed the ')inline<inline_delimiter(${)pre_type(Toolkit)operator(.)ident(readCharacter)operator(()operator(\))operator(.)ident(character)inline_delimiter(})>content(' key)delimiter(")> - -comment(// Also works for special keys:) -keyword(import) include(jcurses.system.InputChar) -ident(print) string<delimiter(")content(Press the 'End' key to finish: )delimiter(")> -ident(ch) operator(=) pre_type(Toolkit)operator(.)ident(readCharacter)operator(()operator(\)) -keyword(assert) ident(ch)operator(.)ident(isSpecialCode)operator(()operator(\)) -keyword(assert) ident(ch)operator(.)ident(code) operator(==) ident(InputChar)operator(.)ident(KEY_END) - -comment(// See also jline Terminal#readCharacter(\) and Terminal#readVirtualKey(\)) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_15.7) -comment(//----------------------------------------------------------------------------------) -ident(print) string<delimiter(")inline<inline_delimiter(${)operator(()type(char)operator(\))integer(7)inline_delimiter(})>delimiter(")> - -comment(// Using jline constant) -ident(print) string<delimiter(")inline<inline_delimiter(${)ident(jline)operator(.)ident(ConsoleOperations)operator(.)ident(KEYBOARD_BELL)inline_delimiter(})>delimiter(")> -comment(// Also available through ConsoleReader.beep(\)) - -comment(// Using JavaCurses (Works only with terminals that support 'beeps'\)) -keyword(import) include(jcurses.system.Toolkit) -pre_type(Toolkit)operator(.)ident(beep)operator(()operator(\)) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_15.8) -comment(//----------------------------------------------------------------------------------) -comment(// I think you would need to resort to platform specific calls here,) -comment(// E.g. on *nix systems call 'stty' using execute(\).) -comment(// Some things can be set through the packages mentioned in 15.3, e.g.) -comment(// echo can be turned on and off, but others like setting the kill character) -comment(// didn't appear to be supported (presumably because it doesn't make) -comment(// sense for a cross-platform toolkit\).) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_15.9) -comment(//----------------------------------------------------------------------------------) -comment(// Consider using Java's PushbackInputStream or PushbackReader) -comment(// Different functionality to original cookbook but can be used) -comment(// as an alternative for some scenarios.) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_15.10) -comment(//----------------------------------------------------------------------------------) -comment(// If using Java 6, use Console.readPassword(\)) -comment(// Otherwise use jline (use 0 instead of mask character '*' for no echo\):) -ident(password) operator(=) keyword(new) ident(jline)operator(.)ident(ConsoleReader)operator(()operator(\))operator(.)ident(readLine)operator(()keyword(new) pre_type(Character)operator(()string<delimiter(')content(*)delimiter(')>operator(\))operator(\)) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_15.11) -comment(//----------------------------------------------------------------------------------) -comment(// In Groovy (like Java\) normal input is buffered so you can normally make) -comment(// edits before hitting 'Enter'. For more control over editing (including completion) -comment(// and history etc.\) use one of the packages mentioned in 15.3, e.g. jline.) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_15.12) -comment(//----------------------------------------------------------------------------------) -comment(// Use javacurses or jline (see 15.3\) for low level screen management.) -comment(// Java/Groovy would normally use a GUI for such functionality.) - -comment(// Here is a slight variation to cookbook example. This repeatedly calls) -comment(// the command feedin on the command line, e.g. "cmd /c dir" on windows) -comment(// or 'ps -aux' on Linux. Whenever a line changes, the old line is "faded) -comment(// out" using font colors from white through to black. Then the new line) -comment(// is faded in using the reverse process.) -keyword(import) include(jcurses.system.*) -ident(color) operator(=) keyword(new) ident(CharColor)operator(()ident(CharColor)operator(.)ident(BLACK)operator(,) ident(CharColor)operator(.)ident(WHITE)operator(\)) -pre_type(Toolkit)operator(.)ident(clearScreen)operator(()ident(color)operator(\)) -ident(maxcol) operator(=) pre_type(Toolkit)operator(.)ident(screenWidth) -ident(maxrow) operator(=) pre_type(Toolkit)operator(.)ident(screenHeight) -ident(colors) operator(=) operator([)ident(CharColor)operator(.)ident(WHITE)operator(,) ident(CharColor)operator(.)ident(CYAN)operator(,) ident(CharColor)operator(.)ident(YELLOW)operator(,) ident(CharColor)operator(.)ident(GREEN)operator(,) - ident(CharColor)operator(.)ident(RED)operator(,) ident(CharColor)operator(.)ident(BLUE)operator(,) ident(CharColor)operator(.)ident(MAGENTA)operator(,) ident(CharColor)operator(.)ident(BLACK)operator(]) -ident(done) operator(=) pre_constant(false) -ident(refresh) operator(=) pre_constant(false) -ident(waittime) operator(=) integer(8000) -ident(oldlines) operator(=) type([]) -keyword(def) method(fade)operator(()ident(line)operator(,) ident(row)operator(,) ident(colorList)operator(\)) operator({) - keyword(for) operator(()ident(i) keyword(in) integer(0)operator(..<)ident(colorList)operator(.)ident(size)operator(()operator(\))operator(\)) operator({) - pre_type(Toolkit)operator(.)ident(printString)operator(()ident(line)operator(,) integer(0)operator(,) ident(row)operator(,) keyword(new) ident(CharColor)operator(()ident(CharColor)operator(.)ident(BLACK)operator(,) ident(colorList)operator([)ident(i)operator(])operator(\))operator(\)) - ident(sleep) integer(10) - operator(}) -operator(}) -keyword(while)operator(()operator(!)ident(done)operator(\)) operator({) - keyword(if) operator(()ident(waittime) operator(>) integer(9999) operator(||) ident(refresh)operator(\)) operator({) - ident(proc) operator(=) ident(args)operator([)integer(0)operator(])operator(.)ident(execute)operator(()operator(\)) - ident(lines) operator(=) ident(proc)operator(.)ident(text)operator(.)ident(split)operator(()string<delimiter(')content(\\n)delimiter(')>operator(\)) - keyword(for) operator(()ident(r) keyword(in) integer(0)operator(..<)ident(maxrow)operator(\)) operator({) - keyword(if) operator(()ident(r) operator(>=) ident(lines)operator(.)ident(size)operator(()operator(\)) operator(||) ident(r) operator(>) ident(oldlines)operator(.)ident(size)operator(()operator(\)) operator(||) ident(lines)operator([)ident(r)operator(]) operator(!=) ident(oldlines)operator([)ident(r)operator(])operator(\)) operator({) - keyword(if) operator(()ident(oldlines) operator(!=) type([])operator(\)) - ident(fade)operator(()ident(r) operator(<) ident(oldlines)operator(.)ident(size)operator(()operator(\)) operator(?) ident(oldlines)operator([)ident(r)operator(]) operator(:) string<delimiter(')content( )delimiter(')> operator(*) ident(maxcol)operator(,) ident(r)operator(,) ident(colors)operator(\)) - ident(fade)operator(()ident(r) operator(<) ident(lines)operator(.)ident(size)operator(()operator(\)) operator(?) ident(lines)operator([)ident(r)operator(]) operator(:) string<delimiter(')content( )delimiter(')> operator(*) ident(maxcol)operator(,) ident(r)operator(,) ident(colors)operator(.)ident(reverse)operator(()operator(\))operator(\)) - operator(}) - operator(}) - ident(oldlines) operator(=) ident(lines) - ident(refresh) operator(=) pre_constant(false) - ident(waittime) operator(=) integer(0) - operator(}) - ident(waittime) operator(+=) integer(200) - ident(sleep) integer(200) -operator(}) - -comment(// Keyboard handling would be similar to 15.6.) -comment(// Something like below but need to synchronize as we are in different threads.) -pre_type(Thread)operator(.)ident(start)operator({) - keyword(while)operator(()operator(!)ident(done)operator(\)) operator({) - ident(ch) operator(=) pre_type(Toolkit)operator(.)ident(readCharacter)operator(()operator(\)) - keyword(if) operator(()ident(ch)operator(.)ident(isSpecialCode)operator(()operator(\)) operator(||) ident(ch)operator(.)ident(character) operator(==) string<delimiter(')content(q)delimiter(')>operator(\)) ident(done) operator(=) pre_constant(true) - keyword(else) ident(refresh) operator(=) pre_constant(true) - operator(}) -operator(}) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_15.13) -comment(//----------------------------------------------------------------------------------) -comment(// These examples uses expectj, a pure Java Expect-like module.) -comment(// http://expectj.sourceforge.net/) -ident(defaultTimeout) operator(=) operator(-)integer(1) comment(// infinite) -ident(expect) operator(=) keyword(new) ident(expectj)operator(.)ident(ExpectJ)operator(()string<delimiter(")content(logfile.log)delimiter(")>operator(,) ident(defaultTimeout)operator(\)) -ident(command) operator(=) ident(expect)operator(.)ident(spawn)operator(()string<delimiter(")content(program to run)delimiter(")>operator(\)) -ident(command)operator(.)ident(expect)operator(()string<delimiter(')content(Password)delimiter(')>operator(,) integer(10)operator(\)) -comment(// expectj doesn't support regular expressions, but see readUntil) -comment(// in recipe 18.6 for how to manually code this) -ident(command)operator(.)ident(expect)operator(()string<delimiter(')content(invalid)delimiter(')>operator(\)) -ident(command)operator(.)ident(send)operator(()string<delimiter(')content(Hello, world\\r)delimiter(')>operator(\)) -comment(// kill spawned process) -ident(command)operator(.)ident(stop)operator(()operator(\)) - -comment(// expecting multiple choices) -comment(// expectj doesn't support multiple choices, but see readUntil) -comment(// in recipe 18.6 for how to manually code this) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_15.14) -comment(//----------------------------------------------------------------------------------) -comment(// Methods not shown for the edit menu items, they would be the same as for the) -comment(// file menu items.) -keyword(import) include(groovy.swing.SwingBuilder) -keyword(def) method(print)operator(()operator(\)) operator({)operator(}) -keyword(def) method(save)operator(()operator(\)) operator({)operator(}) -ident(frame) operator(=) keyword(new) ident(SwingBuilder)operator(()operator(\))operator(.)ident(frame)operator(()key(title)operator(:)string<delimiter(')content(Demo)delimiter(')>operator(\)) operator({) - ident(menuBar) operator({) - ident(menu)operator(()key(mnemonic)operator(:)string<delimiter(')content(F)delimiter(')>operator(,) string<delimiter(')content(File)delimiter(')>operator(\)) operator({) - ident(menuItem) operator(()key(actionPerformed)operator(:)local_variable(this)operator(.)operator(&)ident(print)operator(,) string<delimiter(')content(Print)delimiter(')>operator(\)) - ident(separator)operator(()operator(\)) - ident(menuItem) operator(()key(actionPerformed)operator(:)local_variable(this)operator(.)operator(&)ident(save)operator(,) string<delimiter(')content(Save)delimiter(')>operator(\)) - ident(menuItem) operator(()key(actionPerformed)operator(:)operator({)pre_type(System)operator(.)ident(exit)operator(()integer(0)operator(\))operator(})operator(,) string<delimiter(')content(Quit immediately)delimiter(')>operator(\)) - operator(}) - ident(menu)operator(()key(mnemonic)operator(:)string<delimiter(')content(O)delimiter(')>operator(,) string<delimiter(')content(Options)delimiter(')>operator(\)) operator({) - ident(checkBoxMenuItem) operator(()string<delimiter(')content(Create Debugging Info)delimiter(')>operator(,) key(state)operator(:)pre_constant(true)operator(\)) - operator(}) - ident(menu)operator(()key(mnemonic)operator(:)string<delimiter(')content(D)delimiter(')>operator(,) string<delimiter(')content(Debug)delimiter(')>operator(\)) operator({) - ident(group) operator(=) ident(buttonGroup)operator(()operator(\)) - ident(radioButtonMenuItem) operator(()string<delimiter(')content(Log Level 1)delimiter(')>operator(,) key(buttonGroup)operator(:)ident(group)operator(,) key(selected)operator(:)pre_constant(true)operator(\)) - ident(radioButtonMenuItem) operator(()string<delimiter(')content(Log Level 2)delimiter(')>operator(,) key(buttonGroup)operator(:)ident(group)operator(\)) - ident(radioButtonMenuItem) operator(()string<delimiter(')content(Log Level 3)delimiter(')>operator(,) key(buttonGroup)operator(:)ident(group)operator(\)) - operator(}) - ident(menu)operator(()key(mnemonic)operator(:)string<delimiter(')content(F)delimiter(')>operator(,) string<delimiter(')content(Format)delimiter(')>operator(\)) operator({) - ident(menu)operator(()string<delimiter(')content(Font)delimiter(')>operator(\)) operator({) - ident(group) operator(=) ident(buttonGroup)operator(()operator(\)) - ident(radioButtonMenuItem) operator(()string<delimiter(')content(Times Roman)delimiter(')>operator(,) key(buttonGroup)operator(:)ident(group)operator(,) key(selected)operator(:)pre_constant(true)operator(\)) - ident(radioButtonMenuItem) operator(()string<delimiter(')content(Courier)delimiter(')>operator(,) key(buttonGroup)operator(:)ident(group)operator(\)) - operator(}) - operator(}) - ident(menu)operator(()key(mnemonic)operator(:)string<delimiter(')content(E)delimiter(')>operator(,) string<delimiter(')content(Edit)delimiter(')>operator(\)) operator({) - ident(menuItem) operator(()key(actionPerformed)operator(:)operator({)operator(})operator(,) string<delimiter(')content(Copy)delimiter(')>operator(\)) - ident(menuItem) operator(()key(actionPerformed)operator(:)operator({)operator(})operator(,) string<delimiter(')content(Cut)delimiter(')>operator(\)) - ident(menuItem) operator(()key(actionPerformed)operator(:)operator({)operator(})operator(,) string<delimiter(')content(Paste)delimiter(')>operator(\)) - ident(menuItem) operator(()key(actionPerformed)operator(:)operator({)operator(})operator(,) string<delimiter(')content(Delete)delimiter(')>operator(\)) - ident(separator)operator(()operator(\)) - ident(menu)operator(()string<delimiter(')content(Object ...)delimiter(')>operator(\)) operator({) - ident(menuItem) operator(()key(actionPerformed)operator(:)operator({)operator(})operator(,) string<delimiter(')content(Circle)delimiter(')>operator(\)) - ident(menuItem) operator(()key(actionPerformed)operator(:)operator({)operator(})operator(,) string<delimiter(')content(Square)delimiter(')>operator(\)) - ident(menuItem) operator(()key(actionPerformed)operator(:)operator({)operator(})operator(,) string<delimiter(')content(Point)delimiter(')>operator(\)) - operator(}) - operator(}) - operator(}) -operator(}) -ident(frame)operator(.)ident(pack)operator(()operator(\)) -ident(frame)operator(.)ident(show)operator(()operator(\)) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_15.15) -comment(//----------------------------------------------------------------------------------) -comment(// Registration Example) -keyword(import) include(groovy.swing.SwingBuilder) -keyword(def) method(cancel)operator(()ident(event)operator(\)) operator({) - ident(println) string<delimiter(')content(Sorry you decided not to register.)delimiter(')> - ident(dialog)operator(.)ident(dispose)operator(()operator(\)) -operator(}) -keyword(def) method(register)operator(()ident(event)operator(\)) operator({) - keyword(if) operator(()ident(swing)operator(.)ident(name)operator(?)operator(.)ident(text)operator(\)) operator({) - ident(println) string<delimiter(")content(Welcome to the fold )inline<inline_delimiter($)ident(swing)>content(.name.text)delimiter(")> - ident(dialog)operator(.)ident(dispose)operator(()operator(\)) - operator(}) keyword(else) ident(println) string<delimiter(")content(You didn't give me your name!)delimiter(")> -operator(}) -keyword(def) method(dialog)operator(()ident(event)operator(\)) operator({) - ident(dialog) operator(=) ident(swing)operator(.)ident(createDialog)operator(()key(title)operator(:)string<delimiter(')content(Entry)delimiter(')>operator(\)) - keyword(def) ident(panel) operator(=) ident(swing)operator(.)ident(panel) operator({) - ident(vbox) operator({) - ident(hbox) operator({) - ident(label)operator(()key(text)operator(:)string<delimiter(')content(Name)delimiter(')>operator(\)) - ident(textField)operator(()key(columns)operator(:)integer(20)operator(,) key(id)operator(:)string<delimiter(')content(name)delimiter(')>operator(\)) - operator(}) - ident(hbox) operator({) - ident(button)operator(()string<delimiter(')content(Register)delimiter(')>operator(,) key(actionPerformed)operator(:)local_variable(this)operator(.)operator(&)ident(register)operator(\)) - ident(button)operator(()string<delimiter(')content(Cancel)delimiter(')>operator(,) key(actionPerformed)operator(:)local_variable(this)operator(.)operator(&)ident(cancel)operator(\)) - operator(}) - operator(}) - operator(}) - ident(dialog)operator(.)ident(getContentPane)operator(()operator(\))operator(.)ident(add)operator(()ident(panel)operator(\)) - ident(dialog)operator(.)ident(pack)operator(()operator(\)) - ident(dialog)operator(.)ident(show)operator(()operator(\)) -operator(}) -ident(swing) operator(=) keyword(new) ident(SwingBuilder)operator(()operator(\)) -ident(frame) operator(=) ident(swing)operator(.)ident(frame)operator(()key(title)operator(:)string<delimiter(')content(Registration Example)delimiter(')>operator(\)) operator({) - ident(panel) operator({) - ident(button)operator(()key(actionPerformed)operator(:)local_variable(this)operator(.)operator(&)ident(dialog)operator(,) string<delimiter(')content(Click Here For Registration Form)delimiter(')>operator(\)) - ident(glue)operator(()operator(\)) - ident(button)operator(()key(actionPerformed)operator(:)operator({)pre_type(System)operator(.)ident(exit)operator(()integer(0)operator(\))operator(})operator(,) string<delimiter(')content(Quit)delimiter(')>operator(\)) - operator(}) -operator(}) -ident(frame)operator(.)ident(pack)operator(()operator(\)) -ident(frame)operator(.)ident(show)operator(()operator(\)) - - -comment(// Error Example, slight variation to original cookbook) -keyword(import) include(groovy.swing.SwingBuilder) -keyword(import) include(javax.swing.WindowConstants) keyword(as) class(WC) -keyword(import) include(javax.swing.JOptionPane) -keyword(def) method(calculate)operator(()ident(event)operator(\)) operator({) - keyword(try) operator({) - ident(swing)operator(.)ident(result)operator(.)ident(text) operator(=) ident(evaluate)operator(()ident(swing)operator(.)ident(expr)operator(.)ident(text)operator(\)) - operator(}) keyword(catch) operator(()exception(Exception) ident(ex)operator(\)) operator({) - pre_type(JOptionPane)operator(.)ident(showMessageDialog)operator(()ident(frame)operator(,) ident(ex)operator(.)ident(message)operator(\)) - operator(}) -operator(}) -ident(swing) operator(=) keyword(new) ident(SwingBuilder)operator(()operator(\)) -ident(frame) operator(=) ident(swing)operator(.)ident(frame)operator(()key(title)operator(:)string<delimiter(')content(Calculator Example)delimiter(')>operator(,) - key(defaultCloseOperation)operator(:)ident(WC)operator(.)ident(EXIT_ON_CLOSE)operator(\)) operator({) - ident(panel) operator({) - ident(vbox) operator({) - ident(hbox) operator({) - ident(label)operator(()key(text)operator(:)string<delimiter(')content(Expression)delimiter(')>operator(\)) - ident(hstrut)operator(()operator(\)) - ident(textField)operator(()key(columns)operator(:)integer(12)operator(,) key(id)operator(:)string<delimiter(')content(expr)delimiter(')>operator(\)) - operator(}) - ident(hbox) operator({) - ident(label)operator(()key(text)operator(:)string<delimiter(')content(Result)delimiter(')>operator(\)) - ident(glue)operator(()operator(\)) - ident(label)operator(()key(id)operator(:)string<delimiter(')content(result)delimiter(')>operator(\)) - operator(}) - ident(hbox) operator({) - ident(button)operator(()string<delimiter(')content(Calculate)delimiter(')>operator(,) key(actionPerformed)operator(:)local_variable(this)operator(.)operator(&)ident(calculate)operator(\)) - ident(button)operator(()string<delimiter(')content(Quit)delimiter(')>operator(,) key(actionPerformed)operator(:)operator({)pre_type(System)operator(.)ident(exit)operator(()integer(0)operator(\))operator(})operator(\)) - operator(}) - operator(}) - operator(}) -operator(}) -ident(frame)operator(.)ident(pack)operator(()operator(\)) -ident(frame)operator(.)ident(show)operator(()operator(\)) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_15.16) -comment(//----------------------------------------------------------------------------------) -comment(// Resizing in Groovy follows Java rules, i.e. is dependent on the layout manager.) -comment(// You can set preferred, minimum and maximum sizes (may be ignored by some layout managers\).) -comment(// You can setResizable(false\) for some components.) -comment(// You can specify a weight value for some layout managers, e.g. GridBagLayout) -comment(// which control the degree of scaling which occurs during resizing.) -comment(// Some layout managers, e.g. GridLayout, automaticaly resize their contained widgets.) -comment(// You can capture resize events and do everything manually yourself.) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_15.17) -comment(//----------------------------------------------------------------------------------) -comment(// Removing DOS console on Windows:) -comment(// If you are using java.exe to start your Groovy script, use javaw.exe instead.) -comment(// If you are using groovy.exe to start your Groovy script, use groovyw.exe instead.) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_15.18) -comment(//----------------------------------------------------------------------------------) -comment(// additions to original cookbook:) -comment(// random starting position) -comment(// color changes after each bounce) -keyword(import) include(jcurses.system.*) -ident(color) operator(=) keyword(new) ident(CharColor)operator(()ident(CharColor)operator(.)ident(BLACK)operator(,) ident(CharColor)operator(.)ident(WHITE)operator(\)) -pre_type(Toolkit)operator(.)ident(clearScreen)operator(()ident(color)operator(\)) -ident(rand) operator(=) keyword(new) pre_type(Random)operator(()operator(\)) -ident(maxrow) operator(=) pre_type(Toolkit)operator(.)ident(screenWidth) -ident(maxcol) operator(=) pre_type(Toolkit)operator(.)ident(screenHeight) -ident(rowinc) operator(=) integer(1) -ident(colinc) operator(=) integer(1) -ident(row) operator(=) ident(rand)operator(.)ident(nextInt)operator(()ident(maxrow)operator(\)) -ident(col) operator(=) ident(rand)operator(.)ident(nextInt)operator(()ident(maxcol)operator(\)) -ident(chars) operator(=) string<delimiter(')content(*-/|)char(\\\\)content(_)delimiter(')> -ident(colors) operator(=) operator([)ident(CharColor)operator(.)ident(RED)operator(,) ident(CharColor)operator(.)ident(BLUE)operator(,) ident(CharColor)operator(.)ident(YELLOW)operator(,) - ident(CharColor)operator(.)ident(GREEN)operator(,) ident(CharColor)operator(.)ident(CYAN)operator(,) ident(CharColor)operator(.)ident(MAGENTA)operator(]) -ident(delay) operator(=) integer(20) -ident(ch) operator(=) pre_constant(null) -keyword(def) method(nextChar)operator(()operator(\))operator({) - ident(ch) operator(=) ident(chars)operator([)integer(0)operator(]) - ident(chars) operator(=) ident(chars)operator([)integer(1)operator(..)operator(-)integer(1)operator(]) operator(+) ident(chars)operator([)integer(0)operator(]) - ident(color) operator(=) keyword(new) ident(CharColor)operator(()ident(CharColor)operator(.)ident(BLACK)operator(,) ident(colors)operator([)integer(0)operator(])operator(\)) - ident(colors) operator(=) ident(colors)operator([)integer(1)operator(..)operator(-)integer(1)operator(]) operator(+) ident(colors)operator([)integer(0)operator(]) -operator(}) -ident(nextChar)operator(()operator(\)) -keyword(while)operator(()pre_constant(true)operator(\)) operator({) - pre_type(Toolkit)operator(.)ident(printString)operator(()ident(ch)operator(,) ident(row)operator(,) ident(col)operator(,) ident(color)operator(\)) - ident(sleep) ident(delay) - ident(row) operator(=) ident(row) operator(+) ident(rowinc) - ident(col) operator(=) ident(col) operator(+) ident(colinc) - keyword(if) operator(()ident(row) keyword(in) operator([)integer(0)operator(,) ident(maxrow)operator(])operator(\)) operator({) ident(nextChar)operator(()operator(\))operator(;) ident(rowinc) operator(=) operator(-)ident(rowinc) operator(}) - keyword(if) operator(()ident(col) keyword(in) operator([)integer(0)operator(,) ident(maxcol)operator(])operator(\)) operator({) ident(nextChar)operator(()operator(\))operator(;) ident(colinc) operator(=) operator(-)ident(colinc) operator(}) -operator(}) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_15.19) -comment(//----------------------------------------------------------------------------------) -comment(// Variation to cookbook. Let's you reshuffle lines in a multi-line string) -comment(// by drag-n-drop.) -keyword(import) include(java.awt.*) -keyword(import) include(java.awt.datatransfer.*) -keyword(import) include(java.awt.dnd.*) -keyword(import) include(javax.swing.*) -keyword(import) include(javax.swing.ScrollPaneConstants) keyword(as) class(SPC) - -type(class) class(DragDropList) directive(extends) pre_type(JList) directive(implements) - pre_type(DragSourceListener)operator(,) pre_type(DropTargetListener)operator(,) pre_type(DragGestureListener) operator({) - keyword(def) ident(dragSource) - keyword(def) ident(dropTarget) - keyword(def) ident(dropTargetCell) - type(int) ident(draggedIndex) operator(=) operator(-)integer(1) - keyword(def) ident(localDataFlavor) operator(=) keyword(new) pre_type(DataFlavor)operator(()pre_type(DataFlavor)operator(.)ident(javaJVMLocalObjectMimeType)operator(\)) - keyword(def) ident(supportedFlavors) operator(=) operator([)ident(localDataFlavor)operator(]) keyword(as) pre_type(DataFlavor)type([]) - - directive(public) ident(DragDropList)operator(()ident(model)operator(\)) operator({) - local_variable(super)operator(()operator(\)) - ident(setModel)operator(()ident(model)operator(\)) - ident(setCellRenderer)operator(()keyword(new) ident(DragDropCellRenderer)operator(()local_variable(this)operator(\))operator(\)) - ident(dragSource) operator(=) keyword(new) pre_type(DragSource)operator(()operator(\)) - ident(dragSource)operator(.)ident(createDefaultDragGestureRecognizer)operator(()local_variable(this)operator(,) pre_type(DnDConstants)operator(.)ident(ACTION_MOVE)operator(,) local_variable(this)operator(\)) - ident(dropTarget) operator(=) keyword(new) pre_type(DropTarget)operator(()local_variable(this)operator(,) local_variable(this)operator(\)) - operator(}) - - directive(public) type(void) ident(dragGestureRecognized)operator(()pre_type(DragGestureEvent) ident(dge)operator(\)) operator({) - type(int) ident(index) operator(=) ident(locationToIndex)operator(()ident(dge)operator(.)ident(dragOrigin)operator(\)) - keyword(if) operator(()ident(index) operator(==) operator(-)integer(1) operator(||) ident(index) operator(==) ident(model)operator(.)ident(size)operator(()operator(\)) operator(-) integer(1)operator(\)) keyword(return) - keyword(def) ident(trans) operator(=) keyword(new) ident(CustomTransferable)operator(()ident(model)operator(.)ident(getElementAt)operator(()ident(index)operator(\))operator(,) local_variable(this)operator(\)) - ident(draggedIndex) operator(=) ident(index) - ident(dragSource)operator(.)ident(startDrag)operator(()ident(dge)operator(,) pre_type(Cursor)operator(.)ident(defaultCursor)operator(,) ident(trans)operator(,) local_variable(this)operator(\)) - operator(}) - - directive(public) type(void) ident(dragDropEnd)operator(()pre_type(DragSourceDropEvent) ident(dsde)operator(\)) operator({) - ident(dropTargetCell) operator(=) pre_constant(null) - ident(draggedIndex) operator(=) operator(-)integer(1) - ident(repaint)operator(()operator(\)) - operator(}) - - directive(public) type(void) ident(dragEnter)operator(()pre_type(DragSourceDragEvent) ident(dsde)operator(\)) operator({) operator(}) - - directive(public) type(void) ident(dragExit)operator(()pre_type(DragSourceEvent) ident(dse)operator(\)) operator({) operator(}) - - directive(public) type(void) ident(dragOver)operator(()pre_type(DragSourceDragEvent) ident(dsde)operator(\)) operator({) operator(}) - - directive(public) type(void) ident(dropActionChanged)operator(()pre_type(DragSourceDragEvent) ident(dsde)operator(\)) operator({) operator(}) - - directive(public) type(void) ident(dropActionChanged)operator(()pre_type(DropTargetDragEvent) ident(dtde)operator(\)) operator({) operator(}) - - directive(public) type(void) ident(dragExit)operator(()pre_type(DropTargetEvent) ident(dte)operator(\)) operator({) operator(}) - - directive(public) type(void) ident(dragEnter)operator(()pre_type(DropTargetDragEvent) ident(dtde)operator(\)) operator({) - keyword(if) operator(()ident(dtde)operator(.)ident(source) operator(!=) ident(dropTarget)operator(\)) ident(dtde)operator(.)ident(rejectDrag)operator(()operator(\)) - keyword(else) ident(dtde)operator(.)ident(acceptDrag)operator(()pre_type(DnDConstants)operator(.)ident(ACTION_COPY_OR_MOVE)operator(\)) - operator(}) - - directive(public) type(void) ident(dragOver)operator(()pre_type(DropTargetDragEvent) ident(dtde)operator(\)) operator({) - keyword(if) operator(()ident(dtde)operator(.)ident(source) operator(!=) ident(dropTarget)operator(\)) ident(dtde)operator(.)ident(rejectDrag)operator(()operator(\)) - type(int) ident(index) operator(=) ident(locationToIndex)operator(()ident(dtde)operator(.)ident(location)operator(\)) - keyword(if) operator(()ident(index) operator(==) operator(-)integer(1) operator(||) ident(index) operator(==) ident(draggedIndex) operator(+) integer(1)operator(\)) ident(dropTargetCell) operator(=) pre_constant(null) - keyword(else) ident(dropTargetCell) operator(=) ident(model)operator(.)ident(getElementAt)operator(()ident(index)operator(\)) - ident(repaint)operator(()operator(\)) - operator(}) - - directive(public) type(void) ident(drop)operator(()pre_type(DropTargetDropEvent) ident(dtde)operator(\)) operator({) - keyword(if) operator(()ident(dtde)operator(.)ident(source) operator(!=) ident(dropTarget)operator(\)) operator({) - ident(dtde)operator(.)ident(rejectDrop)operator(()operator(\)) - keyword(return) - operator(}) - type(int) ident(index) operator(=) ident(locationToIndex)operator(()ident(dtde)operator(.)ident(location)operator(\)) - keyword(if) operator(()ident(index) operator(==) operator(-)integer(1) operator(||) ident(index) operator(==) ident(draggedIndex)operator(\)) operator({) - ident(dtde)operator(.)ident(rejectDrop)operator(()operator(\)) - keyword(return) - operator(}) - ident(dtde)operator(.)ident(acceptDrop)operator(()pre_type(DnDConstants)operator(.)ident(ACTION_MOVE)operator(\)) - keyword(def) ident(dragged) operator(=) ident(dtde)operator(.)ident(transferable)operator(.)ident(getTransferData)operator(()ident(localDataFlavor)operator(\)) - type(boolean) ident(sourceBeforeTarget) operator(=) operator(()ident(draggedIndex) operator(<) ident(index)operator(\)) - ident(model)operator(.)ident(remove)operator(()ident(draggedIndex)operator(\)) - ident(model)operator(.)ident(add)operator(()operator(()ident(sourceBeforeTarget) operator(?) ident(index) operator(-) integer(1) operator(:) ident(index)operator(\))operator(,) ident(dragged)operator(\)) - ident(dtde)operator(.)ident(dropComplete)operator(()pre_constant(true)operator(\)) - operator(}) -operator(}) - -type(class) class(CustomTransferable) directive(implements) pre_type(Transferable) operator({) - keyword(def) ident(object) - keyword(def) ident(ddlist) - - directive(public) ident(CustomTransferable)operator(()ident(object)operator(,) ident(ddlist)operator(\)) operator({) - local_variable(this)operator(.)ident(object) operator(=) ident(object) - local_variable(this)operator(.)ident(ddlist) operator(=) ident(ddlist) - operator(}) - - directive(public) pre_type(Object) ident(getTransferData)operator(()pre_type(DataFlavor) ident(df)operator(\)) operator({) - keyword(if) operator(()ident(isDataFlavorSupported)operator(()ident(df)operator(\))operator(\)) keyword(return) ident(object) - operator(}) - - directive(public) type(boolean) ident(isDataFlavorSupported)operator(()pre_type(DataFlavor) ident(df)operator(\)) operator({) - keyword(return) ident(df)operator(.)ident(equals)operator(()ident(ddlist)operator(.)ident(localDataFlavor)operator(\)) - operator(}) - - directive(public) pre_type(DataFlavor)type([]) ident(getTransferDataFlavors)operator(()operator(\)) operator({) - keyword(return) ident(ddlist)operator(.)ident(supportedFlavors) - operator(}) -operator(}) - -type(class) class(DragDropCellRenderer) directive(extends) pre_type(DefaultListCellRenderer) operator({) - type(boolean) ident(isTargetCell) - keyword(def) ident(ddlist) - - directive(public) ident(DragDropCellRenderer)operator(()ident(ddlist)operator(\)) operator({) - local_variable(super)operator(()operator(\)) - local_variable(this)operator(.)ident(ddlist) operator(=) ident(ddlist) - operator(}) - - directive(public) pre_type(Component) ident(getListCellRendererComponent)operator(()pre_type(JList) ident(list)operator(,) pre_type(Object) ident(value)operator(,) - type(int) ident(index)operator(,) type(boolean) ident(isSelected)operator(,) type(boolean) ident(hasFocus)operator(\)) operator({) - ident(isTargetCell) operator(=) operator(()ident(value) operator(==) ident(ddlist)operator(.)ident(dropTargetCell)operator(\)) - type(boolean) ident(showSelected) operator(=) ident(isSelected) operator(&&) operator(!)ident(isTargetCell) - keyword(return) local_variable(super)operator(.)ident(getListCellRendererComponent)operator(()ident(list)operator(,) ident(value)operator(,) ident(index)operator(,) ident(showSelected)operator(,) ident(hasFocus)operator(\)) - operator(}) - - directive(public) type(void) ident(paintComponent)operator(()pre_type(Graphics) ident(g)operator(\)) operator({) - local_variable(super)operator(.)ident(paintComponent)operator(()ident(g)operator(\)) - keyword(if) operator(()ident(isTargetCell)operator(\)) operator({) - ident(g)operator(.)ident(setColor)operator(()pre_type(Color)operator(.)ident(black)operator(\)) - ident(g)operator(.)ident(drawLine)operator(()integer(0)operator(,) integer(0)operator(,) ident(size)operator(.)ident(width)operator(.)ident(intValue)operator(()operator(\))operator(,) integer(0)operator(\)) - operator(}) - operator(}) -operator(}) - -ident(lines) operator(=) string<delimiter(''')content( -This is line 1 -This is line 2 -This is line 3 -This is line 4 -)delimiter(''')>operator(.)ident(trim)operator(()operator(\))operator(.)ident(split)operator(()string<delimiter(')content(\\n)delimiter(')>operator(\)) -keyword(def) ident(listModel) operator(=) keyword(new) pre_type(DefaultListModel)operator(()operator(\)) -ident(lines)operator(.)ident(each)operator({) ident(listModel)operator(.)ident(addElement)operator(()local_variable(it)operator(\)) operator(}) -ident(listModel)operator(.)ident(addElement)operator(()string<delimiter(')content( )delimiter(')>operator(\)) comment(// dummy) -keyword(def) ident(list) operator(=) keyword(new) ident(DragDropList)operator(()ident(listModel)operator(\)) -keyword(def) ident(sp) operator(=) keyword(new) pre_type(JScrollPane)operator(()ident(list)operator(,) ident(SPC)operator(.)ident(VERTICAL_SCROLLBAR_ALWAYS)operator(,) ident(SPC)operator(.)ident(HORIZONTAL_SCROLLBAR_NEVER)operator(\)) -keyword(def) ident(frame) operator(=) keyword(new) pre_type(JFrame)operator(()string<delimiter(')content(Line Shuffle Example)delimiter(')>operator(\)) -ident(frame)operator(.)ident(setDefaultCloseOperation)operator(()pre_type(WindowConstants)operator(.)ident(EXIT_ON_CLOSE)operator(\)) -ident(frame)operator(.)ident(contentPane)operator(.)ident(add)operator(()ident(sp)operator(\)) -ident(frame)operator(.)ident(pack)operator(()operator(\)) -ident(frame)operator(.)ident(setVisible)operator(()pre_constant(true)operator(\)) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_16.1) -comment(//----------------------------------------------------------------------------------) -ident(output) operator(=) string<delimiter(")content(program args)delimiter(")>operator(.)ident(execute)operator(()operator(\))operator(.)ident(text) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_16.2) -comment(//----------------------------------------------------------------------------------) -ident(proc) operator(=) string<delimiter(")content(vi myfile)delimiter(")>operator(.)ident(execute)operator(()operator(\)) -ident(proc)operator(.)ident(waitFor)operator(()operator(\)) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_16.3) -comment(//----------------------------------------------------------------------------------) -comment(// Calling execute(\) on a String, String[] or List (of Strings or objects with) -comment(// a toString(\) method\) will fork off another process.) -comment(// This doesn't replace the existing process but if you simply finish the original) -comment(// process (leaving the spawned process to finish asynchronously\) you will achieve) -comment(// a similar thing.) -string<delimiter(")content(archive *.data)delimiter(")>operator(.)ident(execute)operator(()operator(\)) -operator([)string<delimiter(")content(archive)delimiter(")>operator(,) string<delimiter(")content(accounting.data)delimiter(")>operator(])operator(.)ident(execute)operator(()operator(\)) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_16.4) -comment(//----------------------------------------------------------------------------------) -comment(// sending text to the input of another process) -ident(proc) operator(=) string<delimiter(')content(groovy -e "print System.in.text.toUpperCase(\)")delimiter(')>operator(.)ident(execute)operator(()operator(\)) -pre_type(Thread)operator(.)ident(start)operator({) - keyword(def) ident(writer) operator(=) keyword(new) pre_type(PrintWriter)operator(()keyword(new) pre_type(BufferedOutputStream)operator(()ident(proc)operator(.)ident(out)operator(\))operator(\)) - ident(writer)operator(.)ident(println)operator(()string<delimiter(')content(Hello)delimiter(')>operator(\)) - ident(writer)operator(.)ident(close)operator(()operator(\)) -operator(}) -ident(proc)operator(.)ident(waitFor)operator(()operator(\)) -comment(// further process output from process) -ident(print) ident(proc)operator(.)ident(text)operator(.)ident(reverse)operator(()operator(\)) -comment(// =>) -comment(// OLLEH) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_16.5) -comment(//----------------------------------------------------------------------------------) -comment(// filter your own output) -ident(keep) operator(=) pre_type(System)operator(.)ident(out) -ident(pipe) operator(=) keyword(new) pre_type(PipedInputStream)operator(()operator(\)) -ident(reader) operator(=) keyword(new) pre_type(BufferedReader)operator(()keyword(new) pre_type(InputStreamReader)operator(()ident(pipe)operator(\))operator(\)) -pre_type(System)operator(.)ident(setOut)operator(()keyword(new) pre_type(PrintStream)operator(()keyword(new) pre_type(BufferedOutputStream)operator(()keyword(new) pre_type(PipedOutputStream)operator(()ident(pipe)operator(\))operator(\))operator(\))operator(\)) -type(int) ident(numlines) operator(=) integer(2) -pre_type(Thread)operator(.)ident(start)operator({) - keyword(while)operator(()operator(()ident(next) operator(=) ident(reader)operator(.)ident(readLine)operator(()operator(\))operator(\)) operator(!=) pre_constant(null)operator(\)) operator({) - keyword(if) operator(()ident(numlines)operator(--) operator(>) integer(0)operator(\)) ident(keep)operator(.)ident(println)operator(()ident(next)operator(\)) - operator(}) -operator(}) -operator(()integer(1)operator(..)integer(8)operator(\))operator(.)ident(each)operator({) ident(println) local_variable(it) operator(}) -pre_type(System)operator(.)ident(out)operator(.)ident(close)operator(()operator(\)) -pre_type(System)operator(.)ident(setOut)operator(()ident(keep)operator(\)) -operator(()integer(9)operator(..)integer(10)operator(\))operator(.)ident(each)operator({) ident(println) local_variable(it) operator(}) -comment(// =>) -comment(// 1) -comment(// 2) -comment(// 9) -comment(// 10) - - -comment(// filtering output by adding quotes and numbers) -type(class) class(FilterOutput) directive(extends) pre_type(Thread) operator({) - ident(Closure) ident(c) - pre_type(Reader) ident(reader) - pre_type(PrintStream) ident(orig) - ident(FilterOutput)operator(()ident(Closure) ident(c)operator(\)) operator({) - local_variable(this)operator(.)ident(c) operator(=) ident(c) - ident(orig) operator(=) pre_type(System)operator(.)ident(out) - keyword(def) ident(pipe) operator(=) keyword(new) pre_type(PipedInputStream)operator(()operator(\)) - ident(reader) operator(=) keyword(new) pre_type(BufferedReader)operator(()keyword(new) pre_type(InputStreamReader)operator(()ident(pipe)operator(\))operator(\)) - pre_type(System)operator(.)ident(setOut)operator(()keyword(new) pre_type(PrintStream)operator(()keyword(new) pre_type(BufferedOutputStream)operator(()keyword(new) pre_type(PipedOutputStream)operator(()ident(pipe)operator(\))operator(\))operator(\))operator(\)) - operator(}) - type(void) ident(run)operator(()operator(\)) operator({) - keyword(def) ident(next) - keyword(while)operator(()operator(()ident(next) operator(=) ident(reader)operator(.)ident(readLine)operator(()operator(\))operator(\)) operator(!=) pre_constant(null)operator(\)) operator({) - ident(c)operator(()ident(orig)operator(,) ident(next)operator(\)) - operator(}) - operator(}) - keyword(def) method(close)operator(()operator(\)) operator({) - ident(sleep) integer(100) - pre_type(System)operator(.)ident(out)operator(.)ident(close)operator(()operator(\)) - pre_type(System)operator(.)ident(setOut)operator(()ident(orig)operator(\)) - operator(}) -operator(}) -ident(cnt) operator(=) integer(0) -ident(number) operator(=) operator({) ident(s)operator(,) ident(n) operator(->) ident(cnt)operator(++)operator(;) ident(s)operator(.)ident(println)operator(()ident(cnt) operator(+) string<delimiter(')content(:)delimiter(')> operator(+) ident(n)operator(\)) operator(}) -ident(quote) operator(=) operator({) ident(s)operator(,) ident(n) operator(->) ident(s)operator(.)ident(println)operator(()string<delimiter(')content(> )delimiter(')> operator(+) ident(n)operator(\)) operator(}) -ident(f1) operator(=) keyword(new) ident(FilterOutput)operator(()ident(number)operator(\))operator(;) ident(f1)operator(.)ident(start)operator(()operator(\)) -ident(f2) operator(=) keyword(new) ident(FilterOutput)operator(()ident(quote)operator(\))operator(;) ident(f2)operator(.)ident(start)operator(()operator(\)) -operator(()string<delimiter(')content(a)delimiter(')>operator(..)string<delimiter(')content(e)delimiter(')>operator(\))operator(.)ident(each)operator({) ident(println) local_variable(it) operator(}) -ident(f2)operator(.)ident(close)operator(()operator(\)) -ident(f1)operator(.)ident(close)operator(()operator(\)) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_16.6) -comment(//----------------------------------------------------------------------------------) -comment(// Groovy programs (like Java ones\) would use streams here. Just process) -comment(// another stream instead of System.in or System.out:) - -comment(// process url text) -ident(input) operator(=) keyword(new) pre_type(URL)operator(()ident(address)operator(\))operator(.)ident(openStream)operator(()operator(\)) -comment(// ... process 'input' stream) - -comment(// process compressed file) -ident(input) operator(=) keyword(new) pre_type(GZIPInputStream)operator(()keyword(new) pre_type(FileInputStream)operator(()string<delimiter(')content(source.gzip)delimiter(')>operator(\))operator(\)) -comment(// ... process 'input' stream) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_16.7) -comment(//----------------------------------------------------------------------------------) -comment(// To read STDERR of a process you execute) -ident(proc) operator(=) string<delimiter(')content(groovy -e "println args[0]")delimiter(')>operator(.)ident(execute)operator(()operator(\)) -ident(proc)operator(.)ident(waitFor)operator(()operator(\)) -ident(println) ident(proc)operator(.)ident(err)operator(.)ident(text) -comment(// => Caught: java.lang.ArrayIndexOutOfBoundsException: 0 ...) - -comment(// To redirect your STDERR to a file) -pre_type(System)operator(.)ident(setErr)operator(()keyword(new) pre_type(PrintStream)operator(()keyword(new) pre_type(FileOutputStream)operator(()string<delimiter(")content(error.txt)delimiter(")>operator(\))operator(\))operator(\)) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_16.8) -comment(//----------------------------------------------------------------------------------) -comment(// See 16.2, the technique allows both STDIN and STDOUT of another program to be) -comment(// changed at the same time, not just one or the other as per Perl 16.2 solution) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_16.9) -comment(//----------------------------------------------------------------------------------) -comment(// See 16.2 and 16.7, the techniques can be combined to allow all three streams) -comment(// (STDIN, STDOUT, STDERR\) to be altered as required.) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_16.10) -comment(//----------------------------------------------------------------------------------) -comment(// Groovy can piggy-back on the many options available to Java here:) -comment(// JIPC provides a wide set of standard primitives: semaphore, event,) -comment(// FIFO queue, barrier, shared memory, shared and exclusive locks:) -comment(// http://www.garret.ru/~knizhnik/jipc/jipc.html) -comment(// sockets allow process to communicate via low-level packets) -comment(// CORBA, RMI, SOAP allow process to communicate via RPC calls) -comment(// shared files can also be used) -comment(// JMS allows process to communicate via a messaging service) - -comment(// Simplist approach is to just link streams:) -ident(proc1) operator(=) string<delimiter(')content(groovy -e "println args[0]" Hello)delimiter(')>operator(.)ident(execute)operator(()operator(\)) -ident(proc2) operator(=) string<delimiter(')content(groovy -e "print System.in.text.toUpperCase(\)")delimiter(')>operator(.)ident(execute)operator(()operator(\)) -pre_type(Thread)operator(.)ident(start)operator({) - keyword(def) ident(reader) operator(=) keyword(new) pre_type(BufferedReader)operator(()keyword(new) pre_type(InputStreamReader)operator(()ident(proc1)operator(.)ident(in)operator(\))operator(\)) - keyword(def) ident(writer) operator(=) keyword(new) pre_type(PrintWriter)operator(()keyword(new) pre_type(BufferedOutputStream)operator(()ident(proc2)operator(.)ident(out)operator(\))operator(\)) - keyword(while) operator(()operator(()ident(next) operator(=) ident(reader)operator(.)ident(readLine)operator(()operator(\))operator(\)) operator(!=) pre_constant(null)operator(\)) operator({) - ident(writer)operator(.)ident(println)operator(()ident(next)operator(\)) - operator(}) - ident(writer)operator(.)ident(close)operator(()operator(\)) -operator(}) -ident(proc2)operator(.)ident(waitFor)operator(()operator(\)) -ident(print) ident(proc2)operator(.)ident(text) -comment(// => HELLO) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_16.11) -comment(//----------------------------------------------------------------------------------) -comment(// Java/Groovy would normally just use some socket-based technique for communicating) -comment(// between processes (see 16.10 for a list of options\). If you really must use a named) -comment(// pipe, you have these options:) -comment(// (1\) On *nix machines:) -comment(// * Create a named pipe by invoking the mkfifo utility using execute(\).) -comment(// * Open a named pipe by name - which is just like opening a file.) -comment(// * Run an external process setting its input and output streams (see 16.1, 16.4, 16.5\)) -comment(// (2\) On Windows machines, Using JCIFS to Connect to Win32 Named Pipes, see:) -comment(// http://jcifs.samba.org/src/docs/pipes.html) -comment(// Neither of these achieve exactly the same result as the Perl example but some) -comment(// scenarios will be almost identical.) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_16.12) -comment(//----------------------------------------------------------------------------------) -comment(// The comments made in 16.10 regarding other alternative IPC mechanisms also apply here.) - -comment(// This example would normally be done with multiple threads in Java/Groovy as follows.) -type(class) class(Shared) operator({) - pre_type(String) ident(buffer) operator(=) string<delimiter(")content(not set yet)delimiter(")> - directive(synchronized) type(void) ident(leftShift)operator(()ident(value)operator(\))operator({) - ident(buffer) operator(=) ident(value) - ident(notifyAll)operator(()operator(\)) - operator(}) - directive(synchronized) pre_type(Object) ident(read)operator(()operator(\)) operator({) - keyword(return) ident(buffer) - operator(}) -operator(}) -ident(shared) operator(=) keyword(new) ident(Shared)operator(()operator(\)) -ident(rand) operator(=) keyword(new) pre_type(Random)operator(()operator(\)) -ident(threads) operator(=) type([]) -operator(()integer(1)operator(..)integer(5)operator(\))operator(.)ident(each)operator({) - ident(t) operator(=) keyword(new) pre_type(Thread)operator(()operator(\))operator({) - keyword(def) ident(me) operator(=) ident(t) - keyword(for) operator(()ident(j) keyword(in) integer(0)operator(..)integer(9)operator(\)) operator({) - ident(shared) operator(<)operator(<) string<delimiter(")inline<inline_delimiter($)ident(me)>content(.name )inline<inline_delimiter($)ident(j)>delimiter(")> - ident(sleep) integer(100) operator(+) ident(rand)operator(.)ident(nextInt)operator(()integer(200)operator(\)) - operator(}) - operator(}) - ident(t)operator(.)ident(start)operator(()operator(\)) -operator(}) -keyword(while)operator(()integer(1)operator(\)) operator({) - ident(println) ident(shared)operator(.)ident(read)operator(()operator(\)) - ident(sleep) integer(50) -operator(}) -comment(// =>) -comment(// not set yet) -comment(// Thread-2 0) -comment(// Thread-5 1) -comment(// Thread-1 1) -comment(// Thread-4 2) -comment(// Thread-3 1) -comment(// ...) -comment(// Thread-5 9) - - -comment(// Using JIPC between processes (as a less Groovy alternative that is closer) -comment(// to the original cookbook\) is shown below.) - -comment(// ipcWriterScript:) -keyword(import) include(org.garret.jipc.client.JIPCClientFactory) -ident(port) operator(=) integer(6000) -ident(factory) operator(=) ident(JIPCClientFactory)operator(.)ident(instance) -ident(session) operator(=) ident(factory)operator(.)ident(create)operator(()string<delimiter(')content(localhost)delimiter(')>operator(,) ident(port)operator(\)) -ident(mutex) operator(=) ident(session)operator(.)ident(createMutex)operator(()string<delimiter(")content(myMutex)delimiter(")>operator(,) pre_constant(false)operator(\)) -ident(buffer) operator(=) ident(session)operator(.)ident(createSharedMemory)operator(()string<delimiter(")content(myBuffer)delimiter(")>operator(,) string<delimiter(")content(not yet set)delimiter(")>operator(\)) -ident(name) operator(=) ident(args)operator([)integer(0)operator(]) -ident(rand) operator(=) keyword(new) pre_type(Random)operator(()operator(\)) -operator(()integer(0)operator(..)integer(99)operator(\))operator(.)ident(each) operator({) - ident(mutex)operator(.)ident(lock)operator(()operator(\)) - ident(buffer)operator(.)ident(set)operator(()string<delimiter(")inline<inline_delimiter($)ident(name)>content( )inline<inline_delimiter($)local_variable(it)>delimiter(")>operator(.)ident(toString)operator(()operator(\))operator(\)) - ident(mutex)operator(.)ident(unlock)operator(()operator(\)) - ident(sleep) integer(200) operator(+) ident(rand)operator(.)ident(nextInt)operator(()integer(500)operator(\)) -operator(}) -ident(session)operator(.)ident(close)operator(()operator(\)) - -comment(// ipcReaderScript:) -keyword(import) include(org.garret.jipc.client.JIPCClientFactory) -ident(port) operator(=) integer(6000) -ident(factory) operator(=) ident(JIPCClientFactory)operator(.)ident(instance) -ident(session) operator(=) ident(factory)operator(.)ident(create)operator(()string<delimiter(')content(localhost)delimiter(')>operator(,) ident(port)operator(\)) -ident(mutex) operator(=) ident(session)operator(.)ident(createMutex)operator(()string<delimiter(")content(myMutex)delimiter(")>operator(,) pre_constant(false)operator(\)) -ident(buffer) operator(=) ident(session)operator(.)ident(createSharedMemory)operator(()string<delimiter(")content(myBuffer)delimiter(")>operator(,) string<delimiter(")content(not yet set)delimiter(")>operator(\)) -ident(rand) operator(=) keyword(new) pre_type(Random)operator(()operator(\)) -operator(()integer(0)operator(..)integer(299)operator(\))operator(.)ident(each) operator({) - ident(mutex)operator(.)ident(lock)operator(()operator(\)) - ident(println) ident(buffer)operator(.)ident(get)operator(()operator(\)) - ident(mutex)operator(.)ident(unlock)operator(()operator(\)) - ident(sleep) integer(150) -operator(}) -ident(session)operator(.)ident(close)operator(()operator(\)) - -comment(// kick off processes:) -string<delimiter(")content(java org.garret.jipc.server.JIPCServer 6000)delimiter(")>operator(.)ident(execute)operator(()operator(\)) -string<delimiter(")content(groovy ipcReaderScript)delimiter(")>operator(.)ident(execute)operator(()operator(\)) -operator(()integer(0)operator(..)integer(3)operator(\))operator(.)ident(each)operator({) string<delimiter(")content(groovy ipcWriterScript )inline<inline_delimiter($)local_variable(it)>delimiter(")>operator(.)ident(execute)operator(()operator(\)) operator(}) - -comment(// =>) -comment(// ...) -comment(// 0 10) -comment(// 2 10) -comment(// 2 11) -comment(// 1 9) -comment(// 1 9) -comment(// 1 10) -comment(// 2 12) -comment(// 3 12) -comment(// 3 12) -comment(// 2 13) -comment(// ...) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_16.13) -comment(//----------------------------------------------------------------------------------) -comment(// Signal handling in Groovy (like Java\) is operating system and JVM dependent.) -comment(// The ISO C standard only requires the signal names SIGABRT, SIGFPE, SIGILL,) -comment(// SIGINT, SIGSEGV, and SIGTERM to be defined but depending on your platform) -comment(// other signals may be present, e.g. Windows supports SIGBREAK. For more info) -comment(// see: http://www-128.ibm.com/developerworks/java/library/i-signalhandling/) -comment(// Note: if you start up the JVM with -Xrs the JVM will try to reduce its) -comment(// internal usage of signals. Also the JVM takes over meany hooks and provides) -comment(// platform independent alternatives, e.g. see java.lang.Runtime#addShutdownHook(\)) - -comment(// To see what signals are available for your system (excludes ones taken over) -comment(// by the JVM\):) -ident(sigs) operator(=) string<delimiter(''')content(HUP INT QUIT ILL TRAP ABRT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM -USR1 USR2 CHLD PWR WINCH URG POLL STOP TSTP CONT TTIN TTOU VTALRM PROF XCPU -XFSZ WAITING LWP AIO IO INFO THR BREAK FREEZE THAW CANCEL EMT -)delimiter(''')> - -ident(sigs)operator(.)ident(tokenize)operator(()string<delimiter(')content( \\n)delimiter(')>operator(\))operator(.)ident(each)operator({) - keyword(try) operator({) - ident(print) string<delimiter(')content( )delimiter(')> operator(+) keyword(new) ident(sun)operator(.)ident(misc)operator(.)ident(Signal)operator(()local_variable(it)operator(\)) - operator(}) keyword(catch)operator(()exception(IllegalArgumentException) ident(iae)operator(\)) operator({)operator(}) -operator(}) -comment(// => on Windows XP:) -comment(// SIGINT SIGILL SIGABRT SIGFPE SIGSEGV SIGTERM SIGBREAK) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_16.14) -comment(//----------------------------------------------------------------------------------) -comment(// To send a signal to your process:) -ident(Signal)operator(.)ident(raise)operator(()keyword(new) ident(Signal)operator(()string<delimiter(")content(INT)delimiter(")>operator(\))operator(\)) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_16.15) -comment(//----------------------------------------------------------------------------------) -comment(// install a signal handler) -type(class) class(DiagSignalHandler) directive(implements) ident(SignalHandler) operator({) operator(..)operator(.) operator(}) -ident(diagHandler) operator(=) keyword(new) ident(DiagSignalHandler)operator(()operator(\)) -ident(Signal)operator(.)ident(handle)operator(()keyword(new) ident(Signal)operator(()string<delimiter(")content(INT)delimiter(")>operator(\))operator(,) ident(diagHandler)operator(\)) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_16.16) -comment(//----------------------------------------------------------------------------------) -comment(// temporarily install a signal handler) -type(class) class(DiagSignalHandler) directive(implements) ident(SignalHandler) operator({) operator(..)operator(.) operator(}) -ident(diagHandler) operator(=) keyword(new) ident(DiagSignalHandler)operator(()operator(\)) -ident(oldHandler) operator(=) ident(Signal)operator(.)ident(handle)operator(()keyword(new) ident(Signal)operator(()string<delimiter(")content(INT)delimiter(")>operator(\))operator(,) ident(diagHandler)operator(\)) -ident(Signal)operator(.)ident(handle)operator(()keyword(new) ident(Signal)operator(()string<delimiter(")content(INT)delimiter(")>operator(\))operator(,) ident(oldHandler)operator(\)) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_16.17) -comment(//----------------------------------------------------------------------------------) -keyword(import) include(sun.misc.Signal) -keyword(import) include(sun.misc.SignalHandler) - -type(class) class(DiagSignalHandler) directive(implements) ident(SignalHandler) operator({) - directive(private) ident(oldHandler) - - comment(// Static method to install the signal handler) - directive(public) directive(static) ident(install)operator(()ident(signal)operator(\)) operator({) - keyword(def) ident(diagHandler) operator(=) keyword(new) ident(DiagSignalHandler)operator(()operator(\)) - ident(diagHandler)operator(.)ident(oldHandler) operator(=) ident(Signal)operator(.)ident(handle)operator(()ident(signal)operator(,) ident(diagHandler)operator(\)) - operator(}) - - directive(public) type(void) ident(handle)operator(()ident(Signal) ident(sig)operator(\)) operator({) - ident(println)operator(()string<delimiter(")content(Diagnostic Signal handler called for signal )delimiter(")>operator(+)ident(sig)operator(\)) - comment(// Output information for each thread) - keyword(def) ident(list) operator(=) type([]) - pre_type(Thread)operator(.)ident(activeCount)operator(()operator(\))operator(.)ident(each)operator({) ident(list) operator(+=) pre_constant(null) operator(}) - pre_type(Thread)type([]) ident(threadArray) operator(=) ident(list) keyword(as) pre_type(Thread)type([]) - type(int) ident(numThreads) operator(=) pre_type(Thread)operator(.)ident(enumerate)operator(()ident(threadArray)operator(\)) - ident(println)operator(()string<delimiter(")content(Current threads:)delimiter(")>operator(\)) - keyword(for) operator(()ident(i) keyword(in) integer(0)operator(..<)ident(numThreads)operator(\)) operator({) - ident(println)operator(()string<delimiter(")content( )delimiter(")>operator(+)ident(threadArray)operator([)ident(i)operator(])operator(\)) - operator(}) - - comment(// Chain back to previous handler, if one exists) - keyword(if) operator(() ident(oldHandler) operator(!=) ident(SIG_DFL) operator(&&) ident(oldHandler) operator(!=) ident(SIG_IGN) operator(\)) operator({) - ident(oldHandler)operator(.)ident(handle)operator(()ident(sig)operator(\)) - operator(}) - operator(}) -operator(}) -comment(// install using:) -ident(DiagSignalHandler)operator(.)ident(install)operator(()keyword(new) ident(Signal)operator(()string<delimiter(")content(INT)delimiter(")>operator(\))operator(\)) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_16.18) -comment(//----------------------------------------------------------------------------------) -comment(// See 16.17, just don't chain to the previous handler because the default handler) -comment(// will abort the process.) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_16.19) -comment(//----------------------------------------------------------------------------------) -comment(// Groovy relies on Java features here. Java doesn't keep the process around) -comment(// as it stores metadata in a Process object. You can call waitFor(\) or destroy(\)) -comment(// or exitValue(\) on the Process object. If the Process object is garbage collected,) -comment(// the process can still execute asynchronously with respect to the original process.) - -comment(// For ensuring processes don't die, see:) -comment(// http://jakarta.apache.org/commons/daemon/) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_16.20) -comment(//----------------------------------------------------------------------------------) -comment(// There is no equivalent to a signal mask available directly in Groovy or Java.) -comment(// You can override and ignore individual signals using recipes 16.16 - 16.18.) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_16.21) -comment(//----------------------------------------------------------------------------------) -ident(t) operator(=) keyword(new) pre_type(Timer)operator(()operator(\)) -ident(t)operator(.)ident(runAfter)operator(()integer(3500)operator(\))operator({) - ident(println) string<delimiter(')content(Took too long)delimiter(')> - pre_type(System)operator(.)ident(exit)operator(()integer(1)operator(\)) -operator(}) -keyword(def) ident(count) operator(=) integer(0) -integer(6)operator(.)ident(times)operator({) - ident(count)operator(++) - ident(sleep) integer(1000) - ident(println) string<delimiter(")content(Count = )inline<inline_delimiter($)ident(count)>delimiter(")> -operator(}) -ident(t)operator(.)ident(cancel)operator(()operator(\)) -comment(// See also special JMX timer class: javax.management.timer.Timer) -comment(// For an external process you can also use: proc.waitForOrKill(3500\)) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_16.22) -comment(//----------------------------------------------------------------------------------) -comment(// One way to implement this functionality is to automatically replace the ~/.plan) -comment(// etc. files every fixed timed interval - though this wouldn't be efficient.) -comment(// Here is a simplified version which is a simplified version compared to the) -comment(// original cookbook. It only looks at the ~/.signature file and changes it) -comment(// freely. It also doesn't consider other news reader related files.) - -keyword(def) ident(sigs) operator(=) string<delimiter(''')content( -Make is like Pascal: everybody likes it, so they go in and change it. ---Dennis Ritchie -%% -I eschew embedded capital letters in names; to my prose-oriented eyes, -they are too awkward to read comfortably. They jangle like bad typography. ---Rob Pike -%% -God made the integers; all else is the work of Man. ---Kronecker -%% -I d rather have :rofix than const. --Dennis Ritchie -%% -If you want to program in C, program in C. It s a nice language. -I use it occasionally... :-\) --Larry Wall -%% -Twisted cleverness is my only skill as a programmer. ---Elizabeth Zwicky -%% -Basically, avoid comments. If your code needs a comment to be understood, -it would be better to rewrite it so it s easier to understand. ---Rob Pike -%% -Comments on data are usually much more helpful than on algorithms. ---Rob Pike -%% -Programs that write programs are the happiest programs in the world. ---Andrew Hume -)delimiter(''')>operator(.)ident(trim)operator(()operator(\))operator(.)ident(split)operator(()regexp<delimiter(/)char(\\n)content(%%)char(\\n)delimiter(/)>operator(\)) -ident(name) operator(=) string<delimiter(')content(me@somewhere.org\\n)delimiter(')> -ident(file) operator(=) keyword(new) pre_type(File)operator(()pre_type(System)operator(.)ident(getProperty)operator(()string<delimiter(')content(user.home)delimiter(')>operator(\)) operator(+) pre_type(File)operator(.)ident(separator) operator(+) string<delimiter(')content(.signature)delimiter(')>operator(\)) -ident(rand) operator(=) keyword(new) pre_type(Random)operator(()operator(\)) -keyword(while)operator(()integer(1)operator(\)) operator({) - ident(file)operator(.)ident(delete)operator(()operator(\)) - ident(file) operator(<)operator(<) ident(name) operator(+) ident(sigs)operator([)ident(rand)operator(.)ident(nextInt)operator(()ident(sigs)operator(.)ident(size)operator(()operator(\))operator(\))operator(]) - ident(sleep) integer(10000) -operator(}) - -comment(// Another way to implement this functionality (in a completely different way to the) -comment(// original cookbook\) is to use a FileWatcher class, e.g.) -comment(// http://www.rgagnon.com/javadetails/java-0490.html (FileWatcher and DirWatcher\)) -comment(// http://www.jconfig.org/javadoc/org/jconfig/FileWatcher.html) - -comment(// These file watchers notify us whenever the file is modified, see Pleac chapter 7) -comment(// for workarounds to not being able to get last accessed time vs last modified time.) -comment(// (We would now need to touch the file whenever we accessed it to make it change\).) -comment(// Our handler called from the watchdog class would update the file contents.) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_17.0) -comment(//----------------------------------------------------------------------------------) -ident(myClient) operator(=) keyword(new) pre_type(Socket)operator(()string<delimiter(")content(Machine name)delimiter(")>operator(,) ident(portNumber)operator(\)) -ident(myAddress) operator(=) ident(myClient)operator(.)ident(inetAddress) -ident(myAddress)operator(.)ident(hostAddress) comment(// string representation of host address) -ident(myAddress)operator(.)ident(hostName) comment(// host name) -ident(myAddress)operator(.)ident(address) comment(// IP address as array of bytes) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_17.1) -comment(//----------------------------------------------------------------------------------) -ident(s) operator(=) keyword(new) pre_type(Socket)operator(()string<delimiter(")content(localhost)delimiter(")>operator(,) integer(5000)operator(\))operator(;) -ident(s) operator(<)operator(<) string<delimiter(")content(Why don't you call me anymore?)char(\\n)delimiter(")> -ident(s)operator(.)ident(close)operator(()operator(\)) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_17.2) -comment(//----------------------------------------------------------------------------------) -comment(// commandline socket server echoing input back to originator) -ident(groovy) operator(-)ident(l) integer(5000) operator(-)ident(e) string<delimiter(")content(println line)delimiter(")> - -comment(// commandline socket server eching input to stderr) -ident(groovy) operator(-)ident(l) integer(5000) operator(-)ident(e) string<delimiter(")content(System.err.println line)delimiter(")> - -comment(// a web server as a script (extension to cookbook\)) - ident(server) operator(=) keyword(new) pre_type(ServerSocket)operator(()integer(5000)operator(\)) - keyword(while)operator(()pre_constant(true)operator(\)) operator({) - ident(server)operator(.)ident(accept)operator(()operator(\)) operator({) ident(socket) operator(->) - ident(socket)operator(.)ident(withStreams) operator({) ident(input)operator(,) ident(output) operator(->) - comment(// ignore input and just serve dummy content) - ident(output)operator(.)ident(withWriter) operator({) ident(writer) operator(->) - ident(writer) operator(<)operator(<) string<delimiter(")content(HTTP/1.1 200 OK)char(\\n)delimiter(")> - ident(writer) operator(<)operator(<) string<delimiter(")content(Content-Type: text/html)char(\\n)char(\\n)delimiter(")> - ident(writer) operator(<)operator(<) string<delimiter(")content(<html><body>Hello World! It's )inline<inline_delimiter(${)keyword(new) pre_type(Date)operator(()operator(\))inline_delimiter(})>content(</body></html>)char(\\n)delimiter(")> - operator(}) - operator(}) - operator(}) - operator(}) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_17.3) -comment(//----------------------------------------------------------------------------------) -ident(server) operator(=) keyword(new) pre_type(ServerSocket)operator(()integer(5000)operator(\)) -keyword(while)operator(()pre_constant(true)operator(\)) operator({) - ident(server)operator(.)ident(accept)operator(()operator(\)) operator({) ident(socket) operator(->) - ident(socket)operator(.)ident(withStreams) operator({) ident(input)operator(,) ident(output) operator(->) - ident(w) operator(=) keyword(new) pre_type(PrintWriter)operator(()ident(output)operator(\)) - ident(w) operator(<)operator(<) string<delimiter(")content(What is your name? )delimiter(")> - ident(w)operator(.)ident(flush)operator(()operator(\)) - ident(r) operator(=) ident(input)operator(.)ident(readLine)operator(()operator(\)) - pre_type(System)operator(.)ident(err)operator(.)ident(println) string<delimiter(")content(User responded with )inline<inline_delimiter($)ident(r)>delimiter(")> - ident(w)operator(.)ident(close)operator(()operator(\)) - operator(}) - operator(}) -operator(}) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_17.4) -comment(//----------------------------------------------------------------------------------) -comment(// UDP client) -ident(data) operator(=) string<delimiter(")content(Message)delimiter(")>operator(.)ident(getBytes)operator(()string<delimiter(")content(ASCII)delimiter(")>operator(\)) -ident(addr) operator(=) pre_type(InetAddress)operator(.)ident(getByName)operator(()string<delimiter(")content(localhost)delimiter(")>operator(\)) -ident(port) operator(=) integer(5000) -ident(packet) operator(=) keyword(new) pre_type(DatagramPacket)operator(()ident(data)operator(,) ident(data)operator(.)ident(length)operator(,) ident(addr)operator(,) ident(port)operator(\)) -ident(socket) operator(=) keyword(new) pre_type(DatagramSocket)operator(()operator(\)) -ident(socket)operator(.)ident(send)operator(()ident(packet)operator(\)) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_17.5) -comment(//----------------------------------------------------------------------------------) -comment(// UDP server) -ident(socket) operator(=) keyword(new) pre_type(DatagramSocket)operator(()integer(5000)operator(\)) -ident(buffer) operator(=) operator(()string<delimiter(')content( )delimiter(')> operator(*) integer(4096)operator(\)) keyword(as) type(byte)type([]) -keyword(while)operator(()pre_constant(true)operator(\)) operator({) - ident(incoming) operator(=) keyword(new) pre_type(DatagramPacket)operator(()ident(buffer)operator(,) ident(buffer)operator(.)ident(length)operator(\)) - ident(socket)operator(.)ident(receive)operator(()ident(incoming)operator(\)) - ident(s) operator(=) keyword(new) pre_type(String)operator(()ident(incoming)operator(.)ident(data)operator(,) integer(0)operator(,) ident(incoming)operator(.)ident(length)operator(\)) - pre_type(String) ident(reply) operator(=) string<delimiter(")content(Client said: ')inline<inline_delimiter($)ident(s)>content(')delimiter(")> - ident(outgoing) operator(=) keyword(new) pre_type(DatagramPacket)operator(()ident(reply)operator(.)ident(bytes)operator(,) ident(reply)operator(.)ident(size)operator(()operator(\))operator(,) - ident(incoming)operator(.)ident(address)operator(,) ident(incoming)operator(.)ident(port)operator(\))operator(;) - ident(socket)operator(.)ident(send)operator(()ident(outgoing)operator(\)) -operator(}) - -comment(// UDP client) -ident(data) operator(=) string<delimiter(")content(Original Message)delimiter(")>operator(.)ident(getBytes)operator(()string<delimiter(")content(ASCII)delimiter(")>operator(\)) -ident(addr) operator(=) pre_type(InetAddress)operator(.)ident(getByName)operator(()string<delimiter(")content(localhost)delimiter(")>operator(\)) -ident(port) operator(=) integer(5000) -ident(packet) operator(=) keyword(new) pre_type(DatagramPacket)operator(()ident(data)operator(,) ident(data)operator(.)ident(length)operator(,) ident(addr)operator(,) ident(port)operator(\)) -ident(socket) operator(=) keyword(new) pre_type(DatagramSocket)operator(()operator(\)) -ident(socket)operator(.)ident(send)operator(()ident(packet)operator(\)) -ident(socket)operator(.)ident(setSoTimeout)operator(()integer(30000)operator(\)) comment(// block for no more than 30 seconds) -ident(buffer) operator(=) operator(()string<delimiter(')content( )delimiter(')> operator(*) integer(4096)operator(\)) keyword(as) type(byte)type([]) -ident(response) operator(=) keyword(new) pre_type(DatagramPacket)operator(()ident(buffer)operator(,) ident(buffer)operator(.)ident(length)operator(\)) -ident(socket)operator(.)ident(receive)operator(()ident(response)operator(\)) -ident(s) operator(=) keyword(new) pre_type(String)operator(()ident(response)operator(.)ident(data)operator(,) integer(0)operator(,) ident(response)operator(.)ident(length)operator(\)) -ident(println) string<delimiter(")content(Server said: ')inline<inline_delimiter($)ident(s)>content(')delimiter(")> -comment(// => Server said: 'Client said: 'Original Message'') -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_17.6) -comment(//----------------------------------------------------------------------------------) -comment(// DOMAIN sockets not available in cross platform form.) -comment(// On Linux, use jbuds:) -comment(// http://www.graphixprose.com/jbuds/) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_17.7) -comment(//----------------------------------------------------------------------------------) -comment(// TCP socket) -ident(socketAddress) operator(=) ident(tcpSocket)operator(.)ident(remoteSocketAddress) -ident(println) string<delimiter(")inline<inline_delimiter($)ident(socketAddress)>content(.address, )inline<inline_delimiter($)ident(socketAddress)>content(.hostName, )inline<inline_delimiter($)ident(socketAddress)>content(.port)delimiter(")> -comment(// UDP packet) -ident(println) string<delimiter(")inline<inline_delimiter($)ident(udpPacket)>content(.address, )inline<inline_delimiter($)ident(udpPacket)>content(.port)delimiter(")> -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_17.8) -comment(//----------------------------------------------------------------------------------) -comment(// Print the fully qualified domain name for this IP address) -ident(println) pre_type(InetAddress)operator(.)ident(localHost)operator(.)ident(canonicalHostName) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_17.9) -comment(//----------------------------------------------------------------------------------) -ident(socket)operator(.)ident(shutdownInput)operator(()operator(\)) -ident(socket)operator(.)ident(shutdownOutput)operator(()operator(\)) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_17.10) -comment(//----------------------------------------------------------------------------------) -comment(// Spawn off a thread to handle each direction) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_17.11) -comment(//----------------------------------------------------------------------------------) -comment(// Spawn off a thread to handle each request.) -comment(// This is done automatically by the Groovy accept(\) method on ServerSocket.) -comment(// See 17.3 for an example.) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_17.12) -comment(//----------------------------------------------------------------------------------) -comment(// Use a thread pool) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_17.13) -comment(//----------------------------------------------------------------------------------) -comment(// Consider using Selector and/or SocketChannel, ServerSocketChannel and DatagramChannel) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_17.14) -comment(//----------------------------------------------------------------------------------) -comment(// When creating a socket on a multihomed machine, use the socket constructor with) -comment(// 4 params to select a specific address from those available:) -ident(socket) operator(=) keyword(new) pre_type(Socket)operator(()ident(remoteAddr)operator(,) ident(remotePort)operator(,) ident(localAddr)operator(,) ident(localPort)operator(\)) - -comment(// When creating a server on a multihomed machine supply the optional bindAddr param:) -keyword(new) pre_type(ServerSocket)operator(()ident(port)operator(,) ident(queueLength)operator(,) ident(bindAddr)operator(\)) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_17.15) -comment(//----------------------------------------------------------------------------------) -comment(// Fork off a thread for your server and call setDaemon(true\) on the thread.) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_17.16) -comment(//----------------------------------------------------------------------------------) -comment(// Consider using special packages designed to provide robust startup/shutdown) -comment(// capability, e.g.: http://jakarta.apache.org/commons/daemon/) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_17.17) -comment(//----------------------------------------------------------------------------------) -comment(// Alternative to cookbook as proposed inetd solution is not cross platform.) -ident(host) operator(=) string<delimiter(')content(localhost)delimiter(')> -keyword(for) operator(()ident(port) keyword(in) integer(1)operator(..)integer(1024)operator(\)) operator({) - keyword(try) operator({) - ident(s) operator(=) keyword(new) pre_type(Socket)operator(()ident(host)operator(,) ident(port)operator(\)) - ident(println)operator(()string<delimiter(")content(There is a server on port )inline<inline_delimiter($)ident(port)>content( of )inline<inline_delimiter($)ident(host)>delimiter(")>operator(\)) - operator(}) - keyword(catch) operator(()exception(Exception) ident(ex)operator(\)) operator({)operator(}) -operator(}) -comment(// You could open a ServerSocket(\) on each unused port and monitor those.) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_17.18) -comment(//----------------------------------------------------------------------------------) -comment(// It's not too hard to write a TCP Proxy in Groovy but numerous Java packages) -comment(// already exist, so we might as well use one of those:) -comment(// http://ws.apache.org/axis/java/user-guide.html#AppendixUsingTheAxisTCPMonitorTcpmon) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_18.1) -comment(//----------------------------------------------------------------------------------) -ident(name) operator(=) string<delimiter(')content(www.perl.com)delimiter(')> -ident(addresses) operator(=) pre_type(InetAddress)operator(.)ident(getAllByName)operator(()ident(name)operator(\)) -ident(println) ident(addresses) comment(// => {www.perl.com/208.201.239.36, www.perl.com/208.201.239.37}) -comment(// or to just resolve one:) -ident(println) pre_type(InetAddress)operator(.)ident(getByName)operator(()ident(name)operator(\)) comment(// => www.perl.com/208.201.239.36) -comment(// try a different address) -ident(name) operator(=) string<delimiter(')content(groovy.codehaus.org)delimiter(')> -ident(addresses) operator(=) pre_type(InetAddress)operator(.)ident(getAllByName)operator(()ident(name)operator(\)) -ident(println) ident(addresses) comment(// => {groovy.codehaus.org/63.246.7.187}) -comment(// starting with IP address) -ident(address) operator(=) pre_type(InetAddress)operator(.)ident(getByAddress)operator(()operator([)integer(208)operator(,) integer(201)operator(,) integer(239)operator(,) integer(36)operator(]) keyword(as) type(byte)type([])operator(\)) -ident(println) ident(address)operator(.)ident(hostName) comment(// => www.oreillynet.com) - -comment(// For more complex operations use dnsjava: http://www.dnsjava.org/) -keyword(import) include(org.xbill.DNS.*) -pre_type(System)operator(.)ident(setProperty)operator(()string<delimiter(")content(sun.net.spi.nameservice.provider.1)delimiter(")>operator(,)string<delimiter(")content(dns,dnsjava)delimiter(")>operator(\)) -ident(Lookup) ident(lookup) operator(=) keyword(new) ident(Lookup)operator(()string<delimiter(')content(cnn.com)delimiter(')>operator(,) pre_type(Type)operator(.)ident(ANY)operator(\)) -ident(records) operator(=) ident(lookup)operator(.)ident(run)operator(()operator(\)) -ident(println) string<delimiter(")inline<inline_delimiter(${)ident(records)operator(?)operator(.)ident(size)operator(()operator(\))inline_delimiter(})>content( record(s\) found)delimiter(")> -ident(records)operator(.)ident(each)operator({) ident(println) local_variable(it) operator(}) -comment(// =>) -comment(// 17 record(s\) found) -comment(// cnn.com. 55 IN A 64.236.16.20) -comment(// cnn.com. 55 IN A 64.236.16.52) -comment(// cnn.com. 55 IN A 64.236.16.84) -comment(// cnn.com. 55 IN A 64.236.16.116) -comment(// cnn.com. 55 IN A 64.236.24.12) -comment(// cnn.com. 55 IN A 64.236.24.20) -comment(// cnn.com. 55 IN A 64.236.24.28) -comment(// cnn.com. 55 IN A 64.236.29.120) -comment(// cnn.com. 324 IN NS twdns-02.ns.aol.com.) -comment(// cnn.com. 324 IN NS twdns-03.ns.aol.com.) -comment(// cnn.com. 324 IN NS twdns-04.ns.aol.com.) -comment(// cnn.com. 324 IN NS twdns-01.ns.aol.com.) -comment(// cnn.com. 3324 IN SOA twdns-01.ns.aol.com. hostmaster.tbsnames.turner.com. 2007011203 900 300 604801 900) -comment(// cnn.com. 3324 IN MX 10 atlmail3.turner.com.) -comment(// cnn.com. 3324 IN MX 10 atlmail5.turner.com.) -comment(// cnn.com. 3324 IN MX 20 nycmail2.turner.com.) -comment(// cnn.com. 3324 IN MX 30 nycmail1.turner.com.) - -comment(// faster reverse lookup using dnsjava) -keyword(def) method(reverseDns)operator(()ident(hostIp)operator(\)) operator({) - ident(name) operator(=) ident(ReverseMap)operator(.)ident(fromAddress)operator(()ident(hostIp)operator(\)) - ident(rec) operator(=) ident(Record)operator(.)ident(newRecord)operator(()ident(name)operator(,) pre_type(Type)operator(.)ident(PTR)operator(,) ident(DClass)operator(.)ident(IN)operator(\)) - ident(query) operator(=) ident(Message)operator(.)ident(newQuery)operator(()ident(rec)operator(\)) - ident(response) operator(=) keyword(new) ident(ExtendedResolver)operator(()operator(\))operator(.)ident(send)operator(()ident(query)operator(\)) - ident(answers) operator(=) ident(response)operator(.)ident(getSectionArray)operator(()ident(Section)operator(.)ident(ANSWER)operator(\)) - keyword(if) operator(()ident(answers)operator(\)) keyword(return) ident(answers)operator([)integer(0)operator(])operator(.)ident(rdataToString)operator(()operator(\)) keyword(else) keyword(return) ident(hostIp) -operator(}) -ident(println) string<delimiter(')content(208.201.239.36 => )delimiter(')> operator(+) ident(reverseDns)operator(()string<delimiter(')content(208.201.239.36)delimiter(')>operator(\)) -comment(// => 208.201.239.36 => www.oreillynet.com.) - -keyword(def) method(hostAddrs)operator(()ident(name)operator(\)) operator({) - ident(addresses) operator(=) ident(Address)operator(.)ident(getAllByName)operator(()ident(name)operator(\)) - ident(println) ident(addresses)operator([)integer(0)operator(])operator(.)ident(canonicalHostName) operator(+) string<delimiter(')content( => )delimiter(')> operator(+) ident(addresses)operator(.)ident(collect)operator({) local_variable(it)operator(.)ident(hostAddress) operator(})operator(.)ident(join)operator(()string<delimiter(')content( )delimiter(')>operator(\)) -operator(}) -ident(hostAddrs)operator(()string<delimiter(')content(www.ora.com)delimiter(')>operator(\)) -comment(// => www.oreillynet.com. => 208.201.239.36 208.201.239.37) -ident(hostAddrs)operator(()string<delimiter(')content(www.whitehouse.gov)delimiter(')>operator(\)) -comment(// => 61.9.209.153 => 61.9.209.153 61.9.209.151) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_18.2) -comment(//----------------------------------------------------------------------------------) -comment(// commons net examples (explicit error handling not shown\)) -keyword(import) include(java.text.DateFormat) -keyword(import) include(org.apache.commons.net.ftp.FTPClient) -comment(// connect) -ident(server) operator(=) string<delimiter(")content(localhost)delimiter(")> comment(//server = "ftp.host.com") - -ident(ftp) operator(=) keyword(new) ident(FTPClient)operator(()operator(\)) -ident(ftp)operator(.)ident(connect)operator(() ident(server) operator(\)) -ident(ftp)operator(.)ident(login)operator(() string<delimiter(')content(anonymous)delimiter(')>operator(,) string<delimiter(')content(guest)delimiter(')> operator(\)) comment(//ftp.login( 'username', 'password' \)) - -ident(println) string<delimiter(")content(Connected to )inline<inline_delimiter($)ident(server)>content(. )inline<inline_delimiter($)ident(ftp)>content(.replyString)delimiter(")> - -comment(// retrieve file) -ident(ftp)operator(.)ident(changeWorkingDirectory)operator(() string<delimiter(')content(.)delimiter(')> operator(\)) comment(//ftp.changeWorkingDirectory( 'serverFolder' \)) -ident(file) operator(=) keyword(new) pre_type(File)operator(()string<delimiter(')content(README.txt)delimiter(')>operator(\)) comment(//new File('localFolder' + File.separator + 'localFilename'\)) - -ident(file)operator(.)ident(withOutputStream)operator({) ident(os) operator(->) - ident(ftp)operator(.)ident(retrieveFile)operator(() string<delimiter(')content(README.txt)delimiter(')>operator(,) ident(os) operator(\)) comment(//ftp.retrieveFile( 'serverFilename', os \)) -operator(}) - -comment(// upload file) -ident(file) operator(=) keyword(new) pre_type(File)operator(()string<delimiter(')content(otherFile.txt)delimiter(')>operator(\)) comment(//new File('localFolder' + File.separator + 'localFilename'\)) -ident(file)operator(.)ident(withInputStream)operator({) ident(fis) operator(->) ident(ftp)operator(.)ident(storeFile)operator(() string<delimiter(')content(otherFile.txt)delimiter(')>operator(,) ident(fis) operator(\)) operator(}) - -comment(// List the files in the directory) -ident(files) operator(=) ident(ftp)operator(.)ident(listFiles)operator(()operator(\)) -ident(println) string<delimiter(")content(Number of files in dir: )inline<inline_delimiter($)ident(files)>content(.length)delimiter(")> -ident(df) operator(=) pre_type(DateFormat)operator(.)ident(getDateInstance)operator(() pre_type(DateFormat)operator(.)ident(SHORT) operator(\)) -ident(files)operator(.)ident(each)operator({) ident(file) operator(->) - ident(println) string<delimiter(")inline<inline_delimiter(${)ident(df)operator(.)ident(format)operator(()ident(file)operator(.)ident(timestamp)operator(.)ident(time)operator(\))inline_delimiter(})>char(\\t)content( )inline<inline_delimiter($)ident(file)>content(.name)delimiter(")> -operator(}) - -comment(// Logout from the FTP Server and disconnect) -ident(ftp)operator(.)ident(logout)operator(()operator(\)) -ident(ftp)operator(.)ident(disconnect)operator(()operator(\)) -comment(// =>) -comment(// Connected to localhost. 230 User logged in, proceed.) -comment(// Number of files in dir: 2) -comment(// 18/01/07 otherFile.txt) -comment(// 25/04/06 README.txt) - - -comment(// Using AntBuilder; for more details, see:) -comment(// http://ant.apache.org/manual/OptionalTasks/ftp.html) -ident(ant) operator(=) keyword(new) ident(AntBuilder)operator(()operator(\)) -ident(ant)operator(.)ident(ftp)operator(()key(action)operator(:)string<delimiter(')content(send)delimiter(')>operator(,) key(server)operator(:)string<delimiter(')content(ftp.hypothetical.india.org)delimiter(')>operator(,) key(port)operator(:)string<delimiter(')content(2121)delimiter(')>operator(,) - key(remotedir)operator(:)string<delimiter(')content(/pub/incoming)delimiter(')>operator(,) key(userid)operator(:)string<delimiter(')content(coder)delimiter(')>operator(,) key(password)operator(:)string<delimiter(')content(java1)delimiter(')>operator(,) - key(depends)operator(:)string<delimiter(')content(yes)delimiter(')>operator(,) key(binary)operator(:)string<delimiter(')content(no)delimiter(')>operator(,) key(systemTypeKey)operator(:)string<delimiter(')content(Windows)delimiter(')>operator(,) - key(serverTimeZoneConfig)operator(:)string<delimiter(')content(India/Calcutta)delimiter(')>operator(\))operator({) - ident(fileset)operator(()key(dir)operator(:)string<delimiter(')content(htdocs/manual)delimiter(')>operator(\))operator({) - ident(include)operator(()key(name)operator(:)string<delimiter(')content(**/*.html)delimiter(')>operator(\)) - operator(}) -operator(}) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_18.3) -comment(//----------------------------------------------------------------------------------) -comment(// using AntBuilder; for more info, see:) -comment(// http://ant.apache.org/manual/CoreTasks/mail.html) -ident(ant) operator(=) keyword(new) ident(AntBuilder)operator(()operator(\)) -ident(ant)operator(.)ident(mail)operator(()key(mailhost)operator(:)string<delimiter(')content(smtp.myisp.com)delimiter(')>operator(,) key(mailport)operator(:)string<delimiter(')content(1025)delimiter(')>operator(,) key(subject)operator(:)string<delimiter(')content(Test build)delimiter(')>operator(\))operator({) - ident(from)operator(()key(address)operator(:)string<delimiter(')content(config@myisp.com)delimiter(')>operator(\)) - ident(replyto)operator(()key(address)operator(:)string<delimiter(')content(me@myisp.com)delimiter(')>operator(\)) - ident(to)operator(()key(address)operator(:)string<delimiter(')content(all@xyz.com)delimiter(')>operator(\)) - ident(message)operator(()string<delimiter(")content(The )inline<inline_delimiter(${)ident(buildname)inline_delimiter(})>content( nightly build has completed)delimiter(")>operator(\)) - ident(attachments)operator(()operator(\))operator({) comment(// ant 1.7 uses files attribute in earlier versions) - ident(fileset)operator(()key(dir)operator(:)string<delimiter(')content(dist)delimiter(')>operator(\))operator({) - ident(include)operator(()key(name)operator(:)string<delimiter(')content(**/*.zip)delimiter(')>operator(\)) - operator(}) - operator(}) -operator(}) - -comment(// using commons net) -keyword(import) include(org.apache.commons.net.smtp.*) -ident(client) operator(=) keyword(new) ident(SMTPClient)operator(()operator(\)) -ident(client)operator(.)ident(connect)operator(() string<delimiter(")content(mail.myserver.com)delimiter(")>operator(,) integer(25) operator(\)) -keyword(if)operator(() operator(!)ident(SMTPReply)operator(.)ident(isPositiveCompletion)operator(()ident(client)operator(.)ident(replyCode)operator(\)) operator(\)) operator({) - ident(client)operator(.)ident(disconnect)operator(()operator(\)) - pre_type(System)operator(.)ident(err)operator(.)ident(println)operator(()string<delimiter(")content(SMTP server refused connection.)delimiter(")>operator(\)) - pre_type(System)operator(.)ident(exit)operator(()integer(1)operator(\)) -operator(}) - -comment(// Login) -ident(client)operator(.)ident(login)operator(() string<delimiter(")content(myserver.com)delimiter(")> operator(\)) - -comment(// Set the sender and recipient(s\)) -ident(client)operator(.)ident(setSender)operator(() string<delimiter(")content(config@myisp.com)delimiter(")> operator(\)) -ident(client)operator(.)ident(addRecipient)operator(() string<delimiter(")content(all@xyz.com)delimiter(")> operator(\)) - -comment(// Use the SimpleSMTPHeader class to build the header) -ident(writer) operator(=) keyword(new) pre_type(PrintWriter)operator(() ident(client)operator(.)ident(sendMessageData)operator(()operator(\)) operator(\)) -ident(header) operator(=) keyword(new) ident(SimpleSMTPHeader)operator(() string<delimiter(")content(config@myisp.com)delimiter(")>operator(,) string<delimiter(")content(all@xyz.com)delimiter(")>operator(,) string<delimiter(")content(My Subject)delimiter(")>operator(\)) -ident(header)operator(.)ident(addCC)operator(() string<delimiter(")content(me@myisp.com)delimiter(")> operator(\)) -ident(header)operator(.)ident(addHeaderField)operator(() string<delimiter(")content(Organization)delimiter(")>operator(,) string<delimiter(")content(My Company)delimiter(")> operator(\)) - -comment(// Write the header to the SMTP Server) -ident(writer)operator(.)ident(write)operator(() ident(header)operator(.)ident(toString)operator(()operator(\)) operator(\)) - -comment(// Write the body of the message) -ident(writer)operator(.)ident(write)operator(() string<delimiter(")content(This is a test...)delimiter(")> operator(\)) - -comment(// Close the writer ) -ident(writer)operator(.)ident(close)operator(()operator(\)) -keyword(if) operator(() operator(!)ident(client)operator(.)ident(completePendingCommand)operator(()operator(\)) operator(\)) comment(// failure) - pre_type(System)operator(.)ident(exit)operator(() integer(1) operator(\)) - -comment(// Logout from the e-mail server (QUIT\) and close connection) -ident(client)operator(.)ident(logout)operator(()operator(\)) -ident(client)operator(.)ident(disconnect)operator(()operator(\)) - -comment(// You can also use JavaMail; for more details, see:) -comment(// http://java.sun.com/products/javamail/) - -comment(// For testing programs which send emails, consider:) -comment(// Dumbster (http://quintanasoft.com/dumbster/\)) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_18.4) -comment(//----------------------------------------------------------------------------------) -comment(// slight variation to original cookbook:) -comment(// prints 1st, 2nd and last articles from random newsgroup) -keyword(import) include(org.apache.commons.net.nntp.NNTPClient) -ident(postingPerm) operator(=) operator([)string<delimiter(')content(Unknown)delimiter(')>operator(,) string<delimiter(')content(Moderated)delimiter(')>operator(,) string<delimiter(')content(Permitted)delimiter(')>operator(,) string<delimiter(')content(Prohibited)delimiter(')>operator(]) -ident(client) operator(=) keyword(new) ident(NNTPClient)operator(()operator(\)) -ident(client)operator(.)ident(connect)operator(()string<delimiter(")content(news.example.com)delimiter(")>operator(\)) -ident(list) operator(=) ident(client)operator(.)ident(listNewsgroups)operator(()operator(\)) -ident(println) string<delimiter(")content(Found )inline<inline_delimiter(${)ident(list)operator(.)ident(size)operator(()operator(\))inline_delimiter(})>content( newsgroups)delimiter(")> -ident(aList) operator(=) ident(list)operator([)keyword(new) pre_type(Random)operator(()operator(\))operator(.)ident(nextInt)operator(()ident(list)operator(.)ident(size)operator(()operator(\))operator(\))operator(]) -ident(println) string<delimiter(")inline<inline_delimiter($)ident(aList)>content(.newsgroup has )inline<inline_delimiter($)ident(aList)>content(.articleCount articles)delimiter(")> -ident(println) string<delimiter(")content(PostingPermission = )inline<inline_delimiter(${)ident(postingPerm)operator([)ident(aList)operator(.)ident(postingPermission)operator(])inline_delimiter(})>delimiter(")> -ident(first) operator(=) ident(aList)operator(.)ident(firstArticle) -ident(println) string<delimiter(")content(First=)inline<inline_delimiter($)ident(first)>content(, Last=)inline<inline_delimiter($)ident(aList)>content(.lastArticle)delimiter(")> -ident(client)operator(.)ident(retrieveArticle)operator(()ident(first)operator(\))operator(?)operator(.)ident(eachLine)operator({) ident(println) local_variable(it) operator(}) -ident(client)operator(.)ident(selectNextArticle)operator(()operator(\)) -ident(client)operator(.)ident(retrieveArticle)operator(()operator(\))operator(?)operator(.)ident(eachLine)operator({) ident(println) local_variable(it) operator(}) -ident(client)operator(.)ident(retrieveArticle)operator(()ident(aList)operator(.)ident(lastArticle)operator(\))operator(?)operator(.)ident(eachLine)operator({) ident(println) local_variable(it) operator(}) -ident(writer) operator(=) ident(client)operator(.)ident(postArticle)operator(()operator(\)) -comment(// ... use writer ...) -ident(writer)operator(.)ident(close)operator(()operator(\)) -ident(client)operator(.)ident(logout)operator(()operator(\)) -keyword(if) operator(()ident(client)operator(.)ident(isConnected)operator(()operator(\))operator(\)) ident(client)operator(.)ident(disconnect)operator(()operator(\)) -comment(// =>) -comment(// Found 37025 newsgroups) -comment(// alt.comp.sys.palmtops.pilot has 730 articles) -comment(// PostingPermission = Permitted) -comment(// First=21904, Last=22633) -comment(// ...) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_18.5) -comment(//----------------------------------------------------------------------------------) -comment(// slight variation to original cookbook to print summary of messages on server) -comment(// uses commons net) -keyword(import) include(org.apache.commons.net.pop3.POP3Client) -ident(server) operator(=) string<delimiter(')content(pop.myisp.com)delimiter(')> -ident(username) operator(=) string<delimiter(')content(gnat)delimiter(')> -ident(password) operator(=) string<delimiter(')content(S33kr1T Pa55w0rD)delimiter(')> -ident(timeoutMillis) operator(=) integer(30000) - -keyword(def) method(printMessageInfo)operator(()ident(reader)operator(,) ident(id)operator(\)) operator({) - keyword(def) ident(from)operator(,) ident(subject) - ident(reader)operator(.)ident(eachLine)operator({) ident(line) operator(->) - ident(lower) operator(=) ident(line)operator(.)ident(toLowerCase)operator(()operator(\)) - keyword(if) operator(()ident(lower)operator(.)ident(startsWith)operator(()string<delimiter(")content(from: )delimiter(")>operator(\))operator(\)) ident(from) operator(=) ident(line)operator([)integer(6)operator(..)operator(-)integer(1)operator(])operator(.)ident(trim)operator(()operator(\)) - keyword(else) keyword(if) operator(()ident(lower)operator(.)ident(startsWith)operator(()string<delimiter(")content(subject: )delimiter(")>operator(\))operator(\)) ident(subject) operator(=) ident(line)operator([)integer(9)operator(..)operator(-)integer(1)operator(])operator(.)ident(trim)operator(()operator(\)) - operator(}) - ident(println) string<delimiter(")inline<inline_delimiter($)ident(id)>content( From: )inline<inline_delimiter($)ident(from)>content(, Subject: )inline<inline_delimiter($)ident(subject)>delimiter(")> -operator(}) - -ident(pop3) operator(=) keyword(new) ident(POP3Client)operator(()operator(\)) -ident(pop3)operator(.)ident(setDefaultTimeout)operator(()ident(timeoutMillis)operator(\)) -ident(pop3)operator(.)ident(connect)operator(()ident(server)operator(\)) - -keyword(if) operator(()operator(!)ident(pop3)operator(.)ident(login)operator(()ident(username)operator(,) ident(password)operator(\))operator(\)) operator({) - pre_type(System)operator(.)ident(err)operator(.)ident(println)operator(()string<delimiter(")content(Could not login to server. Check password.)delimiter(")>operator(\)) - ident(pop3)operator(.)ident(disconnect)operator(()operator(\)) - pre_type(System)operator(.)ident(exit)operator(()integer(1)operator(\)) -operator(}) -ident(messages) operator(=) ident(pop3)operator(.)ident(listMessages)operator(()operator(\)) -keyword(if) operator(()operator(!)ident(messages)operator(\)) pre_type(System)operator(.)ident(err)operator(.)ident(println)operator(()string<delimiter(")content(Could not retrieve message list.)delimiter(")>operator(\)) -keyword(else) keyword(if) operator(()ident(messages)operator(.)ident(length) operator(==) integer(0)operator(\)) ident(println)operator(()string<delimiter(")content(No messages)delimiter(")>operator(\)) -keyword(else) operator({) - ident(messages)operator(.)ident(each)operator({) ident(message) operator(->) - ident(reader) operator(=) ident(pop3)operator(.)ident(retrieveMessageTop)operator(()ident(message)operator(.)ident(number)operator(,) integer(0)operator(\)) - keyword(if) operator(()operator(!)ident(reader)operator(\)) operator({) - pre_type(System)operator(.)ident(err)operator(.)ident(println)operator(()string<delimiter(")content(Could not retrieve message header. Skipping...)delimiter(")>operator(\)) - operator(}) - ident(printMessageInfo)operator(()keyword(new) pre_type(BufferedReader)operator(()ident(reader)operator(\))operator(,) ident(message)operator(.)ident(number)operator(\)) - operator(}) -operator(}) - -ident(pop3)operator(.)ident(logout)operator(()operator(\)) -ident(pop3)operator(.)ident(disconnect)operator(()operator(\)) - -comment(// You can also use JavaMail; for more details, see:) -comment(// http://java.sun.com/products/javamail/) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_18.6) -comment(//----------------------------------------------------------------------------------) -comment(// Variation to original cookbook: this more extensive example) -comment(// uses telnet to extract weather information about Sydney from) -comment(// a telnet-based weather server at the University of Michigan.) -keyword(import) include(org.apache.commons.net.telnet.TelnetClient) - -keyword(def) method(readUntil)operator(() ident(pattern) operator(\)) operator({) - ident(sb) operator(=) keyword(new) pre_type(StringBuffer)operator(()operator(\)) - keyword(while) operator(()operator(()ident(ch) operator(=) ident(reader)operator(.)ident(read)operator(()operator(\))operator(\)) operator(!=) operator(-)integer(1)operator(\)) operator({) - ident(sb) operator(<)operator(<) operator(()type(char)operator(\)) ident(ch) - keyword(if) operator(()ident(sb)operator(.)ident(toString)operator(()operator(\))operator(.)ident(endsWith)operator(()ident(pattern)operator(\))operator(\)) operator({) - keyword(def) ident(found) operator(=) ident(sb)operator(.)ident(toString)operator(()operator(\)) - ident(sb) operator(=) keyword(new) pre_type(StringBuffer)operator(()operator(\)) - keyword(return) ident(found) - operator(}) - operator(}) - keyword(return) pre_constant(null) -operator(}) - -ident(telnet) operator(=) keyword(new) ident(TelnetClient)operator(()operator(\)) -ident(telnet)operator(.)ident(connect)operator(() string<delimiter(')content(rainmaker.wunderground.com)delimiter(')>operator(,) integer(3000) operator(\)) -ident(reader) operator(=) ident(telnet)operator(.)ident(inputStream)operator(.)ident(newReader)operator(()operator(\)) -ident(writer) operator(=) keyword(new) pre_type(PrintWriter)operator(()keyword(new) pre_type(OutputStreamWriter)operator(()ident(telnet)operator(.)ident(outputStream)operator(\))operator(,)pre_constant(true)operator(\)) -ident(readUntil)operator(() string<delimiter(")content(Welcome)delimiter(")> operator(\)) -ident(println) string<delimiter(')content(Welcome)delimiter(')> operator(+) ident(readUntil)operator(() string<delimiter(")content(!)delimiter(")> operator(\)) -ident(readUntil)operator(() string<delimiter(")content(continue:)delimiter(")> operator(\)) -ident(writer)operator(.)ident(println)operator(()operator(\)) -ident(readUntil)operator(() string<delimiter(")content(-- )delimiter(")> operator(\)) -ident(writer)operator(.)ident(println)operator(()operator(\)) -ident(readUntil)operator(() string<delimiter(")content(Selection:)delimiter(")> operator(\)) -ident(writer)operator(.)ident(println)operator(()string<delimiter(")content(10)delimiter(")>operator(\)) -ident(readUntil)operator(() string<delimiter(")content(Selection:)delimiter(")> operator(\)) -ident(writer)operator(.)ident(println)operator(()string<delimiter(")content(3)delimiter(")>operator(\)) -ident(x) operator(=) ident(readUntil)operator(() string<delimiter(")content(Return)delimiter(")> operator(\)) -keyword(while) operator(()operator(!)ident(x)operator(.)ident(contains)operator(()string<delimiter(')content(SYDNEY)delimiter(')>operator(\))operator(\)) operator({) - ident(writer)operator(.)ident(println)operator(()operator(\)) - ident(x) operator(=) ident(readUntil)operator(() string<delimiter(")content(Return)delimiter(")> operator(\)) -operator(}) -ident(m) operator(=) operator(()ident(x) operator(=~) regexp<delimiter(/)content((?sm\).*(SYDNEY.*?\))content($)delimiter(/)>operator(\)) -ident(telnet)operator(.)ident(disconnect)operator(()operator(\)) -ident(println) ident(m)operator([)integer(0)operator(])operator([)integer(1)operator(]) -comment(// =>) -comment(// Welcome to THE WEATHER UNDERGROUND telnet service!) -comment(// SYDNEY FAIR 10AM 81 27) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_18.7) -comment(//----------------------------------------------------------------------------------) -ident(address) operator(=) pre_type(InetAddress)operator(.)ident(getByName)operator(()string<delimiter(")content(web.mit.edu)delimiter(")>operator(\)) -ident(timeoutMillis) operator(=) integer(3000) -ident(println) ident(address)operator(.)ident(isReachable)operator(()ident(timeoutMillis)operator(\)) -comment(// => true (if firewalls don't get in the way, may require privileges on Linux,) -comment(// may not use ICMP but rather Echo protocol on Windows machines\)) - -comment(// You can also use commons net EchoUDPClient and EchoTCPClient to interact) -comment(// with the Echo protocol - sometimes useful for ping-like functionality.) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_18.8) -comment(//----------------------------------------------------------------------------------) -keyword(import) include(org.apache.commons.net.WhoisClient) -ident(whois) operator(=) keyword(new) ident(WhoisClient)operator(()operator(\)) -ident(whois)operator(.)ident(connect)operator(()ident(WhoisClient)operator(.)ident(DEFAULT_HOST)operator(\)) -ident(result) operator(=) ident(whois)operator(.)ident(query)operator(()string<delimiter(')content(cnn.com)delimiter(')>operator(\)) comment(// as text of complete query) -ident(println) ident(result) comment(// could extract info from result here (using e.g. regex\)) -ident(whois)operator(.)ident(disconnect)operator(()operator(\)) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_18.9) -comment(//----------------------------------------------------------------------------------) -comment(// not exact equivalent to original cookbook: just shows raw functionality) -ident(client) operator(=) keyword(new) ident(SMTPClient)operator(()operator(\)) -ident(client)operator(.)ident(connect)operator(() string<delimiter(")content(smtp.example.com)delimiter(")>operator(,) integer(25) operator(\)) -ident(println) ident(client)operator(.)ident(verify)operator(()string<delimiter(")content(george)delimiter(")>operator(\)) comment(// => true) -ident(println) ident(client)operator(.)ident(replyString) comment(// => 250 George Washington <george@wash.dc.gov>) -ident(println) ident(client)operator(.)ident(verify)operator(()string<delimiter(")content(jetson)delimiter(")>operator(\)) comment(// => false) -ident(println) ident(client)operator(.)ident(replyString) comment(// => 550 jetson... User unknown) -ident(client)operator(.)ident(expn)operator(()string<delimiter(")content(presidents)delimiter(")>operator(\)) -ident(println) ident(client)operator(.)ident(replyString) -comment(// =>) -comment(// 250-George Washington <george@wash.dc.gov>) -comment(// 250-Thomas Jefferson <tj@wash.dc.gov>) -comment(// 250-Ben Franklin <ben@here.us.edu>) -comment(// ...) - -comment(// expect these commands to be disabled by most public servers due to spam) -ident(println) ident(client)operator(.)ident(replyString) -comment(// => 502 Command is locally disabled) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_19.0) -comment(//----------------------------------------------------------------------------------) -comment(// URLs have the same form as in Perl) - -comment(// Invoking dynamic content is done through the same standard urls:) -comment(// http://mox.perl.com/cgi-bin/program?name=Johann&born=1685) -comment(// http://mox.perl.com/cgi-bin/program) - -comment(// Groovy has Groovelets and GSP page support built-in. For a full) -comment(// web framework, see Grails: http://grails.codehaus.org/) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_19.1) -comment(//----------------------------------------------------------------------------------) -comment(// as a plain groovelet) -ident(param) operator(=) ident(request)operator(.)ident(getParameter)operator(()string<delimiter(')content(PARAM_NAME)delimiter(')>operator(\)) -ident(println) string<delimiter(""")content( -<html><head> -<title>Howdy there!</title> -</head> -<body> -<p> -You typed: )inline<inline_delimiter($)ident(param)>content( -</p> -</body> -</html> -)delimiter(""")> - -comment(// as a groovelet using markup builder) -keyword(import) include(groovy.xml.MarkupBuilder) -ident(writer) operator(=) keyword(new) pre_type(StringWriter)operator(()operator(\)) -ident(builder) operator(=) keyword(new) ident(MarkupBuilder)operator(()ident(writer)operator(\)) -ident(builder)operator(.)ident(html) operator({) - ident(head) operator({) - ident(title) string<delimiter(')content(Howdy there!)delimiter(')> - operator(}) - ident(body) operator({) - ident(p)operator(()string<delimiter(')content(You typed: )delimiter(')> operator(+) ident(request)operator(.)ident(getParameter)operator(()string<delimiter(')content(PARAM_NAME)delimiter(')>operator(\))operator(\)) - operator(}) -operator(}) -ident(println) ident(writer)operator(.)ident(toString)operator(()operator(\)) - -comment(// as a GSP page:) -operator(<)ident(html)operator(>)operator(<)ident(head)operator(>) -operator(<)ident(title)operator(>)ident(Howdy) ident(there)operator(!)operator(<)regexp<delimiter(/)content(title>)>error( -)operator(<)regexp<delimiter(/)content(head>)>error( -)operator(<)ident(body)operator(>) -operator(<)ident(p)operator(>) -ident(You) key(typed)operator(:) error($)operator({)ident(request)operator(.)ident(getParameter)operator(()string<delimiter(')content(PARAM_NAME)delimiter(')>operator(\))operator(}) -operator(<)regexp<delimiter(/)content(p>)>error( -)operator(<)regexp<delimiter(/)content(body>)>error( -)operator(<)regexp<delimiter(/)content(html>)>error( -) -comment(// Request parameters are often encoded by the browser before) -comment(// sending to the server and usually can be printed out as is.) -comment(// If you need to convert, use commons lang StringEscapeUtils#escapeHtml(\)) -comment(// and StringEscapeUtils#unescapeHtml(\).) - -comment(// Getting parameters:) -ident(who) operator(=) ident(request)operator(.)ident(getParameter)operator(()string<delimiter(')content(Name)delimiter(')>operator(\)) -ident(phone) operator(=) ident(request)operator(.)ident(getParameter)operator(()string<delimiter(')content(Number)delimiter(')>operator(\)) -ident(picks) operator(=) ident(request)operator(.)ident(getParameterValues)operator(()string<delimiter(')content(Choices)delimiter(')>operator(\)) comment(// String array or null) - -comment(// Changing headers:) -ident(response)operator(.)ident(setContentType)operator(()string<delimiter(')content(text/html;charset=UTF-8)delimiter(')>operator(\)) -ident(response)operator(.)ident(setContentType)operator(()string<delimiter(')content(text/plain)delimiter(')>operator(\)) -ident(response)operator(.)ident(setContentType)operator(()string<delimiter(')content(text/plain)delimiter(')>operator(\)) -ident(response)operator(.)ident(setHeader)operator(()string<delimiter(')content(Cache-control)delimiter(')>operator(,) string<delimiter(')content(no-cache)delimiter(')>operator(\)) -ident(response)operator(.)ident(setDateHeader)operator(()string<delimiter(')content(Expires)delimiter(')>operator(,) pre_type(System)operator(.)ident(currentTimeMillis)operator(()operator(\)) operator(+) integer(3)operator(*)integer(24)operator(*)integer(60)operator(*)integer(60)operator(*)integer(1000)operator(\)) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_19.2) -comment(//----------------------------------------------------------------------------------) -comment(// The Java Servlet API has a special log(\) method for writing to the) -comment(// web server log.) - -comment(// To send errors to custom HTML pages, update the web.xml deployment) -comment(// descriptor to include one or more <error-page> elements, e.g.:) -operator(<)ident(error)operator(-)ident(page)operator(>) - operator(<)ident(error)operator(-)ident(code)operator(>)integer(404)operator(<)regexp<delimiter(/)content(error-code>)>error( -) operator(<)ident(location)operator(>)regexp<delimiter(/)content(404.html<)delimiter(/)>ident(location)operator(>) -operator(<)regexp<delimiter(/)content(error-page>)>error( -)operator(<)ident(error)operator(-)ident(page)operator(>) - operator(<)ident(exception)operator(-)ident(type)operator(>)ident(java)operator(.)ident(lang)operator(.)ident(NullPointerException)operator(<)regexp<delimiter(/)content(exception-type>)>error( -) operator(<)ident(location)operator(>)regexp<delimiter(/)content(NpeError.gsp<)delimiter(/)>ident(location)operator(>) -operator(<)regexp<delimiter(/)content(error-page>)>error( -) -comment(// Another trick is to catch an exception within the servlet/gsp code) -comment(// and print it out into the HTML as a comment.) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_19.3) -comment(//----------------------------------------------------------------------------------) -comment(// 500 errors could occur if you have compile errors in your script.) -comment(// Pre-compile with your IDE or groovyc.) - -comment(// You can use an expando, mock or map to run your scripts outside) -comment(// the web container environment. If you use Jetty as your container) -comment(// it has a special servlet tester, for more details:) -comment(// http://blogs.webtide.com/gregw/2006/12/16/1166307599250.html) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_19.4) -comment(//----------------------------------------------------------------------------------) -comment(// Web servers should be invoked with an appropriate Java security policy in place.) -comment(// This can be used to limit possible actions from hacking attempts.) - -comment(// Normal practices limit hacking exposure. The JDBC API encourages the use) -comment(// of Prepared queries rather than encouraging practices which lead to SQL) -comment(// injection. Using system or exec is rarely used either as Java provides) -comment(// cross-platform mechanisms for most operating system level functionality.) - -comment(// Other security measures should be complemented with SSL and authentication.) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_19.5) -comment(//----------------------------------------------------------------------------------) -comment(// Within the servlet element of your web.xml, there is a <load-on-startup> element.) -comment(// Use that on a per servlet basis to pre-load whichever servlets you like.) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_19.6) -comment(//----------------------------------------------------------------------------------) -comment(// As discussed in 19.3 and 19.4:) -comment(// Web servers should be invoked with an appropriate Java security policy in place.) -comment(// This can be used to limit possible actions from hacking attempts.) - -comment(// Normal practices limit hacking exposure. The JDBC API encourages the use) -comment(// of Prepared queries rather than encouraging practices which lead to SQL) -comment(// injection. Using system or exec is rarely used either as Java provides) -comment(// cross-platform mechanisms for most operating system level functionality.) - -comment(// In addition, if authentication is used, security can be locked down at a) -comment(// very fine-grained level on a per servlet action or per user (with JAAS\) basis.) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_19.7) -comment(//----------------------------------------------------------------------------------) -keyword(import) include(groovy.xml.*) -comment(// using a builder:) -ident(Closure) ident(markup) operator(=) operator({) - ident(ol) operator({) - operator([)string<delimiter(')content(red)delimiter(')>operator(,)string<delimiter(')content(blue)delimiter(')>operator(,)string<delimiter(')content(green)delimiter(')>operator(])operator(.)ident(each)operator({) ident(li)operator(()local_variable(it)operator(\)) operator(}) - operator(}) -operator(}) -ident(println) keyword(new) ident(StreamingMarkupBuilder)operator(()operator(\))operator(.)ident(bind)operator(()ident(markup)operator(\))operator(.)ident(toString)operator(()operator(\)) -comment(// => <ol><li>red</li><li>blue</li><li>green</li></ol>) - -ident(names) operator(=) string<delimiter(')content(Larry Moe Curly)delimiter(')>operator(.)ident(split)operator(()string<delimiter(')content( )delimiter(')>operator(\)) -ident(markup) operator(=) operator({) - ident(ul) operator({) - ident(names)operator(.)ident(each)operator({) ident(li)operator(()key(type)operator(:)string<delimiter(')content(disc)delimiter(')>operator(,) local_variable(it)operator(\)) operator(}) - operator(}) -operator(}) -ident(println) keyword(new) ident(StreamingMarkupBuilder)operator(()operator(\))operator(.)ident(bind)operator(()ident(markup)operator(\))operator(.)ident(toString)operator(()operator(\)) -comment(// <ul><li type="disc">Larry</li><li type="disc">Moe</li>) -comment(// <li type="disc">Curly</li></ul>) -comment(//-----------------------------) - -ident(m) operator(=) operator({) ident(li)operator(()string<delimiter(")content(alpha)delimiter(")>operator(\)) operator(}) -ident(println) keyword(new) ident(StreamingMarkupBuilder)operator(()operator(\))operator(.)ident(bind)operator(()ident(m)operator(\))operator(.)ident(toString)operator(()operator(\)) -comment(// <li>alpha</li>) - -ident(m) operator(=) operator({) operator([)string<delimiter(')content(alpha)delimiter(')>operator(,)string<delimiter(')content(omega)delimiter(')>operator(])operator(.)ident(each) operator({) ident(li)operator(()local_variable(it)operator(\)) operator(}) operator(}) -ident(println) keyword(new) ident(StreamingMarkupBuilder)operator(()operator(\))operator(.)ident(bind)operator(()ident(m)operator(\))operator(.)ident(toString)operator(()operator(\)) -comment(// <li>alpha</li> <li>omega</li>) -comment(//-----------------------------) - -ident(states) operator(=) operator([) - string<delimiter(")content(Wisconsin)delimiter(")>operator(:) operator([) string<delimiter(")content(Superior)delimiter(")>operator(,) string<delimiter(")content(Lake Geneva)delimiter(")>operator(,) string<delimiter(")content(Madison)delimiter(")> operator(])operator(,) - string<delimiter(")content(Colorado)delimiter(")>operator(:) operator([) string<delimiter(")content(Denver)delimiter(")>operator(,) string<delimiter(")content(Fort Collins)delimiter(")>operator(,) string<delimiter(")content(Boulder)delimiter(")> operator(])operator(,) - string<delimiter(")content(Texas)delimiter(")>operator(:) operator([) string<delimiter(")content(Plano)delimiter(")>operator(,) string<delimiter(")content(Austin)delimiter(")>operator(,) string<delimiter(")content(Fort Stockton)delimiter(")> operator(])operator(,) - string<delimiter(")content(California)delimiter(")>operator(:) operator([) string<delimiter(")content(Sebastopol)delimiter(")>operator(,) string<delimiter(")content(Santa Rosa)delimiter(")>operator(,) string<delimiter(")content(Berkeley)delimiter(")> operator(])operator(,) -operator(]) - -ident(writer) operator(=) keyword(new) pre_type(StringWriter)operator(()operator(\)) -ident(builder) operator(=) keyword(new) ident(MarkupBuilder)operator(()ident(writer)operator(\)) -ident(builder)operator(.)ident(table)operator({) - ident(caption)operator(()string<delimiter(')content(Cities I Have Known)delimiter(')>operator(\)) - ident(tr)operator({) ident(th)operator(()string<delimiter(')content(State)delimiter(')>operator(\))operator(;) ident(th)operator(()key(colspan)operator(:)integer(3)operator(,) string<delimiter(')content(Cities)delimiter(')>operator(\)) operator(}) - ident(states)operator(.)ident(keySet)operator(()operator(\))operator(.)ident(sort)operator(()operator(\))operator(.)ident(each)operator({) ident(state) operator(->) - ident(tr)operator({) - ident(th)operator(()ident(state)operator(\)) - ident(states)operator([)ident(state)operator(])operator(.)ident(sort)operator(()operator(\))operator(.)ident(each)operator({) ident(td)operator(()local_variable(it)operator(\)) operator(}) - operator(}) - operator(}) -operator(}) -ident(println) ident(writer)operator(.)ident(toString)operator(()operator(\)) -comment(// =>) -comment(// <table>) -comment(// <caption>Cities I Have Known</caption>) -comment(// <tr>) -comment(// <th>State</th>) -comment(// <th colspan='3'>Cities</th>) -comment(// </tr>) -comment(// <tr>) -comment(// <th>California</th>) -comment(// <td>Berkeley</td>) -comment(// <td>Santa Rosa</td>) -comment(// <td>Sebastopol</td>) -comment(// </tr>) -comment(// <tr>) -comment(// <th>Colorado</th>) -comment(// <td>Boulder</td>) -comment(// <td>Denver</td>) -comment(// <td>Fort Collins</td>) -comment(// </tr>) -comment(// <tr>) -comment(// <th>Texas</th>) -comment(// <td>Austin</td>) -comment(// <td>Fort Stockton</td>) -comment(// <td>Plano</td>) -comment(// </tr>) -comment(// <tr>) -comment(// <th>Wisconsin</th>) -comment(// <td>Lake Geneva</td>) -comment(// <td>Madison</td>) -comment(// <td>Superior</td>) -comment(// </tr>) -comment(// </table>) - -keyword(import) include(groovy.sql.Sql) -keyword(import) include(groovy.xml.MarkupBuilder) - -ident(dbHandle) operator(=) pre_constant(null) -ident(dbUrl) operator(=) string<delimiter(')content(jdbc:hsqldb:...)delimiter(')> -keyword(def) method(getDb)operator(()operator(\))operator({) - keyword(if) operator(()ident(dbHandle)operator(\)) keyword(return) ident(dbHandle) - keyword(def) ident(source) operator(=) keyword(new) ident(org)operator(.)ident(hsqldb)operator(.)ident(jdbc)operator(.)ident(jdbcDataSource)operator(()operator(\)) - ident(source)operator(.)ident(database) operator(=) ident(dbUrl) - ident(source)operator(.)ident(user) operator(=) string<delimiter(')content(sa)delimiter(')> - ident(source)operator(.)ident(password) operator(=) string<delimiter(')delimiter(')> - ident(dbHandle) operator(=) keyword(new) ident(Sql)operator(()ident(source)operator(\)) - keyword(return) ident(dbHandle) -operator(}) - -keyword(def) method(findByLimit)operator(()ident(limit)operator(\)) operator({) - ident(db)operator(.)ident(rows) string<delimiter(")content(SELECT name,salary FROM employees where salary > )inline<inline_delimiter($)ident(limit)>delimiter(")> -operator(}) - -ident(limit) operator(=) ident(request)operator(.)ident(getParameter)operator(()string<delimiter(')content(LIMIT)delimiter(')>operator(\)) -ident(writer) operator(=) keyword(new) pre_type(StringWriter)operator(()operator(\)) -ident(builder) operator(=) keyword(new) ident(MarkupBuilder)operator(()ident(writer)operator(\)) -ident(builder)operator(.)ident(html) operator({) - ident(head) operator({) ident(title)operator(()string<delimiter(')content(Salary Query)delimiter(')>operator(\)) operator(}) - ident(h1)operator(()string<delimiter(')content(Search)delimiter(')>operator(\)) - ident(form)operator({) - ident(p)operator(()string<delimiter(')content(Enter minimum salary)delimiter(')>operator(\)) - ident(input)operator(()key(type)operator(:)string<delimiter(')content(text)delimiter(')>operator(,) key(name)operator(:)string<delimiter(')content(LIMIT)delimiter(')>operator(\)) - ident(input)operator(()key(type)operator(:)string<delimiter(')content(submit)delimiter(')>operator(\)) - operator(}) - keyword(if) operator(()ident(limit)operator(\)) operator({) - ident(h1)operator(()string<delimiter(')content(Results)delimiter(')>operator(\)) - ident(table)operator(()key(border)operator(:)integer(1)operator(\))operator({) - ident(findByLimit)operator(()ident(limit)operator(\))operator(.)ident(each)operator({) ident(row) operator(->) - ident(tr)operator({) ident(td)operator(()ident(row)operator(.)ident(name)operator(\))operator(;) ident(td)operator(()ident(row)operator(.)ident(salary)operator(\)) operator(}) - operator(}) - operator(}) - operator(}) -operator(}) -ident(println) ident(writer)operator(.)ident(toString)operator(()operator(\)) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_19.8) -comment(//----------------------------------------------------------------------------------) -comment(// The preferred way to redirect to resources within the web application:) -ident(dispatcher) operator(=) ident(request)operator(.)ident(getRequestDispatcher)operator(()string<delimiter(')content(hello.gsp)delimiter(')>operator(\)) -ident(dispatcher)operator(.)ident(forward)operator(()ident(request)operator(,) ident(response)operator(\)) -comment(// Old versions of web containers allowed this mechanism to also redirect) -comment(// to external resources but this was deemed a potential security risk.) - -comment(// The suggested way to external sites (less efficient for internal resources\):) -ident(response)operator(.)ident(sendRedirect)operator(()string<delimiter(")content(http://www.perl.com/CPAN/)delimiter(")>operator(\)) - -comment(// set cookie and forward) -ident(oreo) operator(=) keyword(new) ident(Cookie)operator(()string<delimiter(')content(filling)delimiter(')>operator(,) string<delimiter(')content(vanilla creme)delimiter(')>operator(\)) -ident(THREE_MONTHS) operator(=) integer(3) operator(*) integer(30) operator(*) integer(24) operator(*) integer(60) operator(*) integer(60) -ident(oreo)operator(.)ident(maxAge) operator(=) ident(THREE_MONTHS) -ident(oreo)operator(.)ident(domain) operator(=) string<delimiter(')content(.pleac.sourceforge.net)delimiter(')> -ident(whither) operator(=) string<delimiter(')content(http://pleac.sourceforge.net/pleac_ruby/cgiprogramming.html)delimiter(')> -ident(response)operator(.)ident(addCookie)operator(()ident(oreo)operator(\)) -ident(response)operator(.)ident(sendRedirect)operator(()ident(whither)operator(\)) - -comment(// forward based on user agent) -ident(dir) operator(=) string<delimiter(')content(http://www.science.uva.nl/%7Emes/jargon)delimiter(')> -ident(agent) operator(=) ident(request)operator(.)ident(getHeader)operator(()string<delimiter(')content(user-agent)delimiter(')>operator(\)) -ident(menu) operator(=) operator([) - operator([)regexp<delimiter(/)content(Mac)delimiter(/)>operator(,) string<delimiter(')content(m/macintrash.html)delimiter(')>operator(])operator(,) - operator([)regexp<delimiter(/)content(Win(dows \)?NT)delimiter(/)>operator(,) string<delimiter(')content(e/evilandrude.html)delimiter(')>operator(])operator(,) - operator([)regexp<delimiter(/)content(Win|MSIE|WebTV)delimiter(/)>operator(,) string<delimiter(')content(m/microslothwindows.html)delimiter(')>operator(])operator(,) - operator([)regexp<delimiter(/)content(Linux)delimiter(/)>operator(,) string<delimiter(')content(l/linux.html)delimiter(')>operator(])operator(,) - operator([)regexp<delimiter(/)content(HP-UX)delimiter(/)>operator(,) string<delimiter(')content(h/hpsux.html)delimiter(')>operator(])operator(,) - operator([)regexp<delimiter(/)content(SunOS)delimiter(/)>operator(,) string<delimiter(')content(s/scumos.html)delimiter(')>operator(])operator(,) -operator(]) -ident(page) operator(=) string<delimiter(')content(a/aportraitofj.randomhacker.html)delimiter(')> -ident(menu)operator(.)ident(each)operator({) - keyword(if) operator(()ident(agent) operator(=~) local_variable(it)operator([)integer(0)operator(])operator(\)) ident(page) operator(=) local_variable(it)operator([)integer(1)operator(]) -operator(}) -ident(response)operator(.)ident(sendRedirect)operator(()string<delimiter(")inline<inline_delimiter($)ident(dir)>content(/)inline<inline_delimiter($)ident(page)>delimiter(")>operator(\)) - -comment(// no response output) -ident(response)operator(.)ident(sendError)operator(()integer(204)operator(,) string<delimiter(')content(No Response)delimiter(')>operator(\)) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_19.9) -comment(//----------------------------------------------------------------------------------) -comment(// Consider TCPMON or similar: http://ws.apache.org/commons/tcpmon/) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_19.10) -comment(//----------------------------------------------------------------------------------) -comment(// helper method) -keyword(import) include(javax.servlet.http.Cookie) -keyword(import) include(groovy.xml.MarkupBuilder) - -keyword(def) method(getCookieValue)operator(()ident(cookies)operator(,) ident(cookieName)operator(,) ident(defaultValue)operator(\)) operator({) - keyword(if) operator(()ident(cookies)operator(\)) keyword(for) operator(()ident(i) keyword(in) integer(0)operator(..<)ident(cookies)operator(.)ident(length)operator(\)) operator({) - keyword(if) operator(()ident(cookieName) operator(==) ident(cookies)operator([)ident(i)operator(])operator(.)ident(name)operator(\)) keyword(return) ident(cookies)operator([)ident(i)operator(])operator(.)ident(value) - operator(}) - keyword(return) ident(defaultValue) -operator(}) - -ident(prefValue) operator(=) ident(getCookieValue)operator(()ident(request)operator(.)ident(cookies)operator(,) string<delimiter(')content(preference_name)delimiter(')>operator(,) string<delimiter(')content(default)delimiter(')>operator(\)) -ident(cookie) operator(=) keyword(new) ident(Cookie)operator(()string<delimiter(')content(preference name)delimiter(')>operator(,)string<delimiter(")content(whatever you'd like)delimiter(")>operator(\)) -ident(SECONDS_PER_YEAR) operator(=) integer(60)operator(*)integer(60)operator(*)integer(24)operator(*)integer(365) -ident(cookie)operator(.)ident(maxAge) operator(=) ident(SECONDS_PER_YEAR) operator(*) integer(2) -ident(response)operator(.)ident(addCookie)operator(()ident(cookie)operator(\)) - -ident(cookname) operator(=) string<delimiter(')content(fav_ice_cream)delimiter(')> -ident(favorite) operator(=) ident(request)operator(.)ident(getParameter)operator(()string<delimiter(')content(flavor)delimiter(')>operator(\)) -ident(tasty) operator(=) ident(getCookieValue)operator(()ident(request)operator(.)ident(cookies)operator(,) ident(cookname)operator(,) string<delimiter(')content(mint)delimiter(')>operator(\)) - -ident(writer) operator(=) keyword(new) pre_type(StringWriter)operator(()operator(\)) -ident(builder) operator(=) keyword(new) ident(MarkupBuilder)operator(()ident(writer)operator(\)) -ident(builder)operator(.)ident(html) operator({) - ident(head) operator({) ident(title)operator(()string<delimiter(')content(Ice Cookies)delimiter(')>operator(\)) operator(}) - ident(body) operator({) - ident(h1)operator(()string<delimiter(')content(Hello Ice Cream)delimiter(')>operator(\)) - keyword(if) operator(()ident(favorite)operator(\)) operator({) - ident(p)operator(()string<delimiter(")content(You chose as your favorite flavor ')inline<inline_delimiter($)ident(favorite)>content('.)delimiter(")>operator(\)) - ident(cookie) operator(=) keyword(new) ident(Cookie)operator(()ident(cookname)operator(,) ident(favorite)operator(\)) - ident(ONE_HOUR) operator(=) integer(3600) comment(// secs) - ident(cookie)operator(.)ident(maxAge) operator(=) ident(ONE_HOUR) - ident(response)operator(.)ident(addCookie)operator(()ident(cookie)operator(\)) - operator(}) keyword(else) operator({) - ident(hr)operator(()operator(\)) - ident(form) operator({) - ident(p)operator(()string<delimiter(')content(Please select a flavor: )delimiter(')>operator(\)) - ident(input)operator(()key(type)operator(:)string<delimiter(')content(text)delimiter(')>operator(,) key(name)operator(:)string<delimiter(')content(flavor)delimiter(')>operator(,) key(value)operator(:)ident(tasty)operator(\)) - operator(}) - ident(hr)operator(()operator(\)) - operator(}) - operator(}) -operator(}) -ident(println) ident(writer)operator(.)ident(toString)operator(()operator(\)) -comment(//----------------------------------------------------------------------------------) - -comment(// @@PLEAC@@_19.11) -comment(//----------------------------------------------------------------------------------) -keyword(import) include(groovy.xml.MarkupBuilder) -comment(// On Linux systems replace with: "who".execute(\).text) -ident(fakedWhoInput) operator(=) string<delimiter(''')content( -root tty1 Nov 2 17:57 -hermie tty3 Nov 2 18:43 -hermie tty4 Nov 1 20:01 -sigmund tty2 Nov 2 18:08 -)delimiter(''')>operator(.)ident(trim)operator(()operator(\))operator(.)ident(split)operator(()regexp<delimiter(/)char(\\n)delimiter(/)>operator(\)) -ident(name) operator(=) ident(request)operator(.)ident(getParameter)operator(()string<delimiter(')content(WHO)delimiter(')>operator(\)) -keyword(if) operator(()operator(!)ident(name)operator(\)) ident(name) operator(=) string<delimiter(')delimiter(')> -ident(writer) operator(=) keyword(new) pre_type(StringWriter)operator(()operator(\)) -keyword(new) ident(MarkupBuilder)operator(()ident(writer)operator(\))operator(.)ident(html)operator({) - ident(head)operator({) ident(title)operator(()string<delimiter(')content(Query Users)delimiter(')>operator(\)) operator(}) - ident(body)operator({) - ident(h1)operator(()string<delimiter(')content(Search)delimiter(')>operator(\)) - ident(form)operator({) - ident(p)operator(()string<delimiter(')content(Which User?)delimiter(')>operator(\)) - ident(input)operator(()key(type)operator(:)string<delimiter(')content(text)delimiter(')>operator(,) key(name)operator(:)string<delimiter(')content(WHO)delimiter(')>operator(,) key(value)operator(:)ident(name)operator(\)) - ident(input)operator(()key(type)operator(:)string<delimiter(')content(submit)delimiter(')>operator(\)) - operator(}) - keyword(if) operator(()ident(name)operator(\)) operator({) - ident(h1)operator(()string<delimiter(')content(Results)delimiter(')>operator(\)) - ident(lines) operator(=) ident(fakedWhoInput)operator(.)ident(grep)operator(()operator(~)regexp<delimiter(/)content(^)inline<inline_delimiter($)ident(name)>char(\\s)content(.*)delimiter(/)>operator(\)) - keyword(if) operator(()ident(lines)operator(\)) ident(message) operator(=) ident(lines)operator(.)ident(join)operator(()string<delimiter(')content(\\n)delimiter(')>operator(\)) - keyword(else) ident(message) operator(=) string<delimiter(")inline<inline_delimiter($)ident(name)>content( is not logged in)delimiter(")> - ident(pre)operator(()ident(message)operator(\)) - operator(}) - operator(}) -operator(}) -ident(println) ident(writer)operator(.)ident(toString)operator(()operator(\)) -comment(// if you need to escape special symbols, e.g. '<' or '>' use commons lang StringEscapeUtils) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_19.12) -comment(//----------------------------------------------------------------------------------) -comment(// frameworks typically do this for you, but shown here are the manual steps) -comment(// even when doing it manually, you would probably use session variables) - -comment(// setting a hidden field) -ident(input)operator(()key(type)operator(:)string<delimiter(')content(hidden)delimiter(')>operator(,) key(value)operator(:)string<delimiter(')content(bacon)delimiter(')>operator(\)) - -comment(// setting a value on the submit) -ident(input)operator(()key(type)operator(:)string<delimiter(')content(submit)delimiter(')>operator(,) key(name)operator(:)string<delimiter(")content(.State)delimiter(")>operator(,) key(value)operator(:)string<delimiter(')content(Checkout)delimiter(')>operator(\)) - -comment(// determining 'mode') -ident(page) operator(=) ident(request)operator(.)ident(getParameter)operator(()string<delimiter(')content(.State)delimiter(')>operator(\)) -keyword(if) operator(()operator(!)ident(page)operator(\)) ident(page) operator(=) string<delimiter(')content(Default)delimiter(')> - -comment(// forking with if chain) -keyword(if) operator(()ident(page) operator(==) string<delimiter(")content(Default)delimiter(")>operator(\)) operator({) - ident(frontPage)operator(()operator(\)) -operator(}) keyword(else) keyword(if) operator(()ident(page) operator(==) string<delimiter(")content(Checkout)delimiter(")>operator(\)) operator({) - ident(checkout)operator(()operator(\)) -operator(}) keyword(else) operator({) - ident(noSuchPage)operator(()operator(\)) -operator(}) - -comment(// forking with map) -ident(states) operator(=) operator([) - key(Default)operator(:) local_variable(this)operator(.)operator(&)ident(frontPage)operator(,) - key(Shirt)operator(:) local_variable(this)operator(.)operator(&)ident(tShirt)operator(,) - key(Sweater)operator(:) local_variable(this)operator(.)operator(&)ident(sweater)operator(,) - key(Checkout)operator(:) local_variable(this)operator(.)operator(&)ident(checkout)operator(,) - key(Card)operator(:) local_variable(this)operator(.)operator(&)ident(creditCard)operator(,) - key(Order)operator(:) local_variable(this)operator(.)operator(&)ident(order)operator(,) - key(Cancel)operator(:) local_variable(this)operator(.)operator(&)ident(frontPage)operator(,) -operator(]) - -comment(// calling each to allow hidden variable saving) -ident(states)operator(.)ident(each)operator({) ident(key)operator(,) ident(closure) operator(->) - ident(closure)operator(()ident(page) operator(==) ident(key)operator(\)) -operator(}) - -comment(// exemplar method) -keyword(def) method(tShirt)operator(()ident(active)operator(\)) operator({) - keyword(def) ident(sizes) operator(=) operator([)string<delimiter(')content(XL)delimiter(')>operator(,) string<delimiter(')content(L)delimiter(')>operator(,) string<delimiter(')content(M)delimiter(')>operator(,) string<delimiter(')content(S)delimiter(')>operator(]) - keyword(def) ident(colors) operator(=) operator([)string<delimiter(')content(Black)delimiter(')>operator(,) string<delimiter(')content(White)delimiter(')>operator(]) - keyword(if) operator(()operator(!)ident(active)operator(\)) operator({) - ident(hidden)operator(()string<delimiter(")content(size)delimiter(")>operator(\)) - ident(hidden)operator(()string<delimiter(")content(color)delimiter(")>operator(\)) - keyword(return) - operator(}) - ident(p)operator(()string<delimiter(")content(You want to buy a t-shirt?)delimiter(")>operator(\))operator(;) - ident(label)operator(()string<delimiter(")content(Size: )delimiter(")>operator(\))operator(;) ident(dropDown)operator(()string<delimiter(")content(size)delimiter(")>operator(,) ident(sizes)operator(\)) - ident(label)operator(()string<delimiter(")content(Color: )delimiter(")>operator(\))operator(;) ident(dropDown)operator(()string<delimiter(")content(color)delimiter(")>operator(,) ident(colors)operator(\)) - ident(shopMenu)operator(()operator(\)) -operator(}) - -comment(// kicking off processing) -ident(html)operator({) - ident(head)operator({) ident(title)operator(()string<delimiter(')content(chemiserie store)delimiter(')>operator(\)) operator(}) - ident(body) operator({) - keyword(if) operator(()ident(states)operator([)ident(page)operator(])operator(\)) ident(process)operator(()ident(page)operator(\)) - keyword(else) ident(noSuchPage)operator(()operator(\)) - operator(}) -operator(}) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_19.13) -comment(//----------------------------------------------------------------------------------) -comment(// get request parameters as map) -ident(map) operator(=) ident(request)operator(.)ident(parameterMap) - -comment(// save to file) -keyword(new) pre_type(File)operator(()ident(filename)operator(\))operator(.)ident(withOutputStream)operator({) ident(fos) operator(->) - ident(oos) operator(=) keyword(new) pre_type(ObjectOutputStream)operator(()ident(fos)operator(\)) - ident(oos)operator(.)ident(writeObject)operator(()ident(map)operator(\)) - ident(oos)operator(.)ident(close)operator(()operator(\)) -operator(}) - -comment(// convert to text) -ident(sb) operator(=) keyword(new) pre_type(StringBuffer)operator(()operator(\)) -ident(map)operator(.)ident(each)operator({) ident(k)operator(,)ident(v) operator(->) ident(sb) operator(<)operator(<) string<delimiter(")inline<inline_delimiter($)ident(k)>content(=)inline<inline_delimiter($)ident(v)>delimiter(")> operator(}) -ident(text) operator(=) ident(sb)operator(.)ident(toString)operator(()operator(\)) -comment(// to send text via email, see 18.3) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_19.14) -comment(//----------------------------------------------------------------------------------) -comment(// you wouldn't normally do it this way, consider a framework like Grails) -comment(// even when doing it by hand, you would probably use session variables) -keyword(import) include(groovy.xml.MarkupBuilder) - -ident(page) operator(=) ident(param)operator(()string<delimiter(')content(.State)delimiter(')>operator(,) string<delimiter(')content(Default)delimiter(')>operator(\)) - -ident(states) operator(=) operator([) - key(Default)operator(:) local_variable(this)operator(.)operator(&)ident(frontPage)operator(,) - key(Shirt)operator(:) local_variable(this)operator(.)operator(&)ident(shirt)operator(,) - key(Sweater)operator(:) local_variable(this)operator(.)operator(&)ident(sweater)operator(,) - key(Checkout)operator(:) local_variable(this)operator(.)operator(&)ident(checkout)operator(,) - key(Card)operator(:) local_variable(this)operator(.)operator(&)ident(creditCard)operator(,) - key(Order)operator(:) local_variable(this)operator(.)operator(&)ident(order)operator(,) - key(Cancel)operator(:) local_variable(this)operator(.)operator(&)ident(frontPage)operator(,) -operator(]) - -ident(writer) operator(=) keyword(new) pre_type(StringWriter)operator(()operator(\)) -ident(b) operator(=) keyword(new) ident(MarkupBuilder)operator(()ident(writer)operator(\)) -ident(b)operator(.)ident(html)operator({) - ident(head)operator({) ident(title)operator(()string<delimiter(')content(chemiserie store)delimiter(')>operator(\)) operator(}) - ident(body) operator({) - keyword(if) operator(()ident(states)operator([)ident(page)operator(])operator(\)) ident(process)operator(()ident(page)operator(\)) - keyword(else) ident(noSuchPage)operator(()operator(\)) - operator(}) -operator(}) -ident(println) ident(writer)operator(.)ident(toString)operator(()operator(\)) - -keyword(def) method(process)operator(()ident(page)operator(\)) operator({) - ident(b)operator(.)ident(form)operator({) - ident(states)operator(.)ident(each)operator({) ident(key)operator(,) ident(closure) operator(->) - ident(closure)operator(()ident(page) operator(==) ident(key)operator(\)) - operator(}) - operator(}) -operator(}) - -keyword(def) method(noSuchPage)operator(()operator(\)) operator({) - ident(b)operator(.)ident(p)operator(()string<delimiter(')content(Unknown request)delimiter(')>operator(\)) - ident(reset)operator(()string<delimiter(')content(Click here to start over)delimiter(')>operator(\)) -operator(}) - -keyword(def) method(shopMenu)operator(()operator(\)) operator({) - ident(b)operator(.)ident(p)operator(()operator(\)) - ident(toPage)operator(()string<delimiter(")content(Shirt)delimiter(")>operator(\)) - ident(toPage)operator(()string<delimiter(")content(Sweater)delimiter(")>operator(\)) - ident(toPage)operator(()string<delimiter(")content(Checkout)delimiter(")>operator(\)) - ident(reset)operator(()string<delimiter(')content(Empty My Shopping Cart)delimiter(')>operator(\)) -operator(}) - -keyword(def) method(frontPage)operator(()ident(active)operator(\)) operator({) - keyword(if) operator(()operator(!)ident(active)operator(\)) keyword(return) - ident(b)operator(.)ident(h1)operator(()string<delimiter(')content(Hi!)delimiter(')>operator(\)) - ident(b)operator(.)ident(p)operator(()string<delimiter(')content(Welcome to our Shirt Shop! Please make your selection from the menu below.)delimiter(')>operator(\)) - ident(shopMenu)operator(()operator(\)) -operator(}) - -keyword(def) method(shirt)operator(()ident(active)operator(\)) operator({) - keyword(def) ident(sizes) operator(=) operator([)string<delimiter(')content(XL)delimiter(')>operator(,) string<delimiter(')content(L)delimiter(')>operator(,) string<delimiter(')content(M)delimiter(')>operator(,) string<delimiter(')content(S)delimiter(')>operator(]) - keyword(def) ident(colors) operator(=) operator([)string<delimiter(')content(Black)delimiter(')>operator(,) string<delimiter(')content(White)delimiter(')>operator(]) - keyword(def) ident(count) operator(=) ident(param)operator(()string<delimiter(')content(shirt_count)delimiter(')>operator(,)integer(0)operator(\)) - keyword(def) ident(color) operator(=) ident(param)operator(()string<delimiter(')content(shirt_color)delimiter(')>operator(\)) - keyword(def) ident(size) operator(=) ident(param)operator(()string<delimiter(')content(shirt_size)delimiter(')>operator(\)) - comment(// sanity check) - keyword(if) operator(()ident(count)operator(\)) operator({) - keyword(if) operator(()operator(!)operator(()ident(color) keyword(in) ident(colors)operator(\))operator(\)) ident(color) operator(=) ident(colors)operator([)integer(0)operator(]) - keyword(if) operator(()operator(!)operator(()ident(size) keyword(in) ident(sizes)operator(\))operator(\)) ident(size) operator(=) ident(sizes)operator([)integer(0)operator(]) - operator(}) - keyword(if) operator(()operator(!)ident(active)operator(\)) operator({) - keyword(if) operator(()ident(size)operator(\)) ident(hidden)operator(()string<delimiter(")content(shirt_size)delimiter(")>operator(,) ident(size)operator(\)) - keyword(if) operator(()ident(color)operator(\)) ident(hidden)operator(()string<delimiter(")content(shirt_color)delimiter(")>operator(,) ident(color)operator(\)) - keyword(if) operator(()ident(count)operator(\)) ident(hidden)operator(()string<delimiter(")content(shirt_count)delimiter(")>operator(,) ident(count)operator(\)) - keyword(return) - operator(}) - ident(b)operator(.)ident(h1) string<delimiter(')content(T-Shirt)delimiter(')> - ident(b)operator(.)ident(p) string<delimiter(''')content(What a shirt! This baby is decked out with all the options. - It comes with full luxury interior, cotton trim, and a collar - to make your eyes water! Unit price: $33.00)delimiter(''')> - ident(b)operator(.)ident(h2) string<delimiter(')content(Options)delimiter(')> - ident(label)operator(()string<delimiter(")content(How Many?)delimiter(")>operator(\))operator(;) ident(textfield)operator(()string<delimiter(")content(shirt_count)delimiter(")>operator(\)) - ident(label)operator(()string<delimiter(")content(Size?)delimiter(")>operator(\))operator(;) ident(dropDown)operator(()string<delimiter(")content(shirt_size)delimiter(")>operator(,) ident(sizes)operator(\)) - ident(label)operator(()string<delimiter(")content(Color?)delimiter(")>operator(\))operator(;) ident(dropDown)operator(()string<delimiter(")content(shirt_color)delimiter(")>operator(,) ident(colors)operator(\)) - ident(shopMenu)operator(()operator(\)) -operator(}) - -keyword(def) method(sweater)operator(()ident(active)operator(\)) operator({) - keyword(def) ident(sizes) operator(=) operator([)string<delimiter(')content(XL)delimiter(')>operator(,) string<delimiter(')content(L)delimiter(')>operator(,) string<delimiter(')content(M)delimiter(')>operator(]) - keyword(def) ident(colors) operator(=) operator([)string<delimiter(')content(Chartreuse)delimiter(')>operator(,) string<delimiter(')content(Puce)delimiter(')>operator(,) string<delimiter(')content(Lavender)delimiter(')>operator(]) - keyword(def) ident(count) operator(=) ident(param)operator(()string<delimiter(')content(sweater_count)delimiter(')>operator(,)integer(0)operator(\)) - keyword(def) ident(color) operator(=) ident(param)operator(()string<delimiter(')content(sweater_color)delimiter(')>operator(\)) - keyword(def) ident(size) operator(=) ident(param)operator(()string<delimiter(')content(sweater_size)delimiter(')>operator(\)) - comment(// sanity check) - keyword(if) operator(()ident(count)operator(\)) operator({) - keyword(if) operator(()operator(!)operator(()ident(color) keyword(in) ident(colors)operator(\))operator(\)) ident(color) operator(=) ident(colors)operator([)integer(0)operator(]) - keyword(if) operator(()operator(!)operator(()ident(size) keyword(in) ident(sizes)operator(\))operator(\)) ident(size) operator(=) ident(sizes)operator([)integer(0)operator(]) - operator(}) - keyword(if) operator(()operator(!)ident(active)operator(\)) operator({) - keyword(if) operator(()ident(size)operator(\)) ident(hidden)operator(()string<delimiter(")content(sweater_size)delimiter(")>operator(,) ident(size)operator(\)) - keyword(if) operator(()ident(color)operator(\)) ident(hidden)operator(()string<delimiter(")content(sweater_color)delimiter(")>operator(,) ident(color)operator(\)) - keyword(if) operator(()ident(count)operator(\)) ident(hidden)operator(()string<delimiter(")content(sweater_count)delimiter(")>operator(,) ident(count)operator(\)) - keyword(return) - operator(}) - ident(b)operator(.)ident(h1)operator(()string<delimiter(")content(Sweater)delimiter(")>operator(\)) - ident(b)operator(.)ident(p)operator(()string<delimiter(")content(Nothing implies preppy elegance more than this fine )delimiter(")> operator(+) - string<delimiter(")content(sweater. Made by peasant workers from black market silk, )delimiter(")> operator(+) - string<delimiter(")content(it slides onto your lean form and cries out ``Take me, )delimiter(")> operator(+) - string<delimiter(")content(for I am a god!''. Unit price: )char(\\$)content(49.99.)delimiter(")>operator(\)) - ident(b)operator(.)ident(h2)operator(()string<delimiter(")content(Options)delimiter(")>operator(\)) - ident(label)operator(()string<delimiter(")content(How Many?)delimiter(")>operator(\))operator(;) ident(textfield)operator(()string<delimiter(")content(sweater_count)delimiter(")>operator(\)) - ident(label)operator(()string<delimiter(")content(Size?)delimiter(")>operator(\))operator(;) ident(dropDown)operator(()string<delimiter(")content(sweater_size)delimiter(")>operator(,) ident(sizes)operator(\)) - ident(label)operator(()string<delimiter(")content(Color?)delimiter(")>operator(\))operator(;) ident(dropDown)operator(()string<delimiter(")content(sweater_color)delimiter(")>operator(,) ident(colors)operator(\)) - ident(shopMenu)operator(()operator(\)) -operator(}) - -keyword(def) method(checkout)operator(()ident(active)operator(\)) operator({) - keyword(if) operator(()operator(!)ident(active)operator(\)) keyword(return) - ident(b)operator(.)ident(h1)operator(()string<delimiter(")content(Order Confirmation)delimiter(")>operator(\)) - ident(b)operator(.)ident(p)operator(()string<delimiter(")content(You ordered the following:)delimiter(")>operator(\)) - ident(orderText)operator(()operator(\)) - ident(b)operator(.)ident(p)operator(()string<delimiter(")content(Is this right? Select 'Card' to pay for the items)delimiter(")> operator(+) - string<delimiter(")content(or 'Shirt' or 'Sweater' to continue shopping.)delimiter(")>operator(\)) - ident(toPage)operator(()string<delimiter(")content(Card)delimiter(")>operator(\)) - ident(toPage)operator(()string<delimiter(")content(Shirt)delimiter(")>operator(\)) - ident(toPage)operator(()string<delimiter(")content(Sweater)delimiter(")>operator(\)) -operator(}) - -keyword(def) method(creditCard)operator(()ident(active)operator(\)) operator({) - keyword(def) ident(widgets) operator(=) string<delimiter(')content(Name Address1 Address2 City Zip State Phone Card Expiry)delimiter(')>operator(.)ident(split)operator(()string<delimiter(')content( )delimiter(')>operator(\)) - keyword(if) operator(()operator(!)ident(active)operator(\)) operator({) - ident(widgets)operator(.)ident(each)operator({) ident(hidden)operator(()local_variable(it)operator(\)) operator(}) - keyword(return) - operator(}) - ident(b)operator(.)ident(pre)operator({) - ident(label)operator(()string<delimiter(")content(Name: )delimiter(")>operator(\))operator(;) ident(textfield)operator(()string<delimiter(")content(Name)delimiter(")>operator(\)) - ident(label)operator(()string<delimiter(")content(Address: )delimiter(")>operator(\))operator(;) ident(textfield)operator(()string<delimiter(")content(Address1)delimiter(")>operator(\)) - ident(label)operator(()string<delimiter(")content( )delimiter(")>operator(\))operator(;) ident(textfield)operator(()string<delimiter(")content(Address2)delimiter(")>operator(\)) - ident(label)operator(()string<delimiter(")content(City: )delimiter(")>operator(\))operator(;) ident(textfield)operator(()string<delimiter(")content(City)delimiter(")>operator(\)) - ident(label)operator(()string<delimiter(")content(Zip: )delimiter(")>operator(\))operator(;) ident(textfield)operator(()string<delimiter(")content(Zip)delimiter(")>operator(\)) - ident(label)operator(()string<delimiter(")content(State: )delimiter(")>operator(\))operator(;) ident(textfield)operator(()string<delimiter(")content(State)delimiter(")>operator(\)) - ident(label)operator(()string<delimiter(")content(Phone: )delimiter(")>operator(\))operator(;) ident(textfield)operator(()string<delimiter(")content(Phone)delimiter(")>operator(\)) - ident(label)operator(()string<delimiter(")content(Credit Card #: )delimiter(")>operator(\))operator(;) ident(textfield)operator(()string<delimiter(")content(Card)delimiter(")>operator(\)) - ident(label)operator(()string<delimiter(")content(Expiry: )delimiter(")>operator(\))operator(;) ident(textfield)operator(()string<delimiter(")content(Expiry)delimiter(")>operator(\)) - operator(}) - ident(b)operator(.)ident(p)operator(()string<delimiter(")content(Click on 'Order' to order the items. Click on 'Cancel' to return shopping.)delimiter(")>operator(\)) - ident(toPage)operator(()string<delimiter(")content(Order)delimiter(")>operator(\)) - ident(toPage)operator(()string<delimiter(")content(Cancel)delimiter(")>operator(\)) -operator(}) - -keyword(def) method(order)operator(()ident(active)operator(\)) operator({) - keyword(if) operator(()operator(!)ident(active)operator(\)) keyword(return) - ident(b)operator(.)ident(h1)operator(()string<delimiter(")content(Ordered!)delimiter(")>operator(\)) - ident(b)operator(.)ident(p)operator(()string<delimiter(")content(You have ordered the following items:)delimiter(")>operator(\)) - ident(orderText)operator(()operator(\)) - ident(reset)operator(()string<delimiter(')content(Begin Again)delimiter(')>operator(\)) -operator(}) - -keyword(def) method(orderText)operator(()operator(\)) operator({) - keyword(def) ident(shirts) operator(=) ident(param)operator(()string<delimiter(')content(shirt_count)delimiter(')>operator(\)) - keyword(def) ident(sweaters) operator(=) ident(param)operator(()string<delimiter(')content(sweater_count)delimiter(')>operator(\)) - keyword(if) operator(()ident(shirts)operator(\)) operator({) - ident(b)operator(.)ident(p)operator(()string<delimiter(""")content(You have ordered )inline<inline_delimiter(${)ident(param)operator(()string<delimiter(')content(shirt_count)delimiter(')>operator(\))inline_delimiter(})>content( - shirts of size )inline<inline_delimiter(${)ident(param)operator(()string<delimiter(')content(shirt_size)delimiter(')>operator(\))inline_delimiter(})>content( - and color )inline<inline_delimiter(${)ident(param)operator(()string<delimiter(")content(shirt_color)delimiter(")>operator(\))inline_delimiter(})>content(.)delimiter(""")>operator(\)) - operator(}) - keyword(if) operator(()ident(sweaters)operator(\)) operator({) - ident(b)operator(.)ident(p)operator(()string<delimiter(""")content(You have ordered )inline<inline_delimiter(${)ident(param)operator(()string<delimiter(')content(sweater_count)delimiter(')>operator(\))inline_delimiter(})>content( - sweaters of size )inline<inline_delimiter(${)ident(param)operator(()string<delimiter(')content(sweater_size)delimiter(')>operator(\))inline_delimiter(})>content( - and color )inline<inline_delimiter(${)ident(param)operator(()string<delimiter(')content(sweater_color)delimiter(')>operator(\))inline_delimiter(})>content(.)delimiter(""")>operator(\)) - operator(}) - keyword(if) operator(()operator(!)ident(sweaters) operator(&&) operator(!)ident(shirts)operator(\)) ident(b)operator(.)ident(p)operator(()string<delimiter(")content(Nothing!)delimiter(")>operator(\)) - ident(b)operator(.)ident(p)operator(()string<delimiter(")content(For a total cost of )inline<inline_delimiter(${)ident(calcPrice)operator(()operator(\))inline_delimiter(})>delimiter(")>operator(\)) -operator(}) - -keyword(def) method(label)operator(()ident(text)operator(\)) operator({) ident(b)operator(.)ident(span)operator(()ident(text)operator(\)) operator(}) -keyword(def) method(reset)operator(()ident(text)operator(\)) operator({) ident(b)operator(.)ident(a)operator(()key(href)operator(:)ident(request)operator(.)ident(requestURI)operator(,)ident(text)operator(\)) operator(}) -keyword(def) method(toPage)operator(()ident(name)operator(\)) operator({) ident(b)operator(.)ident(input)operator(()key(type)operator(:)string<delimiter(')content(submit)delimiter(')>operator(,) key(name)operator(:)string<delimiter(')content(.State)delimiter(')>operator(,) key(value)operator(:)ident(name)operator(\)) operator(}) -keyword(def) method(dropDown)operator(()ident(name)operator(,) ident(values)operator(\)) operator({) - ident(b)operator(.)ident(select)operator(()key(name)operator(:)ident(name)operator(\))operator({) - ident(values)operator(.)ident(each)operator({) - keyword(if) operator(()ident(param)operator(()ident(name)operator(\))operator(==)local_variable(it)operator(\)) ident(option)operator(()key(value)operator(:)local_variable(it)operator(,) key(selected)operator(:)pre_constant(true)operator(,) local_variable(it)operator(\)) - keyword(else) ident(option)operator(()key(value)operator(:)local_variable(it)operator(,) local_variable(it)operator(\)) - operator(}) - operator(}) - ident(b)operator(.)ident(br)operator(()operator(\)) -operator(}) -keyword(def) method(hidden)operator(()ident(name)operator(\)) operator({) - keyword(if) operator(()ident(binding)operator(.)ident(variables)operator(.)ident(containsKey)operator(()ident(name)operator(\))operator(\)) ident(v) operator(=) ident(binding)operator([)ident(name)operator(]) - keyword(else) ident(v) operator(=) string<delimiter(')delimiter(')> - ident(hidden)operator(()ident(name)operator(,) ident(v)operator(\)) -operator(}) -keyword(def) method(hidden)operator(()ident(name)operator(,) ident(value)operator(\)) operator({) ident(b)operator(.)ident(input)operator(()key(type)operator(:)string<delimiter(')content(hidden)delimiter(')>operator(,) key(name)operator(:)ident(name)operator(,) key(value)operator(:)ident(value)operator(\)) operator(}) -keyword(def) method(textfield)operator(()ident(name)operator(\)) operator({) ident(b)operator(.)ident(input)operator(()key(type)operator(:)string<delimiter(')content(text)delimiter(')>operator(,) key(name)operator(:)ident(name)operator(,) key(value)operator(:)ident(param)operator(()ident(name)operator(,)string<delimiter(')delimiter(')>operator(\))operator(\))operator(;) ident(b)operator(.)ident(br)operator(()operator(\)) operator(}) -keyword(def) method(param)operator(()ident(name)operator(\)) operator({) ident(request)operator(.)ident(getParameter)operator(()ident(name)operator(\)) operator(}) -keyword(def) method(param)operator(()ident(name)operator(,) ident(defValue)operator(\)) operator({) - keyword(def) ident(val) operator(=) ident(request)operator(.)ident(getParameter)operator(()ident(name)operator(\)) - keyword(if) operator(()ident(val)operator(\)) keyword(return) ident(val) keyword(else) keyword(return) ident(defValue) -operator(}) - -keyword(def) method(calcPrice)operator(()operator(\)) operator({) - keyword(def) ident(shirts) operator(=) ident(param)operator(()string<delimiter(')content(shirt_count)delimiter(')>operator(,) integer(0)operator(\))operator(.)ident(toInteger)operator(()operator(\)) - keyword(def) ident(sweaters) operator(=) ident(param)operator(()string<delimiter(')content(sweater_count)delimiter(')>operator(,) integer(0)operator(\))operator(.)ident(toInteger)operator(()operator(\)) - keyword(return) operator(()ident(shirts) operator(*) integer(33) operator(+) ident(sweaters) operator(*) float(49.99)operator(\))operator(.)ident(toString)operator(()operator(\)) -operator(}) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_20.0) -comment(//----------------------------------------------------------------------------------) -comment(// Many packages are available for simulating a browser. A good starting point:) -comment(// http://groovy.codehaus.org/Testing+Web+Applications) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_20.1) -comment(//----------------------------------------------------------------------------------) -comment(// for non-binary content) -ident(urlStr) operator(=) string<delimiter(')content(http://groovy.codehaus.org)delimiter(')> -ident(content) operator(=) keyword(new) pre_type(URL)operator(()ident(urlStr)operator(\))operator(.)ident(text) -ident(println) ident(content)operator(.)ident(size)operator(()operator(\)) comment(// => 34824) - -comment(// for binary content) -ident(urlStr) operator(=) string<delimiter(')content(http://groovy.codehaus.org/download/attachments/1871/gina_3d.gif)delimiter(')> -ident(bytes) operator(=) keyword(new) pre_type(ByteArrayOutputStream)operator(()operator(\)) -ident(bytes) operator(<)operator(<) keyword(new) pre_type(URL)operator(()ident(urlStr)operator(\))operator(.)ident(openStream)operator(()operator(\)) -ident(println) ident(bytes)operator(.)ident(size)operator(()operator(\)) comment(// => 6066) - -comment(// various forms of potential error checking) -keyword(try) operator({) - keyword(new) pre_type(URL)operator(()string<delimiter(')content(x:y:z)delimiter(')>operator(\)) -operator(}) keyword(catch) operator(()exception(MalformedURLException) ident(ex)operator(\)) operator({) - ident(println) ident(ex)operator(.)ident(message) comment(// => unknown protocol: x) -operator(}) -keyword(try) operator({) - keyword(new) pre_type(URL)operator(()string<delimiter(')content(cnn.com/not.there)delimiter(')>operator(\)) -operator(}) keyword(catch) operator(()exception(MalformedURLException) ident(ex)operator(\)) operator({) - ident(println) ident(ex)operator(.)ident(message) comment(// => no protocol: cnn.com/not.there) -operator(}) -keyword(try) operator({) - ident(content) operator(=) keyword(new) pre_type(URL)operator(()string<delimiter(')content(http://cnn.com/not.there)delimiter(')>operator(\))operator(.)ident(text) -operator(}) keyword(catch) operator(()exception(FileNotFoundException) ident(ex)operator(\)) operator({) - ident(println) string<delimiter(")content(Couldn't find: )delimiter(")> operator(+) ident(ex)operator(.)ident(message) - comment(// => Couldn't find: http://www.cnn.com/not.there) -operator(}) - -comment(// titleBytes example) -keyword(def) method(titleBytes)operator(()ident(urlStr)operator(\)) operator({) - keyword(def) ident(lineCount) operator(=) integer(0)operator(;) keyword(def) ident(byteCount) operator(=) integer(0) - keyword(new) pre_type(URL)operator(()ident(urlStr)operator(\))operator(.)ident(eachLine)operator({) ident(line) operator(->) - ident(lineCount)operator(++)operator(;) ident(byteCount) operator(+=) ident(line)operator(.)ident(size)operator(()operator(\)) - operator(}) - ident(println) string<delimiter(")inline<inline_delimiter($)ident(urlStr)>content( => ()inline<inline_delimiter($)ident(lineCount)>content( lines, )inline<inline_delimiter($)ident(byteCount)>content( bytes\))delimiter(")> -operator(}) -ident(titleBytes)operator(()string<delimiter(')content(http://www.tpj.com/)delimiter(')>operator(\)) -comment(// http://www.tpj.com/ => (677 lines, 25503 bytes\)) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_20.2) -comment(//----------------------------------------------------------------------------------) -comment(// using HtmlUnit (htmlunit.sf.net\)) -keyword(import) include(com.gargoylesoftware.htmlunit.WebClient) - -keyword(def) ident(webClient) operator(=) keyword(new) ident(WebClient)operator(()operator(\)) -keyword(def) ident(page) operator(=) ident(webClient)operator(.)ident(getPage)operator(()string<delimiter(')content(http://search.cpan.org/)delimiter(')>operator(\)) -comment(// check page title) -keyword(assert) ident(page)operator(.)ident(titleText)operator(.)ident(startsWith)operator(()string<delimiter(')content(The CPAN Search Site)delimiter(')>operator(\)) -comment(// fill in form and submit it) -keyword(def) ident(form) operator(=) ident(page)operator(.)ident(getFormByName)operator(()string<delimiter(')content(f)delimiter(')>operator(\)) -keyword(def) ident(field) operator(=) ident(form)operator(.)ident(getInputByName)operator(()string<delimiter(')content(query)delimiter(')>operator(\)) -ident(field)operator(.)ident(setValueAttribute)operator(()string<delimiter(')content(DB_File)delimiter(')>operator(\)) -keyword(def) ident(button) operator(=) ident(form)operator(.)ident(getInputByValue)operator(()string<delimiter(')content(CPAN Search)delimiter(')>operator(\)) -keyword(def) ident(result) operator(=) ident(button)operator(.)ident(click)operator(()operator(\)) -comment(// check search result has at least one link ending in DB_File.pm) -keyword(assert) ident(result)operator(.)ident(anchors)operator(.)ident(any)operator({) ident(a) operator(->) ident(a)operator(.)ident(hrefAttribute)operator(.)ident(endsWith)operator(()string<delimiter(')content(DB_File.pm)delimiter(')>operator(\)) operator(}) - -comment(// fields must be properly escaped) -ident(println) pre_type(URLEncoder)operator(.)ident(encode)operator(()regexp<delimiter(/)content("this isn't <EASY>&<FUN>")delimiter(/)>operator(,) string<delimiter(')content(utf-8)delimiter(')>operator(\)) -comment(// => %22this+isn%27t+%3CEASY%3E%26%3CFUN%3E%22) - -comment(// proxies can be taken from environment, or specified) -comment(//System.properties.putAll( ["http.proxyHost":"proxy-host", "http.proxyPort":"proxy-port",) -comment(// "http.proxyUserName":"user-name", "http.proxyPassword":"proxy-passwd"] \)) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_20.3) -comment(//----------------------------------------------------------------------------------) -comment(// using HtmlUnit (htmlunit.sf.net\)) -keyword(import) include(com.gargoylesoftware.htmlunit.WebClient) - -ident(client) operator(=) keyword(new) ident(WebClient)operator(()operator(\)) -ident(html) operator(=) ident(client)operator(.)ident(getPage)operator(()string<delimiter(')content(http://www.perl.com/CPAN/)delimiter(')>operator(\)) -ident(println) ident(page)operator(.)ident(anchors)operator(.)ident(collect)operator({) local_variable(it)operator(.)ident(hrefAttribute) operator(})operator(.)ident(sort)operator(()operator(\))operator(.)ident(unique)operator(()operator(\))operator(.)ident(join)operator(()string<delimiter(')content(\\n)delimiter(')>operator(\)) -comment(// =>) -comment(// disclaimer.html) -comment(// http://bookmarks.cpan.org/) -comment(// http://faq.perl.org/) -comment(// mailto:cpan@perl.org) -comment(// ...) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_20.4) -comment(//----------------------------------------------------------------------------------) -comment(// split paragraphs) -ident(LS) operator(=) pre_type(System)operator(.)ident(properties)operator(.)string<delimiter(')content(line.separator)delimiter(')> -keyword(new) pre_type(File)operator(()ident(args)operator([)integer(0)operator(])operator(\))operator(.)ident(text)operator(.)ident(split)operator(()string<delimiter(")inline<inline_delimiter($)ident(LS)>inline<inline_delimiter($)ident(LS)>delimiter(")>operator(\))operator(.)ident(each)operator({) ident(para) operator(->) - keyword(if) operator(()ident(para)operator(.)ident(startsWith)operator(()string<delimiter(")content( )delimiter(")>operator(\))operator(\)) ident(println) string<delimiter(")content(<pre>)char(\\n)inline<inline_delimiter($)ident(para)>char(\\n)content(</pre>)delimiter(")> - keyword(else) operator({) - ident(para) operator(=) ident(para)operator(.)ident(replaceAll)operator(()regexp<delimiter(/)content((?m\)^(>.*?\))content($)delimiter(/)>operator(,) regexp<delimiter(/)content($)content(1<br )char(\\/)content(>)delimiter(/)>operator(\)) comment(// quoted text) - ident(para) operator(=) ident(para)operator(.)ident(replaceAll)operator(()regexp<delimiter(/)content(<URL:(.*\)>)delimiter(/)>operator(,) regexp<delimiter(/)content(<a href=")content($)content(1">)content($)content(1<)char(\\/)content(a>)delimiter(/)>operator(\)) comment(// embedded URL) - ident(para) operator(=) ident(para)operator(.)ident(replaceAll)operator(()regexp<delimiter(/)content((http:)char(\\S)content(+\))delimiter(/)>operator(,) regexp<delimiter(/)content(<a href=")content($)content(1">)content($)content(1<)char(\\/)content(a>)delimiter(/)>operator(\)) comment(// guessed URL) - ident(para) operator(=) ident(para)operator(.)ident(replaceAll)operator(()string<delimiter(')char(\\\\)content(*()char(\\\\)content(S+\))char(\\\\)content(*)delimiter(')>operator(,) regexp<delimiter(/)content(<strong>)content($)content(1<)char(\\/)content(strong>)delimiter(/)>operator(\)) comment(// this is *bold* here) - ident(para) operator(=) ident(para)operator(.)ident(replaceAll)operator(()regexp<delimiter(/)char(\\b)content(_()char(\\S)content(+\)_)char(\\b)delimiter(/)>operator(,) regexp<delimiter(/)content(<em>)content($)content(1<)char(\\/)content(em>)delimiter(/)>operator(\)) comment(// this is _italic_ here) - ident(println) string<delimiter(")content(<p>)char(\\n)inline<inline_delimiter($)ident(para)>char(\\n)content(</p>)delimiter(")> comment(// add paragraph tags) - operator(}) -operator(}) - -keyword(def) method(encodeEmail)operator(()ident(email)operator(\)) operator({) - ident(println) string<delimiter(")content(<table>)delimiter(")> - ident(email) operator(=) pre_type(URLEncoder)operator(.)ident(encode)operator(()ident(email)operator(\)) - ident(email) operator(=) ident(text)operator(.)ident(replaceAll)operator(()regexp<delimiter(/)content(()char(\\n)content([ )char(\\t)content(]+\))delimiter(/)>operator(,) regexp<delimiter(/)content( . )delimiter(/)>operator(\)) comment(// continuation lines) - ident(email) operator(=) ident(text)operator(.)ident(replaceAll)operator(()regexp<delimiter(/)content((?m\)^()char(\\S)content(+?:\))char(\\s)content(*(.*?\))content($)delimiter(/)>operator(,) - regexp<delimiter(/)content(<tr><th align="left">)content($)content(1<)char(\\/)content(th><td>)content($)content(2<)char(\\/)content(td><)char(\\/)content(tr>)delimiter(/)>operator(\))operator(;) - ident(println) ident(email) - ident(println) string<delimiter(")content(</table>)delimiter(")> -operator(}) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_20.5) -comment(//----------------------------------------------------------------------------------) -comment(// using CyberNeko Parser (people.apache.org/~andyc/neko/doc\)) -ident(parser) operator(=) keyword(new) ident(org)operator(.)ident(cyberneko)operator(.)ident(html)operator(.)ident(parsers)operator(.)ident(SAXParser)operator(()operator(\)) -ident(parser)operator(.)ident(setFeature)operator(()string<delimiter(')content(http://xml.org/sax/features/namespaces)delimiter(')>operator(,) pre_constant(false)operator(\)) -ident(page) operator(=) keyword(new) ident(XmlParser)operator(()ident(parser)operator(\))operator(.)ident(parse)operator(()string<delimiter(')content(http://www.perl.com/CPAN/)delimiter(')>operator(\)) -ident(page)operator(.)ident(depthFirst)operator(()operator(\))operator(.)ident(each)operator({) ident(println) local_variable(it)operator(.)ident(text)operator(()operator(\)) operator(}) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_20.6) -comment(//----------------------------------------------------------------------------------) -comment(// removing tags, see 20.5) - -comment(// extracting tags: htitle using cyberneko and XmlSlurper) -ident(parser) operator(=) keyword(new) ident(org)operator(.)ident(cyberneko)operator(.)ident(html)operator(.)ident(parsers)operator(.)ident(SAXParser)operator(()operator(\)) -ident(parser)operator(.)ident(setFeature)operator(()string<delimiter(')content(http://xml.org/sax/features/namespaces)delimiter(')>operator(,) pre_constant(false)operator(\)) -ident(page) operator(=) keyword(new) ident(XmlParser)operator(()ident(parser)operator(\))operator(.)ident(parse)operator(()string<delimiter(')content(http://www.perl.com/CPAN/)delimiter(')>operator(\)) -ident(println) ident(page)operator(.)ident(HEAD)operator(.)ident(TITLE)operator([)integer(0)operator(])operator(.)ident(text)operator(()operator(\)) - -comment(// extracting tags: htitle using HtmlUnit) -ident(client) operator(=) keyword(new) ident(WebClient)operator(()operator(\)) -ident(html) operator(=) ident(client)operator(.)ident(getPage)operator(()string<delimiter(')content(http://www.perl.com/CPAN/)delimiter(')>operator(\)) -ident(println) ident(html)operator(.)ident(titleText) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_20.7) -comment(//----------------------------------------------------------------------------------) -keyword(import) include(com.gargoylesoftware.htmlunit.WebClient) - -ident(client) operator(=) keyword(new) ident(WebClient)operator(()operator(\)) -ident(page) operator(=) ident(client)operator(.)ident(getPage)operator(()string<delimiter(')content(http://www.perl.com/CPAN/)delimiter(')>operator(\)) -ident(page)operator(.)ident(anchors)operator(.)ident(each)operator({) - ident(checkUrl)operator(()ident(page)operator(,) local_variable(it)operator(.)ident(hrefAttribute)operator(\)) -operator(}) - -keyword(def) method(checkUrl)operator(()ident(page)operator(,) ident(url)operator(\)) operator({) - keyword(try) operator({) - ident(print) string<delimiter(")inline<inline_delimiter($)ident(url)>content( )delimiter(")> - ident(qurl) operator(=) ident(page)operator(.)ident(getFullyQualifiedUrl)operator(()ident(url)operator(\)) - ident(client)operator(.)ident(getPage)operator(()ident(qurl)operator(\)) - ident(println) string<delimiter(')content(OK)delimiter(')> - operator(}) keyword(catch) operator(()exception(Exception) ident(ex)operator(\)) operator({) - ident(println) string<delimiter(')content(BAD)delimiter(')> - operator(}) -operator(}) -comment(// =>) -comment(// modules/index.html OK) -comment(// RECENT.html OK) -comment(// http://search.cpan.org/recent OK) -comment(// http://mirrors.cpan.org/ OK) -comment(// http://perldoc.perl.org/ OK) -comment(// mailto:cpan@perl.org BAD) -comment(// http://www.csc.fi/suomi/funet/verkko.html.en/ BAD) -comment(// ...) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_20.8) -comment(//----------------------------------------------------------------------------------) -keyword(import) include(org.apache.commons.httpclient.HttpClient) -keyword(import) include(org.apache.commons.httpclient.methods.HeadMethod) -keyword(import) include(java.text.DateFormat) - -ident(urls) operator(=) operator([) - string<delimiter(")content(http://www.apache.org/)delimiter(")>operator(,) - string<delimiter(")content(http://www.perl.org/)delimiter(")>operator(,) - string<delimiter(")content(http://www.python.org/)delimiter(")>operator(,) - string<delimiter(")content(http://www.ora.com/)delimiter(")>operator(,) - string<delimiter(")content(http://jakarta.apache.org/)delimiter(")>operator(,) - string<delimiter(")content(http://www.w3.org/)delimiter(")> -operator(]) - -ident(df) operator(=) pre_type(DateFormat)operator(.)ident(getDateTimeInstance)operator(()pre_type(DateFormat)operator(.)ident(FULL)operator(,) pre_type(DateFormat)operator(.)ident(MEDIUM)operator(\)) -ident(client) operator(=) keyword(new) ident(HttpClient)operator(()operator(\)) -ident(urlInfo) operator(=) operator([)operator(:)operator(]) -ident(urls)operator(.)ident(each)operator({) ident(url) operator(->) - ident(head) operator(=) keyword(new) ident(HeadMethod)operator(()ident(url)operator(\)) - ident(client)operator(.)ident(executeMethod)operator(()ident(head)operator(\)) - ident(lastModified) operator(=) ident(head)operator(.)ident(getResponseHeader)operator(()string<delimiter(")content(last-modified)delimiter(")>operator(\))operator(?)operator(.)ident(value) - ident(urlInfo)operator([)ident(df)operator(.)ident(parse)operator(()ident(lastModified)operator(\))operator(])operator(=)ident(url) -operator(}) - -ident(urlInfo)operator(.)ident(keySet)operator(()operator(\))operator(.)ident(sort)operator(()operator(\))operator(.)ident(each)operator({) ident(key) operator(->) - ident(println) string<delimiter(")inline<inline_delimiter($)ident(key)>content( )inline<inline_delimiter(${)ident(urlInfo)operator([)ident(key)operator(])inline_delimiter(})>delimiter(")> -operator(}) -comment(// =>) -comment(// Sun Jan 07 21:48:15 EST 2007 http://www.apache.org/) -comment(// Sat Jan 13 12:44:32 EST 2007 http://jakarta.apache.org/) -comment(// Fri Jan 19 14:50:13 EST 2007 http://www.w3.org/) -comment(// Fri Jan 19 19:28:35 EST 2007 http://www.python.org/) -comment(// Sat Jan 20 09:36:08 EST 2007 http://www.ora.com/) -comment(// Sat Jan 20 13:25:53 EST 2007 http://www.perl.org/) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_20.9) -comment(//----------------------------------------------------------------------------------) -comment(// GString version (variables must be predefined\):) -ident(username) operator(=) string<delimiter(')content(Tom)delimiter(')> -ident(count) operator(=) integer(99) -ident(total) operator(=) integer(999) -ident(htmlStr) operator(=) string<delimiter(""")content( -<!-- simple.template for internal template(\) function --> -<HTML><HEAD><TITLE>Report for )inline<inline_delimiter($)ident(username)>content(</TITLE></HEAD> -<BODY><H1>Report for )inline<inline_delimiter($)ident(username)>content(</H1> -)inline<inline_delimiter($)ident(username)>content( logged in )inline<inline_delimiter($)ident(count)>content( times, for a total of )inline<inline_delimiter($)ident(total)>content( minutes. -)delimiter(""")> -ident(println) ident(htmlStr) - -comment(// SimpleTemplateEngine version:) -keyword(def) ident(html) operator(=) string<delimiter(''')content( -<!-- simple.template for internal template(\) function --> -<HTML><HEAD><TITLE>Report for $username</TITLE></HEAD> -<BODY><H1>Report for $username</H1> -$username logged in $count times, for a total of $total minutes. -)delimiter(''')> - -keyword(def) ident(engine) operator(=) keyword(new) ident(groovy)operator(.)ident(text)operator(.)ident(SimpleTemplateEngine)operator(()operator(\)) -keyword(def) ident(reader) operator(=) keyword(new) pre_type(StringReader)operator(()ident(html)operator(\)) -keyword(def) ident(template) operator(=) ident(engine)operator(.)ident(createTemplate)operator(()ident(reader)operator(\)) -ident(println) ident(template)operator(.)ident(make)operator(()key(username)operator(:)string<delimiter(")content(Peter)delimiter(")>operator(,) key(count)operator(:)string<delimiter(")content(23)delimiter(")>operator(,) key(total)operator(:) string<delimiter(")content(1234)delimiter(")>operator(\)) - -comment(// SQL version) -keyword(import) include(groovy.sql.Sql) -ident(user) operator(=) string<delimiter(')content(Peter)delimiter(')> -keyword(def) ident(sql) operator(=) ident(Sql)operator(.)ident(newInstance)operator(()string<delimiter(')content(jdbc:mysql://localhost:3306/mydb)delimiter(')>operator(,) string<delimiter(')content(dbuser)delimiter(')>operator(,) - string<delimiter(')content(dbpass)delimiter(')>operator(,) string<delimiter(')content(com.mysql.jdbc.Driver)delimiter(')>operator(\)) -ident(sql)operator(.)ident(query)operator(()string<delimiter(")content(SELECT COUNT(duration\),SUM(duration\) FROM logins WHERE username=')inline<inline_delimiter($)ident(user)>content(')delimiter(")>operator(\)) operator({) ident(answer) operator(->) - ident(println) operator(()ident(template)operator(.)ident(make)operator(()key(username)operator(:)ident(user)operator(,) key(count)operator(:)ident(answer)operator([)integer(0)operator(])operator(,) key(total)operator(:)ident(answer)operator([)integer(1)operator(])operator(\))operator(\)) -operator(}) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_20.10) -comment(//----------------------------------------------------------------------------------) -comment(// using built-in connection features) -ident(urlStr) operator(=) string<delimiter(')content(http://jakarta.apache.org/)delimiter(')> -ident(url) operator(=) keyword(new) pre_type(URL)operator(()ident(urlStr)operator(\)) -ident(connection) operator(=) ident(url)operator(.)ident(openConnection)operator(()operator(\)) -ident(connection)operator(.)ident(ifModifiedSince) operator(=) keyword(new) pre_type(Date)operator(()integer(2007)operator(,)integer(1)operator(,)integer(18)operator(\))operator(.)ident(time) -ident(connection)operator(.)ident(connect)operator(()operator(\)) -ident(println) ident(connection)operator(.)ident(responseCode) - -comment(// manually setting header field) -ident(connection) operator(=) ident(url)operator(.)ident(openConnection)operator(()operator(\)) -ident(df) operator(=) keyword(new) ident(java)operator(.)ident(text)operator(.)ident(SimpleDateFormat) operator(()string<delimiter(")content(EEE, dd MMM yyyy HH:mm:ss 'GMT')delimiter(")>operator(\)) -ident(df)operator(.)ident(setTimeZone)operator(()pre_type(TimeZone)operator(.)ident(getTimeZone)operator(()string<delimiter(')content(GMT)delimiter(')>operator(\))operator(\)) -ident(connection)operator(.)ident(setRequestProperty)operator(()string<delimiter(")content(If-Modified-Since)delimiter(")>operator(,)ident(df)operator(.)ident(format)operator(()keyword(new) pre_type(Date)operator(()integer(2007)operator(,)integer(1)operator(,)integer(18)operator(\))operator(\))operator(\))operator(;) -ident(connection)operator(.)ident(connect)operator(()operator(\)) -ident(println) ident(connection)operator(.)ident(responseCode) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_20.11) -comment(//----------------------------------------------------------------------------------) -comment(// The website http://www.robotstxt.org/wc/active/html/ lists many available robots) -comment(// including Java ones which can be used from Groovy. In particular, j-spider) -comment(// allows you to:) -comment(// + Check your site for errors (internal server errors, ...\)) -comment(// + Outgoing and/or internal link checking) -comment(// + Analyze your site structure (creating a sitemap, ...\)) -comment(// + Download complete web sites) -comment(// most of its functionality is available by tweaking appropriate configuration) -comment(// files and then running it as a standalone application but you can also write) -comment(// your own java classes.) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_20.12) -comment(//----------------------------------------------------------------------------------) -comment(// sample data, use 'LOGFILE = new File(args[0]\).text' or similar) -ident(LOGFILE) operator(=) string<delimiter(''')content( -127.0.0.1 - - [04/Sep/2005:20:50:31 +0200] "GET /bus HTTP/1.1" 301 303 -127.0.0.1 - - [04/Sep/2005:20:50:31 +0200] "GET /bus HTTP/1.1" 301 303 "-" "Opera/8.02 (X11; Linux i686; U; en\)" -192.168.0.1 - - [04/Sep/2005:20:50:36 +0200] "GET /bus/libjs/layersmenu-library.js HTTP/1.1" 200 6228 -192.168.0.1 - - [04/Sep/2005:20:50:36 +0200] "GET /bus/libjs/layersmenu-library.js HTTP/1.1" 200 6228 "http://localhost/bus/" "Opera/8.02 (X11; Linux i686; U; en\)" -)delimiter(''')> - -comment(// similar to perl version:) -ident(fields) operator(=) operator([)string<delimiter(')content(client)delimiter(')>operator(,)string<delimiter(')content(identuser)delimiter(')>operator(,)string<delimiter(')content(authuser)delimiter(')>operator(,)string<delimiter(')content(date)delimiter(')>operator(,)string<delimiter(')content(time)delimiter(')>operator(,)string<delimiter(')content(tz)delimiter(')>operator(,)string<delimiter(')content(method)delimiter(')>operator(,)string<delimiter(')content(url)delimiter(')>operator(,)string<delimiter(')content(protocol)delimiter(')>operator(,)string<delimiter(')content(status)delimiter(')>operator(,)string<delimiter(')content(bytes)delimiter(')>operator(]) -ident(regex) operator(=) regexp<delimiter(/)content(^()char(\\S)content(+\) ()char(\\S)content(+\) ()char(\\S)content(+\) )content(\\[)content(([^:]+\):()char(\\d)content(+:)char(\\d)content(+:)char(\\d)content(+\) ([^)content(\\])content(]+\))content(\\])content( "()char(\\S)content(+\) (.*?\) ()char(\\S)content(+\)" ()char(\\S)content(+\) ()char(\\S)content(+\).*)content($)delimiter(/)> - -ident(LOGFILE)operator(.)ident(trim)operator(()operator(\))operator(.)ident(split)operator(()string<delimiter(')content(\\n)delimiter(')>operator(\))operator(.)ident(each)operator({) ident(line) operator(->) - ident(m) operator(=) ident(line) operator(=~) ident(regex) - keyword(if) operator(()ident(m)operator(.)ident(matches)operator(()operator(\))operator(\)) operator({) - keyword(for) operator(()ident(idx) keyword(in) integer(0)operator(..<)ident(fields)operator(.)ident(size)operator(()operator(\))operator(\)) operator({) ident(println) string<delimiter(")inline<inline_delimiter(${)ident(fields)operator([)ident(idx)operator(])inline_delimiter(})>content(=)inline<inline_delimiter(${)ident(m)operator([)integer(0)operator(])operator([)ident(idx)operator(+)integer(1)operator(])inline_delimiter(})>delimiter(")> operator(}) - ident(println)operator(()operator(\)) - operator(}) -operator(}) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_20.13) -comment(//----------------------------------------------------------------------------------) -comment(// sample data, use 'LOGFILE = new File(args[0]\).text' or similar) -ident(LOGFILE) operator(=) string<delimiter(''')content( -204.31.113.138 - - [03/Jul/1996:06:56:12 -0800] "POST /forms/login.jsp HTTP/1.0" 200 5593 -fcrawler.looksmart.com - - [26/Apr/2000:00:00:12 -0400] "GET /contacts.html HTTP/1.0" 200 4595 "-" "FAST-WebCrawler/2.1-pre2 (ashen@looksmart.net\)" -fcrawler.looksmart.com - - [26/Apr/2000:00:17:19 -0400] "GET /news/news.html HTTP/1.0" 200 16716 "-" "FAST-WebCrawler/2.1-pre2 (ashen@looksmart.net\)" -ppp931.on.bellglobal.com - - [26/Apr/2000:00:16:12 -0400] "GET /download/windows/asctab31.zip HTTP/1.0" 200 1540096 "http://www.htmlgoodies.com/downloads/freeware/webdevelopment/15.html" "Mozilla/4.7 [en]C-SYMPA (Win95; U\)" -123.123.123.123 - - [26/Apr/2000:00:23:48 -0400] "GET /pics/wpaper.gif HTTP/1.0" 200 6248 "http://www.jafsoft.com/asctortf/" "Mozilla/4.05 (Macintosh; I; PPC\)" -123.123.123.123 - - [26/Apr/2000:00:23:47 -0400] "GET /asctortf/ HTTP/1.0" 200 8130 "http://search.netscape.com/Computers/Data_Formats/Document/Text/RTF" "Mozilla/4.05 (Macintosh; I; PPC\)" -123.123.123.123 - - [26/Apr/2000:00:23:48 -0400] "GET /pics/5star2000.gif HTTP/1.0" 200 4005 "http://www.jafsoft.com/asctortf/" "Mozilla/4.05 (Macintosh; I; PPC\)" -123.123.123.123 - - [27/Apr/2000:00:23:50 -0400] "GET /pics/5star.gif HTTP/1.0" 200 1031 "http://www.jafsoft.com/asctortf/" "Mozilla/4.05 (Macintosh; I; PPC\)" -123.123.123.123 - - [27/Apr/2000:00:23:51 -0400] "GET /pics/a2hlogo.jpg HTTP/1.0" 200 4282 "http://www.jafsoft.com/asctortf/" "Mozilla/4.05 (Macintosh; I; PPC\)" -123.123.123.123 - - [27/Apr/2000:00:23:51 -0400] "GET /cgi-bin/newcount?jafsof3&width=4&font=digital&noshow HTTP/1.0" 200 36 "http://www.jafsoft.com/asctortf/" "Mozilla/4.05 (Macintosh; I; PPC\)" -127.0.0.1 - frank [10/Oct/2000:13:55:36 -0700] "GET /apache_pb.gif HTTP/1.0" 200 2326 -127.0.0.1 - - [04/Sep/2005:20:50:31 +0200] "GET / HTTP/1.1" 200 1927 -127.0.0.1 - - [04/Sep/2005:20:50:31 +0200] "GET /bus HTTP/1.1" 301 303 "-" "Opera/8.02 (X11; Linux i686; U; en\)" -192.168.0.1 - - [05/Sep/2005:20:50:36 +0200] "GET /bus/libjs/layersmenu-library.js HTTP/1.1" 200 6228 -192.168.0.1 - - [05/Sep/2005:20:50:36 +0200] "GET /bus/libjs/layersmenu-library.js HTTP/1.1" 200 6228 "http://localhost/bus/" "Opera/8.02 (X11; Linux i686; U; en\)" -)delimiter(''')> - -ident(fields) operator(=) operator([)string<delimiter(')content(client)delimiter(')>operator(,)string<delimiter(')content(identuser)delimiter(')>operator(,)string<delimiter(')content(authuser)delimiter(')>operator(,)string<delimiter(')content(date)delimiter(')>operator(,)string<delimiter(')content(time)delimiter(')>operator(,)string<delimiter(')content(tz)delimiter(')>operator(,)string<delimiter(')content(method)delimiter(')>operator(,)string<delimiter(')content(url)delimiter(')>operator(,)string<delimiter(')content(protocol)delimiter(')>operator(,)string<delimiter(')content(status)delimiter(')>operator(,)string<delimiter(')content(bytes)delimiter(')>operator(]) -ident(regex) operator(=) regexp<delimiter(/)content(^()char(\\S)content(+\) ()char(\\S)content(+\) ()char(\\S)content(+\) )content(\\[)content(([^:]+\):()char(\\d)content(+:)char(\\d)content(+:)char(\\d)content(+\) ([^)content(\\])content(]+\))content(\\])content( "()char(\\S)content(+\) (.*?\) ()char(\\S)content(+\)" ()char(\\S)content(+\) ()char(\\S)content(+\).*)content($)delimiter(/)> - -type(class) class(Summary) operator({) - keyword(def) ident(hosts) operator(=) operator([)operator(:)operator(]) - keyword(def) ident(what) operator(=) operator([)operator(:)operator(]) - keyword(def) ident(accessCount) operator(=) integer(0) - keyword(def) ident(postCount) operator(=) integer(0) - keyword(def) ident(homeCount) operator(=) integer(0) - keyword(def) ident(totalBytes) operator(=) integer(0) -operator(}) -ident(totals) operator(=) operator([)operator(:)operator(]) -ident(LOGFILE)operator(.)ident(trim)operator(()operator(\))operator(.)ident(split)operator(()string<delimiter(')content(\\n)delimiter(')>operator(\))operator(.)ident(each)operator({) ident(line) operator(->) - ident(m) operator(=) ident(line) operator(=~) ident(regex) - keyword(if) operator(()ident(m)operator(.)ident(matches)operator(()operator(\))operator(\)) operator({) - ident(date) operator(=) ident(m)operator([)integer(0)operator(])operator([)ident(fields)operator(.)ident(indexOf)operator(()string<delimiter(')content(date)delimiter(')>operator(\))operator(+)integer(1)operator(]) - ident(s) operator(=) ident(totals)operator(.)ident(get)operator(()ident(date)operator(,) keyword(new) ident(Summary)operator(()operator(\))operator(\)) - ident(s)operator(.)ident(accessCount)operator(++) - keyword(if) operator(()ident(m)operator([)integer(0)operator(])operator([)ident(fields)operator(.)ident(indexOf)operator(()string<delimiter(')content(method)delimiter(')>operator(\))operator(+)integer(1)operator(]) operator(==) string<delimiter(')content(POST)delimiter(')>operator(\)) ident(s)operator(.)ident(postCount)operator(++) - ident(s)operator(.)ident(totalBytes) operator(+=) operator(()ident(m)operator([)integer(0)operator(])operator([)ident(fields)operator(.)ident(indexOf)operator(()string<delimiter(')content(bytes)delimiter(')>operator(\))operator(+)integer(1)operator(])operator(\))operator(.)ident(toInteger)operator(()operator(\)) - keyword(def) ident(url) operator(=) ident(m)operator([)integer(0)operator(])operator([)ident(fields)operator(.)ident(indexOf)operator(()string<delimiter(')content(url)delimiter(')>operator(\))operator(+)integer(1)operator(]) - keyword(if) operator(()ident(url) operator(==) string<delimiter(')content(/)delimiter(')>operator(\)) ident(s)operator(.)ident(homeCount)operator(++) - ident(s)operator(.)ident(what)operator([)ident(url)operator(]) operator(=) ident(s)operator(.)ident(what)operator(.)ident(get)operator(()ident(url)operator(,) integer(0)operator(\)) operator(+) integer(1) - keyword(def) ident(host) operator(=) ident(m)operator([)integer(0)operator(])operator([)ident(fields)operator(.)ident(indexOf)operator(()string<delimiter(')content(client)delimiter(')>operator(\))operator(+)integer(1)operator(]) - ident(s)operator(.)ident(hosts)operator([)ident(host)operator(]) operator(=) ident(s)operator(.)ident(hosts)operator(.)ident(get)operator(()ident(host)operator(,) integer(0)operator(\)) operator(+) integer(1) - operator(}) -operator(}) -ident(report)operator(()string<delimiter(')content(Date)delimiter(')>operator(,)string<delimiter(')content(Hosts)delimiter(')>operator(,)string<delimiter(')content(Accesses)delimiter(')>operator(,)string<delimiter(')content(Unidocs)delimiter(')>operator(,)string<delimiter(')content(POST)delimiter(')>operator(,)string<delimiter(')content(Home)delimiter(')>operator(,)string<delimiter(')content(Bytes)delimiter(')>operator(\)) -ident(totals)operator(.)ident(each)operator({) ident(key)operator(,) ident(s) operator(->) - ident(report)operator(()ident(key)operator(,) ident(s)operator(.)ident(hosts)operator(.)ident(size)operator(()operator(\))operator(,) ident(s)operator(.)ident(accessCount)operator(,) ident(s)operator(.)ident(what)operator(.)ident(size)operator(()operator(\))operator(,) ident(s)operator(.)ident(postCount)operator(,) ident(s)operator(.)ident(homeCount)operator(,) ident(s)operator(.)ident(totalBytes)operator(\)) -operator(}) -ident(v) operator(=) ident(totals)operator(.)ident(values)operator(()operator(\)) -ident(report)operator(()string<delimiter(')content(Grand Total)delimiter(')>operator(,) ident(v)operator(.)ident(sum)operator({)local_variable(it)operator(.)ident(hosts)operator(.)ident(size)operator(()operator(\))operator(})operator(,) ident(v)operator(.)ident(sum)operator({)local_variable(it)operator(.)ident(accessCount)operator(})operator(,) ident(v)operator(.)ident(sum)operator({)local_variable(it)operator(.)ident(what)operator(.)ident(size)operator(()operator(\))operator(})operator(,) - ident(v)operator(.)ident(sum)operator({)local_variable(it)operator(.)ident(postCount)operator(})operator(,) ident(v)operator(.)ident(sum)operator({)local_variable(it)operator(.)ident(homeCount)operator(})operator(,) ident(v)operator(.)ident(sum)operator({)local_variable(it)operator(.)ident(totalBytes)operator(}) operator(\)) - -keyword(def) method(report)operator(()ident(a)operator(,) ident(b)operator(,) ident(c)operator(,) ident(d)operator(,) ident(e)operator(,) ident(f)operator(,) ident(g)operator(\)) operator({) - ident(printf) operator(()string<delimiter(")content(%12s %6s %8s %8s %8s %8s %10s)char(\\n)delimiter(")>operator(,) operator([)ident(a)operator(,)ident(b)operator(,)ident(c)operator(,)ident(d)operator(,)ident(e)operator(,)ident(f)operator(,)ident(g)operator(])operator(\)) -operator(}) -comment(// =>) -comment(// Date Hosts Accesses Unidocs POST Home Bytes) -comment(// 03/Jul/1996 1 1 1 1 0 5593) -comment(// 10/Oct/2000 1 1 1 0 0 2326) -comment(// 04/Sep/2005 1 2 2 0 1 2230) -comment(// 05/Sep/2005 1 2 1 0 0 12456) -comment(// 26/Apr/2000 3 6 6 0 0 1579790) -comment(// 27/Apr/2000 1 3 3 0 0 5349) -comment(// Grand Total 8 15 14 1 1 1607744) - - -comment(// Some open source log processing packages in Java:) -comment(// http://www.generationjava.com/projects/logview/index.shtml) -comment(// http://ostermiller.org/webalizer/) -comment(// http://jxla.nvdcms.org/en/index.xml) -comment(// http://polliwog.sourceforge.net/index.html) -comment(// as well as textual reports, most of these can produce graphical reports) -comment(// Most have their own configuration information and Java extension points.) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_20.14) -comment(//----------------------------------------------------------------------------------) - keyword(import) include(org.cyberneko.html.filters.Writer) - keyword(import) include(org.cyberneko.html.filters.DefaultFilter) - keyword(import) include(org.apache.xerces.xni.parser.XMLDocumentFilter) - keyword(import) include(org.apache.xerces.xni.*) - keyword(import) include(org.cyberneko.html.parsers.DOMParser) - keyword(import) include(org.xml.sax.InputSource) - - ident(input) operator(=) string<delimiter(''')content( - <HTML><HEAD><TITLE>Hi!</TITLE></HEAD><BODY> - <H1>Welcome to Scooby World!</H1> - I have <A HREF="pictures.html">pictures</A> of the crazy dog - himself. Here's one!<P> - <IMG SRC="scooby.jpg" ALT="Good doggy!"><P> - <BLINK>He's my hero!</BLINK> I would like to meet him some day, - and get my picture taken with him.<P> - P.S. I am deathly ill. <A HREF="shergold.html">Please send - cards</A>. - </BODY></HTML> - )delimiter(''')> - - type(class) class(WordReplaceFilter) directive(extends) ident(DefaultFilter) operator({) - directive(private) ident(before)operator(,) ident(after) - ident(WordReplaceFilter)operator(()ident(b)operator(,) ident(a)operator(\)) operator({) ident(before) operator(=) ident(b)operator(;) ident(after) operator(=) ident(a) operator(}) - type(void) ident(characters)operator(()ident(XMLString) ident(text)operator(,) ident(Augmentations) ident(augs)operator(\)) operator({) - type(char)type([]) ident(c) operator(=) ident(text)operator(.)ident(toString)operator(()operator(\))operator(.)ident(replaceAll)operator(()ident(before)operator(,) ident(after)operator(\)) - local_variable(super)operator(.)ident(characters)operator(()keyword(new) ident(XMLString)operator(()ident(c)operator(,) integer(0)operator(,) ident(c)operator(.)ident(size)operator(()operator(\))operator(\))operator(,) ident(augs)operator(\)) - operator(}) - type(void) ident(setProperty)operator(()pre_type(String) ident(s)operator(,) pre_type(Object) ident(o)operator(\))operator({)operator(}) - operator(}) - ident(XMLDocumentFilter)type([]) ident(filters) operator(=) operator([) - keyword(new) ident(WordReplaceFilter)operator(()regexp<delimiter(/)content((?sm\)picture)delimiter(/)>operator(,) regexp<delimiter(/)content(photo)delimiter(/)>operator(\))operator(,) - keyword(new) pre_type(Writer)operator(()operator(\)) - operator(]) - ident(parser) operator(=) keyword(new) ident(DOMParser)operator(()operator(\)) - ident(parser)operator(.)ident(setProperty)operator(()string<delimiter(")content(http://cyberneko.org/html/properties/filters)delimiter(")>operator(,) ident(filters)operator(\)) - ident(parser)operator(.)ident(parse)operator(()keyword(new) ident(InputSource)operator(()keyword(new) pre_type(StringReader)operator(()ident(input)operator(\))operator(\))operator(\)) -comment(//----------------------------------------------------------------------------------) - - -comment(// @@PLEAC@@_20.15) -comment(//----------------------------------------------------------------------------------) -keyword(import) include(org.cyberneko.html.filters.Writer) -keyword(import) include(org.cyberneko.html.filters.DefaultFilter) -keyword(import) include(org.apache.xerces.xni.parser.XMLDocumentFilter) -keyword(import) include(org.apache.xerces.xni.*) -keyword(import) include(org.cyberneko.html.parsers.DOMParser) -keyword(import) include(org.xml.sax.InputSource) - -ident(input) operator(=) string<delimiter(''')content( -<HTML><HEAD><TITLE>Hi!</TITLE></HEAD><BODY> -<H1>Welcome to Scooby World!</H1> -I have <A HREF="pictures.html">pictures</A> of the crazy dog -himself. Here's one!<P> -<IMG SRC="scooby.jpg" ALT="Good doggy!"><P> -<BLINK>He's my hero!</BLINK> I would like to meet him some day, -and get my picture taken with him.<P> -P.S. I am deathly ill. <A HREF="shergold.html">Please send -cards</A>. -</BODY></HTML> -)delimiter(''')> - -type(class) class(HrefReplaceFilter) directive(extends) ident(DefaultFilter) operator({) - directive(private) ident(before)operator(,) ident(after) - ident(HrefReplaceFilter)operator(()ident(b)operator(,) ident(a)operator(\)) operator({) ident(before) operator(=) ident(b)operator(;) ident(after) operator(=) ident(a) operator(}) - type(void) ident(startElement)operator(()pre_type(QName) ident(element)operator(,) ident(XMLAttributes) ident(attributes)operator(,) ident(Augmentations) ident(augs)operator(\)) operator({) - keyword(def) ident(idx) operator(=) ident(attributes)operator(.)ident(getIndex)operator(()string<delimiter(')content(href)delimiter(')>operator(\)) - keyword(if) operator(()ident(idx) operator(!=) operator(-)integer(1)operator(\)) operator({) - keyword(def) ident(newtext) operator(=) ident(attributes)operator(.)ident(getValue)operator(()ident(idx)operator(\))operator(.)ident(replaceAll)operator(()ident(before)operator(,) ident(after)operator(\)) - ident(attributes)operator(.)ident(setValue)operator(()ident(idx)operator(,) pre_type(URLEncoder)operator(.)ident(encode)operator(()ident(newtext)operator(\))operator(\)) - operator(}) - local_variable(super)operator(.)ident(startElement)operator(()ident(element)operator(,) ident(attributes)operator(,) ident(augs)operator(\)) - operator(}) - type(void) ident(setProperty)operator(()pre_type(String) ident(s)operator(,) pre_type(Object) ident(o)operator(\))operator({)operator(}) -operator(}) -ident(XMLDocumentFilter)type([]) ident(myfilters) operator(=) operator([) - keyword(new) ident(HrefReplaceFilter)operator(()regexp<delimiter(/)content(shergold.html)delimiter(/)>operator(,) regexp<delimiter(/)content(cards.html)delimiter(/)>operator(\))operator(,) - keyword(new) pre_type(Writer)operator(()operator(\)) -operator(]) -ident(parser) operator(=) keyword(new) ident(DOMParser)operator(()operator(\)) -ident(parser)operator(.)ident(setProperty)operator(()string<delimiter(")content(http://cyberneko.org/html/properties/filters)delimiter(")>operator(,) ident(myfilters)operator(\)) -ident(parser)operator(.)ident(parse)operator(()keyword(new) ident(InputSource)operator(()keyword(new) pre_type(StringReader)operator(()ident(input)operator(\))operator(\))operator(\)) -comment(//----------------------------------------------------------------------------------) - |