Changeset 3868

Timestamp:

09/18/03 18:56:25 (20 years ago)

Author:

piso

Message:

Support :ap command.

File:

• trunk/j/src/org/armedbear/lisp/Interpreter.java (modified) (3 diffs)

trunk/j/src/org/armedbear/lisp/Interpreter.java

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: Interpreter.java,v 1.29 2003-08-27 17:28:26 piso Exp $
+ * $Id: Interpreter.java,v 1.30 2003-09-18 18:56:25 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -346 +346 @@
             return true;
         }
+        if (command.equals("apropos")) {
+            if (args != null && args.length() > 0) {
+                if (args.length() > 1 && args.charAt(0) == '"' &&
+                    args.charAt(args.length()-1) == '"') {
+                    ;
+                } else {
+                    StringBuffer sb = new StringBuffer();
+                    sb.append('"');
+                    int i = args.indexOf(' ');
+                    if (i < 0) {
+                        sb.append(args);
+                        sb.append('"');
+                    } else {
+                        // Two args to APROPOS.
+                        String arg1 = args.substring(0, i);
+                        String arg2 = args.substring(i + 1).trim();
+                        sb.append(arg1);
+                        sb.append('"');
+                        sb.append(' ');
+                        sb.append(arg2);
+                    }
+                    args = sb.toString();
+                }
+                getStandardOutput().setCharPos(0);
+                StringInputStream stream =
+                    new StringInputStream("(apropos " + args + ")");
+                LispObject obj = stream.read(false, EOF, false);
+                if (obj == EOF)
+                    throw new EndOfFileException();
+                eval(obj, new Environment(), LispThread.currentThread());
+                getStandardOutput().freshLine();
+                return true;
+            }
+            return false;
+        }
         if (command.equals("describe")) {
             if (args != null && args.length() > 0) {
@@ -423 +458 @@
         }
         if (command.length() >= 2) {
+            if ("apropos".startsWith(command))
+                return "apropos";
             if ("describe".startsWith(command))
                 return "describe";