[Jscheme-user] JScheme & OpenMap

[Geoffrey K. <ge...@kn...>]

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))