David, What's this program called, Cloj-ENER? :-)
BTW: Here's a list of JVM languages that is a very interesting read: http://en.wikipedia.org/wiki/List_of_JVM_languages Kirk Wolf Dovetailed Technologies http://dovetail.com On Sun, Oct 25, 2009 at 7:15 AM, David Andrews <[email protected]> wrote: > On Sat, 2009-10-24 at 10:07 -0400, John McKown wrote: > > 3) Clojure - a rather strange meld of LISP and Functional Programming. > > http://clojure.org > > [...] has > > anybody tried to run programs written in any of the above, other than > > Java itself of course, on a z? > > Yes, I've been playing with Clojure on an irregular basis. The IBM JVM > is more strict than the Sun JVM, and rejects some invalid class names > generated by Clojure (see bug #104). As a practical matter, this means > that I can't use e.g. pprint from the contrib library today. > > BTW, one of Clojure's selling points is its strong Java interop. Kirk > and Steve's JZOS Toolkit is the bees knees, and works well from Clojure > code. Here's a file-copy example to puzzle over: > (ns user > (:import com.ibm.jzos.ZFile) > (:import com.ibm.jzos.ZUtil) > (:import java.nio.ByteBuffer) > (:import java.nio.charset.Charset)) > (ZFile/bpxwdyn "alloc dd(sysut1) dsn('temp.dba.print(all)') shr") > (ZFile/bpxwdyn "alloc dd(sysut2) sysout(a)") > (with-open [sysut1 (new ZFile "//DD:SYSUT1" "rb,type=record,noseek") > sysut2 (new ZFile "//DD:SYSUT2" > "wb,type=record,noseek")] > (let [buffer (. (ByteBuffer/allocate (. sysut1 getLrecl)) array)] > (while (pos? (. sysut1 read buffer)) > (. sysut2 write buffer)))) > (map #(ZFile/bpxwdyn (str "free dd(" % ")")) '(sysut1 sysut2)) > ... which isn't very good Clojure code, considering that mutable buffer. > > JVM startup time is a killer. Best use Clojure for long-running things. > > -- > David Andrews > A. Duda and Sons, Inc. > [email protected] > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: GET IBM-MAIN INFO > Search the archives at http://bama.ua.edu/archives/ibm-main.html > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
