Changeset 4070

Timestamp:

09/26/03 15:04:46 (20 years ago)

Author:

piso

Message:

EXT:BACKTRACE

File:

• trunk/j/src/org/armedbear/lisp/LispThread.java (modified) (4 diffs)

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

@@ -3 +3 @@
  *
  * Copyright (C) 2003 Peter Graves
- * $Id: LispThread.java,v 1.14 2003-09-25 15:37:08 piso Exp $
+ * $Id: LispThread.java,v 1.15 2003-09-26 15:04:46 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -226 +226 @@
     public void backtrace()
     {
+        backtrace(0);
+    }
+
+    public void backtrace(int limit)
+    {
         if (stack.size() > 0) {
             CharacterOutputStream out = getTraceOutput();
+            int count = 0;
             try {
                 out.writeLine("Evaluation stack:");
@@ -248 +254 @@
                     out.terpri();
                     out.flushOutput();
+                    if (limit > 0 && ++count == limit)
+                        break;
                 }
             }
@@ -392 +400 @@
         }
     };
+
+    // ### backtrace
+    private static final Primitive BACKTRACE =
+        new Primitive("backtrace", PACKAGE_EXT, true)
+    {
+        public LispObject execute(LispObject[] args)
+            throws ConditionThrowable
+        {
+            if (args.length > 1)
+                throw new ConditionThrowable(new WrongNumberOfArgumentsException(this));
+            int count = args.length > 0 ? Fixnum.getValue(args[0]) : 0;
+            LispThread thread = currentThread();
+            thread.backtrace(count);
+            return thread.nothing();
+        }
+    };
 }