Changeset 182

Timestamp:

10/26/02 16:44:58 (21 years ago)

Author:

piso

Message:

CLISP_PROMPT_PATTERN

File:

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

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

@@ -3 +3 @@
  *
  * Copyright (C) 2002 Peter Graves
- * $Id: LispShell.java,v 1.4 2002-10-24 19:40:55 piso Exp $
+ * $Id: LispShell.java,v 1.5 2002-10-26 16:44:58 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -26 +26 @@
     private static final String DEFAULT_PROMPT_PATTERN =
         "^[^>\\*\\]]*[>\\*\\]] *";
+
+    private static final String CLISP_PROMPT_PATTERN =
+        "^[^>\\*\\]]*\\[[0-9+]\\]> ";
 
     private static final String CMUCL_PROMPT_PATTERN =
@@ -50 +53 @@
             return null;
         }
-        if (shellCommand.equals("/usr/bin/lisp"))
+        if (shellCommand.equals("clisp") || shellCommand.equals("/usr/bin/clisp"))
+            shell.setPromptRE(CLISP_PROMPT_PATTERN);
+        else if (shellCommand.equals("/usr/bin/lisp"))
             shell.setPromptRE(CMUCL_PROMPT_PATTERN);
         else