Changeset 185

Timestamp:

10/30/02 18:47:25 (20 years ago)

Author:

piso

Message:

executeCommand(): Lisp support.

File:

• trunk/j/src/org/armedbear/j/Editor.java (modified) (2 diffs)

trunk/j/src/org/armedbear/j/Editor.java

@@ -3 +3 @@
  *
  * Copyright (C) 1998-2002 Peter Graves
- * $Id: Editor.java,v 1.11 2002-10-13 16:56:42 piso Exp $
+ * $Id: Editor.java,v 1.12 2002-10-30 18:47:25 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -6141 +6141 @@
             setFocusToTextField();
     }
+    
+    private static Method evaluateMethod;
 
     public void executeCommand(String input)
     {
+        input = input.trim();
+        if (input.length() == 0)
+            return;
+        if (input.charAt(0) == '(') {
+            // Lisp form.
+            try {
+                if (evaluateMethod == null) {
+                    Class c = Class.forName("org.armedbear.lisp.Interpreter");
+                    if (c != null) {
+                        Class[] parameterTypes = new Class[] {
+                            Class.forName("java.lang.String")
+                        };
+                        evaluateMethod = c.getMethod("evaluate", parameterTypes);
+                    }
+                }
+                if (evaluateMethod != null)
+                    invoke(evaluateMethod, input);
+            }
+            catch (Throwable t) {
+                Log.debug(t);
+                return;
+            }
+        }
         int index = input.indexOf('=');
         if (index >= 0) {