You can edit this page using wiki syntax for markup.

Article contents:== Outdated egg! This is an egg for CHICKEN 4, the unsupported old release. You're almost certainly looking for [[/eggref/5/javahack|the CHICKEN 5 version of this egg]], if it exists. If it does not exist, there may be equivalent functionality provided by another egg; have a look at the [[https://wiki.call-cc.org/chicken-projects/egg-index-5.html|egg index]]. Otherwise, please consider porting this egg to the current version of CHICKEN. [[tags:egg]] == javahack A simple interface to Java(tm) [[toc:]] == Documentation This library provides a simple and convenient interface to Java. By running java as a sub-process and reading/writing s-expressions, no JNI and OS-specific hacks are needed which makes this approach more portable and robust. On the Java side [[http://jscheme.sourceforge.net|jscheme]] is used to parse expressions passed from CHICKEN and to convert results back into a Scheme-friendly format. ({{jscheme.jar}} version 6.1 is included in this egg) <macro>(java SYMBOL)</macro> Returns the value represented by {{SYMBOL}} which should designate a Java class, field, or method, using `Java Dot' notation: <table><tr><td>Syntax</td><td>Type of Member</td><td>Example</td></tr> <tr><td>"." at the end</td><td>constructor</td><td>{{((java Font.) NAME STYLE SIZE)}}</td></tr> <tr><td>"." at the beginning</td><td>instance member</td><td>{{((java .setFont) COMP FONT)}}</td></tr> <tr><td>"." at beginning and "$" at the end</td><td>instance field</td><td>{{(define (mycar x) ((java .first$) x))}} {{(define (myset-car! x y) ((java .first$) x y))}}</td></tr> <tr><td>"." only in the middle</td><td>static member</td><td>{{((java Math.round) 123.456)}}</td></tr> <tr><td>".class" suffix</td><td>Java class</td><td>{{(java Font.class)}}</td></tr> <tr><td>"$" at the end</td><td>static field</td><td>{{(java Font.BOLD$)}} {{(set! (java "U.useJavaSyntax$") #t)}}</td></tr> <tr><td>"$" in the middle</td><td>inner class</td><td>{{(java java.awt.geom.Point2D$Double.class)}}</td></tr> <tr><td>"$" at the beginning</td><td>packageless class</td><td>{{(java $ParseDemo.class)}}</td></tr> <tr><td>"#" at the end</td><td>allow private access</td><td>{{((java .name$#) ((java Symbol.#) "abc"))}}</td></tr> </table> Notes: * Each evaluation of the {{java}} macro sends an expression to the java process and receives a result expression. Since most of the results will stay constant throughout the lifetime of the session (as they refer to classes, fields and methods), they are cached and subsequent evaluation of the same {{(java ...)}} expression will refer to the cached value instead. You can disable this caching (in case you are doing rather funky things) with the help of the {{java-enable-cache}} form (see below). * Java objects which are returned from the Java-side can be safely used and are only garbage collected when no more references exist. <macro>(java-enable-cache FLAG)</macro> Enables or disables caching of results returned by the {{java}} macro. {{FLAG}} should be either the symbol {{on}} or {{off}}. Caching is enabled by default. <procedure>(java-run #!key java jar debug options classpath)</procedure> Starts the java-VM as a subprocess, with any additional arguments customizing the JVM invocation. {{java}} specifies the jvm executable and defaults to {{java}}. {{jar}} gives the location of the jscheme jar file, {{options}} and {{classpath}} can be used to customize where the JVM should search for support classes and libraries, together with JVM specific options. Passing {{#t}} for the {{debug}} parameter will print information about the message flow between CHICKEN and jscheme. <procedure>(java-stop)</procedure> Terminates the java process. <procedure>(java-send EXPR)</procedure> Send an expression to Java and returns whatever result is passed back. <procedure>(java-import STRING ...)</procedure> Imports Java packages. {{STRING}} should be a qualified package identifier, like {{"java.lang.*"}}. <procedure>(java-ref NAME)</procedure> References or sets a static field. Setting static fields is supported through a [[http://srfi.schemers.org/srfi-17/srfi-17.html|SRFI-17]] setter, as in the example above. Since the field-name is evaluated before being sent to the java-process, pass the field as a string. <procedure>(java-object? X)</procedure> Returns {{#t}} if {{X}} is a raw Java object (that can not be meaningfully converted into a Scheme value). == Examples (use javahack) (java-run debug: #t) (define s (java String.class)) (pp s) (define s1 ((java String.) "hello!")) (pp s1) (do ((n 2 (sub1 n))) ((zero? n)) (pp ((java .hashCode) s1)) ) (set! s #f) (set! s1 #f) Another example, a minimal SWT application. It assumes {{swt.jar}} and all necessary native libraries are in the path, or in the current directory: (use javahack) (java-run debug: #t options: '("-Djava.library.path=.") classpath: "swt.jar") (java-import "org.eclipse.swt.*") (java-import "org.eclipse.swt.widgets.*") (java-import "org.eclipse.swt.graphics.*") (java-import "org.eclipse.swt.layout.*") ((java Display.setAppName) "Hello") (define disp ((java Display.))) (define shell ((java Shell.) disp)) ((java .setLayout) shell ((java FillLayout.) (java SWT.VERTICAL$))) ((java .setText) shell "Hello, world!") (define label ((java Label.) shell (java SWT.CENTER$))) ((java .setText) label "Hello, world") ((java .setSize) shell 300 300) ((java .open) shell) (do () (((java .isDisposed) shell)) (unless ((java .readAndDispatch) disp) ((java .sleep) disp)) ) ((java .dispose) disp) Yet another example that performs a callback. The Java code performing the callback could look like this: public class Callback { public static Object invoke(jsint.Procedure proc, Object x) { return proc.apply(new jsint.Pair(x, jsint.Pair.EMPTY)); } } If you compile it with {{javac -classpath `chicken-setup -repository`/jscheme.jar Callback.java}} you will have a classfile in the current directory that in combination with the following example code will call back to the CHICKEN side: (use javahack) (java-run debug: #t classpath: ".") (write ((java Callback.invoke) (lambda (x) (print "ok: " x) 42) "something") ) == About this egg === Author [[/users/felix-winkelmann|felix winkelmann]] === Version history ; 0.5 : fixed bug in setup script (thanks to Peter Lane) ; 0.3 : Initial release Description of your changes:

I would like to authenticate

Spam control

What do you get when you multiply 9 by 1?