Re: [Jscheme-user] JScheme & OpenMap

[Ken A. <kan...@bb...>]

Nice.  I have a JScheme map layer i could send you.

k
At 02:28 PM 6/24/2004 -0400, Geoffrey Knauth wrote:
>Here's a way I start OpenMap using JScheme in Emacs.
>
>M-x openmap-jscheme
>
>(import "com.bbn.openmap.app.OpenMap")
>(define om (OpenMap.))
>(define mh (.getMapHandler om))
>
>; see everything the MapHandler is handling
>(.getAll mh java.lang.Object.class)
>
>; get the mapbean so we can manipulate OpenMap
>(define omb (.getAll mh com.bbn.openmap.BufferedLayerMapBean.class))
>
>Geoffrey
>--
>Geoffrey S. Knauth | http://knauth.org/gsk
>
>----- jscheme.el -----
>
>(defvar jscheme-jar
>  "/Users/gknauth/test/jscheme/jscheme/lib/jscheme.jar")
>
>(defun jscheme (classpath)
>  "Start up *scheme* buffer with JScheme.
>User can set CLASSPATH or leave it blank.
>JScheme version used is value of `jscheme-jar'."
>  (interactive "sClasspath? ")
>  (let ((invocation (concat "java "
>           (if (> (length classpath) 0) (concat "-cp " classpath " ") "")
>           (if (> (length jscheme-jar) 0) (concat "-jar " jscheme-jar) ""))))
>    (run-scheme invocation)))
>
>(defun openmap-jscheme ()
>  "Start up *scheme* buffer with OpenMap under JScheme control.
>JScheme version used is value of `jscheme-jar'."
>  (interactive)
>  (let* ((memory-arg "-Xmx512m")
>        (openmap-dir "/Users/gknauth/test/openmap/openmap-4.6")
>        (classpath
>          (concat jscheme-jar
>                  ":" openmap-dir "/classes/openmap"
>                  ":" openmap-dir "/classes/omcorba_vb"
>                  ":" openmap-dir "/lib/omcorba.jar"
>                  ":" openmap-dir "/lib/omj3d.jar"
>                  ":" openmap-dir "/lib/openmap.jar"
>                  ":" openmap-dir
>                  ":" openmap-dir "/share"
>                  ":" "/Users/gknauth/test/geo/geo.jar"))
>        (openmap-args
>          (concat "-Dopenmap.configDir=" openmap-dir "/share"
>                  " -Ddebug.showprogress"))
>        (invocation
>          (concat
>           "java "
>           (if (> (length memory-arg) 0) (concat memory-arg " ") "")
>           (if (> (length classpath) 0) (concat "-cp " classpath " ") "")
>           (if (> (length openmap-args) 0) (concat openmap-args " ") "")
>           "jscheme.REPL")))
>    (run-scheme invocation)))
>
>(defun jscheme-echo ()
>  "Do this in your *scheme* buffer to make sure your commands get echoed."
>  (interactive)
>  (setq comint-process-echoes nil))
>
>
>
>-------------------------------------------------------
>This SF.Net email sponsored by Black Hat Briefings & Training.
>Attend Black Hat Briefings & Training, Las Vegas July 24-29 - digital self defense, top technical experts, no vendor pitches, unmatched networking opportunities. Visit www.blackhat.com
>_______________________________________________
>Jscheme-user mailing list
>Jsc...@li...
>https://lists.sourceforge.net/lists/listinfo/jscheme-user